///////////////////////////////////////////////////////////////////////////////////////////////////
///         KNIGHTSTREAKS ANTI-FORD (modded by moparisthebest, with permission)                 ///
///                                                                                             ///
///   1. SAVE THIS FILE IN THE SAME SCRIPTS FOLDER AS YOUR MAIN SCRIPT AS "ANTIFORD.TXT"        ///
///   2. Put {.INCLUDE ANTIFORD.TXT} with your other includes (under program (program name);)   ///
///   3. Put "eyetest;" directly below your findtext/talktorandom procedure                     ///
///   4. That is all you have to do =)                                                          ///
///   5. counter for number of times solved added (named drfordcnt), put this in your progress  ///
///      report for output of the number of times solved:                                       ///
///      if(drfordcnt>0)then writeln('Solved '+inttostr(drfordcnt)+' Dr. Ford random[s].');     ///
///////////////////////////////////////////////////////////////////////////////////////////////////
var drfordcnt:integer;

Procedure eyetestMouse(x,y,rx,ry: integer; left:boolean);
begin
x:=x+random(rx); y:=y+random(ry);
if(x<=789)and(x>=0)and(y<= 592)and(y>=0)then
begin
movemousesmoothex(x,y,1,6,15,20,10);
GetMousePos(x,y);
Wait(50+random(50));
HoldMouse(x,y,left);
Wait(10+random(70));
ReleaseMouse(x,y,left);
wait(100+random(100));
x:=x-3+random(6); y:=y-3+random(6);
MoveMouseSmoothEx(x,y,1,6,25,20,10);
wait(150+random(100));
end;
end;

Procedure eyetest;   //by knightstreak
var
 q,i,backgroundcolor : integer;
 firstfinger, secondfinger, thirdfinger, fourthfinger : boolean;
begin
 if(not(getcolor(650, 185) = 4902398))then
  begin
  drfordcnt:=drfordcnt+1;
  writeln('found dr ford random, solving (may take up to 40 seconds)...');
  backgroundcolor:=Getcolor(10,10);
   repeat
    wait(10);
    q:= q + 1;
   until(not(getcolor(143, 94) = backgroundcolor)or (q >= 1000));
   if(q < 1000)then
    firstfinger := true;
   q:= 0;
   repeat
    wait(10);
    q:= q + 1;
   until(not(getcolor(302,41) = backgroundcolor)or (q >= 1000));
   if(q < 1000)then
    secondfinger := true;
   q:=0
   repeat
    wait(10);
    q:= q + 1;
   until(not(getcolor(409,75) = backgroundcolor)or(q >= 1000));
   if(q < 1000)then
    thirdfinger := true;
   q := 0;
   repeat
    wait(10);
    q := q + 1;
   until(not(getcolor(415,101) = backgroundcolor)or(q >= 1000));
   if(q < 1000)then
    fourthfinger:=true;
   q := 0;
   if(firstfinger = true)and(secondfinger = false)and(thirdfinger = false)and(fourthfinger = false)then
    eyetestMouse(99, 299,3,3,true);
   if(firstfinger=true) and (secondfinger=true) and (thirdfinger=false) and (fourthfinger=false)then
    eyetestMouse(153,300,3,3,true);
   if(firstfinger=true) and (secondfinger=false) and (thirdfinger=false) and (fourthfinger=true)then
    eyetestMouse(211, 304,3,3,true);
   if(firstfinger=false) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=false)then
    eyetestMouse(265, 300,3,3,true);
   if(firstfinger=false) and (secondfinger=false) and (thirdfinger=false) and (fourthfinger=true)then
    eyetestMouse(320, 306,3,3,true);
   if(firstfinger=true) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=false)then
    eyetestMouse(374, 298,3,3,true);
   if(firstfinger=true) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=true)then
   begin
    eyetestMouse(431,299,3,3,true);
    end;
 writeln('finished solving dr ford random, enjoy your banana :)');
 For i := 0 to 5 do
  Begin
   if(getcolor(241,445) = 16711680)or(getcolor(241,445) = 16777215)then
    begin
     eyetestMouse(241,445,3,3,true);
     wait(1500 + random(500));
    end;
  End;
  End;
end;