传3男女衣服互换脚本(保留原有属性)

[@衣服互换] 
{ 
#IF 
#SAY 
我的技术能让你的衣服{FCOLOR/14}保留所有的附加属性{FCOLOR/12}， 
却能让男的衣服换成女的衣服，或者把女的衣服换成男的衣服。 
请输入你这个账号里的需要{FCOLOR/14}男女衣服互换{FCOLOR/12}的人物名字！ 
注意，要男女衣服互换的{FCOLOR/10}衣服{FCOLOR/12}一定要放在人物的{FCOLOR/14}包里{FCOLOR/12}! 
{FCOLOR/1}而且包里不能同时有两件相同名称的衣服,不然会失败!{FCOLOR/12}\ 
 
[@@衣服互换名字] 
#ACT 
   mov A0 %INPUTSTR 
#IF 
   equal A0 "" 
#SAY 
_{FCOLOR/10}名字不可以为空！{FCOLOR/12}\ 
_ 
#ELSEACT 
goto @衣服互换可以 
[@衣服互换可以] 
#IF 
equal A0 %USERNAME 
#SAY 
_{FCOLOR/1}我不能给当前人物换衣服！{FCOLOR/12} 
_请用这个帐号的其他人物来进行操作！ 
 
#ACT 
break 
#IF   
#ACT 
     FormatStr "FLD_CHARACTER='%s'" %A0 
     ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_USERID"  [@衣服互换帐号] 
[@衣服互换帐号()] 
#ACT 
      Mov  A1  %ARG(1) 
      Mov  A2  %ARG(2) 
#IF 
     !Equal  A2  %USERID 
#SAY 
{FCOLOR/1}你确定和你是在一同一个帐号里？！\ 
 
#ACT 
break 
;;----开始----------------------------------------- 
#IF 
#SAY 
{FCOLOR/14}价格：{FCOLOR/12} 
{FCOLOR/10}男女衣服互换{FCOLOR/12}需要 200积分\ 
请选择你要换的衣服类型: 
 
\ 
 
\ 
 
\ 
 
\ 
 
\ 
 
[@要衣服互换()] 
#ACT 
MOV D5 %ARG(1) 
MOV D6 %ARG(2) 
MOV A5 %ARG(3) 
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s' AND FLD_INDEX='%s'" %A0 77 %D5 
ReadValueSql "TBL_ITEM" %A9 "FLD_INDEX,FLD_CHARACTER" [@衣服互换值] 
[@衣服互换值()] 
#IF 
#ACT 
MOV D3 %ARG(1) 
MOV A3 %ARG(2) 
#IF 
EQUAL A3 "" 
#SAY 
{FCOLOR/14}{FCOLOR/12}必须放在{FCOLOR/10}{FCOLOR/12}的{FCOLOR/10}包里{FCOLOR/12}！\ 
 
#ACT 
Break 
#IF 
!EQUAL D3 %D5 
#SAY 
{FCOLOR/10}{FCOLOR/12}包里放的不是{FCOLOR/10}{FCOLOR/12}哦！\ 
 
#ACT 
Break 
#IF 
!EQUAL A3 "" 
EQUAL D3 %D5 
#ACT 
     FormatStr "FLD_CHARACTER='%s'" %A0 
     ReadValueSql  "TBL_QUEST"  %A9  "FLD_CHARACTER,FLD_JIFEN" [@衣服互换积分] 
     mov  S1  3 
 
[@衣服互换积分()] 
#ACT 
      Mov  A4  %ARG(1) 
      Mov  D2  %ARG(2) 
#IF 
      Esmall D2  200 
#SAY 
需要{FCOLOR/1}200{FCOLOR/12}点积分，你没满足条件！\ 
 
#ACT 
Break 
#IF 
equal  S1  3 
#ACT 
     FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s' AND FLD_INDEX='%s'" %A0 77 %D5 
     Mov  A8  %A9 
     FormatStr "FLD_INDEX='%s'" %D6 
     UpDateValueSql "TBL_ITEM" %A8 %A9 
      
     FormatStr "FLD_CHARACTER='%s'" %A0 
     Mov  A8  %A9 
     Dec  D2  200 
     FormatStr "FLD_JIFEN='%s'" %D2 
     UpDateValueSql "TBL_QUEST" %A8 %A9 
      
     mov  S1  0 
     Break 
  #SAY 
_人物 {FCOLOR/14}{FCOLOR/12}的{FCOLOR/10}{FCOLOR/12}已经成功转换，属性不变! 
 
_您花费{FCOLOR/1}200{FCOLOR/12}点积分，剩余{FCOLOR/10}{FCOLOR/12}点积分 
_怎么样，我的技术还不错吧~欢迎下次光临\ 
_ 
}