SRL Archive - SRL Archives

Simple yet un-failable bone burrying procedure.
Works with

Bones, BigBones, Dragon Bones, Monkey Bones, Bat Bones and Jogre Bones.

{*******************************************************************************
Procedure BuryBones(HowMany : Integer; WhatType : String);
by: NaumanAkhlaQ
Description: Burries The amount of bones specified.
WhatType - enter in part of the uptext
*******************************************************************************}

Procedure BuryBones(HowMany : Integer; WhatType : String);
Var III, C0l, IMark : Integer;
Begin
 If HowMany > CountColorTolerance(14013914, MIX1, MIY1, MIX2, MIY2, 10) Then
   srl_Warn('BuryBones', 'Not Enough Bones Found', warn_AllVersions)
 else
  GameTab(4);
  Repeat
   If FindColorTolerance(x, y, 14013914, MIX1, MIY1, MIX2, MIY2, 5) Then
     Begin
       MMouse(x, y, 5, 5);
       C0l := GetColor(x, y);
       Wait(20 + Random(80));
     end;

   If IsUpText(WhatType) Then
     Begin
       Case Random(5) Of
         0 : Begin
               Mouse(x, y, 0, 0, False);
               Wait(200 + Random(200));
               ChooseOption('ury');
               MMouse(x, y, 0, 0);
             end
          else Mouse(x, y, 0, 0, True);
       end;
     Inc(III);
    end;

     MarkTime(Imark);
      Repeat
        Wait(400 + Random(200));
      Until(Not(SimilarColors(c0l, GetColor(x, y), 3))) or
      (TimeFromMark(IMark) > 2000 + Random(800));

  Until(III >= HowMany) or (Not(FindColorTolerance(x, y, 14013914, MIX1, MIY1, MIX2, MIY2, 10)));
  WriteLn('Bones Burried!');
end;

Thanks for looking.

These are procedures that the script maker should make. Me my self would never use that procedure instead of my own….

Btw: have u even tested this? i dont think u have…….

Yes I have.. on 689 bones…

I think your wrong…

From: JuKKa
These are procedures that the script maker should make.

I'm with you there. Excluding that, don't you think the user should be able to bury just one kind of bone in their inventory? Ex.

BuryBones(5, 'big bones');

Works with

Bones, BigBones, Dragon Bones, Monkey Bones, Bat Bones and Jogre Bones.

..

But as you say why not add that :)

Simple btw.

Just make it check for uptext. Updated First Post ;)

Just do a uptext multi?

I disagree with adding this. People should have to write things like this.

Well we have things like SetRun; and SetAngle; its so simple why dont people write that aswell?

Wouldn't it be better if you'd use bitmaps (bitmaps.scar) so that you don't hover the wrong bones?

From: NaumanAkhlaQ
Well we have things like SetRun; and SetAngle; its so simple why dont people write that aswell?

Those are just basic things to work with for bigger procedures/functions which is largely what the srl include is, yours on the other hand is closer to a portion of a script which would lead to scripts being like:

begin
  repeat
    if not(loggedin) then exit;
    DoAntiBans;
    FindAllRandoms;
    KillMonster('goblin');
    EatIfNeeded('lobster');
    Pickup(['bones', 'gold']);
    BuryBones(CountBones, 'bones');
  until(false);
end;

Ummm no. All this does is bury the bones of your inventory, nothing to do with obj finding on the mainscreen, nothing to do with killing goblins -_-