[@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
|
[复制链接]
赣公网安备36050202000600号