Code: Select all
Program Healing_Hiryu;
const
Mubiao=$00F3; //Hiryu Type
Label Heal;
begin
FindVertical := 25;
FindDistance := 3;
begin
while true do begin
Heal:
if gethp(findtype(Mubiao,ground))>=20 then begin
wait(1000);
goto Heal;
end;
if IsPoisoned(finditem) then begin
cast('Arch Cure');
WaitForTarget(2000);
TargetToObject(finditem);
wait(2000);
end;
if ( gethp(findtype(Mubiao,ground))<20 ) and ( gethp(findtype(Mubiao,ground)) > 0 ) then begin
addtosystemjournal(inttostr(gethp(finditem)));
CancelTarget;
cast('greater heal')
WaitForTarget(2000);
TargetToObject(finditem);
wait(2000);
end;
end;
end;
end.