SRL Archive - First Scripts

Malott's Bownage for Srl4!

This script picks up bones anywhere in runescape and burys them! Just hit play, set up your players, and watch the prayer levels grow!

v0.01 beta- Basic version, created 1/4/08
v0.02 beta- added bmp finding, and got rid of clickmouse
v1- First real, non test version. Have fun with it (special thanks to Hy71194 for the awesome help)


Next version(s):
-time counting
-xp counting
-radialwalking?
-dtms

Plz Cred if liked and post proggys

and suggestions are appreciated!

what the hell…???

DropAll; try a procedure like BurryAll;

Who would pick up bones, just to drop'em???

theres a bitmap for bones try using it.

srry couldn't find the right function for burrying bones… thx timer ill update today…

oh and the reason i didn't use the bitmap was because this was originally intended for a different purpose, but ill add in the bitmap and see how it does…

thanks for the input.

get rid of clickmouse! and remember to bury the bones not drop them like timer pointed out

change clickmouse to Mouse and bury the bones then you shall be on the path to scripting :)

~Spaz

updated :)

lmao DROPALL? lol use DTM for the bone that say FindDTM and blah blah

hey im learning dtms slowly so don't kill me over it…

when i learn how i will add in other stuff… but for now its "my first script"

but i will put that into my list of things to do :)

procedure BuryBones;
var
  x, y, i: Integer;
  TB: TBox;
begin 
  GameTab(4);
  Wait((100)+ Random(50));
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
    begin
      if FindBitmapSpiralTolerance(Bone, x, y, TB.x1, TB.y1, TB.x2, TB.y2, 50) then
      begin
        MouseItem(i, False);
        ChooseOption('Bury');
        Wait((250) + Random(150));
      end;
    end;
    FindTalk;
  end;
end;

Based off Fawki's Guardz! Bury's the bones. May need to add {.include SRL/SRL/misc/Bitmaps/Prayer.scar} .

hmm its giving me an error after i added that

[Runtime Error] : Exception: Access violation at address 00722BFA in module 'scar.exe'. Read of address 00000000 in line 214 in script G:\My Stuff\SCAR 3.12\includes\SRL/SRL/Core/Object.scar

Here, this will work fine now. Will also find randoms, except for fighting randoms.

program Bownage;
{.include SRL/SRL.Scar}

//Thanks to Hy71194.

var
x,y: Integer;
Clicks: Integer;
Drops: Integer;
Bone: Integer;

const
BoneColor= 13684950;

procedure DeclarePlayers;
begin
  SRLPlayerForm(True,[],[],[],[]);
end;

procedure ProgressReport;
begin
 ClearDebug
  Writeln('__________________________________________')
  Writeln('/      Malotts Bownage v0.01 beta        /')
  Writeln('/    Did ' +IntToStr(Clicks)+ ' Clicks                           /')
  Writeln('/    Did ' +IntToStr(Drops)+ ' Drops                            /')
  Writeln('/_________Thanks For Using!______________/')
end;

procedure Bitmaps;
begin
   Bone := BitmapFromString2(False, 'aE351F78DA5D8D5B0EC520' +
       '0844B7449541FAC9A3EE7F498536B9B9A91FE389830722A26B559' +
       '01D15425C0995661DCD88E6637CDAA1FC6BB19FF91EA1C557B3A3' +
       'F931BF9E85FD6929DB70CCFE5BF77FA6E6C8E1E9D3674420382D9' +
       '1703236F6696A1AA83EC38363D6222C28AD3EBA48B6D1891322D8' +
       'CFDE72BE364981E07DB901A00');
end;

procedure Findbones;
begin
 If(FindObjectDeformed(x, y, 'bone', 'ones', Bone, MSx1, MSy1, MSx2, MSy2)=true) then
 begin
  MMouse(x,y,3,3);
  Wait(10+random(100));
  if (isUptext('one')) then
  begin
    Mouse(x,y,2,2,True);
    Wait(10+random(10));
    FindNormalRandoms;
  end;
 end;
end;

procedure BuryBones;
var
  x, y, i: Integer;
  TB: TBox;
begin
  GameTab(4);
  Wait((100)+ Random(50));
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
    begin
      if FindBitmapSpiralTolerance(Bone, x, y, TB.x1, TB.y1, TB.x2, TB.y2, 50) then
      begin
        MouseItem(i, False);
        ChooseOption('Bury');
        Wait((250) + Random(150));
      end;
    end;
    FindTalk;
    FindNormalRandoms;
  end;
end;

procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  case Random(9) of
    0: HoverSkill('random', False);
    1: PickUpMouse;
    2: AlmostLogout;
  end
end;

procedure AntiRandoms;
begin
 FindTalk;
 FindNormalRandoms;
  if (FindFight = true) then
  begin
   RunAwayDirection('N');
   Wait(10000 + random(2000));
   RunBack;
 end;
end;

begin
 SetupSRL;
 DeclarePlayers;
 Wait(3000);
 Writeln('Malotts bonage... bone burier');
 Wait(500);
 Writeln('v0.01 beta');
 Wait(500);
 Writeln('Last updated 1/4/08');
 Wait(500);
 Writeln('Good Luck!');
 repeat
  AntiBan;
  //sendarrowsilentwait(1,random(400));
  FindBones;
  if invfull then
   begin
    Disguise('Burying');
    BuryBones;
    Drops:=Drops+1
    end;
  ProgressReport;
  until(false)
 Disguise('Dead...');
end.

could you by any chance explain what you changed so that next time if i make another bot it will work better?

your a lifesaver :)

Updated to newest version

new version!
added multiplayer, bmps, and alot of stuff thanks to Hy71194

i have been running it for only 5 minutes now but it works fine till now:)

thanks

Its probably not updated. but if you want i will update and add multiplayer or whatever it needs

Yeah Please update With Smart