[Scar 3.15b] lazy BONES

Lazy BONES

READ DESCRIPTION IN SCRIPT!!!
i only tested use in LUMBRIDGE bank.

stuff you need:
freddy1990.com
Scar subverison

I know its very simple, but it will evolve just as basicut has.

Code:

{
/////////////////////////////MADE BY GMK////////////////////////////////////////
Program lazy BONES
--------------------------------------------------------------------------------
Version: 1.1
--------------------------------------------------------------------------------
Description: Got a crap load of bones in your bank? hands starting to hurt from
clicking so much? lazy BONES retrieves and burys your bones from you
--------------------------------------------------------------------------------
Time usage recomendation: sit and watch or just check every 10 mins.
--------------------------------------------------------------------------------
Class of script: Auto-buryer
--------------------------------------------------------------------------------
Complexity 1-10: 1
--------------------------------------------------------------------------------
Date of update: August 9th 2008
--------------------------------------------------------------------------------
Bugs:
--------------------------------------------------------------------------------
Notes: USE ONLY IN LUMB BANK start standing right on the open bank booth in
lumb bank. Make sure you have nothing in your inventory when you start and have
your bones in your first bank slot.
--------------------------------------------------------------------------------
}
program lazyBONES;
{.include SRL/SRL.scar}

var
hi,x,y:integer;

Procedure sayhi;
begin
Activateclient;
wait(500)
MakeCompass('n')
SetAngle(true)
writeln('-------------------------------------')
writeln('Thanks for using lazy BONES')
writeln('Made by GMK')
writeln('-------------------------------------')
end;

Procedure getmebones;
begin
repeat
wait(10)
until(findcolortolerance(x,y,14605530,199,92,364,113,15)=true)
mouse(x,y,1,1,false)
mouse(x-51,y+41,1,1,true)
wait(500)
mouse(49,109,1,1,false)
getmousepos(x,y)
mouse(x,y+104,1,1,true)
wait(1000)
mouse(491,34,1,1,true)
end;

procedure burymebones;
begin
repeat
wait(10)
if findcolorspiraltolerance(x,y,11316663,550,207,737,461,5)=true then
begin
mouse(x,y,1,1,true)
wait(1000)
end;
until(findcolorspiraltolerance(x,y,11316663,550,207,737,461,5)=false)
end;

begin
SetupSRL;
sayhi;
repeat
wait(1500)
getmebones;
burymebones;
wait(100)
until(false)
end.

 

Any anti-ban- anti-random?

 

what did i say in description. not in this version. i still find it highly usefull.

+ you cant get banned because all of the mouse functions are randomized so no need.

I usually keep things simple when i start a script then edit it to peoples demands.

 

looks good man

 

I am going to try =)

EDIT: worked fine , bought 11k bones, it then stopped working....
it thinks that the banker is the candle on the wall


EDIT EDIT: =), it works sometimes managed to bury about 1k bones before it started click on the candles again.

ok, when scar auto moves the camera if you move it to the right a bit it will miss out the candles and click on the banker

 

thanks i will try to fix

 

My suggestions for you...

1. Learn Standards

2. Implement AntiRandoms. To do this you'll need a DeclarePlayers procedure. Something like -

Code:

Procedure DeclarePlayers;

Begin
  HowManyPlayers  := 1;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := 0;

  Players[0].Name :=''; //RS Name
  Players[0].Pass :='';  //RS Pass
  Players[0].Nick :='';  //3-4 letters from the middle of your name (ex: if it was 'cheese', a good nick would be 'eese')
  Players[0].Active:=True; //Should the script use this player? True/False
end;

The DeclarePlayers is so that each char has a nickname, and SRL can use that nickname to find randoms. FindNormalRandoms; finds all randoms solvable by SRL and solves them. To implement antirandoms, call DeclarePlayers right after SetupSRL;, and call FindNormalRandoms throughout your script.

3. Learn DTMs or Bitmaps. Colors alone aren't great at finding stuff, but DTMs and Bitmaps are fairly good.

4. Use SRLs banking functions. Look in your include folders in SRL/core/Banking.scar. Much better than just colors.

5. Don't use coords with less than 5 randomness - very detectable.

For tuts and stuff, check out www.srl-forums.com.

EDIT: And just a few random tips that I find Sythe users usually don't know about -

- Make sure you have SRL downloaded through subversion, not the File > Download SRL thing
- uhhhh, yeah, that's it

GL