传奇行会经验脚本

传奇服务端

[@main]
\
每个行会天天之答应开启一次，请选择你要开启的时间？\
\
<开启1小时(需要500元宝)/@1>      <开启2小时(需要1000元宝)/@2>\
<开启3小时(需要1500元宝)/@3>     <开启4小时(需要2000元宝)/@4>\
\
<离开[url=]/@exit>\[/url]
[@1]
#if
HAVEGUILD
#ACT
goto @01
#elsesay
你好像还没加入行会!\
<封闭[url=]/@exit>\[/url]
[@01]
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\1小时.txt
#SAY
你们行会已经领取过一小时的双倍经验了。
#elseact
goto @11
[@11]
#if
CHECKGAMEGOLD > 499
#ACT
GAMEGOLD - 500
GOTO @111
#elsesay
没钱还想来混双倍!\
<封闭[url=]/@exit>\[/url]
[@111]
#IF
#ACT
mov s3 行会：
inc s3 <$GUILDNAME>
inc s3 开启人：
inc s3 <$USERNAME>
inc s3 数目：1小时
inc s3 时间：
inc s3 <$DATETIME>
mov a9 <$str(a8)>  
mov a8 <$str(a7)>  
mov a7 <$str(a6)>  
mov a6 <$str(a5)>  
mov a5 <$str(a4)>  
mov a4 <$str(a3)>  
mov a3 <$str(a2)>  
mov a2 <$str(s3)>  
mov s3  
ADDGUILDLIST ..\QuestDiary\行会经验\1小时.txt
SENDMSG 0 恭喜%s为[<$GUILDNAME>]行会开启了一小时的双倍经验，行会成员请到行会使者处领取！
SendCenterMsg 180 251 恭喜%s为你们行会开启了一小时的双倍经验，%d后确认开启，没有确认的请到行会使者处领取！ 2 10 @行会经验
break
[@2]
#if
HAVEGUILD
#ACT
goto @02
#elsesay
你好像还没加入行会!\
<封闭[url=]/@exit>\[/url]
[@02]
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\2小时.txt
#SAY
你们行会已经领取过一小时的双倍经验了。
#elseact
goto @22
[@22]
#if
CHECKGAMEGOLD > 999
#ACT
GAMEGOLD - 1000
GOTO @222
#elsesay
没钱还想来混双倍!\
<封闭[url=]/@exit>\[/url]
[@222]
#IF
#ACT
mov s3 行会：
inc s3 <$GUILDNAME>
inc s3 开启人：
inc s3 <$USERNAME>
inc s3 数目：2小时
inc s3 时间：
inc s3 <$DATETIME>
mov a9 <$str(a8)>  
mov a8 <$str(a7)>  
mov a7 <$str(a6)>  
mov a6 <$str(a5)>  
mov a5 <$str(a4)>  
mov a4 <$str(a3)>  
mov a3 <$str(a2)>  
mov a2 <$str(s3)>  
mov s3  
ADDGUILDLIST ..\QuestDiary\行会经验\2小时.txt
SENDMSG 0 恭喜%s为[<$GUILDNAME>]行会开启了两小时的双倍经验，行会成员请到行会使者处领取！
SendCenterMsg 180 251 恭喜%s为你们行会开启了两小时的双倍经验，%d后确认开启，没有确认的请到行会使者处领取！ 2 10 @行会经验
break

[@3]
#if
HAVEGUILD
#ACT
goto @03
#elsesay
你好像还没加入行会!\
<封闭[url=]/@exit>\[/url]
[@03]
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\3小时.txt
#SAY
你们行会已经领取过一小时的双倍经验了。
#elseact
goto @33

[@33]
#if
CHECKGAMEGOLD > 1499
#ACT
GAMEGOLD - 1500
GOTO @333
#elsesay
没钱还想来混双倍!\
<封闭[url=]/@exit>\[/url]

[@333]
#IF
#ACT
mov s3 行会：
inc s3 <$GUILDNAME>
inc s3 开启人：
inc s3 <$USERNAME>
inc s3 数目：3小时
inc s3 时间：
inc s3 <$DATETIME>
mov a9 <$str(a8)>  
mov a8 <$str(a7)>  
mov a7 <$str(a6)>  
mov a6 <$str(a5)>  
mov a5 <$str(a4)>  
mov a4 <$str(a3)>  
mov a3 <$str(a2)>  
mov a2 <$str(s3)>  
mov s3  
ADDGUILDLIST ..\QuestDiary\行会经验\3小时.txt
SENDMSG 0 恭喜%s为[<$GUILDNAME>]行会开启了三小时的双倍经验，行会成员请到行会使者处领取！
SendCenterMsg 180 251 恭喜%s为你们行会开启了三小时的双倍经验，%d后确认开启，没有确认的请到行会使者处领取！ 2 10 @行会经验
break
[@4]
#if
HAVEGUILD
#ACT
goto @04
#elsesay
你好像还没加入行会!\
<封闭[url=]/@exit>\[/url]
[@04]
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\4小时.txt
#SAY
你们行会已经领取过一小时的双倍经验了。
#elseact
goto @44
[@44]
#if
CHECKGAMEGOLD > 1999
#ACT
GAMEGOLD - 2000
GOTO @444
#elsesay
没钱还想来混双倍!\
<封闭[url=]/@exit>\[/url]
[@444]
#IF
#ACT
mov s3 行会：
inc s3 <$GUILDNAME>
inc s3 开启人：
inc s3 <$USERNAME>
inc s3 数目：4小时
inc s3 时间：
inc s3 <$DATETIME>
mov a9 <$str(a8)>  
mov a8 <$str(a7)>  
mov a7 <$str(a6)>  
mov a6 <$str(a5)>  
mov a5 <$str(a4)>  
mov a4 <$str(a3)>  
mov a3 <$str(a2)>  
mov a2 <$str(s3)>  
mov s3  
ADDGUILDLIST ..\QuestDiary\行会经验\4小时.txt
SENDMSG 0 恭喜%s为[<$GUILDNAME>]行会开启了四小时的双倍经验，行会成员请到行会使者处领取！
SendCenterMsg 180 251 恭喜%s为你们行会开启了四小时的双倍经验，%d后确认开启，没有确认的请到行会使者处领取！ 2 10 @行会经验
break
--------NPC显示最近的行会双倍-----
[@main]  
<$str(a2)>\  
<$str(a3)>\  
<$str(a4)>\  
<$str(a5)>\  
<$str(a6)>\  
<$str(a7)>\  
<$str(a8)>\  
<$str(a9)>\  
------------------QFunction-0.txt---------------
[@行会经验]
#IF
checknamelist ..\QuestDiary\行会经验\领取名单.txt
#act
SENDMSG 7 提示：今天你已经领过了,不能再领了.明天再来吧!
break
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\1小时.txt
#SAY
你现在还有1小时的双倍时间。\
\
双倍经验当天不用过时将会消失，建议尽快用完。\
\
<天天只能领取一次，请不要重复领取>\
\
<领取一小时双倍经验/@领取>\
\
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\2小时.txt
#SAY
你现在还有2小时的双倍时间。\
\
双倍经验当天不用过时将会消失，建议尽快用完。\
\
<天天只能领取一次，请不要重复领取>\
\
<领取两小时双倍经验/@领取2>\
\
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\3小时.txt
#SAY
你现在还有3小时的双倍时间。\
\
双倍经验当天不用过时将会消失，建议尽快用完。\
\
<天天只能领取一次，请不要重复领取>\
\
<领取三小时双倍经验/@领取3>\
\
#if
CHECKGUILDLIST ..\QuestDiary\行会经验\4小时.txt
#SAY
你现在还有4小时的双倍时间。\
\
双倍经验当天不用过时将会消失，建议尽快用完。\
\
<天天只能领取一次，请不要重复领取>\
\
<领取四小时双倍经验/@领取4>\
\
#elsesay
你现在还有0小时的双倍时间。\
\
双倍经验当天不用过时将会消失，建议尽快用完。\
\
<每次只能领取一小时，请不要重复领取>\
\
<你们行会暂时没有人赞助双倍经验或者你已经领取过了>\\
<封闭[url=]/@exit>\[/url]
[@领取]
#IF
#act
addnamelist ..\QuestDiary\行会经验\领取名单.txt
KILLMONEXPRATE 200 3600
#SAY
  您当前杀怪经验倍数为 2倍，有效时间 1小时。
break
[@领取2]
#IF
#act
addnamelist ..\QuestDiary\行会经验\领取名单.txt
KILLMONEXPRATE 200 7200
#SAY
  您当前杀怪经验倍数为 2倍，有效时间 2小时。
break
[@领取3]
#IF
#act
addnamelist ..\QuestDiary\行会经验\领取名单.txt
KILLMONEXPRATE 200 10800
#SAY
  您当前杀怪经验倍数为 2倍，有效时间 3小时。
break
[@领取4]
#IF
#act
addnamelist ..\QuestDiary\行会经验\领取名单.txt
KILLMONEXPRATE 200 14400
#SAY
  您当前杀怪经验倍数为 2倍，有效时间 4小时。
break