玩家自助花元宝刷魔龙教主教程

玩家通过消费元宝，自助刷魔龙教主的脚本，里面的消费的元宝和怪物都可以任意修改，脚本是明文的，详细如下：

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.