SRL Archive - RuneScape News and General

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

function Fighting(WaitFor: Integer): Boolean;
var
  Colors: TIntegerArray;
  Count, hColors, i, t: Integer;
begin
  Result := False;
  Colors := [10240, 9728];
  hColors := High(Colors);
  MarkTime(t);
  repeat
    for i := 0 to hColors do
    begin
      Count := CountColorTolerance(Colors[i], MSCX - 30, MSCY - 100, MSCX, MSCY - 50, 5);
      Result := (Count > 500);
      if Result then
      begin
        Writeln('Fighting...');
        Exit;
      end;
    end;
  until(TimeFromMark(t) > WaitFor);
  if not Result then
    Writeln('Not fighting...');
end;

Procedure Attack;
var
  x, y: Integer;
begin
  if not Fighting(1000) then
  begin
    if FindColorSpiralTolerance(x, y, 4490629, 9, 0, 515, 316, 5) then
    begin
      Mouse(x, y, 0, 0, mouse_left);
      Wait(1000+Random(1000));
      while Fighting(2000) do
        Wait(1000);
    end;
  end;
end;

Procedure Inve;
var
  x, y: Integer;
begin
  if FindColorSpiralTolerance(x, y, 2070783, 705, 55, 764, 83, 5) then
  begin
    if FindColorSpiralTolerance(x, y, 5585285, 558, 211, 733, 464, 5) then
      Mouse(x, y, 0, 0, mouse_left);
  end;
end;

begin
  SetupSRL;
  repeat
    Attack;
    Inve;
  until(false);
end.                                     

or

   program Theiving;
var
  time: integer;

Procedure StartTheiving;
var
  x, y:Integer;
begin
  if FindColorSpiralTolerance(x, y, 2968144, 226, 79, 514, 296, 179) then
      MoveMouse(x, y); //Don't use Move Mouse  (see below)
      ClickMouse(x, y, 1);
      Wait(80000);
    end;

begin
  StartTheiving
  repeat
    StartTheiving;
  until(false);
  end.program new;
  begin
end.                             

Would they be compatible? and would it be an easy "Jagex ban me"

Thanks

MMouse(X,Y,5,5);

ClickMouse2(mouse_left);

If you some stuff in them they might, MSCY and etc are srl constants for official runescape, it looks very "ban me" from my PoV

Add random waits within random waits and like danny said above more then mmouse(x,y,1,1)