;
;w www.CqFir.Net  ˣ  QQ 13677866  绰023-58541052  
;
[@main]
ѡ<ӻ>ĸ\ \
<ͼ/@@InPutString_1>[<$STR(A491)>]   <X/@@InPutInteger_2>[<$STR(G101)>]   <Y/@@InPutInteger_3>[<$STR(G102)>]   <|˴½/@@InPutInteger_4>[<$STR(G103)>]      <|һ,â,,ļǿ|弶Ʒ,,߼,˼,ż|0-9,κ|0ʾԶѡκװ½/@@InPutInteger_0>[<$STR(G98)>]\ \
<½/@ȷ½>                    <Զ½/@Զǻ>                    </@ȷ>-ͼ[<$STR(A491)>]\
[@Զǻ]
#IF
EQUAL G112 1
#SAY
ϵͳÿһСʱ,Զ½һ\ \
ǰϵͳ״̬ǣ<[]>\ \ \
<رϵͳ/@صǻ>                         <ҳ/@MAIN>\ \\ \
#ACT
break
#ELSESAY
ϵͳÿһСʱ,Զ½һ\ \
ǰϵͳ״̬ǣ<[ر]>\ \ \
<ϵͳ/@ǻ>                         <ҳ/@MAIN>\ \\ \
[@ǻ]
#ACT
MOV G112 1
SENDMSG 6 ʾԶ½ϵͳѾ[]!
GOTO @MAIN
break
[@صǻ]
#ACT
MOV G112 0
SENDMSG 6 ʾԶ½ϵͳѾ[ر]!
GOTO @MAIN
break
[@ȷ]
#ACT
DELAYGOTO 5000 @׼
GOTO @MAIN
[@׼]
#ACT
Gmexecute ʼ @
GOTO @MAIN
SENDMSG 6 ʾͼ[<$STR(A491)>]ļѾȫ....
break
[@InPutInteger_0]
#ACT
MOV G98 N0
SENDMSG 6 ʾü½Ϸǣ<$STR(G98)>
GOTO @MAIN
[@InPutString_1]
#ACT
MOV A491 S0
SENDMSG 6 ʾ½ĵͼǣ<$STR(A491)>
GOTO @MAIN
[@InPutInteger_2]
#ACT
MOV G101 N0
SENDMSG 6 ʾ½ĵͼXǣ<$STR(G101)>
GOTO @MAIN
[@InPutInteger_3]
#ACT
MOV G102 N0
SENDMSG 6 ʾ½ĵͼYǣ<$STR(G102)>
GOTO @MAIN
[@InPutInteger_4]
#ACT
MOV G103 N0
SENDMSG 6 ʾ½ǣ<$STR(G103)>
GOTO @MAIN
[@ȷ½]
#IF
EQUAL G98 0
#ACT
AILOGONEX A491 G101 G102 G103 ..\QuestDiary\w\\б.txt
messagebox [<$STR(G103)>]ڵ½ͼ[<$STR(A491)>][<$STR(G101)>][<$STR(G102)>]..\ûȷ½,Լͼ,ͼ,,\½ϷҪʱ,ӷ鿴ȫ½ٽһ
GOTO @MAIN
break
#IF
EQUAL G98 1
#ACT
ReadRandomStr ..\QuestDiary\w\\01.txt S1
ReadRandomStr ..\QuestDiary\w\\01.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N11 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N11)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 2
#ACT
ReadRandomStr ..\QuestDiary\w\\02.txt S1
ReadRandomStr ..\QuestDiary\w\\02.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N12 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N12)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 3
#ACT
ReadRandomStr ..\QuestDiary\w\\03.txt S1
ReadRandomStr ..\QuestDiary\w\\03.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N13 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N13)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 4
#ACT
ReadRandomStr ..\QuestDiary\w\\04.txt S1
ReadRandomStr ..\QuestDiary\w\\04.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N14 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N14)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 5
#ACT
ReadRandomStr ..\QuestDiary\w\\05.txt S1
ReadRandomStr ..\QuestDiary\w\\05.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N15 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N15)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 6
#ACT
ReadRandomStr ..\QuestDiary\w\\06.txt S1
ReadRandomStr ..\QuestDiary\w\\06.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N16 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N16)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 7
#ACT
ReadRandomStr ..\QuestDiary\w\\07.txt S1
ReadRandomStr ..\QuestDiary\w\\07.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N17 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N17)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 8
#ACT
ReadRandomStr ..\QuestDiary\w\\08.txt S1
ReadRandomStr ..\QuestDiary\w\\08.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N18 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N18)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
#IF
EQUAL G98 9
#ACT
ReadRandomStr ..\QuestDiary\w\\09.txt S1
ReadRandomStr ..\QuestDiary\w\\09.txt S2
AILOGON A491 G101 G102 1 S1 S2
INC N19 1
SENDMSG 7 ʾ[<$STR(G98)>]½ͼ[<$STR(A491)>].[<$STR(G101)><$STR(G102)>],ε½[<$STR(N19)>]
SENDMSG 7 ʾûȷ½,Լͼ,ͼ,Ƿ
GOTO @MAIN
break
