SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java

Other Communitys
www.sythe.org, www.rs-resources.com

How Long have You Played Runescape
a little over 2 and a half years

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

I am a human from the planet Earth, I enjoy playing this MMORPG, this Runescape, and have found that it is very interesting, not to mention more fun, to use scripts to play the game for me. It's like playing even when I'm not playing. When i realized some of these scripts had problems, i printed them out, brought them to school, and throughout the course of a few days, I was able to figure out what most everything meant, and was soon able to repair the scripts. To make a long story short, I started tweaking scripts quite a bit so there was a better chance i wouldn't get banned, wanted to give a bit back to the community, don't want 100 views of a script with 1 comment of "nice i will test it laterz pl0x" and I would like access to better scripts to learn from. A bit of experience, still learning, same goes for java, i know a bit more about pascal, or we u guys call the language SCAR uses, because it is, for the most part, self explanatory…

meaning to life: 42
couldn't find the slot in the form for that, sorry… here you are…

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

Ok, first off, last time i applied for membership… i got copy busted…

From: YoHoJo

…

Wow, this was a hard one!

-a little trouble with that quote from YoHoJo, so here it is so you can see it for yourself…
http://www.villavu.com/forum/showthread.php?t=9292?p=101866

Yes, it was a hard one. Mainly because, I didn't, or at least, didn't mean to plagiarize. When I first started this script, it was because I got a request from sythe, a request to make a flax spinner from Lumby. The guy on sythe who requested it told me he started a script but didn’t know where to go from there, so I looked at it, it was crap, it didn't compile, in short, it wasn't worth shit. I had assumed that this was his script, and it was a couple bare procedures that were basically a procedure to spin something (the coordinates he had in were for wool) in Lumby. I made a mistake in believing it was his without looking into it, but come on, who would go searching through two year old archives to find out if they could call the script theirs or not… anyways, I really revamped it, so now it has just about nothing from the original, but credits to scarscaper4life anyways…

program SpinMyFlaxLumby;
{.Include srl/srl.scar}
{.include srl/srl/extended/xmapwalk.scar}

//Start in 3rd floor of Lumby castle, at the bank, with a full load of
//flax already in ur inventory

//guess there's multiplayer now to make it easier on anyone with
//that many members accounts... but we, ashur thinks it's a good
//idea and he is an srl member, so, works for me...

//IMPORTANT: I DID USE SOME PROCEDURES MADE BY THE SCAR NOOB
//THEY WERE FROM HIS WOOL SPINNER, I CHANGED THEM TO MAKE FLAX
//BUT MOST WERE BY ME...
//Edited by Ashur2good :)
//-Warbeak1245

//and just because i got "copy-busted" last time... some credits
//to scarscaper4life...

const

amounttrips=400;//number of flax you have divided by 28

var
  TmpRoad, tripsdone : Integer;

procedure GetRoadColor;
begin
  TmpRoad := FindRoadColor;
  WriteLn('Road Color := '+IntToStr(TmpRoad));
end;



procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//Password Goes Here
Players[0].Nick :='ser nam';//nothing new :/
Players[0].Active:=True;//True If Using, False If Not

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;

End;

procedure LoggingIn;

begin
 SetUpSRL;
 DeclarePlayers;
 LoginPlayer;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure DoAntiRandoms;
begin
 FindTalk;
 FindFastRandoms;
 FindNormalRandoms;
 PopUp('ontinue')
if (FindFight = true) then
begin
 RunAwayDirection('N');
  Wait(10000 + random(2000));
 RunBack;
end;
end;

  procedure AntiBans;
begin
 case Random(10) of
  2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
  4: HoverSkill('Fishing', False);
  5: HoverSkill('Strength', False);
  6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
  7: HoverSkill('Cooking', False);
  9: BoredHuman;
 end;
end;

procedure ToBank;
begin
  wait(300);
  if(BankColor <> 0)then
  begin
    if FindColor(x,y,5689579,MMX1,MMY1,MMX2,MMY2) then
    begin
      Mouse(x,y,0,0,True);
      DoAntiRandoms;
      Flag;
    end;
  end else
  begin
    GetRoadColor;
    DoAntiRandoms;
    RadialWalk(TmpRoad,354,360,38,0,0);
    DoAntiRandoms;
    Flag;
  end;
end;

procedure ToStairs;
begin
  makecompass('N')
  RadialWalk(roadcolor,190,200,53,0,0);
  DoAntiRandoms;
  flag;
  DoAntiRandoms;
end;

procedure GoDownStairs;
begin
  if(FindObj3(x, y, 'limb-down', 602184, 10))then//602440, 602183
  begin
    begin
      Mouse(x, y, 1, 1, True);
    end;
    wait(1300+random(200));
  end;
end;


Procedure OpenDoor;
begin
  makecompass('w')
  DoAntiRandoms;
  If(FindObj(x, y ,'Door', 2575216, 5) or FindObj(x, y ,'Door', 2240608, 5)) then
  begin
    if IsUpText('Close') then
    exit;
    if IsUpText('Open') then
    begin
      Mouse(x, y, 1, 1, True);
      Flag;
      DoAntiRandoms;
    end;
  end;
end;

procedure upstairs;
begin
  repeat
    FindObj(x, y, 'Staircase', 603212, 30);
    DoAntiRandoms;
    Mouse(x, y, 5, 5, false);
  until
    PopUp('Climb-up');
    Wait(1000+Random(500));
    ChooseOption(x, y, 'Climb-up');
    Wait(1000+Random(500));

       if (not(Loggedin)) then NextPlayer(false);
end;

var
  i: Integer;

procedure spin;
begin
  wait(300+random(100));
  repeat
    FindObj(x, y, 'Spin', 1204365, 5);
    Mouse(x, y, 5, 5, False);
  until
    PopUp('Spin');
    flag;
    DoAntiRandoms;
    Mouse(261, 138, 5, 5, false);
    wait(1000 + random(300));
    ChooseOption(x, y, 'Make X');
    DoAntiRandoms;
    wait(1000 + random(300));
    TypeSend('99');
  repeat
    Wait(6400 + random(500));
    DoAntiRandoms;
    AntiBans;
    i:= i + 1;
  until(i = 7)
If (FindFight) then begin
  opendoor;
  tostairs;
  upstairs;
  Wait(6000+Random(500));
  DoAntiRandoms;
  GoDownStairs;
  DoAntiRandoms;
  opendoor;
  DoAntiRandoms;
  spin;
  DoAntiRandoms;
     if (not(Loggedin)) then NextPlayer(false);
  end;
end;


procedure bankstuffz;
begin
makecompass('N')
  repeat
    DoAntiRandoms;
    OpenBank3;
    until(BankScreen)
    wait(700+random(600))
    Depositall;
    FixBank;
    Withdraw(1, 1, 0);
    Wait(300+Random(500));
    CloseBank;
    DoAntiRandoms;
    tripsdone:=tripsdone+1;
    DoAntiRandoms;
end;

begin
ActivateClient;
  SetupSRL;
   DeclarePlayers;
     LoginPlayer;
  repeat
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    GoDownStairs;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    spin;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    upstairs;
    DoAntiRandoms;
    ToBank;
    DoAntiRandoms;
    bankstuffz;
    AntiBans;
    DoAntiRandoms;
       if (not(Loggedin)) then NextPlayer(false);
  until
    (tripsdone=amounttrips);
    logout;
end.

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

Lol, i rember this guy. I helped you A LOT with the anti-randoms/anti-ban-Multi-player/The acctully code :P And you still got it wrong :/ Why do you have anti-randoms in you're main loop :S
This i do NOT like :/:

begin
ActivateClient;
  SetupSRL;
   DeclarePlayers;
     LoginPlayer;
  repeat
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    GoDownStairs;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    spin;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    upstairs;
    DoAntiRandoms;
    ToBank;
    DoAntiRandoms;
    bankstuffz;
    AntiBans;
    DoAntiRandoms;
       if (not(Loggedin)) then NextPlayer(false);
  until
    (tripsdone=amounttrips);
    logout;
end.

Why not put the anti randoms and anti ban in you're procedures? You didn't include the proper multi-player i gave you :( Also, a lot of that script wasn't made from you. This could have been better, i'm sorry, but a no from me :(

P.S: If you need help, just PM me or add my e-mail.


-Ashur

Take suggestions from the last thread, and you have to wait 1 month in between apps. You're 10 days early.

From: warbeak1245

procedure bankstuffz;
begin
makecompass('N')
  repeat
    DoAntiRandoms;
    OpenBank3;
    until(BankScreen)

What if its not near enough to the bank to see the bank booth? You my friend, will have an infinate loop.

this reminds me of scarscaper4life's flaz picker, but im not sure why, i havent seen the script in a while…

From: Doofy
this reminds me of scarscaper4life's flaz picker, but im not sure why, i havent seen the script in a while…

//and just because i got "copy-busted" last time... some credits
//to scarscaper4life...

:roll:

hopefully somebody can enlighten us…

and none of the procedures are 100% his anymore, i fixed each and everyone of them up more… since im obviously not gonna be a member this time either,

quick question: would you guys accept a script that would help people stake? like it would auto accept a duel, after spamming a certain message, it will put up the money and the right rules, make sure the opponent is the right combat level, and then play a sound so the human can come stake? or any ideas of what would be an acceptable script? or would it be just following the above suggestions for this one is enough? any other useful comments from people?

From: warbeak1245

//and just because i got "copy-busted" last time... some credits
//to scarscaper4life...

:roll:

hopefully somebody can enlighten us…

and none of the procedures are 100% his anymore, i fixed each and everyone of them up more… since im obviously not gonna be a member this time either,

quick question: would you guys accept a script that would help people stake? like it would auto accept a duel, after spamming a certain message, it will put up the money and the right rules, make sure the opponent is the right combat level, and then play a sound so the human can come stake? or any ideas of what would be an acceptable script? or would it be just following the above suggestions for this one is enough? any other useful comments from people?

Maybe a power miner/power chopper? But now-a-days, with so many people applying, those aren't as reliable to get you in either.

If you want greater odds of getting in, try learning to make a power miner/power chopper, then add radial walking so it banks. That may get you in if its good.

Meh its still too simple.
Id add failsafes and double checks to make sure all of the doors actually opened and make sure the loading is done after all of the stairs before the script continues.