GOM引擎百层妖塔脚本，传奇一条龙开区时设置消灭所有怪物可进入下一层脚本

admin

                               
登录/注册后可看大图

[@main]
#IF
#ACT
CALCVAR HUMAN 妖塔层数 = 0
SAVEVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
LOADVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
#SAY
\     \
\     \
\     \
\     \
\     皇榜告示天下，勇士们血战妖塔往上层数越高宝物越多... \
\ \
{/FCOLOR=249}层    \


[@妖塔传送]
#IF
CHECKGAMEGIRD ? 10
#ACT
#ELSEACT
MESSAGEBOX 灵符不足,不能进入!
BREAK
#IF
RANDOM 20
#ACT
MOVR N$点数 40 46
#ELSEACT
MOVR N$点数 1 41
#if
#act
DELMIRRORMAP
CALCVAR HUMAN 妖塔层数 =
SAVEVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
LOADVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
SENDMSG 5 {随机进入第:|250:0:0}{[]|249}{层|250:0:0}
#if
CHECKVAR HUMAN 妖塔层数 > 50
#ACT
DELMIRRORMAP
CALCVAR HUMAN 妖塔层数 = 0
SAVEVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
LOADVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
MAPMOVE 3 331 331
MESSAGEBOX 妖塔一共50层,恭喜你通关了!你可以选择重新挑战!
break
#if
CHECKVAR HUMAN 妖塔层数 < 50
#act
GAMEGIRD - 10
AddMirrorMap D515  血战封妖塔:第层 65535 3 0
map
MOV S$妖塔地图
CreateNPC 血战传送员  19 24 31 血战传送员 1
goto @计算层数刷怪1
BREAK

[@计算层数刷怪1]
#IF
CHECKVAR HUMAN 妖塔层数 > 9
#ACT
MOV S$层数计算
DEC S$层数计算 1 1
GOTO @妖塔开始刷怪1
break
#elseact
MOV S$层数计算
MOV S$层数计算 0
GOTO @妖塔开始刷怪1
break


[@妖塔开始刷怪1]
#IF
EQUAL S$层数计算 0
#ACT
Param1
Param2 19
Param3 24
MonGen 稻草人 1 15
BREAK
#IF
EQUAL S$层数计算 1
#ACT
Param1
Param2 19
Param3 24
MonGen 半兽人 1 15
BREAK
#IF
EQUAL S$层数计算 2
#ACT
Param1
Param2 19
Param3 24
MonGen 多钩猫 1 15
BREAK
#IF
EQUAL S$层数计算 3
#ACT
Param1
Param2 19
Param3 24
MonGen 蜈蚣 1 15
BREAK
#IF
EQUAL S$层数计算 4
#ACT
Param1
Param2 19
Param3 24
MonGen 钳虫 1 15
BREAK
#IF
EQUAL S$层数计算 5
#ACT
Param1
Param2 19
Param3 24
MonGen 跳跳蜂 1 15
BREAK
#IF
EQUAL S$层数计算 6
#ACT
Param1
Param2 19
Param3 24
MonGen 巨型蠕虫 1 15
BREAK
#IF
EQUAL S$层数计算 7
#ACT
Param1
Param2 19
Param3 24
MonGen 红野猪 1 15
BREAK
#IF
EQUAL S$层数计算 8
#ACT
Param1
Param2 19
Param3 24
MonGen 蝎蛇 1 15
BREAK
#IF
EQUAL S$层数计算 9
#ACT
Param1
Param2 19
Param3 24
MonGen 白野猪 1 15
BREAK


来源：网络
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！