Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Target Hanging error

Only working scripts
Post Reply
chrisok1
Neophyte
Neophyte
Posts: 13
Joined: 01.04.2013 23:08

Target Hanging error

Post by chrisok1 »

Has anyone successfully found a way to circumvent target hanging? Everyone who knows anything only speaks russian and uses google translate to no help for me.

////GreaterHeal////
Procedure GreaterHeal;
begin
if (GetHP(self) < (GetMaxHP(self) - 10)) then
begin
Cast('Greater Heal');
if TargetPresent then TargetToObject(Self);
end;
end;
Procedure CheckJournal;
begin
WaitJournalLine (Now,'In Vas Mani',1000);
if (InJournalBetweenTimes('In Vas Mani',ctime,Now)<>-1) then greaterheal;
wait(500);
begin
ClearJournal
end;
end;
Procedure ScriptLove;
begin
repeat
if (mana > 15) then checkjournal;
wait(500);
until dead
end;

begin
ScriptLove;
end.

When running, itll send way too many targets to client to targetself; You have to use a skill a few times to clear the target. Any ideas how to go around this?

This also happens when checking pet id's using
procedure Heapet;
begin
waitconnection(5000);
while (GetHP(Pet) < (GetMaxHP(Pet) - 10)) do
begin
if (Count($0F85) > 0) and (Count($0F84) > 0) and (Count($0F86) > 0) and (Count($0F8D) > 0) then
begin
ctime := Now;
Cast('Greater Heal');
WaitForTarget(2300);
if targetpresent and not IsPoisoned(Pet) then
begin
TargetToObject(Pet);
end;
repeat
wait(6000);
If (GetHP(Pet)=GetMaxHP(Pet)) then exit;
until (GetHP(Pet)=GetMaxHP(Pet));
end;
end;
if (GetHP(Pet)=GetMaxHP(Pet)) then addtosystemjournal('Fully Healed');
end;

Both ways get hung up.
Post Reply