;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Area10_Map1]
{
#IF
!CheckHum DQ802_001 1
CheckMonMap "DQ802_001" 1 邪恶钳虫
#ACT
goto @Area10_Map_MonClear

#IF
CheckHum DQ802_001 1
CheckMonMap "DQ802_001" 1 邪恶钳虫
#ACT
Enter_Fail
break

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_0

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 4
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 5
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 6
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 7
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 8
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 10
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 11
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 17
#ACT
Enter_fail
goto @Area10_Map1_Event
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 19
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 20
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#ACT
goto @Area10_Map1_Enter
break

#ELSEACT
Enter_Fail

#IF
check [110] 1
check [111] 0
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map1Read]

[@Area10_Map1Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 4

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_1

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 5

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_2

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 6

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_3

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 7

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_4

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 8

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_5

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 10

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_6

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 11

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_7

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_8

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 17

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_9

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 19

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_10

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_11

#ACT
break

#ELSEACT
Enter_Fail
break

[@Area10_Map_MonClear]
#IF
#ACT
Monclear DQ802_001

[@Area10_Map1_Enter]
#IF
#ACT
Enter_Ok

[@Area10_Map1_Event]
#IF
checkitem 触龙神之钟 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_12


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_13

[@Area10_Map1_1]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_14

[@Area10_Map1_2]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_15

[@Area10_Map1_3]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_16

[@Area10_Map1_4]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_17

[@Area10_Map1_5]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_18

[@Area10_Map1_6]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_19

[@Area10_Map1_7]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_20

[@Area10_Map1_8]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_21

[@Area10_Map1_9]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_22

#ACT
set [199] 1
take 触龙神之钟 1
MongenP "D802,77,171,2" 黑色恶蛆 2
MongenP "D802,77,171,2" 钳虫7 3
MongenP "D802,77,171,2" 蜈蚣 2
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=18"

}
[@Area10_Map2]
{
#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12
#ACT
MonClear DQ804_001
goto @Area10_Map2_Enter
break

#IF
check [110] 1
check [111] 0
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map2Read]

[@Area10_Map2Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_23

#ACT
break

#ELSEACT
Enter_Fail
break


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_24

[@Area10_Map2_Enter]
#IF
#ACT
Delaygoto [Local] 120 @Area10_Map2_1
Enter_Ok

[@Area10_Map2_1]
#IF
CheckPos DQ804_001 25 25 40
#ACT
goto @Area10_Map2_Start
break

#ELSEACT
break

[@Area10_Map2_Start]
#IF
checkPos DQ804_001 23 26 0

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_25

#ACT
give 石模具 1
Delaygoto [Local] 5 @Area10_Map2_MapMove
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=13"
break

#IF
checkPos DQ804_001 20 32 0
#ACT
Map D801
Delaygoto [Local] 3 @Area10_Map2Ting
break

#IF
checkPos DQ804_001 14 15 5
#ACT
Map D804
Delaygoto [Local] 3 @Area10_Map2Ting
break

#IF
checkPos DQ804_001 28 22 3

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_26

#ACT
Delaygoto [Local] 3 @Area10_Map2_MapSpell
break

#IF
checkPos DQ804_001 29 28 3
#ACT
Map 0
Delaygoto [Local] 3 @Area10_Map2Ting
break

#IF
checkPos DQ804_001 23 37 0
#ACT
give 金币 10000
Delaygoto [Local] 3 @Area10_Map2_GainGold
break

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_27

#IF
checkPos DQ804_001 34 11 0

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_28

#ACT
Delaygoto [Local] 3 @Area10_Map2_GainDrunk
break

#IF
checkPos DQ804_001 36 31 3
#ACT
map 0
Delaygoto [Local] 3 @Area10_Map2Ting_1
break


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_29

#ELSEACT
MongenP "DQ804_001,25,25,10" 黑色恶蛆 5
Delaygoto [Local] 100 @Area10_Map2_1
break

[@Area10_Map2_MapMove]
#IF
#ACT
Map D804

[@Area10_Map2_MapSpell]
#IF
#ACT
Mapspell [firewall] "DQ804_001,15,15,34,31,+D50,+T40,+R25,+H
Delaygoto [Local] 100 @Area10_Map2_1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_30

[@Area10_Map2_GainDrunk]
#ACT
give 丸药（1000） 1
Map 0
Delaygoto [Local] 3 @Area10_Map2_GainDrunk_1
break

[@Area10_Map2_GainDrunk_1]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_31

[@Area10_Map2_GainGold]
#ACT
Map 0
Delaygoto [Local] 3 @Area10_Map2_GainGold_1

[@Area10_Map2_GainGold_1]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_32

[@Area10_Map2Ting]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_33

[@Area10_Map2Ting_1]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_34

[@Area10_Map3]
{
#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map3Read]

[@Area10_Map3Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 16

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\AreaQuest\ChoBoGuide10\Map.txt] @Convert_Map_35

#ACT
MongenP "D801,152,244,1" 比奇士兵 2
ApplyMonEX "D801,152,244,1" 比奇士兵 [MonSide] 蒙面强盗
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=17"
Enter_Ok
break

#ELSEACT
Enter_OK


}

[@Area10_Map4]
{
#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#ACT
goto @Area10_Map4_Enter
break

#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map4Read]

[@Area10_Map4Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(1)
Mov D1 %ARG(1)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#ACT
Enter_Ok

#ELSEACT
Enter_Fail

[@Area10_Map4_Enter]
#IF
#ACT
Enter_Ok
set [199] 1
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=17"

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;