/////////         JaC's Catherby Cooker BETA                     /////
/////////         Edited by Zalodine ( Adom Doledas )            /////
//////////////////////////////////////////////////////////////////////
/////////                Instructions                            /////
/////////    - User Scar 2.02                                    /////
/////////    - 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 /////
//////////////////////////////////////////////////////////////////////


program New;

{.include Si.scar}

////////////////////////SETUP OMGEEEE////////////////////////////////
/////////////////////////////////////////////////////////////////////
                  Const
                  Food=8884904;  //Color of Food you're cooking
                  Lampskill='cooking'; //Skill to apply when lamp found
                  Amount=28;
                  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,28+random(55));
  closewindow;
 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 Col,Row,x1,y1: Integer;
Begin
  Col:=0;
  Row:=0;
  Mouse(650,185,0,0,true); Wait(250);
  Repeat
   If Col=4 Then Begin Row:=Row+1; Col:=0; End;
   MMouse(585+Col*42,230+Row*36,0,0);
   GetMousePos(x,y);
   Wait(250);
   x1:=x; y1:=y;
   If IsTextAt2(9,9,'Use',200) Then
    Begin
     Mouse(x,y,0,0,True);
     FindColor(x,y,1649868,134,52,297,187);
     mouse(x,y,1,1,false);
     If RandmTalk Then randomtalk;
     ClickText('with Range',102,35,319,314);
     Repeat
      Wait(250);
     Until Not(FindColorSpiral(x,y,Food,x1-20,y1-17,x1+20,y1+17)) ;
    End;
   Col:=Col+1;
   Randoms;
   Wait(500);
  Until (Row=6) And (Col=4);
end;

procedure BackToBank;
Begin
  repeat
  wait(500+random(150))
    FindColorSpiral(x,y,3060683,619,93,604,80)
     mouse(x+4,y,1,1,true)
  until FlagPresent;
     flag;
     Randoms;
  end;

begin
loadinclude('Kiss me',false)
LoadWords('cooking');
Chatsoff;
repeat
GetAll;
ToRange;
CookDaFood;
BackToBank;
Banked:=Banked+1
a:=a+1*28
Report;
until(a=amount)
if (a=amount) then closewindow
  sendtext('Later'+chr(13)) mouse(756,-17,1,1,true) terminatescript;
end.