SRL Archive - Archive

whales - SRL Member Application Form
whales

What is the meaning to life?


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


Programming Knowledge
Nope

Other Communitys
Dylocks forums

How Long have You Played Runescape
Four years on and off

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

I started getting into RS cheating about the time RS2 came out… At the time cheating only meant getting my RS stats up. I was involved with a couple sites: Kaitnieks, RSCN, Odies, Camhart had a small forum. I first started making crappy scripts for RSC that would pick up gold and such.. As I got more involved with the community I learned a good bit and started trying out some RS2 scripts and I learned a good deal from checking out Odie's scripts(the only ones I knew of at the time). But soon my interest for RS and cheating faded and I lost time due to baseball and basically faded out. As I recently found some spare time on my hands I figured why not do something so I tryed to go to Kaitnieks site found it was down and I wound up at Dylock's site. From there I head some chatter about SRL and checked it out and found a great site.
I have made a bone burier and I'm still adding to it and I hope to soon start on a new project, possibly a cowhide picker that then walks to tanner tans and banks. I checked out Fakawi's tutorial on Radial walk and I now think I understand it and want to test my knowledge on it. I have bitmaps down and I know DTMs pretty well.

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

{                   Whales Prayer Leveler Version 1.3


ImproveMents
- BANK BURY! Which works for any Bank any where just make sure to put the Consts

Fill out:
-Boneum
-Loadsnum
-Players
-To Bury Bones in the Bank put true for BankBury and false for RegularBury
-For RegularBury put True and False for BankBury

  * When Bank Burying Make sure you have no Pin #, sorry havent got to that yet
  * When Bank Burying, put bones in 1st row 3rd column AKA: 3rd Bank spot

-Regular Pick up
 *Best if ran in Edgeville Dungeon rats cave.
 *Start Logged in
 *If your character has white hair wear a helmet!}


{Post reports and Suggestions on Villu or Dylock's forums}


Program WhalesPrayerLeveler;

{.include SRL\SRL.SCAR}

Var
Bonecount, Loads, PickTime, BankedBones: Integer;

const

BuryBankedBones = False;  {True for Bank Bury}

RegularBury = True; {For Normal Bury}

bonecolor = 11185078 ;

boneum = 500 ; {number of bones to pick up}

loadsnum = 3 ;  {numberof loads you want done per player}

procedure DeclarePlayers;
begin
  HowManyPlayers := 4;
  NumberOfPlayers(HowManyPlayers); // Leave do not change
  CurrentPlayer  :=0;   // 0,1,2,3

  Players[0].Name     :=''; // Runescape name between quotes
  Players[0].Pass     :=''; // Rs Password here
  Players[0].Nick     :=''; // Use three letters in order after your first letter
  Players[0].Active   := True;

  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;

end;

{------------*-------------No need to go any further-------------*---------}


Procedure Login;
Begin
If(findcolor(x,y,13351609,1,1,553,360)) then
 Begin
 NextPlayer(True);
 end;
end;



Procedure dropshit;
 begin
    if (finditemcolor(1188768)) then  // Raw Meat
     begin
      mouse(x,y,4,0,false);
      chooseoption(x,y,'Drop');
     end;
       if (finditemcolor(1413554)) then    //Gold
       begin
        mouse(x,y,4,0,false);
        chooseoption(x,y,'Drop');
       end;
     if (finditemcolor(6294794)) then  //sapphire
     begin
      mouse(x,y,4,0,false);
      chooseoption(x,y,'Drop');
   end;
      if (finditemcolor(65535)) then  //runes
     begin
      mouse(x,y,5,6,false);
      chooseoption(x,y,'Drop');
   end;
       if (finditemcolor(2836316)) then  // Brown stuff, Bronze bar
     begin
      mouse(x,y,4,0,false);
      chooseoption(x,y,'Drop');
     end;
        if (finditemcolor(7015738)) then  // Helms
     begin
      mouse(x,y,4,0,false);
      chooseoption(x,y,'Drop');
     end;
end;


 Procedure Report;
begin
writeln('////////////WhalesPrayerLeveler1.3/////////////////')
if (RegularBury = True) then Writeln('Picking and Burying...')
If (RegularBury = False) then Writeln('Bank Bury...')
writeln('Loads done:'+IntToStr(loads))
writeln('Bones Picked:'+IntToStr(bonecount))
writeln('Bank Bones Buried :'+IntToStr(BankedBones))
writeln('Bones Buried:'+IntToStr((loads)*28))
writeln('Worked for:'+ TimeRunning)
writeln('////////////WhalesPrayerLeveler1.3/////////////////')
end;

Procedure BuryBanked;
begin
repeat
 OpenBank;
 wait(232)
 withdraw(3,1,28);
until( bankscreen)
   CloseBank;
   Wait(150)
 repeat
  clickitemcolortol(bonecolor,4,true);
  wait(350)
  BankedBones := BankedBones + 1;
 until(invempty)
loads:= loads + 1;
end;


Procedure Randoms;
begin
findnormalrandoms;
wait(88)
solvepinball;
wait(15)
dropshit;
findmaze;
wait(20)
findtalk;
login;
If (FindObjMultiText(x,y,'hea','eas','ant',4278554,3)) then
 begin
  writeln('Shit, found Freaky Forester logging out current and logging in next player')
   Logout;
  Nextplayer(True);
   Report;
  end;
end;


procedure Skillcheck;
begin
 case random(55) of
 1: Getxp('prayer');
 3: Getxp('prayer');
 8: GetSkillLevel('prayer');
 end;
end;


Procedure Rotate;

begin
 case random(9) of
 1: SendArrowSilentWait(1,845+random(299));
 3: SendArrowSilentWait(3,857+random(345));
 5: SendArrowSilentWait(0,420+random(211));
 6: Wait(200+random(50));
 8: SendArrowSilentWait(2,220+random(121));
 9: SendArrowSilentWait(1,845+random(299));
 end;
end;


Procedure MouseTrue;
begin
   Mouse(x,y,1,1,true);
   wait(22+random(23));
end;

Procedure MouseFalse;
begin
   Mouse(x,y,1,1,false);
   ChooseOption(x,y,'Bones');
   Wait(100+random(67));
end;

Procedure Clicking;
Begin
 Case Random(5) of
 1: MouseTrue;
 2: MouseFalse;
 3: MouseFalse;
 4: MouseTrue;
 5: MouseTrue;
 end;
end;


 Procedure ROTATEU;
Begin
If (RegularBury=True) then
begin
repeat
rotate;
until(FindObjMultiText(x,y,'ake','one','nes',bonecolor,3))
end;
end;

Procedure Pick;
Begin
   Randoms;
   if FindObjMultiText(x,y,'ake','Bon','nes',bonecolor,3) then
    Begin
    Clicking;
    Flag;
    Rotate;
    bonecount:=bonecount+1;
    Randoms;
  end;
end;


Procedure Bury;
begin
 if (inventoryfull)then
  begin
  loads:=loads+1;
  TimeFromMark(PickTime);
  Writeln('took '+inttostr(picktime)+' to pick')
  repeat
  Randoms;
  clickitemcolortol(bonecolor,4,true);
   wait(300+random(25))
   SkillCheck;
  until(InvEmpty)
 end;
end;


Procedure Repitition;
begin
 if (BuryBankedBones = True) then
 begin
  BuryBanked;
end;
If (RegularBury = True) then
begin
  repeat
  RotateU;
  Randoms;
  Pick;
  if (not(loggedin)) then break;
  until(inventoryfull)
  Randoms;
  Bury;
  end;
end;

Procedure Loopey;
begin
repeat
Repitition;
until(loads=loadsnum)
Report;
SRLrandomsReport;
NextPlayer(True);
end;


Begin
SetupSRL;
DeclarePlayers;
writeln(' ---------------3---------------')
wait(1000)
writeln(' ---------------2---------------')
wait(1000)
writeln(' ---------------1---------------')
wait(500)
writeln('You Are Using Whales Boneburier  Version: 1.3')
Randoms;
Setrun(true);
marktime(picktime);
repeat
Randoms;
Loopey;
if (not(Loggedin)) then NextPlayer(false);
until(false)
end.

——————————————————

No.

1, If it is at a bank… why drop the gold! People my want that… make it store those items.
2, All it does is open, withdraw, bury.

You need to put ALOT of work into this script before its member worthy…
also, the whole script is kinda messy. Fix it up a bit.

From: whales

I checked out Fakawi's tutorial on Radial walk and I now think I understand it and want to test my knowledge on it. I have bitmaps down and I know DTMs pretty well.

I dont see ANY of that in your script.

Damn four,
my student not only caught on to my grade A scripting, but also my strictness!
I LOVE IT HEHEHE your a little me.

A agree with fourscape. Its a bit simple.
Try making poerchopper, powerminerm, or something a bit more intricate.
Show off your knowledge bitmaps, dtms, and mapwalking.

I assure you if you make a script that mapwalks, you will get in.

As for this script try making a DTM for the bone, rather than have user enter color.
And also, like four said, dont drop random event gems and gold.
Every bit counts =)

You just want him to make a powercutter because of your attraction twards them =P.

But hey… I took advantage of that =P

No. (See YoHo's reasons)

From: fourscape
No.

1, If it is at a bank… why drop the gold! People my want that… make it store those items.
2, All it does is open, withdraw, bury.

You need to put ALOT of work into this script before its member worthy…
also, the whole script is kinda messy. Fix it up a bit.



I dont see ANY of that in your script.

Its doesn't get gold at the bank… Its basically two different procedures. One will bury banked bones so there is no need to use the drop procedure and it doesnt use that. Why does it need to do more than open withdraw and bury while in the bank…? The purpose is for it to open withdraw and bank… And I said I understand how to use radial walk and bitmaps, I didn't say I had them in my scripts.. I tried to implement bitmaps and DTMs into my script but they actually weren't as effective as the current color finding. And I did try multiple dtms to no avail. I will start on a new script soon..