;;;QQ:67762207
[@AreaQuest9Mon1]
{
#IF
check [109] 1
check [110] 0
check [199] 1
#ACT
goto @AreaQuest9Mon1_1
break
#ELSEACT
break

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

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

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 3
#ACT
goto @AreaQuest9Mon1_3
break

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 4
#ACT
goto @AreaQuest9_True
break

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 14
#ACT
goto @AreaQuest9Mon1_14
break
#ELSEACT
break

[@AreaQuest9Mon1_14]
#IF
Random 2
#SAY
_(书既然找到了，去失乐园的书店吧。) \\
_<关  闭/@exit>
#ACT
give 书籍 1
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=15"
set [199] 0
#ELSEACT
break

[@AreaQuest9Mon1_3]
#IF
CheckPos D711 228 191 20
#ACT
goto @AreaQuest9_True
break
#ELSEACT
goto @AreaQuest9_False

[@AreaQuest9_True]
#IF
checkitem 红野猪牙齿 30
#ACT
Delaygoto [Local] 7 @AreaQuest9_MapMove
break
#SAY
_这些家伙好像是囚禁居民的红野猪...这是什么感觉? 突然身体好象变轻了....\\
_<关  闭/@exit>

#IF
checkitem 红野猪牙齿 29
#ACT
give 红野猪牙齿 1
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=4"
break
#SAY
_野猪的牙齿收集的不少啊。这回可以将人类勇士的勇猛证明给半兽人看了吧? \\
_<关  闭/@exit>
#ELSEACT
give 红野猪牙齿 1

[@AreaQuest9_False]
#IF
checkitem 红野猪牙齿 30
#ACT
break

#IF
checkitem 红野猪牙齿 29
#ACT
give 红野猪牙齿 1
break
#SAY
_野猪的牙齿收集的不少啊。这回可以将人类勇士的勇猛证明给半兽人看了吧?  \\
_<关  闭/@exit>
#ELSEACT
give 红野猪牙齿 1

[@AreaQuest9_MapMove]
#IF
#ACT
set [199] 0
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=5"
MapMove DQ701_001 18 30
}

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

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

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 8
#ACT
goto @AreaQuest9Mon2_1
break
#ELSEACT
break

[@AreaQuest9Mon2_1]
#IF
Equal S2 29
#ACT
Mov S2 0
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=9"
#SAY
_...现在魔力好像减少了，是要求支援的时候了，找石柱吧。\\
_<关  闭/@exit>
#ELSEACT
Inc S2 1

}

[@AreaQuest9Mon3]
{
#IF
#ACT
FormatSTR "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_Char,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@AreaQuest9Mon3Read]

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

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 10
#SAY
_(将信号发给了半兽人。)\
_移动吗?\\
_<移动。/@AreaQuest9_MapMove>
#ACT
;;MongenP "D712,106,267,0" 石柱 1
break

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 9
#SAY
_(已经给半兽人发信号了.)\
_是否移动?\\
_<移动./@AreaQuest9_MapMove>
#ACT
;;MongenP "D712,106,267,0" 石柱 1
#ELSEACT
;;MongenP "D712,106,267,0" 石柱 1

[@AreaQuest9_MapMove]
#IF
CheckHum DQ702_001 1
#SAY
_(看来现在还不能进去，等一会儿再试试吧。)\\
_<关  闭/@exit>
#ACT
break

#ELSEACT
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=10"
MapMove DQ702_001 18 27
goto @AreaQuest9_Event
break

[@AreaQuest9_Event]
#IF
#ACT
monclear "DQ702_001"
MongenP "DQ702_001,25,25,20" 黑野猪 25
MongenP "DQ702_001,25,20" 红野猪 15
MongenP "DQ702_001,25,20" 半兽勇士 3
MongenP "DQ702_001,25,20" 半兽战士 30
ApplyMonEX "DQ702_001,25,25,25" 半兽勇士 [HumanSide]
ApplyMonEX "DQ702_001,25,25,25" 半兽战士 [HumanSide]
Delaygoto [Local] 60 @Area9_EventBonus

[@Area9_EventBonus]
#IF
CheckHum DQ702_001 1
!checkmonmap "DQ702_001" 1 黑野猪
#ACT
MongenP "DQ702_001,25,25,20" 黑野猪 20
MongenP "DQ702_001,25,20" 红野猪 15
Delaygoto [Local] 120 @Area9_EventBonus
}

[@AreaQuest9Mon4]
{
#IF
!checkmonmap "DQ702_001" 1 黑野猪
#SAY
_(因为半兽人的支援很快就结束了。到侦查员那里汇报情况吧。)\\
_<关  闭/@exit>
#ACT
Delaygoto [Local] 5 @Area9_Mon4_Mapting
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=11"
set [199] 0

[@Area9_Mon4_Mapting]
#IF
#ACT
Map 9
}

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

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

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 17
#ACT
goto @AreaQuest9Mon5_A
break

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 18
#ACT
goto @AreaQuest9Mon5_B
break

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 19
#ACT
goto @AreaQuest9Mon5_C
break

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 20
#ACT
goto @AreaQuest9Mon5_D
break

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 21
#ACT
goto @AreaQuest9Mon5_E
break
#ELSEACT
break

[@AreaQuest9Mon5_A]
#IF
#SAY
_(抓到了第一个白野猪祭司。) \\
_<关  闭/@exit>
#ACT
Inc S2 1
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=18"
break

[@AreaQuest9Mon5_B]
#IF
#SAY
_(抓到了第二个白野猪祭司。他的铁锤和半人半猪的铁锤一样很特别，很有可能这就是他说的第二个铁锤。)\\
_<关  闭/@exit>
#ACT
give 重生铁锤 1
Inc S2 1
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=19"
break

[@AreaQuest9Mon5_C]
#IF
#SAY
_(抓到了第三个白野猪祭司。) \\
_<关  闭/@exit>
#ACT
Inc S2 1
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=20"
break

[@AreaQuest9Mon5_D]
#IF
#SAY
_(抓到了第四个白野猪祭司。) \\
_<关  闭/@exit>
#ACT
Inc S2 1
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=21"
break

[@AreaQuest9Mon5_E]
#IF
#SAY
_(抓到了第五个白野猪祭司，得到最后的铁锤后，石阁庙的魔力好像变弱了... \\
将这个情况向侦查武士汇报吧。)\\
_<关  闭/@exit>
#ACT
give 开化铁锤 1
Inc S2 1
set [199] 0
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=22"
break

}

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

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

#IF
Equal A0 %USERNAME
Equal D0 28
Equal D1 24
#ACT
goto @AreaQuest9Mon6_1
break

#ELSEACT
break

[@AreaQuest9Mon6_1]
#IF
checkitem 破坏铁锤 1
checkitem 重生铁锤 1
checkitem 开化铁锤 1
#SAY
_(这难道就是超级黑野猪的{FCOLOR/10}不灭的心脏{FCOLOR/12}。这回石阁庙的魔力感觉不倒了，将这个交给侦查员吧。)\\
_<关  闭/@exit>
#ACT
take 破坏铁锤 1
take 重生铁锤 1
take 开化铁锤 1
give 不灭之心 1
set [199] 0
FormatSTR "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=25"
#ELSEACT
break

}
;;;QQ:67762207
