战神引擎在线泡点脚本
这个是泡点NPC的脚本,这里用的地图名为Q002,可自行添加或修改
program Mir2;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
function Gaoji0LB(price, num: Integer):boolean;
begin
result := true;
end;
procedure _YBBG;
begin
if This_Player.YBNum >= 1 then
begin
if This_Player.Level < 65 then
begin
This_Player.CallOut(This_Npc, 1, 'MFBG2');
This_Player.RandomFlyTo('Q002');
This_Npc.NpcDialog(This_Player,
'请好好把握这幸福的时光。'
);
end
else
begin
This_Player.FlyTo('3', 333, 333);
This_Npc.NpcDialog(This_Player,
'不在指定地图。'
);
end;
end
else
begin
This_Player.FlyTo('3', 333, 333);
This_Npc.NpcDialog(This_Player,
'元宝不足了。'
);
end;
end;
procedure MFBG2;
begin
if This_Player.YBNum >= 1 then
begin
if This_Player.Level < 65 then
begin
if CompareText(This_Player.MapName,'Q002') = 0 then
begin
This_Player.CallOut(This_Npc, 1, 'MFBG2');
This_Player.Give('经验',5000000);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,1,1);
end
else
begin
This_Player.FlyTo('3', 333, 333);
This_Npc.NpcDialog(This_Player,
'不在指定地图。'
);
end;
end
else
begin
This_Player.FlyTo('3', 333, 333);
This_Npc.NpcDialog(This_Player,
'等级超过65级。'
);
end;
end
else
begin
This_Player.FlyTo('3', 333, 333);
This_Npc.NpcDialog(This_Player,
'元宝不足。'
);
end;
end;
begin
This_NPC.NpcDialog(This_Player,
'激情闭关:\ \'+
'欢迎来到复古传奇手游私服发布站元宝激情闭关.\ \'+
'里面将是一个最激情最具有特色危险恐怖的地方.\ \'+
'想要强大就得快人一步、可以在里面泡到64级哦.\ \'+
'|{cmd}<◆元宝闭关/@YBBG>');
end.
- 上一篇:战神引擎1.85合击版本上线自动过验证脚本
- 下一篇:战神引擎娱乐脚本