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.
声明:本站所有内容,所有视频,所有素材,如无特殊说明或标注,均来自互联网(为站长正常采集收录)。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理或删除