用于战神引擎的聚灵珠兑换经验脚本，支持大+中+小三种类型的聚灵珠，兑换以后，可以直接吃掉给英雄增加经验值，脚本文件是单文本，添加起来非常的简单。

部分脚本

program Mir2;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
 procedure _dhd;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(大)') >= 1) then
   begin
        This_Player.Take('聚灵珠(大)',1);
        This_Player.Give('英雄聚灵珠(大)',1);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(大)不够,至少需要1个聚灵珠(大)！'); 
  end;
 procedure _dhd1;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(大)') >= 1) then
   begin
        This_Player.Take('聚灵珠(大)',1);
        This_Player.Give('英雄聚灵珠(大)',1);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(大)不够,至少需要1个聚灵珠(大)！'); 
  end;
   procedure _dhd2;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(大)') >= 2) then
   begin
        This_Player.Take('聚灵珠(大)',2);
        This_Player.Give('英雄聚灵珠(大)',2);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(大)不够,至少需要2个聚灵珠(大)！'); 
  end;
   procedure _dhd5;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(大)') >= 5) then
   begin
        This_Player.Take('聚灵珠(大)',5);
        This_Player.Give('英雄聚灵珠(大)',5);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(大)不够,至少需要5个聚灵珠(大)！'); 
  end;
   procedure _dhd10;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(大)') >= 10) then
   begin
        This_Player.Take('聚灵珠(大)',10);
        This_Player.Give('英雄聚灵珠(大)',10);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(大)不够,至少需要10个聚灵珠(大)！'); 
  end; 
   procedure _dhd20;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(大)') >= 20) then
   begin
        This_Player.Take('聚灵珠(大)',20);
        This_Player.Give('英雄聚灵珠(大)',20);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(大)不够,至少需要20个聚灵珠(大)！'); 
  end;   
    procedure _dhd50;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(大)') >= 50) then
   begin
        This_Player.Take('聚灵珠(大)',50);
        This_Player.Give('英雄聚灵珠(大)',50);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(大)不够,至少需要50个聚灵珠(大)！'); 
  end;  
 procedure _jlzd;
 begin
   This_Npc.NpcDialog(This_Player,
   '|少侠，如果你手上有<聚灵珠(大)/c=red>\'+
   '|我可以免费帮你兑换成<英雄聚灵珠(大)/c=red>\'+
   '|{cmd}<【兑换1个】/@dhd1><【兑换2个】/@dhd2>\' +
   '|　　　　　　　　　　　　　　　　　　\'+
   '|{cmd}<【兑换5个】/@dhd5><【兑换10个】/@dhd10>\' +
   '|　　　　　　　　　　　　　　　　　　\'+
   '|{cmd}<【兑换20个】/@dhd20><【兑换50个】/@dhd50>\' +
   '|　　　　　　　　　　　　　　　　　　\'
    ); 
end; 
  procedure _dhz1;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(中)') >= 1) then
   begin
        This_Player.Take('聚灵珠(中)',1);
        This_Player.Give('英雄聚灵珠(中)',1);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(中)不够,至少需要1个聚灵珠(中)！'); 
  end;
   procedure _dhz2;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(中)') >= 2) then
   begin
        This_Player.Take('聚灵珠(中)',2);
        This_Player.Give('英雄聚灵珠(中)',2);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(中)不够,至少需要2个聚灵珠(中)！'); 
  end;
   procedure _dhz5;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(中)') >= 5) then
   begin
        This_Player.Take('聚灵珠(中)',5);
        This_Player.Give('英雄聚灵珠(中)',5);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(中)不够,至少需要5个聚灵珠(中)！'); 
  end;
   procedure _dhz10;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(中)') >= 10) then
   begin
        This_Player.Take('聚灵珠(中)',10);
        This_Player.Give('英雄聚灵珠(中)',10);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(中)不够,至少需要10个聚灵珠(中)！'); 
  end; 
  procedure _dhz20;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(中)') >= 20) then
   begin
        This_Player.Take('聚灵珠(中)',20);
        This_Player.Give('英雄聚灵珠(中)',20);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(中)不够,至少需要20个聚灵珠(中)！'); 
  end;  
    procedure _dhz50;
 begin
 if (This_Player.GetBagItemCount ('聚灵珠(中)') >= 50) then
   begin
        This_Player.Take('聚灵珠(中)',50);
        This_Player.Give('英雄聚灵珠(中)',50);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的聚灵珠(中)不够,至少需要50个聚灵珠(中)！'); 
  end;