SRL Archive - Non-RuneScape Scripts

program f2p_woodcutting;
procedure woodcutting;
var
  x, y:Integer;
 Begin
   if FindColor(x, y, 12974328, 254, 10, 513, 322) or
      FindColor(x, y, 11467000, 254, 10, 513, 322) then
  Begin
    MoveMouse(x, y);
    Wait(250);
    ClickMouse(x, y, 1);
    Wait(5000);
  End;
 End;

procedure banking;
var
  x, y:Integer;
 Begin
  if FindColor(x, y, 6514029, 1, 9, 283, 141) then
  Begin
    MoveMouse(x, y);
    Wait(250);
    ClickMouse(x, y, 1);
    Wait(2000);
    MoveMouse(398, 302);
    Wait(250);
    ClickMouse(398, 302, 1);
    Wait(500);
    MoveMouse(489, 29);
    Wait(250);
    ClickMouse(489, 29, 1);
    Wait(500);
  End;
End;

procedure inventory;
var
  x, y:Integer;
 Begin
   if FindColor(x, y, 3827568, 691, 435, 722, 460) Then
  Begin
  banking
  End;
 End;

procedure bob2;
var
  x, y:Integer;
 Begin
      KeyDown(40);
      Wait(500);
      KeyUp(40);
      Wait(500);
   if FindColor(x, y, 8898759, 15, 10, 397, 178) or
      FindColor(x, y, 5676443, 15, 10, 397, 178) or
      FindColor(x, y, 3042153, 15, 10, 397, 178) then
  Begin
   MoveMouse(x, y);
   Wait(250);
   ClickMouse(x, y, 1);
   Wait(3000);
  End;
 End;

 procedure bob1;
var
  x, y:Integer;
 Begin
  if FindColor(x, y, 5356744, 41, 193, 394, 333) or
     FindColor(x, y, 5555407, 41, 193, 394, 333) or
     FindColor(x, y, 5356744, 41, 193, 394, 333) then
   Begin
    KeyDown(40);
    Wait(500);
    KeyUp(40);
    Wait(500);
    bob2
    KeyDown(38);
    Wait(500);
    KeyUp(38);
    Wait(500);
  End;
 End;


begin
repeat
woodcutting
inventory
bob1
until(false);
end.                            

program HerblorePKH;

procedure banking;
var
  x, y:Integer;
 Begin
   if FindColor(x, y, 5197912, 10, 9, 512, 336) then
  Begin
   MoveMouse(x, y);
   Wait(250);
   ClickMouse(x, y, 1);
   Wait(500);
   MoveMouse(399, 303);
   Wait(250);
   ClickMouse(399, 303, 1);
   Wait(250);
   MoveMouse(53, 111);
   Wait(250);
   ClickMouse(53, 111, 0);
   Wait(250);
   MoveMouse(53, 170);
   Wait(250);
   ClickMouse(53, 181, 1);
   Wait(500);
   MoveMouse(98, 112);
   Wait(250);
   ClickMouse(98, 112, 0);
   Wait(250);
   MoveMouse(98, 171);
   Wait(250);
   ClickMouse(98, 171, 1);
   Wait(250);
   MoveMouse(488, 28)
   Wait(250);
   ClickMouse(488, 28, 1);
   Wait(500);
   MoveMouse(645, 185);
   Wait(250);
   ClickMouse(645, 185, 1);
   Wait(500);
   MoveMouse(622, 335);
   Wait(250);
   ClickMouse(622, 335, 1);
   Wait(250);
   MoveMouse(663, 339);
   Wait(250);
   ClickMouse(663, 339, 1);
   Wait(500);
   MoveMouse(263, 448);
   Wait(250);
   ClickMouse(263, 448, 1);
   Wait(17500);
  End;
 End;



begin
repeat
banking
until(false);
end.