传世任务篇－－－－别墅管家

          
[@main]
尊敬的主人你好！我是你的管家！当前别墅的爆率为:1/<$HUMAN(BSB)>\
<COLOR=orange 你可以通过为别墅购买各种家具来提高别墅的爆率！>\
请选择为你需要的服务：\\
我要<启动练级刷怪模式/@练级刷怪>　　　<增加生命上限/@增加生命>\
我要<启动屠杀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 这个爆率>...\\
　　<返 回>

[@开始增加]
#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
CALCVAR HUMAN 消费 + $STR(G55)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 7 成功为别墅提高了爆率4点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于11了
break

dedecms.com

[@购买1]
#IF
CHECKVAR HUMAN BSB > 41
CHECKGAMEGOLD > $STR(G56)
#ACT
GAMEGOLD - $STR(G56)
CALCVAR HUMAN BSB - 40
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
CALCVAR HUMAN 消费 + $STR(G56)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 7 成功为别墅提高了爆率40点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于41了
break dedecms.com

[@购买2]
#IF
CHECKVAR HUMAN BSB > 81
CHECKGAMEGOLD > $STR(G57)
#ACT
GAMEGOLD - $STR(G57)
CALCVAR HUMAN BSB - 80
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
CALCVAR HUMAN 消费 + $STR(G57)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 7 成功为别墅提高了爆率80点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于81了
break dedecms.com

[@购买3]
#IF
CHECKVAR HUMAN BSB > 121
CHECKGAMEGOLD > $STR(G58)
#ACT
GAMEGOLD - $STR(G58)
CALCVAR HUMAN BSB - 120
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
CALCVAR HUMAN 消费 + $STR(G58)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 7 成功为别墅提高了爆率120点
goto @提高爆率
#ELSEACT
messagebox 操作失败:\元宝不足，或者你当前的爆率已经低于121了
break dedecms.com

[@购买5]
#IF
CHECKVAR HUMAN BSB > 201
CHECKGAMEGOLD > $STR(G59)
#ACT
GAMEGOLD - $STR(G59)
CALCVAR HUMAN BSB - 200
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
CALCVAR HUMAN 消费 + $STR(G59)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.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 dedecms.com

[@开刷练级怪]
#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 dedecms.com

[@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 dedecms.com

[@5号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY05
CheckRangeMonCount BY05 46 51 50 < 100
#ACT
PARAM1 BY05
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @5号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY05
CheckRangeMonCount BY05 46 51 50 > 100
#ACT
DELAY 15 @5号练级
#IF
CHECKMAPNAME BY05
#ELSEACT
CLEARMAPMON BY05

[@6号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY06
CheckRangeMonCount BY06 46 51 50 < 100
#ACT
PARAM1 BY06
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @6号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY06
CheckRangeMonCount BY06 46 51 50 > 100
#ACT
DELAY 15 @6号练级
#IF
CHECKMAPNAME BY06
#ELSEACT
CLEARMAPMON BY06

[@7号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY07
CheckRangeMonCount BY07 46 51 50 < 100
#ACT
PARAM1 BY07
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @7号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY07
CheckRangeMonCount BY07 46 51 50 > 100
#ACT
DELAY 15 @7号练级
#IF
CHECKMAPNAME BY07
#ELSEACT
CLEARMAPMON BY07 dedecms.com

[@8号练级]
#IF
EQUAL D1 10
CHECKMAPNAME BY08
CheckRangeMonCount BY08 46 51 50 < 100
#ACT
PARAM1 BY08
PARAM2 46
PARAM3 51
MonGen 僵尸18 30 8
MonGen 掷枪尸卫18 30 8
DELAY 15 @8号练级
#IF
EQUAL D1 10
CHECKMAPNAME BY08
CheckRangeMonCount BY08 46 51 50 > 100
#ACT
DELAY 15 @8号练级
#IF
CHECKMAPNAME BY08
#ELSEACT
CLEARMAPMON BY08

[@1号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY01
CheckRangeMonCount BY01 46 51 50 < 60
#ACT
PARAM1 BY01
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @1号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY01
CheckRangeMonCount BY01 46 51 50 > 60
#ACT
DELAY 15 @1号打钱
#IF
CHECKMAPNAME BY01
#ELSEACT
CLEARMAPMON BY01 dedecms.com

[@2号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY02
CheckRangeMonCount BY02 46 51 50 < 60
#ACT
PARAM1 BY02
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @2号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY02
CheckRangeMonCount BY02 46 51 50 > 60
#ACT
DELAY 15 @2号打钱
#IF
CHECKMAPNAME BY02
#ELSEACT
CLEARMAPMON BY02 dedecms.com

[@3号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY03
CheckRangeMonCount BY03 46 51 50 < 60
#ACT
PARAM1 BY03
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @3号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY03
CheckRangeMonCount BY03 46 51 50 > 60
#ACT
DELAY 15 @3号打钱
#IF
CHECKMAPNAME BY03
#ELSEACT
CLEARMAPMON BY03

[@4号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY04
CheckRangeMonCount BY04 46 51 50 < 60
#ACT
PARAM1 BY04
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @4号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY04
CheckRangeMonCount BY04 46 51 50 > 60
#ACT
DELAY 15 @4号打钱
#IF
CHECKMAPNAME BY04
#ELSEACT
CLEARMAPMON BY04

[@5号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY05
CheckRangeMonCount BY05 46 51 50 < 60
#ACT
PARAM1 BY05
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @5号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY05
CheckRangeMonCount BY05 46 51 50 > 60
#ACT
DELAY 15 @5号打钱
#IF
CHECKMAPNAME BY05
#ELSEACT
CLEARMAPMON BY05 dedecms.com

[@6号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY06
CheckRangeMonCount BY06 46 51 50 < 60
#ACT
PARAM1 BY06
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @6号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY06
CheckRangeMonCount BY06 46 51 50 > 60
#ACT
DELAY 15 @6号打钱
#IF
CHECKMAPNAME BY06
#ELSEACT
CLEARMAPMON BY06

[@7号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY07
CheckRangeMonCount BY07 46 51 50 < 60
#ACT
PARAM1 BY07
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @7号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY07
CheckRangeMonCount BY07 46 51 50 > 60
#ACT
DELAY 15 @7号打钱
#IF
CHECKMAPNAME BY07
#ELSEACT
CLEARMAPMON BY07

[@8号打钱]
#IF
EQUAL D1 12
CHECKMAPNAME BY08
CheckRangeMonCount BY08 46 51 50 < 60
#ACT
PARAM1 BY08
PARAM2 46
PARAM3 51
MonGen 地下小鬼1 30 8
DELAY 15 @8号打钱
#IF
EQUAL D1 12
CHECKMAPNAME BY08
CheckRangeMonCount BY08 46 51 50 > 60
#ACT
DELAY 15 @8号打钱
#IF
CHECKMAPNAME BY08
#ELSEACT
CLEARMAPMON BY08