裝備屬性轉移腳本

[@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