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.
