SRL Archive - RS3 Outdated / Broken Scripts

Lets start about that when i made this i didnt think that z0mg this script will be ultimapwn33gmachine , it's idea is to give some idea for people who are like :
ffs boring what should i do , "BLING" ofcourse: an autotalker!

I made this script logged out of rs trying to remember what grindisthebest's did except his script used mouseclick = ban in 2 days. THIS IS NOT A COPY

you are completely free to do anything you want with this script.
I'd like to see some improved über tokkulers , working with different methods.

note: do not use this script on your mains. I will not guarantee ban safe.

program EasyTokkuls;
{.include srl/srl.scar}
const
CColor = 000000; //pick the white color(cave entrance).
var
InCave:boolean;
function ToCave:boolean;
begin
begin
repeat
sendarrowsilentwait(1,500+random(100));
until(findmscolortol(x,y,ccolor,10));
end;
begin
repeat
if(findmscolortol(x,y,ccolor,10)) then
begin
mouse(x,y,0,2,true);
writeln('Clicked Cave Entrance');
end;
wait(100+random(20));
until(not(findsymbol(x,y,'bank')));
end;
if(not(findsymbol(x,y,'bank'))) then
begin
result:=true;
InCave:=true;
end;
wait(100+random(20));
end;
function FindCaveDead:boolean;
begin
if(ToCave)then
begin
if(findSymbol(x,y,'bank')) then
begin
result:=true;
writeln('Dead or going to cave was unsuccesful.');
end;
end;
end;
procedure Rands;
begin
if(FindCaveDead) then
begin
FindNormalRandoms;
wait(100+random(20));
SolveBox;
wait(100+random(20));
findtalk;
end;
wait(100+random(20));
end;
Procedure InCaveToDo;
begin
If(not(findcavedead))then
repeat
randommovement;
boredhuman;
until(findcavedead);
end;
begin
repeat
ToCave;
InCaveToDo;
rands;
until(false);
end.

Post Ideas!

Everybody plz use srl when improving this one.
I wudnt want to see any clickmouses or sendkeys there.

does it actually work?

sendarrowsilentwait(1,500+random(100));

Use a different function for this.

Also

CColor = 000000; //pick the white color(cave entrance).

Try makeing it auto-color.

I put together a small auto-color function for you.

function GetCaveColor : integer;
var
CColor : integer;
begin
if FindColorTolerance(x,y,{replace with estimate color},3,3,515,336,3) =true then
begin
GetColor(x,y);
CColor := GetColor(x,y);
result := CColor;
end else
writeln('Could not find cave color please restart script');
result := 0;
end;

If it finds the cave color then it results to the color and uses the color as CColor and if it dosent it will result to 0.

As for the arrowkey problem just root around in srl otherwise use a chr number to substitute that key. Also add fialsafes into your loops and an

if LoggedIn = false then
LoginPlayer;

wouldn't hurt!


If you need anymore help then pm me.

EDIT: Fell free to use my function in your script just give credits to me.

begin
mouse(x,y,0,2,true);
writeln('Clicked Cave Entrance');
end;
wait(100+random(20));
until(not(findsymbol(x,y,'bank')));
end;
if(not(findsymbol(x,y,'bank'))) then
begin
result:=true;
InCave:=true;
end;

Isnt this like easy to detect.. so a ban?

Oh man people remember my old scripts. Oh btw I'm grindisbest I just use a different name now, Becuase of change of emails due to so many people try to scam me. Anyways I'll see if I can dig up my old script, although I've changed computers since my old scripting days so I might not have so much luck.

Ok I go by grindisbest here now. I think I might get back into scripting but make a nice auto fighter.

From: fliptera
Oh man people remember my old scripts. Oh btw I'm grindisbest I just use a different name now, Becuase of change of emails due to so many people try to scam me. Anyways I'll see if I can dig up my old script, although I've changed computers since my old scripting days so I might not have so much luck.

From: grindisbest
Ok I go by grindisbest here now. I think I might get back into scripting but make a nice auto fighter.

2 people claiming to be grindbest,

Very suspicious:)

From: arash
2 people claiming to be grindbest,

Very suspicious:)

LMFAO that is quite…suspicious…LOL what a bunch of idiots…I'm actually grindisbest so sedn me ur user n pass 4 3 hax0rz!(joke…don't acutally do that)

Does it work?

http://sythe.org/showthread.php?p=1615550#post1615550

Check it…

Just to prove you're grindisbest post your original tokkul script here

since sythe was hacked and accounts were reset you could've just created an account claiming to be him

I don't have it anymore becuase I don't have the computer I used to use towrite my scripts on. I can check my older harddrives but I don't think I'll find it due to formating them but I'll see what I can get from a harddrive recover.

Ok I managed to dig this up, it was the version before the version which was released for free download. If you don't believe me now then I don't know how else to prove it becuase the only way I would have this is if I am who I say I am. This version has never been seen by anyone but me and my younger brother.

program TokkulFighter;
const
{Setup}
cavecolor = 7566204 ; //the color of the cave. White a color between the lightest and darkest.
timetowait = 200000 ;     //time to wait after log out before loging in.
DoneLogout = 15 ;  // How many times to go through until logging out.
attacktype = 2 ;// Attack Type (1-2-3-4)
//miniNpc = 1310462 ;//The yellow dot of npcs on the minimap. NOT USED!!!!
User = 'user' ; //User name ;
Pass = 'pass' ; //Password ;
Sword = 10921638 ;//The color of the sword in the bottom right of plaing screen. The multi kill sword.
miniNPC = 60909 ;//Color of the yellow dots of NPCs on the minimap.
//Setup the settings.
//Stand outside the cave and then logoff
//Put the target in runescape and press play.
//Ctrl+Alt+S = stop.
{That's all}
var
x,y,w,e,t,v,wtr,doneit,state,pick,entercave,lasttime,mtime,ftime,mintimec,click,hourtimec,minre,hourre,secre,days,counter: integer;
doneitstr,status,systime,hourtime,dayss,minres,hourres,secres,lasttimewent: string;
starts,start,cavefirst,b,logstat:boolean;
procedure LoadBmps;
begin
entercave := BitmapFromString(29, 5, 'z78DA3330400037246040' +
       '55400B93DD7000E25592AA9E5A2A49F5177E1388319954BDE4B99' +
       '65A260F5DD7E28A3B00195CC18D');


end;

procedure systimecount ;
begin
 mtime:=GetSystemTime;
 ftime:=mtime-lasttime;
 ftime:=ftime div 1000;
 systime:=inttostr(ftime);
 mintimec:=ftime div 60;
 hourtimec:=mintimec div 60;
 secre:= ftime mod 60;
 minre:= mintimec mod 60;
 hourre:= hourtimec mod 24;
 days:= hourtimec div 24;
 dayss:=inttostr(days);
 hourres:=inttostr(hourre);
 minres:=inttostr(minre);
 secres:=inttostr(secre);
 if length(hourres)=1 then
 hourres:='0'+hourres;
 if length(minres)=1 then
 minres:='0'+minres;
 if length(secres)=1 then
 secres:='0'+secres;
 hourtime:=dayss+(':')+hourres+(':')+minres+(':')+secres;

end;

Procedure PrintProgressReport;

Begin

  systimecount;
  writeln('|==============Tokkul Hut!================|');
  writeln('|PROGRESS REPORT:');
  writeln('|Status: '+status)
  writeln('|You have been through '+doneitstr+' times.');
  writeln('|Has been running for '+hourtime);
  writeln('|The last time you came out of the cave was '+lasttimewent );
  writeln('|=========================================|');
End;


procedure ChangeStatus(CurrentStatus:String);
var
i:string;
Begin
i:=currentstatus
status:=i;
PrintProgressReport;
end;

procedure setattack  ;
          var
             xx,yy:integer;
          begin
               movemousesmooth( 554, 186);
               wait(200+random(55));
               clickmouse(554, 186,true);

               case attacktype of
                    1: begin xx:= 585; yy:= 280; end;
                    2: begin xx:= 581; yy:= 327; end;
                    3: begin xx:= 597; yy:= 365; end;
                    4: begin xx:= 584; yy:= 406; end;
               end;
               movemousesmooth( xx, yy);
               wait(200+random(55));
               clickmouse(xx, yy,true);
               wait(1000+random(55));
end;

procedure typelogin(Type1, Type2:string) ;
var
i,b:integer;
c:char;
begin
i:=Length(Type1);
repeat
b:=b+1;
c:=StrGet(Type1,b);
wait(40+random(55))  ;
keydown(GetKeyCode(c));
wait(40+random(55)) ;
keyup(GetKeyCode(c));
until(b=i)
wait(40+random(55)) ;
keydown(13);
wait(40+random(55))
keyup(13);
b:=0;
i:=Length(Type2);
repeat
b:=b+1;
c:=StrGet(Type2,b);
wait(40+random(55)) ;
keydown(GetKeyCode(c));
wait(40+random(55))  ;
keyup(GetKeyCode(c));
until(b=i)

end;


procedure logout;
begin
changeStatus( 'Logging out...');
movemouseSmooth(4, 476);
wait(300+random(55));
clickmouse(4, 476,true);
wait(300+random(55));

movemouseSmooth(645, 486);
wait(300+random(55));
clickmouse(645, 486,true);
wait(300+random(55));
movemouseSmooth(633, 379);
repeat
wait(300+random(55));
clickmouse(633, 379,true);
until(FindColor(w,e,65535,447, 243,457, 253))
wait(5000+random(55));

if b then
begin
repeat
wait(1000);
until(false);
end;
end;

procedure mapfix;
var
mapp:Extended;
begin
wait(2000+random(55));
repeat
mapp:=DetectRS2MinimapCompassAngle;
wait(1);
keydown(37);
wait(60);
keyup(37);
until((mapp>3.14126130608096) and (mapp<3.34126130608096))
wait(20);
wait(random(55))
keydown(38);
wait(1100+random(55));
keyup(38);
wait(10+random(55));
keydown(40);
wait(400+random(55));
keyup(40);
end;

procedure login;

begin
ChangeStatus('Logging in...');
movemouseSmooth(418, 292);
wait(500+random(55));
clickmouse(418, 292,true);
wait(500+random(55));
typelogin(User,Pass);

movemouseSmooth(259, 314) ;
wait(100+random(55));
repeat
clickmouse(259, 314,true);
wait(3000+random(55));
until(FindColor(w,e,16777215,360, 329,447, 343))
movemouseSmooth(w,e);
wait(55+random(55));
clickmouse(w,e,true);
wait(3000);
ChangeStatus('Setting up...')
setattack;
b:=true;
mapfix;
movemouseSmooth(584, 188);
wait(341+random(55));
clickmouse(584, 188,true);
if FindColor(w,e,Sword,477, 301,501, 323) then
begin
cavefirst:=true;
b:=false;
logstat:=true
end;
if b=true then
logout;

end;





procedure checklog;
begin
if FindColor(w,e,65535,300, 245, 315, 250) then
login;
end;

procedure atttackdots;
var
ab,cd,ef,gh,xx,yy:integer;
begin
if FindColor(ab,cd,65280,2, 2, 515, 337) or FindColor(ef,gh,255,2, 2, 515, 337) then
begin
exit;
end else if FindColor(xx,yy,mininpc,575, 15, 714, 148)then
begin
if FindColor(x,y,cavecolor,10,10,514,336) then
exit;
movemousesmooth(xx,yy);
wait(5);
wait(random(55));
Clickmouse(xx,yy,true);
end;
end;


procedure settime;
begin
 lasttime:=GetSystemTime ;
end;



procedure findcave;
begin
ChangeStatus('Finding Cave...');
repeat
checklog;
 if logstat then
 begin
 logstat:=false;
 exit;
 end;
if(FindColor(x,y,cavecolor,10,10,514,336))THEN
begin
movemouseSmooth(x,y);
wait(500+random(55));
PrintProgressReport;
clickmouse(x,y,false)
wait(600+random(55));
PrintProgressReport;
findbitmap(entercave,x,y);
movemouseSmooth(x,y);
wait(500+random(55));
PrintProgressReport;
clickmouse(x+3,y+3,true);
wait(2000);
end else
begin
wait(3000+random(55));
PrintProgressReport;
end;
until(FindColor(t,v,128, 249, 359,358, 373))
end;

procedure doingit ;
  BEGIN
  PrintProgressReport;
movemouseSmooth(2,484);
wait(100+random(55)) ;
clickmouse(2,494,true);
  end;

procedure attack;
begin
checklog;
 if logstat then
 begin
 logstat:=false;
 exit;
 end;

   PrintProgressReport;
   wait(3000+random(55))
   PrintProgressReport; systimecount;
   status:='Attacking!';
     PrintProgressReport;
           PrintProgressReport; systimecount;
   wait(7000);
   wait(random(55));      PrintProgressReport; systimecount;
   movemouseSmooth(649,66);
      wait(200+random(55));
   clickmouse(649,66,true);
   pick:=0;
   atttackdots;
   checklog;
    if logstat then
 begin
 logstat:=false;
 exit;
 end;
   repeat
   checklog;
    if logstat then
 begin
 logstat:=false;
 exit;
 end;
   pick:=pick+1;
   if (pick>4)then
   pick:=0;
   if(pick=1)then
   begin
   checklog;
    if logstat then
 begin
 logstat:=false;
 exit;
 end;
   movemouseSmooth(574, 218) ;  PrintProgressReport; systimecount ;
   wait(3000+random(55));

   end;
   //////////atttackdots;
   if(pick=2)then
   begin
    checklog;
     if logstat then
 begin
 logstat:=false;
 exit;
 end;
   movemouseSmooth(596, 257) ; PrintProgressReport; systimecount;
   wait(3000+random(55));

   end;

   if(pick=3)then
   begin
    checklog;
     if logstat then
 begin
 logstat:=false;
 exit;
 end;
   movemouseSmooth(589, 291);PrintProgressReport; systimecount;
   wait(3000+random(55));

   end;

   if(pick=4)then
   begin
    checklog;
     if logstat then
 begin
 logstat:=false;
 exit;
 end;
   movemouseSmooth(641, 222); PrintProgressReport; systimecount;
   wait(3000+random(55));

   end;
   if(FindColor(x,y,cavecolor,10,10,514,336))then
   state:=1
   until(state=1);

end;





procedure work(cavefirst:boolean) ;

var
start:boolean;
          begin

end;


procedure first;

begin
if wtr=0 then
begin
starts:=true;
end
else
starts:=false;
wtr:=1;
end ;


procedure main;
begin

start:=true;
          if not cavefirst then
          start:=false;
               repeat

               if start then
               begin
                     checklog;
                      if logstat then
 begin
 logstat:=false;
 exit;
 end;

                     cavefirst:=true;
               end;
               start:=true;
                repeat
                     if cavefirst then
                     begin


                          repeat
                                pick:=1
                                state:=0
                                doneit:=doneit+1;
                                doneitstr:=inttostr(doneit);
                                ChangeStatus('Loading...');
                                wait(200+random(55));
                                findcave;
                                ChangeStatus('Loading...');
                                ChangeStatus('Entering arena...');
                                wait(3000+random(55));
                                attack;
                                lasttimewent:=hourtime;
                                ChangeStatus('Loading...');
                                wait(200+random(55));
                                movemouseSmooth(301, 448);
                                wait(100+random(55));
                                clickmouse(301, 448,true);
                                counter:=counter+1;
                           until(counter=DoneLogout)
                     end
                     else
                     begin

                                wait(3000+random(55));
                                attack;
                                lasttimewent:=hourtime;
                                ChangeStatus('Loading...');
                                wait(200+random(55));
                                movemouseSmooth(301, 448);
                                wait(100+random(55));
                                clickmouse(301, 448,true);
                                counter:=counter+1;
                                start:=false;
                                cavefirst:=true;




                     end;
                     until(counter=DoneLogout);
                     logout;
                     wait(timetowait+random(55));
               until(false)
end;


procedure fakemain;
begin
first;
if starts=true then
begin
cavefirst:=true;
settime;
lasttimewent:='never.';
systimecount;
loadbmps;
doingit;
doneit:=-1;
ChangeStatus('Loading...');
wait(3000+random(55));
counter:=0;
end;
main;
end;


begin
repeat
logstat:=false;
fakemain;
until(false);
end.

This is not yours idiot his first released used clickmouse
and he never made it into movemousesmooth only other people that edited it

stop impersonating faggot

It is me you fucking moron! I never relesed this one hence you havn't seen it. And I only used movemousesmooth. I think I know more about myself than you.

the real grindisbest used clickmouse he never edited the script to move mouse you idiot i've been at sythe and i remember being banned by his script because it used clickmouse

and looking at your previous posts all it looks like is that you're bsing and you're clueless about Scar

:p I think this is pretty funny


Maybe I should make a debate…'Who is the True Grindisbest'

OMG!!!!!! This is me!!!!!!!! Get over it. Why would anyone wanna be me anyway, I've only ever done two scripts and they bother kinda sucked. Tokkul Hunt and a teleporter. I used clickmouse and then changed to holdmouse, wait, releasemouse. I used movemousesmooth!! They are really old scripts that came out about a year ago. I have the email [email]grindisbest@gmail.com[/email], and if you like I can tell you the password to grindisbest in runescape although it is banned for autoing twice!!

And btw clickmouse clicks the mouse while movemousesmooth moves the mouse!!!
Clickmouse cannot move the mouse!!

Also I started puting a clickmouse procedure in my scripts that override the normal clickmouse procedure with holdmouse, wait, releasemouse. I starting doing that in the second public release.

you don't even know what you're saying so shut the hell up

if you're not blind that script that you probably from google is already using clickmouse

procedure so what you just said above proves you're a stupid nut sack waiting to be

smashed.


and what happened to the "I'm the best scripter around"


http://www.rsforums.org/forums/showthread.php?t=2355

o look i can use google too!!!



BTW grindisbest and fliptera is the same person, so he should be banned for having 2 accounts here

From: fliptera
Oh man people remember my old scripts. Oh btw I'm grindisbest I just use a different name now, Becuase of change of emails due to so many people try to scam me. Anyways I'll see if I can dig up my old script, although I've changed computers since my old scripting days so I might not have so much luck.

From: WT-Fakawi
Multiple Accounts: any user is allowed to have 1 account and 1 account only.

You fucking moron!!!!!!!!! I am who I say I am!!!! I never said I was the best scripter around you fucking moron!!! I didn't post it in rsforums.org someone else did. I know it uses clickmouse!!!!! But if you look at the first procedure you'll see it looks kinda like this

procedure clickmouse(integer: x,y boolean:left);
begin
holdmouse(x,y,left);
wait(25+random(25));
releasemouse(x,y,left);
end;

If not, it's the first public release. The version of the script I showed above is the one before the public release. Do you get it now you fucking idiot!!! If not go back to fucking school!! I'm sick of trying to prove I am MY FUCKING SELF!!! If you like you can think I'm someone else, I really don't give a fuck becuase it doesn't change who I am, and why the fuck are you threating to hit me in a fucking forum you sad fucking retard. Why are you wasting your time trying to say I'm not who I say I am??!! Grow up!!

Since your so good at using google, why don't you see if you can find the version I left grindisbest and my password in the user name and pass const. Then you can log into my grindisbest rs account, although it's banned so you can only look at the appeal ban part. That would 100% prove it.

it sucks/…

lol…that was the funniest argument i've ever seen

Jerry Jerry Jerry Jerry!!!!