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

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

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

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

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

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

[@申请购买]
#IF
CHECKGAMEGOLD > $STR(G21)
#SAY
　\
收费标准:<color=orange 1次收费><$STR(G21)>元宝，可使用24小时\
请选择你的服务内容:\\
　　　　为自己<购买别墅/@自己购买>\
　　　　　　　<别墅续费/@自己购买>\
　　　　　　　<返回离开/@exit>\
#ELSESAY
　\
别墅采用<color=orange 包天值.收费1天><$STR(G21)>元宝.\
你现在的元宝不足进行别墅购买.\
需要冲值元宝请与我们客服QQ联系.\

[@自己购买]
#IF
CHECKVAR GLOBAL NZ1 = $USERNAME
#ACT
GOTO @1HXF
break
#IF
CHECKVAR GLOBAL NZ2 = $USERNAME
#ACT
GOTO @2HXF
break
#IF
CHECKVAR GLOBAL NZ3 = $USERNAME
#ACT
GOTO @3HXF
break
#IF
CHECKVAR GLOBAL NZ4 = $USERNAME
#ACT
GOTO @4HXF
break
#IF
CHECKVAR GLOBAL NZ5 = $USERNAME
#ACT
GOTO @5HXF
break
#IF
CHECKVAR GLOBAL NZ6 = $USERNAME
#ACT
GOTO @6HXF
break
#IF
CHECKVAR GLOBAL NZ7 = $USERNAME
#ACT
GOTO @7HXF
break
#IF
CHECKVAR GLOBAL NZ8 = $USERNAME
#ACT
GOTO @8HXF
break
#ELSEACT
GOTO @JCKFS
break

[@1HXF]
尊敬的朋友你好！你目前已经购买了<color=orange 1号别墅>\
目前该别墅的使用时间还剩余:<$str(G31)>小时\
你是否想增加使用时间？如果是，请选择对该别墅进行续费！\
<color=orange 每续费1次收费><$STR(G21)><color=orange 元宝，相应在目前时间上增加24小时使用权！>\\
是的，<我要进行别墅续费/@续费别墅1>\
不了，<等我用完了再说！/@exit>\

[@续费别墅1]
#IF
CHECKGAMEGOLD > $STR(G21)
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G31 24
SENDMSG 5 恭喜你成功为你购买的1号别墅续费了24小时使用权
messagebox 恭喜你成功为你购买的1号别墅进行了续费\使用时间增加24小时
break
#ELSEACT
SENDMSG 5 进行别墅续费，至少需要<$STR(G21)>个元宝
break
close

[@2HXF]
尊敬的朋友你好！你目前已经购买了<color=orange 2号别墅>\
目前该别墅的使用时间还剩余:<$str(G32)>小时\
你是否想增加使用时间？如果是，请选择对该别墅进行续费！\
<color=orange 每续费1次收费><$STR(G21)><color=orange 元宝，相应在目前时间上增加24小时使用权！>\\
是的，<我要进行别墅续费/@续费别墅2>\
不了，<等我用完了再说！/@exit>\

[@续费别墅2]
#IF
CHECKGAMEGOLD > $STR(G21)
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G32 24
SENDMSG 5 恭喜你成功为你购买的2号别墅续费了24小时使用权
messagebox 恭喜你成功为你购买的2号别墅进行了续费\使用时间增加24小时
break
#ELSEACT
SENDMSG 5 进行别墅续费，至少需要<$STR(G21)>个元宝
break
close

[@3HXF]
尊敬的朋友你好！你目前已经购买了<color=orange 3号别墅>\
目前该别墅的使用时间还剩余:<$str(G33)>小时\
你是否想增加使用时间？如果是，请选择对该别墅进行续费！\
<color=orange 每续费1次收费><$STR(G21)><color=orange 元宝，相应在目前时间上增加24小时使用权！>\\
是的，<我要进行别墅续费/@续费别墅3>\
不了，<等我用完了再说！/@exit>\

[@续费别墅3]
#IF
CHECKGAMEGOLD > $STR(G21)
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G33 24
SENDMSG 5 恭喜你成功为你购买的3号别墅续费了24小时使用权
messagebox 恭喜你成功为你购买的3号别墅进行了续费\使用时间增加24小时
break
#ELSEACT
SENDMSG 5 进行别墅续费，至少需要<$STR(G21)>个元宝
break
close

[@4HXF]
尊敬的朋友你好！你目前已经购买了<color=orange 4号别墅>\
目前该别墅的使用时间还剩余:<$str(G34)>小时\
你是否想增加使用时间？如果是，请选择对该别墅进行续费！\
<color=orange 每续费1次收费><$STR(G21)><color=orange 元宝，相应在目前时间上增加24小时使用权！>\\
是的，<我要进行别墅续费/@续费别墅4>\
不了，<等我用完了再说！/@exit>\