SRL Archive - Help

How is the most accurate way to inc kills?

Depends on your fighting method.

This is what i have rite now!

Function FindGhoul(Var X,Y: Integer): Boolean;
  var
    CTS,I: Integer;
    TPA: TPointArray;
    begin
  repeat
    Result := False;
    CTS := GetColorToleranceSpeed;

    ColorToleranceSpeed(2);

    SetColorSpeed2Modifiers(0.20, 1.60);

     FindColorsSpiralTolerance(MSCX, MSCY, TPA,(11652298), MSX1, MSY1, MSX2, MSY2, 8);
    ColorToleranceSpeed(CTS);

    if (Length(TPA) < 1) then
      Exit;

    MMouse(TPA[0].X, TPA[0].Y, 5, 5);

    if WaitUpText('ck Gho', 50) then
    begin
      GetMousePos(X, Y);
      ClickMouse2(True);
      Result := True;
      If DidRedClick then
      wait(500 + Random(1050));
      If Infight Then
      Begin
      Inc(Kills);
      End;
      repeat
      DoThePainting;
      Writeln('Killing Ghoul, sorry for this spam!');
      until Not(InFight)or (not OthersInFight) or (not LoggedIn);
      Exit;
    end;
    Until(Result)
    end;