几步为你传奇世界添加别墅系统

几步为你传奇世界添加别墅系统

出处：本站整理作者：佚名发布时间：2012-04-20阅读次数：

[@别墅系统]
{
<color=0X9ACD32 +-------------------------------------------------------+>\
<color=0X9ACD32 别墅系统>　别墅包天销售(全天24小时)-----<申请购买别墅/@申请购买>------\
<color=0X9ACD32 +-------------------------------------------------------+>\
现在别墅特价销售　<$STR(G21)><COLOR=GREEN 元宝>/24小时\
注意:一个玩家只能拥有一个别墅！　　查看<别墅所出装备/@别墅所出>\
┏━━━━━━━┓<进入01号/@进入01号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ1)>\
┃━━<下一页/@xia1>━━┃<进入02号/@进入02号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ2)>\
┃━━<关　闭/@exit>━━┃<进入03号/@进入03号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ3)>\
┗━━━━━━━┛<进入04号/@进入04号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ4)>\

[@xia1]
<color=0X9ACD32 +-------------------------------------------------------+>\
<color=0X9ACD32 传奇服务端别墅系统>　别墅包天销售(全天24小时)-----<申请购买别墅/@申请购买>------\
<color=0X9ACD32 +-------------------------------------------------------+>\
现在别墅特价销售　<$STR(G21)><COLOR=GREEN 元宝>/24小时\
注意:一个玩家只能拥有一个别墅！　　查看<别墅所出装备/@别墅所出>\
┏━━━━━━━┓<进入05号/@进入05号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ5)>\
┃━━<下一页/@xia1>━━┃<进入06号/@进入06号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ6)>\
┃━━<关　闭/@exit>━━┃<进入07号/@进入07号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ7)>\
┗━━━━━━━┛<进入08号/@进入08号>别墅:<color=0X9ACD32 所属主人>:<$GLOBAL(NZ8)>\

[@别墅所出]
<COLOR=GREEN 购买别墅，享受高级生活，获得高级物品>\　　
在各地老兵<color=0xFFD700 别墅专区>项目，可购买属于你自己的别墅\
别墅采取承包制，一人购买一人使用，目前共有别墅8栋\
<color=0xFFD700 购买别墅－－享受高级待遇>\
一重待遇：<color=0xFFD700 别墅内设置有增加生命上限的功能，无敌不是梦>\
二重待遇：<color=0xFFD700 别墅内设置有练级刷怪模式，想练级自己刷怪练>\
三重待遇：<color=0xFFD700 别墅内出高级特殊道具有:>\
　　<$GLOBAL(F51)>　<$GLOBAL(F52)>　<$GLOBAL(F53)>　<$GLOBAL(F54)>　<$GLOBAL(F55)>\
　　<$GLOBAL(F56)>　<$GLOBAL(F57)>　<$GLOBAL(F58)>　<$GLOBAL(F59)>　<$GLOBAL(F60)>\

[@进入01号]
#IF
CHECKVAR GLOBAL NZ1 = $USERNAME
#ACT
GOTO @BTSJ1
#ELSEACT
SENDMSG 5 你不是该别墅的主人，不能进入

[@BTSJ1]
#IF
Check [313] 0
#ACT
SET [313] 1
CALCVAR HUMAN BSB = 2000
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
#IF
LARGE G31 0
#ACT
MOV D5 1
MAPMOVE BY01 25 60
SENDMSG 5 欢迎你进入了你的别墅，你的别墅包天时间还剩余:<$str(G31)>小时
break

[@进入02号]
#IF
CHECKVAR GLOBAL NZ2 = $USERNAME
#ACT
GOTO @BTSJ2
#ELSEACT
SENDMSG 5 你不是该别墅的主人，不能进入

[@BTSJ2]
#IF
Check [313] 0
#ACT
SET [313] 1
CALCVAR HUMAN BSB = 2000
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
#IF
LARGE G32 0
#ACT
MOV D5 2
MAPMOVE BY02 25 60
SENDMSG 5 欢迎你进入了你的别墅，你的别墅包天时间还剩余:<$str(G32)>小时
break

[@进入03号]
#IF
CHECKVAR GLOBAL NZ3 = $USERNAME
#ACT
GOTO @BTSJ3
#ELSEACT
SENDMSG 5 你不是该别墅的主人，不能进入

[@BTSJ3]
#IF
Check [313] 0
#ACT
SET [313] 1
CALCVAR HUMAN BSB = 2000
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
#IF
LARGE G33 0
#ACT
MOV D5 3
MAPMOVE BY03 25 60
SENDMSG 5 欢迎你进入了你的别墅，你的别墅包天时间还剩余:<$str(G33)>小时
break

[@进入04号]
#IF
CHECKVAR GLOBAL NZ4 = $USERNAME
#ACT
GOTO @BTSJ4
#ELSEACT
SENDMSG 5 你不是该别墅的主人，不能进入

[@BTSJ4]
#IF
Check [313] 0
#ACT
SET [313] 1
CALCVAR HUMAN BSB = 2000
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
#IF
LARGE G34 0
#ACT
MOV D5 4
MAPMOVE BY04 25 60
SENDMSG 5 欢迎你进入了你的别墅，你的别墅包天时间还剩余:<$str(G34)>小时
break

[@进入05号]
#IF
CHECKVAR GLOBAL NZ5 = $USERNAME
#ACT
GOTO @BTSJ5
#ELSEACT
SENDMSG 5 你不是该别墅的主人，不能进入

[@BTSJ5]
#IF
Check [313] 0
#ACT
SET [313] 1
CALCVAR HUMAN BSB = 2000
SAVEVAR HUMAN BSB ..\QuestDiary\数据文件\BSBSave.txt
#IF
LARGE G35 0
#ACT
MOV D5 5
MAPMOVE BY05 25 60
SENDMSG 5 欢迎你进入了你的别墅，你的别墅包天时间还剩余:<$str(G35)>小时
break

[@进入06号]
#IF
CHECKVAR GLOBAL NZ6 = $USERNAME
#ACT
GOTO @BTSJ6
#ELSEACT
SENDMSG 5 你不是该别墅的主人，不能进入