用于战神引擎的玩家边泡点边获得元宝的教程，是给玩家元宝，不是扣玩家元宝的NPC脚本，之前在端游里面很常见，脚本默认是没10秒给一个元宝，明文版的，根据自己的要求，资源设置时间和给与数量。

部分脚本

program mir2;  
{$I WarehouseAndMbind.pas} 
{$I ActiveValidateCom.pas}
procedure _DoExit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
procedure _Exit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
procedure _goToMonMap; 
var
  i: integer;
begin
  if (GetHour >= 13) or (GetDay <> 11) or (GetMonth <> 4) then     // Month月份 、 day日期 、 hour小时
  begin
    i := Random(1);
    if i = 1 then
      This_Player.Flyto('M101~8', 22, 33)
    else
      This_Player.Flyto('M101~8', 16, 37);
	  This_Player.CallOut(This_Npc, 1, 'MFGG2');
	This_Player.PlayerNotice('祝你游戏愉快去探索大陆吧！', 2);
  end
  else
    This_Player.PlayerNotice('勇士请耐心等待!必须到13点才可以离开！', 0);
end;
   procedure MFGG2;
   begin
   if This_Player.Level < 35 then
   begin
   if CompareText(This_Player.MapName,'M101~8') = 0 then
  begin
    This_Player.CallOut(This_Npc, 1, 'MFGG2');
    This_Player.Give('经验',8000);
   end; 
  end  
   else   
  begin
       This_Player.FlyTo('3', 333, 333);
       This_Npc.NpcDialog(This_Player,
   '你已经35级了，可以闯荡玛法大陆了！'
   );   
  end;  
end;
procedure _YBBG;