共两部分这是第一部分
[@main]
尊敬的主人你好！我是你的管家！当前别墅的爆率为:1/<$HUMAN(BSB)>\
<COLOR=orange 你可以通过为别墅购买各种家具来提高别墅的爆率！>\
请选择为你需要的服务：\\
我要<启动练级刷怪模式/@练级刷怪>　　　<增加生命上限/@增加生命>\
我要<启动屠杀BOSS模式/@BOSS模式>\
我要<启动杀怪打钱模式/@打钱模式>　　　<暂停刷怪休息/@停止休息>\
我要<购买家具提高爆率/@提高爆率>　　　<提高爆率说明/@爆率说明>\
[@增加生命]
　　 在别墅里提供这个特殊的功能，可以根据你当前在线时间来\
增加你的生命值上限值，三个职业<COLOR=orange 战士每在线1分钟增加1点生命>\
<COLOR=orange 值上限，道士2分钟增加1点上限，法师职业3分钟增加1点生命上>\
<COLOR=orange 限！>\
　　 是否心动了呢？只要你在线时间够长，那么你的生命上限就\
加的越多，注意：<COLOR=green 要是你下线了，那么生命上限将恢复原始值！>\
　　 坚持在线，你的无敌梦想实现不是难事！\
　　 <color=red 你目前在线时间为:><$LOGINLONG>\
　　 我要<增加相应的生命值上限/@开始增加>
[@BOSS模式]
　　 别墅里每<COLOR=orange 相隔20分钟>自动随机刷新一只大BOSS，杀死该BOSS\
将有机会活动各种道具，以及增加BOSS积分.\\
　　 BOSS爆高级特殊道具的爆率是<COLOR=orange 1:2000>\\
　　 伴随着你杀BOSS数量的增加，这个爆率会自动提高，当然你\
也可以通过<COLOR=orange 购买家具来直接提高><COLOR=orange 这个爆率>...\\
　　 <返 回/@main>
[@开始增加]
#IF
ONLINELONGMIN < 10
#ACT
SENDMSG 7 在线时间需要大于10分钟才能使用加血功能
break
close
#IF
ONLINELONGMIN < 100
#ACT
SET [333] 1
RESTBONUSPOINT
BONUSPOINT = 0
MOV S1 $LOGINLONG
DEC s1 3 4
usebonuspoint 6 $STR(s1)
SENDMSG 7 你生命值上限增加了.在线时间越长加的越多.小退下线则恢复原始值
break
close
#IF
ONLINELONGMIN < 1000
#ACT
SET [333] 1
RESTBONUSPOINT
BONUSPOINT = 0
MOV S1 $LOGINLONG
DEC s1 4 4
usebonuspoint 6 $STR(s1)
SENDMSG 7 你生命值上限增加了.在线时间越长加的越多.小退下线则恢复原始值
break
close
#IF
ONLINELONGMIN < 10000
#ACT
RESTBONUSPOINT
BONUSPOINT = 0
SET [333] 1
MOV S1 $LOGINLONG
DEC s1 5 4
usebonuspoint 6 $STR(s1)
SENDMSG 7 你生命值上限增加了.在线时间越长加的越多.小退下线则恢复原始值
break
close
[@爆率说明]
　　 新买的别墅BOSS高级道具的爆率都是1:<$HUMAN(BSB)>\
　　 随着你在别墅内屠杀BOSS数量的增加BOSS爆率会自动提高另\
外你还<COLOR=orange 可以通过直接为别墅购买家具来提高BOSS的爆率>，当爆率\
达到一定的饱和状态后，如1:10时，就会出以下高级特殊物品\
　　 <$GLOBAL(F51)>　<$GLOBAL(F52)>　<$GLOBAL(F53)>　<$GLOBAL(F54)>　<$GLOBAL(F55)>\
　　 <$GLOBAL(F56)>　<$GLOBAL(F57)>　<$GLOBAL(F58)>　<$GLOBAL(F59)>　<$GLOBAL(F60)>\
　　 BOSS爆率提高后，各种高级道具将很容易爆出你梦寐以求的\
装备，赶快行动吧，提高别墅BOSS爆率！\
　　 我要<购买家具提高别墅爆率/@提高爆率>
[@提高爆率]
你想提高别墅BOSS的爆率吗？多为别墅购买家具就可以了！\
<COLOR=orange 当爆率达到1:10时就会出各种特殊高级道具>\
当前别墅的BOSS爆率是:1:<$HUMAN(BSB)>\\
<COLOR=orange 健身?器材>-BOSS爆率提高200点-价格<$STR(G59)>元宝-<我要购买/@购买5>\
<COLOR=orange 布艺?沙发>-BOSS爆率提高120点-价格<$STR(G58)>元宝-<我要购买/@购买3>\
<COLOR=orange 组合?音箱>-BOSS爆率提高 80点-价格<$STR(G57)>元宝-<我要购买/@购买2>\
<COLOR=orange 厨房?用具>-BOSS爆率提高 40点-价格<$STR(G56)>元宝-<我要购买/@购买1>\
<COLOR=orange 早餐?牛奶>-BOSS爆率提高 4点-价格<$STR(G55)>元宝-<我要购买/@购买6>\
[@购买6]
#IF
CHECKVAR HUMAN BSB > 10
CHECKGAMEGOLD > $STR(G55)
#ACT
GAMEGOLD - $STR(G55)
CALCVAR HUMAN BSB - 4
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
SENDMSG 7 成功为别墅提高了爆率4点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于11了
break
[@购买1]
#IF
CHECKVAR HUMAN BSB > 41
CHECKGAMEGOLD > $STR(G56)
#ACT
GAMEGOLD - $STR(G56)
CALCVAR HUMAN BSB - 40
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
SENDMSG 7 成功为别墅提高了爆率40点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于41了
break
[@购买2]
#IF
CHECKVAR HUMAN BSB > 81
CHECKGAMEGOLD > $STR(G57)
#ACT
GAMEGOLD - $STR(G57)
CALCVAR HUMAN BSB - 80
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
SENDMSG 7 成功为别墅提高了爆率80点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于81了
break
[@购买3]
#IF
CHECKVAR HUMAN BSB > 121
CHECKGAMEGOLD > $STR(G58)
#ACT
GAMEGOLD - $STR(G58)
CALCVAR HUMAN BSB - 120
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
SENDMSG 7 成功为别墅提高了爆率120点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于121了
break
[@购买5]
#IF
CHECKVAR HUMAN BSB > 201
CHECKGAMEGOLD > $STR(G59)
#ACT
GAMEGOLD - $STR(G59)
CALCVAR HUMAN BSB - 200
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
SENDMSG 7 成功为别墅提高了爆率200点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于201了
break
[@停止休息]
#IF
LARGE D5 0
#ACT
MOV D1 5
CLEARMAPMON $M
humanhp + 2000
humanmp + 2000
SENDMSG 7 别墅刷怪停止，进入休息模式
break
#ELSEACT
SENDMSG 7 对不起，你不是该别墅的主人，无权进行此操作
break
[@打钱模式]
#IF
LARGE D5 0
#ACT
MOV D1 12
goto @开刷打钱怪
break
#ELSEACT
SENDMSG 7 对不起，你不是该别墅的主人，无权进行此操作
break
[@开刷打钱怪]
#IF
EQUAL D5 1
#ACT
CLEARMAPMON BY01
SENDMSG 7 打钱刷怪模式启动成功
goto @1号打钱
break
#IF
EQUAL D5 2
#ACT
CLEARMAPMON BY02
SENDMSG 7 打钱刷怪模式启动成功
goto @2号打钱
break
#IF
EQUAL D5 3
#ACT
CLEARMAPMON BY03
SENDMSG 7 打钱刷怪模式启动成功
goto @3号打钱
break
#IF
EQUAL D5 4
#ACT
CLEARMAPMON BY04
SENDMSG 7 打钱刷怪模式启动成功
goto @4号打钱
break
#IF
EQUAL D5 5
#ACT
CLEARMAPMON BY05
SENDMSG 7 打钱刷怪模式启动成功
goto @5号打钱
break
#IF
EQUAL D5 6
#ACT
CLEARMAPMON BY06
SENDMSG 7 打钱刷怪模式启动成功
goto @6号打钱
break
#IF
EQUAL D5 7
#ACT
CLEARMAPMON BY07
SENDMSG 7 打钱刷怪模式启动成功
goto @7号打钱
break
#IF
EQUAL D5 8
#ACT
CLEARMAPMON BY08
SENDMSG 7 打钱刷怪模式启动成功
goto @8号打钱
break
#ELSEACT
SENDMSG 7 你无权启动本操作
break
[@练级刷怪]
#IF
LARGE D5 0
#ACT
MOV D1 10
goto @开刷练级怪
break
#ELSEACT
SENDMSG 7 对不起，你不是该别墅的主人，无权进行此操作
break
[@开刷练级怪]
#IF
EQUAL D5 1
#ACT
CLEARMAPMON BY01
SENDMSG 7 练级刷怪模式启动成功
goto @1号练级
break
#IF
EQUAL D5 2
#ACT
CLEARMAPMON BY02
SENDMSG 7 练级刷怪模式启动成功
goto @2号练级
break
#IF
EQUAL D5 3
#ACT
CLEARMAPMON BY03
SENDMSG 7 练级刷怪模式启动成功
goto @3号练级
break
#IF
EQUAL D5 4
#ACT
CLEARMAPMON BY04
SENDMSG 7 练级刷怪模式启动成功
goto @4号练级
break
#IF
EQUAL D5 5
#ACT
CLEARMAPMON BY05
SENDMSG 7 练级刷怪模式启动成功
goto @5号练级
break
#IF
EQUAL D5 6
#ACT
CLEARMAPMON BY06
SENDMSG 7 练级刷怪模式启动成功
goto @6号练级
break
#IF
EQUAL D5 7
#ACT
CLEARMAPMON BY07
SENDMSG 7 练级刷怪模式启动成功
goto @7号练级
break
#IF
EQUAL D5 8
#ACT
CLEARMAPMON BY08
SENDMSG 7 练级刷怪模式启动成功
goto @8号练级
break
#ELSEACT
SENDMSG 7 你无权启动本操作
break
[@1号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY01
CheckRangeMonCount BY01 46 51 50 < 100
#ACT
PARAM1 BY01
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @1号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY01
CheckRangeMonCount BY01 46 51 50 > 100
#ACT
DELAY 15 @1号练级
#IF
CHECKMAPNAME BY01
#ELSEACT
CLEARMAPMON BY01
[@2号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY02
CheckRangeMonCount BY02 46 51 50 < 100
#ACT
PARAM1 BY02
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @2号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY02
CheckRangeMonCount BY02 46 51 50 > 100
#ACT
DELAY 15 @2号练级
#IF
CHECKMAPNAME BY02
#ELSEACT
CLEARMAPMON BY02
[@3号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY03
CheckRangeMonCount BY03 46 51 50 < 100
#ACT
PARAM1 BY03
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @3号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY03
CheckRangeMonCount BY03 46 51 50 > 100
#ACT
DELAY 15 @3号练级
#IF
CHECKMAPNAME BY03
#ELSEACT
CLEARMAPMON BY03
[@4号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY04
CheckRangeMonCount BY04 46 51 50 < 100
#ACT
PARAM1 BY04
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @4号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY04
CheckRangeMonCount BY04 46 51 50 > 100
#ACT
DELAY 15 @4号练级
#IF
CHECKMAPNAME BY04
#ELSEACT
CLEARMAPMON BY04

 

第二部分新版传世别墅系统脚本2