(*
Gnome Agility
      By: GenoDemoN
NO-AntiRandoms, not really needed though
  Start At Log, Have log appear staright on main screen
      v-Bright Have Run 0n
Set-up Lines 14-20

*)

program Gnomey;
const
tol=10; // Do not Change
color1=605799;  //Log
color2=5464176; //Net Part
color3=1195601; //Tree Stub (tanish part)
color4=6062752; //Rope
color5=1858165; //Tree Stub (tanish part)
color6=5595256; //Net Part
color7=7500411; //Pipe
var
x,y,xx,yy,z,zz,pipe:integer;
found:boolean;

procedure sendkeyssilentsmooth(text:string;pause:integer); {Created by Piv}
begin
repeat
sendkeyssilent(copy(text,1,1)); wait(pause+random(50));
delete(text,1,1); wait(50);
until(length(text)=0);
wait(100+random(50));
end;

procedure searchd(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>15)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,128,180+z*10,400,190+z*10,tol))
end;

procedure searchu(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>18)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,128,180-z*10,400,190-z*10,tol))
end;

procedure searcha(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>15)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,128-z*2,180-z*10,400+z*2,190+z*10,tol))
end;

procedure searchr(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>20)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,300+z*10,50,310+z*10,240,tol))
end;


begin
loadchars('');
pipe := BitmapFromString(24, 6,
       'BAAB8ABBAE92000000000000000000BAAB8ABAAB8ABAAB8ABAAB8A' +
       'B9A581BAAB8AB9A581000000000000000000B9A581B9A581B9A581' +
       'B9A581000000000000000000B9A581B9A581BBAE92000000BBAE92' +
       'BBAE92BAAB8A000000BAAB8ABAAB8A000000B9A581B9A581000000' +
       'B9A581B9A581B9A581000000B9A581B9A581000000B9A581B9A581' +
       'B9A581000000B9A581BBAE92000000BBAE92BBAE92BAAB8A000000' +
       'BAAB8ABAAB8A000000B9A581B9A581000000B9A581B9A581B9A581' +
       '000000B9A581B9A581000000B9A581B9A581B9A581000000B9A581' +
       'BBAE92000000BAAB8ABAAB8ABAAB8A000000B9A581B9A581000000' +
       'BAAB8AB9A581000000B9A581B9A581B9A581000000B9A581B9A581' +
       '000000000000000000000000B9A581B9A581BAAB8A000000BAAB8A' +
       'B9A581B9A581000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000' +
       'B9A581BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8AB9A581B9A581B9A581000000000000000000000000BAAB8A' +
       'BAAB8ABAAB8A000000BAAB8ABAAB8A000000000000000000000000' +
       'B9A581BAAB8ABAAB8AB9A581000000000000000000000000B9A581' +
       '');



  repeat
z:=-1;
repeat
found:=false;
searchd(color1);
movemousesmooth(x,y);
sleep(200+random(50));
zz:=0;
repeat
zz:=zz+1;
sleep(5);
IF (istextat2(46+zz,9,'a',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(6900+random(200));
end;
sleep(5);
until(zz>3);
until(found);

x:=230+random(30);
y:=260+random(25);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(1400+random(200));

z:=-1;
repeat
found:=false;
searchd(color2);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(3600+random(200));
end;
until(found);

z:=-1;
repeat
found:=false;
searcha(color3);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(3600+random(200));
end;
until(found);

z:=-1;
repeat
found:=false;
searchr(color4);
movemousesmooth(x,y);
sleep(200+random(50));
zz:=0;
repeat
zz:=zz+1;
sleep(5);
IF (istextat2(46+zz,9,'on',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(6900+random(200));
end;
sleep(5);
until(zz>3);
until(found);




z:=-1;
repeat
found:=false;
searchr(color5);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(5800+random(200));
end;
until(found);

x:=228+random(32);
y:=50+random(30);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(1100+random(200));

z:=-1;
repeat
found:=false;
searchu(color6);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(3900+random(200));
end;
until(found);

z:=-1;
repeat
found:=false;
searchu(color7);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'S',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(2000+random(200));
IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,433,5)=false)then
begin
sleep(7900+random(200));
end;
IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,433,5))then
begin
found:=false;
 sendkeyssilentsmooth('argh'+chr(13),10);
 sleep(300);
 end;
end;
until(found);

x:=40+random(20);
y:=140+random(30);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(2600+random(200));

x:=40+random(20);
y:=170+random(30);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(2600+random(200));


                
 until(false);
end.