Eve Online GateJumper (Second Script)

[omgnomorenames]

First Script in a long while

Setup :
Current Window Size is 1024 by 1042 Windowed Mode
Overview is in Top Right hand Corner and Cargo Co-
-ntainers are unselected (Picture attached)
Window Color and Background Color are set to Costom
Red Green and Blue set to 0 and Transparency 255
Set Destination, Undock and Run

IF bot is too fast or your computer is slow (more
likely) Change Line 81, and 97 wait times to a lar-
-ger numbers (1000 = 1 second)

Please Give me some feed back on my code, Especially if I can make it more efficient.

(* By omgnomorenames (KW)
Ver 1.0 July 21 2012
Eve online GateJump Script
Setup : Current Window Size is 1024 by 1042 Windowed Mode
        Overview is in Top Right hand Corner and Cargo Co-
        -ntainers are unselected
        Window Color and Background Color are set to Costom
        Red Green and Blue set to 0 and Transparency 255
        Set Destination, Undock and Run

        IF bot is too fast or your computer is slow (more
        likely) Change Line 81, and 97 wait times to a lar-
        -ger numbers (1000 = 1 second)

*)
program OneWay;
{.include SRL/SRL.simba}//Be sure to add this to ALL your scripts!
var Done : Boolean;
x : Integer;
y : Integer;

function FWarpGate (): Boolean;
Var
 x, y :integer;
Begin
     Result := False;
     if (not FindColor(x,y,65535, 778, 28, 1027,324)) then
     // If unable to find Stargate display warning message and return True
        begin
          Writeln ('I dont think were in space anymore');
          Result := True;
        end else
        if not (GetColor(554,1018) = 8216124)then
        // If Still Moving do nothing else try to warp to gate
        Begin
        Mouse (x,y,0,0,True);
        SendKeys ('d',50+Random(51));
        end;
        // Basic Wait Time after Task
        wait (2000+random (500));
end;

Procedure Pause;
Begin
 if (IsKeyDown(80)) then
 // If p is pressed begin pause loop until s is pressed
  begin
  Writeln ('Paused')
  repeat
    wait (2000); // 2 second wait
    Writeln ('Paused press s to continue');
  until (IsKeyDown (83))
    Writeln ('Continuing');
  end;
end;


begin
SetupSRL;
Done := False;
Writeln ('One way has Begun');
Mouse (902,44,5,5,True); // Incase Ship is still moving after an undocking
KeyDown (17);
KeyDown (32);
wait (100+random(50));
KeyUp (17);
KeyUp (32);
repeat
     Pause;
     if (FWarpGate) then
     begin
          Mouse (941,51,10,20,True);
          if FindColor(x,y,4182783,8,1023,42,1044) then
          // If undock button is found end script**
          begin
          Writeln ('Successfully Docked')
          Done := True;
          end else begin
            if (FWarpGate) then
            begin
              wait (5000);
              if FindColor(x,y,4182783,8,1023,42,1044) then
              //**
              begin
                Writeln ('Successfully Docked')
                Done := True;
              end else begin
              // Did not dock at station but unable
              // to find gate for a second time
                Writeln ('Did not dock at station, but I think we landed');
                Done := True;
              end;
            end;
          end;
     end else
    begin
         wait (10000);
    end;
until (Done);
Writeln('One way has completed');
end.