[Convert]

[@积分系统主菜单_0]
{
I Refuse to Speak to a Nasty Person like yourself.\ \
<Exit/@exit>
}

[@积分系统主菜单_1]
{
_You are good, here is{FCOLOR/14}Integral system{FCOLOR/12}。\
_Here provides the service all needs to use the certain integral\\

<How obtains the integral/@如何获得积分1>\
<Opens the integral system/@积分查询1>\
<Integral inquiry/@积分查询1>\
<Exchange integral/@积分兑换1>\
<Red Char Shout/@红字喊话1>\
<Char Restore/@人物恢复1>\
<New Books/@鉴定新书1>\
<Rent Pet/@购买宝宝1>\
<Eliminates red/@清除红名1>\
<Super Teleport/@超级传送1>\
<Send Integral/@新人积分1>\
<Engrave name/@装备刻名1>\
<Clothes dyeing/@衣服染色1>\
<Exchange equipment/@兑换装备1>\\
<Exit/@exit>       


;;========================================================================================================
[@如何获得积分1]
#say
Plays each monster to be able Randomly to blow out {FCOLOR/10}Integral volume{FCOLOR/12} {FCOLOR/10}Integral lottery ticket{FCOLOR/12} {FCOLOR/10}High-level integral lottery ticket{FCOLOR/12} 3 kind of reels\
然后在我这里可以兑换相应的积分！\\
_{FCOLOR/14}积分兑换表{FCOLOR/12}\\
一个    {FCOLOR/10}积分卷{FCOLOR/12}    = {FCOLOR/1}1{FCOLOR/12} 点积分\
一个   {FCOLOR/10}积分彩票{FCOLOR/12}   = {FCOLOR/1}0 ~ 100{FCOLOR/12} 点积分（随机）\
一个 {FCOLOR/10}高级积分彩票{FCOLOR/12} = {FCOLOR/1}0 ~ 200{FCOLOR/12} 点积分（随机）\\
当然也可以从管理员那里<购买积分/@购买积分>！\
<返回积分系统/@main>
[@购买积分]
#say
_{FCOLOR/14}购买积分价格表{FCOLOR/14} \\
_{FCOLOR/10} ￥  1.00 {FCOLOR/12} = {FCOLOR/1}  10{FCOLOR/12} 点积分\
_{FCOLOR/10} ￥ 10.00 {FCOLOR/12} = {FCOLOR/1} 100{FCOLOR/12} 点积分\
_{FCOLOR/10} ￥ 50.00 {FCOLOR/12} = {FCOLOR/1} 520{FCOLOR/12} 点积分\
_{FCOLOR/10} ￥100.00 {FCOLOR/12} = {FCOLOR/1}1100{FCOLOR/12} 点积分\\
我们使用银行汇款方式\
请到当地{FCOLOR/10}中国工商银行{FCOLOR/12}进行汇款\
卡号：   {FCOLOR/10}9558 8023 1710 1604 672{FCOLOR/12}\
帐户名： {FCOLOR/10}于顺华{FCOLOR/12}\
汇款时请多汇一个零头以便区分，\
比如买100元，可以汇100.51\
汇款后请和我们的客服{FCOLOR/10}QQ：45836304{FCOLOR/12}联系。\
以便及时获得积分.\\
<返回积分系统/@main>


;;========================================================================================================
[@积分查询1]
#ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_OK,FLD_USERID"  [@Point_Loading]

[@Point_Loading()]
  #IF
  #ACT
      mov       D1   %ARG(1)   
      mov       D2   %ARG(2)  
      mov       A8   %ARG(3)  
      FormatStr "FLD_USERID='%s'" %USERID  
      mov       A0   %A9

  #IF                       
      Equal  A8   ""       
  #ACT
      FormatStr "%s,%s,%s," 0 0 0    
      mov A1 %A9
      FormatStr "'%s'" %USERID  
      AddStr A1 %A9
      WriteValueSql  "TBL_RELATPOINT" %A0 "FLD_POINT,FLD_CURRENTPOINT,FLD_OK,FLD_USERID" %A1      
      break
  #SAY
{FCOLOR/11}你的游戏积分系统已经开启！{FCOLOR/12}\
你游戏帐号目前还剩余 {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12} 点积分!\\
<关闭/@exit>\\
  #ELSESAY
你的游戏帐号 {FCOLOR/10}<$OUTPUT(A8)>{FCOLOR/12} 还剩余 {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12} 点积分!\\
<关闭/@exit>\\

;;========================================================================================================
[@积分兑换1]
  #IF
    checkitem 高级积分彩票 1
  #say
你需要兑换 {FCOLOR/14}高级积分彩票{FCOLOR/12} 吗？\\
<兑换/@高级积分彩票兑换>  <不兑换/@exit>\\
  #act
        break
  #IF
    checkitem 积分彩票 1
  #say
你需要兑换 {FCOLOR/14}积分彩票{FCOLOR/12} 吗？\\
<兑换/@积分彩票兑换>  <不兑换/@exit>\\
  #act
        break
  #IF
    checkitem 积分卷 1
  #say
你需要兑换 {FCOLOR/14}积分卷{FCOLOR/12} 吗？\\
您可以批量兑换{FCOLOR/10}积分卷{FCOLOR/12}。\
<兑换/@积分卷兑换> <批量兑换/@积分卷批量兑换> <不兑换/@exit>\\
  #ELSESAY
没有点卷来干什么？\\
<关闭/@exit>\\
[@积分卷兑换]
#IF
    checkitem 积分卷 1
#ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@Point_Add111]

#ELSESAY
你没有足够的 {FCOLOR/14}积分卷{FCOLOR/12}\\
<关闭/@exit>\\

[@Point_Add111()]
 #IF  
 #ACT
   mov    D1      %ARG(1)
   mov    A0      %ARG(2)
 #IF
   Equal  A0   ""       
 #ACT
   goto @积分查询1
   break
 #IF
   checkitem 积分卷 1
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A8       %A9
   INC   D1       1
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9
   take 积分卷 1
 #SAY
你的游戏帐号 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} 还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分!\\
这次你兑换了 {FCOLOR/14}1{FCOLOR/12} 点积分!\\
<继续兑换/@积分卷兑换>\
<关闭/@EXIT>\
#ELSESAY
你没有足够的{FCOLOR/14}积分卷{FCOLOR/12}\\
<关闭/@exit>\\

[@积分卷批量兑换]
#IF
    checkitem 积分卷 100
#ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@Point_Add1112]

#ELSESAY
你没有{FCOLOR/10}100{FCOLOR/12}个 {FCOLOR/14}积分卷{FCOLOR/12}\\
<关闭/@exit>\\

[@Point_Add1112()]
 #IF  
 #ACT
   mov    D1      %ARG(1)
   mov    A0      %ARG(2)
 #IF
   Equal  A0   ""       
 #ACT
   goto @积分查询1
   break
 #IF
   checkitem 积分卷 100
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A8       %A9
   INC   D1       100
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9
   take 积分卷 100
 #SAY
你的游戏帐号 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} 还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分!\\
这次你兑换了 {FCOLOR/14}100{FCOLOR/12} 点积分!\\
<继续兑换/@积分卷批量兑换>\
<关闭/@EXIT>\
#ELSESAY
你批量兑换的{FCOLOR/14}积分卷{FCOLOR/12}不足{FCOLOR/10}100{FCOLOR/12}个。\\
<关闭/@exit>\\

[@积分彩票兑换]
#IF
    checkitem 积分彩票 1
#ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@Point_Add222]

#ELSESAY
你没有足够的 {FCOLOR/14}积分彩票{FCOLOR/12}\\
<关闭/@exit>\\

[@Point_Add222()]
 #IF  
 #ACT
   mov    D1      %ARG(1)
   mov    A0      %ARG(2)
   movr   D0      101 
 #IF
   Equal  A0   ""       
 #ACT
   goto @积分查询1
   break
 #IF
   checkitem 积分彩票 1
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A8       %A9
   inc   D1       %D0
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9
   take 积分彩票 1
 #SAY
你的游戏帐号 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} 还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分!\\
这次你兑换了 {FCOLOR/14}<$OUTPUT(D0)>{FCOLOR/12} 点积分!\\
<继续兑换/@积分彩票兑换>\
<关闭/@EXIT>\
#ELSESAY
你没有足够的{FCOLOR/14}积分彩票{FCOLOR/12}\\
<关闭/@exit>\\

[@高级积分彩票兑换]
#IF
    checkitem 高级积分彩票 1
#ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@高级积分彩票兑换]

#ELSESAY
你没有足够的 {FCOLOR/14}高级积分彩票{FCOLOR/12}\\
<关闭/@exit>\\

[@高级积分彩票兑换()]
 #IF  
 #ACT
   mov    D1      %ARG(1)
   mov    A0      %ARG(2)
   movr   D0      201 
 #IF
   Equal  A0   ""       
 #ACT
   goto @高级积分查询
   break
 #IF
   checkitem 高级积分彩票 1
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A8       %A9
   inc   D1       %D0
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9
   take 高级积分彩票 1
 #SAY
你的游戏帐号 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} 还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分!\\
这次你兑换了 {FCOLOR/14}<$OUTPUT(D0)>{FCOLOR/12} 点积分!\\
<继续兑换/@高级积分彩票兑换>\
<关闭/@EXIT>\
#ELSESAY
你没有足够的{FCOLOR/14}高级积分彩票{FCOLOR/12}\\
<关闭/@exit>\\

;;========================================================================================================
[@红字喊话1]
#if
checklevel 40
#say
发红字是不是很酷啊！？\
想和GM一样发下红字吗？\
{FCOLOR/10}1点积分发一次，来试试吧！{FCOLOR/12}\\
 <使用/@红字喊话密码>
#elsesay
发红字是不是很酷啊！？\
想和GM一样发下红字吗？\
{FCOLOR/10}1点积分发一次，来试试吧！{FCOLOR/12}\\
<你的等级还不行，需要40级才可以用此功能/@exit>


;;--------------------------------------------密码检测
[@红字喊话密码]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@红字喊话说明>\\
<设定新密码/@@*Change_stgpasswd红字喊话>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\\
<使用/@Input_PassWord红字喊话>\
<密码修改/@xiugai_password红字喊话>

[@@*Change_stgpasswd红字喊话]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd红字喊话>\

[@@*confirm_passwd红字喊话]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord红字喊话]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@红字喊话说明>\\
<设定新密码/@@*Change_stgpasswd红字喊话>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd红字喊话>

[@@*11_Input_stgpasswd红字喊话]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@红字喊话说明>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password红字喊话]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@红字喊话说明>\\
<设定新密码/@@*Change_stgpasswd红字喊话>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password红字喊话>\

[@@*11_xiugai_password红字喊话]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password>\\

[@@*22_xiugai_password红字喊话]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2红字喊话>\

[@@*22_xiugai_password2红字喊话]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;----------------------------------------红字喊话开始
[@红字喊话说明]
#say
此功能很简单\
只要在对话框输入你要发的话就可以了\
{FCOLOR/10}红字发出后自动扣除1点积分！{FCOLOR/10}\\
<请输入你要发的内容/@@红字喊话内容>

[@@红字喊话内容]
#ACT
   mov  A0  %INPUTSTR
   mov  A8  %USERNAME
          Delaygoto [local] 5 @进行喊喊
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@进行喊喊]
#act
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@红字喊话检测]

[@红字喊话检测()]
#ACT
   mov    D1      %ARG(1)
   mov    A1      %ARG(2)
 #IF
   Equal  A1   ""       
 #ACT
   goto @积分查询
   break
 #IF
   elarge D1 1
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D1       1
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
   LoadValue A2 [Convert_Def\Market_Def\event\Shout.txt] [Shout] [Msg1]
   LineMsg  "Grobal"  %A2
#SAY
_{FCOLOR/10}消息发送成功！{FCOLOR/12}\\
_你花费了 {FCOLOR/10}1点{FCOLOR/12} 点积分.你还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分！\\
<关闭/@EXIT>\
 #ELSESAY
{FCOLOR/1}你没有足够的积分!{FCOLOR/10}\\
<关闭/@exit>\\

;;========================================================================================================
[@人物恢复1]
;;--------------------------------------------密码检测
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用>\\
<设定新密码/@@*Change_stgpasswd>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\\
<使用/@Input_PassWord>\
<密码修改/@xiugai_password>

[@@*Change_stgpasswd]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd>\

[@@*confirm_passwd]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用>\\
<设定新密码/@@*Change_stgpasswd>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd>

[@@*11_Input_stgpasswd]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@开始使用>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用>\\
<设定新密码/@@*Change_stgpasswd>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password>\

[@@*11_xiugai_password]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password>\\

[@@*22_xiugai_password]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2>\

[@@*22_xiugai_password2]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;----------------------------------------人物恢复开始
[@开始使用]
#say
_这里可以恢复你删除的人物！\
_恢复一次需要花费 {FCOLOR/10}2点{FCOLOR/12} 积分\\
_{FCOLOR/1}你确定现在还可以建立一个人物否则出现问题后果自负！ {FCOLOR/12}\\
_{FCOLOR/10}注意：如果中途取消恢复一样扣除2点积分{FCOLOR/12}\\
_<恢复人物/@huifu>   <关闭/@exit>

[@huifu]
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@Point_DEL]

[@Point_DEL()]
 #ACT
   mov    D1      %ARG(1)
   mov    A4      %ARG(2)
 #IF
   Equal  A4   ""       
 #ACT
   goto @积分查询
   break
 #IF
   elarge D1 2
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D1       2
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
   goto @恢复1
 #ELSESAY
你没有足够的积分!\\
<关闭/@exit>\\

[@恢复1]
#say
_{FCOLOR/1}你确定现在还可以建立一个人物否则出现问题后果自负！ {FCOLOR/12}\\
_{FCOLOR/10}请输入你希望恢复的人物名字{FCOLOR/12}\\

_<输入人物名字/@@mingzi>   <关闭/@exit>

[@@mingzi]
#ACT
   mov  A0  %INPUTSTR
   FormatStr "FLD_CHARACTER='%s'" %A0
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_DELETED,FLD_CHARACTER"  [@DEL]

[@DEL()]
#ACT
   mov    A2      %ARG(1)
   mov    A1      %ARG(2)
   goto @mingzijiance

[@mingzijiance]
#IF
   equal  A1 ""
#say
_你确定人物名字是 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} 吗？\\
_<关闭/@exit>
#act
break

#IF
   !equal  A1 %A0
#say
_你确定人物名字是 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} 吗？\\
_<关闭/@exit>
#act
break

#if
   equal  A1 %A0
   equal  A2 "0"
#say
_你确定人物 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} 被删除了吗？\\
_<关闭/@exit>
#act
break

#if
   equal  A1 %A0
   equal  A2 "1"
#say
_你确定要恢复人物 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} 吗？\\
_<恢复/@恢复> <关闭/@exit>
#act
break

[@恢复]
#say
_{FCOLOR/1}你确定现在还可以建立一个人物否则出现问题后果自负！ {FCOLOR/12}\\
_<确定恢复/@恢复2>

[@恢复2]
#IF
#ACT
   FormatStr "FLD_CHARACTER='%s'" %A0
   mov   A8       %A9
   mov   A3       0
   FormatStr "FLD_DELETED='%s'" %A3
   UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
   break
#SAY
_你已经把人物 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} 恢复了.\\
_你花费了 {FCOLOR/10}2点{FCOLOR/12} 点积分.你还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分！\\
<关闭/@EXIT>\

;;========================================================================================================
[@鉴定新书1]
#say
{FCOLOR/11}此服务不收取积分！{FCOLOR/12}\
{FCOLOR/10}有新技能书吗？我可以帮你鉴定!\
不过我保证一定鉴定成功!{FCOLOR/12}\
如果部分技能不能修炼,就是服务器主程序暂时不支持...\
<战士新书/@战士新书>\
<法师新书/@法师新书>\
<道士新书/@道士新书>\
<返回积分系统/@main>
[@战士新书]
#say
<鉴定 DSurge/@鉴定开始(DSurge,DSurge（秘籍）)>\
<鉴定 Interchange/@鉴定开始(Interchange,Interchange（秘籍）)>\
<鉴定 铁布衫/@鉴定开始(铁布衫,铁布衫（秘籍）)>\
<鉴定 Beacon/@鉴定开始(Beacon,Beacon（秘籍）)>\
<鉴定 Defiance/@鉴定开始(Defiance,Defiance（秘籍）)>\
<返回/@坚定新书>

[@法师新书]
#say
<鉴定 GtFrozeEarth/@鉴定开始(GtFrozeEarth,GtFrozeEarth（秘籍）)>\
<鉴定 ChainLight/@鉴定开始(ChainLight,ChainLight（秘籍）)>\
<鉴定 MeteorShower/@鉴定开始(MeteorShower,MeteorShower（秘籍）)>\
<鉴定 Renounce/@鉴定开始(Renounce,Renounce（秘籍）)>\
<返回/@坚定新书>

[@道士新书]
#say
<鉴定 Purification/@鉴定开始(Purification,Purification（秘籍）)>\
<鉴定 Strength/@鉴定开始(Strength,Strength（秘籍）)>\
<鉴定 Transparency/@鉴定开始(Transparency,Transparency（秘籍）)>\
<鉴定 Celestial/@鉴定开始(Celestial,Celestial（秘籍）)>\
<返回/@坚定新书>

[@鉴定开始()]
  #ACT
	  Mov        A1       %ARG(1)
	  Mov        A2       %ARG(2)
          movr       D0       0       ;;-------调整成功率，数字越大成功率越低
  #IF
       Equal D0 0
       checkitem %A1 1
  #say
这是武功秘诀<$OUTPUT(A2)>，请拿着吧！江湖是很冷酷的地方。\
你千万要专心于一个领域。如果不如此，不要说天下绝世武功，\
就是成为一名真正的人都很困难。江湖呀。。\\
  <关闭/@exit>
  #ACT
       take   %A1   1
       give   %A2   1
       break
  #IF
       !Equal D0 0
       checkitem %A1 1
  #act
       take   %A1   1
  #say
难道你是说让我解释如此陈旧的书吗。书不是都破碎了嘛。\
请拿像样的书来，像样的书！！\
 {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12} 鉴定失败！\\
  <关闭/@exit>
  #IF
  #say
在可以证明你有得到武功秘籍的实力之前，我是不能给您进行指导的。\
请首先找到<$OUTPUT(A1)>书籍。\\
  <关闭/@exit>
  #act
   break

;;========================================================================================================
[@购买宝宝1]
#say
城外的宝宝不好吗？那就来我这里看看\
我买的宝宝可以用24小时哦！\\
{FCOLOR/10}不同的宝宝需要积分也不一样{FCOLOR/10}\\
<使用/@购买宝宝密码>

;;--------------------------------------------密码检测
[@购买宝宝密码]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@购买宝宝说明>\\
<设定新密码/@@*Change_stgpasswd购买宝宝>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\\
<使用/@Input_PassWord购买宝宝>\
<密码修改/@xiugai_password购买宝宝>

[@@*Change_stgpasswd购买宝宝]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd购买宝宝>\

[@@*confirm_passwd购买宝宝]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord购买宝宝]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@购买宝宝说明>\\
<设定新密码/@@*Change_stgpasswd购买宝宝>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd购买宝宝>

[@@*11_Input_stgpasswd购买宝宝]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@购买宝宝说明>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password购买宝宝]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@购买宝宝说明>\\
<设定新密码/@@*Change_stgpasswd购买宝宝>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password购买宝宝>\

[@@*11_xiugai_password购买宝宝]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password购买宝宝>\\

[@@*22_xiugai_password购买宝宝]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2购买宝宝>\

[@@*22_xiugai_password2购买宝宝]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;----------------------------------------超级购买宝宝开始
[@购买宝宝说明]
#SAY
<EvilCaptain（0级）          [12点积分]/@超级购买宝宝(EvilCaptain,24,12,0)>\
<EvilCaptain（1级）          [13点积分]/@超级购买宝宝(EvilCaptain,24,13,1)>\
<EvilCaptain（2级）          [14点积分]/@超级购买宝宝(EvilCaptain,24,14,2)>\
<EvilCaptain（3级）          [15点积分]/@超级购买宝宝(EvilCaptain,24,15,3)>\
<EvilCaptain（4级）          [16点积分]/@超级购买宝宝(EvilCaptain,24,16,4)>\
<EvilCaptain（5级）          [17点积分]/@超级购买宝宝(EvilCaptain,24,17,5)>\
<EvilCaptain（6级）          [18点积分]/@超级购买宝宝(EvilCaptain,24,18,6)>\
<EvilCaptain（7级）          [19点积分]/@超级购买宝宝(EvilCaptain,24,19,7)>\\
<LightGladiator（0级）        [11点积分]/@超级购买宝宝(LightGladiator,24,11,0)>\
<LightGladiator（1级）        [12点积分]/@超级购买宝宝(LightGladiator,24,12,1)>\
<LightGladiator（2级）        [13点积分]/@超级购买宝宝(LightGladiator,24,13,2)>\
<LightGladiator（3级）        [14点积分]/@超级购买宝宝(LightGladiator,24,14,3)>\
<LightGladiator（4级）        [15点积分]/@超级购买宝宝(LightGladiator,24,15,4)>\
<LightGladiator（5级）        [16点积分]/@超级购买宝宝(LightGladiator,24,16,5)>\
<LightGladiator（6级）        [17点积分]/@超级购买宝宝(LightGladiator,24,17,6)>\
<LightGladiator（7级）        [18点积分]/@超级购买宝宝(LightGladiator,24,18,7)>\\
<MinotaurChief（0级）          [10点积分]/@超级购买宝宝(MinotaurChief,24,10,0)>\
<MinotaurChief（1级）          [11点积分]/@超级购买宝宝(MinotaurChief,24,11,1)>\
<MinotaurChief（2级）          [12点积分]/@超级购买宝宝(MinotaurChief,24,12,2)>\
<MinotaurChief（3级）          [13点积分]/@超级购买宝宝(MinotaurChief,24,13,3)>\
<MinotaurChief（4级）          [14点积分]/@超级购买宝宝(MinotaurChief,24,14,4)>\
<MinotaurChief（5级）          [15点积分]/@超级购买宝宝(MinotaurChief,24,15,5)>\
<MinotaurChief（6级）          [16点积分]/@超级购买宝宝(MinotaurChief,24,16,6)>\
<MinotaurChief（7级）          [17点积分]/@超级购买宝宝(MinotaurChief,24,17,7)>\\
<WhiteBoar（0级）            [9点积分]/@超级购买宝宝(WhiteBoar,24,9,0)>\
<WhiteBoar（1级）            [10点积分]/@超级购买宝宝(WhiteBoar,24,10,1)>\
<WhiteBoar（2级）            [11点积分]/@超级购买宝宝(WhiteBoar,24,11,2)>\
<WhiteBoar（3级）            [12点积分]/@超级购买宝宝(WhiteBoar,24,12,3)>\
<WhiteBoar（4级）            [13点积分]/@超级购买宝宝(WhiteBoar,24,13,4)>\
<WhiteBoar（5级）            [14点积分]/@超级购买宝宝(WhiteBoar,24,14,5)>\
<WhiteBoar（6级）            [15点积分]/@超级购买宝宝(WhiteBoar,24,15,6)>\
<WhiteBoar（7级）            [16点积分]/@超级购买宝宝(WhiteBoar,24,16,7)>\\
<八脚首领（0级）          [8点积分]/@超级购买宝宝(八脚首领,24,8,0)>\
<八脚首领（1级）          [9点积分]/@超级购买宝宝(八脚首领,24,9,1)>\
<八脚首领（2级）          [10点积分]/@超级购买宝宝(八脚首领,24,10,2)>\
<八脚首领（3级）          [11点积分]/@超级购买宝宝(八脚首领,24,11,3)>\
<八脚首领（4级）          [12点积分]/@超级购买宝宝(八脚首领,24,12,4)>\
<八脚首领（5级）          [13点积分]/@超级购买宝宝(八脚首领,24,13,5)>\
<八脚首领（6级）          [14点积分]/@超级购买宝宝(八脚首领,24,14,6)>\
<八脚首领（7级）          [15点积分]/@超级购买宝宝(八脚首领,24,15,7)>\\
<GreatTongs （0级）         [7点积分]/@超级购买宝宝(GreatTongs,24,7,0)>\
<GreatTongs （1级）         [8点积分]/@超级购买宝宝(GreatTongs,24,8,1)>\
<GreatTongs （2级）         [9点积分]/@超级购买宝宝(GreatTongs,24,9,2)>\
<GreatTongs （3级）         [10点积分]/@超级购买宝宝(GreatTongs,24,10,3)>\
<GreatTongs （4级）         [11点积分]/@超级购买宝宝(GreatTongs,24,11,4)>\
<GreatTongs （5级）         [12点积分]/@超级购买宝宝(GreatTongs,24,12,5)>\
<GreatTongs （6级）         [13点积分]/@超级购买宝宝(GreatTongs,24,13,6)>\
<GreatTongs （7级）         [14点积分]/@超级购买宝宝(GreatTongs,24,14,7)>\\
<GtNumaMonk（0级）            [6点积分]/@超级购买宝宝(GtNumaMonk,24,6,0)>\
<GtNumaMonk（1级）            [7点积分]/@超级购买宝宝(GtNumaMonk,24,7,1)>\
<GtNumaMonk（2级）            [8点积分]/@超级购买宝宝(GtNumaMonk,24,8,2)>\
<GtNumaMonk（3级）            [9点积分]/@超级购买宝宝(GtNumaMonk,24,9,3)>\
<GtNumaMonk（4级）            [10点积分]/@超级购买宝宝(GtNumaMonk,24,10,4)>\
<GtNumaMonk（5级）            [11点积分]/@超级购买宝宝(GtNumaMonk,24,11,5)>\
<GtNumaMonk（6级）            [12点积分]/@超级购买宝宝(GtNumaMonk,24,12,6)>\
<GtNumaMonk（7级）            [13点积分]/@超级购买宝宝(GtNumaMonk,24,13,7)>\\
<ApeKing（0级）            [5点积分]/@超级购买宝宝(ApeKing,24,5,0)> \
<ApeKing（1级）            [6点积分]/@超级购买宝宝(ApeKing,24,6,1)> \
<ApeKing（2级）            [7点积分]/@超级购买宝宝(ApeKing,24,7,2)> \
<ApeKing（3级）            [8点积分]/@超级购买宝宝(ApeKing,24,8,3)> \
<ApeKing（4级）            [9点积分]/@超级购买宝宝(ApeKing,24,9,4)> \
<ApeKing（5级）            [10点积分]/@超级购买宝宝(ApeKing,24,10,5)> \
<ApeKing（6级）            [11点积分]/@超级购买宝宝(ApeKing,24,11,6)> \
<ApeKing（7级）            [12点积分]/@超级购买宝宝(ApeKing,24,12,7)> \ \
<关闭/@exit>

[@超级购买宝宝()]
  #ACT
	  Mov        A1       %ARG(1)
	  Mov        N1       %ARG(2)
	  Mov        N2       %ARG(3)
	  Mov        N3       %ARG(4)
          Delaygoto [local] 5 @进行宝
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@进行宝]
#act
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@购买宝宝检测]

[@购买宝宝检测()]
#ACT
   mov    D0      %ARG(1)
   mov    A4      %ARG(2)
 #IF
   Equal  A4   ""       
 #ACT
   goto @积分查询
   break
 #IF
   elarge D0 %N2
   checkmonRecall
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D0       %N2
   mov   D8       %D0
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
   MonRecall  %A1      %N1        %N3
  #SAY
		已成功完成租用 {FCOLOR/1}<$OUTPUT(A1)>{FCOLOR/12} 等级为{FCOLOR/1}<$OUTPUT(N3)>级{FCOLOR/12} 。。 \ \
你花费了 {FCOLOR/10}<$OUTPUT(N2)>{FCOLOR/12} 点积分.你还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分！\\
<关闭/@exit>\\

 #ELSESAY
{FCOLOR/1}你没有足够的积分，或者你已经阻用了宝宝！{FCOLOR/10}\\
<关闭/@exit>\\

;;========================================================================================================
[@清除红名1]
#say
要清红名吗？\
{FCOLOR/10}这个服务需要积分的哦！{FCOLOR/12}\
{FCOLOR/10}需要的积分点根据杀的人数决定！{FCOLOR/12}\\
{FCOLOR/1}我不能帮你清当前人物，\
你可以用这个帐号的另一个人物来清!{FCOLOR/12}\\
<使用/@使用清除红名>

[@使用清除红名]
;;---------------------------------------密码检测
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始清除红名>\\
<设定新密码/@@*Change_stgpasswd_清除红名>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\
<使用/@Input_PassWord_清除红名>\
<密码修改/@xiugai_password_清除红名>

[@@*Change_stgpasswd_清除红名]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd_清除红名>\

[@@*confirm_passwd_清除红名]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord_清除红名]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始清除红名>\\
<设定新密码/@@*Change_stgpasswd_清除红名>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd_清除红名>

[@@*11_Input_stgpasswd_清除红名]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@开始清除红名>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password_清除红名]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始清除红名>\\
<设定新密码/@@*Change_stgpasswd_清除红名>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password_清除红名>\

[@@*11_xiugai_password_清除红名]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password_清除红名>\\

[@@*22_xiugai_password_清除红名]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2_清除红名>\

[@@*22_xiugai_password2_清除红名]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;-----------------------------------------清除红名
[@开始清除红名]
#say
请输入你这个帐号里的红名的人物名字!\\
<输入红名名字/@@红名名字>

[@@红名名字]
#ACT
   mov  A0  %INPUTSTR
#IF
   equal A0 %USERNAME
#SAY
_{FCOLOR/1}我不能对清除当前游戏里的人物红名！\
_请用这个帐号的其他人物来清除！{FCOLOR/12}\\
<关闭/@exit>
#act
break
#IF
#ACT
   FormatStr "FLD_CHARACTER='%s'" %A0
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_PKPOINT,FLD_CHARACTER"  [@Point_PKPOINT_红名]

[@Point_PKPOINT_红名()]
  #IF
  #ACT
      mov       D1   %ARG(1)   
      mov       A8   %ARG(2)  
  #IF
      elarge  D1 1000       
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有10个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}20{FCOLOR/12} 点积分！\\
<清除/@进行清除红(20)>
  #act
    break

  #IF
      elarge D1 900
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有9个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}18{FCOLOR/12} 点积分！\\
<清除/@进行清除红(18)>
  #act
    break

  #IF
      elarge D1 800
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有6个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}16{FCOLOR/12} 点积分！\\
<清除/@进行清除红(16)>
  #act
    break

  #IF
      elarge D1 700
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有7个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}14{FCOLOR/12} 点积分！\\
<清除/@进行清除红(14)>
  #act
    break

  #IF
      elarge D1 600
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有6个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}12{FCOLOR/12} 点积分！\\
<清除/@进行清除红(12)>
  #act
    break

  #IF
      elarge D1 500
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有5个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}10{FCOLOR/12} 点积分！\\
<清除/@进行清除红(10)>
  #act
    break

  #IF
      elarge D1 400
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有4个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}8{FCOLOR/12} 点积分！\\
<清除/@进行清除红(8)>
  #act
    break

  #IF
      elarge D1 300
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有3个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}6{FCOLOR/12} 点积分！\\
<清除/@进行清除红(6)>
  #act
    break

  #IF
      elarge D1 200
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有2个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}4{FCOLOR/12} 点积分！\\
<清除/@进行清除红(4)>
  #act
    break

  #IF
      large D1 100
  #SAY
{FCOLOR/1}<$OUTPUT(A0)>杀的最少也有1个人了，\
看<$OUTPUT(A0)>的名字是不是和这个字一样红{FCOLOR/12}\
你清红名需要花费 {FCOLOR/10}2{FCOLOR/12} 点积分！\\
<清除/@进行清除红(2)>

 #ELSESAY
 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}没有红名!\\
<关闭/@exit>\\

[@进行清除红()]
  #ACT
	  Mov        D0       %ARG(1)
          Delaygoto [local] 5 @进行红红
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@进行红红]
#act
   FormatStr "FLD_CHARACTER='%s'" %A0
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_USERID"  [@进行清除红2]

[@进行清除红2()]
  #ACT
        mov    A1      %ARG(1)
        mov    A2      %ARG(2)
  #IF
      !Equal  A2  %USERID
  #SAY
_{FCOLOR/1}我只能清除你帐号里人物红名！\
_你确定你输入的人物是这个帐号的吗？{FCOLOR/12}\\
<关闭/@exit>
#act
break
  #IF
  #ACT
     FormatStr "FLD_USERID='%s'" %USERID
     ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@清除红名检测积分]

[@清除红名检测积分()]
 #ACT
   mov    D9      %ARG(1)
   mov    A4      %ARG(2)
  #IF
     Equal  A4   ""       
  #ACT
     goto @积分查询
     break
  #IF
     elarge D9 %D0
  #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D9       %D0
   mov   D8       %D9
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
;;---------------------------------------------------清红
   FormatStr "FLD_CHARACTER='%s'" %A0
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_PKPOINT,FLD_CHARACTER"  [@Point_清红ing]
  #ELSESAY
    {FCOLOR/1}你的积分点不够。。{FCOLOR/12} \ \
		<关  闭/@exit>

[@Point_清红ing()]
  #ACT
        mov    A7      %ARG(1)
        mov    A5      %ARG(2)
   FormatStr "FLD_CHARACTER='%s'" %A0
        mov   A5      %A9
        mov   A7      0
   FormatStr "FLD_PKPOINT='%s'" %A7
   UPDATEVALUESQL "TBL_CHARACTER" %A5 %A9
  #SAY
_人物 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} 已经白名了!\\
_你花费了 {FCOLOR/10}<$OUTPUT(D0)>{FCOLOR/12} 点积分.你还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分！\\
      <关  闭/@exit>

;;========================================================================================================
[@超级传送1]
#say
勇士你好，我可以把你直接传送到怪物老巢！\
不过我不能保证那里的安全，\
也不一定可以把你送到门口！\
{FCOLOR/10}我的服务是收取积分的，不同的地方需要积分也不一样{FCOLOR/10}\\
<使用/@超级传送密码>

;;--------------------------------------------密码检测
[@超级传送密码]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@超级传送说明>\\
<设定新密码/@@*Change_stgpasswd传送>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\\
<使用/@Input_PassWord传送>\
<密码修改/@xiugai_password传送>

[@@*Change_stgpasswd传送]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd传送>\

[@@*confirm_passwd传送]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord传送]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@超级传送说明>\\
<设定新密码/@@*Change_stgpasswd传送>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd传送>

[@@*11_Input_stgpasswd传送]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@超级传送说明>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password传送]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@超级传送说明>\\
<设定新密码/@@*Change_stgpasswd传送>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password传送>\

[@@*11_xiugai_password传送]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password传送>\\

[@@*22_xiugai_password传送]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2传送>\

[@@*22_xiugai_password2传送]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;----------------------------------------超级传送开始
[@超级传送说明]
#say
<荒漠               [1点积分]/@开始超级传送(D002,107,160,1,荒漠)>\
<生死关             [1点积分]/@开始超级传送(D805,21,21,1,生死关)>\
<蚂蚁洞穴北部       [1点积分]/@开始超级传送(D401,11,49,1,蚂蚁洞穴北部)>\
<蚂蚁洞穴南部       [1点积分]/@开始超级传送(D402,122,14,1,蚂蚁洞穴南部)>\
<蚂蚁洞穴西部       [1点积分]/@开始超级传送(D403,160,24,1,蚂蚁洞穴西部)>\
<蚂蚁洞穴东部       [1点积分]/@开始超级传送(D404,9,24,1,蚂蚁洞穴东部)>\
<比奇洞穴3层        [1点积分]/@开始超级传送(D103,231,123,1,比奇洞穴3层)>\
<Phantom Forest洞穴3        [1点积分]/@开始超级传送(D113,252,234,1,Phantom Forest洞穴3)>\
<石阁庙一层         [1点积分]/@开始超级传送(D701,195,118,1,石阁庙一层)>\
<石阁庙三层         [2点积分]/@开始超级传送(D703,191,46,2,石阁庙三层)>\
<沃玛神殿3层        [1点积分]/@开始超级传送(D503,220,53,1,沃玛神殿3层)>\
<沃玛神殿           [3点积分]/@开始超级传送(D504,51,49,3,沃玛神殿)>\
<潘夜洞穴3          [1点积分]/@开始超级传送(D123,266,58,1,潘夜洞穴3)>\
<潘夜石窟5          [2点积分]/@开始超级传送(D605,195,351,2,潘夜石窟5)>\
<祖玛神殿5          [2点积分]/@开始超级传送(D1105,111,144,2,祖玛神殿5)>\
<赤月山谷4层        [3点积分]/@开始超级传送(D904,92,284,3,赤月山谷4层)>\
<潘夜神殿           [4点积分]/@开始超级传送(D1012,54,48,4,潘夜神殿)>\
<真天宫5层          [2点积分]/@开始超级传送(D1205,72,297,2,真天宫5层)>\
<诺玛遗址五层       [3点积分]/@开始超级传送(D1505,312,185,3,诺玛遗址五层)>\
<神舰入口           [2点积分]/@开始超级传送(D1401,128,170,2,神舰入口)>\
<关闭/@exit>

[@开始超级传送()]
  #ACT
	  Mov        A1       %ARG(1)
	  Mov        A2       %ARG(2)
	  Mov        A3       %ARG(3)
	  Mov        D1       %ARG(4)
	  Mov        A7       %ARG(5)
          Delaygoto [local] 5 @进行送送
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@进行送送]
#act
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@超级传送检测]

[@超级传送检测()]
#ACT
   mov    D0      %ARG(1)
   mov    A4      %ARG(2)
 #IF
   Equal  A4   ""       
 #ACT
   goto @积分查询
   break
 #IF
   elarge D0 %D1
 #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D0       %D1
   mov   D8       %D0
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
     mapmove %A1 %A2 %A3
  SysMsg  "<$OUTPUT(A7)>到了。你花费了 <$OUTPUT(D1)> 点积分.你还剩余 <$OUTPUT(D8)> 点积分！"
  break
 #ELSESAY
{FCOLOR/1}你没有足够的积分!{FCOLOR/10}\\
<关闭/@exit>\\

;;========================================================================================================
[@新人积分1]
#if
checklevel 45
#say
{FCOLOR/10}积分随机送,号号都有份！ {FCOLOR/12}\
每个帐号只可以获赠一次积分！\
积分只可本帐号使用，不可转送他人！\\
<获赠积分/@新人积分兑换(31)>\
#ELSESAY
等你等级到了45级在来领取吧！
<关闭/@exit>

[@新人积分兑换()]
  #ACT
	  Mov        N1       %ARG(1)
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_CHECK,FLD_USERID"  [@新人积分兑换add]

[@新人积分兑换add()]
  #ACT
        mov    D1      %ARG(1)
        mov    D2      %ARG(2)
        mov    A4      %ARG(3)
  #IF
     Equal  A4   ""       
 #say
你还没有开启积分系统！\
请先开启积分系统后再使用此功能！\\
<开启积分系统/@积分查询>
     #act
     break
  #IF
     !Equal  D2   "1"       
  #ACT
   movr  D0 %N1
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   mov   D9       1
   FormatStr "FLD_CHECK='%s'" %D9
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_CHECK,FLD_USERID"  [@新人积分兑换2add]

  #elsesay
{FCOLOR/10}一个帐号只可以免费兑换一次！\
你的帐号已经兑换，请查询！ {FCOLOR/12}\\
<关闭/@exit>

[@新人积分兑换2add()] 
  #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   INC   D1       %D0
   mov   D3       %D1
   FormatStr "FLD_POINT='%s'" %D3
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
  #SAY
_恭喜你获赠了 {FCOLOR/1}<$OUTPUT(D0)>{FCOLOR/12} 点积分.\\
_你的帐号 {FCOLOR/10}<$OUTPUT(A4)>{FCOLOR/12} 还剩余 {FCOLOR/1}<$OUTPUT(D3)>{FCOLOR/12} 点积分！\\
      <关  闭/@exit>

;;========================================================================================================
[@装备刻名1]
#if
checklevel 48
#say
我这里可以给任何装备刻名字！\
{FCOLOR/10}此服务需要5点积分{FCOLOR/12}\
请把要刻名字的装备装备在身上，\
然后下线，用这个帐号的另一个人物上来使用此服务！\\
<我要刻名/@刻名密码检测>\\
#ELSESAY
此功能需要等级{FCOLOR/10}48级{FCOLOR/12}才可以使用！\\
<关闭/@exit>
;;--------------------------------------------密码检测
[@刻名密码检测]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用刻名>\\
<设定新密码/@@*Change_stgpasswd刻名>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\\
<使用/@Input_PassWord刻名>\
<密码修改/@xiugai_password刻名>

[@@*Change_stgpasswd刻名]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd刻名>\

[@@*confirm_passwd刻名]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord刻名]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用刻名>\\
<设定新密码/@@*Change_stgpasswd刻名>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd刻名>

[@@*11_Input_stgpasswd刻名]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@开始使用刻名>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password刻名]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用刻名>\\
<设定新密码/@@*Change_stgpasswd刻名>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password刻名>\

[@@*11_xiugai_password刻名]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password刻名>\\

[@@*22_xiugai_password刻名]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2刻名>\

[@@*22_xiugai_password2刻名]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;----------------------------------------刻名开始
[@开始使用刻名]
#say
_你要刻名字的装备现在在那个人物身上？\
_{FCOLOR/10}请先输入佩带了此装备的人物名字！{FCOLOR/12}\\
_<输入名称/@@刻名字人物>\
_<关闭/@exit>

[@@刻名字人物]
#ACT
   mov  A0  %INPUTSTR
#IF
   equal A0 %USERNAME
#SAY
_{FCOLOR/1}请下线后用此帐号的另一个号进行此操作！{FCOLOR/12}\\
<关闭/@exit>
#act
break
#IF
#ACT
   FormatStr "FLD_CHARACTER='%s'" %A0
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_USERID"  [@同号检查]

[@同号检查()]
  #IF
  #ACT
      mov       A1   %ARG(1)   
      mov       A2   %ARG(2)   
  #IF
   equal A1 %A0
   equal A2 %USERID    
  #SAY
{FCOLOR/10}请选择你要对那种装备刻名字：{FCOLOR/12}\\
<武器/@刻刻(1,武器)>\
<头盔/@刻刻(4,头盔)>  <项链/@刻刻(3,项链)>\
<衣服/@刻刻(0,衣服)>  <鞋子/@刻刻(10,鞋子)>\
<手镯（左）/@刻刻(5,手镯（左）)>  <手镯（右）/@刻刻(6,手镯（右）)>\
<戒指（左）/@刻刻(7,戒指（左）)>  <戒指（右）/@刻刻(8,戒指（右）)>\\
<关闭/@exit>\
  #elsesay
{FCOLOR/1}你确定<$OUTPUT(A0)>和你是在一同一个帐号里？！\\
<重新输入/@@刻名字人物>\\
<关闭/@exit>\

;---------------------------------------------------------------
[@刻刻()]
  #ACT
	  Mov        D0       %ARG(1)
	  Mov        A3       %ARG(2)
          Delaygoto [local] 5 @进行可可
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@进行可可]
#act
   FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A1 %D0
   ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE,FLD_NAMEPREFIX"  [@装备类型检测]

[@装备类型检测()]
  #ACT
        mov    A4      %ARG(1)
        mov    D9      %ARG(2)
        mov    A8      %ARG(3)
  #IF
   equal A4 ""
  #SAY
_{FCOLOR/1}<$OUTPUT(A1)>没有佩带<$OUTPUT(A3)>！{FCOLOR/12}\\
_<关闭/@exit>
  #act
   break
  #IF
   equal A8 "结婚戒指"
  #SAY
_{FCOLOR/1}结婚戒指不可以刻名字！{FCOLOR/12}\\
_<关闭/@exit>
  #act
   break
  #IF
  #say
_{FCOLOR/10}请输入你要在<$OUTPUT(A3)>刻的名字：{FCOLOR/12}\\
_<输入名字/@@新名字>
  #act
   break

[@@新名字]
#ACT
   mov  A0  %INPUTSTR
#IF
   equal A0 "结婚戒指"
#SAY
_{FCOLOR/10}不可以取名为结婚戒指！{FCOLOR/12}\\
_<关闭/@exit>
  #act
   break

#IF
   equal A0 ""
#SAY
_{FCOLOR/10}名字不可以为空！{FCOLOR/12}\\
_<关闭/@exit>
  #act
   break

#IF
#say
_你确定你刻的名字是：{FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}\\
_<确定/@就这个了>\
_<重输入名字/@@新名字>
  #act
   break

[@就这个了]
#act
          Delaygoto [local] 5 @就这个1
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@就这个1]
#act
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@刻名点检测]

[@刻名点检测()]
  #ACT
        mov    D1      %ARG(1)
        mov    A4      %ARG(2)
  #IF
     Equal  A4   ""       
  #ACT
     goto @积分查询
     break
  #IF
     elarge D1 5
  #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D1       5
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
   FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A1 %D0
   ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE,FLD_NAMEPREFIX"  [@就这个名字]

[@就这个名字()]
  #ACT
   FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A1 %D0
   mov   A6       %A9
   FormatStr "FLD_NAMEPREFIX='%s'" %A0
   UPDATEVALUESQL "TBL_ITEM" %A6 %A9
#say
_{FCOLOR/10}<$OUTPUT(A3)>刻名成功！{FCOLOR/12}\\
_你花费了 {FCOLOR/10}5{FCOLOR/12} 点积分.你还剩余 {FCOLOR/10}<$OUTPUT(D8)>{FCOLOR/12} 点积分!\\
_<关闭/@exit>

;;========================================================================================================
[@衣服染色1]
#ACT
mov  N1 ""
mov  N2 ""
mov  N3 ""
mov  D1 ""
mov  D2 ""
mov  D3 ""
#if
checklevel 48
#say
我这里可以给衣服染色！\
{FCOLOR/10}此服务需要5点积分{FCOLOR/12}\
请把要染色的衣服穿在身上\\
<我要衣服染色/@染色密码检测>\\
#ELSESAY
此功能需要等级{FCOLOR/10}48级{FCOLOR/12}才可以使用！\\
<关闭/@exit>
;;--------------------------------------------密码检测
[@染色密码检测]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用染色>\\
<设定新密码/@@*Change_stgpasswd染色>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\\
<使用/@Input_PassWord染色>\
<密码修改/@xiugai_password染色>

[@@*Change_stgpasswd染色]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd染色>\

[@@*confirm_passwd染色]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord染色]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用染色>\\
<设定新密码/@@*Change_stgpasswd染色>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd染色>

[@@*11_Input_stgpasswd染色]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@开始使用染色>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password染色]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始使用染色>\\
<设定新密码/@@*Change_stgpasswd染色>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password染色>\

[@@*11_xiugai_password染色]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password染色>\\

[@@*22_xiugai_password染色]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2染色>\

[@@*22_xiugai_password2染色]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;----------------------------------------染色开始
[@开始使用染色]
#ACT
   FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %USERNAME 0
   ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE"  [@染色服检测]
;---------------------------------------------------------------
[@染色服检测()]
  #ACT
        mov    A4      %ARG(1)
        mov    D9      %ARG(2)
  #IF
   equal A4 ""
  #SAY
_{FCOLOR/1}你没有穿衣服！{FCOLOR/12}\\
_<关闭/@exit>
  #elseact
   goto @染色

[@染色]
  #SAY
在Windosws画笔的自定义颜色中查看颜色的{FCOLOR/14}RGB{FCOLOR/12}三个数值\
{FCOLOR/14}请先输入你想要的颜色：{FCOLOR/12}\\
你输入的R数值为{FCOLOR/1}<$OUTPUT(N1)>{FCOLOR/12} <输入R数值（0-255之间）/@@R数值>\
你输入的G数值为{FCOLOR/10}<$OUTPUT(N2)>{FCOLOR/12} <输入G数值（0-255之间）/@@G数值>\
你输入的B数值为{FCOLOR/11}<$OUTPUT(N3)>{FCOLOR/12} <输入B数值（0-255之间）/@@B数值>\\
{FCOLOR/14}以上输入RGB数值满意的话请点此处，如不输入颜色是黑色{FCOLOR/12}\
<开始染色/@输入搞定>\\
<关闭/@exit>\

[@@R数值]
#ACT
   mov  N0  %INPUTSTR
#IF
  large N0 255
#SAY
请输入数值在0-255之间！
#act
break
#IF
  small N0 0
#SAY
请输入数值在0-255之间！
#act
break
#IF
#act
  mov N1 %N0
SysMsg  "R数值是<$OUTPUT(N1)>，如果输入完成请点（开始染色）！！！"
goto @染色
break

[@@G数值]
#ACT
   mov  N0  %INPUTSTR
#IF
  large N0 255
#SAY
请输入数值在0-255之间！
#act
break
#IF
  small N0 0
#SAY
请输入数值在0-255之间！
#act
break
#IF
#act
  mov N2 %N0
SysMsg  "G数值是<$OUTPUT(N2)>，如果输入完成请点（开始染色）！！！"
goto @染色
break

[@@B数值]
#ACT
   mov  N0  %INPUTSTR
#IF
  large N0 255
#SAY
请输入数值在0-255之间！
#act
break
#IF
  small N0 0
#SAY
请输入数值在0-255之间！
#act
break
#IF
#act
  mov N3 %N0
SysMsg  "B数值是<$OUTPUT(N3)>，如果输入完成请点（开始染色）！！！"
goto @染色
break

[@输入搞定]
  #act
          Delaygoto [local] 5 @进行染染
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@进行染染]
#act
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@染色点检测]

[@染色点检测()]
  #ACT
        mov    D5      %ARG(1)
        mov    A4      %ARG(2)
  #IF
     Equal  A4   ""       
  #ACT
     goto @积分查询
     break
  #IF
     elarge D5 5
  #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D5       5
   mov   D8       %D5
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
   wearcolor %N3 %N1 %N2
#say
_{FCOLOR/10}衣服染色成功！{FCOLOR/12}\\
_你花费了 {FCOLOR/10}5{FCOLOR/12} 点积分.你还剩余 {FCOLOR/10}<$OUTPUT(D8)>{FCOLOR/12} 点积分!\\
_<关闭/@exit>
#ELSESAY
    你的积分点不够。。 \ \
		<关  闭/@exit>

;;========================================================================================================
[@兑换装备1]
	#Define N8{DUIHUAN}           N8
	#Define B1{NAME}              B1

;;---------------------------------------密码检测
	#IF
		Equal   N8{DUIHUAN}   1
        #say
_{FCOLOR/10}<$OUTPUT(B1)> 正在兑换，请稍后再兑换！{FCOLOR/10}\
_{FCOLOR/11}如果常时间出现此提示，请自行刷新脚本！{FCOLOR/10}\
_<刷新脚本/@刷新脚本>\
_<关闭/@exit>
#act
break
#if
#act
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始兑换装备>\\
<设定新密码/@@*Change_stgpasswd__2>
#ELSESAY
因为此功能需要使用一定的积分点,\
为了安全请输入密码才可以使用此功能\
<使用/@Input_PassWord__2>\
<密码修改/@xiugai_password__2>

[@@*Change_stgpasswd__2]
#ACT
mov  A0  %INPUTSTR
#SAY
<请再次输入新的密码/@@*confirm_passwd__2>\

[@@*confirm_passwd__2]
#ACT
mov A1 %INPUTSTR
#IF
equal  A0  %A1
#ACT
SavePasswd  %A0
#SAY
{FCOLOR/10}新密码已设定。{FCOLOR/12}\\
<结束/@exit> \

#ELSESAY
{FCOLOR/1}两次输入有误。{FCOLOR/12}\\
<结束/@exit> \

[@Input_PassWord__2]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始兑换装备>\\
<设定新密码/@@*Change_stgpasswd__2>
#IF
#SAY
<请输入密码/@@*11_Input_stgpasswd__2>

[@@*11_Input_stgpasswd__2]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
{FCOLOR/10}密码正确，请使用。{FCOLOR/12}\\
<使用/@开始兑换装备>\\

#ELSESAY
{FCOLOR/1}密码错误。{FCOLOR/12}\ \
<结束/@exit>

[@xiugai_password__2]
#ACT
mov  A0  %PASSWD(9)
#IF
equal A0  ""
#SAY
目前没有设置密码。\
游戏建议设定密码！否则积分被偷我们概不负责！\\
{FCOLOR/10}密码和仓库密码相同{FCOLOR/12}\\
<直接使用/@开始兑换装备>\\
<设定新密码/@@*Change_stgpasswd__2>
#IF
#SAY
<请输入原始密码/@@*11_xiugai_password__2>\

[@@*11_xiugai_password__2]
#IF
#ACT
mov  A0  %PASSWD(9)
mov  A1  %INPUTSTR

#IF
equal A0 %A1
#SAY
<请输入新密码/@@*22_xiugai_password__2>\\

[@@*22_xiugai_password__2]
#ACT
mov  A2  %INPUTSTR
#SAY
<请再次输入新的密码/@@*22_xiugai_password2__2>\

[@@*22_xiugai_password2__2]
#ACT
mov A3 %INPUTSTR
#IF
equal  A2  %A3
#ACT
SavePasswd  %A2
#SAY
{FCOLOR/10}新密码修改成功。{FCOLOR/12}\\
<结束/@exit> \

;;-----------------------------------------兑换装备
[@开始兑换装备]
#ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@Point_updata_装备]

[@Point_updata_装备()]
  #ACT
        mov    D0      %ARG(1)
        mov    A4      %ARG(2)
  #IF
     Equal  A4   ""       
  #ACT
     goto @积分查询
     break
  #IF
  #ACT
      FormatStr "FLD_USERID='%s'" %USERID  
      mov       A0   %A9
#SAY
_为庆祝服务器升级成功，部分装备{FCOLOR/10}8折{FCOLOR/12}兑换。\ \
      {FCOLOR/10}这里兑换以下物品。。{FCOLOR/12}\ \
<武器/@武器类>  <综合/@综合类>\ 
<战士/@战士类>  <法师/@法师类>  <道士/@道士类>\

[@武器类]
#say
<AngelicBlade       [100点积分]/@Point_Buy(AngelicBlade,100,1)>\
<GreatBlade       [300点积分]/@Point_Buy(GreatBlade,300,1)>\
<阴阳刀     [1300点积分]/@Point_Buy(阴阳刀,1300,1)>\
<破山剑     [1000点积分]/@Point_Buy(破山剑,1000,1)>\
<NecromanticGlaive       [1300点积分]/@Point_Buy(NecromanticGlaive,1300,1)>\\
<天神法杖   [1000点积分]/@Point_Buy(天神法杖,1000,1)> \
<SagakBlade     [100点积分]/@Point_Buy(SagakBlade,100,1)>\
<泰轮拂尘   [1300点积分]/@Point_Buy(泰轮拂尘,1300,1)>\
<HolyTaoFan     [1000点积分]/@Point_Buy(HolyTaoFan,1000,1)> \
<ShadeDemon   [20000点积分]/@Point_Buy(ShadeDemon,20000,1)>\
<返 回/@开始兑换装备>

[@综合类]
#say
<饺子（体力）        [2点积分]/@Point_Buy(饺子（体力）,2,1)>\
<饺子（灵魂）        [1点积分]/@Point_Buy(饺子（灵魂）,1,1)>\
<饺子（攻击）        [1点积分]/@Point_Buy(饺子（攻击）,1,1)>\
<饺子（自然）        [1点积分]/@Point_Buy(饺子（自然）,1,1)>\
<饺子（疾风）        [1点积分]/@Point_Buy(饺子（疾风）,1,1)>\
<饺子（攻击）        [1点积分]/@Point_Buy(饺子（攻击）,1,1)>\
<诅咒之药水          [1点积分]/@Point_Buy(诅咒之药水,1,1)>\
<亡灵之药水（3个）   [1点积分]/@Point_Buy(亡灵之药水,1,3)>\
<回生MysteryWater            [1点积分]/@Point_Buy(回生MysteryWater,1,1)>\
<玫瑰                [8点积分]/@Point_Buy(玫瑰,8,1)>\
<黄玫瑰              [15点积分]/@Point_Buy(黄玫瑰,15,1)>\\
<绿玫瑰              [20点积分]/@Point_Buy(绿玫瑰,20,1)>\\
<蓝玫瑰              [25点积分]/@Point_Buy(蓝玫瑰,25,1)>\\
<TeleportRing            [5000点积分]/@Point_Buy(TeleportRing,5000,1)>\

<返回/@开始兑换装备>

[@战士类]
#say
<火玉手镯           [100点积分]/@Point_Buy(火玉手镯,100,1)>\
<金棱手镯           [200点积分]/@Point_Buy(金棱手镯,200,1)>\
<金棱手镯（火）     [200点积分]/@Point_Buy(金棱手镯（火）,200,1)>\
<金棱手镯（冰）     [200点积分]/@Point_Buy(金棱手镯（冰）,200,1)>\
<金棱手镯（雷）     [200点积分]/@Point_Buy(金棱手镯（雷）,200,1)>\
<金棱手镯（风）     [200点积分]/@Point_Buy(金棱手镯（风）,200,1)>\
<金棱手镯（神圣）   [200点积分]/@Point_Buy(金棱手镯（神圣）,200,1)>\
<金棱手镯（暗黑）   [200点积分]/@Point_Buy(金棱手镯（暗黑）,200,1)>\
<金棱手镯（幻影）   [200点积分]/@Point_Buy(金棱手镯（幻影）,200,1)>\
<心念手镯           [200点积分]/@Point_Buy(心念手镯,200,1)>\
<武圣之戒           [250点积分]/@Point_Buy(武圣之戒,250,1)>\
<师承戒指（火）     [200点积分]/@Point_Buy(师承戒指（火）,200,1)>\
<师承戒指（冰）     [200点积分]/@Point_Buy(师承戒指（冰）,200,1)>\
<师承戒指（雷）     [200点积分]/@Point_Buy(师承戒指（雷）,200,1)>\
<师承戒指（风）     [200点积分]/@Point_Buy(师承戒指（风）,200,1)>\
<师承戒指（神圣）   [200点积分]/@Point_Buy(师承戒指（神圣）,200,1)>\
<师承戒指（暗黑）   [200点积分]/@Point_Buy(师承戒指（暗黑）,200,1)>\
<师承戒指（幻影）   [200点积分]/@Point_Buy(师承戒指（幻影）,200,1)>\
<毁灭魔链           [300点积分]/@Point_Buy(毁灭魔链,300,1)>\
<破荒项链           [250点积分]/@Point_Buy(破荒项链,250,1)>\
<破荒项链（火）     [300点积分]/@Point_Buy(破荒项链（火）,300,1)>\
<破荒项链（冰）     [300点积分]/@Point_Buy(破荒项链（冰）,300,1)>\
<破荒项链（雷）     [300点积分]/@Point_Buy(破荒项链（雷）,300,1)>\
<破荒项链（风）     [300点积分]/@Point_Buy(破荒项链（风）,300,1)>\
<破荒项链（神圣）   [300点积分]/@Point_Buy(破荒项链（神圣）,300,1)>\
<破荒项链（暗黑）   [300点积分]/@Point_Buy(破荒项链（暗黑）,300,1)>\
<破荒项链（幻影）   [300点积分]/@Point_Buy(破荒项链（幻影）,300,1)>\\
<ParalysisRing           [20000点积分]/@Point_Buy(ParalysisRing,20000,1)>\
<返 回/@开始兑换装备>

[@法师类]
#say
<毁灭手镯           [300点积分]/@Point_Buy(毁灭手镯,300,1)>\
<思过手镯           [200点积分]/@Point_Buy(思过手镯,200,1)>\
<思过手镯（火）     [200点积分]/@Point_Buy(思过手镯（火）,200,1)>\
<思过手镯（冰）     [200点积分]/@Point_Buy(思过手镯（冰）,200,1)>\
<思过手镯（雷）     [200点积分]/@Point_Buy(思过手镯（雷）,200,1)>\
<思过手镯（风）     [200点积分]/@Point_Buy(思过手镯（风）,200,1)>\
<思过手镯（神圣）   [200点积分]/@Point_Buy(思过手镯（神圣）,200,1)>\
<思过手镯（暗黑）   [200点积分]/@Point_Buy(思过手镯（暗黑）,200,1)>\
<思过手镯（幻影）   [200点积分]/@Point_Buy(思过手镯（幻影）,200,1)>\
<七彩金环           [200点积分]/@Point_Buy(七彩金环,200,1)>\
<龙马戒指（火）     [200点积分]/@Point_Buy(龙马戒指（火）,200,1)>\
<龙马戒指（冰）     [200点积分]/@Point_Buy(龙马戒指（冰）,200,1)>\
<龙马戒指（雷）     [200点积分]/@Point_Buy(龙马戒指（雷）,200,1)>\
<龙马戒指（风）     [200点积分]/@Point_Buy(龙马戒指（风）,200,1)>\
<龙马戒指（神圣）   [200点积分]/@Point_Buy(龙马戒指（神圣）,200,1)>\
<龙马戒指（暗黑）   [200点积分]/@Point_Buy(龙马戒指（暗黑）,200,1)>\
<龙马戒指（幻影）   [200点积分]/@Point_Buy(龙马戒指（幻影）,200,1)>\
<魔云项链           [500点积分]/@Point_Buy(魔云项链,500,1)>\
<魔云项链（火）     [300点积分]/@Point_Buy(魔云项链（火）,300,1)>\
<魔云项链（冰）     [300点积分]/@Point_Buy(魔云项链（冰）,300,1)>\
<魔云项链（雷）     [300点积分]/@Point_Buy(魔云项链（雷）,300,1)>\
<魔云项链（风）     [300点积分]/@Point_Buy(魔云项链（风）,300,1)>\
<魔云项链（神圣）   [300点积分]/@Point_Buy(魔云项链（神圣）,300,1)>\
<魔云项链（暗黑）   [300点积分]/@Point_Buy(魔云项链（暗黑）,300,1)>\
<魔云项链（幻影）   [300点积分]/@Point_Buy(魔云项链（幻影）,300,1)>\
<五行神镜           [300点积分]/@Point_Buy(五行神镜,300,1)>\\
<ProtectionRing           [20000点积分]/@Point_Buy(ProtectionRing,20000,1)>\
<返 回/@开始兑换装备>


[@道士类]
#say
<如来手镯           [300点积分]/@Point_Buy(如来手镯,300,1)>\
<世尊手镯           [200点积分]/@Point_Buy(世尊手镯,200,1)>\
<世尊手镯（火）     [200点积分]/@Point_Buy(世尊手镯（火）,200,1)>\
<世尊手镯（冰）     [200点积分]/@Point_Buy(世尊手镯（冰）,200,1)>\
<世尊手镯（雷）     [200点积分]/@Point_Buy(世尊手镯（雷）,200,1)>\
<世尊手镯（风）     [200点积分]/@Point_Buy(世尊手镯（风）,200,1)>\
<世尊手镯（神圣）   [200点积分]/@Point_Buy(世尊手镯（神圣）,200,1)>\
<世尊手镯（暗黑）   [200点积分]/@Point_Buy(世尊手镯（暗黑）,200,1)>\
<世尊手镯（幻影）   [200点积分]/@Point_Buy(世尊手镯（幻影）,200,1)>\
<虚空道环           [200点积分]/@Point_Buy(虚空道环,200,1)>\
<天机戒指           [200点积分]/@Point_Buy(天机戒指,200,1)>\
<青云戒指（火）     [200点积分]/@Point_Buy(青云戒指（火）,200,1)>\
<青云戒指（冰）     [200点积分]/@Point_Buy(青云戒指（冰）,200,1)>\
<青云戒指（雷）     [200点积分]/@Point_Buy(青云戒指（雷）,200,1)>\
<青云戒指（风）     [200点积分]/@Point_Buy(青云戒指（风）,200,1)>\
<青云戒指（神圣）   [200点积分]/@Point_Buy(青云戒指（神圣）,200,1)>\
<青云戒指（暗黑）   [200点积分]/@Point_Buy(青云戒指（暗黑）,200,1)>\
<青云戒指（幻影）   [200点积分]/@Point_Buy(青云戒指（幻影）,200,1)>\
<乾坤一气           [200点积分]/@Point_Buy(乾坤一气,200,1)>\
<定心项链           [250点积分]/@Point_Buy(定心项链,250,1)>\
<定心项链（火）     [300点积分]/@Point_Buy(定心项链（火）,300,1)>\
<定心项链（冰）     [300点积分]/@Point_Buy(定心项链（冰）,300,1)>\
<定心项链（雷）     [300点积分]/@Point_Buy(定心项链（雷）,300,1)>\
<定心项链（风）     [300点积分]/@Point_Buy(定心项链（风）,300,1)>\
<定心项链（神圣）   [300点积分]/@Point_Buy(定心项链（神圣）,300,1)>\
<定心项链（暗黑）   [300点积分]/@Point_Buy(定心项链（暗黑）,300,1)>\
<定心项链（幻影）   [300点积分]/@Point_Buy(定心项链（幻影）,300,1)>\\
<RevivalRing           [10000点积分]/@Point_Buy(RevivalRing,10000,1)>\
<返 回/@开始兑换装备>

[@Point_Buy()]
  #ACT
	  Mov        A1       %ARG(1)
	  Mov        N3       %ARG(2)
	  Mov        N4       %ARG(3)
          goto @在来一个
[@在来一个]
	#IF
		IsAdmin
        #say
_<清除变量/@清换变量>\
	#IF
		Equal   N8{DUIHUAN}   1
        #say
_{FCOLOR/10}<$OUTPUT(B1)> 正在兑换，请稍后再兑换！{FCOLOR/10}\
_{FCOLOR/11}如果常时间出现此提示，请自行刷新脚本！{FCOLOR/10}\
_<刷新脚本/@刷新脚本>\
_<关闭/@exit>
#act
break
          #if
          #act
	  Mov        N8{DUIHUAN}   1
          Mov        B1{NAME}      %USERNAME
          goto @确定循环中
  #say
_你确定要兑换 {FCOLOR/10}<$OUTPUT(N4)>个 <$OUTPUT(A1)>{FCOLOR/12} 吗？\\
_ {FCOLOR/1}请在10秒内确认{FCOLOR/12} \\
_<确定/@确定啊>\
_<关闭/@exit>\\

[@刷新脚本]
#say
_请输入玩家姓名： {FCOLOR/10}<$OUTPUT(B1)>{FCOLOR/12} ，开始刷新脚本！\
_<输入玩家姓名/@@输入玩>\
_<关闭/@exit>\\

[@@输入玩]
#ACT
mov A1 %INPUTSTR
#IF
   Equal  A1   %B1
#Act
     SysMsg  "脚本已经刷新，请再次兑换！"
     Delaygoto [local] 5 @清换变量
   break
#ELSESAY
_你输入玩家姓名不正确，不可以刷新脚本！\
_<关闭/@exit>\\

[@取消了]
  #act
     SysMsg  "兑换被取消！"
  #act
     goto @清除换变量
     break

[@确定啊]
  #IF
     Equal  N0   1  
  #say
你已经点过确定了！难道你想作弊吗！？\
当心我给你处罚啊！！\\
   #act
   inc N0 1
   break
  #if
  #say
_{FCOLOR/10}系统确认中，请稍后。。。{FCOLOR/12}\\
  #ACT
   mov     N0          1  
   break

[@确定循环中]
  #if
   !Equal      N8{DUIHUAN}   1
  #act
     SysMsg  "兑换被取消！"
  #act
     goto @清除换变量
     break
  #if
   elarge     N9          5 
  #act
     SysMsg  "等待确定超时,购买<$OUTPUT(A1)>失败,请重新开始！"
     goto @清换变量
     break
  #if
   large     N0          1 
  #act
     SysMsg  "你点了<$OUTPUT(N0)>次确定！你想作弊吗？"
     goto @清除换变量
	break
  #if
   Equal     N0          "" 
  #act
     inc N9 1
     SysMsg  "系统正在等待你的确定。。。"
     Delaygoto [local] 2 @确定循环中

  #if
   Equal     N0          1  
  #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_POINT,FLD_USERID"  [@Point_Buying]

[@Point_Buying()]
  #ACT
        mov    D0      %ARG(1)
        mov    A4      %ARG(2)
        LoadValue N7 "Market_Def\event\Exchange.txt" [Log] [INDEX]
  #IF
     Equal  A4   ""       
  #ACT
     goto @积分查询
     break
  #IF
     elarge D0 %N3
  #ACT
   FormatStr "FLD_USERID='%s'" %USERID
   mov   A6       %A9
   DEC   D0       %N3
   mov   D8       %D0
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
;   addnamelist "\event\Exchange.txt"
   inc N7 1
   SaveValue "Market_Def\event\Exchange.txt" [Log] [INDEX] %N7
   SaveValue "Market_Def\event\Exchange.txt" [帐号] [%N7] %USERID
   SaveValue "Market_Def\event\Exchange.txt" [人物] [%N7] %USERNAME
   SaveValue "Market_Def\event\Exchange.txt" [物品] [%N7] %A1
   SaveValue "Market_Def\event\Exchange.txt" [数量] [%N7] %N4
   SaveValue "Market_Def\event\Exchange.txt" [花费积分] [%N7] %N3
   SaveValue "Market_Def\event\Exchange.txt" [剩余积分] [%N7] %D8
   give  %A1  %N4
     SysMsg  "你兑换了<$OUTPUT(N4)>个 <$OUTPUT(A1)> 。交易已被记录！"
   #SAY
_你兑换了 {FCOLOR/10}<$OUTPUT(N4)>个 <$OUTPUT(A1)>{FCOLOR/12} 。\\
_你花费了 {FCOLOR/10}<$OUTPUT(N3)>{FCOLOR/12} 点积分.你还剩余 {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} 点积分！\\
      <关  闭/@清除换变量>
  #act
     Delaygoto [local] 3 @清换变量
   break
  #if
  #act
     SysMsg  "你的积分不够，购买<$OUTPUT(A1)>失败！"
   close
   goto @清除换变量
   break

[@清除换变量]
#act
 mov A0 ""
 mov A1 ""
 mov A2 ""
 mov A3 ""
 mov A4 ""
 mov A5 ""
 mov A6 ""
 mov A7 ""
 mov A8 ""
 mov A9 ""
 mov D0 ""
 mov D1 ""
 mov D2 ""
 mov D3 ""
 mov D4 ""
 mov D5 ""
 mov D6 ""
 mov D7 ""
 mov D8 ""
 mov D9 ""
 mov N0 ""
 mov N1 ""
 mov N2 ""
 mov N3 ""
 mov N4 ""
 mov N5 ""
 mov N6 ""
 mov B1 ""
 mov N8 ""
 mov N7 ""
 mov N9 ""
 Delaygoto [local] 3 @妈的
 close

[@妈的]
#act
 mov N8{DUIHUAN} ""
 mov B1{NAME}  ""
 close
ClearDelayGoto

[@清换变量]
#act
 mov A0 ""
 mov A1 ""
 mov A2 ""
 mov A3 ""
 mov A4 ""
 mov A5 ""
 mov A6 ""
 mov A7 ""
 mov A8 ""
 mov A9 ""
 mov D0 ""
 mov D1 ""
 mov D2 ""
 mov D3 ""
 mov D4 ""
 mov D5 ""
 mov D6 ""
 mov D7 ""
 mov D8 ""
 mov D9 ""
 mov N0 ""
 mov N1 ""
 mov N2 ""
 mov N3 ""
 mov N4 ""
 mov N5 ""
 mov N6 ""
 mov B1 ""
 mov N8 ""
 mov N7 ""
 mov N9 ""
 Delaygoto [local] 3 @我日啊
 close

[@我日啊]
#act
 mov N8{DUIHUAN} ""
 mov B1{NAME}  ""

;;========================================================================================================

}
