GOM引擎装备融合攻魔道+HP属性脚本「完整版」

(@storage @getback)
[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 33 0 0 0 0 0 1 570 0
#SAY
<------------------------------------------/SCOLOR=229> <首饰融合/SCOLOR=9> <------------------------------------------/SCOLOR=229>\
\ \
<融合规则：/SCOLOR=70><(强化HP+2%.攻魔道+2%)/SCOLOR=9> <(战神HP+2%.攻魔道+2%)/SCOLOR=161> <(火龍HP+2%.攻魔道+2%)/SCOLOR=254>\
<融合规则：/SCOLOR=70><(巅峰HP+3%.攻魔道+3%)/SCOLOR=253><主框放置装备后 副框放置2个同系列装备。如背包有对应的融合石则100%成功 没对应的融合石则25%机率/SCOLOR=253>\
<Img:685:6:-6:4><Img:685:6:-241:4><Img:685:6:-395:4>\
<主框放入需要融合的首饰，融合成功或失败保留原装备与属性/SCOLOR=151>\
<副框放入任意同系列首饰，融合成功或失败扣除副框中的材料/SCOLOR=151>\
<Img:685:6:-6:4><Img:685:6:-241:4><Img:685:6:-395:4>\
;<强化费用：/SCOLOR=154>< 100积分  1万元宝 成功率25%/SCOLOR=154> <+ 强化融合石100%成功/SCOLOR=250>\
<战神费用：/SCOLOR=154>< 100积分  2万元宝 成功率25%/SCOLOR=154> <+ 战神融合石100%成功/SCOLOR=250>\
<火龍费用：/SCOLOR=154>< 500积分 10万元宝 成功率25%/SCOLOR=154> <+ 火龍融合石100%成功/SCOLOR=250>\
<巅峰费用：/SCOLOR=154><3000积分 40万元宝 成功率25%/SCOLOR=154> <+ 巅峰融合石100%成功/SCOLOR=250>\
<Img:685:6:-6:4><Img:685:6:-241:4><Img:685:6:-395:4>\
<温馨提示：脸黑也没关系，有保底成功，最高/SCOLOR=249> <5/SCOLOR=250> <次必成。/SCOLOR=249> \
<Img:685:6:-6:4><Img:685:6:-241:4><Img:685:6:-395:4>\
<主框：放入需要融合的首饰 -》/SCOLOR=250>    <ITEMBOX:0:33:5:2:3:20:20:*:放入需要融合的首饰>\
\ \
<Img:685:6:-6:4><Img:685:6:-241:4><Img:685:6:-395:4>\
<副框：放入任意同系列首饰 -》/SCOLOR=229>    <ITEMBOX:1:33:5:2:3:20:20:*:放入任意同系列首饰>       <ITEMBOX:2:33:5:2:3:20:20:*:放入任意同系列首饰>\
\ \
<Img:685:6:-6:4><Img:685:6:-241:4><Img:685:6:-395:4>\
　 <开始融合同类型装备/@开始融合>\




[@ItemIntoBox0]
#if
checklevelex > 0
#act
SetUpgradeItem 0
MOV N$融合点数 <$BOXITEM[0].PROGRESSBAR1.POSITION>


#if
large N$融合点数 4
#act
ReturnBoxItem 0
MESSAGEBOX 提示：此装备已经融合过了！
GOTO @首饰融合
break




#IF
NOT CHECKTEXTLIST ..\QuestDiary\青春QS功能\装备升级\首饰名称.txt <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 0
MESSAGEBOX 提示：只能融合战神-巅峰首饰！
GOTO @首饰融合
BREAK


#OR
CheckContainsText <$BOXITEM[0].NAME> 强化雷霆
CheckContainsText <$BOXITEM[0].NAME> 强化烈焰
CheckContainsText <$BOXITEM[0].NAME> 强化光芒
#ACT
MOV S$融合系列类别1 强化
MOV N$融合系列积分 100
MOV N$融合系列元宝 10000
MOV S$融合系列材料 强化融合石
MOV N$融合系列属性 2


#OR
CheckContainsText <$BOXITEM[0].NAME> 战神
CheckContainsText <$BOXITEM[0].NAME> 圣魔
CheckContainsText <$BOXITEM[0].NAME> 真魂
#ACT
MOV S$融合系列类别1 战神
MOV N$融合系列积分 100
MOV N$融合系列元宝 20000
MOV S$融合系列材料 战神融合石
MOV N$融合系列属性 2


#OR
CheckContainsText <$BOXITEM[0].NAME> 火龍
#ACT
MOV S$融合系列类别1 火龍
MOV N$融合系列积分 500
MOV N$融合系列元宝 100000
MOV S$融合系列材料 火龍融合石
MOV N$融合系列属性 2


#OR
CheckContainsText <$BOXITEM[0].NAME> 巅峰
#ACT
MOV S$融合系列类别1 巅峰
MOV N$融合系列积分 3000
MOV N$融合系列元宝 400000
MOV S$融合系列材料 巅峰融合石
MOV N$融合系列属性 3


[@ItemOutBox0]
#if
checklevelex > 0
#act
MOV S$融合系列类别1
MOV S$融合系列类别1
MOV S$融合系列类别1
MOV S$融合系列类别1
MOV N$融合系列积分 0
MOV N$融合系列元宝 0
MOV N$融合系列属性 0
MOV S$融合系列材料
ReturnBoxItem 1
ReturnBoxItem 2
GOTO @首饰融合


[@ItemIntoBox1]
#if
checklevelex > 0
#act
SetUpgradeItem 1


#IF
NOT CheckContainsText |165|171|177|193|199|205|221|231|266|268|269|166|172|178|194|200|206|222|232|271|272|167|173|179|195|201|207|223|233|168|174|180|196|202|208|224|234|169|175|181|198|204|210|225|235|170|176|182|197|203|209|226|236| |<$BOXITEM[1].INDEX>|
#ACT
ReturnBoxItem 1
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#IF
NOT CheckContainsText |15|19|26|22|64|62| |<$BOXITEM[1].STDMODE>|
#ACT
ReturnBoxItem 1
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#IF
equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 1
MESSAGEBOX 提示：请先在主框中放入装备！
break


#IF
NOT CHECKTEXTLIST ..\QuestDiary\青春QS功能\装备升级\首饰名称.txt <$BOXITEM[1].NAME>
#ACT
ReturnBoxItem 1
MESSAGEBOX 提示：只能放入战神-巅峰首饰！
GOTO @首饰融合
BREAK


#OR
CheckContainsText <$BOXITEM[1].NAME> 强化雷霆
CheckContainsText <$BOXITEM[1].NAME> 强化烈焰
CheckContainsText <$BOXITEM[1].NAME> 强化光芒
#ACT
MOV S$融合系列类别2 强化


#OR
CheckContainsText <$BOXITEM[1].NAME> 战神
CheckContainsText <$BOXITEM[1].NAME> 圣魔
CheckContainsText <$BOXITEM[1].NAME> 真魂
#ACT
MOV S$融合系列类别2 战神


#OR
CheckContainsText <$BOXITEM[1].NAME> 火龍
#ACT
MOV S$融合系列类别2 火龍


#OR
CheckContainsText <$BOXITEM[1].NAME> 巅峰
#ACT
MOV S$融合系列类别2 巅峰


#IF
equal <$STR(S$融合系列类别1)> <$STR(S$融合系列类别2)>
#ACT
#ELSEACT
ReturnBoxItem 1
MESSAGEBOX 提示：请放入同系列装备！
GOTO @首饰融合
BREAK


[@ItemOutBox1]
#if
checklevelex > 0
#act
MOV S$融合系列类别2
MOV S$融合系列类别2
MOV S$融合系列类别2
MOV S$融合系列类别2
GOTO @首饰融合


[@ItemIntoBox2]
#if
checklevelex > 0
#act
SetUpgradeItem 2


#IF
NOT CheckContainsText |165|171|177|193|199|205|221|231|266|268|269|166|172|178|194|200|206|222|232|271|272|167|173|179|195|201|207|223|233|168|174|180|196|202|208|224|234|169|175|181|198|204|210|225|235|170|176|182|197|203|209|226|236| |<$BOXITEM[2].INDEX>|
#ACT
ReturnBoxItem 2
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#IF
NOT CheckContainsText |15|19|26|22|64|62| |<$BOXITEM[2].STDMODE>|
#ACT
ReturnBoxItem 2
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#IF
equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 2
MESSAGEBOX 提示：请先在主框中放入装备！
break


#IF
NOT CHECKTEXTLIST ..\QuestDiary\青春QS功能\装备升级\首饰名称.txt <$BOXITEM[2].NAME>
#ACT
ReturnBoxItem 2
MESSAGEBOX 提示：只能放入战神-巅峰首饰！
GOTO @首饰融合
BREAK


#OR
CheckContainsText <$BOXITEM[2].NAME> 强化雷霆
CheckContainsText <$BOXITEM[2].NAME> 强化烈焰
CheckContainsText <$BOXITEM[2].NAME> 强化光芒
#ACT
MOV S$融合系列类别3 强化


#OR
CheckContainsText <$BOXITEM[2].NAME> 战神
CheckContainsText <$BOXITEM[2].NAME> 圣魔
CheckContainsText <$BOXITEM[2].NAME> 真魂
#ACT
MOV S$融合系列类别3 战神


#OR
CheckContainsText <$BOXITEM[2].NAME> 火龍
#ACT
MOV S$融合系列类别3 火龍


#OR
CheckContainsText <$BOXITEM[2].NAME> 巅峰
#ACT
MOV S$融合系列类别3 巅峰


#IF
equal <$STR(S$融合系列类别1)> <$STR(S$融合系列类别3)>
#ACT
#ELSEACT
ReturnBoxItem 2
MESSAGEBOX 提示：请放入同系列装备！
GOTO @首饰融合
BREAK


[@ItemOutBox2]
#if
checklevelex > 0
#act
MOV S$融合系列类别3
MOV S$融合系列类别3
MOV S$融合系列类别3
MOV S$融合系列类别3
GOTO @首饰融合


[@开始融合]
#OR
equal <$BOXITEM[0].NAME>
equal <$BOXITEM[1].NAME>
equal <$BOXITEM[2].NAME>
#ACT
MESSAGEBOX 提示：请先在装备框中放入装备和材料！
break


#IF
checkGameGird < <$STR(N$融合系列积分)>
#ACT
MESSAGEBOX 你的积分不足<$STR(N$融合系列积分)>，无法融合！
BREAK


#IF
CHECKGAMEGOLD < <$STR(N$融合系列元宝)>
#ACT
MESSAGEBOX 你的元宝不足<$STR(N$融合系列元宝)> ，无法融合！
BREAK


#if
checklevelex > 0
#act
SetUpgradeItem 1


#IF
NOT CheckContainsText |165|171|177|193|199|205|221|231|266|268|269|166|172|178|194|200|206|222|232|271|272|167|173|179|195|201|207|223|233|168|174|180|196|202|208|224|234|169|175|181|198|204|210|225|235|170|176|182|197|203|209|226|236| |<$BOXITEM[1].INDEX>|
#ACT
ReturnBoxItem 1
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#IF
NOT CheckContainsText |15|19|26|22|64|62| |<$BOXITEM[1].STDMODE>|
#ACT
ReturnBoxItem 1
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#if
checklevelex > 0
#act
SetUpgradeItem 2


#IF
NOT CheckContainsText |165|171|177|193|199|205|221|231|266|268|269|166|172|178|194|200|206|222|232|271|272|167|173|179|195|201|207|223|233|168|174|180|196|202|208|224|234|169|175|181|198|204|210|225|235|170|176|182|197|203|209|226|236| |<$BOXITEM[2].INDEX>|
#ACT
ReturnBoxItem 2
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#IF
NOT CheckContainsText |15|19|26|22|64|62| |<$BOXITEM[2].STDMODE>|
#ACT
ReturnBoxItem 2
goto @首饰融合
MESSAGEBOX 提示：请放入同系列装备！
break


#IF
checkGameGird ? <$STR(N$融合系列积分)>
CHECKGAMEGOLD ? <$STR(N$融合系列元宝)>
#ACT
GameGird - <$STR(N$融合系列积分)>
GAMEGOLD - <$STR(N$融合系列元宝)>
SetUpgradeItem 0
MOV N$融合点数 <$BOXITEM[0].PROGRESSBAR1.POSITION>
MOV S$融合状态 失败




#if
checkitem <$STR(S$融合系列材料)> 1
#act
TAKE <$STR(S$融合系列材料)> 1


MOV S$融合名字 <$BOXITEM[0].NAME>


CHANGECUSTOMITEMPROGRESSBAR -1 0 0 1
;修改自定义装备进度条属性显示模式为数值
CHANGECUSTOMITEMPROGRESSBAR -1 0 4 4
;修改自定义装备进度条名称
CHANGECUSTOMITEMPROGRESSBAR -1 0 1 融合值：
;修改自定义装备进度条最大值
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 1 = 5
;修改自定义装备进度条当前值
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 5
;修改自定义装备进度条名称颜色
CHANGECUSTOMITEMPROGRESSBAR -1 0 2 250


CHANGECUSTOMITEMTEXT -1 [融合属性]：
CHANGECUSTOMITEMTEXTCOLOR -1 254


CHANGECUSTOMITEMVALUE -1 0 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 0 0 154
CHANGECUSTOMITEMABIL -1 0 1 6
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 0 3 1




CHANGECUSTOMITEMVALUE -1 1 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 1 0 154
CHANGECUSTOMITEMABIL -1 1 1 7
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 1 3 1


CHANGECUSTOMITEMVALUE -1 2 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 2 0 70
CHANGECUSTOMITEMABIL -1 2 1 3
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 2 3 1


CHANGECUSTOMITEMVALUE -1 3 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 3 0 70
CHANGECUSTOMITEMABIL -1 3 1 4
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 3 3 1


CHANGECUSTOMITEMVALUE -1 4 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 4 0 70
CHANGECUSTOMITEMABIL -1 4 1 5
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 4 3 1
DELBOXITEM 1
DELBOXITEM 2
SETITEMEFFECT -1 188
UpDateBoxItem 0
SENDMOVEMSG 0 254 0 60 1 (*)服务大师：铛铛铛...灵光一显，“<$USERNAME>”将“<$STR(S$融合名字)>”成功融合，附加获得：“ＨＰ+<$STR(N$融合系列属性)>%、攻魔道+<$STR(N$融合系列属性)>%”属性加成！
ReturnBoxItem 0
break




#if
large N$融合点数 3
#act
MOV S$融合状态 成功




#IF
RANDOM 10
#ACT
MOV S$融合状态 成功




#if
equal <$STR(S$融合状态)> 成功
#act
MOV S$融合名字 <$BOXITEM[0].NAME>


CHANGECUSTOMITEMPROGRESSBAR -1 0 0 1
;修改自定义装备进度条属性显示模式为数值
CHANGECUSTOMITEMPROGRESSBAR -1 0 4 4
;修改自定义装备进度条名称
CHANGECUSTOMITEMPROGRESSBAR -1 0 1 融合值：
;修改自定义装备进度条最大值
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 1 = 5
;修改自定义装备进度条当前值
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 5
;修改自定义装备进度条名称颜色
CHANGECUSTOMITEMPROGRESSBAR -1 0 2 250


CHANGECUSTOMITEMTEXT -1 [融合属性]：
CHANGECUSTOMITEMTEXTCOLOR -1 254


CHANGECUSTOMITEMVALUE -1 0 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 0 0 154
CHANGECUSTOMITEMABIL -1 0 1 6
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 0 3 1




CHANGECUSTOMITEMVALUE -1 1 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 1 0 154
CHANGECUSTOMITEMABIL -1 1 1 7
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 1 3 1


CHANGECUSTOMITEMVALUE -1 2 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 2 0 70
CHANGECUSTOMITEMABIL -1 2 1 3
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 2 3 1


CHANGECUSTOMITEMVALUE -1 3 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 3 0 70
CHANGECUSTOMITEMABIL -1 3 1 4
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 3 3 1


CHANGECUSTOMITEMVALUE -1 4 = <$STR(N$融合系列属性)>
CHANGECUSTOMITEMABIL -1 4 0 70
CHANGECUSTOMITEMABIL -1 4 1 5
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 4 3 1
DELBOXITEM 1
DELBOXITEM 2
UpDateBoxItem 0
SETITEMEFFECT -1 188
SENDMSG 7 恭喜你，融合成功，快去背包查看装备吧！
SENDMOVEMSG 0 254 0 60 1 (*)服务大师：铛铛铛...灵光一显，“<$USERNAME>”将“<$STR(S$融合名字)>”成功融合，附加获得：“ＨＰ+<$STR(N$融合系列属性)>%、攻魔道+<$STR(N$融合系列属性)>%”属性加成！
ReturnBoxItem 0
break
#ELSEACT


CHANGECUSTOMITEMPROGRESSBAR -1 0 0 1
;修改自定义装备进度条属性显示模式为数值
CHANGECUSTOMITEMPROGRESSBAR -1 0 4 4
;修改自定义装备进度条名称
CHANGECUSTOMITEMPROGRESSBAR -1 0 1 融合值：
;修改自定义装备进度条最大值
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 1 = 5
;修改自定义装备进度条当前值
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
;修改自定义装备进度条名称颜色
CHANGECUSTOMITEMPROGRESSBAR -1 0 2 250


DELBOXITEM 1
DELBOXITEM 2
UpDateBoxItem 0


SENDMSG 6 对不起，融合失败，材料扣除！
BREAK

这个不错嘛