;;....޸
[@main]
#IF
#SAY
{FCOLOR/1}<$USERNAME>{FCOLOR/12} ã\
Welcome to {FCOLOR/10}LiquidSilver{FCOLOR/12} 3G Server\\
____{FCOLOR/10}+-----------------+{FCOLOR/12}\
____{FCOLOR/10}             {FCOLOR/1}LiquidSilver{FCOLOR/12}             {FCOLOR/10}{FCOLOR/12}\
____{FCOLOR/10}+-----------------+{FCOLOR/12}\
____{FCOLOR/10}     <Integral system/@mingwang>       <Examines red/@DB_Connect1>    {FCOLOR/12}\
____{FCOLOR/10}+--------+--------+{FCOLOR/12}\
____{FCOLOR/10}     <Eliminates red/@pkshow>       <Fund shift/@movemoneyshow>    {FCOLOR/12}\
____{FCOLOR/10}+--------+--------+{FCOLOR/12}\
____{FCOLOR/10}     <Change name/@modname>       <Examines luckily/@DB_Connect2>    {FCOLOR/12}\
____{FCOLOR/10}+--------+--------+{FCOLOR/12}\
____{FCOLOR/10}     <Master System/@baishi>       <Engrave Name@char_name>    {FCOLOR/12}\
____{FCOLOR/10}+--------+--------+{FCOLOR/12}\
____{FCOLOR/10}     <Equip Shift/@zbzy1>       <Cloth Dye/@dyecloth>    {FCOLOR/12}\
____{FCOLOR/10}+--------+--------+{FCOLOR/12}\
____{FCOLOR/10}     <Buy Rose/@õ>       Development    {FCOLOR/12}\
____{FCOLOR/10}+-----------------+{FCOLOR/12}\\

[@mingwang]
#CALL[\ַ.txt] @ַ

[@zbzy1]
#CALL[\zbzy.txt] @zbzy


[@dyecloth]
#IF
#SAY
      We Provide the Cloth Dye ServicePlease Input the RGB Value:\\
      The Present R value is {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12}  <Input R Value0-255֮䣩/@@value(1)>\
      The Present G Value is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12} <Input G Value0-255֮䣩/@@value(2)>\
      The Present B Value is {FCOLOR/11}<$OUTPUT(D3)>{FCOLOR/12} <Input B Value0-255֮䣩/@@value(3)>\\
      <Dye Cloth/@dyeing>\
      <Exit/@exit>

[@@value()]
#IF
    !Checkgold 50000
#SAY
    Not Enough Money....\\
    <Exit/@exit>
#ACT
    break

#IF
#ACT
    mov  D4  %INPUTNUM
    mov  D0  %ARG(1)

#IF
    Large D4 255
#SAY
    Please input the value between 0-255!\\
    <Return/@dyecloth>
#ACT
    break

#IF
    Small D4 0
#SAY
    Please input the value between 0-255!\\
    <Return/@dyecloth>
#ACT
    break

#IF
    Equal D0 1
#ACT
    mov D1 %D4
    goto @dyecloth
    break

#IF
    Equal D0 2
#ACT
    mov D2 %D4
    goto @dyecloth
    break

#IF
    Equal D0 3
#ACT
    mov D3 %D4
    goto @dyecloth
    break

[@dyeing]
#IF
    !Checkgold 50000
#SAY
    Not Enough Money...\\
    <Exit/@exit>
#ACT
    break

#IF
#ACT
    Wearcolor %D3 %D1 %D2
    Take Gold 50000
#SAY
    {FCOLOR/10}Clothes dye complete{FCOLOR/12}\\
    <Exit/@exit>

[@char_name]
#IF
#SAY
      Everybody knew ID may register 2 roles, must be {FCOLOR/10}On-line role{FCOLOR/12}For{FCOLOR/10}Winding role{FCOLOR/12}Carries on the equipment to engrave the name, please inputs the winding in the dialog box the role name, each time receives Spends the 150K gold coin, we can gather the 150K gold coin to your on-line role.\\
      <[Input role ]/@@tusername>\\
      <[ Return ]/@main>\
      <[ Exit ]/@exit>

[@@tusername]
#IF
     !checkgold 1500000
#SAY
     Your gold coin is insufficient.\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
    break

#IF
#ACT
     mov   A1   %INPUTSTR
     mov   A2   %USERID

#IF
     Equal A1   ""
#SAY
     {FCOLOR/1}Input Empty - try again{FCOLOR/12}\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
    break

#IF
     Equal A1   %USERNAME
#SAY
     {FCOLOR/1}ߺôʺŵһɫд˲{FCOLOR/12}\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
    break

#IF
#ACT
   FormatStr "FLD_CHARACTER='%s'" %INPUTSTR
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_USERID"  [@checkid]

[@checkid()]
#IF
#ACT
      mov     A3   %ARG(1)
      mov     A4   %ARG(2)

#IF
     Equal    A3  ""
#SAY
     ĽɫҲ\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
     break

#IF
     Equal     A3   %A1
     Equal     A4   %A2
#SAY
     {FCOLOR/10}ֻܶװпȥɳͿ˵İ裺{FCOLOR/12}\\
     <ͷ/@kei(4,ͷ)>  </@kei(3,)>\
     <·/@kei(0,·)>  <Ь/@kei(10,Ь)>\
     </@kei(5,)>  <ң/@kei(6,ң)>\
     <ָ/@kei(7,ָ)>  <ָң/@kei(8,ָң)>\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ELSESAY
     ĽɫΪӵС\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>

[@kei()]
#IF
#ACT
      Mov    D0     %ARG(1)
      Mov    A5     %ARG(2)
      FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A1 %D0
      ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE,FLD_NAMEPREFIX"  [@typej]

[@typej()]
#IF
#ACT
      mov    A5     %ARG(1)
      mov    D1     %ARG(2)
      mov    A6     %ARG(3)

#IF
      Equal  A5    ""
#SAY
     û<$OUTPUT(A5)>\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
     break

#IF
     Equal  A6    "ָ"
#SAY
     ָԿ֣\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
     break

#IF
#SAY
     Ҫ<$OUTPUT(A5)>Ͽ̵֣\\
     </@@knewname>\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>

[@@knewname]
#IF
     !checkgold 1500000
#SAY
     Gold㡣\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
    break

#IF
#ACT
     mov    A7   %INPUTSTR

#IF
     Equal  A7   "ָ"
#SAY
     ȡΪָ\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>
#ACT
     break

#IF
#ACT
     take Gold 1500000
     FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A1 %D0
     ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE,FLD_NAMEPREFIX"  [@setname1]

[@setname1()]
#IF
#ACT
     FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A1 %D0
     mov   A0    %A9
     FormatStr "FLD_NAMEPREFIX='%s'" %A7
     UPDATEVALUESQL "TBL_ITEM" %A0 %A9
#SAY
     <$OUTPUT(A5)>ɹ\\
     <[ Return ]/@char_name>\
     <[ Exit ]/@exit>


[@baishi]
#CALL [\Prentice.txt] @Prentice

[@modname]
#say
_Ļȼ52ϣGold5000W\\
_<[  ]/@@ChangeUserName>\
_<[ Exit ]/@exit>

[@@ChangeUserName]
#IF
#ACT
        mov    A1  %INPUTSTR

#IF
        Equal   A1  ""
#SAY
        _棺{FCOLOR/10}<$USERNAME>{FCOLOR/12}~~~~벻Ϊ~~~~~\\
        _<[ Return ]/@main>
#ACT
        break

#IF
     !checklevel 52
#SAY
     _ĵȼ52~~~\\
     _<[ Return ]/@main>
#ACT
     break

#IF
     !checkgold 50000000
#SAY
     _Gold5000W~~~\\
     _<[ Return ]/@main>
#ACT
     break
#ELSEACT
        ChangeUserName @ChangeUserNameResult

[@ChangeUserNameResult]
#ACT
     take Gold 50000000
#SAY
     _{FCOLOR/10}<$USERNAME>{FCOLOR/12}Ϊ{FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}ɹ\\
     _<[ Return ]/@main>\
     _<[ Exit ]/@exit>

[@ChangeUserNameResult~]
#SAY
     _󣬸ʧܡ\\
     _<[ Return ]/@main>\
     _<[ Exit ]/@exit>

[@movemoneyshow]
#say
֪һIDע2ɫǰʽ{FCOLOR/10}ߵĽɫ{FCOLOR/12}תƵ{FCOLOR/10}ߵĽɫ{FCOLOR/12}ڶԻߵĽɫƣÿת100WʽǻߵĽɫȡ5000Gold\\
<[ ʽת ]/@@movemoney>\
<[ Exit ]/@exit>

[@@movemoney]
#ACT
     mov    A1   %INPUTSTR
     mov    A2   %USERID

#IF
     Equal  A1   %USERNAME
#SAY
     _ûиתƸԼҪҲһ£㲻Ͱװ׶100W~~~\\
     _<[ Return ]/@main>
#ACT
     break

#IF
     !checkgold 1005000
#SAY
     _Gold1005000~~~\\
     _<[ Return ]/@main>
#ACT
     break

#IF
     !Equal A1   ""
#ACT
      FormatStr "FLD_CHARACTER='%s'" %A1
      ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_USERID,FLD_GOLD"  [@PA1]
      close
#ELSESAY
     _棺{FCOLOR/10}<$USERNAME>{FCOLOR/12}~~~~벻Ϊ~~~~~\\
     _<[ Return ]/@main>
            
[@PA1()]
#ACT
      mov       A8   %ARG(1)
      mov       D1   %ARG(2)
      mov       D2   %ARG(3)
      FormatStr "FLD_CHARACTER='%s'" %INPUTSTR
      mov       A0   %A9
#IF
      !Equal    A8   ""
      Equal     A2   %ARG(2)
#ACT
      take Gold 1005000
      FormatStr "FLD_CHARACTER='%s'" %INPUTSTR
      inc D2 1000000
      FormatStr "FLD_GOLD='%s'" %D2
      UpdateValueSql "TBL_CHARACTER" %A0 %A9
#SAY
      Ϊ<$OUTPUT(A8)>ת100Wɣ5000\\
      <[ Return ]/@main>
#ELSESAY
      _棺{FCOLOR/10}<$USERNAME>{FCOLOR/12}~~~~Ҳɫ˲ΪеĽɫ~~~~\\
      <[ Return ]/@main>

[@pkshow]
#say
֪һIDע2ɫ{FCOLOR/10}ߵĽɫ{FCOLOR/12}Ϊ{FCOLOR/10}ߵĽɫ{FCOLOR/12}PKֵڶԻߵĽɫƣǿΪPKֵǻߵĽɫȡ20WGold\\
<[ ˣPKֵ ]/@@qpk>\
<[ Exit ]/@exit>

[@@qpk]
#ACT
     mov    A1   %INPUTSTR
     mov    A2   %USERID

#IF
     Equal  A1   %USERNAME
#SAY
     _ûи˵˲ܸߵĽɫPKֵ~~~\\
     _<[ Return ]/@main>
#ACT
     break

#IF
     !checkgold 200000
#SAY
     _Gold20W~~~\\
     _<[ Return ]/@main>
#ACT
     break

#IF
     !Equal A1   ""
#ACT
FormatStr "FLD_CHARACTER='%s'" %INPUTSTR
ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_PKPOINT,FLD_USERID"  [@mpk]
close
#ELSESAY
     _棺{FCOLOR/10}<$USERNAME>{FCOLOR/12}~~~~벻Ϊ~~~~~\\
     _<[ Return ]/@main>
      
[@mpk()]
#IF
#ACT
      mov       A8   %ARG(1)
      mov       D1   %ARG(2)
      mov       D2   %ARG(3)
      FormatStr "FLD_CHARACTER='%s'" %INPUTSTR
      mov       A0   %A9
#if
      !Equal    A8   ""
       Equal     A2   %ARG(3)
#act
      take Gold 200000
      UpdateValueSql "TBL_CHARACTER" %A0 "FLD_PKPOINT=0"
#say
      Ϊ<$OUTPUT(A8)>PKֵɡ\\
      <[ Return ]/@main>
#elsesay
      _棺{FCOLOR/10}<$USERNAME>{FCOLOR/12}~~~~Ҳɫ˲ΪеĽɫ~~~~\\
      <[ Return ]/@main>

[@DB_Connect1]
#IF
!checkgold 2000
#SAY
Gold2000\\
<[ Return ]/@main>
#ACT
break

   #IF
   #ACT
      FormatStr "FLD_CHARACTER='%s'" %USERNAME
      ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_USERID,FLD_PKPOINT"  [@Point_Loading1]
      close
            
[@Point_Loading1()]
   #IF
   #ACT
      mov       A8   %ARG(1)
      mov       D1   %ARG(2)
      mov       D2   %ARG(3)
      FormatStr "FLD_CHARACTER='%s'" %USERNAME
      mov       A0   %A9
      take Gold 2000
    #SAY
       <$USERNAME>~~~ĿǰPKֵΪ<$OUTPUT(D2)>\
       β鿴շ2000Gold\\
       <[ Return ]/@main>

[@DB_Connect2]
#IF
!checkgold 2000
#SAY
Gold2000\\
<[ Return ]/@main>
#ACT
break

   #IF
   #ACT
      FormatStr "FLD_CHARACTER='%s'" %USERNAME
      ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_USERID,FLD_BODYLUCK"  [@Point_Loading2]
      close
            
[@Point_Loading2()]
   #IF
   #ACT
      mov       A8   %ARG(1)
      mov       D1   %ARG(2)
      mov       D2   %ARG(3)
      FormatStr "FLD_CHARACTER='%s'" %USERNAME
      mov       A0   %A9
      take Gold 2000
    #SAY
       <$USERNAME>~~~ at present your lucky value is:<$OUTPUT(D2)>\
       This examination service charge 2000 Gold\\
       <[ Return ]/@main>


[@õ]
#SAY
In this world, what doesn't have prestigious really not to be able to do?\
NO! My this any rose all has, you elect, but price very expensive, do not have to say I am black.\
<RedRose 200K/@õ>\
<YellowRose 300K/@õ>\
<GreenRose 400K/@õ>\
<BlueRose 500k/@õ>\\
<Exit/@exit>

[@õ]
#IF
checkgold  2000000
#ACT
take Gold 2000000
give RedRose  1
#SAY
Graciousness, is good You already obtained the rose which a grain revived\

#ELSESAY
Needs 200K. Your Gold is insufficient, is unable to purchase.\
<Exit/@exit> 


[@õ]
#IF
checkgold  3000000
#ACT
take Gold 3000000
give YellowRose  1
#SAY
Graciousness, is good You already obtained the yellow rose which a grain revived\

#ELSESAY
Needs 300K. Your Gold is insufficient, is unable to purchase.\
<Exit/@exit> 


[@õ]
#IF
checkgold  4000000
#ACT
take Gold 4000000
give GreenRose    1
#SAY
Graciousness, is good You already obtained the green rose which a grain revived\

#ELSESAY
Needs 400K. Your Gold is insufficient, is unable to purchase.\
<Exit/@exit> 

[@õ]
#IF
checkgold  5000000
#ACT
take Gold 5000000
give BlueRose    1
#SAY
Graciousness, is good You already obtained the blue rose which a grain revived\

#ELSESAY
Needs 500K. Your Gold is insufficient, is unable to purchase.\
<Exit/@exit> 

;;....޸