战神引擎固定灵符捐献+永久属性Npc脚本

用于战神引擎使用灵符捐献，捐献的灵符是固定数量的，没有捐献排名，所有捐献的玩家可以获得对应的属性，属性可以一直保留，不需要重复捐献，捐献以后，可以进入对应的捐献地图，脚本是明文版的，可以任意修改里面的捐献所需要的灵符和属性还有进入地图的编号。

部分脚本

procedure _M7; 
begin
     if This_Player.getV(96,1) < 7 then begin if This_Player.Level >= 100 then 
   begin
     if This_Player.getV(96,1)= 6 then
	 begin
       if This_Player.GetBagItemCount ('七转证明') >= 1 then
	     begin
          if This_Player.MyLFnum >= 400 then
		   begin
		   This_Player.DecLF(0,400,false);	
	       This_Player.SetV(96,1,7);
		   This_Player.Take('七转证明',1);
           This_Player.Give('七转神笠',1);
		   	    	 This_Player.SetPlayerLevel(This_Player.Level-5); 	
           This_Player.DecLF(0,400,false);	
		           _pangu(114);		   
	    This_Player.MyShengwan := This_Player.MyShengwan+10;			   		   
		   ServerSay('真男人【' + This_Player.Name + '】历经千辛万苦完成了七转重生！！',3); 
		   	end else
            This_NPC.NpcDialog(This_Player,
            '您红包不足400元！\'
             );
	  end else
       This_NPC.NpcDialog(This_Player,
   '您没有七转证明！\'
   );
   	end else
       This_NPC.NpcDialog(This_Player,
   '您还没有六转重生过，做人要脚踏实地一步一个脚印！\'
   );
end else
       This_NPC.NpcDialog(This_Player,
   '您等级不足100级无法转生！\'
   );	 
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('R001~88');
	   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;
  // if This_Player.YBnum >= 8000 then 
begin
This_Npc.NpcDialog(This_Player,
   '<　　　　　　　　　　　　　　　　　　　　/c=red>\'+
   '|　　　　　　　　　　　　　　　　　　　　　\'+
   '|<注意/fcolor=103>：   <主属性/fcolor=242>     +     <100/fcolor=254>      伤害+100%爆率\'+
   '|{cmd}<【捐献3000灵符（永久）】/@M1>\'+    
   '|{cmd}<【沙捐地图】/@sj>\'
   ); 
end.

分享到：

赞(0)