传奇占领沙城、王者宣权、守城七天摘取荣耀
(@@sendmsg)[@main]
#IF
check 0
ISCASTLEMASTER
CHECKVAR GLOBAL 城主位置 = 2
#ACT
SET 0
SET 1
VAR Integer HUMAN 占领天数
LOADVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
CALCVAR HUMAN 占领天数 = 1
CALCVAR GLOBAL 城主位置 = 1
CALCVAR GLOBAL 沙城主2 = <$USERNAME>
SAVEVAR GLOBAL 城主位置 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SAVEVAR GLOBAL 沙城主2 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 1 沙城新城主『<$USERNAME>』昭告天下：旧沙城的残兵败将给我们听好了！我们已经功下沙城，连同打下了你们的嚣张气焰，我们才是真正的强者，有本事的再来攻！为什么你们会失败？就因为你们配不上这庄严的城池！！
GOTO @main-1
BREAK
#IF
check 0
ISCASTLEMASTER
CHECKVAR GLOBAL 城主位置 = 1
#ACT
SET 0
SET 1
VAR Integer HUMAN 占领天数
LOADVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
CALCVAR HUMAN 占领天数 = 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
CALCVAR GLOBAL 沙城主1 = <$USERNAME>
CALCVAR GLOBAL 城主位置 = 2
SAVEVAR GLOBAL 城主位置 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SAVEVAR GLOBAL 沙城主1 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 1 沙城新城主『<$USERNAME>』昭告天下：旧沙城的残兵败将给我们听好了！我们已经功下沙城，连同打下了你们的嚣张气焰，我们才是真正的强者，有本事的再来攻！为什么你们会失败？就因为你们配不上这庄严的城池！！
GOTO @main-1
BREAK
#ELSEACT
GOTO @main-1
[@MAIN-1]
沙巴克是在 <$OWNERGUILD> 的管理下，并受约束于 <$LORD>\
城堡总黄金是: <$CASTLEGOLD>\
今天的收入是: <$TODAYINCOME>\
当前系统时间: <$DATETIME>\
╔┄┄┄┄╦┄┄┄┄╦┄┄┄┄╦┄┄┄┄╦┄┄┄┄╗\
║<收回现金/@@withdrawal>║<贮藏现金/@@receipts>║<☆☆☆☆>║<修理城堡/@repaircastle>║<城主公告/@czgg>║\
╠┄┄┄┄╬┄┄┄┄╬┄┄┄┄╬┄┄┄┄╬┄┄┄┄╣\
║<聘用护卫/@hirearchers>║<防御方式/@commandorder>║<宣称王权/@rongyao>║<摘取荣耀/@lingqu>║<去城门口/@qumenkou>║\\
╚┄┄┄┄╩┄┄┄┄╩┄┄┄┄╩┄┄┄┄╩┄┄┄┄╝\
[@qumenkou]
#if
#act
mapmove 3 676 334
[@czgg]
#if
ISCASTLEMASTER
#act
;SENDMSG 0 沙城城主『<$USERNAME>』昭告本会成员速回皇宫守城！
[@treatdoor]
城门当前状态为:<$CASTLEDOORSTATE>\ \ \ \
╔┄┄┄┄┄┄╗╔┄┄┄┄┄┄╗╔┄┄┄┄┄┄╗\
┆『<关闭城门/@closemaindoor>』┆┆『<打开城门/@openmaindoor>』┆┆『<返回上页/@main>』┆\
╚┄┄┄┄┄┄╝╚┄┄┄┄┄┄╝╚┄┄┄┄┄┄╝\
[@openmaindoor]
#ACT
MESSAGEBOX 城门已经打开。
goto @main
break
[@closemaindoor]
#ACT
MESSAGEBOX 城门已经关闭。\ \ \ \
goto @main
break
[@repaircastle]
请选择要修理的位置？\ \ \ \
╔┄┄┄┄┄┄╗╔┄┄┄┄┄┄╗╔┄┄┄┄┄┄╗\
┆『<修理城门/@repairdoor>』┆┆『<修理城墙/@repairwalls>』┆┆『<返回上页/@main>』┆\
╚┄┄┄┄┄┄╝╚┄┄┄┄┄┄╝╚┄┄┄┄┄┄╝\
[@repairdoor]
修理城门所需费用为:<$REPAIRDOORGOLD>金币。\ \ \
╔┄┄┄┄┄┄╗╔┄┄┄┄┄┄╗\
┆『<修理城门/@repairdoornow>』┆┆『<返回上页/repaircastle>』┆\
╚┄┄┄┄┄┄╝╚┄┄┄┄┄┄╝\
[@repairwalls]
修理城墙所需费用为:<$REPAIRWALLGOLD>金币。\ \ \
╔┄┄┄┄┄┄┄╗ ╔┄┄┄┄┄┄┄╗\
┆『<修理城墙一/@repairwallnow1>』┆ ┆『<修理城墙二/@repairwallnow2>』┆\
╚┄┄┄┄┄┄┄╝ ╚┄┄┄┄┄┄┄╝\
╔┄┄┄┄┄┄┄╗ ╔┄┄┄┄┄┄┄╗\
┆『<修理城墙三/@repairwallnow3>』┆ ┆『<返回上一页/@repaircastle>』┆\
╚┄┄┄┄┄┄┄╝ ╚┄┄┄┄┄┄┄╝\
[@hirearchers]
雇用弓箭手可保护城堡的安全，并维护城堡的治安。\
每个弓箭手的雇用费用为<$ARCHERFEE>金币。\
╔┄┄┄┄┬┄┄┄┄┬┄┄┄┄┬┄┄┄┄╗\
┊聘用<一号/@hirearchernow1>┊聘用<二号/@hirearchernow2>┊聘用<三号/@hirearchernow3>┊聘用<四号/@hirearchernow4>┊\
├┄┄┄┄┼┄┄┄┄┼┄┄┄┄┼┄┄┄┄┤\
┊聘用<五号/@hirearchernow5>┊聘用<六号/@hirearchernow6>┊聘用<七号/@hirearchernow7>┊聘用<八号/@hirearchernow8>┊\
├┄┄┄┄┼┄┄┄┄┼┄┄┄┄┼┄┄┄┄┼┄┄╗\
┊聘用<九号/@hirearchernow9>┊聘用<十号/@hirearchernow10>┊聘用<十一/@hirearchernow11>┊聘用<十二/@hirearchernow12>┊<返回/@main>┊\
╚┄┄┄┄┴┄┄┄┄┴┄┄┄┄┴┄┄┄┄┴┄┄╝\
[@commandorder]
守卫们正在进行沙巴克的防御工作,你想改变他们?\ \ \
╔┄┄┄┄┬┄┄┄┄┬┄┄╗\
┊<正常防守/@guardrule_normalnow>┊<进攻来者/@guardrule_pkattack>┊<返回/@main>┊\
╚┄┄┄┄┴┄┄┄┄┴┄┄╝\
[@guardrule_normalnow]
防守方式已经更改，守卫们已经目前处于正常防御状态.\ \ \
<返回/@commandorder>\
[@guardrule_pkattack]
防守方式已经更改，守卫们已经目前处于对来犯者进攻状态.\ \ \
<返回/@commandorder>\
[@lingqu]
「连续固守沙城一周时间可以领取沙城主专用武器两把」\
<注:> <系统根据职业发放该武器，每位城主只能领一次>\
领取武器系统会判断你的声望值是否达到<30>，领主武器\
不可进行交易、丢弃、摆摊及拍卖等常规操作守城期间被\
其它行会占领后再次抢回将重新计时！成功连续守沙一周\
可获得<2张火龙卡>的奖励。\ \
<查看占领时间/@查看占领时间>‖<领取守沙奖励/@领取>\
<返回首页/@main>\
[@领取]
#IF
CHECK 1
#ELSEACT
messagebox 你还没宣权，无法领取！
BREAK
#if
ISCASTLEMASTER
#ELSEACT
messagebox 唐僧说：人是人他腾飞生的，妖是妖他腾飞生的...你是？？？
BREAK
#if
CASTLECHANGEDAY > 7
#ELSEACT
messagebox 你是不是昏了头，这才不到7天就？？？
BREAK
#IF
CHECKCREDITPOINT > 29
#ELSEACT
MESSAGEBOX 作为一个沙城领主，这点声望都没有是很可耻的...
BREAK
#if
small G98 3
#ELSEACT
MESSAGEBOX 下次再来领吧，当前已经发放了<$STR(G98)>把武器！！！
BREAK
#IF
CASTLECHANGEDAY > 6
CHECKJOB warrior
#ACT
inc G98 1
SET 0
SET 1
CREDITPOINT - 30
CALCVAR HUMAN 占领天数 = 0
GIVE 领主之印 1
GIVE 火龙卡 1 //我的火龙卡是充元宝用的卡，要发元宝自己改下了，领主武器根据三职业不同发放，一周只发2把
SENDMSG 0 祝贺行会「<$OWNERGUILD>」成功连续守沙一周并由城主『<$USERNAME>』领取火龙卡1张的奖励！
SENDMSG 0 行会「<$OWNERGUILD>」成功连续守沙一周，城主『<$USERNAME>』领取了领主之印！
SENDMSG 7 提示：领主武器不可进行交易、丢弃、摆摊及拍卖等常规操作！！！
MESSAGEBOX 提示：当前已经发放了<$STR(G98)>把武器！！！
break
#IF
small G98 3
CASTLECHANGEDAY > 6
CHECKJOB wizard
#ACT
inc G98 1
SET 0
SET 1
CALCVAR HUMAN 占领天数 = 0
CREDITPOINT - 30
GIVE 领主之杖 1
GIVE 火龙卡 1 //我的火龙卡是充元宝用的卡，要发元宝自己改下了，领主武器根据三职业不同发放，一周只发2把
SENDMSG 0 祝贺行会「<$OWNERGUILD>」成功连续守沙一周并由城主『<$USERNAME>』领取火龙卡1张的奖励！
SENDMSG 0 行会「<$OWNERGUILD>」成功连续守沙一周，城主『<$USERNAME>』领取了领主之杖！
SENDMSG 7 提示：领主武器不可进行交易、丢弃、摆摊及拍卖等常规操作！！！
MESSAGEBOX 提示：当前已经发放了<$STR(G98)>把武器！！！
break
#IF
small G98 3
CASTLECHANGEDAY > 6
CHECKJOB taoist
#ACT
CREDITPOINT - 30
inc G98 1
SET 0
SET 1
CALCVAR HUMAN 占领天数 = 0
GIVE 领主之剑 1
GIVE 火龙卡 1 //我的火龙卡是充元宝用的卡，要发元宝自己改下了，领主武器根据三职业不同发放，一周只发2把
SENDMSG 0 祝贺行会「<$OWNERGUILD>」成功连续守沙一周并由城主『<$USERNAME>』领取火龙卡1张的奖励！
SENDMSG 0 行会「<$OWNERGUILD>」成功连续守沙一周，城主『<$USERNAME>』领取了领主之剑！
SENDMSG 7 提示：领主武器不可进行交易、丢弃、摆摊及拍卖等常规操作！！！
MESSAGEBOX 提示：当前已经发放了<$STR(G98)>把武器！！！
break
#elseact
SENDMSG 4 警告：<$USERNAME>阁下，你的行为太过愚蠢了，请停止你那不理智的想法吧。
[@查看占领时间]
#if
CASTLECHANGEDAY > 6
#ACT
messagebox 当前已占领沙城：7天
break
#if
CASTLECHANGEDAY > 5
#ACT
messagebox 当前已占领沙城：6天
break
#if
CASTLECHANGEDAY > 4
#ACT
messagebox 当前已占领沙城：5天
break
#if
CASTLECHANGEDAY > 3
#ACT
messagebox 当前已占领沙城：4天
break
#if
CASTLECHANGEDAY > 2
#ACT
messagebox 当前已占领沙城：3天
break
#if
CASTLECHANGEDAY > 1
#ACT
messagebox 当前已占领沙城：2天
break
#if
CASTLECHANGEDAY > 0
#ACT
messagebox 当前已占领沙城：1天
#elseact
messagebox 当前已占领沙城：0天
[@rongyao]
#IF
check 0
#ACT
MOV S99 <$USERNAME>
#SAY
沙城——荣耀、身份、权势的表现和象征！！！\
只要你连续占领沙巴克王城七日，\
就可以获得这些无比的荣耀、身份、权势...\
来吧，尊贵的<$USERNAME>\
率领你的行会和你的部众宣称你的王权吧！！！\
【提示】目前该行会只有<$GLOBAL(沙城主1)>、<$GLOBAL(沙城主2)>才能进行宣权\
<宣称王权/@task_body>\
<关闭对话/@exit>
#elseACT
messagebox 提示：尊贵的<$USERNAME>阁下，你已经摘取了荣耀，无须重复宣称王权！
BREAK
[@task_body]
#IF
equal S99 <$GLOBAL(沙城主1)>
#ACT
GOTO @task_bodyOK
BREAK
#IF
equal S99 <$GLOBAL(沙城主2)>
#ACT
GOTO @task_bodyOK
BREAK
#elseact
messagebox 提示：只有[<$GLOBAL(沙城主1)>]、[<$GLOBAL(沙城主2)>]才能进行宣权
[@task_bodyOK]
#if
CHECKVAR HUMAN 占领天数 = 7
ISCASTLEMASTER
CASTLECHANGEDAY > 6
#say
我们伟大而尊贵的<$USERNAME>阁下,\
玛法的敌人听到英勇你的及你部众的名号就已远远的逃脱,\
你的仇敌已经拜服在你的脚下,亲吻着你的脚尖.\
全能的你已经成功占据了沙城7日.\
让我们为这个无比的荣耀欢呼吧!\ \
#ACT
SET 1
CALCVAR HUMAN 占领天数 + 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 12 本行会当前已占领沙城：[<$CASTLEGETDAYS>天] 251 249
SENDMSG 0 历史将记载这一刻！『<$USERNAME>』带领着<$OWNERGUILD>连续7天守住了庄严的沙巴克城池，这不仅仅是个人的荣耀更是出强大行会的至高无上的荣誉。
messagebox 您已占领沙城：7天，快去摘取你的荣耀吧！！！
break
#if
CHECKVAR HUMAN 占领天数 = 6
ISCASTLEMASTER
CASTLECHANGEDAY > 5
#say
我们伟大的<$USERNAME>阁下, \
战斗会更加的残酷,但如果迈过明日的太阳,\
沙城的历史会永远的记载着你的威名.\ \
<离开/@exit>
#ACT
CALCVAR HUMAN 占领天数 + 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 12 本行会当前已占领沙城：[<$CASTLEGETDAYS>天] 251 249
SENDMSG 0 『<$USERNAME>』连续6天的拼杀，我们一次又一次的杀退了对手的进攻，一次又一次的验证了<$OWNERGUILD>的团结强大，沙城的荣誉也非我们莫属！
messagebox 当前已占领沙城：6天
break
#if
CHECKVAR HUMAN 占领天数 = 5
ISCASTLEMASTER
CASTLECHANGEDAY > 4
#say
尊贵的<$USERNAME>, \
荣耀, 身份, 权势已经在前面等候着你,\
坚定你的步伐, 一直往前吧. \ \
<离开/@exit>
#ACT
CALCVAR HUMAN 占领天数 + 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 12 本行会当前已占领沙城：[<$CASTLEGETDAYS>天] 251 249
SENDMSG 0 太阳光芒依旧照耀着飞跃沙城皇宫，『<$USERNAME>』带领的<$OWNERGUILD>行会每一个人璀璨的身影连续5天深深的印绕在这片光辉的土地上。
messagebox 当前已占领沙城：5天
break
#if
CHECKVAR HUMAN 占领天数 = 4
ISCASTLEMASTER
CASTLECHANGEDAY > 3
#say
第四天了, 已经第四天了, 真不敢相信.\
尊贵的<$USERNAME>, \
我为你和你的[<$OWNERGUILD>]行会感到无比的骄傲.\ \
#ACT
CALCVAR HUMAN 占领天数 + 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 12 本行会当前已占领沙城：[<$CASTLEGETDAYS>天] 251 249
SENDMSG 0 『<$USERNAME>』已经4天了，离我们摘取沙城至高的荣耀越来越近了...而我们的对手，仍然没有击垮我们，因为我们是最强的！只有我们才佩的起这庄严的城池！
messagebox 当前已占领沙城：4天
break
#if
CHECKVAR HUMAN 占领天数 = 3
ISCASTLEMASTER
CASTLECHANGEDAY > 2
#say
非常妙! 尊贵的<$USERNAME>.\
你已经三次击退了来敌,
现在全玛法的人都在注视着你的领导才能.\ \
<离开/@exit>
#ACT
CALCVAR HUMAN 占领天数 + 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 12 本行会当前已占领沙城：[<$CASTLEGETDAYS>天] 251 249
SENDMSG 0 『<$USERNAME>』第3天了，养兵千日，用在一时！我尊敬的对手们，拿起你们手中的武器敲响沙城的战鼓吧！
messagebox 当前已占领沙城：3天
break
#if
CHECKVAR HUMAN 占领天数 = 2
ISCASTLEMASTER
CASTLECHANGEDAY > 1
#say
很高兴还能看到你, <$USERNAME>阁下.\
现在是你第二日占据着沙城,希望明天还能看到你.\ \
<离开/@exit>
#ACT
CALCVAR HUMAN 占领天数 + 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 12 本行会当前已占领沙城：[<$CASTLEGETDAYS>天] 251 249
SENDMSG 0 『<$USERNAME>』2天了，仍然都没有人来与我们争夺沙城的荣耀！
break
#if
CHECKVAR HUMAN 占领天数 = 1
ISCASTLEMASTER
CASTLECHANGEDAY > 0
#SAY
<$USERNAME>阁下：\
你已经占据了沙城, 坚守住吧,\
外面还有很大不安分的人在窥视着你的荣耀.\ \
<离开/@exit>
#ACT
CALCVAR HUMAN 占领天数 + 1
SAVEVAR HUMAN 占领天数 ..\QuestDiary\服务\守城管理\守城数据管理.txt
SENDMSG 12 本行会当前已占领沙城：[<$CASTLEGETDAYS>天] 251 249
SENDMSG 0 『<$USERNAME>』1天过去了，沙城一直如此平静，我们强悍的对手在哪？
break
#elsesay
<提醒：>只能由城主来宣称王权，并且系统只默认为首次宣称\
王权的两位城主，如果你想使用多个角色替换城主来宣称的话\
那么，<$USERNAME>阁下，你的行为太过愚蠢了，\
请赶快停止你那不理智的想法吧...\ \
提示：只有[<$GLOBAL(沙城主1)>]、[<$GLOBAL(沙城主2)>]才能进行宣权\
同时必须守城一天以上才能进行宣权，确认这两个条件再来\
<离开/@exit>
论坛一条龙
小弟默默的路过贵宝地~~~ 不错的帖子，值得收藏！ 一口气看完了，我要下去回味回味了！ 经典！ 管它三七二十一！ 楼主主机很热情啊！ 论坛的帖子越来越有深度了！ 禽兽不如应该不是说楼主的的吧？ 学习雷锋，好好回帖！
页:
[1]
2