[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}QQ45836304{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
<EvilCaptain0          [12]/@򱦱(EvilCaptain,24,12,0)>\
<EvilCaptain1          [13]/@򱦱(EvilCaptain,24,13,1)>\
<EvilCaptain2          [14]/@򱦱(EvilCaptain,24,14,2)>\
<EvilCaptain3          [15]/@򱦱(EvilCaptain,24,15,3)>\
<EvilCaptain4          [16]/@򱦱(EvilCaptain,24,16,4)>\
<EvilCaptain5          [17]/@򱦱(EvilCaptain,24,17,5)>\
<EvilCaptain6          [18]/@򱦱(EvilCaptain,24,18,6)>\
<EvilCaptain7          [19]/@򱦱(EvilCaptain,24,19,7)>\\
<LightGladiator0        [11]/@򱦱(LightGladiator,24,11,0)>\
<LightGladiator1        [12]/@򱦱(LightGladiator,24,12,1)>\
<LightGladiator2        [13]/@򱦱(LightGladiator,24,13,2)>\
<LightGladiator3        [14]/@򱦱(LightGladiator,24,14,3)>\
<LightGladiator4        [15]/@򱦱(LightGladiator,24,15,4)>\
<LightGladiator5        [16]/@򱦱(LightGladiator,24,16,5)>\
<LightGladiator6        [17]/@򱦱(LightGladiator,24,17,6)>\
<LightGladiator7        [18]/@򱦱(LightGladiator,24,18,7)>\\
<MinotaurChief0          [10]/@򱦱(MinotaurChief,24,10,0)>\
<MinotaurChief1          [11]/@򱦱(MinotaurChief,24,11,1)>\
<MinotaurChief2          [12]/@򱦱(MinotaurChief,24,12,2)>\
<MinotaurChief3          [13]/@򱦱(MinotaurChief,24,13,3)>\
<MinotaurChief4          [14]/@򱦱(MinotaurChief,24,14,4)>\
<MinotaurChief5          [15]/@򱦱(MinotaurChief,24,15,5)>\
<MinotaurChief6          [16]/@򱦱(MinotaurChief,24,16,6)>\
<MinotaurChief7          [17]/@򱦱(MinotaurChief,24,17,7)>\\
<WhiteBoar0            [9]/@򱦱(WhiteBoar,24,9,0)>\
<WhiteBoar1            [10]/@򱦱(WhiteBoar,24,10,1)>\
<WhiteBoar2            [11]/@򱦱(WhiteBoar,24,11,2)>\
<WhiteBoar3            [12]/@򱦱(WhiteBoar,24,12,3)>\
<WhiteBoar4            [13]/@򱦱(WhiteBoar,24,13,4)>\
<WhiteBoar5            [14]/@򱦱(WhiteBoar,24,14,5)>\
<WhiteBoar6            [15]/@򱦱(WhiteBoar,24,15,6)>\
<WhiteBoar7            [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)>\\
<GtNumaMonk0            [6]/@򱦱(GtNumaMonk,24,6,0)>\
<GtNumaMonk1            [7]/@򱦱(GtNumaMonk,24,7,1)>\
<GtNumaMonk2            [8]/@򱦱(GtNumaMonk,24,8,2)>\
<GtNumaMonk3            [9]/@򱦱(GtNumaMonk,24,9,3)>\
<GtNumaMonk4            [10]/@򱦱(GtNumaMonk,24,10,4)>\
<GtNumaMonk5            [11]/@򱦱(GtNumaMonk,24,11,5)>\
<GtNumaMonk6            [12]/@򱦱(GtNumaMonk,24,12,6)>\
<GtNumaMonk7            [13]/@򱦱(GtNumaMonk,24,13,7)>\\
<ApeKing0            [5]/@򱦱(ApeKing,24,5,0)> \
<ApeKing1            [6]/@򱦱(ApeKing,24,6,1)> \
<ApeKing2            [7]/@򱦱(ApeKing,24,7,2)> \
<ApeKing3            [8]/@򱦱(ApeKing,24,8,3)> \
<ApeKing4            [9]/@򱦱(ApeKing,24,9,4)> \
<ApeKing5            [10]/@򱦱(ApeKing,24,10,5)> \
<ApeKing6            [11]/@򱦱(ApeKing,24,11,6)> \
<ApeKing7            [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}  ""

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

}
