//\\//\\//\\//\\//\\/\\//\\//\\//\\//\\
// Barbian Agility Coarse Runner \\
//                 v2.1                       \\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
//          Instructions:                 \\
//   -For ScarScape ONLY            \\
//   -Start RIGHT in front of the   \\
//      beginning rope.                 \\
//                                             \\
//    -Do the Setup                     \\
//   -If eating then make there   \\
//      is food in the FIRST          \\
//      INVIN SLOT                     \\
//    - if there any bugs add me  \\
//      in game:Benroer              \\
//      Or add me on msn:          \\
//      rs_benroer@hotmail.com   \\
//+----+----+----+----+----+----+\\
program yeah;
{.include Si.txt}
var x,y,trips,pit1,ate,swamp1,fall,food:integer;
ST:longint;

procedure script;forward;
procedure walklog;forward;
procedure randoms;forward;
procedure climbbalance;forward;
procedure climbwall;forward;

const
//+----+----+Setup+----+----+---+//
LampSkill = 'ranged';            //
Userset =1;                      //
TripLimit = 60;                  //
Eat = True;//eat when u fall     //
           //**Cakes might scerw //
           //the script up!      //
EatPercent = 50;//percent of HP  //
           //to eat at.          //
NumberToEat = 3;//number of peices/
           //of food to eat when //
           //needed              //
//+----+----+DontTouch+----+----+//
ladder = 3696768;                //
ladder2 = 4153464;               //
log = 4639;                      //
road = 1187626;                  //
wall = 9013650;                  //
//+----+----+End-Setup+----+----+//
procedure report;
var time,times,timem,timeh,StrSecZero,StrMinZero:string;
    Hours,Minutes,Seconds,avtime:LongInt;
begin
  clearreport;
  Seconds:=(GetSystemTime-ST) div 1000;
  if(Trips>0)then
  avtime:=Seconds/Trips;
  Hours:=Seconds div 3600;
  Seconds:=Seconds - (hours*3600);
  Minutes:=Seconds div 60;
  Seconds:=Seconds - (Minutes*60);
  if(minutes<10)then StrMinZero:='0';
  if(seconds<10)then StrSecZero:='0';
  if(hours>0)then timeh:=inttostr(hours)+':';
  if(minutes>0)then timem:=StrMinZero+inttostr(minutes)+':';
  times:=StrSecZero+inttostr(seconds); time:=timeh+timem+times;
addtoreport('Barbian Agility Runner');
addtoreport('     By Taminoo');
addtoreport('+----+----+----+----+-');
addtoreport('Worked for '+ Time);
addtoreport('Completed the coarse ' + inttostr(trips) + ' times');
addtoreport('Talked to and handled ' + inttostr(gSiRandoms[1]) + ' randoms');
addtoreport('Gained ' + inttostr(gSiRandoms[5]) + ' Agility Levels!');
end;

procedure eatfood;
begin
if(Eat)then
begin
If(HpPercent<=Eatpercent)then
 begin
 repeat
if(findcolortolerance(x,y,food,550,180,750,480,5))then
 mouse(x,y,2,2,true)
 wait(1000)
 ate:=ate+1;
  until(ate=NumberToEat)
  end;
 end;
end;

function used:boolean;
begin
if(getcolor(247,444)=16711680)then
begin
result:=true;
end;
end;

function pit:boolean;
begin
if(getcolor(641,80)=2873)then
begin
result:=true;
end;
end;

procedure getback;
begin
 if(findobj(x,y,'Climb',ladder,0))then
  mouse(x,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(639,97)=10386796))
wait(600)
mouse(659,73,1,2,true)
 flag;
 pit1:=pit1+1;
 script;
end;

function swamp:boolean;
begin
if(getcolor(672,25)=15891)then
begin
result:=true;
end;
end;

procedure runback;
begin
wait(1000)
if(findcolortolerance(x,y,605799,408,43,439,65,10))then
 mouse(x,y,1,1,true)
randoms;
repeat
wait(100)
randoms;
until((getcolor(611,51)=13569))
randoms;
swamp1:=swamp1+1;
end;

function fell:boolean;
begin
if(getcolor(643,80)=2873)then
begin
result:=true;
end;
end;

procedure climbagain;
begin
mouse(651,51,0,0,true)
flag;
wait(500)
fall:=fall+1;
climbwall;
end;

procedure randoms;
begin
CheckRandoms(userset,LampSkill,'NA',false,True,[rtText, rtLamp, rtLogout, rtBox, rtdead, rtMod])
if(pit)then
begin
wait(800)
getback;
end;
if(used)then
begin
mouse(227,444,1,2,true)
script;
end;
if(swamp)then
begin
wait(800)
runback;
end;
if(fell)then
begin
wait(800)
climbagain;
end;
end;

procedure ropeswing;
begin
randoms;
if(findcolor(x,y,15172,185,124,330,333))then
 mouse(x+5,y,0,0,true)
randoms;
wait(1000)
repeat
wait(100)
randoms;
until((getcolor(629,95)=0))
wait(1000)
randoms;
end;

procedure walklog;
begin
if(findcolortolerance(x,y,605282,205,274,292,300,10))then
 mouse(x+15,y,3,4,true)
randoms;
repeat
wait(100)
randoms;
until((getcolor(611,51)=13569))
randoms;
end;

procedure climbbalance;
begin
if(findcolortolerance(x,y,2039844,135,160,150,212,10))then
 mouse(x,y,1,1,true)
 repeat
 wait(100)
 randoms;
 until((getcolor(628,86)=2873))
 wait(1000)
mouse(192,138,2,2,true)
 flag;
randoms;
repeat
wait(100)
randoms;
until((getcolor(633,77)=15000804))
wait(1800)
if(findobj(x,y,'Climb',2907003,5))then
mouse(x,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(643,50)=15891))
if(findcolor(x,y,road,656,52,662,60))then
 mouse(x,y,5,5,true)
  flag;
end;

procedure climbwall;
begin
wait(1000)
if(findcolortolerance(x,y,9013650,270,115,400,230,10))then
 mouse(x+2,y+1,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(666,96)=13569))
wait(1000)
if(FindDirObj(x,y,'E','Climb',15,1))then
wait(500)
mouse(x+5,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(655,96)=15891))
wait(800)
if(FindDirObj(x,y,'E','Climb',15,1))then
wait(500)
mouse(x+5,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(643,97)=15651))
wait(800)
mouse(680,80,0,0,true)
 flag;
wait(1000)
end;

procedure script;
begin
SetRun(True);
eatfood;
mouse(650,185,1,1,true)
ropeswing;
walklog;
climbbalance;
climbwall;
trips:=trips+1;
report;
end;

begin
loadinclude('Internet Explorer',true)
ST:=GetSystemTime;
Food:=Getcolor(585,228)
repeat
script;
until(TripLimit=Trips)
Logout;
end.