function Slaughter: boolean; //Player kills innocent cows.{Modified from Harri's Karamja Fisher}
var
  Colors: array of integer;
  Cow, Calf: TNPC;
  Cows, Calves: TNPCArray;
  P: TPoint;
  KillCowTime, srch, FindFail: Integer;
begin
  if not LoggedIn then Exit;
  R_FindRandoms;
  if (TimeFromMark(KillCowTime) > 30000)then
    WalkPath([Tile(3161, 3321)]);
  if (TimeFromMark(KillCowTime) > 120000) then
    ColorSlaughter;
  MakeCompass('North');
  SetAngle(True);
  Wait(100+Random(30));
  SetRun(True);
  Calves := SortNPCs(GetNPCs('Calf'));
  Writeln('0');
  Cows := SortNPCs(GetNPCs('Cow'));
  Writeln('1');
  if Calf.Fighting or Cow.Fighting then Exit;
  Writeln('2');
  for srch := 0 to 3 do
  begin
    Writeln('3');
    try P := TileToMS(Cows[0].Tile, 20);
      except
        begin
          try P := TileToMS(Calves[0].Tile, 20);
            except begin Writeln('Failed to find cows!'); Exit; end;
          end;
          Writeln('4c');
          Mouse(P.X, P.Y, 10, 10, False)
          Result := r_WaitOption('tac', 1000);
          if (not Result) then
          begin
            r_WaitOption('ancel', 500);
            Inc(FindFail);
          end else
          begin
            if (R_FlagExists) then
              R_Flag;
            MarkTime(KillCowTime);
            repeat
              R_FindRandoms;
              Wait(200+Random(300));
              if hInvFull then Bill;
            until (not AreWeInteracting(Calf)) or (TimeFromMark(KillCowTime) > 30000);
            IncEx(Deaded, 1);
            if (not LoggedIn) or LobbyScreen then Exit;
            GetLoot;
            if hInvFull then Bill;
          end;
        end;
    Mouse(P.X, P.Y, 10, 10, False);
    Writeln('4b');
    Result := r_WaitOption('tac', 1000);
    if (not Result) then
    begin
      r_WaitOption('ancel', 500);
      Inc(FindFail);
    end else
    begin
      if (R_FlagExists) then
        R_Flag;
      MarkTime(KillCowTime);
      repeat
        R_FindRandoms;
        Wait(200+Random(300));
        if hInvFull then Bill;
      until (not AreWeInteracting(Cow)) or (TimeFromMark(KillCowTime) > 30000);
      IncEx(Deaded, 1);
      if (not LoggedIn) or LobbyScreen then Exit;
      GetLoot;
      if hInvFull then Bill;
    end;
  end;
  end;
end;