ϵͳͨҰ 
(@@InPutString @@InPutInteger )  
[@main]  
\ \  
<$STR(A30)>\  
<$STR(A31)>\  
<$STR(A32)>\  
<$STR(A33)>\  
<$STR(A34)>\  
<$STR(A35)>\  
<$STR(A36)>\  
<$STR(A37)>\  
<Ҫͨҵ/SCOLOR=250><Ҫ/@><ֻʾ8/SCOLOR=250>\  


[@]  
ӭ<ʥԴ/SCOLOR=250>үϵͳͨ<$GAMEGOLD>\ \  
<>\ \  
<һλ/@1><λ/@2><λ/@3><ĺλ/@4>\ \  

<λ/@5><λ/@6><ߺλ/@7><˺λ/@8>\ \  

<><$DATETIME><>\  
[@1]  
һλõĵǰ:<$STR(I0)>ͨ.\ \  
<뷢Ϣ/@@InPutString30>  </@>\ \  

[@CallInPutString30]  
#IF  
EQUAL S30  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I0)>  
#Act  
GAMEGOLD - <$STR(I0)>  
MOV S0 <  
INC S0 <$USERNAME>  
INC S0 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S20  
INC S0 <$STR(S20)>  
INC S0 ><˵  
INC S0 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S20  
INC S0 <$STR(S20)>  
INC S0  ><  
INC S0 <$STR(S30)>  
INC S0 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S20  
INC S0 <$STR(S20)>  
INC S0 >  
Inc I0 <$STR(I0)>  
MOV A30 <$STR(S0)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I0)>. </@>\ \  


[@2]  
λõĵǰ:<$STR(I1)>ͨ.\ \  
<뷢Ϣ/@@InPutString31>  </@>\ \  

[@CallInPutString31]  
#IF  
EQUAL S31  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I1)>  
#Act  
GAMEGOLD - <$STR(I1)>  
MOV S1 <  
INC S1 <$USERNAME>  
INC S1 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S20  
INC S1 <$STR(S20)>  
INC S1 ><˵  
INC S1 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S20  
INC S1 <$STR(S20)>  
INC S1  ><  
INC S1 <$STR(S30)>  
INC S1 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S20  
INC S1 <$STR(S20)>  
INC S1 >  
Inc I1 <$STR(I0)>  
MOV A31 <$STR(S1)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I1)>. </@>\ \  
[@3]  
λõĵǰ:<$STR(I2)>ͨ.\ \  
<뷢Ϣ/@@InPutString32>  </@>\ \  

[@CallInPutString32]  
#IF  
EQUAL S32  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I2)>  
#Act  
GAMEGOLD - <$STR(I2)>  
MOV S2 <  
INC S2 <$USERNAME>  
INC S2 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S22  
INC S2 <$STR(S22)>  
INC S2 ><˵  
INC S2 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S22  
INC S2 <$STR(S22)>  
INC S2  ><  
INC S2 <$STR(S32)>  
INC S2 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S22  
INC S2 <$STR(S22)>  
INC S2 >  
Inc I2 <$STR(I2)>  
MOV A32 <$STR(S2)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I2)>. </@>\ \  
[@4]  
ĺλõĵǰ:<$STR(I3)>ͨ.\ \  
<뷢Ϣ/@@InPutString33>  </@>\ \  

[@CallInPutString33]  
#IF  
EQUAL S33  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I3)>  
#Act  
GAMEGOLD - <$STR(I3)>  
MOV S3 <  
INC S3 <$USERNAME>  
INC S3 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S23  
INC S3 <$STR(S23)>  
INC S3 ><˵  
INC S3 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S23  
INC S3 <$STR(S23)>  
INC S3  ><  
INC S3 <$STR(S33)>  
INC S3 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S23  
INC S3 <$STR(S23)>  
INC S3 >  
Inc I3 <$STR(I3)>  
MOV A33 <$STR(S3)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I3)>. </@>\ \  

[@5]  
λõĵǰ:<$STR(I4)>ͨ.\ \  
<뷢Ϣ/@@InPutString34>  </@>\ \  

[@CallInPutString34]  
#IF  
EQUAL S34  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I4)>  
#Act  
GAMEGOLD - <$STR(I4)>  
MOV S4 <  
INC S4 <$USERNAME>  
INC S4 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S24  
INC S4 <$STR(S24)>  
INC S4 ><˵  
INC S4 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S24  
INC S4 <$STR(S24)>  
INC S4  ><  
INC S4 <$STR(S34)>  
INC S4 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S24  
INC S4 <$STR(S24)>  
INC S4 >  
Inc I4 <$STR(I4)>  
MOV A34 <$STR(S4)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I4)>. </@>\ \  

[@6]  
λõĵǰ:<$STR(I5)>ͨ.\ \  
<뷢Ϣ/@@InPutString35>  </@>\ \  

[@CallInPutString35]  
#IF  
EQUAL S35  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I5)>  
#Act  
GAMEGOLD - <$STR(I5)>  
MOV S5 <  
INC S5 <$USERNAME>  
INC S5 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S25  
INC S5 <$STR(S25)>  
INC S5 ><˵  
INC S5 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S25  
INC S5 <$STR(S25)>  
INC S5  ><  
INC S5 <$STR(S35)>  
INC S5 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S25  
INC S5 <$STR(S25)>  
INC S5 >  
Inc I5 <$STR(I5)>  
MOV A35 <$STR(S5)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I5)>. </@>\ \  
[@7]  
ߺλõĵǰ:<$STR(I6)>ͨ.\ \  
<뷢Ϣ/@@InPutString36>  </@>\ \  

[@CallInPutString36]  
#IF  
EQUAL S36  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I6)>  
#Act  
GAMEGOLD - <$STR(I6)>  
MOV S6 <  
INC S6 <$USERNAME>  
INC S6 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S26  
INC S6 <$STR(S26)>  
INC S6 ><˵  
INC S6 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S26  
INC S6 <$STR(S26)>  
INC S6  ><  
INC S6 <$STR(S36)>  
INC S6 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S26  
INC S6 <$STR(S26)>  
INC S6 >  
Inc I6 <$STR(I6)>  
MOV A36 <$STR(S6)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I6)>. </@>\ \  

[@8]  
˺λõĵǰ:<$STR(I7)>ͨ.\ \  
<뷢Ϣ/@@InPutString37>  </@>\ \  

[@CallInPutString37]  
#IF  
EQUAL S37  
#ACT  
Messagebox [ʧ]Ҫܷ֡Ϣ  
goto @main  
BREAK  

#If  
CHECKGAMEGOLD > <$STR(I7)>  
#Act  
GAMEGOLD - <$STR(I7)>  
MOV S7 <  
INC S7 <$USERNAME>  
INC S7 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S27  
INC S7 <$STR(S27)>  
INC S7 ><˵  
INC S7 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S27  
INC S7 <$STR(S27)>  
INC S6  ><  
INC S7 <$STR(S37)>  
INC S7 /SCOLOR=  
GetRandomText .\QuestDiary\\ɫ.txt S27  
INC S7 <$STR(S27)>  
INC S7 >  
Inc I7 <$STR(I7)>  
MOV A37 <$STR(S7)>  
goto @main  
#Elsesay  
Ǹ,ͨҲ<$STR(I7)>. </@>\ \  

ÿʹһҪͨһֱѱ㡣ͷгͻ޸ġ