SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
~alex~ - SRL Member Application Form
~alex~
What is the meaning to life?
To make scar scripts ;) (What's with this question lol??)

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


Programming Knowledge
Visual Basic

Other Communitys
Sythe, Jaghax (was)

How Long have You Played Runescape
3 years (ish)

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

Hey,
I'm Alex and I'm from Northern Ireland. Ive been scripting for about a year, but recently took a break from Runescape and scripting and have basically missed out on SRL. I really want to get back into scripting and have made my first SRL script, and auto bone burier, which is included here.

I hope you accept me so I can provide scripts for the community and also, extend my knowlage of SRL even further.
I know there are probably some more effecient procedures and functions than the ones I used but hey.. I'm still gettin used to SRL ;)
(Randoms for script are not tested… Should work fine in theory though)

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

program boneBurier;
{.include SRL/SRL.scar}
{=========================================================================]
[                   SRL Empty Template.                                   ]
[                                                                         ]
[           NAME        : Brilliant Bone Burier                           ]
[           WRITER      : ~Alex~                                          ]
[           CATEGORY    : Errr? Bone burying?                             ]
[           DESCRIPTION : Withdraws bones and buries them, while checking ]
[                         for randoms                                     ]
[           USAGE       : Start outside any bank, empty inv. Bones in     ]
[                         first bank slot. Set bone color.                ]
[           AUTOCOLOR   : No. Input bone color. Will add autocolor later  ]                                     ]
[           NOTES       : Setup lines 42 - 45 Advised do not use lumbridge]
[                          bank... Bank finding does not work well.        ]
[                         Let me know of any bugs! Script not well tested ]                 ]
[           CONTACT     : [email]Gamesjunky1991@gmail.com[/email]                        ]
[                                                                         ]
[                                                                         ]
[=========================================================================]
[         This is a empty Template for a Collecting Script                ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                          ]
[ 2. Set your Screen to 32 bit TRUE color.                                ]
[ 3. Set Playernames and Passwords in DeclarePlayers.                     ]
[ 4. SET HOWMANYPLAYERS inside DeclarePlayers                             ]
[ 5. Start script Logged In or Out!                                             ]
[=========================================================================}
//************************************************************************//
const VersionNumber       = '1.00';      // Compliant with Rev 568+
//************************************************************************//
var
bonesLeft,bonesDone:integer;
timeOut:integer;



const
StartPlayer = 0;     // Determines who will play first
bonesToDo = 29;      // How many bones to do per player.
boneColor = 13619157;  //Color of bones
runDirection = 'S';    //Direction to run in case of fight

Procedure DeclarePlayers;
begin
  HowManyPlayers  :=6;               // Set Number of Players here. 
  NumberOfPlayers(6);   // Sets the Players Array Length;
  CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='1pkn';
  Players[0].Loc  :='Loc1';
  Players[0].Skill:='';
  Players[0].Active:=True;

  Players[1].Name :='ssadasd';
  Players[1].Pass :='sadas';
  Players[1].Nick :='asasd';
  Players[1].Loc  :='Loc1';
  Players[1].Skill:='';
  Players[1].Active:=false;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Loc  :='Loc1';
  Players[2].Skill:='';
  Players[2].Active:=false;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Loc  :='Loc1';
  Players[3].Skill:='';
  Players[3].Active:=false;

  Players[4].Name :='';
  Players[4].Pass :='';
  Players[4].Nick :='';
  Players[4].Loc  :='Loc1';
  Players[4].Skill:='';
  Players[4].Active:=false;

  Players[5].Name :='';
  Players[5].Pass :='';
  Players[5].Nick :='';
  Players[5].Loc  :='Loc1';
  Players[5].Skill:='';
  Players[5].Active:=false;
  writeln(inttostr(HowManyPlayers)+' Players');
end;
//********************************************************************//
procedure resetVars;
begin
  bonesleft:=0
  bonesdone:= 0
end;

procedure randoms;
begin
  findnormalrandoms;
  if findfight then
  begin
    runawaydirection(rundirection)
    wait(5000+random(1000))
    runBack;
  end;
end;

Procedure withdrawBones;
begin
if bonesdone >= bonestodo then
  begin
    writeln('All bones done, switching player')
    nextplayer(false)
    loginplayer;
  end;
if not(loggedin) then
  begin
  loginPlayer;
  if bonesdone >= bonestodo then
  begin
    writeln('All bones done, switching player')
    resetVars;
    nextplayer(false)
  end;
  end;
repeat

  openbank;
  timeOut:=timeout+1
  if timeOut > 15 then
    begin
      writeln('Could not find bank, switching player')
      resetvars;
      nextplayer(false)
      break
   end;
  if pinscreen then
    begin
      writeln('Detected pinscreen, switching player')
      resetVars;
      nextplayer(false)
      break
    end;

until(bankscreen)
if (bankscreen) then
  begin
    fixbank;
    withdraw(1,1,28)
    writeln('Withdrew bones')
    closebank;
  end;
end;

procedure bury;
begin
  if findcolortolerance(x,y,bonecolor,568,210,728,453,10) then
  begin
    repeat
      clickitemcolortol(bonecolor,10,false)
      wait(500+random(200))
      clickoption('Bury',2)
      bonesdone := bonesdone+ 1
      randoms
      wait(800 + random(160))
      invcount;
    until((invcount = 0)or not(loggedin)or (bonesdone >= bonestodo))
  end;

  if bonesdone >= bonestodo then
  begin
    writeln('All bones done, switching player')
    resetvars;
    nextplayer(false)
    loginplayer;
  end;
end;




procedure setup;
begin
  setupsrl;
  declareplayers;
  activateclient;
  highestangle;
end;

//************************************************************************//

procedure PlayerStats;

var Active: string;
var i: Integer;
begin
writeln('**********************************************');
writeln('Name         : '+ Players[CurrentPlayer].Name);
writeln('Number       : '+ inttostr(CurrentPlayer));

writeln('Prayer Level : '+inttostr(getSkillLevel('Prayer')));
writeln('Worked for   : '+ inttostr(Players[CurrentPlayer].Worked)+' minutes.');
writeln('Banked       : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
writeln('Active       : '+ Active);
writeln('**********************************************');

for i := 0 to HowManyPlayers-1 do
   begin
   if Players[i].Active=True then Active:='True' else Active:='False';
      writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+Active+'. - Lvl : '+inttostr(Players[i].Level[15])+
      '. - B :'+inttostr(Players[i].Banked)+' Times.'+
      ' -  : '+IntToStr(Players[i].Worked)+' mins.'+' - Loc: '+Players[i].loc);
    end
   writeln('**********************************************');
end;

//************************************************************************//

procedure ProgressReport;
begin
  begin
  WriteLn(' ');
  WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
  SRLRandomsReport;
  Writeln(' ');
  end;
  PlayerStats;
end;


begin
  setup;
  loginplayer;
  repeat
    withdrawBones;
    bury;
    progressReport;
    wait(5000)
  until(false)
end.

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

Sorry, got to say, those are some pretty ugly standards. Keep at it. Its a no from me for now though.

Edit: dude.. you've applied 3 times already! that is against the rules.. you must wait 1 month after each application.

To simple.
And yeah what JAD said.
Take your time.
As for standards, they are correct, just too large.
You are using a tab instead of 2 spaces.
To fix that do
Open Scar>Tools>Options>Use Fixed Tab Size
And make thise size 2.

This will make the tab=2 spaces in scar.
Which is proper standard length.

And alex, if you apply one more time before waiting a month, I don't know about how laid back SRL forums is about banning, but you will highly risk being banned. since this is atleast your third app in about a week (I think about a week :p) It will probably be considered or you may not be as likely to get accepted once you make a better script.

I believe I saw this script used to apply before… I could be wrong.

Yes you are wrong, one of those app was accidental… as you can see it was blank. As for the scripting standars, thanks for the heads up…. I don't think its fair however that you consider me not worth of being a SRL member because I used a tab instead of two spaces for my indents… It's just how I've always scripted.

edit: Fixed indents

ROFL
Dude, we didnt say no because of intents.
We said no beacuse the script is way too simple.
I mean its very plain and easy.
We are looking for good advanced scrips with many feature for SRL member.

procedure bury;
begin
  if findcolortolerance(x,y,bonecolor,568,210,728,453,10) then
  begin
    repeat
      clickitemcolortol(bonecolor,10,false)
      wait(500+random(200))
      clickoption('Bury',2)
      bonesdone := bonesdone+ 1
      randoms
      wait(800 + random(160))
      invcount;
    until((invcount = 0)or not(loggedin)or (bonesdone >= bonestodo))
  end;

I would use a DTM for the bone or a bitmap.

And what happens if you get a random, and the reward is the same color as the bone? It will keep clicking it… forever… forever… forever.

Good idea never thought of that :)

This will work. Use this bitmap for bone.

Bone := BitmapFromString(4, 4, '000001000001000001D2CCCC9B9' +
'090A19595CEC7C79B909089807FDED9D9CAC3C29A8E8E000001C7' +
'BFBFA99D9D000001'); // centre of bonebmp


Use this stupid3ooo function for burying:

ClickAllItemsBmpTolWait('ury', Bone, 50, 1000)

Keep 'm coming!

Thanks Fakawi

I posted my application shortly after my origonal but it was purely by accident. If your application was denied twice, maybe you should realize it is not yet time for you to become a member. I'm sure you'll make it soon if you just continue to script.

It was never actually denied, the first one I was on the wrong Pc, so I could't get a script, and I forgot to bookmark the page, the second one was accidental (and blank) seo this is my first proper app.

Alex, you should have applied with your air crafter.. :p

Making a sig asking people to vote you in is also very nooby.
And also, only other SRL members can vote so about 8/10 of the people who click your sig wont see anything

YoHoJo - Do I care? Call me a noob all you like, its a stupid meaningless word?

JAD - It was made after I applied. Since theres not a hope im getting in this time, I'll use it next time.

alex, just make it an amazing powerminer, forms, autocolor, multiplayer, awesome antiban. good luck man.

well my rcer has everything but the form.. and since I honestly do not have a clue how to make a multi player form it wont have one for a while. I know how to make basic forms, just not one useing arrays etc :S