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

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

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

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

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

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

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

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

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

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

[@JCKFS]
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ1 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G31 24
CALCVAR GLOBAL NZ1 = $USERNAME
SAVEVAR GLOBAL NZ1 ..\QuestDiary\数据文件\NZ1Save.txt
SENDMSG 5 恭喜你成功购买到了『1号别墅』
messagebox 恭喜你成功购买到了『1号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ2 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G32 24
CALCVAR GLOBAL NZ2 = $USERNAME
SAVEVAR GLOBAL NZ2 ..\QuestDiary\数据文件\NZ2Save.txt
SENDMSG 5 恭喜你成功购买到了『2号别墅』
messagebox 恭喜你成功购买到了『2号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ3 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G33 24
CALCVAR GLOBAL NZ3 = $USERNAME
SAVEVAR GLOBAL NZ3 ..\QuestDiary\数据文件\NZ3Save.txt
SENDMSG 5 恭喜你成功购买到了『3号别墅』
messagebox 恭喜你成功购买到了『3号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ4 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G34 24
CALCVAR GLOBAL NZ4 = $USERNAME
SAVEVAR GLOBAL NZ4 ..\QuestDiary\数据文件\NZ4Save.txt
SENDMSG 5 恭喜你成功购买到了『4号别墅』
messagebox 恭喜你成功购买到了『4号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ5 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G35 24
CALCVAR GLOBAL NZ5 = $USERNAME
SAVEVAR GLOBAL NZ5 ..\QuestDiary\数据文件\NZ5Save.txt
SENDMSG 5 恭喜你成功购买到了『5号别墅』
messagebox 恭喜你成功购买到了『5号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ6 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G36 24
CALCVAR GLOBAL NZ6 = $USERNAME
SAVEVAR GLOBAL NZ6 ..\QuestDiary\数据文件\NZ6Save.txt
SENDMSG 5 恭喜你成功购买到了『6号别墅』
messagebox 恭喜你成功购买到了『6号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ7 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G37 24
CALCVAR GLOBAL NZ7 = $USERNAME
SAVEVAR GLOBAL NZ7 ..\QuestDiary\数据文件\NZ7Save.txt
SENDMSG 5 恭喜你成功购买到了『7号别墅』
messagebox 恭喜你成功购买到了『7号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#IF
CHECKGAMEGOLD > $STR(G21)
CHECKVAR GLOBAL NZ8 = 无人购买
#ACT
GAMEGOLD - $STR(G21)
CALCVAR HUMAN 消费 + $STR(G21)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
INC G38 24
CALCVAR GLOBAL NZ8 = $USERNAME
SAVEVAR GLOBAL NZ8 ..\QuestDiary\数据文件\NZ8Save.txt
SENDMSG 5 恭喜你成功购买到了『8号别墅』
messagebox 恭喜你成功购买到了『8号别墅』\可使用时间24小时，你可以多续费时间\赶快进入你的别墅看看吧！
break
close
#ELSEACT
GOTO @BSSYSJ
SENDMSG 5 很遗憾，目前所有的8套别墅都已经被人租用了，请看好时间再来！
messagebox 很遗憾，目前所有的8套别墅都已经被人租用了！\如果想要租用别墅，请看好时间再来！
break