SRL Archive - Archive

Sparrows - SRL Member Application Form
Sparrows

What is the meaning to life?


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

Programming Knowledge
Intermediate C

Other Communitys
Reinet, Scythe, Intensity

How Long have You Played Runescape
6 or 7 years

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

I've been playing runescape for a long long time. I wish to become an SRL member. To prove myself not so long ago I applied but didn't recieve membership but I told you that I would work on scripting and I have and I think my first script turned out pretty good. I am still working on my technique and hope to get a lot better. I am just really starting to understand the language.

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

//Made by Sparrows

//makes snowballs on karamja island
//setup on lines 20-22
//start character one space north of a pile of snow

Program SnowballCollector;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\MISC\AMOUNT.SCAR}

Const
Color1 = 16640232;
TimesToClick = 3;
StartPlayer = 0;

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 2;
  NumberOfPlayers (HowManyPlayers);
  CurrentPlayer := 1;

    Players[0].Name :=''; //user name
    Players[0].Pass :=''; //password
    Players[0].Nick :=''; //3 consecutive letters of username
    Players[0].Active := True; //don't touch
    
    Players[1].Name :='';
    Players[1].Pass :='';
    Players[1].Nick :='';
    Players[1].Active := True;

End;

Procedure Collect;

Var a, b, i : integer;

Begin
  i := 1;
  a := MSCX;
  b := MSCY;
    Repeat
      if(FindColorSpiralTolerance(a, b, Color1, 256, 214, 258, 216, 10)) then
      begin
        Mouse(a, b, 1, 1, true);
        Wait(100 + random(100));
        i := i + 1;
        Wait(100 + random(100));
      end;
    Until(i = TimesToClick);
End;
  
Procedure Report;

Var Active : String;

Begin
  begin
  If Players[CurrentPlayer].Active=True Then Active := 'Autoing' Else Active := 'Not Autoing';
     WriteLn('');
     WriteLn('');
     WriteLn(' User - ' + Players[CurrentPlayer].name+' Was '+Active);
     WriteLn(' Script Ran For ' + TimeRunning);
     WriteLn('');
     WriteLn('');
  end;
End;

Procedure StartScript;
Begin
  SetupSRL;
  DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
  DeclarePlayers;
  LoginPlayer;
  HighestAngle;
  PerfectNorth;
End;

Begin
  Repeat
  StartScript;
  AntiBan;
  Collect;
    begin
      repeat
      Wait(1000 + random(500));
      until(not(LoggedIn));
      NextPlayer(true);
    end;
      if(not(Loggedin)) then NextPlayer(false);
      Report;
  Until(false);
End.

------------------------------------------------------