SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?
n/a


What is your general programming knowledge?
I have taken visual basics, C++, and am in web design right now.


Are you a member of any other communities?
no


Tell us about yourself…

From: getdropped69
Ok so i'm 17 and I have loved video game for as long as i can remember. I Have gotten into coding in school and enjoy it quite a bit. I work during the week at my local food store. I have aced every computer programming class i have taken. I got a 99.6% in C++, I have been playing runescape for somewhere around 8 years. I can't really remember when it was that i actually started but it was sometime around then. My holiday items go back to 2005 but I know i started before i got them. I have just started writing simba scripts and am enjoying it quite a bit. I will attach(for some reason i cant put it as an attachment so i just put it below) my public chicken killer that I feel works quite well.(thread: http://villavu.com/forum/showthread.php?t=74986) I've seen a lot of leeching and i feel i want to step up and write my own scripts and put them out to the public. Tank you for taking your time in reading my application and I hope to hear from you soon.

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

//Chicken killer by Jeffrey
program chickenkiller;
  {.include SRL/SRL/Misc/Smart.simba}
  {.include SRL/SRL.simba}
  {.include SRL/SRL/Skill/Fighting.simba}
  {$i sps/sps.simba}
  {$DEFINE UseLaptopMouse}

var
BreakRounds, TotalBreaks: Integer;
  ChickenColours, LootColours: TIntegerArray;
  x, y, LevelPopUp, NoThanks, xx, yy , reportcount,
  KillCount, LootCount : Integer;
  Take :TStringArray;


const
  Tolerance   = 2;
  LootFeathers = true; // Set to true if you want to loot Feathers (slow)
  BuryBones = false; //set to true for looting and burrying bones

  //You may need to tweek the chicken colors at the bottom of script (line 291)

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name   := ''; //Character Name
    Pass   := ''; //Character Pass
    Pin    := ''; //Pin for bank
    Active := true;
  end;
end;

//*****************************************
//Don't mess with the rest of this script plz
//I hope you enjoy
//ONLY SELL FEATHERS AT MARKET PRICE OR OVER THEY WILL SELL
// Please feel free to pm me
// > Donations keep this script alive i would love some rspg =] < pm me
//Use other ones of the chicken pens then just the big one please
//***********************************************

function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
var
w, x, y, z: Integer;
begin
if not LoggedIn then Exit;
  w := (BreakIn * 60000);
  x := (BreakFor * 60000);
  y := RandomRange(-randBreakIn * 60000, randBreakIn * 60000);
  z := RandomRange(-randBreakFor * 60000, randBreakFor * 60000);
      Writeln('Breaking in: ' + IntToStr((((w) + (y) + BreakRounds) / 60000) - (GetTimeRunning / 60000)) + ' minutes');
  if (HowManyPlayers = 1) then
  begin
  if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
   else
    if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
     begin
     Writeln('Taking a break for about ' + IntToStr(z) + ' minutes.');
     Logout;
     Wait((x) + (z));
     Writeln('Logging in.');
     LoginPlayer;
     Result := LoggedIn;
     FindNormalRandoms;
     IncEx(BreakRounds, (w) + (x));
     IncEx(TotalBreaks, 1);
     Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
    end;
   end;
      if (HowManyPlayers > 1) then
     begin
      if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
      else
      if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
      begin
       Writeln('Taking a break for about ' + IntToStr(BreakFor) + ' minutes.');
       Logout;
       IncEx(BreakRounds, (w));
       IncEx(TotalBreaks, 1);
       NextPlayer(True);
       Exit;
      while (LoggedIn) do Wait((x) + (z));
       NextPlayer(True);
      end;
     end;
    end;


procedure CheckRandoms;
begin
  if (FindBitMap(LevelPopUp, x, y)) then
  begin
    FindBitMap(NoThanks, xx, yy)
    Mouse(xx, yy, 3, 3, true);
  end;
  FindNormalRandoms;
end;

Procedure Bury;
  var
    I: Integer;
begin
if BuryBones then
begin
    for i := 1 to 28 do
    begin
    InvMouse(I, 3);
      if IsUpText('Bury') then
      begin
        ClickMouse2(True);
        Wait(RandomRange(950, 975));
        end;
        end;
        end;
    end;


procedure Attack;

var
  Xi, Yi, X1, Y1, X2, Y2: Integer;
begin
  //Writeln('Looking for something to attack!');
  if InFight then
  begin
    repeat
      FindNormalRandoms;
    until (not (OthersInFight) or (not LoggedIn) or (not InFight))
    end;
  x := Random(8)     case x of 4:
  end;
  if FindObjEx(Xi, Yi, ['ttack'], ChickenColours, Tolerance, 50, 1, 5, 689, 390) then
  begin
    if not (IsFightAt(Xi, Yi) and not InFight) then
    begin
      GetMousePos(Xi, Yi);
      Mouse(Xi, Yi, 5, 5, false);
      if WaitOptionMulti(['ttack C', 'attack Chicken', 'attack C'], 200)then
      begin
      KillCount := KillCount + 1;
      //Writeln('You got a kill');
      end;
      WaitOptionMulti(['ttack C', 'attack Chicken', 'attack C'], 200);
    end;
    while IsMoving do
    begin
      Wait(350);
    end;
  end
  else
  begin
    wait(500)
  end;
end;

procedure CheckLoot;

var
  Xi, Yi, X1, Y1, X2, Y2: Integer;
begin

  if LootFeathers then
  begin
  if BuryBones then
  begin
   if InFight then
    begin
      repeat
        FindNormalRandoms;
      until (not (OthersInFight) or (not LoggedIn) or (not InFight))
      end;
    if FindObjEx(Xi, Yi, ['ake', 'Take'], LootColours, Tolerance, 50, 1, 5, 689, 390)   then
    begin
    if not(WaitUpTextMulti(['2'], 200)) then
    begin
      if not InFight then
      begin
        GetMousePos(Xi, Yi);
        Mouse(Xi, Yi, 5, 5, false);
        if WaitOptionMulti(['Take Feather', 'ake F', 'ake B', 'Take Bones'], 200) then
        begin
        LootCount := LootCount + 1;
        //Writeln('looted')
        end;
        WaitOptionMulti(['Take Feather', 'ake F', 'ake B', 'Take Bones'], 200);
        Wait(RandomRange(1000, 1500));
      end;
      while IsMoving do
      begin
        Wait(250);
      end;
      end;
    end
    else
    begin
      wait(300)
    end;
    if invfull then
    begin
    Bury;
    wait(1000);
    end;
    end
    else
    begin
    //Writeln('Checking for loots');
    if InFight then
    begin
      repeat
        FindNormalRandoms;
      until (not (OthersInFight) or (not LoggedIn) or (not InFight))
      end;
    if FindObjEx(Xi, Yi, ['ake', 'Take'], LootColours, Tolerance, 50, 1, 5, 689, 390)   then
    begin
    if not(WaitUpTextMulti(['4', '2'], 200)) then
    begin
      if not InFight then
      begin
        GetMousePos(Xi, Yi);
        Mouse(Xi, Yi, 5, 5, false);
        if WaitOptionMulti(['Take Feather', 'ake F'], 200) then
        begin
        LootCount := LootCount + 1;
        //Writeln('looted')
        end;
        WaitOptionMulti(['Take Feather', 'ake F'], 200);
        Wait(RandomRange(1000, 1500));
      end;
      end;
      while IsMoving do
      begin
        Wait(250);
      end;
    end
    else
    begin
      wait(300)
    end;
  end;
end;
end;


procedure AntiBan;
begin
  x := Random(500)  case x of 0: HoverSkill('Attack', false);
    1:
      HoverSkill('Strength', false);
    2:
      HoverSkill('Defence', false);
    3:
      HoverSkill('hitpoints', false);
    12..15:
      PickUpMouse;
    16..25:
      RandomMovement;
    26..27:
      RandomRClick;
    28..32:
      BoredHuman;
    33:
      ExamineInv;
    34:
      RandomAngle(SRL_ANGLE_HIGH);

  end;
  SetAngle(SRL_ANGLE_HIGH);
  Wait(RandomRange(800, 1200));
end;


procedure Report;
begin
  Writeln('//****************************');
  Writeln('Total kills: ' + IntToStr(KillCount));
  Writeln('You gained: ' + IntToStr(KillCount * 16));
  Writeln('You have picked up ' + IntToStr(LootCount) + ' drops');
  Writeln('This has been running for ' + IntToStr(GetTimeRunning / 60000) + ' minute');
  Writeln('//****************************');
  Exit;
end;


begin
  Cleardebug;
  ChickenColours :=[3828098, 4289937, 5141641,
   10607087, 11200253, 3695740, 2903906, 7313061,
   4876675, 3496568, 4224144, 7312038, 5011335];
  //[4156045, 11198205, 5947080, 2638209];
  //[495795, 4156045, 10276587, 5947080, 2638209]; backups
  LootColours := [10461879, 11317449, 9343398, 10659258,
   11449032, 10988481, 11054274, 9540775, 9015967, 9410981,
    10990273, 9608361, 15395828, 9869229, 10856127];
  Smart_Server := 97;
  Smart_Members := false;
  Smart_Signed := false;
  Smart_SuperDetail := false;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  SPS_Areas := ['11_8'];
  SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
  Writeln('Welcome to ~Jeffrey''s Chicken Killer!');
  Wait(800);
  SetAngle(SRL_ANGLE_HIGH);
  BreakHandler(60, 15, 10, 10);

  LevelPopUp := BitmapFromString(22, 42,
    'meJytlVFIU2EUx0lpU+emu3fmYE' +
    '7nNpzioIjZMiaYOlOn2Z2WuhRdZelSclpiI600ycKKsgyiguohCnz' +
    '0ITJ86alegwp6Dnrtrbf+957xeXfvnQsM/hzOPff8f/d83+79Vmh1' +
    'Fu5Mh1pPHGzuQqzvONkgDAS7o4gVtfUd/TFUqF7TKNSF+pAjQuhBn' +
    'p3HZetN2XojGSEUISTwIg6MXUYz3SLX6ss14lPUmUugPN52Kj4Xm7' +
    'mBCAsiJETHu4cnkfSNXoJQhxYfPkcbEsSzUj8joB916iTLkchZFAf' +
    'jsxCKPSPTAEIspzZ4CaImvPr088G7Lwo93viqFjrtDo29xS1drr9N' +
    'eBLqWkWEmjtWSYdDy0w5ehc6QdDv8SiEJ5a5b1W1bkKVLRuUqC9Nj' +
    'jg6S8tduWV+uUxOP+pc8QX0FHnvVfjvFFcs8JVLyBG9gbsl3pvIcV' +
    'dvEohgqGpj4ryiUDcXxdDDVy2Nza2//fCt2LOAHPaP3381HX8GlEg' +
    'whohg3N/P+yJyTdx/w0szwMW752duvweE7J1DLzj3PCOgEwSFnQj5' +
    'ljh6LBIBuray+eP3H9jFSxQlQo6xhQiW2iGFGIHsHt8inv7o9WdMY' +
    'nVfwQyca15N4AMxpsHZlXxLjAhkb488LbQnphbWGYQI6BRXIfOSjo' +
    '7OGrgz6IFrZHqN7JxjjiB4PQrsCYkQRKeaUNKQQtAUEXSGpiShfir' +
    'dDNtLTrAFJ8lLCepZu6v1prDOEIT0xnYS8hxjs1RsgnZllW6tgiAY' +
    'RkpQ/0d1phLMdRMEsZe7MssBOWGHmJHNQPNQwoQdhmyBqLUmbPI05' +
    'tv3FVid3acnILVdU1uEA72M0H9+BtK2tyVEZZqBCBpPlNulxBmKE4' +
    'QIBe46IvSeuwgp+1NV3p5Qz8B7tAhqoxQhNkCGGXZAoDa5l10m89R' +
    'VcL4eEAy2araT8sfJpUnAOWDeG2aEnuEpiNpcQsIVvq6AYH75Eugk' +
    'kRNoBhhFCSJEY5LUARQE2ockQQWRv1H05aoJ9FaTPbkQQcNOhORh6' +
    'ItoEhQbqP4i2AzahDSTKwhsBvwlqX9NjYWzz1w6OdMR2Bul/hIZRG' +
    'FXrGLrrU5/LMh/BSLIZ6B90DbSoRGIbU84Fh2HMtoZId0+aNhV/2L' + '/i6BeRfzqMvQX5OsJfg==');

  NoThanks := BitmapFromString(75, 14,
    'meJztks1qAkEQhN8hBy9CEJSAIu' +
    'IhSH4ugiB4UBD0oMccPOUNfDUfJve8REYGyqJ6undXEBECH8t0b1V' +
    'Nz+5svo+bW/Kx2t83Z7E/MCknIR3RxLA+rU8/v00TiplX58y2XyDn' +
    '5CjuoKxE9E3tNWMb8bncAT4gd7gEbJQECLi0rmIfRu7bMeIQ5m2+B' +
    'sjJT+5gDXLT2lnAgeIqpnn6q0dK9CdTIAfkjv0X0BQT2M5Gdtk0T2' +
    '8Xshd2jAkC7WzxAWuW3kG8eby3wem6o3cAC69lC6v0EuJSble8C/9' +
    'Zu13xFXjuvwIE8lq2tkovISi9C1+pt5tKgsyTaL+MAWRcxiOxnRPy' +
    'q2JgnQMGehHE85zpDcFFRiU6cqkgE4qfxebHV1T01sj3Np6n1RkwS' +
    'SYld/iLidFz2cBiWqVejPXneWr3/nlo/gDohg86');  // Credits to [J]ustin

  repeat
    repeat  //mixed up functions for anti ban
      Attack;
      CheckLoot;
      Attack;
      AntiBan;
      CheckRandoms;
      CheckLoot;
      Attack;
      reportcount := reportcount + 1;
    until (reportcount = 10) //reports every 10 cycles
    BreakHandler(60, 15, 10, 10);
    reportcount := 0;
    report;
  until (false)

  end.

Standards are all over the place, please fix :)
Also I really think is important is being community focused, you have 30 posts and have been here since November! Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted.

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

Aw man sorry guys i feel so stupid i face palmed myself like 27 times when reading through the links you posted R4ndom….. I feel really dumb after posting this um….. idk what else to say

From: getdropped69
Aw man sorry guys i feel so stupid i face palmed myself like 27 times when reading through the links you posted R4ndom….. I feel really dumb after posting this um….. idk what else to say

You can make your scripts better. We like people who're improving and learning :)

From: nosaj.421
You can make your scripts better. We like people who're improving and learning :)

Thanks man… working on it as we speak :)

Ya we can end this…. Will try again once I get some better rep and more posts, and maybe once i get refered. Sorry about that. Thanks R4andom and nosaj ;)

How long does this poll say up because I plan to reapply, and I believe I will have to wait a month before reapplying, I feel I have come a far way from this. Any ideas? Do you think I would still be denied? Hope to hear some good comments

At the close of this you will be notified after how many weeks you can reapply. It is usually 4, but at staff discretion. The poll is open for 2 weeks.

Seems you aren't getting in this time. Please reapply in two weeks. Good luck!