用于战神引擎的灵符捐献Npc脚本，通过灵符捐献以后，玩家可以获得主号和英雄的属性，如果用在无英雄的版本里面，那么修改一下领取属性的文字和注释掉对应的英雄脚本段，捐献以后，还可以进入对应的捐献地图，地图需要gm自己添加对应的地图信息。

部分脚本

procedure _pangu(pg:Integer); 
var sort, index, pg1, pg3, hair : integer;
begin
	sort  := pg / 100;
	index := pg mod 100;
	This_Player.SetV(66,sort,index);	//保存变更外显到变量
	pg1  := This_Player.GetV(66,1);		//获取外显一当前当前状态
	pg3  := This_Player.GetV(66,3);		//获取时装当前当前状态
	if pg1 < 0 then pg1 := 0; 
	if pg3 < 0 then pg3 := 0; 
	hair := pg1 +  pg3*15 + 31; 	//计算出应设置的hair值
	This_Player.ChgHair(hair);
end;
procedure _M1; 
var H8, L8 : Integer;
begin
     if This_Player.getV(96,1) < 1 then begin if This_Player.Level >= 0 then 
   begin
    if This_Player.MyLFnum >= 400 then
	  begin
	    if   This_Player.YBnum >= 0 then 
		   begin
		   H8 := 50 / 256;
		   L8 := 50 mod 256;
		   This_Player.DecLF(0,400,false);
	       This_Player.SetV(96,1,1);
			This_Player.AuthByHelped(6212 + 8,L8);
			This_Player.AuthByHelped(6212 + 20,H8);
			This_Player.AuthByHelped(6212 + 9,L8);
			This_Player.AuthByHelped(6212 + 21,H8);
			This_Player.AuthByHelped(6212 + 10,L8);
			This_Player.AuthByHelped(6212 + 22,H8);
		   ServerSay('真男人【' + This_Player.Name + '】沙城捐献：[300灵符]攻魔道+[50]属性已触发！！',3); 
		   	end else
            This_NPC.NpcDialog(This_Player,
            '您灵符不足！\'
             );
	end else
       This_NPC.NpcDialog(This_Player,
   '您灵符不足！\'
   );
end else
       This_NPC.NpcDialog(This_Player,
   '您灵符不足！\'
   );	  
end else
       This_NPC.NpcDialog(This_Player,
   '您已经捐献过了！\'
   );	   
end;
procedure _sj; 
begin
   if This_Player.Level >= 0 then 
begin
   if This_Player.YBnum >= 0 then 
begin
     if This_Player.getV(96,1)= 1 then
begin
       This_Player.RandomFlyTo('0139~14');
	   ServerSay('玩家<' + This_Player.Name + '>进入了沙捐地图开始传奇之旅!',5); 
   end
   else   
       This_NPC.NpcDialog(This_Player,
               '捐献不够!');
end
else
              This_NPC.NpcDialog(This_Player,
               '捐献不够');
end
else
              This_NPC.NpcDialog(This_Player,
               '捐献不够');
end;
procedure _M3;