[@űNPC]
{
#IF
CHECK [0] 0
#ACT
OPENMERCHANTBIGDLG $(Դ) $(ͼƬ0) 0 0 -35 -30 0 0 0
#SAY
<Img:$(ͼƬ1):$(Դ):760:5/@exit>\
\             <Img:$(ͼƬ2):$(Դ):200:30/@űNPC>
;<Img:$(ͼƬ3):$(Դ):300:30/@ֻսűNPC>
<Img:$(ͼƬ4):$(Դ):400:30/@ｱűNPC>
<Img:$(ͼƬ5):$(Դ):300:310/@ȷ>\

#IF
CHECK [0] 0
#ACT
DelTextList ..\QuestDiary\\¼.txt
AddTextList ..\QuestDiary\\¼.txt
MOV N0 9999999
GetStringPos ..\QuestDiary\\¼.txt
#IF
EQUAL N0 9999999
#ACT
MOV N0 0
#ELSEACT
DelTextList ..\QuestDiary\\¼.txt
#IF
CHECK [0] 0
#ACT
MOV P5 $(ÿҳ)
#IF
LARGE P5 10
#ACT
MOV P5 10
#IF
CHECK [0] 0
#ACT
MOV P4 $(ÿ)
#IF
LARGE P4 20
#ACT
MOV P4 20
#IF
CHECK [0] 0
#ACT
MOV P1 <$STR(N$ҳ)>
MOV P3 <$STR(N0)>
MOV P2 <$STR(P3)>
DEC P2 1
DIV P2 <$STR(P2)> <$STR(P5)>
INC P2 1
MOV S$S11
#IF
LARGE P1 <$STR(P2)>
#ACT
MOV P1 <$STR(P2)>
MOV N$ҳ <$STR(P1)>
#IF
SMALL P1 1
#ACT
MOV P1 1
MOV N$ҳ <$STR(P1)>
#IF
CHECK [0] 0
#ACT
MOV P8 <$STR(P1)>
DEC P8 1
MUL P8 <$STR(P8)> <$STR(P5)>
MOV P9 <$STR(P3)>
MOV P7 <$STR(P8)>
INC P7 1
INC P9 1
DEC P9 <$STR(P7)>
MOV P6 $(ģʽ)

#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1
#IF
EQUAL P6 1
#ACT
MOV P7 <$STR(P9)>
#ELSEACT
MOV P7 <$STR(P8)>
INC P7 1
#IF
SMALL P9 1
LARGE P5 0
#ACT
DEC P5 1
INC S$S11 \
#IF
LARGE P9 0
LARGE P5 0
#ACT
MOV S$S2 <ȴͷ/FCOLOR=$(ɫ3)>
MOV S$S0
SetStringBlank <$STR(S$S0)> $(1) 1
INC S$S11 <$STR(S$S0)>
MOV S$S0 .<$STR(P7)>
SetStringBlank <$STR(S$S0)> $(2) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ1)>
MOV S$S0
GetRandomText ..\QuestDiary\\¼.txt S$S0 <$STR(P8)>
MOV S$S1 <$STR(S$S0)>
DEC S$S0 1 $(볤)
SetStringBlank <$STR(S$S0)> $(3) 1
INC S$S11 <
INC S$S11 <$STR(S$S0)>
INC S$S11 /FCOLOR=$(ɫ2)>
#IF
LARGE P9 0
LARGE P5 0
CHECKTEXTLIST ..\QuestDiary\\ѻ.txt <$STR(S$S1)>
#ACT
MOV S$S2 <Ѿ/FCOLOR=$(ɫ4)>
#IF
LARGE P9 0
LARGE P5 0
#ACT
INC S$S11 <$STR(S$S2)>\
DEC P5 1
INC P8 1
DEC P9 1

#IF
CHECK [0] 0
#ACT
MOV P9 <$STR(P1)>
DEC P9 1
DIV P9 <$STR(P9)> <$STR(P4)>
MUL P9 <$STR(P9)> <$STR(P4)>
INC P9 1
MOV P8 <$STR(P4)>
INC P8 1
MOV P7 1
MOV S$S12

#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>
#IF
SMALL P7 10
#ACT
MOV S$S1 0<$STR(P7)>
#ELSEACT
MOV S$S1 <$STR(P7)>
#IF
SMALL P9 10
#ACT
MOV S$S2 0<$STR(P9)>
#ELSEACT
MOV S$S2 <$STR(P9)>
#IF
SMALL P7 <$STR(P8)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 /@ҳ
INC S$S0 <$STR(S$S1)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 28 1
#IF
SMALL P7 <$STR(P8)>
EQUAL P1 <$STR(P9)>
#ACT
MOV S$S0 <
INC S$S0 <$STR(S$S2)>
INC S$S0 >
SetStringBlank <$STR(S$S0)> 6 1
#IF
SMALL P7 <$STR(P8)>
SMALL P2 <$STR(P9)>
#ACT
MOV S$S0 
SetStringBlank <$STR(S$S0)> 4 1
#IF
SMALL P7 <$STR(P8)>
#ACT
INC P7 1
INC P9 1
INC S$S12 <$STR(S$S0)>

#IF
CHECK [0] 0
#ACT
MOV P9 <$STR(P1)>
DEC P9 1
DIV P9 <$STR(P9)> <$STR(P4)>
MUL P9 <$STR(P9)> <$STR(P4)>
INC P9 1
DEC P9 <$STR(P4)>
MOV S$S13 <ײ/@0><һ/@1>
#IF
SMALL P9 1
#ACT
MOV S$S13 <
INC S$S13 ײ㡡һ/SCOLOR=1>
#IF
EQUAL P1 1
#ACT
MOV S$S13 <
INC S$S13 ײ㡡һ/SCOLOR=1>

#IF
CHECK [0] 0
#ACT
MOV P9 <$STR(P1)>
DEC P9 1
DIV P9 <$STR(P9)> <$STR(P4)>
MUL P9 <$STR(P9)> <$STR(P4)>
INC P9 1
INC P9 <$STR(P4)>
MOV S$S14 <һ/@2><ĩ/@3>
#IF
LARGE P9 <$STR(P2)>
#ACT
MOV S$S14 <
INC S$S14 һ㡡ĩ/SCOLOR=1>
#IF
EQUAL P1 <$STR(P2)>
#ACT
MOV S$S14 <
INC S$S14 һ㡡ĩ/SCOLOR=1>

#IF
LARGE N$ 0
#ACT
MOV S$S16 <֧ʺ/@@inputstring12>
MOV S$S17 <޸ΪƸͨ/@>
#ELSEACT
MOV S$S16 <Ƹͨʺ/@@inputstring12>
MOV S$S17 <޸Ϊ֧/@>
#IF
CHECK [0] 0
#ACT
MOV S$S15 <$STR(N$)>
SetStringBlank <$STR(S$S15)> 11 1
MOV S$S18 <$STR(S$ʺ)>
SetStringBlank <$STR(S$S18)> 28 1
MOV S$S19 <$STR(S$)>
SetStringBlank <$STR(S$S19)> 28 1
#SAY
\ \
\ \
\ \
\ \
\ \
\ \
\ \
\ \
\<$STR(S$S11)>\
\                                  <$STR(S$S13)><ҳ/FCOLOR=253><$STR(S$S12)><$STR(S$S14)>\
\ \
\                                  <ֵĽ/@@inputinteger11><$STR(S$S15)><ȫ/@ȫ>     <ǰʻ/FCOLOR=243><$GAMEPOINT>\
\                                  <տ/@@inputstring13><$STR(S$S19)><ϵQQ/@@inputstring14><$STR(S$QQ)>\
\                                  <$STR(S$S16)><$STR(S$S18)><$STR(S$S17)>\
\                                  <ע⣺/FCOLOR=249><ʺ/FCOLOR=253> @ <ַ޷ģ뽫/FCOLOR=253> @ </FCOLOR=253> # <żɣ/FCOLOR=253><Ŀǰֲֻ֧Ƹͨ.֧ пݲ֧/FCOLOR=250>\


[@ҳ01]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 1
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ02]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 2
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ03]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 3
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ04]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 4
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ05]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 5
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ06]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 6
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ07]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 7
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ08]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 8
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ09]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 9
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ10]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 10
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ11]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 11
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ12]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 12
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ13]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 13
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ14]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 14
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ15]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 15
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ16]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 16
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ17]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 17
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ18]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 18
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ19]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 19
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@ҳ20]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 20
MOV N$ҳ <$STR(P9)>
GOTO @űNPC

[@0]
#ACT
MOV N$ҳ 0
GOTO @űNPC
[@1]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 1
DEC P9 $(ÿ)
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@2]
#ACT
MOV P9 <$STR(N$ҳ)>
DEC P9 1
DIV P9 <$STR(P9)> $(ÿ)
MUL P9 <$STR(P9)> $(ÿ)
INC P9 1
INC P9 $(ÿ)
MOV N$ҳ <$STR(P9)>
GOTO @űNPC
[@3]
#ACT
MOV N$ҳ 2100000000
GOTO @űNPC

[@ȷ]
#IF
SMALL N$ $()
#ACT
MESSAGEBOX ԲÿΪ$()\\벻$()Ľ
GOTO @űNPC
BREAK
#IF
CHECKGAMEPOINT < <$STR(N$)>
#ACT
MESSAGEBOX Բǰʻ㡾<$STR(N$)>
GOTO @űNPC
BREAK
#IF
EQUAL S$QQ 
#ACT
MESSAGEBOX ԲQQ룡\\QQԱ˺Ŵʱͷϵ
GOTO @űNPC
BREAK
#IF
EQUAL S$ 
#ACT
MESSAGEBOX Բտ\\дȷտȷ
GOTO @űNPC
BREAK
#IF
LARGE N$ 0
#ACT
MOV S$S2 ֧
#ELSEACT
MOV S$S2 Ƹͨ
#IF
EQUAL S$ʺ 
#ACT
MESSAGEBOX Բ롾<$STR(S$S2)>ʺţ\\ʺ@޷룬뽫@#żɣ
GOTO @űNPC
BREAK
#IF
CHECK [0] 0
#ACT
MESSAGEBOX ֵĽ<$STR(N$)>\տ<$STR(S$)>\<$STR(S$S2)>ʺţ<$STR(S$ʺ)>\QQ룺<$STR(S$QQ)>\\Ƿȷֵ<$STR(S$S2)>ʺٵȷ @ȷ2 @EXIT

[@ȷ2]
#IF
SMALL N$ $()
#ACT
MESSAGEBOX ԲÿΪ$()\\벻$()Ľ
GOTO @űNPC
BREAK
#IF
CHECKGAMEPOINT < <$STR(N$)>
#ACT
MESSAGEBOX Բǰʻ㡾<$STR(N$)>
GOTO @űNPC
BREAK
#IF
EQUAL S$QQ 
#ACT
MESSAGEBOX ԲQQ룡\\QQԱ˺Ŵʱͷϵ
GOTO @űNPC
BREAK
#IF
EQUAL S$ 
#ACT
MESSAGEBOX Բտ\\дȷտȷ
GOTO @űNPC
BREAK
#IF
LARGE N$ 0
#ACT
MOV S$S2 ֧
#ELSEACT
MOV S$S2 Ƹͨ
#IF
EQUAL S$ʺ 
#ACT
MESSAGEBOX Բ롾<$STR(S$S2)>ʺţ\\ʺ@޷룬뽫@#żɣ
GOTO @űNPC
BREAK
#IF
CHECK [0] 0
#ACT
MOV S$S1

MOV S$S0 <$STR(N$)>Ԫ
SetStringBlank <$STR(S$S0)> 12 1
INC S$S1 <$STR(S$S0)>

MOV S$S0 տ:<$STR(S$)>
SetStringBlank <$STR(S$S0)> 22 1
INC S$S1 <$STR(S$S0)>

MOV S$S0 <$STR(S$S2)>:<$STR(S$ʺ)>
SetStringBlank <$STR(S$S0)> 36 1
INC S$S1 <$STR(S$S0)>

MOV S$S0 ϵQQ:<$STR(S$QQ)>
SetStringBlank <$STR(S$S0)> 22 1
INC S$S1 <$STR(S$S0)>

MOV S$S0 :<$USERNAME>
SetStringBlank <$STR(S$S0)> 20 1
INC S$S1 <$STR(S$S0)>

MOV S$S0 <$STR(N$)>Ԫ
SetStringBlank <$STR(S$S0)> 14 1
INC S$S1 <$STR(S$S0)>

INC S$S1 <$YEAR>-
MOV P9 <$MONTH>
#IF
SMALL P9 10
#ACT
INC S$S1 0<$STR(P9)>-
#ELSEACT
INC S$S1 <$STR(P9)>-
#IF
CHECK [0] 0
#ACT
MOV P9 <$DAY>
#IF
SMALL P9 10
#ACT
INC S$S1 0<$STR(P9)>
#ELSEACT
INC S$S1 <$STR(P9)>
#IF
CHECK [0] 0
#ACT
MOV P9 <$HOUR>
#IF
SMALL P9 10
#ACT
INC S$S1 " 0<$STR(P9)>:"
#ELSEACT
INC S$S1 " <$STR(P9)>:"
#IF
CHECK [0] 0
#ACT
MOV P9 <$MINUTE>
#IF
SMALL P9 10
#ACT
INC S$S1 "0<$STR(P9)>:"
#ELSEACT
INC S$S1 "<$STR(P9)>:"
#IF
CHECK [0] 0
#ACT
MOV P9 <$SECOND>
#IF
SMALL P9 10
#ACT
INC S$S1 "0<$STR(P9)>."
#ELSEACT
INC S$S1 "<$STR(P9)>."
#IF
CHECK [0] 0
#ACT
MOVR P9 1000
MOV S$S0 <$STR(P9)>
#IF
SMALL P9 100
#ACT
MOV S$S0 0<$STR(P9)>
#IF
SMALL P9 10
#ACT
MOV S$S0 00<$STR(P9)>
#IF
CHECK [0] 0
#ACT
INC S$S1 <$STR(S$S0)>

AddTextListEx ..\QuestDiary\\.txt <$STR(S$S1)> 0
AddTextListEx ..\QuestDiary\\¼.txt <$STR(S$S1)> 0

GAMEPOINT - <$STR(N$)>
SENDMSG 0 ϲ<$USERNAME>ɹ֡<$STR(N$)>Ԫҡ<$STR(S$S2)>ʺš
MESSAGEBOX ϲ֡<$STR(N$)>Ԫҡɹ\\ʺ󣬽72Сʱڵʣעգ\\ǰʻ<$GAMEPOINT>
MOV N$ 0
GOTO @űNPC

[@]
#IF
LARGE N$ 0
#ACT
MOV N$ 0
GOTO @ݱ
GOTO @űNPC
#ELSEACT
MOV N$ 1
GOTO @ݱ
GOTO @űNPC

[@inputinteger11]
#IF
SMALL N11 $()
#ACT
MESSAGEBOX ԲÿΪ$()\\벻$()Ľ
MOV N11 0
GOTO @űNPC
BREAK
#IF
CHECKGAMEPOINT < <$STR(N11)>
#ACT
MESSAGEBOX Բǰʻ㡾<$STR(N11)>
MOV N11 0
GOTO @űNPC
BREAK
#ELSEACT
MOV N$ <$STR(N11)>
MOV N11 0
GOTO @űNPC
BREAK

[@ȫ]
#IF
CHECKGAMEPOINT < $()
#ACT
MOV N$ 0
MESSAGEBOX ԲÿΪ$()\\ʻ޷֣
GOTO @űNPC
BREAK
#ELSEACT
MOV N$ <$GAMEPOINT>
GOTO @űNPC
BREAK

[@inputstring12]
#IF
CHECKGAMEPOINT < $()
#ACT
MESSAGEBOX ԲÿΪ$()\\ʻ޷֣
MOV S12
GOTO @űNPC
BREAK
#ELSEACT
MOV S$ʺ <$STR(S12)>
DEC S$ʺ 29 5000
MOV S12
GOTO @ݱ
GOTO @űNPC
BREAK

[@inputstring13]
#IF
CHECKGAMEPOINT < $()
#ACT
MESSAGEBOX ԲÿΪ$()\\ʻ޷֣
MOV S13
GOTO @űNPC
BREAK
#ELSEACT
MOV S$ <$STR(S13)>
DEC S$ 15 5000
MOV S13
GOTO @ݱ
GOTO @űNPC
BREAK

[@inputstring14]
#IF
CHECKGAMEPOINT < $()
#ACT
MESSAGEBOX ԲÿΪ$()\\ʻ޷֣
MOV S14
GOTO @űNPC
BREAK
#ELSEACT
MOV S$QQ <$STR(S14)>
DEC S$QQ 15 5000
MOV S14
GOTO @ݱ
GOTO @űNPC
BREAK

[@볣]
#CALL [\\볣.ini] @볣
#CALL [\\ű.txt] @ݱ

#CALL [\\ֻսűNPC.txt] @ֻսűNPC

#CALL [\ｱ\ｱűNPC.txt] @ｱűNPC

}
