傳奇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>\