SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
RSC, Rs-forums

How Long have You Played Runescape
4-5 years

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

I got interested in cheating a few months before the giant bans that Jagex performed in Jan of 06. At the time I mostly just browsed forums and leeched a few woodcutting scripts for the sythe forums. I stopped cheating for a few months and then rejoined the community on an off on basis picking up basic scripting info. After awhile I tried to make my own scripts most of which were quite bad and somewhat detectable due to the way i built them. After posting them on forums and learning ways to make them better I learned how to improve my scripts and make them better. I am not an incredibly active poster of these forums or any others though i do read the topics and look at other more advanced scripts to improve my own skills.

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

//Ali M Rune Buyer By Woody
//
//The script now runs in the RS Client
//
//Thanks to SRL Forums who have helped me create this script into a much better one.


program AliM;
{.include SRL\SRL.SCAR}
var c,t,p,u,w :integer;
const
 WorldHops = 1;  //How many worlds you want to visit
 Natures = 1 ;   // Number of purchases x10
 Chaos = 1 ; // Number of purchases x10
 Death = 1 ; // Number of purchases x10



Procedure DeclarePlayers;
begin
     HowManyPlayers:=2;  //Change to the amount of players you use
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name     :='';        //Enter your Username here
     Players[0].Pass     :='';          //Enter your Password here
     Players[0].Nick     :='';           //Enter your Nickname here
     Players[0].Active   := True;    //Dont Change

     Players[1].Name     :='';        //Enter your Username here
     Players[1].Pass     :='';          //Enter your Password here
     Players[1].Nick     :='';           //Enter your Nickname here
     Players[1].Active   := True;    //Dont Change

end;


//Convo with Ali M to open buy screen\\
procedure Talk ;
 begin
  If (FindColor(x, y, 527690, 25, 117, 406, 354)) Then
   Begin
    Mouse(x,y,1,1,true)
    MoveMouse(190,295)
  Wait(1000+random(500));
    end;
If (FindColor(x, y, 16711680, 132, 435, 501, 506)) Then
   Begin
    Mouse(x,y,1,1,true)
    MoveMouse(190,295)
  Wait(1000+random(500));
   end;
If (FindColor(x, y, 16711680, 132, 435, 501, 506)) Then
   Begin
    Mouse(x,y,1,1,true)
    MoveMouse(190,295)
  Wait(1000+random(500));
   end;
If (FindColor(x, y, 16711680, 132, 435, 501, 506)) Then
   Begin
    Mouse(x,y,1,1,true)
    MoveMouse(190,295)
 Wait(1000+random(500));
   end;
   Begin
    Mouse(184,410,1,1, true)
    MoveMouse(190,295)
 Wait(1000+random(500));
   end;
If (FindColor(x, y, 16711680, 132, 435, 501, 506)) Then
   Begin
    Mouse(x,y,1,1,true)
    MoveMouse(190,295)
Wait(5000+random(500));
 end;
   Begin
    Mouse(203,426,1,1, true)
    Wait(1000+random(500));
    end;
  end;
//Buying Nats Part\\
Procedure BuyNatures;
Begin
t:=0
x := MSCX;
y := MSCY;
  begin
    If(FindColorSpiralTolerance(x, y, 1346065, 83, 74, 106, 95, 10))Then
        begin
          Mouse(x,y,1,1,false)
          Wait(200+random(500))
          Mouse(x+4,y+71,0,0,true)
          Wait(200+random(500))
        end;
    repeat
      t:=t+1
      BuyNatures;
    until (t = Natures)
  end;
end;

//Buying Chaos Part\\
 Procedure BuyChaos;
begin
p:=0
x := MSCX;
y := MSCY;
  begin
    If(FindColorSpiralTolerance(x, y, 1681119, 175,71, 199,95, 10))Then
    begin
     Mouse(x,y,1,1,false)
          Wait(200+random(500))
          Mouse(x+4,y+71,0,0,true)
          Wait(200+random(500))
    end;
      repeat
        p:=p+1
        BuyChaos;
      until (p = Chaos)
  end;
end;
//Buy Death Part\\
 Procedure BuyDeath;
Begin
u:=0
x := MSCX;
y := MSCY;
  begin
    If(FindColorSpiralTolerance(x, y, 14737636, 223,76, 248, 93, 10))Then
    begin
      Mouse(x,y,1,1,false)
          Wait(200+random(500))
          Mouse(x+4,y+71,0,0,true)
          Wait(200+random(500))
    end;
      repeat
        u:=u+1
        BuyDeath;
      until (u = Death)
  end;
end;

procedure NewWorld  ;
begin
    Mouse(66,473,5,5, true)
    Mouse(631,11,1,1, true)
    Mouse(509,w,1,1,true)
end;


procedure Report;
begin
  ClearDebug;
  Writeln('<---------------------------------------------->');
  Writeln('  Ali Morrison v.1.1 by Woody  ');
  Writeln('  Worked For '+ScriptTime2(2));
  Writeln('<---------------------------------------------->');

end;



begin
DisguiseScar('Mozilla Firefox');
SetUpSRL
c:=0;
w:=42;
DeclarePlayers;
LoginPlayer;
AntiBan;
    repeat
       LoginPlayer;
       Talk;
       BuyNatures;
       BuyChaos;
       BuyDeath;
       c:=c+1;
       Logout;
       NewWorld;
       w:=w+21
    until(c=WorldHops)
       Logout;
       Report;
end.

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

I'm saying no because you use almost none of SRL, better luck next time.

MoveMouse(190,295)=BANNED

And the script overall is too simple.
No failsafes.
No Antiban/Antirandoms
Bad standards.
Bad functionality.

So, gonna have to say no.