;;;QQ:67762207
[@Area10_Map1]
{
#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide10\Humrecord.txt" [人物] [任务纪录1]


#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
_里面好像有什么动静。上次进入的玩家<$OUTPUT(A1)>似乎还没出来，等一下吧。\\
_<关  闭/@exit>

#IF
#ACT
savevalue "QuestDiary\AreaQuest\ChoBoGuide10\Humrecord.txt" [人物] [任务纪录1] %A0


#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
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 5
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 6
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 7
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 8
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 10
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 11
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 17
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 19
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#SAY
_(这里是祭祀长所在的地方吗? 看来要进去确认一下。)\\
_<关  闭/@exit>
#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
_呵呵呵...还以为这次也会被跑掉...幸亏抓到了。\\
_<难道...你是魔崇! 我的身体...身体...无法移动。/@Area10_Map1_1>
#ELSESAY
_(赶快把{FCOLOR/10}触龙神之钟{FCOLOR/12}交给祭祀长吧。)\\
_<关  闭/@exit>

[@Area10_Map1_1]
#IF
#SAY
_因为我想心平气和的和你聊聊才点的穴..不要害怕。你中我的计找到的触龙神之钟就是这个吗? 你要是安静的死在树林里不就不会变成现在这样了嘛...\\
_<那么刚才遇到的那群歹徒...是你派的吗?/@Area10_Map1_2>

[@Area10_Map1_2]
#IF
#SAY
_我不否认，他们是我派的将你消灭后把触龙神之钟拿回的刺客。\\
_<看来你只不过是想得到魔教物品的小人。/@Area10_Map1_3>

[@Area10_Map1_3]
#IF
#SAY
_哼...难道我看起来像那种小偷吗? 我不久前还是这个教团的祭祀长。好吧，看在你把触龙神之钟的拿来的份上我把真相讲给你听。以前我是这里的祭祀长，但是我最好的朋友杨山，也就是让你把触龙神之钟拿来的现在的祭祀长出卖了我。并且是彻底的.... \\
_<所以你为了报复绑架少女将罪责嫁祸给魔教的吧?/@Area10_Map1_4>

[@Area10_Map1_4]
#IF
#SAY
_那个失踪事件不是我干的。那时正好失踪事件发生，我就嫁祸给魔教。这样我就可以坐收渔利，谁会知道呢。说不定魔教的人真的将少女喂触龙神... \\
_<看来你是比魔教的人更不知廉耻的家伙!/@Area10_Map1_5>
[@Area10_Map1_5]
#IF
#SAY
_不懂不要瞎说，自称是魔教的忠犬这工夫难道有信心了吗? 这个魔教已经腐朽不堪了。\
_魔教的教主和祭祀长将信徒们捐献的财物都藏了起来，并使信徒们闻了一种产生幻觉的香给他们催了眠。让他们在幻觉下帮助触龙神的变异。\\
_<下一步/@Area10_Map1_6>

[@Area10_Map1_6]
#IF
#SAY
_这个魔教实际就是这个样子，聚结那些心软和不安的人使他们成为信徒，告诉他们总有一天会去极乐世界生活。魔教的指导层养了千年的蜈蚣当作神，要求信徒们绝对的服从，如有违反毫不留情的处决。我当祭祀长的时候知道这个事实，渐渐的良心开始觉得受到谴责，对信仰开始有了怀疑。\
_我不能再容忍总教主和杨山对信徒的压榨，决定将所有的事实公布于众。结果发生改变我命运事件的那一天，我决定说服杨三在晚之前赶紧忏悔，我觉得这是作为朋友能够做的最后事情...但那只是我的幻想。我还不是很了解杨山...\\
_<那天, 发生什么事了?/@Area10_Map1_7>

[@Area10_Map1_7]
#IF
#SAY
_杨山知道我知道他们所有的秘密，所以假装说要想想让我先走了。但是第二天我变成了背叛教团的罪人，并加罪于我利用祭祀长的身份将触龙神之钟破坏，还要刺杀杨山\
_谁做的可想而知，没有一个信任我的教徒。想想看谁会想和我一同去地域呢? 根据教团的规定我被处以死刑，将我打的遍体鳞伤后丢进了钳虫洞穴。\\
_<下一步/@Area10_Map1_8>

[@Area10_Map1_8]
#IF
#SAY
_因为心腹的牺牲我才活下来，并通过秘道逃了出来。虽然逃了出来但因为教团和杨山的背信弃义真是无法活下去了。正好那时听说比奇的少女失踪的事情，我就想到了报复。我觉得这是老天对绝命谷的审判...我一方面收买教徒掌握那里的动态，一方面秘告比奇城说这次事件是魔教所为，让他们找位最强的武士。\
_并且我计划中的人正好是你...到现在为止你做的比我期望的还要好，我非常的满意。\\
_<那么你现在打算怎么办?/@Area10_Map1_9>

[@Area10_Map1_9]
#IF
#SAY
_你是说我吗? 还是说你自己? 以后的事情会很容易的解决的不用担心。虽然对不起你的使命已经完成，要在这里结束你的生命了。我要将触龙神之钟和杨山的宝物拿走得到一点补偿。\
_我将假报魔教将你和少女残忍的杀害，不久就会有愤怒的士兵攻打这里。我会趁着混乱逃离这里，我本来就已经是死的人了谁会怀疑我呢? 我会把毒蜈蚣和黑色恶蛆放到这里，你和它们苦战后就在这安息吧。那我走了...\\
_<关  闭/@exit>
#ACT
set [199] 1
take 触龙神之钟 1
MongenP "D60021,53,30,2" 黑色恶蛆 2
MongenP "D60022,53,30,2" 钳虫7 3
MongenP "D60022,53,30,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
_(这里好像就是有死人遗物的地方...怪不得有些阴森。但是墙和仓库的门无法区分，只好摸索着找了。不管怎样也要找到石头模具。)\\
_<关  闭/@exit>
#ACT
break
#ELSEACT
Enter_Fail
break
#ELSESAY
_(看来这里进不去。)\\
_<关  闭/@exit>

[@Area10_Map2_Enter]
#IF
#ACT
Delaygoto [Local] 30 @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
_(摸起来里面好像有很重的东西, 拿出来看看吗? 这个...在石板上刻有触龙神之钟的模样...这肯定是那个石头模具。石头模具既然找到了去交给{FCOLOR/10}潘夜岛的铁匠{FCOLOR/12}吧。)\\
_<关  闭/@exit>
#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 D60011
Delaygoto [Local] 3 @Area10_Map2Ting
break

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

#IF
checkPos DQ804_001 28 22 3
#SAY
_(好像踩错了的感觉。)\\
_<关  闭/@exit>

#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
_(这钱难道也是遗物吗?)\\
_<关  闭/@exit>

#IF
checkPos DQ804_001 34 11 0
#SAY
_<这闪闪发光的是什么?/@Area10_Map2_GainDrunk>
#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
_(它们可能是看守仓库的怪物，没办法只有将它们全部消灭...)\\
_<关  闭/@exit>
#ELSEACT
MongenP "DQ804_001,25,25,10" 黑色恶蛆 5
Delaygoto [Local] 100 @Area10_Map2_1
break

[@Area10_Map2_MapMove]
#IF
#ACT
Map D60022

[@Area10_Map2_MapSpell]
#IF
#ACT
Mapspell [firewall] "DQ804_001,15,15,34,31,+D50,+T40,+R25,+H
Delaygoto [Local] 100 @Area10_Map2_1
#SAY
_(看来是有防止侵入者的机关装置。)\\
_<关  闭/@exit>

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

[@Area10_Map2_GainDrunk_1]
#SAY
_(虽然是掉进了陷阱，但是还是得到了一个丸药，再回遗物仓库看看吧。)\\
_<关  闭/@exit>

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

[@Area10_Map2_GainGold_1]
#SAY
_(看来刚才那钱是陷阱，什么时候又重新跑回仓库呢....)\\
_<关  闭/@exit>

[@Area10_Map2Ting]
#SAY
_(看来那个仓库一直连接到这里，不管怎样重新去{FCOLOR/10}绝命谷2层西部55:28{FCOLOR/12}看看吧。)\\
_<关  闭/@exit>

[@Area10_Map2Ting_1]
#SAY
_(看来那个仓库一直连接到绝命谷，不管怎样重新去{FCOLOR/10}绝命谷2层西部55:28{FCOLOR/12}看看吧。)\\
_<关  闭/@exit>

[@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
_(赶快把{FCOLOR/10}触龙神之钟{FCOLOR/12}交给祭祀长吧。)\\
_<关  闭/@exit>
#ACT
MongenP "D60011,207,235,1" 比奇士兵 2
ApplyMonEX "D60011,207,235,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"

}
;;;QQ:67762207
