my reborn (SRL)bonez(SRL)

[seanthyRETURNED]

here it is, u may need to update colors, ALOT. but it works.

{*********************************************************************************
_________________________________________________*********************************
|###########||##########||##########||##########|*********************************
|#          ||##        ||##      ##||#        #|*********************************
|###########||########  ||##########||#        #|*********************************
|          #||##        ||##      ##||#        #|*********************************
|###########||##########||##      ##||#        #|*********************************
|_______________________________________________|_________________________________
|##########||###########||##########||##########||########||##########||########||
|#         ||##         ||#         ||    #     ||#      #||    #     ||#       ||
|##########||##         ||#         ||    #     ||########||    #     ||########||
|         #||##         ||#         ||    #     ||#       ||    #     ||       #||
|##########||###########||#         ||##########||#       ||    #     ||########||
__________________________________________________________________________________
Sean Scripts prestents...
xBONEZx

{.Script Info:
# ScriptName  = xBONEZx
# Author      = Sean R.
# Description = Picks up bones and burrys them for you
# Version     = 2.0
# Date        = March 2, 2007
# Comments    = UPDATED! added the imhuman procedure witch will avoid more randoms.
Also the script has had its touch-ups.
/Script Info}
{
fill in lines 40-43

Play the script only in the Big chicken farm.
Have feathers in your 1st inventory slot.
begin script.
* it is recommeneded that you check the script every hour or so.
}


program xBONEZx;
{.include SRL\SRL.SCAR}

const
Bones = 12895692;
ChickenC = 10527169;
EggC = 6330321;
Direction = 'N';

var
Buryed:integer;
Burytime:boolean;
Loopcount:integer;
Width, Height: Integer;
go:boolean;

procedure Start;
begin
buryed:= 0
wait(1000)
writeln('Bonez is starting...')
wait(1000)
PerfectNorth;
wait(100)
writeln('bonez has started.')
end;

procedure Talk;
begin
if loopcount = 5 then
typesend(' hi ')
if loopcount = 10 then
typesend('im gaining soo much exp')
if loopcount = 20 then
typesend('yall are dumb')
if loopcount = 30 then
typesend('yo wassup homies')
if loopcount =  40 then
typesend('hello')
if loopcount = 50 then
typesend('wave2: look its wavy!')
if loopcount = 60 then
typesend('did you know that my prayer is level 99')
if loopcount = 70 then
typesend('I want to be a mod one day')
if loopcount = 80 then
typesend('cookies are yummy')
if loopcount = 90 then
typesend('i like eggs')
if loopcount = 100 then
begin
typesend(' something smells yummy')
loopcount:= 0
end;
end;


procedure Findtrue;
begin
findcolorspiral(x,y,10000804,695,437,723,452)
if findcolorspiral(x,y,10000804,695,437,723,452)=true then
burytime:=true
end;

Procedure Pick;
Begin
Findcolorspiral(x,y,Bones,32,37,473,306)
if Findcolorspiral(x,y,Bones,32,37,473,306)= true then
Begin
MMouse(x,y,0,0)
Mouse(x,y,0,0,true)
wait(12)
end;
end;

procedure ImHuman;
begin
if loopcount = 15 then
go:= true
if loopcount = 30 then
go:= true
if loopcount = 45 then
go:= true
if loopcount = 60 then
go:= true
if loopcount = 75 then
go:= true
if loopcount = 90 then
go:= true
if go = true then
begin
SetMouseMode(False);
GetClientDimensions(Width, Height);
MoveMouseSmooth(Random(Width), Random(Height));
go:= false
end;
end;


Procedure DropCrap;
begin
CountItemColorTol(chickenc,0)
begin
repeat
ClickItemColorTol(chickenc,0,False)
ChooseOption(x,y,'Drop')
wait(1230+ random (6))
Until (CountItemColorTol(chickenc,0)<1)
begin
CountItemColorTol(eggc,0)
begin
repeat
ClickItemColorTol(eggc,0,false)
ChooseOption(x,y,'Drop')
wait(1230+ random (6))
Until (CountItemColorTol(eggc,0)<1)
end;
end;
end;
end;

Procedure Randoms;
Begin
FindNormalRandoms;
 wait(10)
 UseBoxSolver := True
 UseCerterSolver := True
 UseSandwichSolver :=True
 FindMaze;
 wait(10)
 Solvepinball;
 Wait(10)
  begin
   if (FindFight) then
   begin
    RunAwayDirection(Direction);
     Wait(8500 + random(3500));
    RunBack;
    end;
 Wait(13);
FindTalk;
end;
end;


Procedure Bury;
Begin
if burytime = true then
begin
CountItemColorTol(6776686,4)
Repeat
ClickItemColorTol(6776686,4,False)
ChooseOption(x,y,'Bury')
Wait(800+random(200)+random(200))
Buryed := Buryed+1
Randoms;
burytime:= False;
Until (CountItemColorTol(6776686,4)<2)
end;
end;

procedure Progress;
begin
WriteLn('|____________________________________________________')
WriteLn('|script produced by - Sean R. updated reguraly-------')
WriteLn('|Script has been running for: '+TimeRunning);
WriteLn('|You have burried '+IntToStr((buryed)*1)+ ' bones.')
WriteLn('|Gained around '+IntToStr((buryed)*5 )+ ' xp.')
WriteLn('|**You should check the status report often. Enjoy!*|')
WriteLn('|____________________________________________________')
end;

procedure cleanup;
begin
if loopcount =15 then
cleardebug
if loopcount =35 then
cleardebug
if loopcount =50 then
cleardebug
if loopcount =65 then
cleardebug
if loopcount =80 then
cleardebug
if loopcount =95 then
cleardebug
end;






Begin
Loopcount:=0
SetupSRL;
Start;
repeat
Loopcount:= Loopcount + 1
Findtrue;
Talk;
ImHuman;
Pick;
DropCrap;
Randoms;
progress;
cleanup;
bury;
until(false)
end.