(@buy @sell @upgradenow @getbackupgnow @repair @s_repair @@InPutString @@InPutInteger @ReclaimItem )
%100
+10
+11
+15
[@main]
#IF
CHECKLEVELEX > 0
#ACT
LOADVAR HUMAN JK ..\QuestDiary\\Ԫ.txt
SortHumVarToListEx JK ..\QuestDiary\\Ԫ.txt 1 ..\QuestDiary\\.txt 1
GetListString ..\QuestDiary\\.txt 0 S201 N201
GetListString ..\QuestDiary\\.txt 1 S202 N202
GetListString ..\QuestDiary\\.txt 2 S203 N203
GetListString ..\QuestDiary\\.txt 3 S204 N204
GetListString ..\QuestDiary\\.txt 4 S205 N205
GetListString ..\QuestDiary\\.txt 5 S206 N206
GetListString ..\QuestDiary\\.txt 6 S207 N207
SetStringBlank S201 14 1
SetStringBlank S202 14 1
SetStringBlank S203 14 1
SetStringBlank S204 14 1
SetStringBlank S205 14 1
SetStringBlank S206 14 1
SetStringBlank S207 14 1
MOV S211 <$USERNAME>
INC S211 :<$HUMAN(JK)>
GetStringPos ..\QuestDiary\\.txt <$STR(S211)>
INC N0 1
MOV N218 <$STR(N0)>
MOV S213 


#IF
EQUAL N0 1
CHECKVAR HUMAN JK > 0
#ACT
MOV S213 
goto @main1
BREAK

#IF
EQUAL N0 2
CHECKVAR HUMAN JK > 0
#ACT
MOV S213
goto @main1
BREAK

#IF
EQUAL N0 3
CHECKVAR HUMAN JK > 0
#ACT
MOV S213 
goto @main1
BREAK

#IF
EQUAL N0 4
CHECKVAR HUMAN JK > 0
#ACT
MOV S213 
goto @main1
BREAK

#IF
EQUAL N0 5
CHECKVAR HUMAN JK > 0
#ACT
MOV S213 
goto @main1
BREAK

#IF
EQUAL N0 6
CHECKVAR HUMAN JK > 0
#ACT
MOV S213 
goto @main1
BREAK

#IF
EQUAL N0 7
CHECKVAR HUMAN JK > 0
#ACT
MOV S213 
goto @main1
#ELSEACT
goto @main1
BREAK



[@main1]
#IF
#ACT
OPENMERCHANTBIGDLG 2 87 1 0 100 80 1 409 6 0
#SAY
\ \ \
<Text:еһ:10:20{FCOLOR=7}><Text:+60%ݵ㣬+60%ʣ:10:20{FCOLOR=146}><Text:+200౶:10:20{FCOLOR=242}> \
<Text:еڶ:10:30{FCOLOR=7}><Text:+60%ݵ㣬+60%ʣ:10:30{FCOLOR=146}> \
<Text:е:10:40{FCOLOR=7}><Text:+30%ݵ㣬+30%ʣ:10:40{FCOLOR=146}>  \
<Text:----------------------------------------------------------------:10:45{FCOLOR=12}> \
<Text:С     Լӳɡ     ֡     ׽:10:50{FCOLOR=94}> \ \
<Text:һ:27:50{FCOLOR=70}>   <Text:80-80㹥ħ:56:50{FCOLOR=7}> <Text:<$STR(N201)>:200:50{FCOLOR=250}>\ \
<Text:ڶ:27:45{FCOLOR=70}>   <Text:64-64㹥ħ:56:45{FCOLOR=7}> <Text:<$STR(N202)>:200:45{FCOLOR=250}>\ \
<Text::27:40{FCOLOR=70}>   <Text:48-48㹥ħ:56:40{FCOLOR=7}> <Text:<$STR(N203)>:200:40{FCOLOR=250}>\ \
<Text::27:35{FCOLOR=70}>   <Text:40-40㹥ħ:56:35{FCOLOR=7}> <Text:<$STR(N204)>:200:35{FCOLOR=250}>\ \
<Text::27:30{FCOLOR=70}>   <Text:32-32㹥ħ:56:30{FCOLOR=7}> <Text:<$STR(N205)>:200:30{FCOLOR=250}>\ \
<Text::27:25{FCOLOR=70}>   <Text:24-24㹥ħ:56:25{FCOLOR=7}> <Text:<$STR(N206)>:200:25{FCOLOR=250}>\ \
<Text::27:20{FCOLOR=70}>   <Text:16-16㹥ħ:56:20{FCOLOR=7}> \ \
<Text:----------------------------------------------------------------:10:10{FCOLOR=12}> \
<Text:˾׽<$HUMAN(JK)>Ԫ:15:20{FCOLOR=250}>  \  
<Text:<$STR(S201)>:230:-205{FCOLOR=255}>  \ \
<Text:<$STR(S202)>:230:-210{FCOLOR=255}>  \ \
<Text:<$STR(S203)>:230:-215{FCOLOR=255}>  \ \
<Text:<$STR(S204)>:230:-220{FCOLOR=255}>  \ \
<Text:<$STR(S205)>:230:-225{FCOLOR=255}>  \ \
<Text:<$STR(S206)>:230:-230{FCOLOR=255}>  \ \
<Text:[100]Ԫɻ:230:-235{FCOLOR=254}>  \ \
<TEXT:׽:260:-219/@@InPutInteger16>  




[@InPutInteger16]
#IF
EQUAL N16
#ACT
messagebox !
GOTO @WYJK
BREAK

#IF
SMALL N16 100
#ACT
messagebox ҪľĽС100Ԫ!
BREAK


#IF
CHECKGAMEGOLD ? <$STR(N16)>
#ACT
GAMEGOLD - <$STR(N16)>
CALCVAR HUMAN JK + <$STR(N16)>
SAVEVAR HUMAN JK ..\QuestDiary\\Ԫ.txt
Addnamelist ..\QuestDiary\\.txt
#CALL [¼\ˢ.txt] @ˢ
#CALL [¼\Ӣˢ.txt] @Ӣˢ
SENDMSG 0 ҡ<$USERNAME>ʹá<$STR(N16)>ԪԪа 250 0
GOTO @ˢ
goto @main
#ELSEACT
messagebox û㹻Ԫ
BREAK

[@ˢ]
#ACT
SortHumVarToListEx JK ..\QuestDiary\\Ԫ.txt 1 ..\QuestDiary\\.txt 1
GetListString ..\QuestDiary\\.txt 0 S201 N201
GetListString ..\QuestDiary\\.txt 1 S202 N202
GetListString ..\QuestDiary\\.txt 2 S203 N203
GetListString ..\QuestDiary\\.txt 3 S204 N204
GetListString ..\QuestDiary\\.txt 4 S205 N205
GetListString ..\QuestDiary\\.txt 5 S206 N206
ClearNameList ..\QuestDiary\\һ.txt
ClearNameList ..\QuestDiary\\ڶ.txt
ClearNameList ..\QuestDiary\\.txt
ClearNameList ..\QuestDiary\\.txt
ClearNameList ..\QuestDiary\\.txt
ClearNameList ..\QuestDiary\\.txt
AddTextList ..\QuestDiary\\һ.txt <$STR(S201)>
AddTextList ..\QuestDiary\\ڶ.txt <$STR(S202)>
AddTextList ..\QuestDiary\\.txt <$STR(S203)>
AddTextList ..\QuestDiary\\.txt <$STR(S204)>
AddTextList ..\QuestDiary\\.txt <$STR(S205)>
AddTextList ..\QuestDiary\\.txt <$STR(S206)>
MOV S211 <$USERNAME>
INC S211 :<$HUMAN(JK)>
GetStringPos ..\QuestDiary\\.txt <$STR(S211)>
INC N0 1
MOV N218 <$STR(N0)>










