(@@InPutInteger @@InPutString)
%100
[@Main]
<ImgEx:6:728:729:730:-10:50:/@>
#act
CLOSEMERCHANTBIGDLG
OPENMERCHANTBIGDLG 6 737 1 0 0 0 1 570 30
#IF
IsAdmin
#ACT
CLOSEMERCHANTBIGDLG
OPENMERCHANTBIGDLG 6 737 1 0 0 0 1 570 30
#SAY
\ \
\ \                                                      <ؾ֮ʯ˵|251#50% ؾ֮ʯ ^ؾ֮ʯвɼ.<$STR(G4)>^ 249#ؾ֮ʯԴ[<$STR(A0)>] ܳ[<$STR(G3)>]^ 244#۸(Ҫ10)+<$STR(G3)>ҲſԻù^ 250#ѳۣ[<$HUMAN()>]  ۴[<$STR(G8)>]Ҽɻù/>
\ \
\ \
\ \
\ \                                                          
\ \                                                      <ҪȨ/@>    
\ \                                                      <ȡ/@ȡ>    
\ \                                                      <޸Ĳɼ۸/@޸>
\ \                                                      </@>
#ELSESAY
\ \
\ \                                                      <ؾ֮ʯ˵|251#50% ؾ֮ʯ ^ؾ֮ʯɼ<$STR(G4)>^ 249#ؾ֮ʯԴ[<$STR(A0)>] ܳ[<$STR(G3)>]^ 244#۸(Ҫ10)+<$STR(G3)>ҲſԻù^ 250#ѳۣ[<$HUMAN()>]  ۴[<$STR(G8)>]Ҽɻù/>
\ \
\ \
\ \
\ \                                                          
\ \                                                      <ҪȨ/@>    
\ \                                                      <ȡ/@ȡ>    
\ \                                                      <޸Ĳɼ۸/@޸>

[@]
#IF
large <$STR(G4)> 9999
#ACT
DelayCall 2000 @JCYB
SHOWPROGRESSBARDLG 2  jcyb ɼؾ֮ʯ...%d% 1 @ɼж
#ELSEACT
MESSAGEBOX  ؾ֮ʯ޹
BREAK

[@JCYB]
#IF
checkgold <$STR(G4)>
#ACT
take  <$STR(G4)>
INC G5 <$STR(G4)>
give ؾ֮ʯ 1
MOV G6 <$STR(G5)>
DIV G6 2
MOV G7 <$STR(G6)>
SENDMSG 6 ؾ֮ʯѷ뱳.....
#ELSEACT
MESSAGEBOX Ҳ,ɼʧܣ

[@ȡ]
<ImgEx:6:728:729:730:-10:50/@>
\ \
\ \                                                      <ؾ֮ʯ˵|251#50% ؾ֮ʯ ^ؾ֮ʯɼ<$STR(G4)>^ 249#ؾ֮ʯԴ[<$STR(A0)>] ܳ[<$STR(G3)>]^ 244#۸(Ҫ10)+<$STR(G3)>ҲſԻù^ 250#ѳۣ[<$HUMAN()>]  ۴[<$STR(G8)>]Ҽɻù/>\ \
\ \                                            <ؾ֮ʯԴߣ50%/FCOLOR=100>\
\ \                                            <ؾ֮ʯ룺<$STR(G5)>ңȡ<$STR(G7)>/FCOLOR=100>\
\ \                                            <ʾȡ㿪ʼ/FCOLOR=100>\
\ \                                                          
\ \                                                      <ȡ/@ʼȡ>    <ҳ/@Main> 
\ \                                                      <ȡƺ/@ƺŹ>  
\ \                                                      

[@ʼȡ]
#IF
CheckNameList ..\QuestDiary\\ͼа.txt
#ACT
give  + <$STR(G7)>
SENDMSG 0 [<$USERNAME>]ؾ֮ʯԴ棺<$STR(G7)>ң
MESSAGEBOX ȡɹ<$STR(G7)>
MOV G5 0
MOV G7 0
close
#ELSEACT
MESSAGEBOX ؾ֮ʯ㣡
break

[@޸]
<ImgEx:6:728:729:730:-10:50/@>
\ \
\ \                                                      <ؾ֮ʯ˵|251#50% ؾ֮ʯ ^ؾ֮ʯɼ<$STR(G4)>^ 249#ؾ֮ʯԴ[<$STR(A0)>] ܳ[<$STR(G3)>]^ 244#۸(Ҫ10)+<$STR(G3)>ҲſԻù^ 250#ѳۣ[<$HUMAN()>]  ۴[<$STR(G8)>]Ҽɻù/>\ \
\ \                                            <߿Զؾ֮ʯԴļ۸е/FCOLOR=100>\
\ \                                            <ǰԴ۸Ϊ<$STR(G4)>/FCOLOR=100>\
\ \                                            <ʾü۸Ϊ1-10ã/FCOLOR=100>\
\ \                                                          
\ \                                                      <޸ĲɼԴ۸/@@InPutInteger9>    <ҳ/@Main> 
\ \                                                      
\ \     


[@@InPutInteger9]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 @InPutInteger9
break
[@InPutInteger9]
#IF
large n9 9999
small n9 99999
#ACT
GOTO @JXGJ
#ELSEACT
MESSAGEBOX ļʧܣü۸Ϊ1-10ã
break

[@JXGJ]
#IF
CheckNameList ..\QuestDiary\\ͼа.txt
#ACT 
MOV G4 <$STR(n9)>
MESSAGEBOX ɼ޸ĳɹ
SENDMSG 0 [<$STR(A0)>]ʹ[<$HUMAN()>]һؾ֮ʯɼ<$STR(G4)>
Goto @Main
#ELSEACT
MESSAGEBOX ߲ſԶۣ
break

[@]
<ImgEx:6:728:729:730:-10:50/@>
\ \
\ \                                                      <ؾ֮ʯ˵|251#50% ؾ֮ʯ ^ؾ֮ʯɼ<$STR(G4)>^ 249#ؾ֮ʯԴ[<$STR(A0)>] ܳ[<$STR(G3)>]^ 244#۸(Ҫ10)+<$STR(G3)>ҲſԻù^ 250#ѳۣ[<$HUMAN()>]  ۴[<$STR(G8)>]Ҽɻù/>\ \
\ \                                            <<$STR(G3)>+10Ҽɻù/FCOLOR=100>\
\ \                                            <ǰԴ۸Ϊ<$STR(G4)>/FCOLOR=100>\ \
\ \                                            <ʾɼں󽫻㣡/FCOLOR=100>\
\ \                                                          
\ \                                                  <ȷؾ֮ʯ/@@InPutInteger8>     <ҳ/@Main> 
\ \                                                     
\ \     



[@@InPutInteger8]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 InPutInteger8
break
[@InPutInteger8]
#IF
LARGE n8 99999
checkgold  <$STR(n8)>
#ACT
take  <$STR(n8)>
CALCVAR HUMAN  + <$STR(n8)>
SAVEVAR HUMAN  ..\QuestDiary\\.txt
SENDMSG 5 Ľ<$STR(n8)>...
DelayGoto 1 @ۼ
#ELSEACT
MESSAGEBOX ڵǰ10򱳰Ҳ㣡


[@ۼ]
#IF
CHECKVAR HUMAN  > <$STR(G8)>
#ACT
MOV G3 <$HUMAN()>
MOV A0 <$USERNAME>
MOV G8 <$STR(G3)>
INC G8 100000
ClearNameList ..\QuestDiary\\ͼа.txt
AddNameList ..\QuestDiary\\ͼа.txt
goto @޸
BREAK
[@IsInFilterList]
#If
CheckLevelEx > 0 
#Act
MessageBox а˷Ƿַ.±༭
Goto @Main
Break
[@]
#IF
IsAdmin
#ACT
MOV G3 0
MOV G4 0
MOV G5 0
MOV G6 0
MOV G7 0
MOV G8 0
MOV A0 
MOV <$HUMAN()> 0
ClearNameList ..\QuestDiary\\.txt
ClearNameList ..\QuestDiary\\ͼа.txt
MESSAGEBOX ؾ֮ʯɹ




[@ƺŹ]
#if
CheckNameList ..\QuestDiary\\ͼа.txt
#act
GetListString ..\QuestDiary\\ƺŹ.txt 0 S102
<$STR(S102)>.RECYCFENGHAO ؾ
CONFERTITLE ؾ 1 
ClearNameList ..\QuestDiary\\ƺŹ.txt
AddNameList ..\QuestDiary\\ƺŹ.txt








