请选择 进入手机版 | 继续访问电脑版

手游,服务端,手游资源,手游教程,老炮网络

 找回密码
 立即注册
查看: 184|回复: 2

[视频教程] 战神引擎免费泡点脚本

[复制链接]

1

主题

10

帖子

11

积分

Rank: 1

炮弹
1

新手上路

发表于 2021-5-29 17:32:40 | 显示全部楼层 |阅读模式
网络游戏技术交流
     {
*******************************************************************}

program Mir2;

Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;

function Gaoji0LB(price, num: Integer):boolean;
begin                                               

  result := true;
end;



procedure _SSXL;
begin   
  if This_Player.Level <60 then
  begin                 
    This_Player.CallOut(This_Npc, 10, 'SSXL');
    This_Npc.NpcDialog(This_Player,
   '请好好把握这幸福的时光。'
   );

   end
   else  
   begin
       This_Npc.NpcDialog(This_Player,
   '超过60级不能随身泡点。'
   );   

   end
    end;

procedure SSXL;
begin
   if This_Player.Level < 60 then
     begin
      This_Player.CallOut(This_Npc, 10, 'SSXL');
      This_Player.Give('经验',50000);
      //This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20041,4,1);
      //This_Player.GiveHeroExp(50000,True);
     end
  else  
  begin
       This_Npc.NpcDialog(This_Player,
   '等级超过60级。'
   );   
  end;  
end;

procedure _SSXL2;
begin   

if This_Player.YBNum >= 50 then begin  
    This_Player.CallOut(This_Npc, 10, 'SSXL2');
    This_Npc.NpcDialog(This_Player,
   '请好好把握这幸福的时光。'
   );
      end
   else  
   begin
       This_Npc.NpcDialog(This_Player,
   '好家伙,50元宝都拿不出来?'
   );   

   end;

end;

procedure SSXL2;
begin
         if This_Player.YBNum >= 50 then begin  
      This_Player.CallOut(This_Npc, 10, 'SSXL2');
      This_Player.Give('经验',3000000);
          This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,50,1);
      //This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20041,4,1);
      //This_Player.GiveHeroExp(50000,True);
               end
  else  
  begin
       This_Npc.NpcDialog(This_Player,
   '好家伙,50元宝都拿不出来?'
   );   
  end;  

end;



begin
   This_NPC.NpcDialog(This_Player,
   '欢迎来到免费泡点.\'+
   '|免费随身泡点:|每10秒50000经验,泡点上限为60级\ '+
   '|收费随身泡点:|每10秒300万经验,每10秒收费50元宝\ '+
   '|{cmd} <◆免费随身泡点/@SSXL> <◆收费随身泡点/@SSXL2>');

end.   

17

主题

45

帖子

586

积分

Rank: 1

炮弹
541

新手上路

发表于 2021-6-18 23:25:06 来自手机 | 显示全部楼层
网络游戏技术交流
强烈支持楼主ing……

0

主题

10

帖子

30

积分

Rank: 1

炮弹
20

新手上路

发表于 3 天前 | 显示全部楼层
网络游戏技术交流
好东西支持
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

网络游戏技术交流

更多资源请关注公众号

QQ|Archiver|手机版|小黑屋|老炮网 ( 鲁ICP备19024250号-1 )|网站地图

GMT+8, 2021-8-3 08:29 , Processed in 0.093750 second(s), 21 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表