;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;






[@022_urg]
{
#ACT
LoadValue B1 "QuestDiary\Judgement\Flag.txt" [022] [QuestUserName]

LoadValue P1 "QuestDiary\Judgement\Flag.txt" [022] [RecieveMail]
Loadvalue P2 "QuestDiary\Judgement\Flag.txt" [022] [Eventstart]
LoadValue P3 "QuestDiary\Judgement\Flag.txt" [022] [SendMail]
LoadValue P4 "QuestDiary\Judgement\Flag.txt" [022] [GrupTimeOver]
#IF
!CheckLevel 22
#ACT
Goto @022Level_Low
break


#IF
Equal B1 ""
Equal P1 0
Equal P2 0
Equal P3 0
#ACT
GOTO @022_GiveQUEST
break

#IF
Equal B1 %username
Equal P1 1
Equal P2 1
Equal P3 0
#ACT
GOTO @022_FailQUEST
break


#IF
Equal B1 %username
Equal P1 1
Equal P2 0
Equal P3 0
Equal P4 0
#ACT
GOTO @022_waitingQUEST
break
#IF
Equal B1 %username
Equal P1 1
Equal P2 0
Equal P3 0
Equal P4 1
#ACT
GOTO @022_TimeOverQUEST
break

#IF
Equal B1 %username
Equal P1 1
Equal P2 1
Equal P3 1
#ACT
GOTO @022_resultQUEST
break
#IF
#ACT
GOTO @022NPC_Normal
break

[@022NPC_Normal]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_0

[@022Level_Low]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_1

[@022_Talk_Refuse]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_2

[@022_TalkingAbout_Refuse]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_3

[@022_giveQUEST]
begin
#ACT
LoadValue P1 "QuestDiary\Judgement\Flag.txt" [022] [GiveTimeOver]
LoadValue B1 "QuestDiary\Judgement\Flag.txt" [022] [QuestUserName]
#IF
Equal B1 ""
Equal P1 0
#ACT
Goto @022_giveQUEST2
#ELSEACT
Goto @022NPC_Normal
break
end

[@022_giveQUEST2]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_4

[@022_talk_1]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_5

[@022_talk_2]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_6

[@022_talk_3]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_7

[@022_talk_3_1]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_8

[@022_talk_4]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_9

[@022_talk_4_1]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_10

[@022_talk_4_2]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_11

[@022_talk_4_3]


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_12

[@022_talk_4_4]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_13

[@022_talk_4_5]


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_14

[@022_doingQUEST]
begin
#ACT
LoadValue B1 "QuestDiary\Judgement\Flag.txt" [022] [QuestUserName]
#IF
!Equal B1 ""
#ACT
Goto @022Slow_Step
break

#ACT
LoadValue P1 "QuestDiary\Judgement\Flag.txt" [022] [RecieveMail]
#IF
Equal P1 0
#ACT
Give ŵ 1
SaveValue "QuestDiary\Judgement\Flag.txt" [022] [RecieveMail] 1
Savevalue "QuestDiary\Judgement\Flag.txt" [022] [QuestUserName] %Username

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_15

[@022_waitingQUEST]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_16

[@022_TimeOverQUEST]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_17

[@Evenstart]
begin
#ACT
Savevalue "QuestDiary\Judgement\Flag.txt" [022] [Eventstart] 1
GroupMove "DQ1600_22, 36 , 167, 5" %Username
Goto @Eventmsg
end

[@Eventmsg]
#CALL [Judgement\Story\1418\022Event.txt] @set022A

[@022Slow_Step]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_18

[@022_FailQUEST]
begin
#ACT
SaveValue "QuestDiary\Judgement\Flag.txt" [022] [QuestUserName] ""
Savevalue "QuestDiary\Judgement\Flag.txt" [022] [End] 1
Savevalue "QuestDiary\Judgement\Flag.txt" [MainTimer] [SuperQuest] 0


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_19

[@022_resultQUEST]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_20

[@022_resultQUEST_1]
begin
#ACT
mov A0 "Judgement"
mov D0 22
mov D1 2
mov D2 0
mov D3 0
goto @EveryThingReward
SaveValue "QuestDiary\Judgement\Flag.txt" [022] [QuestUserName] ""
Savevalue "QuestDiary\Judgement\Flag.txt" [022] [End] 1
Savevalue "QuestDiary\Judgement\Flag.txt" [MainTimer] [SuperQuest] 0

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_21

}





[@022_Topark]
{
begin
#ACT
LoadValue B1 "QuestDiary\Judgement\Flag.txt" [022] [QuestUserName]
#IF
Equal B1 %username

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_22


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_23

[@022_talk2_1]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_24

[@022_talk2_2]
begin
#IF
checkitem ŵ 1
#ACT
take ŵ 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_25


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_26

[@022_talk2_2_1]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_27

[@022_talk2_2_2]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_28

[@022_talk2_2_3]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_29

[@022_talk2_2_4]
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Judgement\Story\1418\NPC022.txt] @Convert_NPC022_30

[@DQ1600_22_GoHome]
begin
#ACT
LoadValue P1 "QuestDiary\Judgement\Flag.txt" [022] [SendMail]
#IF
Equal P1 0
#ACT
movenpc "DQ1600_22,139,27,ð˸" npcroom1,6,14
SaveValue "QuestDiary\Judgement\Flag.txt" [022] [SendMail] 1
MapTing DQ1600_22 4 464 44
MonClear DQ1600_22
end
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;