[@main]
#IF
  Check [006] 1
#ACT
  break
#IF
  Check [006] 0
#SAY
ߺˣηصأʲô˶Խġ\
ܸôĻҿȥ\ \

<¡/@@InPutInteger1>

[@InPutInteger1]
#IF
  small N1 G13
#ACT
  take  <$STR(N1)>
  MESSAGEBOX <$STR(A1)>\ 
  break
#IF
  checkgold <$STR(N1)>
#ACT
  SET [006] 1
  take  <$STR(N1)>
#SAY
<$STR(A2)>
#ELSEACT
  MESSAGEBOX <$STR(A3)>\ 
  break

[@MsgFilter]
#SAY
ַǷ