游戏多源码网

【战神引擎】自助刷怪脚本

PROGRAM Mir2;{$I common.pas}Procedure _doexit;begin
   This_Npc.CloseDialog(This_Player);end;procedure domain;begin
    This_NPC.NpcDialog(This_Player,
       '☆☆欢迎光临【游戏多博客】刷怪中心☆☆\'         +' 每刷怪一次需要<1元宝/c=red>!\'            +'{cmd}<我要刷怪/@sg>\');end;procedure _sg;begin     if This_Player.YBNum >= 1 then
       begin
        This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,1,1);
        This_NPC.CreateMon('3', 333, 333, 5, '魔龙教主', 1); 
          This_NPC.NpcDialog(This_Player,
           '您刷出了一只魔龙教主,赶快打死它爆终极!');
         end else
         This_NPC.NpcDialog(This_Player,
        '没有足够的元宝,不能刷怪\|'
        +'{cmd}<返回/@main>');end;Begin
  domain;end.


推荐阅读:

【无涯西游】Linux服务端+双端+GM后台+架设教程

【战神引擎】修改数据库密码教程

【战神引擎】修复物品叠加防刷又不影响叠加的使用的教程

发表评论

还没有评论,快来说点什么吧~

联系客服
公众号
公众号
公众号
返回顶部