;; xlhly޸
[@zbzy]
{
#SAY
    {FCOLOR/10}Shifts needs the 2W gold coin, chooses you to have to shift the equipment category, the input equipment name, we help you to inspect, only opens the partial high-level equipments shift, equips puts after the position request, first slightly draws back (is important):{FCOLOR/12}\\
    <ͷ/@@chkput(4)>  </@@chkput(3)>\
    <·/@@chkput(0)>  </@@chkput(1)>\
    <()/@@chkput(5)>\
    <ָ()/@@chkput(7)>\\
    <[ ]/@main>\
    <[ ]/@exit>

[@@chkput()]
#IF
#ACT
     Mov   D0   %ARG(1)
     Mov   A0   %INPUTSTR
     LoadValue B9 "QuestDiary\lajiao\Transfer.ini" [ItemIdx] [%A0]
     mov  P8   %B9

#IF
      Equal  P8  0
#SAY
     _Բ𣬴װ[<$OUTPUT(A0)>]δתƷ񣡣\\
     _<[ ]/@main>\
     _<[ ]/@exit>
#ACT
     break

#IF
     !checkgold 20000
#SAY
     _Gold2W~~~\\
     _<[ ]/@main>\
     _<[ ]/@exit>
#ACT
      break

#IF
      !CheckItemw   %A0
#SAY
      _ûװ\\
      _<[ ]/@main>\
      _<[ ]/@exit>
#ACT
      break
     
#IF
#ACT
      FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %USERNAME %D0
      ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE,FLD_INDEX"  [@zychk1]
      close

[@zychk1()]
#ACT
      mov   A6   %ARG(1)
      mov   B0   %ARG(3)

#IF
      Equal A6 ""
#SAY
      _ָλװȥĻҪ5ӻСһ¡\\
      _<[ ]/@main>\
      _<[ ]/@exit>
#ACT
      break

#IF
      !Equal  B9  %B0
#SAY
     _ԲתƲܽУȥĻҪ5ӻСһ¡\\
     _<[ ]/@main>\
     _<[ ]/@exit>
#ACT
     break

#IF
#ACT
      mov  D7  20041108
#SAY
      _<$OUTPUT(A0)>ȷĻתĽɫ{FCOLOR/10}ת״̬ĽɫȻƷᶪʧ{FCOLOR/12}\\
      _<ɫ/@@charname>\\
      _<[ ]/@main>\
      _<[ ]/@exit>


[@@charname]
#IF
      !CheckItemw   %A0
      !Equal D7 20041108
#SAY
      _ûװ\\
      _<[ ]/@main>\
      _<[ ]/@exit>
#ACT
      break

#IF
#ACT
      Mov   A1   %INPUTSTR

#IF
      Equal A1 %USERNAME
#SAY
      _תƸԼ\\
      _<ɫ/@@charname>\
      _<[ ]/@exit>
#ACT
      break

#IF
      Equal A1 ""
#SAY
      _ɫΪգ{FCOLOR/10}ת״̬ĽɫȻƷᶪʧ{FCOLOR/12}\\
      _<ɫ/@@charname>\\
      _<[ ]/@exit>
#ACT
      break

#IF
#ACT
      FormatStr "FLD_CHARACTER='%s'" %A1
      ReadValueSql  "TBL_CHARACTER"  %A9 "FLD_CHARACTER"  [@zysql_m]
      close

[@zysql_m()]
#ACT
      mov   A2   %ARG(1)
#IF
      Equal   A2  ""
#SAY
      _ҲĽɫ\\
      _<ɫ/@@charname>\\
      _<[ ]/@exit>
#ACT
     break
#ELSESAY
     ڽСԺ\\
#ELSEACT
     Delaygoto [local] 1 @zysql_n

[@zysql_n]
#IF
      CheckItemw   %A0
      Equal D7 20041108
#ACT
      FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A1 %D0
      ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE,FLD_NAMEPREFIX"  [@zysql_0]
      close
#ELSESAY
      _ûװ\\
      _<[ ]/@exit>

[@zysql_0()]
#IF
#ACT
      mov       A2   %ARG(1)
      mov       D1   %ARG(2)
      mov       A3   %ARG(3)
      mov       A8   %A9

#IF
      Equal  A3  "ָ"
#SAY
      _{FCOLOR/1}Էнָתơ{FCOLOR/12}\\
      _<[ ]/@main>\
      _<[ ]/@exit>
#ACT
      break

#IF
      !Equal A2 ""
#ACT
      UpdateValueSql "TBL_ITEM" %A8 "FLD_TYPE=77"

#IF
#SAY
      ڽСԺ\\
#ACT
      Delaygoto [local] 1 @zhuanyi111

[@zhuanyi111]
#IF
      CheckItemw   %A0
      Equal D7 20041108
#ACT
      FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %USERNAME %D0
      ReadValueSql  "TBL_ITEM"  %A9 "FLD_CHARACTER,FLD_TYPE,FLD_NAMEPREFIX,FLD_INDEX"  [@zysql_1]
#ELSESAY
      _ûװ\\
      _<[ ]/@main>\
      _<[ ]/@exit>

[@zysql_1()]
#IF
#ACT
      mov       A4   %ARG(1)
      mov       D3   %ARG(2)
      mov       A5   %ARG(3)
      mov       D4   %ARG(4)
      mov       A8   %A9

#IF
      Equal  A5  "ָ"
#SAY
      _{FCOLOR/1}ָתơ{FCOLOR/12}\\
      _<[ ]/@main>\
      _<[ ]/@exit>
#ACT
      break

#IF
      !Equal  P8  %D4
#SAY
     _ԲתƲܽУȥĻҪ5ӻСһ¡\\
     _<[ ]/@main>\
     _<[ ]/@exit>
#ACT
     break

#IF
      !Equal    A4   ""
      CheckItemw   %A0
      Equal D7 20041108
#ACT
      FormatStr "FLD_CHARACTER='%s'" %A1
      UpdateValueSql "TBL_ITEM" %A8 %A9
      mov  D7  0
      Take Gold 20000
      Takew %A0
      Takew %A0
#SAY
      _װ˳תƸ<$OUTPUT(A1)> \\
      _<[ ]/@main>\
      _<[ ]/@exit>
#ELSESAY
      _ʹ˷ǷֶΡ\\
      _<[ ]/@main>\
      _<[ ]/@exit>
}
;; xlhly޸