;;网游评估..开发..修改
[@main]
#IF
#SAY
{FCOLOR/1}<$USERNAME>{FCOLOR/12} Hello：\
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 Service，Please Input the RGB Value:\\
      The Present R value is {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12}  <Input R Value（0-255之间）/@@value(1)>\
      The Present G Value is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12} <Input G Value（0-255之间）/@@value(2)>\
      The Present B Value is {FCOLOR/11}<$OUTPUT(D3)>{FCOLOR/12} <Input B Value（0-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
     _你的Gold不够5000W，请凑齐了再来。~~~\\
     _<[ 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
     _你的Gold不够1005000，请凑齐了再来。~~~\\
     _<[ 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
     _你的Gold不够20W，请凑齐了再来。~~~\\
     _<[ 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
你的Gold不够2000。。\\
<[ 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
你的Gold不够2000。。\\
<[ 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> 

;;网游评估..开发..修改