program melting;

const
shield = $1B7B;
tunic = $13BF;

function findbs(creatures : array of word) : cardinal;
var
	i : integer;
begin
	result := 0;

	for i := 0 to getArrayLength(creatures) - 1 do
	begin
		result := findType(creatures[i], ground);
		if (result <> 0) then exit;
	end;
end;

begin

while not Dead do
begin
	finddistance := 5;

	if findbs([shield, tunic]) <> 0 then
	begin
		usetype($0FBB, $FFFF);
		waittargetobject(finditem);
	end;
	wait(1000);
end;

end.