{
*******************************************************************}

program Mir2;

Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;

function Gaoji0LB(price, num: Integer):boolean;//By 战神交流群:16160349
begin

result := true;
end;

procedure _goToMonMap;
begin
if This_Player.Level < 65 then
begin
This_Player.CallOut(This_Npc, 1, ‘MFBG2’);//By 战神交流群:16160349
This_Player.RandomFlyTo(‘Q004~2’);
ServerSay(‘玩家<‘ + This_Player.Name + ‘>进入了免费泡点,每秒享受12800经验!’, 2);
This_Npc.NpcDialog(This_Player,
‘免费泡点最高可以升到65哦。’
);

end
else
begin
This_Player.FlyTo(‘3’, 333, 333);
This_Npc.NpcDialog(This_Player,
‘你已经65级了。’
);
end;
end;

procedure MFBG2;
begin
if This_Player.Level < 65 then
begin
if CompareText(This_Player.MapName,’Q004~2′) = 0 then
begin
This_Player.CallOut(This_Npc, 1, ‘MFBG2’);
This_Player.Give(‘经验’,12800);
end;
end
else
begin
This_Player.FlyTo(‘3’, 333, 333);//By 战神交流群:16160349
This_Npc.NpcDialog(This_Player,
‘等级超过65级。’
);
end;
end;

procedure _YBBG;
begin
if This_Player.MyLFnum >= 40 then
begin
if This_Player.Level < 68 then
begin
This_Player.CallOut(This_Npc, 1, ‘MFBG3’);
This_Player.RandomFlyTo(‘Q004~2’);
ServerSay(‘玩家<‘ + This_Player.Name + ‘<进入了灵符泡点,每秒享受280000经验!’, 2);
This_Npc.NpcDialog(This_Player,
‘请好好把握这幸福的时光。’
);

end
else
begin
This_Player.FlyTo(‘3’, 333, 333);
This_Npc.NpcDialog(This_Player,
‘您已经68级了。’
);
end;
end
else
begin
This_Player.FlyTo(‘3’, 333, 333);
This_Npc.NpcDialog(This_Player,
‘您的灵符不足了。’
);
end;
end;

procedure MFBG3;
begin
if This_Player.MyLFnum >= 40 then
begin
if This_Player.Level < 68 then
begin
if CompareText(This_Player.MapName,’Q004~2′) = 0 then
begin
This_Player.CallOut(This_Npc, 1, ‘MFBG3’);
This_Player.Give(‘经验’,280000);
This_Player.DecLF(0,40,false);

end;
end
else
begin
This_Player.FlyTo(‘3’, 333, 333);
This_Npc.NpcDialog(This_Player,
‘等级超过68级。’
);
end;
end
else
begin
This_Player.FlyTo(‘3’, 333, 333);
This_Npc.NpcDialog(This_Player,
‘您的灵符不足了。’
);
end;
end;

begin
This_NPC.NpcDialog(This_Player,
‘<免费泡点:每秒12800经验.散人专用,可泡到65级/c=red> |\’
+'<灵符泡点:每秒28万经验.每秒扣40点灵符,可泡到68级/c=red> |\’
+’免费泡点和灵符泡点同在一个地图哦,是可以打架的! \’
+’|{cmd}<免费泡点/@goToMonMap> \’//By 战神交流群:16160349
+’|{cmd}<灵符泡点/@YBBG> \’
);

end.