SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
grindisbest - SRL Member Application Form
grindisbest

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Java, C++, Delphi. Scar

Other Communitys
Sythe

How Long have You Played Runescape
About a year and half

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well I'm 17 studying computers at uni and in my spare time like playing runescape, although I kinda find the game a little boring I like to write and run scripts. Although I havn't done any of this in a long time I would now like to get back into it.

Before SRL became big I made this script below. This was a beta version that wasn't released but you may remember the script that was. Tokkul hunt by grindisbest.

Because my computer crashed and I couldn't be bothered much with it I don't have anymore than this one but I did write a few other scripts.

Please except me becuase I would love to take part in making SRL scripts.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

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.

Ok today I made a SRL script. Start in Falador east bank. Try it out tell me what you think. It walks to the magic shop and buys eye of newts and then walks back and banks them. On yeah remember to put your coins in the first bank slot and have an empty inventory. BTW I havn't edited to make it so it should be run for long periods but I'd just add in logouts, progress report, randoms and changing players, no biggy. I just did a quick script to see if anyone thinks I have what it takes.

program Grindisbest;
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\amount.scar}
Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'user';
  Players[0].Pass := 'pass';
  Players[0].Nick := 'nick'; //3 - 4 letters of YOUR username, example: zima
  Players[0].Active := True;
  Players[0].Integer1 := 100; //Amount of loads
  Players[0].String1 := 'Mining'; //What skill to pick for lamp
  
end;

Procedure AntiRandoms;
begin
  FindNormalRandoms;
  FindLamp(Players[CurrentPlayer].String1);
end;

Procedure BankingWithDraw;
begin
  repeat
    //openbank3;
    OpenBankQuiet('feb');
    wait(500);
    if not bankscreen then
      MakeCompass('S');
  until(BankScreen);
  if ExistsItem(2) then
    Deposit(2,2,2);
  writeln(inttostr(Amount('inv',1)) + ' coins in your inventory.');
  if Amount('inv',1)<=500 then
    Withdraw(1,1,500);
  Closebank;
  MakeCompass('N');
end;

Procedure WalkingToShop;
var
  x,y,a :integer;
begin
  a := random(1);
  if (a=1) then
  SetRun(true);
  RadialWalk(FindFallyRoadColor, 205, 228, 60, 0, 1);
  wait(10000+random(200));
  RadialWalk(FindFallyRoadColor, 192, 167, 65, 0, 1);
  wait(random(200));
  RadialWalk(FindRoadColor, 187, 162, 66, 0, 1);
  wait(random(200));
  RadialWalk(FindRoadColor, 200, 177, 66, 0, 1);
  wait(random(200));
  RadialWalk(FindRoadColor, 190, 160, 67, 0, 1);
  wait(500+random(200));
  a:=0;
  if FindSymbol(x,y,'magic shop')then
  begin
    Writeln('Found Magic Shop in MM');
    a:=1;
    Mouse(x-5+random(5),y-30+random(5),4,9,true);
  end else
  begin
    Mouse(672, 123,20,20,true);
    Flag;
    wait(500+random(200));
  end;
  wait(500+random(200));
  if FindSymbol(x,y,'magic shop') and (a=0) then
  begin
    Writeln('Found Magic Shop in MM') ;
    Mouse(x-5+random(5),y+random(5),4,9,true);
    flag;
  end;
end;

Procedure Shop;
var
  a :integer;
begin
  repeat
    wait(40);
    a:=0;
    if FindObj3(x,y,'Betty',5441620,25) then
      Mouse(x,y,1,1,false);
    if not ClickOption('Trade', 1) then
    begin
      ClickOption('Clancel',1);
      a:=1;
    end;
  until(a=0);
  a:=0;
  repeat
  wait(50);
  until(shopscreen);
  Repeat
    Mouse(82+Random(5), 123+Random(5),15,15,false);
    wait(30+random(100));
    if not ClickOption('Buy 10', 1) then
    begin
      ClickOption('Clancel',1);
      a:=a-1;
    end;
    wait(100+random(100));
  a:=a+1;
  Until(a=3);
  Mouse(479,34,10,10,true);
end;

Procedure WalkingToBank;
var
  x,y:integer;
begin
  mouse(650, 22,3,4,true);
  wait(10000);
  flag;
  wait(300+random(200));
  RadialWalk( findroadcolor, 383, 320, 74, 0, 1);
  wait(2000+random(100));
  RadialWalk( findroadcolor,  383, 331, 79, 0, 1);
  wait(4000+random(100));
  RadialWalk( findroadcolor, 383, 331, 66, 0, 1);
  wait(2000+random(100));
  RadialWalk( FindFallyRoadColor, 383, 331, 66, 0, 1);
  wait(2000+random(100));
  RadialWalk( FindFallyRoadColor, 383, 331, 66, 0, 1);
  wait(2000+random(100));
  repeat
    wait(10);
  until(FindSymbol(x,y,'bank'));
  Mouse(x,y+10,1,1,true);
  flag;
end;

begin
  SetupSRL;
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  LoginPlayer;
  repeat
    BankingWithDraw;
    WalkingToShop;
    Shop;
    WalkingToBank;
  until(0=1);

end.

——————————————————
<!– END TEMPLATE: formanswers –>

EDIT: Mis-Calculated Bust
Well, the bitmap is coppied
http://www.fagex.net/showpost.php?p=172835&postcount=3

And all your procedures are 100% detectable.
Clickmouse MoveMouse MoveMouseSmooth, all get you banned.

Please read before you post here, its for skilled scripters to apply only!

EDIT:
NEVER MIND!

Owned noob!
SILLY GOOSE
http://www.rsforums.org/forums/showpost.php?p=18815&postcount=14
(Regsiter and download script to see it)

And its not even a good script, even if you DID make this, you wouldn't get accepted….
Here it is:
{Stand out side the mini game cave, set the cave color, then logout!}
{Dont forget to do setup!}
{-Step}

program TokkulFighter;

const
  cavecolor = 6513003; //the color of the cave. White a color between the lightest and darkest.
  timetowait = 5; //Seconds to wait when logged out.
  DoneLogout = 100; // How many times to go through until logging out.
  attacktype = 2; // Attack Type (1-2-3-4)
  User = 'user';
  Pass = 'pass';


var
  x, y, w, e, t, v, wtr, doneit, state, pick, entercave, lasttime, mtime, ftime, mintimec, click, hourtimec, minre, hourre, secre, days, counter, sword, fatt, fdef, fstr, fhit, ooopp, ChatChars, oooppp: integer;
  doneitstr, status, systime, hourtime, dayss, minres, hourres, secres, lasttimewent, CombatXP: string;
  starts, start, cavefirst, b, logstat: boolean;

procedure LoadBmps;
begin
  entercave := BitmapFromString(29, 5, 'z78DA3330400037246040' +
    '55400B93DD7000E25592AA9E5A2A49F5177E1388319954BDE4B99' +
    '65A260F5DD7E28A3B00195CC18D');
end;

function FindCombatStats(CombatSkill: Integer): integer;
var
  ggg, hhh, ppp, xxx, yyy, xxx1, yyy1, mmx, mmy, statreturn: integer;
  stat: string;
begin
  case CombatSkill of
    1: begin xxx := 617; yyy := 248; xxx1 := 610; yyy1 := 245; mmx := 580; mmy := 230; end;
    2: begin xxx := 632; yyy := 278; xxx1 := 623; yyy1 := 276; mmx := 580; mmy := 260; end;
    3: begin xxx := 628; yyy := 308; xxx1 := 628; yyy1 := 307; mmx := 580; mmy := 290; end;
    4: begin xxx := 695; yyy := 247; xxx1 := 683; yyy1 := 245; mmx := 650; mmy := 230; end;
  end;
  movemouse(mmx, mmy);
  repeat
    wait(200);
    ppp := ppp + 1;
  until (FindColor(ggg, hhh, 10551295, xxx, yyy, xxx + 3, yyy + 3) or (ppp = 20));
  stat := GetTextAtEx(xxx1, yyy1, 0, ChatChars, False, False, 0, 5, 0, 8, false, Tr_Digits);
  ppp := 0;
  stat := Trim(stat);
  if Length(stat) > 0 then
  begin
    statreturn := strtoint(stat);
    result := statreturn;
  end else
  begin
    result := 0;
  end;
end;

procedure StringOutXP;
var
  att, str, def, hit: integer;
  a11, s11, d11, h11: string;
begin
  att := FindCombatStats(1);
  str := FindCombatStats(2);
  def := FindCombatStats(3);
  hit := FindCombatStats(4);
  att := att - fatt;
  str := str - fstr;
  def := def - fdef;
  hit := hit - fhit;
  if att > 0 then
    a11 := (inttostr(att) + ' Attack XP :');
  if str > 0 then
    s11 := (inttostr(str) + ' Strength XP :');
  if def > 0 then
    d11 := (inttostr(def) + ' Defence XP :');
  if hit > 0 then
    h11 := (inttostr(hit) + ' Hit Points XP');
  CombatXP := 'You have gained : ' + a11 + s11 + d11 + h11;
end;

{procedure findCaveLocation;
var
  xv, yv: integer;
begin
  xv := 2;
  yv := 2;
  repeat
    if (IsTextAt2(9, 9, 'Enter', 100) and FindColorTolerance(x, y, 9342874, xv, yv, xv + 1, yv + 1, 42) and (xv > 76) and (yv > 22)) then
    begin
      cavecolor := getColor(xv, yv);
      break;
    end;
    if xv < 514 then
    begin
      xv := xv + 10;
    end else
    begin
      xv := 2;
      yv := yv + 10;
    end;
    if yv > 336 then
      break;
    movemousesmooth(xv, yv);
    wait(5);
  until (false)
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('|=========================================|');
  writeln('|==============Tokkul Hunt by StepSlightly!================|');
  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(CombatXP);
  writeln('<3 SS');
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 oooppp = 0 then
  begin
    fatt := FindCombatStats(1);
    fstr := FindCombatStats(2);
    fdef := FindCombatStats(3);
    fhit := FindCombatStats(4);
  end;
  oooppp := 1;
  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 findcave;
var
  ffff: integer;
begin
  ChangeStatus('Finding Cave...');
  checklog;
  if logstat then
  begin
    logstat := false;
    exit;
  end;
  repeat
    if cavecolor = 0 then
    begin
      findCaveLocation;
    end else
    begin
      if not FindColor(x, y, cavecolor, 10, 10, 514, 336) then
        findCaveLocation;
    end;
    movemouseSmooth(x, y);
    ffff := GetColor(x, y);
    wait(500 + random(55));
    PrintProgressReport;
    clickmouse(x, y, false)
      wait(600 + random(55));
    if findbitmap(entercave, x, y) then
    begin
      cavecolor := ffff;
      movemouseSmooth(x, y);
      wait(500 + random(55));
      PrintProgressReport;
      clickmouse(x + 3, y + 3, true);
      wait(6000);
    end else
    begin
      movemousesmooth(x, y - 50);
      wait(2000);
    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;
  stringoutXP;
  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);
      wait(3000 + random(55));
    end;
   //////////atttackdots;
    if (pick = 2) then
    begin
      checklog;
      if logstat then
      begin
        logstat := false;
        exit;
      end;
      movemouseSmooth(596, 257);
      wait(3000 + random(55));
    end;
    stringoutXP; PrintProgressReport;
    if (pick = 3) then
    begin
      checklog;
      if logstat then
      begin
        logstat := false;
        exit;
      end;
      movemouseSmooth(589, 291);
      wait(3000 + random(55));
    end;
    if (pick = 4) then
    begin
      checklog;
      if logstat then
      begin
        logstat := false;
        exit;
      end;
      movemouseSmooth(641, 222);
      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 div 1000) + 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
  CombatXP := '|=========================================|';
  ChatChars := LoadChars2(AppPath + 'CharsChat2\')
    LoadChars('');
  sword := 10921638;
  repeat
    logstat := false;
    fakemain;
  until (false);
end.

Now everyone is mad at you for copying scripts.
That wasnt a very smart choice.
You think were stupid!

\/\/3 R n@wt t3h S70ope3d!

Lmao man, if you going to copy a script at least copy a good one.

I made this before SRL came out and it got me from 40 to 100. Also if you even took two seconds to read it in fagex you would have seen it said MADE BY GRINDISBEST!!!!! I want to get better than this old script and that's why I want to be apart of this forum.

Well, atleast he made it.

Made by Grindisbest, THIS IS A FREE SCRIPT IF YOU BROUGHT IT///////
//YOU WERE RIPPED OFF!

Thats what it said in the script at the top. And yes those procedures will get you banned quick.

Grind, regardless if you copied or not you won't get in. The script is terribly detectable.

Grind, Do you still access to your Sythe account, that you are able to make post on the forums there, validating that you are indeed one in the same person ? If this really is you, Although this script is Old, it was a good script then, Seeing that it is outdated, you should still poses the talent to be able to learn the new procedures associated with the Current version of SRL and SCAR…I am willing to give anyone the benefit of the doubt, However it does state in the application page, that you are required to supply a Working Script Demonstrating your ability and comprehension of SRL…. This post will probably be up for a few more days, so if you could repost a current version or another Original piece using SRL…Otherwise take the time to read some tutorials here and get Reacquainted with SCAR and learn SRL and try again in a month, Good Luck, RAM

This was a good script NEVER.
Movemousesmooth, clickmouse.
Detectable a few months after scar was made :p

Thanks RAM_RUNE. I'll take your advice and teach myself abit about SRL. BTW YOHOJO this was only the first version and this was before SRL. It was quite I good script then. I used it to get my account from combat level 40 to 100 which then was banned when I got to 100 but since it was the first ban they let me off. Also if you havn't notice people have qouted my work in a few places, saying they are doing kinda what I did with this script.

http://sythe.org/showthread.php?t=212701

Doesnt matter what version.
My point is (even if its not copied) im not voting yes because its detectable.
You arent supped to apply with an old script you made, we want a new SRL working script.

No:

• Multiplayer
• Antirandoms
• Antiban
• SRL

Oh, on top of that, it's highly detectable

I suggest you update it a bit, or just make a new script. That script shows that you know how to script, but you need to show that you know SRL to get accepted.

Good Luck,
Smartzkid

Ok well thanks guys, lol I don't think I'll get in with this but I got some script ideas. Thanks for the good feedback. You'll hear from me again soon, I hope.

i remember this guy from sythe. i think he has hes own one too, or sythe doesnt have copybusters. I remember that script got me banned when i was a noob. :)

Lol yup that would have been me on sythe. Sorry I good ya banned with my old script.

Well, I guess I'm sorry, I'm not registered at that forum so I just took Yohojos word for it :|

No problem! :)

If u did indeed make this script… i think u should have the potential to learn most of the mainly used procedures used in SRL. I learned the main functions of SRL in less then a week :P Then just make a simple but not to simple.. script that uses radial road walk, SRL procedures, and Declare Players.. Anyways, GL.

From: YoHoJo

You think were stupid!

I think your a little stupid for not reading the script that you tryed to say wasn't my script.

But you are just doing your job, I guess. Kinda. Did you remember to put it back to 35 busts?

Please except me

…. you mean "accept"…..

People please, if you want to apply take the time to write compose your application using PROPER ENGLISH. :fiery:

Or at least halfway correct, but that mistake completely changes the meaning of the word, come on…

EDIT: How fucking convenient for you that sythe got hacked. "Oh what the hell happened to my post count?"….

Srl???

a guy with 100 posts on that site has no idea what SRL is??? WTF.

Grrr some noob in SRL-Forums doesn't believe I am me.

You're the noob if you cannot produce a script that is able to defeat Jagex's modern macro detection system. Produce one, resubmit your app, in the meantime I recommend you stay off of sythe. Being there has literally reduced my intelligence by about .03% in the 10 seconds I was there.

Ummm, dude did you see my new script?

Dude, Please don't waste our time :bart:
Why can't you just be a normal guy that learns scripting and then applicates with a NOT STOLEN script..

YoHoJo will get copiers .. YoHoJo always get copiers ;) Live with it! :p
@ YoHoJo - Nice Job, Again :)

Rambozin, I realize your'e excited to be a new SRL member, but please take the time to read this Post ! before making any more comments …Also, if you would have read the entire post here, you would have known that it looks like he is the ORIGINAL author of the script, although it is Old…

Grindisthebest, I was really cheering for you, until I see you quoting a post made by YoHoJo AFTER he has already made a reply to you.. Although we may seem a bit overzealous trying to COPY Bust people, you must understand that we get several applications a week, where people try and use Other people's scripts as their own to gain acceptance..

As far as your new script, I would say if you…

add in logouts, progress report, randoms and changing players

you would have my vote…but considering, you think…….I am just

some noob in SRL-Forums doesn't believe I am me.

I would just have to say the house of cards you have building has suddenly collapsed……

Take the next month and learn as much as you can, especially about respect and maturity.


YOHOJO, As soon as your'e done flaming him, feel free to lock this application ;)

From: RAM_RUNE
you would have my vote…but considering, you think…….I am just I would just have to say the house of cards you have building has suddenly collapsed……

I wasn't talking about you, It was on another thread he was saying that I wasn't me, sorry if you took offence. It was actually a non-SRL member. Sorry if you took this the wrong way.

From: grindisbest
I wasn't talking about you, It was on another thread he was saying that I wasn't me, sorry if you took offence. It was actually a non-SRL member. Sorry if you took this the wrong way.

http://www.srl-forums.com/forum/new-tokkul-hunter-t8420p2.html

Noted, Apology accepted, and sorry for the confusion….. Now, about those ……. logouts, progress report, randoms and changing players…All needed in an SRL Script……. RAM

Yeah I'll be getting onto that next time I have day without work or study, so it may be a few weeks. Thanks for helping me out!