[RS2][SRL]Fantastic Four's Prayer Leveler

Sean... Yeah, you... the one who coppied almost my WHOLE bone burrier LAST time I posted one... don't even THINK about it...
(If you dont get that... its ok.)

Here it is

Code:

{===============================================}
{                 INSTRUCTIONS                  }
{===============================================}
{ Complete the setup in lines 63-70 and also    }
{ declare your players in lines 39-43. If the   }
{ script doesn't work please follow below...    }
{ 1. Set to vBright setting                     }
{ 2. Is your Username and Password correct.     }
{ 3. Does the "How Many Players" equal or       }
{ exceede the amount of active players.         }
{ 4. Did you pull the crosshair into the RS     }
{ window.                                       }
{ 5. Are you standing where there are bones.    }
{===============================================}


{--History--]
v1.0-Script would pick up bones.
v1.1-Script will bury bones.
v1.2-Script has some antirandoms.
v1.3-Script can be run with more than 1 player.
v1.4-More antirandoms.
v1.5-Progress report works.
v1.6-More tweaks here and there
v1.7-Runs from Shade while Burrying
v1.8-IT RAN FOR 4 HOURS! lol (And I made progress report 90% accurate)
v1.9-SRL Standards... finally... Fixed bugs... ect...
}
program BONES;


{.include SRL\SRL.SCAR}
{.include srl\srl\extended\xantiban.scar}

{===============================================}
{                      SETUP                    }
{===============================================}

Const
bonecolor = 11908543; //bone color
bonetol   = 2; //bone tol
load      = 10;//loads before log out
RunDir    = 'S';//Run Direction

vnumb = 'v1.8'; //leave same
author = 'Fourscape'; //leave same

Var
  loats, bones : Integer;

{===============================================}
{          DECLARE YOUR PLAYERS HERE            }
{===============================================}

Procedure DeclarePlayers;
begin
     HowManyPlayers  := 6;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := 0;

     Players[0].Name      := 'Username';
     Players[0].Pass      := 'Password';
     Players[0].Nick      := 'NickName';
     Players[0].Active    := True;

     Players[1].Name      := 'UserName';
     Players[1].Pass      := 'Password';
     Players[1].Nick      := 'Nickname';
     Players[1].Active    := True;

     Players[2].Name      := 'UserName';
     Players[2].Pass      := 'Password';
     Players[2].Nick      := 'Nickname';
     Players[2].Active    := True;

     Players[3].Name      := 'UserName';
     Players[3].Pass      := 'Password';
     Players[3].Nick      := 'Nickname';
     Players[3].Active    := True;
end;


{===============================================}
{                    LOAD DTM                   }
{===============================================}
Var
  BoneDTM : Integer;

Procedure LoadDTM;
Begin
  BoneDTM := DTMFromString('78DA63FCCCC4C050CCC8800CCE9F38C1F01F4' +
       '88344FF0301E35BA09A3C543510591809A49F03D5141250F305A8' +
       'A694809ABF40354504D47C02AAA9C6AF060078ED0FDC');
end;


{===============================================}
{                     RANDOMS                   }
{===============================================}

Procedure Randoms;
Begin
  FindNormalRandoms;
  wait(10)
  FindMaze;
  wait(10)
  Solvepinball;
  Wait(10)
  if (FindFight) then
  begin
    RunAwayDirection(RunDir);
    Wait(8500 + random(3500));
    RunBack;
  end;
  Wait(10);
  FindTalk;
end;

{===============================================}
{             PICK UP PROCEDURE                 }
{===============================================}

Var
  GX, GY : Integer;
  SafetyMark : Integer;

Procedure pickup;
Begin
  Begin
    KeyDown(39);
    Sleep(207 + Random(104) + Random(200));
    KeyUp(39);
    Wait(100 + Random(50));
  end;
  If FindObjMultiText(GX, GY, 'ones', 'Bon', 'Bone', BoneColor, BoneTol) then
  begin
    Mouse(GX, GY, 3, 3, True )
    Flag;
    Begin
      SRLRandomsReport;
      Randoms;
    end;
  end;
end;                                                                                                                     //


{===============================================}
{            THIS WILL BURY BONES               }
{===============================================}
Var
  BBX, BBY : Integer;

Procedure bury;
Begin
  CountItemColorTol(6776686,4)
  Repeat
    GameTab(4)
    If FindDtm(BoneDTM,BBX, BBY, MIX1, MIY1, MIX2, MIY2) then
    Begin
      Mouse(BBX, BBY, 8, 8, False)
      ChooseOption(x,y,'Bury')
      Wait(800+random(200)+random(200))
      Bones := Bones+1
      Randoms;
      If Not LoggedIn then NextPlayer(False);
    end;
  Until (CountItemColorTol(6776686,4)<2)
End;


{===============================================}
{               PROGRESS REPORT                 }
{===============================================}

Procedure progress;
Begin
  ClearDebug;
  WriteLn('-------------------------------------------------------------------')
  WriteLn(' Run Time: ' + TimeRunning + '.');
  WriteLn(' Bones Burried ' + IntToStr((Bones)*1) + '.')
  WriteLn(' XP Gained ' + IntToStr((Bones)*5) + '.')
  WriteLn('-------------------------------------------------------------------')
end;

{===============================================}
{         FIRST PART OF THE MAIN LOOP           }
{===============================================}

Procedure Main;
Begin
  SafetyMark := 0
  Repeat
    Randoms;
    pickup;
    Randoms;
    If Not LoggedIn then NextPlayer(False);
  Until (InvFull) or (TimeFromMark(SafetyMark) > 300000)
  Randoms;
  Bury;
  progress;
  SrlRandomsReport;
end;

{===============================================}
{          SECOND PART OF MAIN LOOP             }
{===============================================}

Procedure main2;
Begin
  Repeat
    HighestAngle;
    SetRun(True);
    SetChat('On',1);
    SetChat('On',2);
    SetChat('Off',3);
    Main;
    loats:= loats+1
    If Not LoggedIn then NextPlayer(False);
  Until (loats=Load)
  NextPlayer(True);
end;

{===============================================}
{                MAIN LOOP STARTS HERE          }
{===============================================}

begin
 SetupSRL;
 DeclarePlayers;
 loats := 0
 bones := 0
 LoginPlayer;
 Repeat
   Main2;
   If Not LoggedIn then NextPlayer(False);
 Until False;
end.

 

It doesnt pick bones on me

 

Try again, i think i fixed something

 

Looks like a good script (didn't test it). Thanks for posting.

 

just tried it, helped me thx mate

 

User specified a new RS window
User specified a new RS window
Include file D:\Program Files\SCAR 2.03\includes\SRL\SRL.SCAR does not exist.
Include file D:\Program Files\SCAR 2.03\includes\srl\srl\extended\xantiban.scar does not exist.
Failed when compiling

 

What do i do? i'm new 2 macro's

 

no bugs yet (tested)

 

Quite nice... Didnt find any bugs either.. ill test later.

 

So what do i do?

 

u have to properly set up scar check the forums for scar tuts

 

i tried it at the chaos alter... but it just goes over the bones and dosent pick any of them... plz help =-(

 

soul u need to download srl

 

thanks for the script works quite well

 

looks pretty cool, any ideas on where to use it?

 

looks pretty good... ima try it out

 

I tested it at chaos altar but it only picks 1 bone and then is stops

 

doesn't work

 

Look at the date of your post and everyone elses'.

 

works well for me thanks