论坛 › 『传奇世界架设』 › 全新副本神威狱守卫文件分享

antyvfl 发表于 2022-10-9 00:39:54

全新副本神威狱守卫文件分享

[@main]

　　神威狱底层是囚禁心魔的地方，你将心魔打入神威狱底\
层，则能延长３天囚禁时间。此外天魔巢穴的无相天魔，携\
带着各种黑暗武器装备、强化技能书，甚至蟠龙金甲(袍)，\
但没有一点实力的人，这些宝藏只能是梦想！同时４人组队\
进入能有更多机会获得神龙的无敌祝福和神威狱超级宝藏！\
　　<我要进入神威狱/@BBBsuppressFightStart>      <寻找战斗同伴/@SendPlayerList>    <我要囚禁心魔/@qiujinsb>\
　　<我想进行神龙献宝/@SBBBoYi>      <神威狱金币有什么作用/@bijinshenwei>\
　　<我要进试练场去体验一下神威狱/@anhuishexian>    <离开这里/@huidaoweilai>\
　　<我要进入天魔宝藏通道/@goTongDaoStart>\


[@SendPlayerList]
#IF
!CHECKGOLD 100000
#ACT
SENDMSG 5 你的金币不足10万，无法发送组队请求!
Break

#IF
CHECKGOLD 100000
LARGE $AMBITKIND 2
#ACT
MOV S98 $EXTRALEVELNAME
TAKE 金币 100000
SENDMSG 0 %s在%m(%x,%y)发出组队请求，他的职业是:<$JOB>，目前境界:<$STR(S98)>，诚邀各路朋友共闯神威狱。

#IF
SMALL $AMBITKIND 3
CHECKGOLD 100000
#ACT
MOV S98 $LEVEL
TAKE 金币 100000
SENDMSG 0 %s在%m(%x,%y)发出组队请求，他的职业是:<$JOB>，目前等级:<$STR(S98)>，诚邀各路朋友共闯神威狱。



[@huidaoweilai]
　　你确定要离开这里回到中州吗？\
\
　　<是的，我想离开/@huidaoweilai1>\
　　<返回/@main>

[@huidaoweilai1]
#ACT
mapmove 0 472 226

[@BBBsuppressFightStart]
#IF
large $GROUPCOUNT 4
#ACT
break
#SAY
太多了，请保持４个人的队伍模式。\
\
　　<返回/@main>

#IF
equal $GROUPMASTER $USERNAME
#ACT
break
#SAY
　　尊敬的勇士，请注意，我会把你们整个队伍都传送到神\
威狱一层。神威狱凶险异常，但是你们可以使用镇魔符召唤\
心魔协助战斗，并可以靠它神奇力量发出强大的攻击，让你\
在神威狱中不会感到害怕。\
　　使用镇魔符进入后，可立即获得一个心魔来帮助。\
　　<Color=green 将所有心魔击败，才能进下一层；在１柱香的时间(1小>\
<Color=green 时)内闯过５层，就可能获得各种珍奇奖励。> \
　　<用镇魔符召唤心魔一起进入/@suppressFightStartrr>\
　　<我先不用心魔帮助，自己来试试/@suppressFightStart>\

#IF
equal $GROUPMASTER
equal $GROUPMEMBER(0)
#ACT
mov D0 1
break
#SAY
　　你要一个人进去吗？神威狱中凶险异常，虽然说可以用\
镇魔符召唤心魔来协助你战斗，但是没有同伴的掩护，简直\
就是凶多吉少。在神威狱中还可以靠你心魔宠物神奇力量发\
出强力的攻击，让你在神威狱中不会感到害怕。\
　　使用镇魔符进入后，可立即获得一个心魔来帮助。\
　　<Color=green 将所有心魔击败，才能进下一层；在１柱香的时间(1小>\
<Color=green 时)内闯过５层，就可能获得各种珍奇奖励。> \
　　<用镇魔符召唤心魔一起进入/@suppressFightStartrr>\
　　<我先不用心魔帮助，自己来试试/@suppressFightStart>\

#IF
!equal $GROUPMASTER
#ACT
break
#SAY
　　让你们的队长{Color=green <$GROUPMASTER>}过来吧，我会把你们整个\
队伍都传送到神威狱一层。神威狱凶险异常，但是你们可以\
使用镇魔符召唤心魔协助战斗，这样就容易多了！\
　　<Color=green 将所有心魔击败，才能进下一层；在１柱香的时间(1小>\
<Color=green 时)内闯过５层，就可能获得各种珍奇奖励。> \
　　<那我去叫队长过来/@exit>

[@suppressFightStartrr]
#ACT
Showspotdlg 6 放入镇魔符进入 @放入镇魔符
#SAY
　　恩，使用镇魔符是一个明智的选择，放入镇魔符吧，我\
这就送你们进去。\
　　进入后，你能获得一个被操控的心魔帮助，你还可以使\
用镇魔符增加它们的镇魔力，维持它们的战斗能力。\
　　放心魔，每次我只收你一张镇魔符。如果你交上的是镇魔\
神符，那被获得的心魔当然就会更强。\

[@放入镇魔符]
#IF
random 1
#ACT
mov P0
goto @检测地图

#IF
equal P0 0
#ACT
break
#SAY
地图已满人，请稍后参加。\
\
\
<离开/@exit>

#IF
large $GROUPCOUNT 4
#ACT
break
#SAY
　　我的法力不够，只能一次送进去４个人。你们队伍的人\
数太多了，请保持４个人的队伍规模。\
\
　　<返回/@main>

#IF
!POS $ITEMINFO[$PARAM(1)].NAME 镇魔
#ACT
break
#SAY
　　你放入的东西没有镇魔力，它无法压制心魔魔力。快去\
找蕴含镇魔力的镇魔符，它能控制心魔帮你战斗!\
\
　　<好的我这就去找/@exit> \
　　<我先不用心魔帮助，自己来试试/@suppressFightStart> \
　　<返回/@main>

#IF
POS $ITEMINFO[$PARAM(1)].NAME 试用
#ACT
break
#SAY
　　你放入的东西没有镇魔力，它无法压制心魔魔力。快去\
找蕴含镇魔力的镇魔符，它能控制心魔帮你战斗!\
\
　　<好的我这就去找/@exit> \
　　<我先不用心魔帮助，自己来试试/@suppressFightStart> \
　　<返回/@main>

#IF
POS $ITEMINFO[$PARAM(1)].NAME 镇魔符
#ACT
Gmexecute RECALLMOB 固本心魔22 1 0

#IF
POS $ITEMINFO[$PARAM(1)].NAME 镇魔神符
#ACT
Gmexecute RECALLMOB 培元心魔33 1 0

#IF
#ACT
UPGRADEUSERITEM $PARAM(1) 20 - 1
goto @suppressFightStart
break

[@suppressFightStart]
#IF
large $GROUPCOUNT 4
#ACT
break
#SAY
　　我的法力不够，只能一次送进去４个人。你们队伍的人\
数太多了，请保持４个人的队伍规模。\
\
　　<返回/@main>

#IF
random 1
#ACT
mov P0
goto @检测地图

#IF
equal P0 1
#ACT
goto @可进
#ELSESAY
地图已满人，请稍后参加。\
\
\
<离开/@exit>

[@检测地图]
#IF
!checkhum SWY101 1
!checkhum SWY201 1
!checkhum SWY301 1
!checkhum SWY401 1
!checkhum SWY501 1
#ACT
mov S43 SWY101
mov S44 SWY201
mov S45 SWY301
mov S46 SWY401
mov S47 SWY501
mov P0 1
break

#IF
!checkhum SWY102 1
!checkhum SWY202 1
!checkhum SWY302 1
!checkhum SWY402 1
!checkhum SWY502 1
#ACT
mov S43 SWY102
mov S44 SWY202
mov S45 SWY302
mov S46 SWY402
mov S47 SWY502
mov P0 1
break

#IF
!checkhum SWY103 1
!checkhum SWY203 1
!checkhum SWY303 1
!checkhum SWY403 1
!checkhum SWY503 1
#ACT
mov S43 SWY103
mov S44 SWY203
mov S45 SWY303
mov S46 SWY403
mov S47 SWY503
mov P0 1
break

#IF
!checkhum SWY104 1
!checkhum SWY204 1
!checkhum SWY304 1
!checkhum SWY404 1
!checkhum SWY504 1
#ACT
mov S43 SWY104
mov S44 SWY204
mov S45 SWY304
mov S46 SWY404
mov S47 SWY504
mov P0 1
break

#IF
!checkhum SWY105 1
!checkhum SWY205 1
!checkhum SWY305 1
!checkhum SWY405 1
!checkhum SWY505 1
#ACT
mov S43 SWY105
mov S44 SWY205
mov S45 SWY305
mov S46 SWY405
mov S47 SWY505
mov P0 1
break

#IF
!checkhum SWY106 1
!checkhum SWY206 1
!checkhum SWY306 1
!checkhum SWY406 1
!checkhum SWY506 1
#ACT
mov S43 SWY106
mov S44 SWY206
mov S45 SWY306
mov S46 SWY406
mov S47 SWY506
mov P0 1
break

#IF
!checkhum SWY107 1
!checkhum SWY207 1
!checkhum SWY307 1
!checkhum SWY407 1
!checkhum SWY507 1
#ACT
mov S43 SWY107
mov S44 SWY207
mov S45 SWY307
mov S46 SWY407
mov S47 SWY507
mov P0 1
break

#IF
!checkhum SWY108 1
!checkhum SWY208 1
!checkhum SWY308 1
!checkhum SWY408 1
!checkhum SWY508 1
#ACT
mov S43 SWY108
mov S44 SWY208
mov S45 SWY308
mov S46 SWY408
mov S47 SWY508
mov P0 1
break

#IF
!checkhum SWY109 1
!checkhum SWY209 1
!checkhum SWY309 1
!checkhum SWY409 1
!checkhum SWY509 1
#ACT
mov S43 SWY109
mov S44 SWY209
mov S45 SWY309
mov S46 SWY409
mov S47 SWY509
mov P0 1
break

[@可进]
#IF
random 1
#ACT
goto @进入一层
$GROUPMEMBER(1).goto @进入一层
$GROUPMEMBER(2).goto @进入一层
$GROUPMEMBER(3).goto @进入一层

CLEARMAPMON $STR(S43)
CLEARMAPBODY $STR(S43)
CLEARMAPITEM $STR(S43)
CLEARMAPMON $STR(S44)
CLEARMAPBODY $STR(S44)
CLEARMAPITEM $STR(S44)
CLEARMAPMON $STR(S45)
CLEARMAPBODY $STR(S45)
CLEARMAPITEM $STR(S45)
CLEARMAPMON $STR(S46)
CLEARMAPBODY $STR(S46)
CLEARMAPITEM $STR(S46)
CLEARMAPMON $STR(S47)
CLEARMAPBODY $STR(S47)
CLEARMAPITEM $STR(S47)

#IF
random 2
#ACT
Param1 $STR(S43)
Param2 85
Param3 37
MonGen 麒麟2 1 5 麒麟

;一层 6固本 6培元 3明心
;二层 6固本 6培元 6明心
;三层 6固本 6培元 6明心
;四层 6固本 6培元 6明心 6大悟
;五层 6固本 6培元 6明心 6大悟
#IF
random 1
#ACT
Param1 $STR(S43)
Param2 74
Param3 33
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔11 1 0 $STR(S0)
Param3 34
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔22 1 0 $STR(S0)
Param3 35
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔33 1 0 $STR(S0)
Param3 36
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔44 1 0 $STR(S0)
Param3 37
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔55 1 0 $STR(S0)
Param3 38
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔66 1 0 $STR(S0)
Param2 75
Param3 33
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔11 1 0 $STR(S0)
Param3 34
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔22 1 0 $STR(S0)
Param3 35
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔33 1 0 $STR(S0)
Param3 36
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔44 1 0 $STR(S0)
Param3 37
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔55 1 0 $STR(S0)
Param3 38
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔66 1 0 $STR(S0)

Param2 65
Param3 60
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 30 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 30 $STR(S0)

;二层
Param1 $STR(S44)
Param2 45
Param3 50
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔44 1 20 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔55 1 20 $STR(S0)

;三层
Param1 $STR(S45)
Param2 50
Param3 50
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 固本心魔55 1 20 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 20 $STR(S0)

;四层
Param1 $STR(S46)
Param2 40
Param3 40
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔77 1 20 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔55 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔66 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 20 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔11 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔22 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔33 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔44 1 20 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔55 1 20 $STR(S0)

;五层
Param1 $STR(S47)
Param2 70
Param3 70
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔44 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 培元心魔55 1 30 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔55 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔66 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔44 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔55 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔66 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 明心心魔33 1 30 $STR(S0)

ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔44 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔55 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔66 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔11 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔22 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔33 1 30 $STR(S0)
ReadRandomStr ..\QueStDiary\游戏读取\心魔名字.txt S0
MonGen 大悟心魔44 1 30 $STR(S0)

[@进入一层]
#IF
CHECKMAPNAME SWYZB
#ACT
mov D0 $GROUPCOUNT
mov D1
mov D2
mov D3
mov D4
mov D5
mov D6
mapmove $STR(S43) 90 35
CALCVAR HUMAN 点香记时 = 3600
mov P0 $HUMAN(点香记时)
DIV P0 60
DelayCall 1 @神威狱点香 $HUMAN(点香记时)
SENDMSG 5 <$STR(P0)>分钟后，镇魔香燃尽之时你的任务将失败，请务必抓紧！
DelayGoto 7200000 @天关返回中州


[@anhuishexian]
　　你确定要进入神威狱试练场进行锻炼吗？\
　　注意：每次在里面锻炼的时间只有45分钟，到时间后你\
会被传出试练场，请抓紧时间。\
\
　　<是的，我想进入/@shexianxiakeng>\
　　<返回/@main>

[@shexianxiakeng]
#ACT
mapmove SWYSL 98 108
CALCVAR HUMAN 点香记时 = 2700
DelayCall 1 @点香 $HUMAN(点香记时)
#SAY
　　欢迎进入神威狱试练场，为了能让中州的勇士们在最短\
的时间里掌握突破神威狱的方式，国王特命我组建这个试练\
场，在这里我会教给你在神威狱中各种生存的技巧和应对困\
难的方法，而且还会给你免费的道具帮助你掌握突破神威狱\
的方式。是不是有点迫不及待了？好了，你先去神威狱守卫\
处领取免费的物品吧！\
\
　　<好的，我知道了/@exit>

[@点香]
#IF
CHECKMAPNAME SWYSL
#ACT
CALCVAR HUMAN 点香记时 - 1
SETTIMER $HUMAN(点香记时)

#IF
CHECKVAR HUMAN 点香记时 = 0
#ACT
map SWYZB
SENDMSG 15 神威狱试炼场以体验为主，各种奖励请到神威狱中获取

[@qiujinsb]
　　将俘获了心魔的玉净瓶交给我，我会借助魔法阵力量将\
心魔囚禁到神威狱，那么你的元神强化技能威力就可以得到\
提升了。\
　　我目前的力量，只能将心魔<Color=green 囚禁１天>，第２天心魔就会\
逃逸。你必须亲自进入神威狱，将心魔击退到神威狱最底下\
一层，才能将心魔囚禁时间<Color=green 延长到３天。>\
　　<请帮我囚禁心魔吧/@getXinmo>    <看看我囚禁的心魔状态/@zhenmofu>\
　　<返回/@main>

[@getXinmo]
#ACT
;放入俘获心魔的玉净瓶：
#SAY
　　给我俘获了心魔的玉净瓶，我现在就把那邪恶的心魔囚\
禁到神威狱中。\
\
　　<返回/@qiuiin>

[@zhenmofu]
　　您尚未囚禁任何心魔。\
\
\
　　<返回/@qiujinsb>

[@bijinshenwei]
　　神威狱金币是给勇者荣誉的象征，更是一种可以获得神\
龙宝藏的钥匙。\
　　传说中神龙拥有着无数稀世珍品、绝世宝藏，其中高级\
强化技能书更能让你元神瞬间习得那高深莫测的绝世奇功！\
如果你是有缘人这一切你都能拥有！\
　　顺便告诉你，神威狱金币可以在神威狱中获得。\
\
　　<我想进行神龙献宝/@SBBBoYi>\
　　<返回/@main>

[@SBBBoYi]
　　无畏的勇士在神威狱中浴血奋战，金色的神龙时刻守护\
在你身旁。作为报答，你可以使用神威狱金币在这里获取各\
种财富，财富之门就会为你打开，怎么样？想不想试试？\
奖励提示如下：\
　　<我有神威狱金币，我来试试/@ApplySWYBoYi>    <我要兑换神威狱金币/@duihuanjinbi>

[@ApplySWYBoYi]
#IF
checkitem 神威狱金币 2
#ACT
MOV P1 $ItemExALL.20.神威狱金币
TAKE 神威狱金币 99
GIVE 神威狱金币 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P1)
SENDMSG 5 你包裹内因有多枚神威狱金币，当前给你进行了重叠，请关闭后重新打开。
break

#IF
CHECKITEM 神威狱金币 1
#ACT
MOV S0
MOV S1
MOV S2
OpenErnie
close
#ELSESAY
　　您包裹里并没有神威狱金币，无法帮您开启神龙宝藏。\
不过听说这种金币可以在神威狱中获得，您不妨去看看？\\
　　<离开/@exit>\
　　<返回/@SBBBoYi>

[@duihuanjinbi]
　　赤金钥匙可以开启财富的大门，它与神威狱金币采用了\
相近的真金材质。如果你交给我两把赤金钥匙的话，我可以\
利用它的材质帮你打造一枚神威狱金币，每人每天只能兑换\
50枚。你要兑换吗？\
\
<我要兑换一枚/@exchang&1&2><我要兑换五枚/@exchang&5&10>\
<我要兑换十枚/@exchang&10&20>    <返回/@main>

[@exchang] TRUE
#ACT
mov P0 0
mov P1 $SCRIPTPARAM(2)
dec P1 1

#IF
checkitem 赤金钥匙 $SCRIPTPARAM(2)
#ACT
mov P0 1

#IF
large $ITEMINFO[$ITEMMAKEINDEX(赤金钥匙串)].DURAMAX $STR(P1)
#ACT
mov P0 1

#IF
equal P0 1
CHECKVAR HUMAN 神威金币 < 50
checkbagsize $SCRIPTPARAM(1)
#ACT
goto @换币成功
Calcvar HUMAN 神威金币 + $SCRIPTPARAM(1)
give 神威狱金币 1
UPGRADEUSERITEM $PARAM(10) 20 = $SCRIPTPARAM(1)
SENDMSG 5 恭喜您用<$SCRIPTPARAM(2)>把赤金钥匙成功兑换了<$SCRIPTPARAM(1)>个神威狱金币
#SAY
　　恭喜你成功换取了神威狱金币！\
\
　　<谢谢你！/@exit>
#ELSEACT
SENDMSG 5 无法兑换您指定数量的神威狱金币，请您查看是否包裹已经满或赤金钥匙数量不足
#ELSESAY
　　无法兑换您指定数量的神威狱金币，请您查看是否包裹\
已满或赤金钥匙数量不足。或者您今日已经兑换了50枚神威\
狱金币达到兑换数量上限；请您明天再进行尝试。\
\
　　<知道了/@exit>\

[@换币成功]
#IF
checkitem 赤金钥匙 $SCRIPTPARAM(2)
#ACT
take 赤金钥匙 $SCRIPTPARAM(2)
break

#IF
large $ITEMINFO[$ITEMMAKEINDEX(赤金钥匙串)].DURAMAX $STR(P1)
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX(赤金钥匙串) 20 - $SCRIPTPARAM(2)

[@goTongDaoStart]
　　天魔宝鼎中藏有血煞魔饰，通向宝鼎的大门被封印，只\
有灵符的灵力，可以解开宝藏大门的封印。使用商城中的<Color=green 辟>\
<Color=green 邪丹>可以避免魔气的侵蚀，同时提高能力获得<Color=green 更多>经验\
　　被喷出的宝物处于冻结状态时无法被拾，耐心等待天魔\
宝鼎的魔力衰弱消散，那时所有宝物都能重新被捡起使用。\
　　天魔宝藏地图中散落着大量珍奇宝物，特别是不断喷出\
宝物的天魔宝鼎四周。不断挖掘(ALT+鼠标左键)就可以获得\
宝物。包裹中有幸运符才能探索到宝物的存在。\
　　<进入天魔宝藏通道/@goSWYTongDao>    <返回/@main>\

[@goSWYTongDao]
#IF
large $TIME.HOUR 15
small $TIME.HOUR 18
#ACT
mapmove SWYTONGDAO 63 42
Gmexecute readbook 3
SENDMSG 15 在此场景中，附魔的黑暗武器，可以让角色本体使用强力的心魔技能
SENDMSG 15 灵符拥有的灵力，可以帮您快速解开通向宝藏大门的封印
SENDMSG 15 勇闯天魔宝藏的勇气能使天关幻镜映射出更多的宝藏
CALCVAR HUMAN 点香记时 = 1800
DelayCall 1 @天魔宝藏点香 $HUMAN(点香记时)
#ELSESAY
对不起，天魔宝藏通道还未开放。\
天魔宝藏将在每日16:00-18:00开放。\
\
<知道了/@exit>\

[@神威狱点香]
#IF
POS $M SWY
!CHECKMAPNAME SWYZB
#ACT
CALCVAR HUMAN 点香记时 - 1
SETTIMER $HUMAN(点香记时)


#IF
CHECKVAR HUMAN 点香记时 = 0
#ACT
goto @神威狱返回

[@神威狱返回]
#IF
POS $M SWY1
#ACT
map SWYZB

#IF
POS $M SWY2
#ACT
map SWYZB

#IF
POS $M SWY3
#ACT
map SWYZB

#IF
POS $M SWY4
#ACT
map SWYZB

#IF
POS $M SWY5
#ACT
map SWYZB

[@天魔宝藏点香]
#IF
CHECKMAPNAME SWYTONGDAO
#ACT
CALCVAR HUMAN 点香记时 - 1
SETTIMER $HUMAN(点香记时)
break

#IF
CHECKMAPNAME SWYBAOZANG
#ACT
CALCVAR HUMAN 点香记时 - 1
SETTIMER $HUMAN(点香记时)
break

#IF
CHECKVAR HUMAN 点香记时 = 0
#ACT
map SWYZB
#ELSEACT
DelayCall 1 @天魔宝藏点香 0

hacksee 发表于 2022-10-9 04:32:23

淡定，淡定，淡定……

czfngfu 发表于 2022-10-10 02:41:01

感恩无私的分享与奉献 :)

nzwennet2011 发表于 2022-10-12 10:56:04

真是被感动的痛哭流涕……

wangjun123 发表于 2022-10-12 13:16:41

太生气了，无法HOLD啦 >_<......

sir.edmond 发表于 2022-10-13 14:32:39

强烈支持楼主ing……

40381438 发表于 2022-10-15 09:09:11

真是难得给力的帖子啊。

lxb1101 发表于 2022-10-15 15:06:27

无回帖，不论坛，这才是人道。

fgfvdfdfdf 发表于 2022-10-16 23:59:44

淡定，淡定，淡定……

plugmy 发表于 2022-10-17 21:17:01

我只是路过打酱油的。

查看完整版本: 全新副本神威狱守卫文件分享