[sup] procedure killcow    ;  
begin
    cow[1]:=$00D8;
    cow[2]:=$00E7;
      while weight < 340 do
      begin
      FindDistance := 20;
      if (FindType(cow[1],Ground)>0) then
      begin;
      attack(FindItem);
      while GetDistance(FindItem)>2 do
      begin
          NewMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
          wait(3000);
        end ; 
        end; 
       if (FindType(cow[2],Ground)>0) then
      begin;
      attack(FindItem);
      while GetDistance(FindItem)>2 do
      begin
          NewMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
          wait(3000);
        end ;  
         end;
      FindDistance := 2;    
      if FindType($2006,Ground)<>0 then
                begin
                Corpse:=FindItem; 
                WaitTargetObject(Corpse);
                UseType(cleaver,$FFFF);
                UseObject(Corpse); 
                end
              
      end
      end; [/sup]