Code: Select all
Begin
p:=0;
while true do
begin
i:=0;
if p = 10 then DisConnect;
while i < 30 do
begin
repeat
{if TargetPresent then
begin
CancelTarget;
Wait(1000);
end;}
b:=Now;
WaitTargetObject($0113DC1E); //ID of your pet which is provoked
wait(1000);
UseSkill('Provocation');
until WaitJournalLine(b, 'Select a target to provoke this onto|You enrage|I am already',10000); //serching in journal
if WaitJournalLine(b, 'Select a target to provoke this onto',1) then
begin
WaitForTarget(2000);
begin
TargetToObject($0113DD97); {ID of pet 2}
wait(2000);
p := 0;
end;
end;
if WaitJournalLine(b, 'You enrage',1) then
begin
p := 0;
wait(3000);
end;
if WaitJournalLine(b, 'I am already',1) then
begin
p := p + 1;
Wait(2000);
end;
i := i + 1;
end;
Hungry(1);
end; {end while}
End.
Code: Select all
Begin
p:=0;
while true do
begin
i:=0;
while i < 30 do
if p = 20 then DisConnect;
begin
repeat
if TargetPresent then
begin
CancelTarget;
Wait(1000);
end;
b:=Now;
WaitTargetObject($0113DC1E); //ID of your pet which is provoked
wait(1000);
UseSkill('Provocation');
until WaitJournalLine(b, 'Select a target to provoke this onto|You enrage|I am already',5000); //serching in journal
WaitForTarget(1000);
if TargetPresent then
begin
TargetToObject($0113DD97); //ID of pet which is a target for the first one
p := 0;
wait (1500);
end;
else
p := p + 1;
end;
i := i + 1;
end;
Hungry(1);
end; {end while}
End.