传奇一条龙技术如何给GOM引擎添加幸运攻击脚本

[@main]
#IF
CHECKLEVELEX > 0
#ACT
CloseBigDialogBox
#SAY
　<>\ \
　　<★幸运系统★/FCOLOR=70>  <强化成功还可随机赋予攻击伤害/FCOLOR=90>\
　　--------------------------------------\
　　<第一点幸运/FCOLOR=249>80%的成功率，100000元宝一次。     <开始洗练/@开始洗练>\
　　--------------------------------------\
　　<第二点幸运/FCOLOR=249>50%的成功率，300000元宝一次。\
　　--------------------------------------  <ITEMBOX:1:36:1422:11:-30:76:76:19:250#放入装备！特殊装备无法洗练>\
　　<第三点幸运/FCOLOR=249>30%的成功率，500000元宝一次。\
　　--------------------------------------\
　　<清洗当前身上项链所有属性：需要50万钻石/FCOLOR=249>      <开始清洗/@开始清洗> \


[@开始清洗]
#IF
EQUAL <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 请放入需要清洗的项链！
break

#IF
CHECKGAMEDIAMOND < 500000
#ACT
MESSAGEBOX 你没有50万钻石无法清洗属性！
break

#IF
CHECKLEVELEX > 0
#ACT
SetUpgradeItem 1
GAMEDIAMOND - 500000
CHANGEITEMADDVALUE -1 13 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
SetNewItemValue -1 1 = 0
MESSAGEBOX 恭喜你成功清洗了[<$BOXITEM[1].NAME>]的所有属性！
UpDateBoxItem 1
ReturnBoxItem 1
goto @main
break



[@开始洗练]
#IF
EQUAL <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 请放入需要洗练的项链！
break

#IF
CHECKLEVELEX > 0
#ACT
SetUpgradeItem 1

#IF
CHECKITEMADDVALUE -1 13 > 2
#ACT
MESSAGEBOX 你的项链洗练次数已经达到3次,无法继续洗练，请清洗后再来！
UpDateBoxItem 1
ReturnBoxItem 1
goto @main
break

#IF
CHECKITEMADDVALUE -1 1 > 2
#ACT
MESSAGEBOX 你的项链已经洗练了三点幸运了,请换条项链！
UpDateBoxItem 1
ReturnBoxItem 1
goto @main
break

#IF
CHECKITEMADDVALUE -1 1 = 0
CHECKGAMEGOLD < 100000
#ACT
MESSAGEBOX 升级项链第一点幸运需要100000元宝！
break

#IF
CHECKITEMADDVALUE -1 1 = 1
CHECKGAMEGOLD < 300000
#ACT
MESSAGEBOX 升级项链第二点幸运需要300000元宝！
break

#IF
CHECKITEMADDVALUE -1 1 = 2
CHECKGAMEGOLD < 500000
#ACT
MESSAGEBOX 升级项链第三点幸运需要500000元宝！
break

#IF
CHECKITEMADDVALUE -1 1 = 0
CHECKGAMEGOLD > 99999
#ACT
goto @第一点幸运
break

#IF
CHECKITEMADDVALUE -1 1 = 1
CHECKGAMEGOLD > 299999
#ACT
goto @第二点幸运
break

#IF
CHECKITEMADDVALUE -1 1 = 2
CHECKGAMEGOLD > 499999
#ACT
goto @第三点幸运
break

[@第一点幸运]
#IF
RANDOM 2
CHECKGAMEGOLD > 99999
#ACT
SetUpgradeItem 1
GAMEGOLD - 100000
MOVR N$幸运攻击 1 2
CHANGEITEMADDVALUE -1 13 + 1
CHANGEITEMADDVALUE -1 1 = 1
SetNewItemValue -1 1 + <$STR(N$幸运攻击)>
MESSAGEBOX 恭喜你成功为[<$BOXITEM[1].NAME>]洗练了第一点幸运!
UpDateBoxItem 1
goto @main
break
#ELSEACT
SetUpgradeItem 1
GAMEGOLD - 100000
MESSAGEBOX 很抱歉，你本次为[<$BOXITEM[1].NAME>]洗练第一点幸运失败了！
UpDateBoxItem 1
break

[@第二点幸运]
#IF
RANDOM 5
CHECKGAMEGOLD > 299999
#ACT
SetUpgradeItem 1
GAMEGOLD - 300000
MOVR N$幸运攻击 1 6
CHANGEITEMADDVALUE -1 13 + 1
CHANGEITEMADDVALUE -1 1 = 2
SetNewItemValue -1 1 + <$STR(N$幸运攻击)>
MESSAGEBOX 恭喜你成功为[<$BOXITEM[1].NAME>]洗练了第二点幸运!
UpDateBoxItem 1
goto @main
break
#ELSEACT
SetUpgradeItem 1
GAMEGOLD - 300000
MESSAGEBOX 很抱歉，你本次为[<$BOXITEM[1].NAME>]洗练第二点幸运失败了！
UpDateBoxItem 1
break

[@第三点幸运]
#IF
RANDOM 20
CHECKGAMEGOLD > 499999
#ACT
SetUpgradeItem 1
GAMEGOLD - 500000
MOVR N$幸运攻击 1 6
SetNewItemValue -1 1 + 6
CHANGEITEMADDVALUE -1 13 + 1
CHANGEITEMADDVALUE -1 1 = 3
SetNewItemValue -1 1 + <$STR(N$幸运攻击)>
MESSAGEBOX 恭喜你成功为[<$BOXITEM[1].NAME>]洗练了第三点幸运!
UpDateBoxItem 1
ReturnBoxItem 1
goto @main
break

#IF
RANDOM 15
CHECKGAMEGOLD > 499999
#ACT
SetUpgradeItem 1
GAMEGOLD - 500000
MOVR N$幸运攻击 1 6
SetNewItemValue -1 1 + 4
CHANGEITEMADDVALUE -1 13 + 1
CHANGEITEMADDVALUE -1 1 = 3
SetNewItemValue -1 1 + <$STR(N$幸运攻击)>
MESSAGEBOX 恭喜你成功为[<$BOXITEM[1].NAME>]洗练了第三点幸运!
UpDateBoxItem 1
ReturnBoxItem 1
goto @main
break

#IF
RANDOM 10
CHECKGAMEGOLD > 499999
#ACT
SetUpgradeItem 1
GAMEGOLD - 500000
MOVR N$幸运攻击 1 6
SetNewItemValue -1 1 + 2
CHANGEITEMADDVALUE -1 13 + 1
CHANGEITEMADDVALUE -1 1 = 3
SetNewItemValue -1 1 + <$STR(N$幸运攻击)>
MESSAGEBOX 恭喜你成功为[<$BOXITEM[1].NAME>]洗练了第三点幸运!
UpDateBoxItem 1
ReturnBoxItem 1
goto @main
break

#IF
RANDOM 8
CHECKGAMEGOLD > 499999
#ACT
SetUpgradeItem 1
GAMEGOLD - 500000
MOVR N$幸运攻击 1 6
CHANGEITEMADDVALUE -1 13 + 1
CHANGEITEMADDVALUE -1 1 = 3
SetNewItemValue -1 1 + <$STR(N$幸运攻击)>
MESSAGEBOX 恭喜你成功为[<$BOXITEM[1].NAME>]洗练了第三点幸运!
UpDateBoxItem 1
ReturnBoxItem 1
goto @main
break

#ELSEACT
SetUpgradeItem 1
GAMEGOLD - 500000
MESSAGEBOX 很抱歉，你本次为[<$BOXITEM[1].NAME>]洗练第三点幸运失败了！
UpDateBoxItem 1
break

真是难得给力的帖子啊。