program New;

{.include si.scar}
////////////////////// JaC's Gnome Agility 2.0 /////////////////
/////  - Credits to Zalodine for help with log and rope    /////
////////////////////// Instructions ////////////////////////////
/////  - USE LOW DETAIL!!!!!!                              /////
/////  - Use 2.02                                          /////
/////  - Have updated includes                             /////
/////  - USE LOW DETAIL!!!!!!!                             /////
/////  - Start infront of the log                          /////
////////////////////////////////////////////////////////////////


/////////////  Set Up ///////////////////////

               Const
               Trips=2;//How many trips to do
               LampSkill='fletching';//What skill to put lamp to
               
/////////////// End Setup ///////////////////





/////////////  Don't Touche /////////////////
          const
          log=6440;
          net=7110800;
          nub=4091269;
          spear=7369081;
          rope=6062752;
          nub2=3299436;
          Tree=90625;
          hive=10329769;
          pipe=5724256;
          shroom=2634290;
          symbol=10592673;
          Grass=2063735;
          var
          x,y : integer;
          trip  : longint;
         
Procedure Report;
var time,times,timem,timeh,StrSecZero,StrMinZero:string;
    Hours,Minutes,Seconds,avtime,ST: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;

ClearReport;
AddToReport('Gnome Agility');
AddToReport('     By JaC');
AddToReport('~~~~~~~~~~~~~~~~~~~~~~~~~~');
AddToReport('Hauled ass for '+ Scripttime2(2));
AddToReport('Ran around this gay course ' + inttostr(Trip) + ' times');
AddToReport('Gained ' + inttostr(Trip*83) + ' exp from this noob course');
AddToReport('Glad you did not have to do this shit yourself?!?');
AddToReport('~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;


Procedure Randoms;
Begin
   CheckRandoms(1,LampSkill,'NA',false,false,[rtText, rtLamp, rtLogout, rtBox, rtdead, rtMod, rtPlant]);
 end;
 
procedure CrossLog;
begin
Randoms;
wait(500)
    repeat
    If(findobj(x,y,'Walk',605282,0))then
    Mouse(x,y,1,1,true);
    until(FindColorSpiral2(x,y,log,265,155,275,185));
    repeat
    wait(750)
    Until (FindColorSpiralTolerance(x,y,Grass,265,155,275,185,10));
end;
 
Procedure NetClimb;
begin
repeat
wait(250)
until
   (FindColorSpiralTolerance(x,y,Grass,265,155,275,185,10))
     mouse(647,95,1,1,true)
    flag;
repeat
wait(250)
until
     FindColorSpiral(x,y,net,246,231,306,244);
     mouse(x,y,1,1,true);
 end;

Procedure ClimbSmallTree;
begin
repeat
   wait(600)
   until  FindColorSpiral2(x,y,3563122,254,184,256,212);
   mouse(x,y,0,0,true);
  end;


Procedure RopeCross;
Begin
repeat
wait(250)
until
     FindColorSpiral(x,y,spear,173,116,181,266);
repeat
     FindColorSpiral(x,y,rope,431,182,441,182)
     Mouse(x,y,0,0,false)
     ClickText('Walk-on',244,69,514,338)
     Mouse(17,15,1,1,true);
    wait(1600)
until  IsChatMessage('You carefully cross')
    end;

Procedure ClimbTree;
Begin
Repeat
wait(250)
until
     FindColorSpiral(x,y,nub2,375,187,382,194);
Randoms;
     MMouse(x,y,1,1);
     If IsTextUp('Climb-down') then;
     Mouse(x,y,1,1,true);
    end;

Procedure ToNet;
Begin
Repeat
wait(250)
until
     FindColorSpiral2(x,y,Tree,658,101,671,113);
     Mouse(652,68,1,1,true);
    flag;
  end;

Procedure ClimbNet2;
Begin
Repeat
wait(250)
until
     FindColorSpiral(x,y,net,253,85,305,116)
     Mouse(x,y,1,1,true);
    Randoms;
    end;

Procedure SqueezePipe;
Begin
repeat
wait(250)
until FindColorSpiral(x,y,hive,341,5,355,14);
repeat
     wait(850)
      If (FindObj(x,y,'Squeeze',5726304,0))then
      mouse(x,y,1,1,true);
     until(findcolor(x,y,symbol,584,91,595,95));
   end;
     
Procedure ToLog;
Begin
     FindColorSpiral2(x,y,symbol,581,80,608,94);
     mouse(x+8,y+6,1,1,true);
    flag;
   Randoms;
    end;

begin
LoadInclude('Marathon!',false)
ChatsOff;
SetRun(true);
repeat
CrossLog;
NetClimb;
ClimbSmallTree;
RopeCross;
ClimbTree;
ToNet;
ClimbNet2;
SqueezePipe;
Tolog;
trip:=trip+1
report;
until (trip>=trips)
mouse(757,-16,1,1,true) terminatescript;
end.