节约服务器资源的买怪物练级脚本

传奇服务端

[@MAIN]
#IF
CHECKNAMELIST HMD.TXT
#ACT
SET [402] 1
#SAY
━━━━━━━━ 您被处罚有以下其中原因 ━━━━━━━━\
⒈在服务器显示有严重超速错误信息被系统自动捕获处罚.⒉使用
了非法外挂至全体掉线后果于不顾开启变态功能.⒊不断吵闹,不断
打广告,恶意刷屏,辱骂,人身攻击其它玩家.⒋假冒管理员骗号骗装
备,破坏管理员形象,盗取玩家游戏密码.⒌利用系统的BUG,漏洞复
制物品为自己及他人牟利.\
⒍经管理员再三劝阻无效者GM将有权停止其账号
GOTO @MAINNEXT
[@MAINNEXT]
#IF
DAYOFWEEK SUN
#SAY
星期天不开放\ \ \ \ \ \ <关闭/@EXIT>
#ELSEACT
GOTO @SAT
[@SAT]
#IF
DAYOFWEEK SAT
#SAY
星期六不开放\ \ \ \ \ \ <关闭/@EXIT>
#ELSEACT
GOTO @GGG
[@GGG]
之处已被沙巴克管辖，全部收入的20%将存入沙巴克国库只要有钱您
可以尽情的召唤怪物，如果感觉太多可以<清理一下/@清理>\
<钳 虫/@qz>〓800金币 <红 野 猪/@hyz>〓1000金币
<黑 野 猪/@heiyz>〓2000金币<骷 髅/@kl>〓500金币
<白 野 猪/@byz>〓3000金币 <沃 玛 勇 士/@wmys>〓600金币\ \ \
<关 闭/@EXIT>
[@wmys]
#IF
CHECKGOLD 600
#ACT
GOTO @TOwmys
#ELSESAY
钱不够了.. \ \ \ \ \ \ <关 闭/@EXIT>
[@TOwmys]
#IF
CHECKMONMAP 0139 15
#say
怪物太多了快清理一下吧.. \ \ \ \ \ \ <返 回/@MAIN>
#ELSEACT
TAKE 金币 600
PARAM1 0139
PARAM2 21
PARAM3 25
MONGEN 沃玛勇士 3 1
GOTO @GGG

[@kl]
#IF
CHECKGOLD 500
#ACT
GOTO @TOkl
#ELSESAY
钱不够了.. \ \ \ \ \ \ <关 闭/@EXIT>
[@TOkl]
#IF
CHECKMONMAP 0139 15
#say
怪物太多了快清理一下吧.. \ \ \ \ \ \ <返 回/@MAIN>
#ELSEACT
TAKE 金币 500
PARAM1 0139
PARAM2 21
PARAM3 25
MONGEN 骷髅 3 1
GOTO @GGG
[@heiyz]
#IF
CHECKGOLD 2000
#ACT
GOTO @TOheiyz
#ELSESAY
钱不够了.. \ \ \ \ \ \ <关 闭/@EXIT>
[@TOheiyz]
#IF
CHECKMONMAP 0139 15
#say
怪物太多了快清理一下吧.. \ \ \ \ \ \ <返 回/@MAIN>
#ELSEACT
TAKE 金币 2000
PARAM1 0139
PARAM2 21
PARAM3 25
MONGEN 黑野猪 5 5
GOTO @GGG
[@hyz]
#IF
CHECKGOLD 2000
#ACT
GOTO @TOhyz
#ELSESAY
钱不够了.. \ \ \ \ \ \ <关 闭/@EXIT>
[@TOhyz]
#IF
CHECKMONMAP 0139 20
#say
怪物太多了快清理一下吧.. \ \ \ \ \ \ <返 回/@MAIN>
#ELSEACT
TAKE 金币 2000
PARAM1 0139
PARAM2 21
PARAM3 25
MONGEN 红野猪 5 5
GOTO @GGG

[@qz]
#IF
CHECKGOLD 2300
#ACT
GOTO @TOqz
#ELSESAY
钱不够了.. \ \ \ \ \ \ <关 闭/@EXIT>
[@TOqz]
#IF
CHECKMONMAP 0139 15
#say
怪物太多了快清理一下吧.. \ \ \ \ \ \ <返 回/@MAIN>
#ELSEACT
TAKE 金币 2300
PARAM1 0139
PARAM2 21
PARAM3 25
MONGEN 钳虫 5 5
GOTO @GGG

[@byz]
#IF
CHECKGOLD 7000
#ACT
GOTO @TObyz
#ELSESAY
钱不够了.. \ \ \ \ \ \ <关 闭/@EXIT>
[@TObyz]
#IF
CHECKMONMAP 0139 20
#say
怪物太多了快清理一下吧.. \ \ \ \ \ \ <返 回/@MAIN>
#ELSEACT
TAKE 金币 7000
PARAM1 0139
PARAM2 21
PARAM3 25
MONGEN 白野猪 5 5
GOTO @GGG
[@清理]
#IF
CHECKGOLD 25000
#ACT
TAKE 金币 25000
MONCLEAR 0139
map 0137
CLOSE
#ELSESAY
没钱还想跟我斗！<关闭/@EXIT>