战神引擎激情闭关 泡点脚本

admin

     {
*******************************************************************}

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.   

chuanqibang

哥顶的不是帖子，是寂寞！

ming19890823

哥需要这个脚本啊