program guard;

const
slime = $0000;
elem = $0000;
human = $0190;
human2 = $0191;
heal_pot = $0000;
bandage_type = $0000;

procedure CheckHeal;
begin
  If Life < MaxHits then
  begin
    while Life < Str do
    begin
      if isDead(self) then exit;
		if Life < 35 then usetype(heal_pot, $FFFF);
      	waittargetself();
      	usetype(bandage_type, $FFFF);
      	wait(4500);
      addtosystemjournal('SYS: Healing.');
    end;
  end;
end;


begin
	var target_x, target_y : integer;

	while not Dead do
	begin
		finddistance := 10;

		if (findtype(slime, ground) <> 0 OR findtype(elem, ground) <> 0 OR findtype(human, ground) <> 0 OR findtype(human2, ground) <> 0) then
		begin
		      addtosystemjournal('SYS: Found.');
		      target_x = getX(finditem);
		      target_y = getY(finditem);
		      	moveXY(target_x, target_y, true, 1, true)
		        repeat
		        	attack(finditem);
					wait(1000);
		      		checkHeal();
		      	until getHP(findtem) = 0;
		      	wait(2000);
		      	moveXY(1656, 2930, true, 0, false);
		      	repeat
		      		useskill(Hiding);
		      		wait(1000);
		      	until isHidden(self) = true;
		end;
	end;
end.