SRL Archive - Other Scripts

it gets stuck straight away after right clicking on the diamonds…

someone has already told me it works for them…
so why doesnt it work for me???

program Crafter;
var
  x1, ShopX, ShopY: Integer;


procedure FindClient;
var
  I: Integer;
begin
  for I := 0 to 600 do
  begin
    if (GetColor(I, 420) = 2437688) then x1 := I;
    if x1 > 0 then
    begin
      WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
      Exit;
    end;
  end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
  MoveMouse(x-258+x1, y);
  Wait(70);
  ClickMouse(x-258+x1, y, Left);
  Wait(70);
  Wait(7000);
end;

function ShopScreen: Boolean;
begin
  Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
  I: Integer;
begin
  while ShopScreen do
  begin
    MoveMouse(697-258+X1, 37);
    Wait(30);
    ClickMouse(697-258+X1, 37, True);
    while ShopScreen and (I < 350) do
    begin
      Wait(10);
      Inc(I);
    end;
    if I < 350 then Exit;
    I := 0;
  end;
end;



function OpenShop: Boolean;
var
  x, y, I, II, III, A: Integer;
  NewX: Integer;
begin
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(ShopX-257+X1, ShopY);
    while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
    begin
      Wait(10);
      A := A + 1;
      if A = 150 then
      begin
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        MoveMouse(ShopX-257+X1, ShopY);
      end;
      if A = 300 then
      begin
        for A := 300 to 400 do
        begin
          NewX := ShopX+A-300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
          NewX := ShopX-A+300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
        end;
        if A < 400 then ShopX := NewX
        else TerminateScript;
      end;
    end;
    ClickMouse(ShopX-257+X1, ShopY, False);
    III := 0;
    while (III < 50) do
    begin
      if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
      begin
        ClickMouse(ShopX, Y+20, True);
        Break;
      end;
      Inc(III);
      Wait(5)
    end;
    if III > 49 then Continue;
    //Wait(100);
    //ClickMouse(ShopX-258+X1, ShopY+42, True);
    I := 0;
    repeat
      Wait(10);
      I := I+1;
    until(ShopScreen or (I > 200));
  until(ShopScreen);
  MoveMouse(445-258+X1, 130);
  Wait(50);
  ClickMouse(445-258+X1, 130, False);
  while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  ClickMouse(435-258+X1, 216, True);
  Wait(50);
  CloseShop;
  repeat
    Wait(10);
    II := II+1
  until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
  x, y: Integer;
begin
  MoveMouse(970, 445);
  Wait(50);
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(953-258+X1, 445);
    Wait(10);
    ClickMouse(953-258+X1, 445, True);
    Wait(40);
    MoveMouse(931-258+X1, 445);
    Wait(10);
    ClickMouse(931-258+X1, 445, True);
    Wait(40);
  until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(15);
end;

begin
  Wait(3000);
  FindClient;
  //GetMousePos(ShopX, ShopY);
  ShopX := 517;
  ShopY := 167;
  repeat
    Clicks;
    OpenShop;
  until(false);
end.

found out that by removing this line the script works for me…

while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);

^ that code finds a color, but only that one specific color.

if it can find the color, it will just endlessly do the wait(5) command.

always use tolerance!

also, why dont u use srl?

This isnt my script… its someone elses which doesn't work for me…

this also bots on a private server not runescape could SRL still be used?

From: hello to you all
This isnt my script… its someone elses which doesn't work for me…

this also bots on a private server not runescape could SRL still be used?

Yes :)

also where it opens shop it sometimes completely misses the trade in the menu… where abouts would i be able to change that in?

From: hello to you all
also where it opens shop it sometimes completely misses the trade in the menu… where abouts would i be able to change that in?

I find experimenting with code a great learning method. Why don't you give it a shot? ;)

From: Emaziz
I find experimenting with code a great learning method. Why don't you give it a shot? ;)

agreed, u should learn how to code in scar/simba (simba is my personal preference), and include SRL. :) This script isnt hard at all to make, so it would be a nice place for you to learn :)