传奇一条龙灵纹石脚本

[@main]
#ACT
OpenBigDialogBox -1
Break
#SAY
<Img:135:0:-16:-4/@main><Img:32:0:-18:-20/@exit>


古老苍石，灵力凝聚文字漂浮在石面上


　　千年前传奇一条龙数位天神共同施法开启的地
下宫殿，在地王宫中进行修炼可以极大
提高修炼速度。击败地王宫中的怪物可
以获得海量修为经验。





<进入地宫/@gotoygggwlm>


<Img:43:0:-2:5>　 <Img:43:0:-2:5>　 <Img:42:0:-2:5/@exit>

[@gotoygggwlm]
#IF
#ACT
OpenBigDialogBox -1
Break
#SAY
<Img:135:0:-16:-4/@main><Img:32:0:-18:-20/@exit>


古老苍石，灵力凝聚文字漂浮在石面上



确定要进去吗？







<确定/@quedingjinrudigong>


<Img:40:0:-2:5/@main>　 <Img:43:0:-2:5>　 <Img:42:0:-2:5/@exit>

[@quedingjinrudigong]
#IF
CheckItem 地宫凭证 1
#ACT
SetOffTimer 3
OpenBigDialogBox -1
DelayCall 1000 @apdigongfubenduilie
Break
#SAY
<Img:135:0:-16:-4/@main><Img:32:0:-18:-20/@exit>


古老苍石，灵力凝聚文字漂浮在石面上


<排队中，请稍后……/SCOLOR=70>


<停止排队/@stopgotogwlmfb>









<Img:40:0:-2:5/@main>　 <Img:43:0:-2:5>　 <Img:42:0:-2:5/@exit>
#IF
CheckItem 地宫凭证　 1
#ACT
SetOffTimer 3
OpenBigDialogBox -1
DelayCall 1000 @apdigongfubenduilie
Break
#SAY
<Img:135:0:-16:-4/@main><Img:32:0:-18:-20/@exit>


古老苍石，灵力凝聚文字漂浮在石面上


<排队中，请稍后……/SCOLOR=70>


<停止排队/@stopgotogwlmfb>









<Img:40:0:-2:5/@main>　 <Img:43:0:-2:5>　 <Img:42:0:-2:5/@exit>
#ELSEACT
MessageBox [提示]：进入地宫需要《地宫凭证》
Break

[@stopgotogwlmfb]
#IF
#ACT
Mov N0 1
CLEARDELAYGOTO
GuildNoticeMsg 249 255 已停止排队。 Group
Break
Close

[@apdigongfubenduilie]
#IF
CHECKMAPHUMANCOUNT digong1 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong1
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong2 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong2
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong3 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong3
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong4 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong4
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong5 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong5
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong6 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong6
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong7 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong7
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong8 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong8
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong9 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong9
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong10 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong10
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong11 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong11
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong12 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong12
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong13 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong13
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong14 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong14
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong15 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong15
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong16 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong16
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong17 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong17
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong18 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong18
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong19 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong19
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CHECKMAPHUMANCOUNT digong20 = 0
#ACT
Movr N0 5
Inc N0 1
Mov S15 digong20
DelayCall 1000 @zbjrdigongfuben
Break

#IF
CheckLevelEx > 1
#SAY

副本队列已满，请稍后再试……

<离开/@exit>

[@zbjrdigongfuben]
#IF
Large N0 0
#ACT
GuildNoticeMsg 249 255 准备好，<$STR(N0)>秒后进入远古地宫！ Group
Dec N0 1
DelayCall 1000 @zbjrdigongfuben
Break
#ELSEACT
goto @jrdigongfuben
Break

[@jrdigongfuben]
#IF
Equal N0 0
CheckItem 地宫凭证 1
CHECKMAPHUMANCOUNT <$STR(S15)> = 0
#ACT
Take 地宫凭证 1
SetOnTimer 0 7200
CLEARMAPMON <$STR(S15)>
ClearItemMap <$STR(S15)> 24 27 300 *
Mapmove <$STR(S15)> 7 9
SendMsg 0 [传闻]:<$STR(S9)><$USERNAME>　持地宫凭证闯入地宫，他的修为即将猛涨
SendCenterMsg 250 0 [修真]:<$STR(S9)><$USERNAME>　持地宫凭证闯入地宫，他的修为即将猛涨 1 20
GuildNoticeMsg 252 255 第一波怪物将在20秒后出现，地宫商人处可购买效果 Group
DelayCall 20000 @makedigongmob
Break
#IF
Equal N0 0
CheckItem 地宫凭证　 1
CHECKMAPHUMANCOUNT <$STR(S15)> = 0
#ACT
Take 地宫凭证　 1
SetOnTimer 0 7200
CLEARMAPMON <$STR(S15)>
ClearItemMap <$STR(S15)> 24 27 300 *
Mapmove <$STR(S15)> 7 9
SendMsg 0 [传闻]:<$STR(S9)><$USERNAME>　持地宫凭证闯入地宫，他的修为即将猛涨
SendCenterMsg 250 0 [修真]:<$STR(S9)><$USERNAME>　持地宫凭证闯入地宫，他的修为即将猛涨 1 20
GuildNoticeMsg 252 255 第一波怪物将在20秒后出现，地宫商人处可购买效果 Group
DelayCall 20000 @makedigongmob
Break
#ELSEACT
GuildNoticeMsg 252 255 发生错误，重新排队…… Group
goto @apdigongfubenduilie
Break

[@makedigongmob]
#IF
#ACT
MISSION <$STR(S15)> 20 23
Param1 20
Param2 23
PARAM3 150
PARAM4 20
MOBPLACE 地宫骷髅1
Break

淡定，淡定，淡定……

激动人心，无法言表！

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

激动人心，无法言表！

真是难得给力的帖子啊。

淡定，淡定，淡定……

看到这帖子真是高兴！

我只是路过打酱油的。

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