SRL Archive - RS3 Outdated / Broken Scripts

I decided to make an autoclicker since there were no camelot tele scripts. Right now, this script is teleporting me to camelot to train mage. I wasnt planning on releasing this script(because who in their right mind would need an autoclicker? Me. I guess) so its extremely sloppy atm. Sorry. Dince I just released. I'll be cleaning it up and making it more customizable. No I will not be adding many new features. If you want new features then post procedures/functions and I'll add them when I see. I will also add credits to those who do help. Dont get excited, just an auto clicker. :tongue:

fixed slow mouse movement :P. may only have been a problem for me.
fixed so it compiles now. :]
Release!!

{.include srl/srl.scar}
{.include srl/srl/misc/findxp.scar}
const
  x1 = 709;
  y1 = 222;
  x2 = 725;
  y2 = 237;

var x,y,ms:integer;

procedure declareplayers;
begin
  players[0].name := '*******'
  players[0].pass := '*******'
  mousespeed := 13+random(5);
end;

function pinbox(px,py,BX1,BY1,BX2,BY2:integer;allowbounds:boolean) : boolean;
var b:integer;
begin
  if allowbounds then
    b := 1
  else
    b := 0;
  ms := 13+random(5);
  mousespeed := ms;
  result := (px > bx1-b) and (px < bx2+b)and (py > by1-b)and (py < by2+b)
end;

Function CanWeTeleport: boolean;
var
 x,y: integer;
begin
  if (findcolortolerance(x,y,4344401,615,320,625,330,15)) then
    Result := false;
end;

function mygetxpinfo:integer;
var mylvl,nextlvlxp,myxp:integer;
begin
  mylvl := getskilllevel('magic');
  nextlvlxp := convertlvltoxp(mylvl+1);
  myxp := getxp('magic');
  clearreport;
  addtoreport('Current lvl: ' + inttostr(mylvl))
  addtoreport('XP to next lvl: '+inttostr(nextlvlxp-myxp));
  addtoreport('Current xp: ' + inttostr(myxp))
  addtoreport('Next lvl xp: ' + inttostr(nextlvlxp));
  findnormalrandoms;
  findnoninventoryrandoms;
  case random(7) of
    0: RandomRClick;
    1: HoverSkill('magic',false);
    2: PickUpMouse;
    3: SayCurrentLevels('magic');
    4: RandomMovement;
    5: BoredHuman;
    6: ExamineInv;
  end;
end;

procedure logmein;
begin
  ms := 13+random(5);
  mousespeed := ms;
  writeln('MouseSpeed = '+inttostr(ms));
  mouse(575,415,5,5,true)
  wait(1000+random(1000));
  while CountColor(16777215,253,214,511,235) > 0 do
    typebyte(VK_BACK);
  typesend('g0tp0t');
  mouse(370,278,20,5,true) //makesure we are in passwordbox
  while CountColor(16777215,253,267,511,288) > 0 do
    typebyte(VK_BACK);
  typesend('ass07rdy');
  while not (getcolor(198,454) = 6865381) OR (getcolor(198,454) = 10150142) do
    wait(100);
  mouse(340,460,100,10,true)
end;

procedure mmousebox(px1,py1,px2,py2:integer);
begin
  ms := 13+random(5);
  mousespeed := ms;
  mmouse(round((px1+px2)/2),round((py1+py2)/2),(px2-px1)/2-1,(py2-py1)/2-1)
end;

begin
  wait(5000);
  repeat
    while not isfunctionkeydown(7) and CanWeTeleport do
    begin
    ms := 13+random(5);
    mousespeed := ms;
      if not loggedin then logmein;
      getmousepos(x,y);
      writeln('Down: '+inttostr(x)+', '+inttostr(y));
      if not pinbox(x,y,x1,x2,y1,y2,true) then mmousebox(x1,y1,x2,y2);
      getmousepos(x,y);
      holdmouse(x,y,true);
      wait(50+random(200));
      getmousepos(x,y);
      //if not pinbox(x,y,x1,x2,y1,y2,true) then mmousebox(x1,y1,x2,y2) //this will move mouse mack into box b4 releasing button.
      releasemouse(x,y,true);                                           // so i dont think it is needed
      writeln('Up: '+inttostr(x)+', '+inttostr(y));
      wait(850+random(300));
      if random(10) = 0 then
      begin
      //mygetxpinfo;
      end;
    end;
  until false;
end.

there is my 99 lines of wasted time :P, ill edit the script within a few days with the new neatness and customizeability. :)

EDIT: updated script so it actually compiles, my bad. sorry :tongue:
EDIT2:updated script again

Take out your password + user!!!

Hey, just to let you know, you left your username and pass in the script. i took the liberty of changing your password and will be sending you a pm with what I changed it to. It said that at the moment the account is in use(Stating this for the record so there can be no dispute if any items are missing.

Successfully changed and sent PM =)

omfg. im an idiot. i tried logging in and pass was changed. i remembered i might have forgot. so i just sent in a request. lol. im crrazy sorry. oh and thank you for helping me through my stupidity. i was just about to post asking admin to see all accounts who veiwed this post and see if any had an IP history of badness or something. thanks sylva!! u own. i owe u big time :P
it is now time to change ALL of my passwords cuz i have done this kinda thing with all of them now. that one i posted…that was my supersecure pasword. cantbeleive i gave it away. almost had that password secure for a full year :'{

Hey, no problem man. We all make mistakes. :)

you dont need to set mousespeed like that just SetupSRL; in the script =)

hey man, this is a really sloppy script IMO, but as you said its not meant to be foolproof.

But on major flaw/ban-able thing i found… you have no fail safes or if your in a random try to solve it or just say logged out.

Function CanWeTeleport: boolean;
var
 x,y: integer;
begin
  if (findcolortolerance(x,y,4344401,615,320,625,330,15)) then
    Result := false;
end;

ok… very rough but i think will get the job done(im tired as hell…) will fix tomorow unless someone beats me to it.

So change the main loop to say this

begin
  wait(5000);
  repeat
    while not isfunctionkeydown(7) and CanWeTeleport do
    begin
    ms := 13+random(5);
    mousespeed := ms;
      if not loggedin then logmein;
      getmousepos(x,y);
      writeln('Down: '+inttostr(x)+', '+inttostr(y));
      if not pinbox(x,y,x1,x2,y1,y2,true) then mmousebox(x1,y1,x2,y2);
      getmousepos(x,y);
      holdmouse(x,y,true);
      wait(50+random(200));
      getmousepos(x,y);
      //if not pinbox(x,y,x1,x2,y1,y2,true) then mmousebox(x1,y1,x2,y2) //this will move mouse mack into box b4 releasing button.
      releasemouse(x,y,true);                                           // so i dont think it is needed
      writeln('Up: '+inttostr(x)+', '+inttostr(y));
      wait(850+random(300));
      if random(10) = 0 then
      begin
      //mygetxpinfo;
      end;
    end;
  until false;
end.

ohh and also, if you setup srl ad also set up player vars, that login proc is not needed, just use srl's login function (just saying)

i know. but i was too lazy too look up a multiplayer guide, and i figured it isnt that iumprtant because who in their right mind wants an autoclicker that uses multi player :P. i will add that though. ty

BTW: i said it was sloppy cuz i didnt plan on releasing -.- lol.