SRL Archive - Help

Is there anything wrong with this code?

program TheivingNearReality;
{$i SRL/SRL.simba}

Procedure StartTheiving;

var
   x, y:Integer;
    begin
    if FindColorSpiralTolerance(x, y, 3850947, 9, 0, 515, 316, 5) then // Colors[i] represents a single color
    begin
      {MoveMouse(x, y);
      ClickMouse(x, y, 1);}
     end;
   end;
  begin
 StartTheiving;
  repeat
  StartTheiving;
 until(false);
  end.   

Doesnt seem to do anything. Its for an rsps.

I just want it to find a monster and then click on it.

I fixed your standards and added the SetupSRL that you were missing:

program TheivingNearReality;
{$i SRL/SRL.simba}

Procedure StartTheiving;
var
  x, y: Integer;
begin
  if FindColorSpiralTolerance(x, y, 3850947, 9, 0, 515, 316, 5) then
    Mouse(x, y, 0, 0, mouse_left);
end;

begin
  SetupSRL;
  repeat
    StartTheiving;
  until(false);
end.

^ That will end up spam clicking whatever you're trying to pickpocket, though. You need to either add a static wait after each time you click, or use some other method to find out what's going on after clicking (like looking at the chat box).

Thank you so much. Reped

Guys can anyone tell me what would be the easiest way to do the following:

When it sees that its low hp it click a super restore in the inventory (Inve is full of super restores and nothing else) This is for an RSPS so I want it to be the simplest method. I cant figure out how it would click an inve spot 6 times (finish a super restore flask) and then click the other 27 spots 6 times.

Thank you

Try this:

var
  PotArray: TIntegerArray;

// Declare as a global var
// ...

procedure SetupPots;
var
  hPot, i: Integer;
begin
  SetLength(PotArray, 28);
  for i := 1 to 28 do
  begin
    if (i > 1) and (PotArray[i - 1] <> 0) then
    begin
      PotArray[i] := 6;
      Continue;
    end;
    MouseItem(i, mouse_move);
    if WaitUptext('mpty', 300) then
    begin
      PotArray[i] := 0;
      Continue;
    end;
  end;
  hPot := High(PotArray);
  if (PotArray[hPot] = 0) then
    Writeln('Out of super restore pots!');
end;

function DrinkDose: Boolean;
var
  x, y, i: Integer;
begin
  Result := False;
  for i := 1 to 28 do
  begin
    if (PotArray[i] <> 0) then
    begin
      MouseItem(i, mouse_move);
      if WaitUptext('mpty', 300) then
      begin
        PotArray[i] := 0;
        Continue;
      end else
      begin
        IncEx(PotArray[i], -1);
        GetMousePos(x, y);
        ClickMouse2(mouse_left);
        Writeln('Drank a dose of super restore!');
        Result := True;
        Exit;
      end;
    end;
  end;
end;

// ...

begin
  SetupSRL;
  SetupPots;
  repeat
    StartThieving;
    if (HPPercent < 70) then
      DrinkDose;
    WaitThieving;
  until(false);
end.