;;;QQ:67762207
[@Area4_Map1]
{



#IF
checkhum DQ101_001 1
#ACT
goto @ELseMap1_STEP1
break

#IF
#ACT
savevalue "QuestDiary\AreaQuest\ChoBoGuide4\Humrecord.txt" [人物] [任务阶段1] %A0

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 11
checkitem 角笛 1

#ACT
MonClear DQ101_001
GOTO @BichunMap1_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 12
#ACT
MonClear DQ101_001
GOTO @BichunMap1_STEP4
BREAK

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

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

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 12
#ACT
MonClear DQ101_001
GOTO @BichunMap1_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 11
checkitem 角笛 1
#ACT
MonClear DQ101_001
GOTO @BichunMap1_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 2
#ACT
GOTO @BichunMap1_STEP1
BREAK

#IF
Equal A0 %USERNAME
#SAY
(一股不知名的力量将你推开了。)\\
<关  闭/@exit>
#ACT
BREAK

[@BichunMap1_STEP1]
#IF
#ACT
Enter_Fail
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=3"
#SAY
(一股不知名的力量将你推开了。这里好像就是比奇城官吏所说的可疑的地方。回城向比奇城官吏报告吧。)\\
<关  闭/@exit>

[@BichunMap1_STEP2]
#IF
#SAY
(这里面似乎充满了危险，进去一定要小心啊。)\\
<关  闭/@exit>

[@BichunMap1_STEP3]
#IF
#ACT
Enter_ok
take 角笛 1
MongenP "DQ101_001,24,24,5" 半兽勇士 1
MongenP "DQ101_001,24,24,5" 骷髅 10
MongenP "DQ101_001,25,25,5" 骷髅战士 10
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=12"

[@BichunMap1_STEP4]
#IF
#ACT
Enter_ok
MongenP "DQ101_001,24,24,5" 半兽勇士 1
MongenP "DQ101_001,24,24,5" 骷髅 10
MongenP "DQ101_001,25,25,5" 骷髅战士 10

[@ELseMap1_STEP1]
#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide4\Humrecord.txt" [人物] [任务阶段1]
Enter_Fail
#SAY
(还是不能进去，因为有一个叫<$OUTPUT(A1)>的人正在里面，看来要再等一会儿...)\\
<关  闭/@exit>

}

[@Area4_Map2]
{



#IF
checkhum DQ102_001 1
#ACT
goto @ELseMap2_STEP1
break

#IF
#ACT
savevalue "QuestDiary\AreaQuest\ChoBoGuide4\Humrecord.txt" [人物] [任务阶段2] %A0

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 14
checkitem 半块不死牌 1

#ACT
MonClear DQ102_001
GOTO @hagulMap2_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 15
#ACT
MonClear DQ101_001
GOTO @hagulMap2_STEP4
BREAK

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

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

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 15
#ACT
MonClear DQ102_001
GOTO @BichunMap1_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 20
Equal D1 14
checkitem 半块不死牌 1
#ACT
MonClear DQ102_001
GOTO @BichunMap1_STEP2
BREAK

#IF
Equal A0 %USERNAME
#SAY
(一股不知名的力量将你推开了。)\\
<关  闭/@exit>
#ACT
BREAK

[@BichunMap1_STEP2]
#IF
#SAY
(这里面似乎充满了危险，进去一定要小心啊。)\\
<关  闭/@exit>

[@hagulMap2_STEP3]
#IF
#ACT
Enter_ok
take 半块不死牌 1
MongenP "DQ102_001,24,27,5" 骷髅精灵 1
MongenP "DQ102_001,24,27,5" 骷髅 10
MongenP "DQ102_001,24,27,5" 骷髅战士 10
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=15"

[@hagulMap2_STEP4]
#IF
#ACT
Enter_ok
MongenP "DQ102_001,24,27,5" 骷髅精灵 1
MongenP "DQ102_001,24,27,5" 骷髅 10
MongenP "DQ102_001,24,27,5" 骷髅战士 10

[@ELseMap2_STEP1]
#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide4\Humrecord.txt" [人物] [任务阶段2]
Enter_Fail
#SAY
(好像还是进不去,因为有一个叫做<$OUTPUT(A1)>的人正在里面...稍等一会儿再进去看看吧。)\\
<关  闭/@exit>

}
;;;QQ:67762207
