用于战神引擎的行会捐献+专属地图自定义Npc脚本，脚本是从1.80战神合击里面提取来的，之前帮主也提取了一份，但自定义素材不一样，故而提取出来，自定义素材原先是用于3.0插件，如果加在2.0或者4.0不一定可以直接使用，要针对性的调整一下。这个脚本牵扯到变量文件比较多。

行会捐献.txt文化放到D:\mud2.0\Mir200\Share\config文件夹。

CommonScripts文件夹不能直接覆盖到版本里面，需要单独提取和增加相应的变量，除非版本里面没有这些文件。

部分脚本

procedure _GoGuildMap;
begin
     if This_Player.GuildName <> '' then
	 begin
     if ReadIniSectionStr('行会捐献.txt','捐献排名','1') = This_Player.GuildName then
	 begin
      This_Player.FlyTo('R001~8',78,100);
	 ServerSay('【'+This_Player.Name+'】进入了行会捐献榜一高爆地图【行会遗迹】，里面有几率掉落高级套装！！',0);
	 This_Player.CallOut(This_Npc, 1, 'CheckAbil');
	 end else
	 begin
     This_NPC.InputDialog(This_Player,'你们行会不是第一名暂时无法进入此地图！',1,100);	 
end;
	 end else
	 begin
This_NPC.InputDialog(This_Player,'你还未加入任何行会！无法进入！',1,100);	 
end;
end;
procedure CheckAbil;
begin
     if This_Player.GuildName <> '' then
	 begin
	 if (ReadIniSectionStr('行会捐献.txt','捐献排名','1') <> This_Player.GuildName) and (CompareText(This_Player.MapName,'R001~8') = 0) then
	 begin
	 This_Player.Flyto('3',330,330);
	 This_Player.PlayerNotice('你的行会已经不是第一名，送你回城！',0);
	 This_Player.CallOut(This_Npc, 5, 'CheckAbil');	 
	 end
	 end else
	 begin
	 This_Player.Flyto('3',330,330);
	 This_Player.PlayerNotice('你的行会已经不是第一名，送你回城！',0);
	 This_Player.CallOut(This_Npc, 5, 'CheckAbil');		 
end;
end;
procedure _DonaAbil;
begin
     if This_Player.GuildName <> '' then
	 begin
     if ReadIniSectionStr('行会捐献.txt','捐献排名','1') = This_Player.GuildName then
	 begin
     This_Player.SetV(564,2,20);
	 This_Player.SetV(565,2,20);
	 This_Player.SetV(566,2,20);
	 This_Player.SetV(561,10,2);
	 This_Player.SetV(69,9,53);
	 givefenghao;
	 gjity;
     This_NPC.InputDialog(This_Player,'行会捐献：[第一名][20]功魔道暴击+2%属性已生效！',1,100);	 
	 end else
	 begin
	 if ReadIniSectionStr('行会捐献.txt','捐献排名','2') = This_Player.GuildName then
	 begin
     This_Player.SetV(564,2,10);
	 This_Player.SetV(565,2,10);
	 This_Player.SetV(566,2,10);
	 This_Player.SetV(562,20,1);
	 gjity;
	 This_NPC.InputDialog(This_Player,'行会捐献：[第二名][10]功魔道免伤+1%属性已生效！',1,100);
	 end else
	 begin
	 if ReadIniSectionStr('行会捐献.txt','捐献排名','3') = This_Player.GuildName then
	 begin
     This_Player.SetV(564,2,5);
	 This_Player.SetV(565,2,5);
	 This_Player.SetV(566,2,5);
	 This_Player.SetV(569,31,50);
	 gjity;
	 This_NPC.InputDialog(This_Player,'行会捐献：[第三名][5]功魔道血量+50点属性已生效！',1,100);
	 end else
	 begin
	 if ReadIniSectionStr('行会捐献.txt','捐献排名','4') = This_Player.GuildName then
	 begin
     This_Player.SetV(564,2,0);
	 This_Player.SetV(565,2,0);
	 This_Player.SetV(566,2,0);
	 This_Player.SetV(561,10,0);
	 This_Player.SetV(562,20,0);
	 This_Player.SetV(569,31,0);
	 This_Player.SetV(69,9,0);
	 givefenghao;
	 gjity;
	 This_NPC.InputDialog(This_Player,'行会捐献：您的行会当前无排名属性消失！',1,100);
end;