GOM引擎装备强化加星脚本

[@Main]
#IF
#ACT
OpenBigDialogBox  15  402
MOV N$强化类别
#SAY
<◆装备加星◆/AUTOCOLOR=224> <New~>    <盛大授权-正版游戏-公司运营-长久稳定!/SCOLOR=151>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
<ITEMBOX:7:15:265:20:20:20:20:10,11,19,26,22,5,15,62,64:此处放入装备>\
　　　　　　　<请在左侧框内放入准备升星的物品/FCOLOR=250>\ \
　　　　　　　<点击开始升星/@执行_Main>     <点击清除属性/@重洗_Main>\ \
<说明：/FCOLOR=146><豪门首饰五星获得随机元素如下>\
<                              ↓/SCOLOR=249> \
<增加攻击伤害，忽视目标防御，所有伤害反弹，增加目标暴率/SCOLOR=151>\ \
<不同职业获得的属性不同.最高获得五星装备/FCOLOR=250>\ \
<几率：/FCOLOR=146><一星二星100% 三星50% 四星40% 五星30%./FCOLOR=249>\ \
<费用：/FCOLOR=146><金刚石 * 50 + 魔石 * 10> <清洗需要10000元宝>\
<-------------------------------------------------------------/AUTOCOLOR=91>\


[@重洗_Main]
#IF
CheckContainsText <$BOXITEM[7].NAME> 豪门
#ELSEACT
MESSAGEBOX \\框内物品不正确.请检查背包.
break


#IF
CHECKGAMEGOLD > 9999
#ACT
GAMEGOLD - 10000
#ELSEACT
MESSAGEBOX \\元宝不足.
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 战刃
#ACT
MOV N$强化类别 0
Goto @武器清除
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 魔刃
#ACT
MOV N$强化类别 1
Goto @武器清除
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 道刃
#ACT
MOV N$强化类别 2
Goto @武器清除
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 神甲
#ACT
Goto @衣服清除
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 神袍
#ACT
Goto @衣服清除
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 战
#ACT
SetUpgradeItem 7
MOV N$强化类别 2
Goto @其他清除
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 魔
#ACT
SetUpgradeItem 7
MOV N$强化类别 3
Goto @其他清除
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 道
#ACT
SetUpgradeItem 7
MOV N$强化类别 4
Goto @其他清除
break






[@ItemIntoBox7]
#IF
CheckContainsText <$BOXITEM[7].NAME> 豪门
#ACT
SetUpgradeItem 7
break
#ELSEACT
ReturnBoxItem 7
MESSAGEBOX \\仅限豪门装备才可升星.
break




[@执行_Main]
#IF
CheckContainsText <$BOXITEM[7].NAME> 豪门
#ELSEACT
MESSAGEBOX \\仅限豪门装备才可升星.
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 50
#ACT
MESSAGEBOX \\当前装备已经升为五星.无法继续提升.
break


#IF
CHECKITEM 魔石 10
#ACT
TAKE 魔石 10
#ELSEACT
MESSAGEBOX \\你身上魔石不足10颗.无法强化.
break


#IF
CHECKGAMEDIAMOND > 49
#ACT
GAMEDIAMOND - 50
#ELSEACT
MESSAGEBOX \\豪门石不足.
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 战刃
#ACT
MOV N$强化类别 0
Goto @武器升星
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 魔刃
#ACT
MOV N$强化类别 1
Goto @武器升星
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 道刃
#ACT
MOV N$强化类别 2
Goto @武器升星
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 神甲
#ACT
Goto @衣服升星
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 神袍
#ACT
Goto @衣服升星
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 战
#ACT
SetUpgradeItem 7
MOV N$强化类别 2
Goto @其他升星
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 魔
#ACT
SetUpgradeItem 7
MOV N$强化类别 3
Goto @其他升星
break


#IF
CheckContainsText <$BOXITEM[7].NAME> 道
#ACT
SetUpgradeItem 7
MOV N$强化类别 4
Goto @其他升星
break




[@武器升星]
#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 0
#ACT
ChangeItemUpgradeCount -1 = 10


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，一星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 10
#ACT
ChangeItemUpgradeCount -1 = 20


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，二星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 20
random 3
#ACT
ChangeItemUpgradeCount -1 = 30


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，三星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 30
random 4
#ACT
ChangeItemUpgradeCount -1 = 40


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，四星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 40
random 5
#ACT
ChangeItemUpgradeCount -1 = 50


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，五星强化成功！
GOTO @Main
break


#IF
#ACT
ReturnBoxItem 7
MESSAGEBOX \\很遗憾，升级失败.
break




[@衣服升星]
#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 0
#ACT
ChangeItemUpgradeCount -1 = 10
CHANGEITEMADDVALUE -1 0 + 1
CHANGEITEMADDVALUE -1 1 + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，一星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 10
#ACT
ChangeItemUpgradeCount -1 = 20
CHANGEITEMADDVALUE -1 0 + 1
CHANGEITEMADDVALUE -1 1 + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，二星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 20
random 3
#ACT
ChangeItemUpgradeCount -1 = 30
CHANGEITEMADDVALUE -1 0 + 1
CHANGEITEMADDVALUE -1 1 + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，三星强化成功！
GOTO @Main
break




#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 30
random 4
#ACT
ChangeItemUpgradeCount -1 = 40
CHANGEITEMADDVALUE -1 0 + 1
CHANGEITEMADDVALUE -1 1 + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，四星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 40
random 5
#ACT
ChangeItemUpgradeCount -1 = 50
CHANGEITEMADDVALUE -1 0 + 1
CHANGEITEMADDVALUE -1 1 + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，五星强化成功！攻击元素提升【<$STR(N$元素1)>】点.伤害减少提升【<$STR(N$元素2)>】点.
GOTO @Main
break


#IF
#ACT
;ReturnBoxItem 7
UpDateBoxItem 7
MESSAGEBOX \\很遗憾，升级失败.
break




[@其他升星]
#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 0
#ACT
ChangeItemUpgradeCount -1 = 10


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，一星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 10
#ACT
ChangeItemUpgradeCount -1 = 20


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，二星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 20
random 3
#ACT
ChangeItemUpgradeCount -1 = 30


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，三星强化成功！
GOTO @Main
break




#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 30
random 4
#ACT
ChangeItemUpgradeCount -1 = 40


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
UpDateBoxItem 7
MESSAGEBOX \\恭喜，四星强化成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 40
random 5
#ACT
ChangeItemUpgradeCount -1 = 50


CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> + 1
GoTo @元素随机增加
UpDateBoxItem 7
MESSAGEBOX \\恭喜，五星强化成功！随机获得了元素【<$STR(N$元素随机值)>】点.
GOTO @Main
break


#IF
#ACT
;ReturnBoxItem 7
UpDateBoxItem 7
MESSAGEBOX \\很遗憾，升级失败.
break


[@元素随机增加]
#IF
random 3
#ACT
MOVR N$元素随机值 1 4
SetNewItemValue -1 5 + <$STR(N$元素随机值)>
break


#IF
random 3
#ACT
MOVR N$元素随机值 1 4
SetNewItemValue -1 4 + <$STR(N$元素随机值)>
break


#IF
random 3
#ACT
MOVR N$元素随机值 1 4
SetNewItemValue -1 1 + <$STR(N$元素随机值)>
break


#IF
#ACT
MOVR N$元素随机值 1 4
SetNewItemValue -1 6 + <$STR(N$元素随机值)>
break










[@武器清除]
#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 10
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 1
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 20
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 2
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 30
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 3
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 40
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 4
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 50
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 5
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break






[@衣服清除]
#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 10
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 0 - 1
CHANGEITEMADDVALUE -1 1 - 1
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 20
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 0 - 2
CHANGEITEMADDVALUE -1 1 - 2
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break




#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 30
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 0 - 3
CHANGEITEMADDVALUE -1 1 - 3
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 40
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 0 - 4
CHANGEITEMADDVALUE -1 1 - 4
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 50
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 0 - 5
CHANGEITEMADDVALUE -1 1 - 5
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break






[@其他清除]
#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 10
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 1
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 20
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 2
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break




#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 30
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 3
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 40
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 4
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break


#IF
EQUAL <$BOXITEM[7].UPGRADECOUNT> 50
#ACT
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$STR(N$强化类别)> - 5
SetNewItemValue -1 1 = 0
SetNewItemValue -1 4 = 0
SetNewItemValue -1 5 = 0
SetNewItemValue -1 6 = 0
UpDateBoxItem 7
MESSAGEBOX \\星星属性清除成功！
GOTO @Main
break