[@]
{
#if
#act
OPENMERCHANTBIGDLG 9 359 1 4 1 -100 1 494 22
#SAY
\  \
  <ѩ˪/SCOLOR=250>   <ˮ/SCOLOR=250> <ħˮ/SCOLOR=250>\
  6ѩ˪    ˲5㹥    ˲5ħ<Img:2094:14:-435:-7/@@InPutInteger51(Ҫ)> <Img:425:14:-318:-7/@@InPutInteger53(Ҫ)><Img:423:14:-190:-7/@@InPutInteger54(Ҫ)>\
  <70/SCOLOR=151>   <10/SCOLOR=151>   <10/SCOLOR=151>\ \
  <ˮ/SCOLOR=250>     <ף/SCOLOR=250>   <سǴʯ/SCOLOR=250>\
  ˲5  ˡ       ʹ20<Img:421:14:-397:-7/@@InPutInteger55(Ҫ)> <Img:26:14:-273:-7/@@InPutInteger56(Ҫ)><Img:1010:14:-150:-7/@@InPutInteger57(Ҫ)>\
  <10/SCOLOR=151>   <40/SCOLOR=151>   <10/SCOLOR=151>\ \
  <ʯ/SCOLOR=250>     </SCOLOR=250>     <춾/SCOLOR=250>\
  ʹ50Ρ       ʹ600Ρ        ʹ600<Img:1025:14:-413:-7/@@InPutInteger58(Ҫ)> <Img:270:14:-300:-7/@@InPutInteger59(Ҫ)><Img:258:14:-180:-7/@@InPutInteger60(Ҫ)>\
  <10/SCOLOR=151>   <10/SCOLOR=151>     <10/SCOLOR=151>\ \
  <̶/SCOLOR=250>       <޸ˮ/SCOLOR=250>       </SCOLOR=250>\  ʹ600Ρ      ʹ10Ρ         100<Img:259:14:-418:-7/@@InPutInteger91(Ҫ)> <Img:120:14:-300:-7/@@InPutInteger92(Ҫ)><Img:117:14:-172:-7/@@InPutInteger93(Ҫ)>\
  <10/SCOLOR=151>     <10/SCOLOR=151>     <40/SCOLOR=151>\ \{:<$GameDiamond>/SCOLOR=151}\
<Img:204:9:-6:0|146#ҪһĲ^151#-----------------------------^151#Ԫһҡ^151#һ10:10000^151#-----------------------------/@@InPutInteger50(ԪһұΪ10:10000,Ҫһ10Ԫ)>   <Img:61:9:90:0|146#رնԻ/@exit> 



[@InPutInteger51]
#IF
SMALL N51 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N51)>
#act
MESSAGEBOX ʧܣҪ<$STR(N51)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N51 70

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ѩ˪ <$STR(N51)>
SENDMSG 6 ɹѳɹ<$STR(N51)>ѩ˪<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N51)>ѩ˪,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger53]
#IF
SMALL N53 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N53)>
#act
MESSAGEBOX ʧܣҪ<$STR(N53)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N53 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ˮ <$STR(N53)>
SENDMSG 6 ɹѳɹ<$STR(N53)>ˮ<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N53)>ˮ,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger54]
#IF
SMALL N54 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N54)>
#act
MESSAGEBOX ʧܣҪ<$STR(N54)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N54 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ħˮ <$STR(N54)>
SENDMSG 6 ɹѳɹ<$STR(N54)>ħˮ<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N54)>ħˮ,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger55]
#IF
SMALL N55 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N55)>
#act
MESSAGEBOX ʧܣҪ<$STR(N55)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N55 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ˮ <$STR(N55)>
SENDMSG 6 ɹѳɹ<$STR(N55)>ˮ<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N55)>ˮ,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger56]
#IF
SMALL N56 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N56)>
#act
MESSAGEBOX ʧܣҪ<$STR(N56)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N56 40

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ף <$STR(N56)>
SENDMSG 6 ɹѳɹ<$STR(N56)>ף͡<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N56)>ף͡,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger57]
#IF
SMALL N57 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N57)>
#act
MESSAGEBOX ʧܣҪ<$STR(N57)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N57 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE سʯ <$STR(N57)>
SENDMSG 6 ɹѳɹ<$STR(N57)>سʯ<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N57)>سʯ,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger58]
#IF
SMALL N58 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N58)>
#act
MESSAGEBOX ʧܣҪ<$STR(N58)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N58 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ʯ <$STR(N58)>
SENDMSG 6 ɹѳɹ<$STR(N58)>ʯ<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N58)>ʯ,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger59]
#IF
SMALL N59 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N59)>
#act
MESSAGEBOX ʧܣҪ<$STR(N59)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N59 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE  <$STR(N59)>
SENDMSG 6 ɹѳɹ<$STR(N59)><$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N59)>,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger60]
#IF
SMALL N60 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N60)>
#act
MESSAGEBOX ʧܣҪ<$STR(N60)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N60 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE 춾 <$STR(N60)>
SENDMSG 6 ɹѳɹ<$STR(N60)>춾<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N60)>춾,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger91]
#IF
SMALL N91 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N91)>
#act
MESSAGEBOX ʧܣҪ<$STR(N91)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N91 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ̶ <$STR(N91)>
SENDMSG 6 ɹѳɹ<$STR(N91)>̶<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N91)>̶,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger92]
#IF
SMALL N92 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N92)>
#act
MESSAGEBOX ʧܣҪ<$STR(N92)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N92 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE ޸ˮ <$STR(N62)>
SENDMSG 6 ɹѳɹ<$STR(N92)>޸ˮ<$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N92)>޸ˮ,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger93]
#IF
SMALL N93 1
#ACT
MESSAGEBOX ʾΪ1
BREAK

#if
NOT CHECKBAGSIZE <$STR(N93)>
#act
MESSAGEBOX ʧܣҪ<$STR(N93)>ոܹ.
BREAK

#IF
#ACT
MUL S$۸ N93 10

#if
CHECKGAMEDIAMOND ? <$STR(S$۸)>
#ACT
GAMEDIAMOND - <$STR(S$۸)>
GIVE  <$STR(N93)>
SENDMSG 6 ɹѳɹ<$STR(N93)><$STR(S$۸)>
SENDMSG 6 ʾ㵱ǰһʣ[<$GAMEDIAMOND>]
GOTO @
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(N93)>,Ҫ<$STR(S$۸)>.
BREAK

[@InPutInteger50]
#IF
SMALL N50 10
#ACT
MESSAGEBOX Ҫ10Ԫſɶһ.
BREAK

#IF
#ACT
MOV S$۸ <$STR(N50)>
DIV S$۸ 10
MUL S$۸ 10000

#if
CHECKGAMEGOLD ? <$STR(N50)>
#ACT
GAMEGOLD - <$STR(N50)>
GAMEDIAMOND + <$STR(S$۸)>
SENDMSG 7 һɹϲɹһ<$STR(S$۸)>.
MESSAGEBOX һɹϲɹһ<$STR(S$۸)>.
GOTO @
BREAK
#ELSEACT
MESSAGEBOX һʧܣԲԪ<$STR(N50)>
BREAK
}
