GOM引擎副本爬塔脚本，传奇服务端当前地图怪清理干净教程

[@main]
#if
CheckMonMap <$USERNAME> 1
#act
messagebox 提示:当前地图怪没清理干净
break

#if
equal s$层数 二十五
#act
GetRandomText ..\QuestDiary\技术QQ80558827\副本爬塔\随机奖励.txt <$str(s$物品名字)>
give <$str(s$物品名字)>
mapmove 3 333 333
#CALL [\技术QQ80558827\捡取鉴定\获取属性.txt] @获取属性
break

#if
equal s$层数 二十四
#act
;give 麻痹戒指
mov s$层数 二十五
MOV s$NPC  领取终极奖励
mov s$怪名字1 残魂之力应龙
mov N$怪数量1 1
mov s$怪名字2 华佗
mov N$怪数量2 1
mov s$怪名字3 魔化·卢俊义
mov N$怪数量3 1
mov s$怪名字4 丞相·关胜
mov N$怪数量4 1
mov s$怪名字5 真·双鞭·呼延灼
mov N$怪数量5 1
mov s$怪名字6 **老大
mov N$怪数量6 1

#if
equal s$层数 二十三
#act
mov s$层数 二十四
MOV s$NPC  下一层
mov s$怪名字1 战·呼延灼
mov N$怪数量1 1
mov s$怪名字2 丞相·关胜
mov N$怪数量2 1
mov s$怪名字3 真·浪里白条·张顺
mov N$怪数量3 1
mov s$怪名字4 真·短命二郎·阮小五
mov N$怪数量4 1
mov s$怪名字5 真·船火儿·张横
mov N$怪数量5 1
mov s$怪名字6 水浒·宣赞
mov N$怪数量6 1
#if
equal s$层数 二十二
#act
mov s$层数 二十三
MOV s$NPC  下一层
mov s$怪名字1 陶宗旺
mov N$怪数量1 1
mov s$怪名字2 宋清
mov N$怪数量2 1
mov s$怪名字3 水浒·解珍
mov N$怪数量3 1
mov s$怪名字4 霹雳火·秦明
mov N$怪数量4 1
mov s$怪名字5 魔化·林冲
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1
#if
equal s$层数 二十一
#act
mov s$层数 二十二
MOV s$NPC  下一层
mov s$怪名字1 水浒·燕青
mov N$怪数量1 1
mov s$怪名字2 水浒·解宝
mov N$怪数量2 1
mov s$怪名字3 马麟
mov N$怪数量3 1
mov s$怪名字4 孟康
mov N$怪数量4 1
mov s$怪名字5 真·短命二郎·阮小五
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1
#if
equal s$层数 二十
#act
mov s$层数 二十一
MOV s$NPC  下一层
mov s$怪名字1 水浒·黄信
mov N$怪数量1 1
mov s$怪名字2 战·玉麒麟
mov N$怪数量2 1
mov s$怪名字3 花荣
mov N$怪数量3 1
mov s$怪名字4 鲁智深
mov N$怪数量4 1
mov s$怪名字5 战·呼延灼
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十九
#act
mov s$层数 二十
MOV s$NPC  下一层
mov s$怪名字1 呼延灼
mov N$怪数量1 1
mov s$怪名字2 关胜
mov N$怪数量2 1
mov s$怪名字3 水浒·宣赞
mov N$怪数量3 1
mov s$怪名字4 水浒·孙立
mov N$怪数量4 1
mov s$怪名字5 真·船火儿·张横
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十八
#act
mov s$层数 十九
MOV s$NPC  下一层
mov s$怪名字1 朱仝
mov N$怪数量1 1
mov s$怪名字2 花荣
mov N$怪数量2 1
mov s$怪名字3 秦明
mov N$怪数量3 1
mov s$怪名字4 林冲
mov N$怪数量4 1
mov s$怪名字5 水浒·孙立
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十七
#act
mov s$层数 十八
MOV s$NPC  下一层
mov s$怪名字1 杨林
mov N$怪数量1 1
mov s$怪名字2 鲁智深
mov N$怪数量2 1
mov s$怪名字3 武松
mov N$怪数量3 1
mov s$怪名字4 凌振
mov N$怪数量4 1
mov s$怪名字5 战·玉麒麟
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十六
#act
mov s$层数 十七
MOV s$NPC  下一层
mov s$怪名字1 燕顺
mov N$怪数量1 1
mov s$怪名字2 邓飞
mov N$怪数量2 1
mov s$怪名字3 欧鹏
mov N$怪数量3 1
mov s$怪名字4 萧让
mov N$怪数量4 1
mov s$怪名字5 真·浪里白条·张顺
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十五
#act
mov s$层数 十六
MOV s$NPC  下一层
mov s$怪名字1 安道全
mov N$怪数量1 1
mov s$怪名字2 吕方
mov N$怪数量2 1
mov s$怪名字3 蒋敬
mov N$怪数量3 1
mov s$怪名字4 杨林
mov N$怪数量4 1
mov s$怪名字5 真·活阎罗·阮小七
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十四
#act
mov s$层数 十五
MOV s$NPC  下一层
mov s$怪名字1 樊瑞
mov N$怪数量1 1
mov s$怪名字2 金大坚
mov N$怪数量2 1
mov s$怪名字3 鲍旭
mov N$怪数量3 1
mov s$怪名字4 王英
mov N$怪数量4 1
mov s$怪名字5 扈三娘
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十三
#act
mov s$层数 十四
MOV s$NPC  下一层
mov s$怪名字1 李衮
mov N$怪数量1 1
mov s$怪名字2 项充
mov N$怪数量2 1
mov s$怪名字3 孔亮
mov N$怪数量3 1
mov s$怪名字4 孔明
mov N$怪数量4 1
mov s$怪名字5 皇甫端
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十二
#act
mov s$层数 十三
MOV s$NPC  下一层
mov s$怪名字1 孟康
mov N$怪数量1 1
mov s$怪名字2 童猛
mov N$怪数量2 1
mov s$怪名字3 马麟
mov N$怪数量3 1
mov s$怪名字4
mov N$怪数量4 1
mov s$怪名字5 乐和
mov N$怪数量5 1
mov s$怪名字6 陶宗旺
mov N$怪数量6 1

#if
equal s$层数 十一
#act
mov s$层数 十二
MOV s$NPC  下一层
mov s$怪名字1 宋万
mov N$怪数量1 1
mov s$怪名字2 曹正
mov N$怪数量2 1
mov s$怪名字3 穆春
mov N$怪数量3 1
mov s$怪名字4
mov N$怪数量4 1
mov s$怪名字5 金大坚
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 十
#act
;give 麻痹戒指

mov s$层数 十一
MOV s$NPC  下一层
mov s$怪名字1 邹渊
mov N$怪数量1 1
mov s$怪名字2 杜兴
mov N$怪数量2 1
mov s$怪名字3 周通
mov N$怪数量3 1
mov s$怪名字4 李忠
mov N$怪数量4 1
mov s$怪名字5 薛永
mov N$怪数量5 1
mov s$怪名字6 杜迁
mov N$怪数量6 1

#if
equal s$层数 九
#act
;give 麻痹戒指

mov s$层数 十
MOV s$NPC  下一层
mov s$怪名字1 灵·朱雀神兽
mov N$怪数量1 1
mov s$怪名字2 灵·白虎神兽
mov N$怪数量2 1
mov s$怪名字3 灵·玄武神兽
mov N$怪数量3 1
mov s$怪名字4 灵·青龙神兽
mov N$怪数量4 1
mov s$怪名字5 郁保四
mov N$怪数量5 1
mov s$怪名字6 王定六
mov N$怪数量6 1

#if
equal s$层数 八
#act
;give 麻痹戒指

mov s$层数 九
MOV s$NPC  下一层
mov s$怪名字1 灵·玄武神兽
mov N$怪数量1 2
mov s$怪名字2 灵·青龙神兽
mov N$怪数量2 2
mov s$怪名字3 灵·白虎神兽
mov N$怪数量3 2
mov s$怪名字4 灵·朱雀神兽
mov N$怪数量4 2
mov s$怪名字5 朱富
mov N$怪数量5 1
mov s$怪名字6 李云
mov N$怪数量6 1

#if
equal s$层数 七
#act
;give 麻痹戒指

mov s$层数 八
MOV s$NPC  下一层
mov s$怪名字1 妖·堕落血蝙
mov N$怪数量1 1
mov s$怪名字2 妖·堕落白狐
mov N$怪数量2 1
mov s$怪名字3 灵·朱雀神兽
mov N$怪数量3 1
mov s$怪名字4 灵·白虎神兽
mov N$怪数量4 1
mov s$怪名字5 李立
mov N$怪数量5 1
mov s$怪名字6 石勇
mov N$怪数量6 1


#if
equal s$层数 六
#act
;give 麻痹戒指

mov s$层数 七
MOV s$NPC  下一层
mov s$怪名字1 镇妖之主
mov N$怪数量1 1
mov s$怪名字2 魔·暗夜苍龙
mov N$怪数量2 1
mov s$怪名字3 魔·暗夜海盗
mov N$怪数量3 1
mov s$怪名字4 妖·堕落白狐
mov N$怪数量4 1
mov s$怪名字5 妖·堕落巨蝎
mov N$怪数量5 1
mov s$怪名字6 妖·堕落血蝙
mov N$怪数量6 1

#if
equal s$层数 五
#act
mov s$层数 六
MOV s$NPC  下一层
mov s$怪名字1 岩浆龙王
mov N$怪数量1 2
mov s$怪名字2 困魔之兽
mov N$怪数量2 2
mov s$怪名字3 镇妖之主
mov N$怪数量3 2
mov s$怪名字4
mov N$怪数量4 1
mov s$怪名字5
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 四
#act
mov s$层数 五
MOV s$NPC  下一层
mov s$怪名字1 红袍教主
mov N$怪数量1 3
mov s$怪名字2 欲火凤凰
mov N$怪数量2 3
mov s$怪名字3 岩浆龙王
mov N$怪数量3 3
mov s$怪名字4
mov N$怪数量4 1
mov s$怪名字5
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 三
#act
mov s$层数 四
MOV s$NPC  下一层
mov s$怪名字1 黑袍教主
mov N$怪数量1 3
mov s$怪名字2 红袍教主
mov N$怪数量2 3
mov s$怪名字3 欲火凤凰
mov N$怪数量3 3
mov s$怪名字4
mov N$怪数量4 1
mov s$怪名字5
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 二
#act
mov s$层数 三
MOV s$NPC  下一层
mov s$怪名字1 冰宫巨魔
mov N$怪数量1 3
mov s$怪名字2 幽灵之子
mov N$怪数量2 3
mov s$怪名字3 红袍教主
mov N$怪数量3 3
mov s$怪名字4
mov N$怪数量4 1
mov s$怪名字5
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
equal s$层数 一
#act
mov s$层数 二
MOV s$NPC  下一层
mov s$怪名字1 幽灵之子
mov N$怪数量1 3
mov s$怪名字2 冰雪神龙
mov N$怪数量2 3
mov s$怪名字3 地牢教主
mov N$怪数量3 3
mov s$怪名字4
mov N$怪数量4 1
mov s$怪名字5
mov N$怪数量5 1
mov s$怪名字6
mov N$怪数量6 1

#if
#act
KILLSLAVE
DELMIRRORMAP <$USERNAME>
AddMirrorMap d515 <$USERNAME> 副本爬塔<$str(s$层数)>层 864000 3
CreateNPC <$str(s$NPC)> <$USERNAME> 20 23 12 副本爬塔 1
goto @副本爬塔刷怪
map <$USERNAME>
#CALL [\技术QQ80558827\捡取鉴定\获取属性.txt] @获取属性
close


[@副本爬塔刷怪]
#if
not equal s$怪名字1
#act
MonGenEx <$USERNAME> 21 19 <$str(s$怪名字1)> 20 <$STR(N$怪数量1)> 0 254
#if
not equal s$怪名字2
#act
MonGenEx <$USERNAME> 21 19 <$str(s$怪名字2)> 20 <$STR(N$怪数量2)> 0 254

#if
not equal s$怪名字3
#act
MonGenEx <$USERNAME> 21 19 <$str(s$怪名字3)> 20 <$str(N$怪数量3)> 0 254
#if
not equal s$怪名字4
#act
MonGenEx <$USERNAME> 21 19 <$str(s$怪名字4)> 20 <$str(N$怪数量4)> 0 254
#if
not equal s$怪名字5
#act
MonGenEx <$USERNAME> 21 19 <$str(s$怪名字5)> 20 <$str(N$怪数量5)> 0 254
#if
not equal s$怪名字6
#act
MonGenEx <$USERNAME> 21 19 <$str(s$怪名字6)> 20 <$str(N$怪数量6)> 0 254