////////////////////////////////////////////////////////////
//LOW RES //
//SMALL SCREEN SIZE //
// //
//works in normal mode or time trial //
// //
////////////////////////////////////////////////////////////
// //
//script by: comosaydice //
//http://comosaydice.deviantart.com/ //
// //
////////////////////////////////////////////////////////////
//Version 1.0 - Sticks sometimes, CTR+ALT+S CTR+ALT+R to fix
//
//+++if you want to improve, could use better images for
//right left up down
//+++could use better way of searching/keeping track if one
//of the 240 blocks has already been turned over that round.
//
//first attempt at a script since playing runescape a few years back
program eyeofstorm;
var
a,b,x,y,z,d,xmin,xmax,ymin,ymax,up,down,right,left,click:integer;
Procedure ProgressReport; // EdMandel and Phalanx Edited by Aton then by Refresher
// Brought back by comosaydice
begin
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
writeln('<========Progress Report==========>');
writeln(' Clicked '+inttostr(d)+(' times.'));
writeln('Boat is within: '+inttostr(xmin)+' , '+inttostr(xmax)+ ' x-axis');
writeln(' and within: '+inttostr(ymin)+' , '+inttostr(ymax)+ ' y-axis');
writeln('('+inttostr((xmax-xmin)*(ymax-ymin))+ ' pixels squared area to search)');
writeln('<===========comosaydice===========>');
End;
procedure FindBoat;
begin
d:=0;
repeat
z:=0;xmin:=18;xmax:=528;ymin:=18;ymax:=324;
repeat
a:=random(xmax-xmin)+xmin; b:=random(ymax-ymin)+ymin;
movemouse(a,b);
wait(100);
clickmouse(a,b, true);
wait(100);
d:=d+1;
ProgressReport;
if(findbitmaptolerancein(up,x,y,a-15,b-15,a+15,b+15,100))then
begin
ymax:=b;
end;
if(findbitmaptolerancein(left,x,y,a-15,b-15,a+15,b+15,100))then
begin
xmax:=a;
end;
if(findbitmaptolerancein(right,x,y,a-15,b-15,a+15,b+15,100))then
begin
xmin:=a;
end;
if(findbitmaptolerancein(down,x,y,a-15,b-15,a+15,b+15,100))then
begin
ymin:=b;
end;
if(getcolor(334,162)=3355443)then z:=1;
if(getcolor(409,359)= 51)then z:=2;
until(z=1)or(z=2);
until(z=2)
end;
procedure loaddamnbitmaps;
begin
down := BitmapFromString(2, 4, 'z78DA73737376B6B474C3200D0C' +
'402C4C120021530B89');
up := BitmapFromString(2, 4, '0099FF0099FF0099FF0099FFFFCC9' +
'9FFCC99FFCC99FFCC99');
left := BitmapFromString(4, 2, '0099FF0099FFFFCC99FFCC99009' +
'9FF0099FFFFCC99FFCC99');
right := BitmapFromString(4, 2, 'FFCC99FFCC990099FF0099FFFF' +
'CC99FFCC990099FF0099FF');
end;
begin
loaddamnbitmaps;
FindBoat;
end.
