GOM引擎复古材料塔脚本，GM版本库中设置多层塔的地图脚本教程

[@main]
#IF
#ACT
LOADVAR HUMAN CLTTCS ..\QuestDiary\数据文件\复古材料塔.txt
LOADVAR HUMAN CLTTBS ..\QuestDiary\数据文件\复古材料塔.txt
#SAY
\ \
<『复古材料塔』/FCOLOR=70>取通天之意，无止境的深入云中无人知晓通往哪里……\
随着层数增加，怪物实力、都将逐步提升。\
如果你有一定实力，可在这里获得巨大的好处！\ \
<[当前层数]:/FCOLOR=222>第<$HUMAN(CLTTCS)>层　\ \
<准备好了，开始战斗！/@zdo>     <挑战下一层/@下一层23> \ \

<关闭窗口/@exit>                <我要离开复古材料塔/@lky>\

[@lky]
#IF
#ACT
MAPMOVE n3 332 347

[@下一层23]
#IF
CheckRangeMonCount <$USERNAME><$STR(N$随即值)> 22 22 40 > 0
#ACT
MESSAGEBOX 先清理完本层怪物再说吧！
break

#IF
EQUAL N$通天标记 1
#ACT
MESSAGEBOX 先挑战完这一层再说吧！
break

#IF
EQUAL <$HUMAN(CLTTBS)> 10
EQUAL <$HUMAN(CLTTCS)> 10
#ACT
MAP N3 333 333
CALCVAR HUMAN CLTTBS = 0
CALCVAR HUMAN CLTTCS = 0
SAVEVAR HUMAN CLTTCS ..\QuestDiary\数据文件\复古材料塔.txt
SAVEVAR HUMAN CLTTBS ..\QuestDiary\数据文件\复古材料塔.txt
MESSAGEBOX 已挑战完第10层，系统送你回城！
break

#IF
EQUAL <$MapTitle> 复古材料塔
CheckRangeMonCount <$USERNAME><$STR(N$随即值)> 22 22 40 = 0
NOT EQUAL <$HUMAN(CLTTBS)> 10
NOT EQUAL <$HUMAN(CLTTCS)> 10
#ACT
MOV N$通天标记 0
CreateNPC 材料通天指引 <$USERNAME><$STR(N$随即值)> 21 15 202 材料通天指引 1
MESSAGEBOX 已经进入下一层，点击NPC进行刷怪战斗！
goto @材料下层刷怪

[@材料下层刷怪]
#IF
#ACT
CALCVAR HUMAN CLTTCS + 1
SAVEVAR HUMAN CLTTCS ..\QuestDiary\数据文件\复古材料塔.txt
CALCVAR HUMAN CLTTBS + 1
SAVEVAR HUMAN CLTTBS ..\QuestDiary\数据文件\复古材料塔.txt

#IF
EQUAL N$通天标记 0
#ACT
CLEARDELAYGOTO 1
SetOnTimer 4 1
MOVR N$随即值 1 10000
MOV N$通天标记 1
ADDMIRRORMAP GA2 <$USERNAME><$STR(N$随即值)> 复古材料塔 3600 3 -1
MAP <$USERNAME><$STR(N$随即值)>
SendCenterMsg 255 70 本层倒计时:还有%d秒 0 3600
CreateNPC 材料通天指引 <$USERNAME><$STR(N$随即值)> 12 25 202 材料通天指引 1
Close

[@zdo]
#IF
CheckRangeMonCount <$USERNAME><$STR(N$随即值)> 22 22 40 > 0
#ACT
MESSAGEBOX 先清理完本层怪物再说吧！
break

#IF
#ACT
MOV N$刷怪数量 10
INC N$刷怪数量 <$HUMAN(CLTTCS)>

#IF
large N$刷怪数量 100
#ACT
MOV N$刷怪数量 100

#IF
EQUAL N$通天标记 0
#ACT
MESSAGEBOX 进入下一层后再说吧！
break

#IF
EQUAL N$通天标记 1
#ACT
MonGenEx <$USERNAME><$STR(N$随即值)> 22 22 暗界士兵 20 <$STR(N$刷怪数量)> 0 151
close

#IF
EQUAL <$HUMAN(CLTTBS)> 10
EQUAL <$HUMAN(CLTTCS)> 10
EQUAL N$通天标记 1
#ACT
MonGenEx <$USERNAME><$STR(N$随即值)> 21 22 魔殿老妖 0 1 0 70
close
break

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

感谢站长分享传奇脚本，让我学习到很多知识。

这个帖子不回对不起自己！

谢谢.脚本收到.很好用

这个帖子不回对不起自己！

这个帖子不回对不起自己！

喜欢这里的东西，方便又好用！

很专业的很全面的gm论坛

谢谢楼主！

下次在来看脚本