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

[@main]
#IF
#ACT
CALCVAR HUMAN 妖塔层数 = 0
SAVEVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
LOADVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
#SAY
\     <血战封妖塔:/FCOLOR=249>\
\     <封妖塔共50层,爆率丰厚!/FCOLOR=149>\
\     <首次进入随机进入一层,之后消灭所有怪物可进入下一层!/FCOLOR=149>\
\     <每进入一层需要10灵符!/FCOLOR=149>\
\     皇榜告示天下，勇士们血战妖塔往上层数越高宝物越多... \
\ \
<已经血战封妖塔层数：/FCOLOR=254>{<$HUMAN(妖塔层数)>/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 <$STR(S$妖塔地图)>
CALCVAR HUMAN 妖塔层数 = <$STR(N$点数)>
SAVEVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
LOADVAR HUMAN 妖塔层数 ..\QuestDiary\变量\妖塔层数.txt
SENDMSG 5 {随机进入第:|250:0:0}{[<$STR(N$点数)>]|249}{层|250:0:0}
#if
CHECKVAR HUMAN 妖塔层数 > 50
#ACT
DELMIRRORMAP <$STR(S$妖塔地图)>
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 <$USERNAME> 血战封妖塔:第<$HUMAN(妖塔层数)>层 65535 3 0
map <$USERNAME>
MOV S$妖塔地图 <$USERNAME>
CreateNPC 血战传送员 <$STR(S$妖塔地图)> 19 24 31 血战传送员 1
goto @计算层数刷怪1
BREAK

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


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