;;;QQ:67762207
[@zbsdd]
{
#SAY
 装备锁定,需要小号操作,可以让你装备更加安全,不会被偷，无密码是无法拿下来的\
 需要消耗你100点积分\
 <请输入你需要锁定装备人物的名字/@@输入锁定名字>

[@@输入锁定名字]
#ACT
MOV A0 %INPUTSTR
#IF
EQUAL A0 %USERNAME
#ACT
SYSMSG "对不起,不能输入自己的名字"
BREAK
#IF
EQUAL A0 ""
#ACT
SYSMSG "不能输入空信息"
BREAK
#ELSESAY
加锁解锁均消费{FCOLOR/1}100{FCOLOR/12}点积分\
 请选择你要{FCOLOR/10}锁定的装备{FCOLOR/12}(必须佩戴在身上的!)\
<项链/@锁定装备(3)> \
<左手镯/@锁定装备(5)> <右手镯/@锁定装备(6)>\ 
<右戒指/@锁定装备(8)>\ 
 请选择你要{FCOLOR/10}解锁的装备{FCOLOR/12}(必须佩戴在身上的!)\
<项链/@解锁装备(3)> \
<左手镯/@解锁装备(5)> <右手镯/@解锁装备(6)>\ 
<右戒指/@解锁装备(8)>\ 


[@锁定装备()]
#ACT
MOV D9 %ARG(1)
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
ReadValueSql "TBL_ITEM" %A9 "FLD_DESC9,FLD_CHARACTER" @锁定定

[@锁定定()]
#ACT
MOV D1 %ARG(1)
MOV A1 %ARG(2)
#IF
EQUAL A1 ""
#ACT
SYSMSG "对不起,该人物没有佩戴此样装备"
BREAK
#IF
EQUAL D1 1
#ACT
SYSMSG "该装备已经处于锁定装备,无须再锁!"
BREAK
#IF
   checkcmd CHECKUSERJF 100
#ACT
   actcmd SETUSERJF - 100
FormatStr "FLD_CHARACTER='%s'" %A0 
mov A5 %A9
 FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
mov A5 %A9
 FormatStr "FLD_DESC9='%s'" 1
 UPDATEVALUESQL "TBL_ITEM" %A5 %A9
sysmsg "锁定成功！"
CLOSE
#ELSESAY
积分不足!购买积分请联系GM~\

[@解锁装备()]
#ACT
MOV D9 %ARG(1)
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
ReadValueSql "TBL_ITEM" %A9 "FLD_DESC9,FLD_CHARACTER" @解锁锁

[@解锁锁()]
#ACT
MOV D1 %ARG(1)
MOV A1 %ARG(2)
#IF
EQUAL A1 ""
#ACT
SYSMSG "对不起,该人物没有佩戴此样装备"
BREAK
#IF
EQUAL D1 0
#ACT
SYSMSG "该装备已经处于解锁装备,无须再解!"
BREAK
#IF
   checkcmd CHECKUSERJF 100
#ACT
   actcmd SETUSERJF - 100
FormatStr "FLD_CHARACTER='%s'" %A0 
mov A5 %A9
 FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
mov A5 %A9
 FormatStr "FLD_DESC9='%s'" 0
 UPDATEVALUESQL "TBL_ITEM" %A5 %A9
sysmsg "解锁成功！"
CLOSE
BREAK
}
;;;QQ:67762207


