行会战脚本增加激情

Gm论坛

帮朋友写的一个行会战的脚本，花了1小时写的，测试过了可以用，时间秒数自己修改下.
大家看下截图，觉得需要什么功能或改动的可以尝试自行添加,觉得可以的，添加成功的，顶下贴，谢谢！



[@MAIN]
#IF
SMALL G135 1
#SAY
　\
■━━━━■　━ 白日门目前被{【<$STR(A53)>】}行会占领 ━\
┃   ★   ┃　\
┃ ★★★ ┃   <申请攻取白日门[url=]/@gqbrm[/url]>  白日门精英掌门人{【<$STR(A54)>】}\
┃   ★   ┃　　\
■━━━━■   ━━━━━<我要加入该行会/@加入该会>━━━━━━\
　\
     <80后的热血青年们 :  抵制日货,还我钓鱼岛,扬我中华/AUTOCOLOR=253> \
#ELSEACT
GOTO @进入倒计时
break

[@加入该会]
#IF
HAVEGUILD
#ACT
Messagebox [失败]：你已经加入了行会,不可以再加入了.
break
#IF
LARGE A53 0
#ACT
AddGuildMember <$STR(A53)> <$USERNAME>
Messagebox [成功]：恭喜【<$USERNAME>】加入了行会【<$STR(A53)>】。
BREAK
#ELSEACT
Messagebox [失败]：目前没有行会占领白日门.
[@gqbrm]
#IF
CHECKGUILDLIST ..\QuestDiary\基地争夺战\白日门守护方.txt
#ACT
MESSAGEBOX 自己打自己好玩吗,有本事去打钓鱼岛,干小日本,杀老美去.
break
#IF
ISGUILDMASTER
#act
GOTO @gqbrm1
#elseACT
messagebox 你不是行会老大,不可以申请.
break
[@gqbrm1]
<1,申请攻取白日门后,系统将会在10分钟后开始白日门争夺站/AUTOCOLOR=151>\\
<2,白日门守护方在战争开始1200秒内有权使用进行直飞地图,直接支援./AUTOCOLOR=151>\\
<3,攻取白日门后,封号会显示白日门精英/AUTOCOLOR=151>\\
<4,同时可以有招牌在线收人,提升行会荣誉度,人气/AUTOCOLOR=151>\\   
<6,申请条件,必须是掌门人,同时必须交纳5000元宝的申请费用/AUTOCOLOR=151>\\      
<7,攻取成功则收回5000元宝(原守护方的5000元宝作为押金)/AUTOCOLOR=151>\\   
<8,守护成功则可收回5000元宝(原首次攻占的5000元宝继续作为押金)/AUTOCOLOR=151>\\  
<现在开始申请输入5000元宝[url=]/@@InPutString160[/url]>  <返回[url=]/@main>\\[/url]
[@CallInPutString160]]
#IF
EQUAL s0 5000
CHECKGAMEGOLD ? <$STR(s0)>
#ACT
GAMEGOLD - <$STR(s0)>
mov G137 <$STR(s0)>
sendmsg 6 申请成功:成功交纳<$STR(G137)>元宝.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
GuildNoticeMsg 251 0 白日门争夺战10分钟后打响,请攻方与防守方做好准备.
goto @sqgbrm2
#ELSEACT
MESSAGEBOX ぐ【失败】：你身上的元宝不足5000个，或者输入字符串错误.
MOV s0 0
MOV G137 0
GOTO @gqbrm
BREAK
[@sqgbrm2]
#IF
equal G135 0
#ACT
INC G135 100
mov A51 <$GUILDNAME>
mov A52 <$USERNAME>
ADDGUILDLIST ..\QuestDiary\基地争夺战\白日门攻取方.txt
SetOnTimer 17 1
SetOnTimer 18 1
GOTO @进入倒计时
#ELSEACT
GOTO @进入倒计时
break

[@进入倒计时]
申请攻取白日门的行会:{≮<$STR(A51)>≯/SCOLOR=151}  \
申请掌门人：{≮<$STR(A52)>≯/SCOLOR=151} \
守护白日门的行会:{≮<$STR(A53)>≯/SCOLOR=151}  \
守护掌门人：{≮<$STR(A54)>≯/SCOLOR=151}   <查看战争时间设置/@查看时间>\
<当刷新倒计时秒数为1不动时,白日门战争正式开始或已经在开始了/SCOLOR=253>\\
白日门战争正在倒计时,剩余时间{≮<$STR(G135)>≯/SCOLOR=253}秒 <刷新/@进入倒计时>\
白日门争夺为1200秒,前600秒为守护方备战时间,现已进行{≮<$STR(G136)>≯/SCOLOR=253}\
<攻方争夺白日门进入点/@争夺白日门>　<守方白日门进入点/@守护白日门>   <免费领取元宝/@免费领取>　\

[@查看时间]
<1,在攻方交纳5000元宝申请后,战争时间总秒数为2400秒等于40分钟/AUTOCOLOR=151>\\
<2,刷新倒计时600秒内,守护方可以进入白日城堡备战/AUTOCOLOR=151>\\
<3,争夺战1-1400秒内守护方可以直飞白日门城堡内,优势支援./AUTOCOLOR=151>\\
<4,争夺战1400-1800秒内守护方停止直飞城堡,取消优势./AUTOCOLOR=151>\\
<5,1800秒-2100秒为停止双方传送点,让双方有足够的时间清理残余/AUTOCOLOR=151>\\   
<6,2100秒-2400秒为双方点取地图内NPC实行占领或守护成功/AUTOCOLOR=151>\\      
<7,以上时间完全可以做到占领或守护成功,分出胜负,不要想着作弊./AUTOCOLOR=151>\\   
<8,作弊最后的结果元宝免费送给其他玩家./AUTOCOLOR=151>\\  
[@免费领取]
　\
<在这里设置免费领取是为了防止有人用1万元宝破坏这个功能/AUTOCOLOR=151>\
<本来这5000元宝服务器可以吃掉,想了想还是送给玩家吧./AUTOCOLOR=151>\
<当幸运玩家点开NPC刷新,发现争夺战争已进行2400秒不动时/AUTOCOLOR=151>\
<那恭喜你,你现在可以免费领取5000元宝了./AUTOCOLOR=151>\
　\
<领取元宝/@领取元宝>\

[@领取元宝]
#IF
EQUAL G136 200
#ACT
GAMEGOLD + <$STR(G137)>
CLEARNAMELIST ..\QuestDiary\基地争夺战\白日门攻取方.txt
GuildNoticeMsg 251 0 白日门战争完毕无结果,幸运玩家<$USERNAME>领取元宝5000
GuildNoticeMsg 251 0 白日门战争完毕无结果,幸运玩家<$USERNAME>领取元宝5000
GuildNoticeMsg 251 0 白日门战争完毕无结果,幸运玩家<$USERNAME>领取元宝5000
GuildNoticeMsg 251 0 白日门战争完毕无结果,幸运玩家<$USERNAME>领取元宝5000
mov A51 0
mov A52 0
mov G135 0
mov G136 0
GOTO @MAIN
#ELSEACT
MESSAGEBOX 看清楚介绍了吗,当战争无结果时,你才是幸运玩家,嘿嘿.要不你守着时间吧.
goto @进入倒计时
BREAK
[@争夺白日门]
#IF
LARGE G136 100
;SMALL G136 200
CHECKGUILDLIST ..\QuestDiary\基地争夺战\白日门攻取方.txt
#ACT
mapmove 1002
#ELSEACT
messagebox 请点刷新查看秒数为1秒时,白日门争夺战正式开始\或者你压更不是攻方行会成员.
break

[@守护白日门]
　\
<守方可提前10分钟进入精英室内进行备战工作/AUTOCOLOR=151>\\
<1号点传送到白日门精英室门口/AUTOCOLOR=151>\\
<2号点传送到白日门精英室内,只限制战争进行时1500秒内/AUTOCOLOR=151>\\
　\
<进入一号点/@一号点>    <进入二号点/@二号点>　\

[@一号点]  
#IF
LARGE G136 0
SMALL G136 180
CHECKGUILDLIST ..\QuestDiary\基地争夺战\白日门守护方.txt
#ACT
mapmove 1002 15 14
#ELSEACT
messagebox 守护失败原因：1请点刷新查看秒数为1秒时\2,白日门争夺战正式开始\3,或者你压更不是守方行会成员.
break
[@二号点]  
#IF
LARGE G136 0
SMALL G136 150
CHECKGUILDLIST ..\QuestDiary\基地争夺战\白日门守护方.txt
#ACT
mapmove 1002
#ELSEACT
messagebox 守护失败原因：1请点刷新查看秒数为1秒时,白日门争夺战正式开始\2,或者你压更不是守方行会成员\3,战争开始后1500秒内可以在二号点起飞
break

鸳鸯

不错 赞一哥个