(@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 S21 N21
GetListString ..\QuestDiary\\Ԫ\.txt 1 S22 N22
GetListString ..\QuestDiary\\Ԫ\.txt 2 S23 N23
GetListString ..\QuestDiary\\Ԫ\.txt 3 S24 N24
GetListString ..\QuestDiary\\Ԫ\.txt 4 S25 N25
GetListString ..\QuestDiary\\Ԫ\.txt 5 S26 N26

MOV S27 <$USERNAME>
INC S27 :<$HUMAN(JK)>
GetStringPos ..\QuestDiary\\Ԫ\.txt <$STR(S27)>
INC N30 1
MOV N28 <$STR(N30)>
MOV S28 



#IF
EQUAL N30 1
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:15>
goto @main1
BREAK

#IF
EQUAL N30 2
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:31>
goto @main1
BREAK

#IF
EQUAL N30 3
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:47>
goto @main1
BREAK

#IF
EQUAL N30 4
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:63>
goto @main1
BREAK

#IF
EQUAL N30 5
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:79>
goto @main1
BREAK

#IF
EQUAL N30 6
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:95>
goto @main1
#ELSEACT
goto @main1
BREAK



[@MAIN1]
#IF
CHECKNAMELIST ..\QuestDiary\\.txt
#act
#SAY
<ޡޡޡޡޡޡޡޡޡޡޡ/SCOLOR=10>\
<׵һ/SCOLOR=254>:<ħ/SCOLOR=46> <15-15/SCOLOR=250> </SCOLOR=46>:{<$STR(N21)>/SCOLOR=250}</SCOLOR=46>:<$STR(S21)>\
<׵ڶ/SCOLOR=254>:<ħ/SCOLOR=46> <10-10/SCOLOR=250> </SCOLOR=46>:{<$STR(N22)>/SCOLOR=250}</SCOLOR=46>:<$STR(S22)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <08-08/SCOLOR=250> </SCOLOR=46>:{<$STR(N23)>/SCOLOR=250}</SCOLOR=46>:<$STR(S23)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <06-06/SCOLOR=250> </SCOLOR=46>:{<$STR(N24)>/SCOLOR=250}</SCOLOR=46>:<$STR(S24)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <04-04/SCOLOR=250> </SCOLOR=46>:{<$STR(N25)>/SCOLOR=250}</SCOLOR=46>:<$STR(S25)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <02-02/SCOLOR=250>     <鿴׹/@׹>     <Ҫ/@@InPutInteger15>\
<ޡޡޡޡޡޡޡޡޡޡޡ/SCOLOR=10>\
#ELSESAY
<ޡޡޡޡޡޡޡޡޡޡޡ/SCOLOR=10>\
<׵һ/SCOLOR=254>:<ħ/SCOLOR=46> <15-15/SCOLOR=250> </SCOLOR=46>:{<$STR(N21)>/SCOLOR=250}</SCOLOR=46>:<$STR(S21)>\
<׵ڶ/SCOLOR=254>:<ħ/SCOLOR=46> <10-10/SCOLOR=250> </SCOLOR=46>:{<$STR(N22)>/SCOLOR=250}</SCOLOR=46>:<$STR(S22)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <08-08/SCOLOR=250> </SCOLOR=46>:{<$STR(N23)>/SCOLOR=250}</SCOLOR=46>:<$STR(S23)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <06-06/SCOLOR=250> </SCOLOR=46>:{<$STR(N24)>/SCOLOR=250}</SCOLOR=46>:<$STR(S24)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <04-04/SCOLOR=250> </SCOLOR=46>:{<$STR(N25)>/SCOLOR=250}</SCOLOR=46>:<$STR(S25)>\
<׵/SCOLOR=254>:<ħ/SCOLOR=46> <02-02/SCOLOR=250>     <鿴׹/@׹>     <Ҫ/@@InPutInteger15>\
<ޡޡޡޡޡޡޡޡޡޡޡ/SCOLOR=10>\
[@׹]
#IF
#ACT
MESSAGEBOX 100Ԫ!\ǰ5ֱ:ͳӾš\ݡ


;

[@InPutInteger15]
#IF
EQUAL N15
#ACT
messagebox !
GOTO @WYJK
BREAK

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


#IF
CHECKGAMEGOLD > <$STR(N15)>
#ACT
GAMEGOLD - <$STR(N15)>
CALCVAR HUMAN JK + <$STR(N15)>
SAVEVAR HUMAN JK ..\QuestDiary\\Ԫ\Ԫ.txt
Addnamelist ..\QuestDiary\\.txt
MESSAGEBOX лԱ֧!׺СȲſЧ
#ELSEACT
messagebox û㹻Ԫ
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N21)>
#ACT
GuildNoticeMsg 251 0  ҡ<$USERNAME><$STR(N15)>Ԫҡ<$STR(S21)>ͳƺţ߹ħ+15.
GOTO @ˢ
BREAK

#IF
CHECKVAR HUMAN JK > <$STR(N22)>
#ACT
GuildNoticeMsg 251 0  ҡ<$USERNAME><$STR(N15)>Ԫҡ<$STR(S22)>ƺţ߹ħ+10.
GOTO @ˢ
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N23)>
#ACT
GuildNoticeMsg 251 0  ҡ<$USERNAME><$STR(N15)>Ԫҡ<$STR(S23)>ƺţ߹ħ+8.
GOTO @ˢ
BREAK



#IF
CHECKVAR HUMAN JK > <$STR(N24)>
#ACT
GuildNoticeMsg 251 0  ҡ<$USERNAME><$STR(N15)>Ԫҡ<$STR(S24)>ƺţ߹ħ+6.
GOTO @ˢ
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N25)>
#ACT
GuildNoticeMsg 251 0  ҡ<$USERNAME><$STR(N15)>Ԫҡ<$STR(S25)>Ӿƺţ߹ħ+4.
GOTO @ˢ
BREAK


[@ˢ]
#ACT
SortHumVarToListEx JK ..\QuestDiary\\Ԫ\Ԫ.txt 1 ..\QuestDiary\\Ԫ\.txt 1
GetListString ..\QuestDiary\\Ԫ\.txt 0 S21 N21
GetListString ..\QuestDiary\\Ԫ\.txt 1 S22 N22
GetListString ..\QuestDiary\\Ԫ\.txt 2 S23 N23
GetListString ..\QuestDiary\\Ԫ\.txt 3 S24 N24
GetListString ..\QuestDiary\\Ԫ\.txt 4 S25 N25
GetListString ..\QuestDiary\\Ԫ\.txt 5 S26 N26
ClearNameList ..\QuestDiary\\һ.txt
ClearNameList ..\QuestDiary\\ڶ.txt
ClearNameList ..\QuestDiary\\.txt
ClearNameList ..\QuestDiary\\.txt
ClearNameList ..\QuestDiary\\.txt
AddTextList ..\QuestDiary\\һ.txt <$STR(S21)>
AddTextList ..\QuestDiary\\ڶ.txt <$STR(S22)>
AddTextList ..\QuestDiary\\.txt <$STR(S23)>
AddTextList ..\QuestDiary\\.txt <$STR(S24)>
AddTextList ..\QuestDiary\\.txt <$STR(S25)>
MOV S27 <$USERNAME>
INC S27 :<$HUMAN(JK)>
GetStringPos ..\QuestDiary\\Ԫ\.txt <$STR(S27)>
INC N30 1
MOV N28 <$STR(N30)>
