haoda 发表于 2019-9-6 17:50:02

自助刷怪脚本

新建NPC，然后复制以下内容


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.

以上内容里的怪物，刷怪价格请自行修改哦

页: [1]
查看完整版本: 自助刷怪脚本