program New; 
{.include OSi.txt} 

const Fire = 3584499; //Change only if needed 

Procedure Cook(FishType:integer); 
var c,Cooked,RawFish,rawx,rawy,firex,firey,subx,suby:integer; 
begin 
case FishType of 
0:begin RawFish := BitmapFromString(8, 4, 
       '000001874D23804921834C21874D238D5123975725000001000001' + 
       '874D23804921874D23905325995928A35E2A000001000001874D23' + 
       '834C218D5123000001000001000001000000000000000001000001' + 
       '000001000000000000000000000000'); subx:=20; suby:=20; end;//Lobster 
1:begin RawFish := BitmapFromString(4, 4, 
       '000001B9AEADBFB6B6C6BEBE000001C4BBBACBC4C4D4CECE000001' + 
       'CDC6C5D6D0D0DAD4D4000000000001000001000001'); subx:=-2; suby:=20; end;//Trout 
2:begin RawFish := BitmapFromString(4, 4, 
       '000001A98B86AE908AB59691000001B2938DBB9A95C1A49E000001' + 
       'BC9C97C2A5A1C4A9A5000000000001000001000001'); subx:=-2; suby:=20; end;//Salmon 
3:begin RawFish := BitmapFromString(5, 2, 
       '564D42000001CAB7ADA67A5F000001000001DACEC7CFBEB6000001' + 
       '302020'); subx:=0; suby:=8; end; //Shrimp 
end; 
while(FindBitmapToleranceIn(RawFish,rawx,rawy,560,210,730,465,50))and(FindColorSpiralTolerance(firex,firey,Fire,5,5,514,337,20))do 
begin 
 Mouse(rawx-subx,rawy-suby,25,25,true); 
 Mouse(firex,firey,3,3,true); 
 c:=0; 
 while(FindBitmapToleranceIn(RawFish,x,y,rawx-10,rawy-10,rawx+10,rawy+10,50))and(c<30)do 
  begin 
   c:=c+1; 
   wait(75+random(25)); 
  end; 
 Cooked:=Cooked+1; 
 status('Cooked: '+inttostr(Cooked)); 
 wait(100+random(300)); 
end; 
end; 

begin 
SetupOSi; 
Cook(3); 
end.