;;;QQ:67762207
[@Area5_Map1]
{
#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 5

#ACT
GOTO @Area5Map1_STEP3
BREAK

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

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

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 5
#ACT
GOTO @Area5Map1_STEP2
BREAK

#IF
Equal A0 %USERNAME
#SAY
(你费尽力气，却无法进入这个房间。)\\
<关  闭/@exit>
#ACT
BREAK

[@Area5Map1_STEP2]
#IF
#SAY
(看来那个无礼的人就在这个房间里。)\\
<关  闭/@exit>

[@Area5Map1_STEP3]
#IF
#ACT
Enter_ok
}

[@Area5_Map2]
{
#IF
checkhum DQ201_001 1
#ACT
goto @ELseArea2_STEP5
break

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

#ACT
MonClear DQ201_001
GOTO @ELseArea2_RESTEP
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 14

#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 15
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP3
BREAK

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

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

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 16
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 15
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 14
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP2
BREAK

#IF
Equal A0 %USERNAME
#SAY
(你费尽力气，却无法进入这个房间。)\\
<关  闭/@exit>
#ACT
BREAK

[@ELseArea2_STEP2]
#IF
#SAY
(你有一种不祥的预感。)\\
<关  闭/@exit>

[@ELseArea2_STEP3]
#IF
#ACT
Enter_ok

[@ELseArea2_STEP5]
#IF
#ACT
Enter_Fail
#SAY
(房间被封印着...你需要耐心等待一会儿。)\\
<关  闭/@exit>

[@ELseArea2_RESTEP]
#IF
#ACT
Enter_ok
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=15"
}

[@Area5_Map3]
{
#IF
checkhum DQ202_001 1
#ACT
goto @ELseArea3_STEP5
break


#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide5\HumRecord.txt" [房间] [当前人物]

#IF
EQUAL A1 %USERNAME
#ACT
GOTO @ELseArea3_STEP3
BREAK

#IF
#ACT
savevalue "QuestDiary\AreaQuest\ChoBoGuide5\HumRecord.txt" [房间] [当前人物] %USERNAME

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 20

#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 21
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 22
#ACT
MonClear DQ202_001
GOTO @ELseArea3_RESTEP3
BREAK

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

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


#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 20
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 21
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 22
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 17
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP1
BREAK

#IF
Equal A0 %USERNAME
#SAY
(你费尽力气，却无法进入这个房间。)\\
<关  闭/@exit>
#ACT
BREAK

[@ELseArea3_STEP1]
#IF
#ACT
Enter_Fail
#SAY
(房间似乎被某种力量封印着，这好像是道士们休息的魔法。去清明子老师那里打听一下吧。)\\
<关  闭/@exit>

[@ELseArea3_STEP2]
#IF
#SAY
(看来是署箭藏身的房间。)\\
<关  闭/@exit>

[@ELseArea3_STEP3]
#IF
#ACT
Take 毁灭护身符 1
Enter_ok

[@ELseArea3_STEP5]
#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide5\HumRecord.txt" [房间] [当前人物]

Enter_Fail
#SAY
(房间内似乎有一个叫[<$OUTPUT(A1)>]的家伙...你需要耐心等待一会儿。)\\
<关  闭/@exit>

[@ELseArea3_RESTEP3]
#IF
#ACT
Enter_ok
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=21"

}
;;;QQ:67762207
