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.
原文链接:https://www.gmduo.com/160.html,转载请注明出处~~~
评论0