[@]
{
#IF
  CheckPKPoint > 199
#ACT
  MOV M3 <$PKPOINT>
  DEC M3 199
  MUL M3 2 M3
#SAY
ܳ˵һɱ˲ˣ\
ҪڱһЩʱ䣬\
еĲͬҪ׼ʱҲͬ\ \
PKֵΪ<$PKPOINT>   Ҫڱϣ <$STR(M3)> ӡ\ \

<Ǯҳȥ/@GEIQCQ>\
<ʼҡ/@FAYOUJI>\

#ELSESAY
ڿԳȥˡ\
ȥҪúˣɱˣ\ \

<һȥ/@HUIQU>

[@FAYOUJI]
<ʼϵͳ/FCOLOR=146>ÿһʼҪ<$STR(G52)>ҡ\
<--------------------------------------------------------/FCOLOR=249>\
<  ˣ/#sCOLOR=251> <$STR(S1)>\
<ʼݣ/#sCOLOR=251> <$STR(S2)>\
<  ˣ/#sCOLOR=251> <$STR(S99)>\
<ʱ䣺/#sCOLOR=251> <$DATETIME>\
<--------------------------------------------------------/FCOLOR=249>\
<дռ/@@InPutString1>    <дʼ/@@InPutString2>    <д/@CXZAIXIE>    <ʼ/@FASONGYJ>    </@>

[@CXZAIXIE]
#ACT
  MOV S1 A499
  MOV S2 A499
  GOTO @FAYOUJI
  break

[@InPutString1]
#IF
  equal S1 S99
#ACT
  MESSAGEBOX ռ˵ƲΪԼ֣
  break
#IF
#ACT
  MOV S1 S1
  GOTO @FAYOUJI
  break

[@InPutString2]
#IF
#ACT
  MOV S2 S2
  GOTO @FAYOUJI
  break

[@FASONGYJ]
#IF
  large A6 A499
#ACT
  MESSAGEBOX ʹô˹ܣԺã
  break
#IF
  large A7 A499
#ACT
  MESSAGEBOX ʹô˹ܣԺã
  break
#IF
  large A8 A499
#ACT
  MESSAGEBOX ʹô˹ܣԺã
  break
#IF
  equal S1 A499
#ACT
  MESSAGEBOX ռ˵ƲΪգ
  break
#IF
  equal S2 A499
#ACT
  MESSAGEBOX Ҫ˵ݲΪգ
  break
#IF
  equal S1 S99
#ACT
  MESSAGEBOX ռ˵ƲΪԼ֣
  break
#IF
  checkgold G52
#ACT
  GOTO @FASONG
  break
#ELSEACT
  MESSAGEBOX ûôң\ 
  break

[@FASONG]
#IF
  CHECKONLINE S1
#ACT
  MOV A6 S1
  MOV A7 S2
  MOV A8 S99
  HCall A6 @ʼ
  take  G52
  MESSAGEBOX ʼѾɹͣ
#ELSEACT
  MESSAGEBOX ֣<$STR(S1)>ߡ
  break

[@GEIQCQ]
#IF
  CheckPKPoint > 199
#ACT
  MOV M3 <$PKPOINT>
  DEC M3 199
  MUL M3 2 M3
#SAY
Ǯʲô¶ð죬\
ÿ1PKֵҪ<$STR(G53)>ңPKֵ<$PKPOINT>\
Ҫڱϣ <$STR(M3)> ӡ\ \

<Ǯ/@@InPutInteger3>\
<ǮҪˢ/@@InPutInteger4>\ \

</@>
#ELSESAY
ڿԳȥˡ\
ȥҪúˣɱˣ\ \

<һȥ/@HUIQU>
;-----------------------------------------------------
[@InPutInteger4]
#IF
  small N4 1
#ACT
  MESSAGEBOX ÿٲ1㡣
  break
#IF
  large N4 4999
#ACT
  MESSAGEBOX ÿ಻ܳ5000㡣\ 
  break
#IF
  large N4 0
#ACT
  MUL M5 N4 G53
  DEC M5 1
  GOTO @SHUAKA
  BREAK

[@SHUAKA]
#IF
  CHECKGAMEGOLD > M5
#ACT
  GAMEGOLD - M5
  CHANGEPKPOINT - N4
  GOTO @GEIQCQ
  MESSAGEBOX ֧ɹѼ٣<$STR(N4)>PKֵ\
  BREAK
#ELSEACT
  MESSAGEBOX ˻ʽ֧\ 
  break

;-----------------------------------------------------
[@InPutInteger3]
#IF
  small N3 1
#ACT
  MESSAGEBOX ÿٲ1㡣
  break
#IF
  large N3 4999
#ACT
  MESSAGEBOX ÿ಻ܳ5000㡣\ 
  break
#IF
  large N3 0
#ACT
  MUL M4 N3 G53
  GOTO @JBZHIFU
  BREAK

[@JBZHIFU]
#IF
  checkgold M4
#ACT
  take  M4
  CHANGEPKPOINT - N3
  GOTO @GEIQCQ
  MESSAGEBOX ֧ɹԼ٣<$STR(N3)>PKֵ\
  BREAK
#ELSEACT
  MESSAGEBOX ûôң\ 
  break
;-----------------------------------------------------
[@HUIQU]
#ACT
  GoHome
  CHANGEMODE 6 1
  CHANGEMODE 7 1
  close

[@MsgFilter]
#SAY
ַǷ
}