Procedure Kill;
var
i : integer;
CurrentMob : Cardinal;
Mobtype: array of Cardinal;
begin
while not dead do
begin
FindDistance:=29;
Mobtype := [$0046, $0046, $0046, $0046];
for i := 0 to Length(Mobtype) -1 do
begin
if (FindType(Mobtype[e],ground) > 0) then
begin
CurrentMob:=FindItem;
Attack(CurrentMob);
while not dead and (GetHP(CurrentMob)<>0) do
begin
if FindType($000A,ground) = 0 then
begin
UOSAY('.MorphDem');
wait(500);
end;
while (GetDistance(CurrentMob) > 1) do
begin
Attack(CurrentMob);
NewMoveXY(GetX(CurrentMob),GetY(CurrentMob), True, 1, True);
end;
Blood;
wait(50);
end;
Loot;
end;
wait(50);
end;
end;
end;