SCAR Code:
//Made by Lancelot074
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.