Blue引擎脚本-属性转移

GM版本库

[@main]
<color=clFuchsia 极品属性转移：><color=clRed 可以把任何极品装备属性转移到身上的首饰中。>\
<武  器免费极品属性转移/@武器>  <color=clFuchsia 当前佩戴武  器：>[ <$WEAPON> ]\
<衣  服免费极品属性转移/@衣服>  <color=clFuchsia 当前佩戴衣  服：>[ <$DRESS> ]\
<项  链免费极品属性转移/@项链>  <color=clFuchsia 当前佩戴项  链：>[ <$NECKLACE> ]\
<头  盔免费极品属性转移/@头盔>  <color=clFuchsia 当前佩戴头  盔：>[ <$HELMET> ]\
<右手镯免费极品属性转移/@右手镯>  <color=clFuchsia 当前佩戴右手镯：>[ <$ARMRING_R> ]\
<左手镯免费极品属性转移/@左手镯>  <color=clFuchsia 当前佩戴左手镯：>[ <$ARMRING_L> ]\
<右戒指免费极品属性转移/@右戒指>  <color=clFuchsia 当前佩戴右戒指：>[ <$RING_R> ]\
<左戒指免费极品属性转移/@左戒指>  <color=clFuchsia 当前佩戴左戒指：>[ <$RING_L> ]\ \ \
成功几率50%.无论成功失败，极品物品都将回收，身上装备都将保留！ \
成功几率50%.无论成功失败，极品物品都将回收，身上装备都将保留！ \
成功几率50%.无论成功失败，极品物品都将回收，身上装备都将保留！ \
成功几率50%.无论成功失败，极品物品都将回收，身上装备都将保留！ \
成功几率50%.无论成功失败，极品物品都将回收，身上装备都将保留！ \
[@左戒指]
#IF
CHECKUSEITEM 7
#ACT
MOV S60 <$RING_L>
MOV S61 左戒指
MOV S62 RING
MOV M73 2
MOV M74 3
MOV M75 4
MOV M76 7
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[左戒指]，不能属性转移。

[@右戒指]
#IF
CHECKUSEITEM 8
#ACT
MOV S60 <$RING_R>
MOV S61 右戒指
MOV S62 RING
MOV M73 2
MOV M74 3
MOV M75 4
MOV M76 8
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[右戒指]，不能属性转移。

[@左手镯]
#IF
CHECKUSEITEM 5
#ACT
MOV S60 <$ARMRING_L>
MOV S61 左手镯
MOV S62 ARMRING
MOV M73 2
MOV M74 3
MOV M75 4
MOV M76 5
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[左手镯]，不能属性转移。

[@右手镯]
#IF
CHECKUSEITEM 6
#ACT
MOV S60 <$ARMRING_R>
MOV S61 右手镯
MOV S62 ARMRING
MOV M73 2
MOV M74 3
MOV M75 4
MOV M76 6
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[右手镯]，不能属性转移。

[@头盔]
#IF
CHECKUSEITEM 4
#ACT
MOV S60 <$HELMET>
MOV S61 头盔
MOV S62 HELMET
MOV M73 2
MOV M74 3
MOV M75 4
MOV M76 4
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[头盔]，不能属性转移。

[@项链]
#IF
CHECKUSEITEM 3
#ACT
MOV S60 <$NECKLACE>
MOV S61 项链
MOV S62 NECKLACE
MOV M73 2
MOV M74 3
MOV M75 4
MOV M76 3
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[项链]，不能属性转移。


[@衣服]
#IF
CHECKUSEITEM 0
#ACT
MOV S60 <$DRESS>
MOV S61 衣服
MOV S62 DRESS
MOV M73 2
MOV M74 3
MOV M75 4
MOV M76 0
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[衣服]，不能属性转移。

[@武器]
#IF
CHECKUSEITEM 1
#ACT
MOV S60 <$WEAPON>
MOV S61 武器
MOV S62 WEAPON
MOV M73 0
MOV M74 1
MOV M75 2
MOV M76 1
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[武器]，不能属性转移。

[@选择区域]
<color=clAqua 你选择是将极品属性转移到当前佩戴><$STR(S61)>：[<$STR(S60)>]\
<color=clAqua 你选择是将极品属性转移到当前佩戴><$STR(S61)>：[<$STR(S60)>]\
<color=clAqua 你选择是将极品属性转移到当前佩戴><$STR(S61)>：[<$STR(S60)>]\ \
　 <确认开始极品属性转移/@转移>  <color=clRed 注：多次升级每升一次必须点一次确认>\ \
<color=clFuchsia 注意：><color=clRed 此操作将覆盖><$STR(S60)><color=clRed 已拥有的所有极品属性，幸运保留。>\
<color=clFuchsia 说明：><color=clRed 将OK框内的极品属性转移到>[<$STR(S60)>]。\
<color=clFuchsia 说明：><color=clRed OK框内的装备将被系统收回。><color=clYellow 请勿放入没有极品属性的装备>\



[@转移]
#IF
#ACT
QUERYITEMDLG 放入极品属性<$STR(S61)> @转移属性 0
break

[@转移属性]
#IF
CHECKDLGITEMTYPE <$STR(S62)>
#ACT
goto @分配
#elseact
MessageBox [错误提示]：你放入的不是<$STR(S61)>，请认真选择。
break

[@分配]
#IF
RANDOM 3
#ACT
TAKEDLGITEM
SendMSG 7 [失败提示]：转移失败.极品物品被收回！！
goto @转移
break
#IF
RANDOM 2
#ACT
TAKEDLGITEM
SendMSG 7 [失败提示]：转移失败.极品物品被收回！！
goto @转移
break
#IF
RANDOM 1
#ACT
MOV M70 0
MOV M71 0
MOV M72 0
GETDLGITEMVALUE M70 <$STR(M73)>
GETDLGITEMVALUE M71 <$STR(M74)>
GETDLGITEMVALUE M72 <$STR(M75)>
TAKEDLGITEM
GMEXECUTE 改属性 <$STR(M76)> <$STR(M73)> <$STR(M70)>
GMEXECUTE 改属性 <$STR(M76)> <$STR(M74)> <$STR(M71)>
GMEXECUTE 改属性 <$STR(M76)> <$STR(M75)> <$STR(M72)>
SendMSG 7 [成功提示]：恭喜你，成功转移属性！
SENDMSG 0 恭喜『%s』，成功转移极品属性，真是可喜可贺！极品转移完全免费！！！ 0 251 5
goto @转移
break
#IF
#ACT
TAKEDLGITEM
SendMSG 7 [失败提示]：转移失败.极品物品被收回！！
goto @转移
break