传奇2行会仓库脚本

A. 传奇脚本——行会收人

首先，这个脚本的用处并不是非常大！
放出来只是供大家查考脚本勾架和多个方面结合运用的例子！
所以里面写脚本的时候难免有点不严谨（笑~）
大家可以仔细看下它的结构，举一反三弄出更多好玩的东西！

首先是NPC文件！

[@main]
#IF
checkcastlewar 0
#SAY
现在是攻沙时间，无法使用这个功能！\
#ACT
break
#IF
ISGUILDMASTER
CheckVar GLOBAL hangs1 = <$GUILDNAME>
#ACT
GOTO @行会收人管理
break
#IF
ISGUILDMASTER
CheckVar GLOBAL hangs1 =
#SAY
目前这个功能暂时无人使用！\
开通这个服务需要5元宝！\
<我有5元宝我要使用这个功能/@开通行会收人>\
#ACT
break
#IF
HAVEGUILD
#SAY
您已经加入一个行会，这里不是您来的地方了！\
#ACT
break
#IF
CheckVar GLOBAL hangs1 =
#SAY
暂时没有行会在这里发布收人广告！\
#elseact
MOV S2 <
INC S2 <$DATETIME>
INC S2 /AUTOCOLOR=224,251,252,253,254>
MOV P0 <$GLOBAL(hangd1)>
MOV P1 <$GLOBAL(hanggj1)>
MOV P2 <$GLOBAL(hangmf1)>
MOV P3 <$GLOBAL(hangds1)>
#elseSAY
<==============/SCOLOR=250><这里是寻仙传说的行会收人脚本/AUTOCOLOR=224,251,252,253,254><==============/SCOLOR=250>\
行会名称：<$GLOBAL(hangs1)>\
招收成员等级要求不低于：<$GLOBAL(hangd1)>\
招收成员最大攻击不低于：<$GLOBAL(hanggj1)>\
招收成员最大魔法不低于：<$GLOBAL(hangmf1)>\
招收成员最大道数不低于：<$GLOBAL(hangds1)>\
<(PS:战士申请时只会检测攻击！法师道士一样只检测本职业属性！)/AUTOCOLOR=224,251,252,253,254>\
<我达到要求了，我要申请加入此行会/@加入此行会>\
<============/SCOLOR=250><$STR(S2)><==============/SCOLOR=250>\

[@加入此行会]
#IF
CheckVar GLOBAL hangk1 =
CHECKLEVELEX > <$STR(P0)>
CheckJob Warrior
SMALL P1 <$MAXDC>
#ACT
CALCVAR GLOBAL hangk1 =1
CALCVAR GLOBAL hangm1 = <$USERNAME>
Gmexecute 开始提问 @申请加行会
DelayCall 7 @对方行会无人
messagebox 申请提交成功，请等待5秒后有结果！
break
#IF
CheckVar GLOBAL hangk1 =
CHECKLEVELEX > <$STR(P0)>
CheckJob Wizard
SMALL P2 <$MAXMC>
#ACT
CALCVAR GLOBAL hangk1 =1
CALCVAR GLOBAL hangm1 = <$USERNAME>
Gmexecute 开始提问 @申请加行会
DelayCall 7 @对方行会无人
messagebox 申请提交成功，请等待5秒后有结果！
break
#IF
CheckVar GLOBAL hangk1 =
CHECKLEVELEX > <$STR(P0)>
CheckJob Taoist
SMALL P3 <$MAXSC>
#ACT
CALCVAR GLOBAL hangk1 =1
CALCVAR GLOBAL hangm1 = <$USERNAME>
Gmexecute 开始提问 @申请加行会
DelayCall 7 @对方行会无人
messagebox 申请提交成功，请等待5秒后有结果！
#elseact
messagebox 对不起，您的人物属性达不到规定要求，或有人使用，请稍后再使用！

[@开通行会收人]
#IF
CHECKGAMEPOINT > 4
#ACT
GAMEGOLD - 5
CALCVAR GLOBAL hangs1 = <$GUILDNAME>
CALCVAR GLOBAL hangd1 = 1
CALCVAR GLOBAL hanggj1 = 1
CALCVAR GLOBAL hangmf1 = 1
CALCVAR GLOBAL hangds1 = 1
SAVEVAR GLOBAL hangd1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangd1.txt
SAVEVAR GLOBAL hanggj1 ..\QuestDiary\PAL变量\行会变量\收人相关\hanggj1.txt
SAVEVAR GLOBAL hangmf1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangmf1.txt
SAVEVAR GLOBAL hangds1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangds1.txt
SAVEVAR GLOBAL hangs1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangs1.txt
goto @行会收人管理
#elseact
messagebox 您身上的元宝不足！\这个服务，需要行会掌门花费5元宝！\

[@行会收人管理]
#SAY
<============/SCOLOR=250><这里是寻仙传说的行会收人脚本/AUTOCOLOR=224,251,252,253,254><==============/SCOLOR=250>\
行会名称：<$GLOBAL(hangs1)>\
<设置/@@InPutString163> 招收成员等级要求不低于：<$GLOBAL(hangd1)>\
<设置/@@InPutString164> 招收成员最大攻击不低于：<$GLOBAL(hanggj1)>\
<设置/@@InPutString165> 招收成员最大魔法不低于：<$GLOBAL(hangmf1)>\
<设置/@@InPutString166> 招收成员最大道数不低于：<$GLOBAL(hangds1)>\
<(PS:战士申请时只会检测攻击！法师道士一样只检测本职业属性！)/AUTOCOLOR=224,251,252,253,254>\
\
<========================================================/SCOLOR=250>\

[@对方行会无人]
#SAY
对方行会掌门及长老都不在线，申请失败！

[@@InPutString163]
#ACT
DELAYGOTO 1 ~InPutString163

[~InPutString163]
#ACT
CALCVAR GLOBAL hangd1 = <$STR(S0)>
SAVEVAR GLOBAL hangd1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangd1.txt
SENDMSG 5 招收成员最低等级要求设置成功！
goto @行会收人管理
break

[@@InPutString164]
#ACT
DELAYGOTO 1 ~InPutString164

[~InPutString164]
#ACT
CALCVAR GLOBAL hanggj1 = <$STR(S0)>
SAVEVAR GLOBAL hanggj1 ..\QuestDiary\PAL变量\行会变量\收人相关\hanggj1.txt
SENDMSG 5 招收成员最低攻击要求设置成功！
goto @行会收人管理
break

[@@InPutString165]
#ACT
DELAYGOTO 1 ~InPutString165

[~InPutString165]
#ACT
CALCVAR GLOBAL hangmf1 = <$STR(S0)>
SAVEVAR GLOBAL hangmf1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangmf1.txt
SENDMSG 5 招收成员最低魔法要求设置成功www.5uwl.net ！
goto @行会收人管理
break

[@@InPutString166]
#ACT
DELAYGOTO 1 ~InPutString166

[~InPutString166]
#ACT
CALCVAR GLOBAL hangds1 = <$STR(S0)>
SAVEVAR GLOBAL hangds1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangds1.txt
SENDMSG 5 招收成员最低道数要求设置成功！
goto @行会收人管理
break

放在 D:\mirserver\Mir200\Envir\MapQuest_def\QManage.txt 中的文件

[@申请加行会]
#ACT
MOV S0 <$RANKNAME>
GOTO @行会领导审核

[@行会领导审核]
#IF
CheckGuildMaster <$GLOBAL(hangs1)>
#SAY
玩家<$GLOBAL(hangm1)>请求加入您的行会！\
<同意/@同意> <不同意/@不同意>\
(PS：无选择5秒内自动拒绝！)\
#ACT
DelayCall 5 @自动拒绝加入
break
#IF
EQUAL S0 长老
CHECKOFGUILD <$GLOBAL(hangs1)>
#SAY
玩家<$GLOBAL(hangm1)>请求加入您的行会！\
<同意/@同意> <不同意/@不同意>
(PS：无选择5秒内自动拒绝！)
#ACT
DelayCall 5 @自动拒绝加入

[@同意]
#ACT
SendMsg 5 您同意了申请，恭喜[<$GLOBAL(hangm1)>]加入了您的行会！
HCall <$GLOBAL(hangm1)> @行会审核成功
CLEARDELAYGOTO
CLOSE

[@不同意]
#ACT
SendMsg 5 您拒绝了[<$GLOBAL(hangm1)>]的申请！
CALCVAR GLOBAL hangk1 =
HCall <$GLOBAL(hangm1)> @行会审核失败
CLEARDELAYGOTO
CLOSE

[@自动拒绝加入]
#SAY
由于5秒内无操作，所以自动帮你拒绝了申请！
#ACT
SendMsg 5 由于5秒内无操作，所以系统自动帮你拒绝了[<$GLOBAL(hangm1)>]的申请！
CALCVAR GLOBAL hangk1 =
HCall <$GLOBAL(hangm1)> @行会审核失败
CLOSE

[@行会审核成功]
#SAY
恭喜！您成功加入<$GLOBAL(hangs1)>行会！
#act
CLOSE
SendMsg 5 恭喜！您成功加入[<$GLOBAL(hangs1)>]行会！
CALCVAR GLOBAL hangk1 =
AddGuildMember <$GLOBAL(hangs1)>
CLEARDELAYGOTO
CLOSE

[@行会审核失败]
#SAY
对不起，您的加入行会申请被拒绝！
#act
SendMsg 5 对不起，您的申请被拒绝了！
CLEARDELAYGOTO
CLOSE 加载变量

;===============================================================================
;==========================测试行会收人脚本使用变量=============================
;===============================================================================
VAR String GLOBAL hangs1
VAR String GLOBAL hangm1
VAR Integer GLOBAL hangd1
VAR Integer GLOBAL hanggj1
VAR Integer GLOBAL hangmf1
VAR Integer GLOBAL hangds1
VAR Integer GLOBAL hangk1
LOADVAR GLOBAL hangs1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangs1.txt
LOADVAR GLOBAL hangm1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangm1.txt
LOADVAR GLOBAL hangd1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangd1.txt
LOADVAR GLOBAL hanggj1 ..\QuestDiary\PAL变量\行会变量\收人相关\hanggj1.txt
LOADVAR GLOBAL hangmf1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangmf1.txt
LOADVAR GLOBAL hangds1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangds1.txt
LOADVAR GLOBAL hangk1 ..\QuestDiary\PAL变量\行会变量\收人相关\hangk1.txt
如果再多用几个变量去限制 再配合机器人对全局变量的控制可以让这个脚本形成按时间收费的功能！

有点能力的 可以为了防止长期有人点击申请来烦自己的话
能使用自定义命令 如：@暂时拒绝收人 这样命令结合脚本制作接收收人消息的开关！

B. 传奇私服 行会管理员脚本问题

我见过，1年以前的版本里这样的设置比较多，现在基本取消了，我的版本很多，肯定有，但找是个问题，你可以去私服端网站上找找比较老的端，里面可能有这个行会管理脚本。去私服前线看看

C. 传奇申请行会攻城脚本

沙城老兵的,不过这里是查时间等等. 申请攻城应该是比奇国王
[@main]
你想要问我一些什么东西？\
\ \
<想问攻城的时间？./@aboutwar>
[@aboutwar]
察看关于最近的攻城战役纪录\
下一次战役记录在 <$CASTLEWARDATE> , 8:00开始。\ \
<详细情况./@listwar>\
<关闭./@exit>
[@listwar]
<$LISTOFWAR>\
\ \
<返回/@exit>

比奇国王的
[@main]
这里是比奇城堡宫殿.我是管理这里各种事情的国王.你有什么事情吗?\
请注意:您在填写行会名称时一定要慎重。如果包含不健康、\
有悖于社会精神文明的字眼，我们可以在不通知的情况下\
做删除处理。我们愿与您共建网络文明，谢谢您的配合！\
<申请行会./@@buildguildnow>\
<申请行会战争./@guildwar>\
<询问如何建立行会./@buildguildexp>\
<询问有关行会战争./@guildwarexp>\
<要求攻城战争./@requestcastlewar>\
[@buildguildexp]
想要成立行会，你首先需要证明你是否有这个资格才行哦.\
成立行会需要100万金币和一个沃玛\
号角为条件的，沃玛教主是只在\
沃玛寺庙出现的哦，你要是想杀死他，\
需要你自己足够强大才行\
\ \
<返回/@main>
[@guildwar]
首先，你要让我知道你要和哪个行会展开战争.\ \
为了得到法律允许的行会战争，你必须\
要向我提供金币让法律允许你们的战争.\
\ \
<输入你想要挑战的行会名称/@@guildwar>\
<返回/@main>\
[@guildwarexp]
<行会战争/@guildwar2>意味着战争是法律许可的哦，\
你们可以无所顾忌的大开杀戒了.\
首先，城堡中必须有很多的行会，\
而且这些行会中有很多\
为了正义而奋斗的勇士存在才可以申请.\
政府也才可以批准<合法/@warrule>行会战争.\
如果行会战争<要求/@propose>被批准，那么它将要持续三个小时.\
你应该支付<$GUILDWARFEE>金币让政府维持战场的次序.\
<返回/@main>
[@guildwar2]
当你成功申请行会战争后的第一件事情就是,\
你们行会的所有参战人员的ID将变成蓝色的\
当然了，相反的，敌人行会的ID就会变成橘黄色的.\
如果你参加进行会战争,\
你会看到这样的信息——’行会战争正在进行’\
在这种模式下，你可以自由的开展，\
不管你杀死多少人，你都不会被看成是PK.\
\ \
<返回/@guildwarexp>
[@warrule]
行会战争不允许在城堡、乡村里进行的.\
他必须离开城堡，乡村一定距离，\
当然，也不能在任何商店里面进行了\
行会战争结束以后，一切都恢复到正常状态了\
这个时候如果你继续PK的话，\
那么你的ID依然会变成红色的\
<返回/@guildwarexp>
[@propose]
行会战争的提议只能由行会的领袖提出。\
<返回/@guildwarexp>
[@requestcastlewar]
要求攻城战斗，你必须要有一个祖玛头像\
你有了吗？\
如果你在服务器里面的申请被允许了的话\
那么攻城战役将在两天后进行.\
\ \
<提供祖玛头像/@requestcastlewarnow>\
<取消/@main>\
[~@request_ok]
你的请求被许可, <$CASTLEWARDATE> 战争将会发生在这个值得回忆\
的日子。。。剩下的时间不多了，祝你好运!\
<关闭。/@exit>\