传奇SF-装备的一个属性转移脚本实例！

2017 年 11 月 16 日

11799 次浏览

4269字数

()
%100
[@main]
<color=clFuchsia 极品属性转移：><color=clRed 可以把祖玛装备以上属性转移到身上的首饰中。>\
<武  器极品属性转移/@武器> | <color=clFuchsia 当前佩戴武器：>  [ <$WEAPON> ]\
<头  盔极品属性转移/@头盔> | <color=clFuchsia 当前佩戴头盔：>  [ <$HELMET> ]\
<左手镯极品属性转移/@右手镯> | <color=clFuchsia 当前佩戴左手镯：>[ <$ARMRING_R> ]\
<右手镯极品属性转移/@左手镯> | <color=clFuchsia 当前佩戴右手镯：>[ <$ARMRING_L> ]\
<左戒指极品属性转移/@右戒指> | <color=clFuchsia 当前佩戴左戒指：>[ <$RING_R> ]\
<右戒指极品属性转移/@左戒指> | <color=clFuchsia 当前佩戴右戒指：>[ <$RING_L> ]\
<腰  带极品属性转移/@腰带> | <color=clFuchsia 当前佩戴腰带：>  [ <$BELT> ]\
<靴  子极品属性转移/@靴子> | <color=clFuchsia 当前佩戴靴子：>  [ <$BOOTS> ]\
<color=clFuchsia 属性转移条件：><color=clRed 每次花费1000元宝，武器2000元宝，原装备消失！>\
[@武器]
#IF
CHECKUSEITEM 1
#ACT
MOV S60 <$WEAPON>
MOV S61 武器
MOV S62 WEAPON
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 5
MOV M66 3
MOV M67 8
MOV M68 1000
DELAYCALL 5 @选择区域1
#elseact
MessageBox [错误提示]：你没有穿戴任何[武器]，不能属性转移。

[@左戒指]
#IF
CHECKUSEITEM 7
#ACT
MOV S60 <$RING_L>
MOV S61 左戒指
MOV S62 RING
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 7
MOV M67 5
MOV M68 1000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[左戒指]，不能属性转移。
[@右戒指]
#IF
CHECKUSEITEM 8
#ACT
MOV S60 <$RING_R>
MOV S61 右戒指
MOV S62 RING
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 8
MOV M67 5
MOV M68 1000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[右戒指]，不能属性转移。
[@左手镯]
#IF
CHECKUSEITEM 5
#ACT
MOV S60 <$ARMRING_L>
MOV S61 左手镯
MOV S62 ARMRING 
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 5
MOV M67 5
MOV M68 1000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[左手镯]，不能属性转移。
[@右手镯]
#IF
CHECKUSEITEM 6
#ACT
MOV S60 <$ARMRING_R>
MOV S61 右手镯
MOV S62 ARMRING 
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 6
MOV M67 5
MOV M68 1000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[右手镯]，不能属性转移。
[@头盔]
#IF
CHECKUSEITEM 4
#ACT
MOV S60 <$HELMET>
MOV S61 头盔
MOV S62 HELMET 
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 4
MOV M67 5
MOV M68 1000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[头盔]，不能属性转移。
[@靴子]
#IF
CHECKUSEITEM 11
#ACT
MOV S60 <$BOOTS>
MOV S61 靴子
MOV S62 BOOTS
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 11
MOV M67 10
MOV M68 1000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[靴子]，不能属性转移。
[@腰带]
#IF
CHECKUSEITEM 10
#ACT
MOV S60 <$BELT>
MOV S61 腰带
MOV S62 BELT
MOV M70 0
MOV M71 1
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 10
MOV M67 8
MOV M68 1000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[腰带]，不能属性转移。





[@选择区域1]
<color=clFuchsia 属性转移条件：>已经选择[<$STR(S60)>]需要<$STR(M68)>元宝\ \
<color=clAqua 你选择是将极品属性转移到当前佩戴><$STR(S61)>：[<$STR(S60)>]\ \
　 <确认开始极品属性转移/@转移1>\ \
<color=clFuchsia 注意：><color=clRed 此操作将覆盖><$STR(S60)><color=clRed 已拥有的所有极品属性。>\
<color=clFuchsia 说明：><color=clRed 将OK框内的极品属性转移到>[<$STR(S60)>]。\
<color=clFuchsia 说明：><color=clRed OK框内的装备将被系统收回。><color=clYellow 请勿放入没有极品属性的装备>\


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


[@转移属性1]
#IF
CheckStringList .\QuestDiary\属性转移\装备名字.txt $STR(S60)
CHECKDLGITEMTYPE <$STR(S62)>
CHECKGAMEGOLD > 1999
#ACT
GAMEGOLD - 2000
MOV M60 0
MOV M61 0
MOV M62 0
MOV M72 0
MOV M73 0
GETDLGITEMVALUE M60 <$STR(M63)>
GETDLGITEMVALUE M61 <$STR(M64)>
GETDLGITEMVALUE M62 <$STR(M65)>
GETDLGITEMVALUE M72 <$STR(M70)>
GETDLGITEMVALUE M73 <$STR(M71)>
TAKEDLGITEM
GMEXECUTE Supermake <$STR(M66)> <$STR(M63)> <$STR(M60)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M64)> <$STR(M61)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M65)> <$STR(M62)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M70)> <$STR(M72)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M71)> <$STR(M73)>
BREAK
CLOSE
#elseact
MessageBox [错误提示]：你放入的不是<$STR(S61)>，或者元宝不足2000个。
break










[@选择区域]
<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
CheckStringList .\QuestDiary\属性转移\装备名字.txt $STR(S60)
CHECKDLGITEMTYPE <$STR(S62)>
CHECKGAMEGOLD > <$STR(M68)>
#ACT
GAMEGOLD - <$STR(M68)>
MOV M60 0
MOV M61 0
MOV M62 0
MOV M72 0
MOV M73 0
GETDLGITEMVALUE M60 <$STR(M63)>
GETDLGITEMVALUE M61 <$STR(M64)>
GETDLGITEMVALUE M62 <$STR(M65)>
GETDLGITEMVALUE M72 <$STR(M70)>
GETDLGITEMVALUE M73 <$STR(M71)>
TAKEDLGITEM
GMEXECUTE Supermake <$STR(M66)> <$STR(M63)> <$STR(M60)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M64)> <$STR(M61)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M65)> <$STR(M62)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M70)> <$STR(M72)>
GMEXECUTE Supermake <$STR(M66)> <$STR(M71)> <$STR(M73)>
BREAK
CLOSE
#elseact
MessageBox [错误提示]：你放入的不是<$STR(S61)>，或者元宝不足1000个。
break