GOM引擎提升项链脚本，项链升级至运5可获得暴击

9420Gm传奇论坛

[@MAIN]
#IF
#ACT
;OPENMERCHANTBIGDLG 15 710 0 0 0 0 1 433 5
OPENMERCHANTBIGDLG 8 4217 1 4 0 0 0 433 5
#say
<ImgEx:8:3289:3290:3291:440:-10/@EXIT>\ \ \ \
<>   <提升项链说明:项链升级至运5可获得暴击 高暴击项链可以让人物获得等级提升/SCOLOR=251>\
<>   <项链暴击详情:|^251#项链暴击8:人物等级+1  项链暴击9:人物等级+2  项链暴击10:人物等级+3/SCOLOR=249><>\
<>   <升级幸运请先将项链放入框内再升级/SCOLOR=71>　　　　　　   　   <【点击升级幸运】/@DS升级项链幸运><>\
<>   <升级幸运请先将项链放入框内再升级/SCOLOR=71>　　　　　　　      <【点击升级洗练】/@DS洗练项链幸运><>\
<>                          \
<>   <幸运升级：+1需2W元宝 +2需5W元宝 +3需10W元宝 +4需200钻石 +5需500钻石/SCOLOR=250><>\
<>   <幸运说明：人物幸运+10将发挥最佳攻击状态 洗练项链每次收取2000钻石/SCOLOR=250><>\
<>   <项链介绍：项链幸运+5随机获得1-10点暴击  幸运5项链可洗练，可转移 /SCOLOR=250><>\
<>   <被转移幸运须比接受转移装备幸运高/SCOLOR=71>　　　　　　　　　  　  <【点击转移】/@DS项链幸运转移><>\
<>   <转移幸运系统会收取2000元宝辛苦费/SCOLOR=71>　　　　　　　　　　　  <查看幸运加成|^251#幸运11增加倍攻0.10倍 幸运12增加倍攻0.15倍 幸运13增加倍攻0.20倍 幸运14增加倍攻0.25倍 幸运15增加倍攻0.30倍/SCOLOR=249><>\
<>       <ITEMBOX:2:15:711:216:-140:40:56:19,20:250#请放入项链：><>\
<><ITEMBOX:3:15:711:216:-59:56:56:19,20:250#请放入被转移的项链：><>\
<><ITEMBOX:4:15:711:270:-75:56:56:19,20:70#请放入接受转移项链：><>\

[@ItemIntoBox3]
#IF
#ACT
SetUpgradeItem 3

#IF
CHECKITEMADDVALUE -1 1 = 0
#ACT
ReturnBoxItem 3
MESSAGEBOX 　　　【操作失败：】\　\　　　你的项链都没有附加幸运，无法转移！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 0
#ACT
MOV N$DS0725项链幸运A 0

#IF
CHECKITEMADDVALUE -1 1 = 1
#ACT
MOV N$DS0725项链幸运A 1
MOV N$项链颜色 240

#IF
CHECKITEMADDVALUE -1 1 = 2
#ACT
MOV N$DS0725项链幸运A 2
MOV N$项链颜色 241

#IF
CHECKITEMADDVALUE -1 1 = 3
#ACT
MOV N$DS0725项链幸运A 3
MOV N$项链颜色 242

#IF
CHECKITEMADDVALUE -1 1 = 4
#ACT
MOV N$DS0725项链幸运A 4
MOV N$项链颜色 243

#IF
CHECKITEMADDVALUE -1 1 = 5
#ACT
MOV N$DS0725项链幸运A 5
MOV N$项链颜色 244
MOV N$DS0725ZYYS1 <$BOXITEM[3].VALUE1>

#IF
EQUAL <$BOXITEM[3].VALUE1> 8
#ACT
MOV N$修改持久 81000

#IF
EQUAL <$BOXITEM[3].VALUE1> 9
#ACT
MOV N$修改持久 82000

#IF
EQUAL <$BOXITEM[3].VALUE1> 10
#ACT
MOV N$修改持久 83000


[@ItemIntoBox4]
#IF
#ACT
SetUpgradeItem 4

#IF
CHECKITEMADDVALUE -1 1 = 5
#ACT
ReturnBoxItem 4
MESSAGEBOX 　　　【操作失败：】\　\　　　当前放入的项链已经是幸运+5，无法操作！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 0
#ACT
MOV N$DS0725项链幸运B 0

#IF
CHECKITEMADDVALUE -1 1 = 1
#ACT
MOV N$DS0725项链幸运B 1
MOV

#IF
CHECKITEMADDVALUE -1 1 = 2
#ACT
MOV N$DS0725项链幸运B 2

#IF
CHECKITEMADDVALUE -1 1 = 3
#ACT
MOV N$DS0725项链幸运B 3

#IF
CHECKITEMADDVALUE -1 1 = 4
#ACT
MOV N$DS0725项链幸运B 4

#IF
CHECKITEMADDVALUE -1 1 = 5
#ACT
MOV N$DS0725项链幸运B 5


[@DS项链幸运转移]
#IF
CHECKGAMEGOLD < 2000
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　元宝不足2000，无法转移幸运属性！！
BREAK

#IF
CheckBoxItemCount 3
CheckBoxItemCount 4
#ELSEACT
MESSAGEBOX 　　　【操作失败：】\　\　　　　　请先放入项链再进行无损转移！！
BREAK



#IF
CHECKGAMEGOLD > 1999
#ACT
GAMEGOLD - 2000
SetUpgradeItem 3
CHANGEITEMADDVALUE -1 1 = <$STR(N$DS0725项链幸运B)>
ChangeItemNameColor -1 239
CHANGEITEMADDVALUE -1 14 = 80000
SetNewItemValue -1 0 = 0
SetUpgradeItem 4
CHANGEITEMADDVALUE -1 1 = <$STR(N$DS0725项链幸运A)>
SetNewItemValue -1 0 = <$STR(N$DS0725ZYYS1)>
ChangeItemNameColor -1 <$str(N$项链颜色)>
CHANGEITEMADDVALUE -1 14 = <$str(N$修改持久)>
UpDateBoxItem 3
UpDateBoxItem 4
MESSAGEBOX 　　　【操作成功：】\　\　　　无损转移操作成功！！
BREAK




[@DS洗练项链幸运]
#IF
CheckBoxItemCount 2
#ACT
SetUpgradeItem 2
#ELSEACT
MESSAGEBOX 　　　【操作失败：】\　\　　　　　请先放入项链再洗练项链元素属性！！
BREAK


#IF
CHECKITEMADDVALUE -1 1 < 5
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　你的项链幸运没有达到5点，无法洗练！！
BREAK

#IF
CHECKGAMEDIAMOND < 2000
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　当前洗练需：2000钻石，你当前钻石不足！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 5
CHECKGAMEDIAMOND > 1999
#ACT
GAMEDIAMOND - 2000
GetRandomText ..\QuestDiary\项链暴击增加.txt S25
SetNewItemValue -1 0 = <$STR(S25)>
goto @检测数据
UpDateBoxItem 2
SENDMSG 7 恭喜您的项链已经重新洗练!
SENDMSG 7 您的项链洗练成功，附加暴击值为<$STR(S25)>%!
BREAK

[@DS升级项链幸运]
#IF
CheckBoxItemCount 2
#ACT
SetUpgradeItem 2
#ELSEACT
MESSAGEBOX 　　　【操作失败：】\　\　　　　　请先放入项链再提升幸运！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 5
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　项链已经满幸运了！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 4
CHECKGAMEDIAMOND < 500
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　钻石不足，现阶段提升项链幸运需要500钻石！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 3
CHECKGAMEDIAMOND < 200
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　钻石不足，现阶段提升项链幸运需要200钻石！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 2
CHECKGAMEGOLD < 100000
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　元宝不足，现阶段提升项链幸运需要100000元宝！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 1
CHECKGAMEGOLD < 50000
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　元宝不足，现阶段提升项链幸运需要50000元宝！！
BREAK

#IF
CHECKITEMADDVALUE -1 1 = 0
CHECKGAMEGOLD < 20000
#ACT
MESSAGEBOX 　　　【操作失败：】\　\　　　元宝不足，现阶段提升项链幸运需要20000元宝！！
BREAK


#IF
CHECKITEMADDVALUE -1 1 = 0
#act
goto @幸运1
break

#IF
CHECKITEMADDVALUE -1 1 = 1
#act
goto @幸运2
break


#IF
CHECKITEMADDVALUE -1 1 = 2
#act
goto @幸运3
break


#IF
CHECKITEMADDVALUE -1 1 = 3
#act
goto @幸运4
break


#IF
CHECKITEMADDVALUE -1 1 = 4
#act
goto @幸运5
break


[@幸运1]
#IF
CHECKITEMADDVALUE -1 1 = 0
CHECKGAMEGOLD > 19999
#ACT
GAMEGOLD - 20000
CHANGEITEMADDVALUE -1 1 + 1
ChangeItemNameColor -1 240
UpDateBoxItem 2
SENDMSG 7 恭喜：您的项链幸运值增加一点。
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
break

[@幸运2]
#if
random 2
#act
goto @跳2
#elseact
GAMEGOLD - 50000
SENDMSG 7 加幸运失败,你的运气真差。
BREAK

[@跳2]
#IF
CHECKITEMADDVALUE -1 1 = 1
CHECKGAMEGOLD > 49999
#ACT
GAMEGOLD - 50000
CHANGEITEMADDVALUE -1 1 + 1
ChangeItemNameColor -1 241
UpDateBoxItem 2
SENDMSG 7 恭喜：您的项链幸运值增加一点。
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
BREAK



[@幸运3]
#if
random 5
#act
goto @跳3
#elseact
GAMEGOLD - 100000
SENDMSG 7 加幸运失败,你的运气真差。
BREAK

[@跳3]
#IF
CHECKITEMADDVALUE -1 1 = 2
CHECKGAMEGOLD > 99999
#ACT
GAMEGOLD - 100000
CHANGEITEMADDVALUE -1 1 + 1
ChangeItemNameColor -1 242
UpDateBoxItem 2
SENDMSG 7 恭喜：您的项链幸运值增加一点。
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
BREAK




[@幸运4]
#if
random 10
#act
goto @跳4
#elseact
GAMEDIAMOND - 200
SENDMSG 7 加幸运失败,你的运气真差。
BREAK

[@跳4]
#IF
CHECKITEMADDVALUE -1 1 = 3
CHECKGAMEDIAMOND > 199
#ACT
GAMEDIAMOND - 200
CHANGEITEMADDVALUE -1 1 + 1
ChangeItemNameColor -1 243
UpDateBoxItem 2
SENDMSG 7 恭喜：您的项链幸运值增加一点。
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功提升了项链的幸运！！！
BREAK



[@幸运5]
#if
random 20
#act
goto @跳5
#elseact
GAMEDIAMOND - 500
SENDMSG 7 加幸运失败,你的运气真差。
BREAK


[@跳5]
#IF
CHECKITEMADDVALUE -1 1 = 4
CHECKGAMEDIAMOND > 499
#ACT
GAMEDIAMOND - 500
CHANGEITEMADDVALUE -1 1 + 1
ChangeItemNameColor -1 244
GetRandomText ..\QuestDiary\项链暴击增加.txt S25
SetNewItemValue -1 0 = <$STR(S25)>
goto @检测数据
UpDateBoxItem 2
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功{将他的『<$BOXITEM[2].NAME>』附加幸运提升到5点|253:0:1}！！
SENDMSG 5 幸运提升：恭喜【{<$USERNAME>|151:0:1}】成功{将他的『<$BOXITEM[2].NAME>』附加幸运提升到5点|253:0:1}！！
messagebox 恭喜：您的项链幸运值已经达到峰值。\恭喜：你的项链获得暴击增加<$STR(S25)>%。
SENDMSG 7 您的项链幸运属性已经增加!
SENDMSG 7 您的项链附加暴击增加<$STR(S25)>%!
BREAK



[@检测数据]
#If
small s25 8
#act
CHANGEITEMADDVALUE -1 14 = 80000


#If
equal s25 8
#act
CHANGEITEMADDVALUE -1 14 = 81000

#If
equal s25 9
#act
CHANGEITEMADDVALUE -1 14 = 82000

#If
equal s25 10
#act
CHANGEITEMADDVALUE -1 14 = 83000

mysky999

楼主发贴辛苦了，谢谢楼主分享！我觉得9420Gm论坛是注册对了！