最新最全最权威的各类手游,端游,页游游戏信息开服信息,尽在游民之家. 订阅微信

战神引擎在线泡点脚本

发表时间:2020-01-08 10:58点击人气:责任编辑:admin

这个是泡点NPC的脚本,这里用的地图名为Q002,可自行添加或修改

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 < 65 then
  begin                 
    This_Player.CallOut(This_Npc, 1, 'MFBG2');
    This_Player.RandomFlyTo('Q002');
    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 < 65 then
   begin
   if CompareText(This_Player.MapName,'Q002') = 0 then
  begin
    This_Player.CallOut(This_Npc, 1, 'MFBG2');
    This_Player.Give('经验',5000000);
    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,
   '等级超过65级。'
   );   
  end;  
 end 
 else
 begin
     This_Player.FlyTo('3', 333, 333);
     This_Npc.NpcDialog(This_Player,
   '元宝不足。'
   ); 
    end;
    end;

 


begin
   This_NPC.NpcDialog(This_Player,
   '激情闭关:\ \'+
   '欢迎来到复古传奇手游私服发布站元宝激情闭关.\ \'+
   '里面将是一个最激情最具有特色危险恐怖的地方.\ \'+
   '想要强大就得快人一步、可以在里面泡到64级哦.\ \'+
   '|{cmd}<◆元宝闭关/@YBBG>');
end.