传奇一条龙灵纹石脚本

[@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