装备属性转移脚本

[@main]
<color=clFuchsia 极品属性转移:><color=clRed 可以把任何极品装备属性转移到身上的首饰中。>
<武 器极品属性转移/@武器> | <color=clFuchsia 当前佩戴武 器:>[ <$WEAPON> ]
<衣 服极品属性转移/@衣服> | <color=clFuchsia 当前佩戴衣 服:>[ <$DRESS> ]
<头 盔极品属性转移/@头盔> | <color=clFuchsia 当前佩戴头 盔:>[ <$HELMET> ]
<项 链极品属性转移/@项链> | <color=clFuchsia 当前佩戴项 链:>[ <$NECKLACE> ]
<右手镯极品属性转移/@右手镯> | <color=clFuchsia 当前佩戴右手镯:>[ <$ARMRING_R> ]
<左手镯极品属性转移/@左手镯> | <color=clFuchsia 当前佩戴左手镯:>[ <$ARMRING_L> ]
<右戒指极品属性转移/@右戒指> | <color=clFuchsia 当前佩戴右戒指:>[ <$RING_R> ]
<左戒指极品属性转移/@左戒指> | <color=clFuchsia 当前佩戴左戒指:>[ <$RING_L> ]
<color=clFuchsia 属性转移条件:><color=clRed 每次花费10元宝>


[@项链]
#IF
CHECKUSEITEM 3
#ACT
MOV S60 <$NECKLACE>
MOV S61 项链
MOV S62 NECKLACE
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 3
MOV M67 8
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[项链],不能属性转移。




[@左戒指]
#IF
CHECKUSEITEM 7
#ACT
MOV S60 <$RING_L>
MOV S61 左戒指
MOV S62 RING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 7
MOV M67 5
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[左戒指],不能属性转移。


[@右戒指]
#IF
CHECKUSEITEM 8
#ACT
MOV S60 <$RING_R>
MOV S61 右戒指
MOV S62 RING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 8
MOV M67 5
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[右戒指],不能属性转移。


[@左手镯]
#IF
CHECKUSEITEM 5
#ACT
MOV S60 <$ARMRING_L>
MOV S61 左手镯
MOV S62 ARMRING 
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 5
MOV M67 5
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[左手镯],不能属性转移。


[@右手镯]
#IF
CHECKUSEITEM 6
#ACT
MOV S60 <$ARMRING_R>
MOV S61 右手镯
MOV S62 ARMRING 
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 6
MOV M67 5
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[右手镯],不能属性转移。


[@头盔]
#IF
CHECKUSEITEM 4
#ACT
MOV S60 <$HELMET>
MOV S61 头盔
MOV S62 HELMET 
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 4
MOV M67 5
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[头盔],不能属性转移。




[@衣服]
#IF
CHECKUSEITEM 0
#ACT
MOV S60 <$DRESS>
MOV S61 衣服
MOV S62 DRESS
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 0
MOV M67 10
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[衣服],不能属性转移。


[@武器]
#IF
CHECKUSEITEM 1
#ACT
MOV S60 <$WEAPON>
MOV S61 武器
MOV S62 WEAPON
MOV M63 0
MOV M64 1
MOV M65 2
MOV M66 1
MOV M67 8
MOV M68 10
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[武器],不能属性转移。


[@选择区域]
<color=clFuchsia 属性转移条件:>已经选择[<$STR(S60)>]需要<$STR(M68)>元宝
<color=clAqua 你选择是将极品属性转移到当前佩戴><$STR(S61)>:[<$STR(S60)>]
  <确认开始极品属性转移/@转移>
<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)>
CHECKGAMEGOLD > <$STR(M68)>


#ACT
GAMEGOLD - <$STR(M68)>
MOV M60 0
MOV M61 0
MOV M62 0
GETDLGITEMVALUE M60 <$STR(M63)>
GETDLGITEMVALUE M61 <$STR(M64)>
GETDLGITEMVALUE M62 <$STR(M65)>
GETDLGITEMVALUE M59 <$STR(M67)>
TAKEDLGITEM
GMEXECUTE 改属性 <$STR(M66)> <$STR(M63)> <$STR(M60)>
GMEXECUTE 改属性 <$STR(M66)> <$STR(M64)> <$STR(M61)>
GMEXECUTE 改属性 <$STR(M66)> <$STR(M65)> <$STR(M62)>
GMEXECUTE 改属性 <$STR(M66)> <$STR(M67)> <$STR(M59)>
SendMSG 0 [属性转移]:恭喜[<$USERNAME>],成功转移属性到装备[<$STR(S80)>]上。 18 249
SendMSG 0 [属性转移]:恭喜[<$USERNAME>],成功转移属性到装备[<$STR(S80)>]上。 18 249
BREAK
CLOSE
#elseact
MessageBox [错误提示]:你放入的不是<$STR(S61)>,或者元宝不足10个。
break

原文地址:https://www.cnblogs.com/tutublogs/p/8461542.html