[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]