Procedure Kill var integer CurrentMob Cardinal Mobtype array of Cardin

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;