【战神引擎】泡点中心脚本

     {*******************************************************************}program Mir2;Procedure _doexit;begin
   This_Npc.CloseDialog(This_Player);end;function Gaoji0LB(price, num: Integer):boolean;begin                                               
  result := true;end;procedure _YBBG; begin            
if This_Player.YBNum >= 1 then  
begin   
if This_Player.Level < 50 then
  begin                 
    This_Player.CallOut(This_Npc, 1, 'MFBG2');
    This_Player.RandomFlyTo('Q004~2');
    This_Npc.NpcDialog(This_Player,
   '请好好把握这幸福的时光。'
   ); 
   
   end 
   else  
   begin
       This_Player.FlyTo('3', 333, 333);
       This_Npc.NpcDialog(This_Player,
   '不在指定地图。'
   );   
   end; 
  end 
  else  
  begin
       This_Player.FlyTo('3', 333, 333);
       This_Npc.NpcDialog(This_Player,
   '元宝不足了。'
   );   
  end; 
    end; procedure MFBG2;begin   if This_Player.YBNum >= 1 then
   begin   if This_Player.Level < 49 then
   begin   if CompareText(This_Player.MapName,'Q004~2') = 0 then
  begin
    This_Player.CallOut(This_Npc, 1, 'MFBG2');
    This_Player.Give('经验',250000);
    This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,1,1);
    
   end 
   else  
   begin
       This_Player.FlyTo('3', 333, 333);
       This_Npc.NpcDialog(This_Player,
   '不在指定地图。'
   );   
   end; 
  end 
  else  
  begin
       This_Player.FlyTo('3', 333, 333);
       This_Npc.NpcDialog(This_Player,
   '等级超过48级。'
   );   
  end;  
 end 
 else
 begin
     This_Player.FlyTo('3', 333, 333);
     This_Npc.NpcDialog(This_Player,
   '元宝不足。'
   ); 
    end;
    end;
 begin
   This_NPC.NpcDialog(This_Player,
   '激情闭关：\ \'+
   '欢迎来到元宝激情闭关.\ \'+
   '里面将是一个最激情最具有特色危险恐怖的地方.\ \'+
   '想要强大就得快人一步、可以在里面泡到48级哦.\ \'+
   '|{cmd}<◆元宝闭关/@YBBG>');end.