SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?



What is your general programming knowledge?
Game maker language(not sure if its considered.. but ill throw it out there)
Pascal I guess haha


Are you a member of any other communities?
Runescape,soulsplit,moparisthebest.


Tell us about yourself…

From: rjj95
I am robert james johnson (RJJ) born in 1995(that's were i got my name rjj95), I am interested in making RS/RSPS bots for people, and to make games.

Please show us one (or multiple) of your scripts.

////////////////////////////////////////////////////////////////////////////////
//////////////////////////Soulsplit Log molestor Version 1.02///////////////////
/////////////////////////Made by RJJ95, Use at any bank/////////////////////////
///////////////Programed to be used at south neit, change bank color////////////
///////////if you want it to fletch somewere else. HAPPY BOTTING!!!!!!//////////
{
-Recent updates,Version 1.02-
added new feature, waits for logs to be fletched instead of waiting
-32000 miliseconds fixed bank bitmap, looks for usebank is a wider area
-searches for bank in a slightly wider area to combat camera shifting
-ADDED ANTIBAN, YOU CAN EDIT MESSAGE IT SENDS AT LINE 39,EDIT ANTIBANRATE=50 TO
WHAT EVER YOU WANT, THE HIGHER THE NUMBER, THE LESS LIKELY A BREAK WILL BE TAKEN
-added random breaktimes
}
////////////////////////////////////////////////////////////////////////////////
program Molestor;
{$i srl/srl.simba}
const
fletchlogcolor=10201131;
storebowcolor=5330965;
bank=1857394;
bankx=210;
banky=124;
bankxtwo=278;
bankytwo=164;
antibanrate=50;
minbreaktime=4; //min break time in minutes
maxbreaktime=9; // max break time in minutes

var
  usebank,withall,outcome,resulte,bitch: Integer;
procedure antibanme;
  begin
  outcome := Random(antibanrate);
  bitch := (maxbreaktime*60000)-(minbreaktime*60000);
  resulte := Random(bitch)
  if outcome = 1 then
  begin
  Writeln('Doing random antiban wait!')
  TypeSend('This is boring lol');
  wait(minbreaktime+resulte)
  end;
end;
procedure storeall;
var
  X, Y: Integer;
  begin
  Writeln('Looking for bow . . .')
  if FindColorTolerance(X,Y,storebowcolor,557,213,722,247,19) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Writeln('Found bow to store.')
  Wait(550 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(550 + Random(150));
  FindBitmapToleranceIn(withall, X, Y,554, 210, 730, 322, 145)
  mmouse(x, y,1,1);
  Writeln('Storing bows . . .')
  Wait(550 + Random(150));
  ClickMouse(X, Y, mouse_Left)
  Wait(850 + Random(150));
  ClearDebug;
  antibanme;
  end;
end;
procedure bankit;
var
  X, Y: Integer;
  begin
  Writeln('FLooking for bank . . .')
  if FindColorTolerance(X,Y,bank,bankx,banky,bankxtwo,bankytwo,17) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Writeln('Found bank.')
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(900 + Random(250));
  FindBitmapToleranceIn(usebank, X, Y,31, 93, 455, 304, 165)
  MouseSpeed:=40;
  mmouse(x, y,1,1);
  WriteLn('Opened Bank!');
  Wait(500 + Random(120));
  ClickMouse(X, Y, mouse_Left);
  Wait(1500 + Random(250));
  storeall;
  end;
end;
procedure fletchinglogs;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,fletchlogcolor,558,215,728,455,15) then
  begin
  Wait(500 + Random(150));
  fletchinglogs;
  end;
  bankit;
end;

procedure fletchit;
var
  X, Y: Integer;
  begin
  Writeln('Finding knife . . .')
  if FindColorTolerance(X,Y,7434874,683,420,727,457,15) then
  begin
  Writeln('Found knife.')
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Writeln('Finding log . . .')
  Wait(850 + Random(150));
  FindColorTolerance(X,Y,fletchlogcolor,557,214,719,458,15)
  mmouse(x, y,1,1);
  Writeln('Using knife on log . . . ')
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Writeln('Waiting for fletch interface . . . ')
  Wait(1400 + Random(150));
  Writeln('Found fletching interface')
  FindColorTolerance(X,Y,10799322,242,380,253,387,15)
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(550 + Random(150));
  mmouse(x, y+65,1,1);
  Wait(550 + Random(150));
  ClickMouse(x, y, mouse_Left);
  //Writeln('Fletching logs . . . ')
  //Wait(32000 + Random(2200));
  //bankit;
  fletchinglogs;
  end;
 end;


procedure closefletch;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,8421504,423,29,491,45,15) then
  begin
  Writeln('Closing bank . . .')
  MouseSpeed:=20;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Wait(700 + Random(150));
  fletchit;
  end;
end;
procedure withd;
var
  X, Y: Integer;
  begin
    if FindColorTolerance(X,Y,storebowcolor,560,213,720,457,6) then
    begin
    if FindColorTolerance(X,Y,3358280,18,25,499,325,6) then
    begin
    Writeln('LogMolestor detected bows in your inventory and is banking them!')
    bankit;
    end;
    Writeln('LogMolestor detected your bank open and bows in your inventory!')
    storeall;
    end;
   if FindColorTolerance(X,Y,fletchlogcolor,560,213,720,457,6) then
   begin
   if FindColorTolerance(X,Y,3358280,18,25,499,325,6) then
   begin
   Writeln('LogMolestor detected logs in your inventory and your bank open!')
   closefletch;
   end;
   Writeln('LogMolestor detected logs in your inventory and is starting to fletch!')
   fletchit
  end;
  if FindColorTolerance(X,Y,fletchlogcolor,16,25,502,327,6) then
  begin
  Writeln('Withdrawing logs . . .')
  MouseSpeed:=18;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(250 + Random(150));
  mmouse(x, y+72,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Wait(950 + Random(150));
  closefletch;
  end;
end;
begin
   usebank := BitmapFromString(38, 13, 'meJyTUdeWoTuauuMYEOHiko3+/2' +
        'dARpg2MjAwYOVSaCMEoFlKaxvR2IPQRggXjtBCBk+ko8UjBBC0Ec5' +
        'GBmjiuCwlOx7xeBDNdirGI6Zf0IIaOcSIsVEGKQ8iG4JmAv7QJinl' +
        '4HI2fr/gSlHEpBy00ENzNlZBglJEKqAPAgANRYUm');
   withall := BitmapFromString(33, 14, 'meJyTUdeWGV5o6o5jEIQpiMlGRg' +
        '4T/gMRfhG4dgYGBjRz4OJobEwDkcUxReB6kY0i1Qq4s+FcrFbgN5a' +
        'gFWgI0wo0RKoVQHFMBtaAgkcHGVYA2RATaBRQREb3qBX4rYBHE1Yu' +
        'LjYe7XhU0gIBAMyXctQ=');
      repeat
      withd;
      until False;
  FreeBitmap(usebank);
  FreeBitmap(withall);
end.

////////////////////////////////////////////////////////////////////////////////
/////////////////////////RJJ95 TREE RAPER VERSION 1.04//////////////////////////
////////////////////////////////////////////////////////////////////////////////
{-----------------------------Instructions--------------------------------------
Aim camera all the way up, and stand beside the
tree of your choice.By defualt it is set to cut maples, change the colours if
you want it to cut a different tree,(maples are fastest xp).To change antiban
rate higher the number for less often resting, lower it for more often. You can
change the amount of time it will rest.If the bot is having trouble finding the
tree, then change the treex,treey,treex2,treey2, to change the box in which the
bot looks for the tree.
}
program Woodcutter;
{$i srl/srl.simba}
const
treecol=10328;  // 4749185    magic tree colour
logcol=3237515;   //10464298  magic log colour
bowcol=7502223;    //5264916  magic bow colour
antibanrate=90;
minbreaktime=4; //min break time in minutes
maxbreaktime=9;
dropspeed=25;
fletchingspeed=20;
treewait=16;
treex=127;
treey=76;
treex2=443;
treey2=276;
xpperlog=600;
xpperlogfletch=348;
 // max break time in minutes

var
  dropmage,resulte,bitch,outcome,timer,lo: Integer;
procedure myantiban;
var
  X, Y: Integer;
  begin
  ClearDebug;
  Writeln('Logs fletched/cut:' + Tostr(lo*26))
 // Writeln('Logs fletch/cut per hour:' + IntToStr(Round(3600*(lo*26)/timer)));
  Writeln('Time running(minutes):' + IntToStr(Round(timer/60)));
  outcome := Random(antibanrate);
  bitch := (maxbreaktime*60000)-(minbreaktime*60000);
  resulte := Random(bitch)
  if outcome = 1 then
  begin
  Writeln('Doing random antiban wait!')
  TypeSend('brb afk');
  Wait(1100 + Random(500));
  FindColorTolerance(X,Y,16677477,595,172,621,195,15)
  mmouse(x, y,1,1);
  Wait(1450 + Random(50));
  ClickMouse(x, y, mouse_Left);
  FindColorTolerance(X,Y,3424328,563,247,639,257,15)
  mmouse(x, y,1,1);
  Wait(350 + Random(50));
  ClickMouse(x, y, mouse_Left);
  FindColorTolerance(X,Y,2448796,628,173,656,197,15)
  mmouse(x, y,1,1);
  Wait(350 + Random(50));
  ClickMouse(x, y, mouse_Left);
  wait(minbreaktime+resulte)
  end;
end;
procedure dropit;
var
  X, Y: Integer;
  begin
  ClearDebug;
  Writeln('Logs fletched/cut:' + Tostr(lo*26))
  Writeln('Logs fletch/cut per hour:' + IntToStr(Round(3600*(lo*26)/timer)));
  Writeln('Woodcutting XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlog))/timer)));
  Writeln('Fletching XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlogfletch))/timer)));
  Writeln('Time running(minutes):' + IntToStr(Round(timer/60)));
      MouseSpeed:=dropspeed;
      if FindColorTolerance(X,Y,bowcol,562,210,721,454,15) then
      begin
      if FindColorTolerance(X,Y,bowcol,558,249,595,463,15) then
      begin
      mmouse(x, y,1,1);
      Wait(100 + Random(50));
      ClickMouse(x, y, mouse_Right);
      Wait(100 + Random(50));
      FindBitmapToleranceIn(dropmage, X, Y,562, 210, 721, 454, 145)
      mmouse(x, y,1,1);
      Wait(100 + Random(50));
      ClickMouse(x, y, mouse_Left);
      Wait(100 + Random(50));
      end;
      if FindColorTolerance(X,Y,bowcol,604,213,636,460,15) then
      begin
      mmouse(x, y,1,1);
      Wait(100 + Random(50));
      ClickMouse(x, y, mouse_Right);
      Wait(100 + Random(50));
      FindBitmapToleranceIn(dropmage, X, Y,562, 210, 721, 454, 145)
      mmouse(x, y,1,1);
      Wait(100 + Random(50));
      ClickMouse(x, y, mouse_Left);
      Wait(100 + Random(50));
     end;
     if FindColorTolerance(X,Y,bowcol,641,213,678,460,15) then
     begin
     mmouse(x, y,1,1);
      Wait(100 + Random(50));
      ClickMouse(x, y, mouse_Right);
      Wait(100 + Random(50));
      FindBitmapToleranceIn(dropmage, X, Y,562, 210, 721, 454, 145)
      mmouse(x, y,1,1);
      Wait(100 + Random(50));
      ClickMouse(x, y, mouse_Left);
      Wait(100 + Random(50));
    end;
    if FindColorTolerance(X,Y,bowcol,687,213,717,421,15) then
    begin
    mmouse(x, y,1,1);
    Wait(100 + Random(50));
    ClickMouse(x, y, mouse_Right);
    Wait(100 + Random(50));
    FindBitmapToleranceIn(dropmage, X, Y,562, 210, 721, 454, 145)
    mmouse(x, y,1,1);
    Wait(100 + Random(50));
    ClickMouse(x, y, mouse_Left);
    Wait(100 + Random(50));
  end;
 end;
 //myantiban;
end;
procedure fletchinglogs;
var
  X, Y: Integer;
  begin
  ClearDebug;
  Writeln('Logs fletched/cut:' + Tostr(lo*26))
  Writeln('Logs fletch/cut per hour:' + IntToStr(Round(3600*(lo*26)/timer)));
  Writeln('Woodcutting XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlog))/timer)));
  Writeln('Fletching XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlogfletch))/timer)));
  Writeln('Time running(minutes):' + IntToStr(Round(timer/60)));
  if FindColorTolerance(X,Y,logcol,558,215,728,455,5) then
  begin
  Wait(500 + Random(150));
  fletchinglogs;
  end;
  dropit;
end;
procedure fletchit;
var
  X, Y: Integer;
  begin
  IncEx(lo, 1);
  ClearDebug;
  Writeln('Logs fletched/cut:' + Tostr(lo*26))
  Writeln('Logs fletch/cut per hour:' + IntToStr(Round(3600*(lo*26)/timer)));
  Writeln('Woodcutting XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlog))/timer)));
  Writeln('Fletching XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlogfletch))/timer)));
  Writeln('Time running(minutes):' + IntToStr(Round(timer/60)));
  MouseSpeed:=fletchingspeed;
  //Writeln('Finding knife . . .')
  if FindColorTolerance(X,Y,7566204,683,420,727,457,15) then
  begin
 // Writeln('Found knife.')
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
 // Writeln('Finding log . . .')
  Wait(850 + Random(150));
  FindColorTolerance(X,Y,logcol,557,214,719,458,15)
  mmouse(x, y,1,1);
  //Writeln('Using knife on log . . . ')
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  //Writeln('Waiting for fletch interface . . . ')
  Wait(1400 + Random(150));
  //Writeln('Found fletching interface')
  FindColorTolerance(X,Y,10799322,242,380,253,387,15)
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(550 + Random(150));
  mmouse(x, y+65,1,1);
  Wait(550 + Random(150));
  ClickMouse(x, y, mouse_Left);
  fletchinglogs;
  end;
 end;
procedure checklogs;
var
  X, Y: Integer;
  begin
  ClearDebug;
  Writeln('Logs fletched/cut:' + Tostr(lo*26))
  Writeln('Logs fletch/cut per hour:' + IntToStr(Round(3600*(lo*26)/timer)));
  Writeln('Woodcutting XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlog))/timer)));
  Writeln('Fletching XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlogfletch))/timer)));
  Writeln('Time running(minutes):' + IntToStr(Round(timer/60)));
  //Wait((treewait*1000) + Random(1100));
  Wait((treewait*100) + Random(100));
   if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  Wait((treewait*100) + Random(100));
   if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  Wait((treewait*100) + Random(100));
   if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  Wait((treewait*100) + Random(100));
   if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  Wait((treewait*100) + Random(100));
   if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  if FindColorTolerance(X,Y,treecol,treex,treey,treex2,treey2,10)then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(350 + Random(150));
  ClickMouse(X, Y, mouse_Left)
  checklogs;
  end;
end;
procedure clicktree;
var
  X, Y: Integer;
  begin
  ClearDebug;
  Writeln('Logs fletched/cut:' + Tostr(lo*26))
  Writeln('Logs fletch/cut per hour:' + IntToStr(Round(3600*(lo*26)/timer)));
  Writeln('Woodcutting XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlog))/timer)));
  Writeln('Fletching XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlogfletch))/timer)));
  Writeln('Time running(minutes):' + IntToStr(Round(timer/60)));
  if FindColorTolerance(X,Y,treecol,treex,treey,treex2,treey2,10)then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(350 + Random(150));
  ClickMouse(X, Y, mouse_Left)
  checklogs;
  end;
end;
procedure check;
var
  X, Y: Integer;
  begin
  timer := GetTimeRunning div 1000+1;
  ClearDebug;
  Writeln('Logs fletched/cut:' + Tostr(lo*26))
  Writeln('Logs fletch/cut per hour:' + IntToStr(Round(3600*(lo*26)/timer)));
  Writeln('Woodcutting XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlog))/timer)));
  Writeln('Fletching XP per hour:' + IntToStr(Round(3600*(lo*(26*xpperlogfletch))/timer)));
  Writeln('Time running(minutes):' + IntToStr(Round(timer/60)));
  if FindColorTolerance(X,Y,bowcol,558,215,728,455,15) then
  begin
  dropit;
  end;
  if FindColorTolerance(X,Y,logcol,647,434,678,456,10)then
  begin
  fletchit;
  end;
  clicktree;
 end;
begin
 dropmage := BitmapFromString(39, 16, 'meJyTUdeWoQA5TPgPRPhFqI4gVj' +
        'AwMOARoZGlcK/BufSxFA0RY+nUHcfgiBhxzMDEZGC6CtNkBjBANh+' +
        'XOK44hahEFoGz4eKYlhLJJikh4Qp22lmK6VN6WopVJXKCgTgMTRBZ' +
        'nCrBC0EMSAAzIWG1EVkjHhEGVEBMPqJpNh/JlmKNr6GLAI4/seM=');

repeat
      check;
      until (IsKeyDown (114));
  FreeBitmap(dropmage);
end. 

Cooker I am working on(not ready to be released)

program Cook;
{$i srl/srl.simba}
const
rawfishcol=6322271;
cookrange=9014742;
cookfish=12868;
minimap=2216175;
bank=1857394;
bankx=220;
banky=28;
bankxtwo=328;
bankytwo=201;
rangex=310;
rangey=4;
rangex2=489;
rangey2=145;
var
  cookall,usebank,cookicon: Integer;
procedure glitch;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,4578368,357,299,385,320,5) then
  begin
  Writeln('Finished.')
  end;
end;
procedure backpack;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,4578368,357,299,385,320,5) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(X, Y, mouse_Left);
  Wait(1200 + Random(900));
  Writeln('start glitch proc')
  glitch;
  end;
  Writeln('start backpackagain')
  Wait(250 + Random(150));
  backpack;
end;
procedure bankfish;
var
  X, Y: Integer;
  begin
  Writeln('Looking for bank . . .')
  if FindColorTolerance(X,Y,bank,bankx,banky,bankxtwo,bankytwo,5) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Writeln('Found bank.')
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(900 + Random(250));
  FindBitmapToleranceIn(usebank, X, Y,31, 93, 455, 304, 165)
  MouseSpeed:=40;
  mmouse(x, y,1,1);
  WriteLn('Opened Bank!');
  Wait(500 + Random(120));
  ClickMouse(X, Y, mouse_Left);
  backpack;
  end;
end;
procedure walkbank;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,minimap,555,85,630,122,5) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(600 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Wait(6500 + Random(1500));
  bankfish;
  end;
end;
procedure checkcook;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,rawfishcol,566,217,715,454,5) then
  begin
  Wait(600 + Random(150));
  repeat
  until(FindColorTolerance(X,Y,rawfishcol,566,217,715,454,5)=false);
  end;
  walkbank;
end;
procedure choosefish;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,cookfish,207,379,300,452,5) then
  begin
   MouseSpeed:=17;
   mmouse(x, y,1,1);
   Wait(600 + Random(150));
   ClickMouse(x, y, mouse_Right);
   Wait(800 + Random(150));
   FindBitmapToleranceIn(cookall, X, Y,194, 351, 311, 478, 155)
   mmouse(x, y,1,1);
   Wait(600 + Random(150));
   ClickMouse(x, y, mouse_Left);
   checkcook;
  end;
  Wait(600 + Random(150));
  choosefish;
 end;
procedure cookfisha;
var
  X, Y: Integer;
     begin
     if FindColorTolerance(X,Y,cookrange,rangex,rangey,rangex2,rangey2,5) then
     begin
     if FindColorTolerance(X,Y,rawfishcol,558,218,718,455,5) then
     begin
     MouseSpeed:=17;
     mmouse(x, y,1,1);
     Wait(600 + Random(150));
     ClickMouse(x, y, mouse_Left);
     Wait(600 + Random(150));
     if FindColorTolerance(X,Y,cookrange,rangex,rangey,rangex2,rangey2,5) then
     begin
     mmouse(x, y,1,1);
     Wait(600 + Random(150));
     ClickMouse(x, y, mouse_Left);
     //Wait(7800 + Random(150));
     choosefish;
    end;
   end;
  end;
 end;
procedure closecook;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,8421504,423,29,491,45,15) then
  begin
  Wait(800 + Random(150));
  Writeln('Closing bank . . .')
  MouseSpeed:=20;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Wait(700 + Random(150));
  cookfisha;
  end;
end;
procedure withdrawfish;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,rawfishcol,261,124,389,235,5) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(350 + Random(150));
  ClickMouse(x, y, mouse_Right);
  MouseSpeed:=10;
  Wait(750 + Random(150));
  mmouse(x, y+65,1,1);
  ClickMouse(x, y, mouse_Left);
  closecook;
  end;
end;
begin
cookall := BitmapFromString(21, 15, 'meJyTUdeWGVA0dccxICJSGaZKiC' +
        'ADAwNBvUA1mCYQ1A5XAFGDZgLx2vFzcQUC3NfICE07mgtxOR5uC6Z' +
        '2rHqJdDye6KOK3wlqx5WE8GsHImRfYw0BNEFcoURnBAAo+e/w');
usebank := BitmapFromString(38, 13, 'meJyTUdeWoTuauuMYEOHiko3+/2' +
        'dARpg2MjAwYOVSaCMEoFlKaxvR2IPQRggXjtBCBk+ko8UjBBC0Ec5' +
        'GBmjiuCwlOx7xeBDNdirGI6Zf0IIaOcSIsVEGKQ8iG4JmAv7QJinl' +
        '4HI2fr/gSlHEpBy00ENzNlZBglJEKqAPAgANRYUm');
cookicon := BitmapFromString(9, 11, 'meJw7cICaQPDfP2HrFAiSjV4DJOH' +
        'iTH/+MDIwICNeJWseRT+gOBBBFAMRUASIIFJANQx372JKLQADoCxW' +
        'KYiNaFIQLXB3LkACRHoNAJkkmKw=');
 repeat
      withdrawfish;
      until False;
  FreeBitmap(cookall);
  FreeBitmap(usebank);
  FreeBitmap(cookicon);
end. 

I made these for a RSPS until I can make a flawless antiban before moving on to RS.

Please put the scripts in

Tags

Too simple :(

I haven't been active for some time and therefore will not vote. But regarding the simplicity or complexity we expect from applicants I recall something like a map walking requirement for the script. Maybe wrong memories, but yeah, that's what I'd like to see from an applicant :)

No, because ofm

some coordinates are quite static
etc.

mmouse(x, y,1,1);
//would be better
mmouse(x, y, 3, 3);// at least.  i guess 5, 5 would be even better 

also you are using color to find items

 if FindColorTolerance(X,Y,bowcol,641,213,678,460,15) then

I think you should use DTM, Bitmaps (since I saw you use some bitmaps, here you should use DTM, to show how much diferend things you know)
etc.

 if (FindDTM(tempDTM, X, Y, MIX1, MIY1, MIX2, MIY2)) then 
// searches for DTM named which is in inventory coordinates
// MIX1, MIY1, represends 1 point top left,
// and MIX2, MIY2 represends 2nd point bottom right of inventory
// for example  MsX1, MsY1, MsX2, MsY2 for main screen 
// and  MmX1, MmY1, MmX2, MmY2 for minimap
// and  McX1, McY1, McX2, McY2 for chat area

To set DTM

//Make sure you have declared variable tempDTM as integer.
  tempDTM := DTMFromString('mWAAAAHicY2FgYJjBxMasdasdasdzxcvsxfsaffasdfsadf==');//an example.

//after you use dtm you always should free it
FreeDTM(tempDTM);

you can make one progrees report function/procedure and use it all over the code while function/procedure declared is above you are using it.

and last thing, you should read about some standarts to make it easier to read though
EDIT:

for next time make sure to use:

• DTM's
• Bitmaps
• Autocolor
• Walking
• Banking
• Multiplayer
• TPAs
• Failsafes
• etc.

Make sure to use as much as possible (with common sense) not necessary to use all of them but it would increase chances.



want to say sorry if I made some mistakes, I'm out of home, and using not my computer it.. :D

From: Laimonas171
No, because ofm

some coordinates are quite static
etc.

mmouse(x, y,1,1);
//would be better
mmouse(x, y, 3, 3);// at least.  i guess 5, 5 would be even better 

also you are using color to find items

 if FindColorTolerance(X,Y,bowcol,641,213,678,460,15) then

I think you should use DTM, Bitmaps (since I saw you use some bitmaps, here you should use DTM, to show how much diferend things you know)
etc.

 if (FindDTM(tempDTM, X, Y, MIX1, MIY1, MIX2, MIY2)) then 
// searches for DTM named which is in inventory coordinates
// MIX1, MIY1, represends 1 point top left,
// and MIX2, MIY2 represends 2nd point bottom right of inventory
// for example  MsX1, MsY1, MsX2, MsY2 for main screen 
// and  MmX1, MmY1, MmX2, MmY2 for minimap
// and  McX1, McY1, McX2, McY2 for chat area

To set DTM

//Make sure you have declared variable tempDTM as integer.
  tempDTM := DTMFromString('mWAAAAHicY2FgYJjBxMasdasdasdzxcvsxfsaffasdfsadf==');//an example.

//after you use dtm you always should free it
FreeDTM(tempDTM);

you can make one progrees report function/procedure and use it all over the code while function/procedure declared is above you are using it.

and last thing, you should read about some standarts to make it easier to read though
EDIT:

for next time make sure to use:

• DTM's
• Bitmaps
• Autocolor
• Walking
• Banking
• Multiplayer
• TPAs
• Failsafes
• etc.

Make sure to use as much as possible (with common sense) not necessary to use all of them but it would increase chances.



want to say sorry if I made some mistakes, I'm out of home, and using not my computer it.. :D

thanks.

From: rjj95
thanks.

You are welcome, Keep it up, I see you can reach goal in week or two ;)

People writes so little about the info of themselfs, I want to read more about the person aplying :)

Laimonas171 pretty much covered everything, but I was going to say I like your activity bar!

The poll has closed and you didn't quite make it this time. Please take the suggestions made in this thread and improve on the script and reapply in 4 weeks time :)

Cheers
Hobbit