2 в 1

[W1de]

как объединить 2 скрипта в один?

 

[rsd]

скрипты бы хоть показал

 

[Neophron]

@W1de, вынести один из них в отдельную процедуру.

procedure ScriptName;

Вот, посмотри на примере, как это делается http://rawr.su/topic/2093-s-mira-po-nitke/

 

[W1de]

Спойлер

procedure CheckMp;
var MYPET: TL2NPC;
begin
if (User.MP < 45) then begin //when less then 45% mp
Print('We have low mana level. KOOKABURRA, I NEED YOUR HELP'); //notification, will appear in the bot's SYS tab
PetList.ByID(16035, MYPET);
if (User.DistTo(MYPET) < 700) and not MYPET.InCombat then begin
if not Engine.SetTarget(MYPET) then Print('Something went wrong, cant target my pet.');
Engine.UseSkill(1177,true); // USE ANY SKILL HERE YOU WANT TO ATTACK (1177 HERE IS WIND STRIKE)
Delay(1500);
end else Print('Pet out of range.');
end;
end;
begin
while true do begin
delay(5000);
CheckMp;
end;
end.

Спойлер

procedure burn;
var
P1, P2 : pointer;
Action: TL2Action;
Actor: TL2Live;
SkillID: integer;
begin
try
while Engine.Status = lsOnline do
begin
Action := Engine.WaitAction([laCast], P1, P2);
if Action = laCast then
begin
Actor := TL2Live(P1);
SkillID := Actor.Cast.ID;
if ((Actor.IsMember) and (SkillID = 1398)) then
begin
if Engine.SetTarget(Actor.Target) then
delay(100);
Engine.UseSkill(1398);
delay(100);

end;
end;
end;
except
print ('ProtectCaster error');
end;
end;
begin
Script.NewThread(@burn);
end.

эти два надо

 

[savant]

procedure CheckMp;
var MYPET: TL2NPC;
begin
while true do begin
delay(5000);
if (User.MP < 45) then begin //when less then 45% mp
Print('We have low mana level. KOOKABURRA, I NEED YOUR HELP'); //notification, will appear in the bot's SYS tab
PetList.ByID(16035, MYPET);
if (User.DistTo(MYPET) < 700) and not MYPET.InCombat then begin
if not Engine.SetTarget(MYPET) then Print('Something went wrong, cant target my pet.');
Engine.UseSkill(1177,true); // USE ANY SKILL HERE YOU WANT TO ATTACK (1177 HERE IS WIND STRIKE)
Delay(1500);
end else Print('Pet out of range.');
end;
end;
end;

procedure burn;
var
P1, P2 : pointer;
Action: TL2Action;
Actor: TL2Live;
SkillID: integer;
begin
try
while Engine.Status = lsOnline do
begin
Action := Engine.WaitAction([laCast], P1, P2);
if Action = laCast then
begin
Actor := TL2Live(P1);
SkillID := Actor.Cast.ID;
if ((Actor.IsMember) and (SkillID = 1398)) then
begin
if Engine.SetTarget(Actor.Target) then
delay(100);
Engine.UseSkill(1398);
delay(100);

end;
end;
end;
except
print ('ProtectCaster error');
end;
end;


begin
Script.NewThread(@burn);
Script.NewThread(@CheckMp);
end.

Так попробуй