/////////         JaC's Catherby Cooker BETA                     ///// 
/////////         Edited by Zalodine ( Adom Doledas )            ///// 
/////////         Edited by Jens                                 ///// 
////////////////////////////////////////////////////////////////////// 
/////////                Instructions                            ///// 
/////////    - User Scar 2.03                                    ///// 
/////////    - Have UPDATED Si.scar                              ///// 
/////////    - To update go to File then click Download Includes ///// 
/////////    - Do Setup                                          ///// 
/////////                                                        ///// 
////////////////////////////////////////////////////////////////////// 
/////////           Version                                      ///// 
/////////   -V 1.0 Beta Version please leave feedback            ///// 
/////////   -V 1.1 Fixed Walkback to Bank Procedure              ///// 
/////////   -V 1.2 Added more randomness to clicking on fish     ///// 
/////////   -V 1.3 Added Report and amount of fish to cook       ///// 
/////////   -V 1.4 Added option to turn on/off random talking    ///// 
/////////   -V 1.5 Updated the way it cooks da food              ///// 
/////////   -V 1.6 Changed how it logs out                       ///// 
/////////   -V 1.7 Fixed cooking bugs and changed going to range ///// 
/////////   -V 1.8 It just works...                              ///// 
////////////////////////////////////////////////////////////////////// 


program New; 

{.include Si.scar} 

////////////////////////SETUP OMGEEEE//////////////////////////////// 
///////////////////////////////////////////////////////////////////// 
                  Const 
                  Food=2050429;  //Color of (raw) Food you're cooking 
                  Lampskill='cooking'; //Skill to apply when lamp found 
                  Amount=500; // Total amount of fish to cook 
                  RandmTalk=False; //Do you want it to random talk? 
///////////////////// END OF SETUP////////////////////////////////// 
//////////////////////////////////////////////////////////////////// 
                  var 
                  a,x,y,trips,banked:integer; 


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('JaCs Catherby Cooker BETA'); 
AddToReport('     By JaC'); 
AddToReport('~~~~~~~~~~~~~~~~~~~~~~~~~~'); 
AddToReport('Cooked for '+ Scripttime2(2)); 
AddToReport('Banked ' + inttostr(Banked) + ' times'); 
AddToReport('Cooked ' + inttostr(Banked*28) + ' fish'); 
AddToReport('~~~~~~~~~~~~~~~~~~~~~~~~~~'); 
end; 

procedure RunToBank; 
begin 
   repeat 
  wait(500+random(150)) 
    FindColorSpiral(x,y,3060683,619,93,604,80) 
     mouse(x+4,y,1,1,true) 
  until FlagPresent; 
     flag; 
  repeat 
    FindColorSpiral2(x,y,72521,655,60,705,96); 
     mouse(x,y+9,1,1,true); 
  until FlagPresent; 
   flag; 
Begin 
    mouse(340,131,1,1,false); 
    ClickText('Walk here',102,35,319,314); 
   flag; 
  end; 
 end; 

function Fight:boolean; 
begin 
 if(FindColorSpiral(x,y,65280,216,115,284,171))then 
   Result:=true; 
end; 

Procedure Randoms; 
Begin 
   CheckRandoms(1,LampSkill,'NA',false,True,[rtText, rtLamp, rtLogout, rtBox, rtdead, rtMod, rtPlant]); 
    if(fight)then 
    RunToBank; 
   end; 

Procedure RandomTalk; 
Begin 
   GhostSpeak('cooking'); 
 end; 

  Procedure OpenBag; 
Begin 
   If FindColorSpiralTolerance(x,y,5531511,629,174,663,197,5) then 
      mouse(x,y,1,1,true); 
  end; 

procedure GetAll; 
begin 
  Randoms; 
  OpenBank; 
  BankScreen; 
  DepositAll; 
  Withdraw(1,1,0); 
  CloseWindow; 
  SetRun(true); 
  GameTab(4); 
end; 

procedure ToRange; 
 Begin 
  Repeat 
   Wait(250); 
  Until FindColorSpiral(x,y,228,665,85,685,100); 
  mouse(x+3,y+3,0,0,true); flag; 
  MMouse(265,135,0,0); Wait(1000); 
  If IsTextAt2(9,9,'Open',200) Then Mouse(265,135,0,0,true); 
  Mouse(325,25,0,0,False); 
  ClickText('Walk here',102,10,400,314); 
  flag; 
 end; 

Procedure CookDaFood; 
var Time: integer; 
Begin 
  Mouse(579,219,5,5,true); //Click 1st fish 
  Wait(250+random(50)); 
  Mouse(244,123,2,2,false); // Left click range 
  Wait(200+random(25)); 
  ClickText('with Range',178,90,307,193); // Click in small menu on range 
  Wait(100); 
  while(GetColor(488,363)=0)do // Wait till cook logo appears 
    Wait(100+random(70)); 
  Wait(152+random(10)); 
  Mouse(232,390,41,34,false); // Right click cook fish 
  Wait(250+random(70)); 
  ClickText('All',171,344,351,451); // Click cook all 
  Time:=GetSystemTime; 
  repeat 
    Wait(1500+random(500)); 
    Randoms; 
    if(RandmTalk)then 
    begin 
      RandomTalk; 
      ClickText('with Range',102,35,319,314); 
    end; 
  until(not(FindColorSpiral(x,y,Food,559,211,730,461)))or(Time+70000 <= GetSystemTime) 
end; 

procedure BackToBank; 
var door:boolean; 
begin 
  door:=false; 
  Randoms; 
  MMouse(195,311,3,3); 
  Wait(200+random(50)); 
  if(not(IsTextAt2(9,9,'Close',100)))then 
  begin 
    door:=true; 
    Mouse(165,327,4,4,false); 
    ClickText('Walk here',59,177,242,337); 
    Wait(100); 
    Randoms; 
    Flag; 
    MMouse(249,184,5,5); 
    if(IsTextAt2(9,9,'Open',100))then 
    begin 
      Randoms; 
      GetMousePos(x,y); 
      Mouse(x,y,0,0,true); 
    end; 
  end; 
  if(door)then 
  begin 
    repeat 
      FindColorSpiral(x,y,3060683,597,41,645,93); 
      Mouse(x+4,y,1,1,true); 
      Randoms; 
      Wait(400+random(250)); 
    until(FlagPresent) 
    Flag; 
  end else 
  begin 
    repeat 
      FindColorSpiral(x,y,3060683,587,62,636,110); 
      Mouse(x+4,y,1,1,true); 
      Randoms; 
      Wait(400+random(250)); 
    until(FlagPresent) 
    Flag; 
  end; 
end; 

procedure EndScript; 
begin 
  CloseWindow; 
  SendText('Later all'+chr(13)); 
  Mouse(756,-17,1,1,true); 
  terminatescript; 
end; 

begin 
LoadInclude('MSN Messenger',false) 
LoadWords('cooking'); 
ChatsOff; 
repeat 
  GetAll; 
  ToRange; 
  CookDaFood; 
  BackToBank; 
  Banked:=Banked+1 
  a:=a+1*28 
  Report; 
until(a=amount) 
if(a=amount)then 
  EndScript; 
end.