SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
deathscytex


What is your general programming knowledge?
scripting i made several bots for users


Are you a member of any other communities?
nope


Tell us about yourself…

From: ssh0rty3
my inetersts hmmm RUNESCAPE computering creating scripts and leveling on rs

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

program ReFlax;

{
  ********************************************************************
  ********************____      _____ _*******************************
  *******************|  _ \ ___|  ___| | __ ___  __*******************
  *******************| |_) / _ \ |_  | |/ _` \ \/ /*******************
  *******************|  _ <  __/  _| | | (_| |>  < *******************
  *******************|_| \_\___|_|   |_|\__,_/_/\_\*******************
  ********************************************************************
  *************************  HOW   TO  USE  **************************
  ********************************************************************
  *                                                                  *
  *   -- Declare your player in DeclarePlayers, like normal.         *
  *                                                                  *
  *   -- Fill in how many loads to do (LoadsToDo).                   *
  *                                                                  *
  *   -- Fill in your SRL ID and Pass.                               *
  *                                                                  *
  *   -- Make sure you have flax in your inventory.                  *
  *                                                                  *
  *   -- Make sure you have Flax on your first bank tab.             *
  *                                                                  *                                                                *
  *   -- Start logged out on the top of Lumbridge Castle             *
  *                                                                  *
  *   -- Run the script.                                             *
  *                                                                  *
  ********************************************************************
  }

{.include SRL/SRL.scar}



Var
X, Y : integer;
Spin : integer;
Loads : integer;
FlaxBMP : integer;

Const
LoadsToDo = 50;         // How many loads to do
SRLStatsID = 's3';       // Your SRL stats ID
SRLStatsPass = 'a';    // Your SRL Stats Password

procedure DeclarePlayers;
begin
 HowManyPlayers :=1; //How many players to use in script
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer :=0;

 Players[0] .Name         := 's2';          // Username
 Players[0] .Pass         := 'daa';                // Pass
 Players[0] .Nick         := 'ssh0
 ';           //3/4 of the characters name (bobbey = bob)
 Players[0] .Active       := True;            // True=yes, False=no//
 Players[0] .Booleans[1]  := False;          // False for brightness Check Once. Just leave at false.
 Players[0] .Pin   := '0000';               // Your BANK-Pin - Leave at 0000 if you don't have a pin
end;



//////////////////////DO NOT TOUCH BELOW THIS LINE///////////////////////////////////////////

Procedure AntiRandoms;
begin
  wait(250 + random(100));
  findnormalrandoms;
    if findfight=true then
    begin
      RadialWalk(FindLadderColor,270,110,70,2,2);
      wait(3500 +random(500));
    if FindColorSpiralTolerance(x, y, 8226183, 212, 182, 270, 242, 2) then
      Mouse(X,Y, 2, 2, false);
      ChooseOption('-up');
      wait(3500 + random(500));
      FindObjCustom(x, y, ['case', 'Stair', 'Staircase'],[8226183,8160390,6054499], 3)
      Mouse(X,Y, 1, 1, false);
      ChooseOption('-down');
      wait(2000 + random(500));
  end;
end;


////////////////////////////////////ANTI BAN/////////////////////////////////////////

Procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case (Random(100)) of
    1: RandomRClick;
    5: HoverSkill('crafting', False);
    11: RandomMovement;
    15: BoredHuman;
    24: PickUpMouse;
    27: begin
         Gametab(1 + Random(12));
         Wait(3000 + Random(200));
         Gametab(4);
        end;
    30: SleepAndMoveMouse(3600);
  end;
  end;
  
//////////////////////////////////////////PROGGY//////////////////////////////////////////

Procedure ProgressReport;
Begin
  ClearDebug;
  SRLRandomsReport
  Writeln('||----------- ProgressReport -----------||');
  Writeln(Padr('||- Flax Spun : '+IntToStr(Spin), 39)+ '-||');
  Writeln(Padr('||- Loads Done: '+IntToStr(Loads), 39)+ '-||');
  Writeln(Padr('||- Ran For: ' + TimeRunning, 39) + '-||');
  Writeln('||--------------------------------------||');
End;


  
////////////////////////////BANK FLAX FINDER/////////////////////////////////////////////

Procedure FindFlaxBank;
Begin
FlaxBMP := BitmapFromString(19, 8, 'beNplkDkOwjAQReOKLM5C4C5UV' +
       'FQ0NEgQkChCQZGCIgUF50IoYhGiRQhxJL79lYEE6xX2j99kPI7Kqs' +
       'vifHMcZeFqhNE2dUdBWHSRLK/3+fGkV3GQRTjiGsCxdpU31riMTbh' +
       'JdJ64Q7+urKAAbNbPd/54tf5IEaDar+hPQ8Ij8vqTLFMZIdvoDDxj' +
       'TTSJyjTe92k1XVOZIkOIQCwj7np/oq1s+5EQLwXoH4MCs0OFEUmrR' +
       'PphzjcCWACzNW5pXPbWcmWAInLIXz7JZT76');
  wait(500 + random(250));
  if FindBitmapToleranceIn(FlaxBMP, x, y, MSX1, MSY1, MSX2, MSY2, 35) then
    begin
    Exit;
    writeln('Flax Found');
    end
    else
    begin
    Progressreport;
    writeln('Flax Not Found');
    TerminateScript;
    end;
end;


/////////////////////////////////////////BANK TO STAIRS///////////////////////////////////

procedure FindBankStairs;
begin
  RadialWalk(FindLadderColor,250,110,70,2,2);
  wait(3500 +random(500));
  if FindObjCustom(x, y, ['case', 'Stair', 'Staircase'],[8226183,8160390,6054499], 3) then
      begin
      Mouse(X,Y, 1, 1, false);
      ChooseOption('-down');
      wait(2000 + random(500));
      end
      else
      begin
      ProgressReport;
      writeln('Could not find stairs. Terminating script.');
      TerminateScript;
      end;
end;

/////////////////////////FIND DOOR AFTER SPINNING//////////////////////////////////////////

Procedure FindDoor;
begin
 if FindObjCustom(x,y, ['Door'], [2568505,3358795,3029572, 6855065], 5) then
   begin
        Mouse(X,Y, 2,2,false);
        wait(250+random(250));
        ChooseOption('pen');
        wait(500+random(500));
   end
end;
   
/////////////////////////FIND SPINNING WHEEL, AND SPIN FLAX/////////////////////////////////

procedure FindSpin;
 begin
   SymbolAccuracy := 0.4;
  if FindSymbol(X, y, 'spin') then
     Mouse(X, Y, 2, 2, true);
     wait(3500 + random(543));
  if FindObjCustom(x, y, ['pin', 'Spin', 'wheel'], [4346721, 15198186, 2963522], 5) then
     begin
      wait(100 + random(73));
      Mouse(X, Y, 1,1, true);
      wait(2000+random(1000));
      Mouse(273, 122, 5, 5, False);
      wait(100 +random(100));
      ChooseOption('ll');
      wait(1750 + random(250));
     if FindNormalRandoms then
      begin
       Loads := Loads - 1;
       ReportVars[1] := ReportVars[1] -1;
       exit;
      end;
     wait(10000 + random(1000));
     AntiBan;
    if FindNormalRandoms then
      begin
       Loads := Loads - 1;
       ReportVars[1] := ReportVars[1] -1;
     Exit;
    end;
     wait(10000 + random(1000));
     AntiBan;
      if FindNormalRandoms then
     begin
     Loads := Loads - 1;
     ReportVars[1] := ReportVars[1] -1;
     exit;
     end;
     wait(10000 + random(1000));
     AntiBan;
      if FindNormalRandoms then
     begin
     Loads := Loads - 1;
     ReportVars[1] := ReportVars[1] -1;
     exit;
     end;
     wait(10000 + random(1000));
     AntiBan;
     if FindNormalRandoms then
     begin
     Loads := Loads - 1;
     ReportVars[1] := ReportVars[1] -1;
     exit;
     end;
     wait(10000 + random(1000));
     AntiBan;
     if FindNormalRandoms then
     begin
     Loads := Loads - 1;
     ReportVars[1] := ReportVars[1] -1;
     exit;
     end;
     Spin := Spin+28;
     ReportVars[0] := ReportVars[0] + 28;
     end
     else
     begin
     ProgressReport;
     Writeln('Spinning wheel not found. Terminating script');
     TerminateScript;
     end;
     end;

/////////////////////////////////////SPINNING WHEEL TO STAIRS////????????///////////////////

Procedure FindSpinStairs;
begin
     RadialWalk(FindLadderColor,270,110,70,MMCX,MMCY);
     wait(3500 +random(500));
     if FindObjCustom(x, y, ['case', 'Stair', 'Staircase'],[7831425,5988706,3754069], 5) then
       Mouse(X,Y, 2, 2, false);
       ChooseOption('-up');
       wait(3500 + random(500));
       AntiBan;
 end;

///////////////////////////////////////////BANK AND GET NEW FLAX////////////////////////////

Procedure Bank;
begin
  SymbolAccuracy := 0.5;
  if FindSymbol(X, y, 'bank') then
    Mouse(X, Y-8, 2, 2, true);
    wait(4500 + random(543));
    AntiBan;
    if FindObjCustom(x, y, ['ooth', 'Bank Booth'], [8753305, 3622224, 8160910], 5) then
    begin
    wait(1500 + random(200));
    Mouse(X,Y, 2,2, false);
    Wait(200 + random(200));
    ChooseOption('-quickly');
    Wait(1500 + random(500));
    if Pinscreen then
    begin
    wait(500 + random(500));
    InPin(players[currentplayer].Pin);
    end;
    Wait(1500 + random(500));
    Mouse(574,220,  5, 5, false);
    wait(100 + random(100));
    ChooseOption('-All');
    Loads := Loads + 1;
    ReportVars[1] := ReportVars[1] + 1;
    FindFlaxBank;
    wait(500+random(200));
    Mouse(x,y, 5,5 ,false);
    wait(200+random(100));
    ChooseOption('-All');
    wait(500+random(500));
    end
    else
    begin
    ProgressReport;
    writeln('Could not find bank. Terminating script');
    TerminateScript;
      end;
end;

/////////////////////////////////SETUP///////////////////////////////////////////////

procedure Setup;
begin
  SetupSRL;
  ScriptID := '1076';
  SRLID := SRLStatsID;
  SRLPassword := SRLStatsPass;
  DeclarePlayers;
  ClearDebug;
  ActivateClient;
  loginPlayer;
  Wait(1500 + random(500));
  Mouse(727, 102, 4, 4, false);
  ChooseOption('mode on');
  wait(100 + random(250));
  MakeCompass('35');
KeyDown(VK_Up);
Wait(500 + random(500));
KeyUp(VK_Up);
wait(250 + random(100));
end;


///////////////////////////////////////MAIN LOOP//////////////////////////////////////////

begin
Setup;
repeat
  FindBankStairs;
  FindSpin;
  FindDoor;
  FindSpinStairs;
  Bank;
  ProgressReport;
until (Loads = LoadsToDo);
CloseBank;
Wait(500 + random(500));
LogOut;
Progressreport;
end.

Just glancing over the script, most of the procedures would be better as functions, and you could use a lot more failsafes. In fact, I'm not sure you have any.

Also, standards need some work.

Edit: Well, it's a good thing I'm not being employed to catch people stealing scripts, since I totally missed that this script was stolen 'till Floor pointed it out.

Not your script. This is Sirpa's ReFlax flax spinner.
Please learn to script, make a good script and apply ;)

EDIT:
http://www.villavu.com/forum/showthread.php?t=37846 << Sirpa's script!

try adding something else other then findobj, thats why i voted no
edit: omg, u script thief!!1

I knew i saw this anywhere else..

I thought that only JR members could apply for membership. Even if the script wasn't stolen, it wouldn't be good enough to get in.. However, You get no advice from me.


Enjoy your permanent status as a JR member.

Closed.

~RM