|
|
{
*******************************************************************}
program Mir2;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
function Gaoji0LB(price, num: Integer):boolean;
begin
result := true;
end;
procedure _SSXL;
begin
if This_Player.Level <60 then
begin
This_Player.CallOut(This_Npc, 10, 'SSXL');
This_Npc.NpcDialog(This_Player,
'请好好把握这幸福的时光。'
);
end
else
begin
This_Npc.NpcDialog(This_Player,
'超过60级不能随身泡点。'
);
end
end;
procedure SSXL;
begin
if This_Player.Level < 60 then
begin
This_Player.CallOut(This_Npc, 10, 'SSXL');
This_Player.Give('经验',50000);
//This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20041,4,1);
//This_Player.GiveHeroExp(50000,True);
end
else
begin
This_Npc.NpcDialog(This_Player,
'等级超过60级。'
);
end;
end;
procedure _SSXL2;
begin
if This_Player.YBNum >= 50 then begin
This_Player.CallOut(This_Npc, 10, 'SSXL2');
This_Npc.NpcDialog(This_Player,
'请好好把握这幸福的时光。'
);
end
else
begin
This_Npc.NpcDialog(This_Player,
'好家伙，50元宝都拿不出来？'
);
end;
end;
procedure SSXL2;
begin
if This_Player.YBNum >= 50 then begin
This_Player.CallOut(This_Npc, 10, 'SSXL2');
This_Player.Give('经验',3000000);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,50,1);
//This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20041,4,1);
//This_Player.GiveHeroExp(50000,True);
end
else
begin
This_Npc.NpcDialog(This_Player,
'好家伙，50元宝都拿不出来？'
);
end;
end;
begin
This_NPC.NpcDialog(This_Player,
'欢迎来到免费泡点.\'+
'|免费随身泡点：|每10秒50000经验,泡点上限为60级\ '+
'|收费随身泡点：|每10秒300万经验,每10秒收费50元宝\ '+
'|{cmd} <◆免费随身泡点/@SSXL> <◆收费随身泡点/@SSXL2>');
end.
|
评分
-
查看全部评分
|
发表于 2021-5-29 17:32:40
