SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Php, Delphi , C

Other Communitys
Sythe(used too) , Moparscape, Kaitnieks( used too), Planet Renders( graphics art)

How Long have You Played Runescape
6+ years

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

Hello there SRL Members/Devs/Mods/Admins

I would really like to join the member's team :).
A bit about myself now ;).
Im a 15 year old Dutch scolar with a big love for everything that has to do with computers, technology, graphic art etcetera.
My speciality's are probably building websites and creating pixel art ( signatures, renders, pixel signatures, website layout ) and C# Programming.
I play runescape for a REAL long time and know virtually anything about the game and history ( technically and content). Around 2005 I found a site called Kaitnieks , I browsed a bit around and it seemed all interesting to me. Too bad I didn't understand the whole SCAR thing at all >.< ( back then ;) ). Somewhere in 2007 I registered at SRL-Forums, browsed around again downloaded a script and enjoyed I got it working. But to me it seemed pretty pointless. Now in beginning 2008 I decided to give this community another shot and I was well surprised I really enjoyed it :) , I immediatly started to learn scripting ( the script I included isn't the best one I made, but I've got a bigger project on the horizon, way bigger(but it will take a lot of time to finish)…) So I learned all kinds of things of SCAR scripting, from Forms to DTMS to S.M.A.R.T to Variables and Mainloops ;). I really enjoy scripting and see it as a useful spendation of my time. I got very big plans for the future to make a script which will possibly become popular( wont tell you yet ;) dont be impatient lol). I also enjoy supporting other people with the problems their got as it gives me some sort of sense of accomplishment if I actually solved something for them ^^.
Now I really really hope this is kind of enough for a SRL member application,
If it ain't enough just tell me :)
I hope I can join your team soon =D

Yours Sincerely,

Dennis

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

program BoltArrowDartFletcher;
{.include SRL/SRL.scar}
// Bolt Arrow Dart Fletcher by dver
// Use this to Fletch your unfished bolts, arrows and darts
// have unf bolts/arrows/darts in first slot, feathers in second
// It aint too quickly bannable ( I used it 2 hours straight in an earlier version)
// If you want Antiban change case line 66 random(100) to something below 100....
// POST PROGGIES OR IL TAKE IT OFF!
// Ignore line 41
// Oh, take even unf bolts/darts as feathers (too  lazy to make DTMS for ALL bolts and darts, just made one for feathers)
// If it is commonly used, might add stats for you ^^
// NOTICE: MAKING HEADLESS ARROWS INTO ANY ARROW IS NOT WORKING ATM ( Gotta make an headless arrow DTM)


var
Tries: integer;
Feather: integer;
Headless: integer;
x, y: integer;

procedure DTMs;
begin
  Feather := DTMFromString('78DA637466626078C480028EECD903A619A17' +
       'C461BA09AF7A86A5835D950D5B801D53C4355B375D52A5435F640' +
       '358F51D51CDBBB17558D0BA67BD0ED020003FC0CC6');
  Headless := DTMFromString('78DA633CC6C4C0D0C1C8800A1819B8C02403C' +
       '37F20603C0454D38FAA26C28C1BAA12AAE324504D13A639286A0E' +
       '63DAE5E16082A20600CC2A0AA7');      // Headless aint used yet ;)
end;


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Username';     // Put in your Username here
  Players[0].Pass := 'Password';     // Put in your Password here
  Players[0].Nick := 'Nickname'; // 3-4 Letter nick no Capitals or numbers
  Players[0].Active := True;
  Players[0].Integers[0] := 3500 //How many tries do you want ( not every try succeeds, which is more human)

end;

Procedure ClickyClicky;
begin
    if not FindDTM(Feather, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    Writeln('no feathers!')
    Logout;
    end else
    Mouse (577, 226, 5, 8, true);
    Wait(150 + random (50));       // Some randomness in there
    Mouse(620, 228, 3,3,true)
    Wait(150 + random (60));
    Tries:= tries+1;
    end;


  procedure AntiRandoms;
  begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  if FindFight then RunTo('N',True);
end;

procedure AntiBan;
begin
  case random(100) of // Dunno if Anti-Ban works well you can turn it on if you insist :) (change random to something below 100 ;) )
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('Fletching', False);
    3: AlmostLogout;
  end;
end;

Procedure Proggeh;
begin
  WriteLn('=============== dver BADfletcher  ================');
  WriteLn(Padr('|| Done: ' + IntToStr(Tries*10), 49) + '||');
  WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
  WriteLn('===================================================');
end;

begin
 SetupSRL;
 DTMs;
 ActivateClient;
 DeclarePlayers;
 LoginPlayer;
 repeat
 ClickyClicky;
 AntiRandoms;
 AntiBan;
 Proggeh;
 until(Tries = Players[CurrentPlayer].Integers[0])
 Logout;
 FreeDTM(Feather);
end.

//  
// 

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

No. Way too simple. Multiplayer is not incorporated correctly either. Read some tutorials and apply again in a month.

Sorry, way to simple please read more tuts and try again :)

No, too easy.

no, way too basic. Lacks good standards….

Procedure ClickyClicky;
begin
    if not FindDTM(Feather, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    Writeln('no feathers!')
    Logout;
    end else
    Mouse (577, 226, 5, 8, true);
    Wait(150 + random (50));       // Some randomness in there
    Mouse(620, 228, 3,3,true)
    Wait(150 + random (60));
    Tries:= tries+1;
    end;

That is a really bad way of using standards…

Procedure ClickyClicky;
begin
  if not FindDTM(Feather, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Writeln('no feathers!')
    Logout;
  end else
    begin
      Mouse (577, 226, 5, 8, true);
      Wait(150 + random (50));       // Some randomness in there
      Mouse(620, 228, 3,3,true)
      Wait(150 + random (60));
      Tries:= tries+1;
    end;
end;

No offense but I'm suprised that this actually compiles (if it does?).

Antiban is ridiculously basic, and your lack of failsafes probably wouldn't even make it run correctly for 2 hours much less 2 minutes..

Again…a no from me

80 lines of code ain't enough. Give us something to criticize besides "Theres no code." You need walking, banking, clever DTM use, etc. to give us an idea of how good you are.

No, other people have given my reasons.

Sorry.

Please take the advice you have heard and improve your script and apply again in one month :)

Cheers,
Hobbit.