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.
Code:
(* 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.