ReFLeX
2006-04-07 19:51:22
{*******************************************************************************
Procedure CookAll;
By: ReFLeX
Description: Clicks Cook All Option for Trout, Salmon, Cod, and Pike
*******************************************************************************}
procedure CookAll;
{.include SRL/SRL.scar}
var Fish : integer;
begin
Fish := DTMFromString('78DA63E460606050624001F11111609A1188F' +
'F0301A32090218EAA26293A8AE13F540D58AD0A90E0475593959C' +
'8CA206002E9309DC');
if FindDTM(Fish, x, y, 221, 386, 290, 435)then
begin;
Mouse(x, y, 0, 0, False);
wait(1000+random(500));
Mouse(x, y+5, 0, 0, True);
end else
writeln('Couldnt find the fish')
end.
{*******************************************************************************
Procedure CookLobs ;
By: ReFLeX
Description: Clicks Cook All Option for Lobsters
*******************************************************************************}
procedure CookLobs;
{.include SRL/SRL.scar}
var Lobs : integer;
begin;
Lobs := DTMFromString('78DA6314626060E06740015B124419FE03694' +
'620FE0F048CA240862C031A6084AB01F3248184280135CC404280' +
'801A1920C1825F0D00F7600AE3');
if FindDTM(Lobs, x, y, 221, 386, 290, 435)then
begin;
Mouse(x, y, 0, 0, False);
wait(1000+random(500));
Mouse(x, y+30, 0, 0, True);
end else
writeln('Couldnt find lobster')
end.
Standards may be wrong