[@ZAIXCZHI]
{
#IF
#say
Ŀ룺\ \

<Ŀţ/@@InPutString1> <$STR(S1)>\
<Ŀܣ/@@InPutString2> <$STR(S2)>\ \ 

<ȷпʶ/@QUEDWUCZ>\

[@InPutString2]
#ACT
  MOV S2 S2
  GOTO @ZAIXCZHI
  break

[@InPutString1]
#ACT
  MOV S1 S1
  GOTO @ZAIXCZHI
  break

[@QUEDWUCZ]
#IF
  CHECKCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\5Ԫ.txt
#ACT
  MUL N1 5 G69
  MOV N2 5
  SET [009] 1
  GOTO @ʶ
  break
#IF
  CHECKCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\10Ԫ.txt
#ACT
  MUL N1 10 G69
  MOV N2 10
  SET [009] 1
  GOTO @ʶ
  break
#IF
  CHECKCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\50Ԫ.txt
#ACT
  MUL N1 50 G69
  MOV N2 50
  SET [009] 1
  GOTO @ʶ
  break
#IF
  CHECKCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\100Ԫ.txt
#ACT
  MUL N1 100 G69
  MOV N2 100
  SET [009] 1
  GOTO @ʶ
  break
#IF
  CHECKCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\300Ԫ.txt
#ACT
  MUL N1 300 G69
  MOV N2 300
  SET [009] 1
  GOTO @ʶ
  break
#IF
  CHECKCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\500Ԫ.txt
#ACT
  MUL N1 500 G69
  MOV N2 500
  SET [009] 1
  GOTO @ʶ
  break
#ELSEACT
  MESSAGEBOX ޷ʶĿţѾֵ
  break

[@ʶ]
#IF
  equal G127 0
#ACT
  DELAYGOTO 100 @JBLEIXCZ
  break
#ELSEACT
  DELAYGOTO 100 @YBLEIXCZ
  break

[@YBLEIXCZ]
#ACT
  CLEARDELAYGOTO
#SAY
Ϊ <$STR(S1)>\
Ϊ <$STR(S2)>\ \

˿Ϊ<$STR(N2)>Ԫֵ\ 
˴γֵԻã<$STR(N1)> ң\ \

<ȷ޴/@KAISCZHI>

#ELSESAY
ĿŻ벻ԣ\
ȷǷ󣬵㷵룡 \ \

</@ZAIXCZHI>

[@JBLEIXCZ]
#ACT
  CLEARDELAYGOTO
#SAY
Ϊ <$STR(S1)>\
Ϊ <$STR(S2)>\ \

˿Ϊ<$STR(N2)>Ԫֵ\ 
˴γֵԻã<$STR(N1)> ң\ \

<ȷ޴/@KAISCZHI>

#ELSESAY
ĿŻ벻ԣ\
ȷǷ󣬵㷵룡 \ \

</@ZAIXCZHI>

[@KAISCZHI]
#IF
  equal G127 0
#ACT
  DELAYGOTO 100 @HUODECZJB
  break
#ELSEACT
  DELAYGOTO 100 @HUODECZYB
  break

[@HUODECZJB]
#IF
  equal G128 1
  check [009] 1
#ACT
  SET [009] 0
  GIVE  N1
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\5Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\10Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\50Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\100Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\300Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\500Ԫ.txt
  CLEARDELAYGOTO
  CALCVAR ACCOUNT ֵ + <$STR(N1)>
  SAVEVAR ACCOUNT ֵ ..\QuestDiary\ļ\ֵ.txt
  GOTO @CGCZHIJL
  break
#IF
  equal G128 0
  check [009] 1
#ACT
  SET [009] 0
  GIVE  N1
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\5Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\10Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\50Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\100Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\300Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\500Ԫ.txt
  CLEARDELAYGOTO
  GOTO @CGCZHIJL
  break
#ELSEACT
  GOTO @JCZUOBCZ
  break
[@CGCZHIJL]
#IF
#SAY
˴γֵɹԽ <$STR(N1)> תĸ˰У\ 
գϵͷQQ<$QQ>\ \

</@ZAIXCZHI>

[@JCZUOBCZ]
㵱ǰΪѾϵͳ¼\
¼Σ㽫ñ룡\ \

</@Ʒ>

[@HUODECZYB]
#IF
  equal G128 1
  check [009] 1
#ACT
  SET [009] 0
  GAMEGOLD + N1
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\5Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\10Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\50Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\100Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\300Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\500Ԫ.txt
  CLEARDELAYGOTO
  CALCVAR ACCOUNT ֵ + <$STR(N1)>
  SAVEVAR ACCOUNT ֵ ..\QuestDiary\ļ\ֵ.txt
  GOTO @CGCZHIJL
  break
#IF
  equal G128 0
  check [009] 1
#ACT
  SET [009] 0
  GAMEGOLD + N1
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\5Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\10Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\50Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\100Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\300Ԫ.txt
  CLEARCODELIST <$STR(S1)> <$STR(S2)> ..\QuestDiary\ֵϵͳ\500Ԫ.txt
  CLEARDELAYGOTO
  GOTO @CGCZHIJLYB
  break
#ELSEACT
  GOTO @JCZUOBCZ
  break
[@CGCZHIJLYB]
#SAY
˴γֵɹԽ <$STR(N1)> תĸУ\ 
~\ \ \

</@ʽ>

}