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

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

[@main]

  神威狱底层是囚禁心魔的地方,你将心魔打入神威狱底\
层,则能延长3天囚禁时间。此外天魔巢穴的无相天魔,携\
带着各种黑暗武器装备、强化技能书,甚至蟠龙金甲(袍),\
但没有一点实力的人,这些宝藏只能是梦想!同时4人组队\
进入能有更多机会获得神龙的无敌祝福和神威狱超级宝藏!\
  <我要进入神威狱/@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
太多了,请保持4个人的队伍模式。\
\
  <返回/@main>

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

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

#IF
!equal $GROUPMASTER
#ACT
break
#SAY
  让你们的队长{Color=green <$GROUPMASTER>}过来吧,我会把你们整个\
队伍都传送到神威狱一层。神威狱凶险异常,但是你们可以\
使用镇魔符召唤心魔协助战斗,这样就容易多了!\
  <Color=green 将所有心魔击败,才能进下一层;在1柱香的时间(1小>\
<Color=green 时)内闯过5层,就可能获得各种珍奇奖励。> \
  <那我去叫队长过来/@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
  我的法力不够,只能一次送进去4个人。你们队伍的人\
数太多了,请保持4个人的队伍规模。\
\
  <返回/@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
  我的法力不够,只能一次送进去4个人。你们队伍的人\
数太多了,请保持4个人的队伍规模。\
\
  <返回/@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 囚禁1天>,第2天心魔就会\
逃逸。你必须亲自进入神威狱,将心魔击退到神威狱最底下\
一层,才能将心魔囚禁时间<Color=green 延长到3天。>\
  <请帮我囚禁心魔吧/@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

我只是路过打酱油的。
页: [1] 2
查看完整版本: 全新副本神威狱守卫文件分享