This is a long post because i've changed the program quite a bit it's
almost finish and im including the 132 lines of code. It seems though
that the macro is ignoring any if then statements within the
functions.
I'm pretty damn sure that If then Elseif statements were a form of
loops. I could throw in a few Do Untils into it but would that really
fix the issue or make it just more messy?
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
;Color
Finder ;
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
;If $repeat = 1 then ;comment all
and then uncomment this if
statement to find color range of your pixel
;$warp = pixelgetcolor(875,1010);
;MsgBox(0,"Dock Decimal",$warp) ;get several of these
and record
them to obtain a range of color variations
;endif
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
;Declarations
;
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
$repeat = 1
$cargo = pixelgetcolor(1620,895)
$warp = PixelGetColor(875,1010)
$dock = pixelgetcolor(17,714)
$iceincargo = PixelGetColor(1440,965)
$undock = PixelGetcolor(100,200) ;not finished
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
;Main
Code ;
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
While $repeat = 1
Call("cargocheck")
Call("warp2station")
Sleep(20000)
;align time
Call("warpcheck")
Call("dockbug")
Sleep(5000)
Call("icecheck")
Call("undockwarp2bookmark")
Sleep(15000)
Call("warpcheck")
Call("setup")
WEnd
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
;Functions
;
;-==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--
==--==--==--==-;
Func cargocheck()
If $cargo <= 12000000 Or $cargo >= 13500000 then
;13019237
12953445 12756593 1295002 12492637 12426843 12229466 12229465 12163672
12163929 12097879 12097623 12032086
sleep(2000)
ElseIf $cargo >= 12000000 and $cargo <= 13500000 Then
MsgBox(0,"Cargo?",$cargo)
EndIf
EndFunc
Func warp2station()
MouseClick("right",800,50,1,1) ;Right click
for menu
sleep(1000)
mousemove(900,140,1)
;Highlight Station
sleep(500)
mousemove(1200,140,1)
;Highlight first station on list
sleep(500)
mousemove(1360,145,1)
;Highlight warp to within 0m
sleep(500)
mouseclick("left",1360,195,1,1) ;click dock
EndFunc
Func warpcheck()
If $warp <= 5550000 Or $warp >= 5350000 Then ;warp: 5410498 5476290
5476291
Sleep(2000)
ElseIf $warp <= 535000 And $warp >= 5550000 Then
Sleep(10000)
EndIf
EndFunc
Func dockbug()
If $dock > 10595243 or $dock < 10585243 then ;if docking pixel is not
right then sleep and go through menu
Sleep(3000)
MsgBox(0,"Dock Pixel Color", $dock)
;mouseclick("right",800,50,1,1) ;right click
for menu(incase for
dock bug)
;sleep(500)
;mousemove(900,140,1)
;Highlight Station(incase for dock bug)
;sleep(500)
;mousemove(1200,140,1)
;Highlight first station on list(incase
for dock bug)
;sleep(500)
;mousemove(1360,145,1)
;Highlight warp to within 0m(incase for
dock bug)
;sleep(500)
;mouseclick("left",1360,175,1,1) ;click
dock(incase for dock bug)
ElseIf $dock = 10595243 Then ;If the docking
pixel is correct then
EndIf
EndFunc
Func icecheck()
If $iceincargo = 0 Then
MouseClickDrag("left",1460,960,1160,970,10) ;Drag from
Cargo to
Hangar
sleep(2000)
ContinueCase
ElseIf $iceincargo > 0 Then
EndIf
EndFunc
Func undockchecker() ;not finished
;detect black screen while undocking
EndFunc
Func undockwarp2bookmark()
MouseClick("left",18,1021,1,1) ;Click Undock
Sleep(30000)
;Wait to Finish Undock(depends on lag/busy
station)
MouseClick("right",800,50,1,1) ;Right click
for menu
sleep(1000)
mousemove(900,176,1)
;highlight first bookmark
sleep(500)
mouseclick("left",1100,176,1,1) ;click warp to
bookmark at 0m
EndFunc
Func setup()
mouseclick("left",1450,172,1,1) ;sort overview
by farthest
away(overview bug)
sleep(1000)
mouseclick("left",1450,172,1,1) ;sort overview
by closest(overview
bug)
sleep(1000)
mouseclick("left",1500,190,1,1) ;select nearest
ice rock
sleep(1000)
mouseclick("left",1540,85,1,1) ;lock target
sleep(1000)
mouseclick("left",1409,84,1,1) ;approach
rock(incase for bumping
sleep(1000)
send("{F1}")
;activate #1 mining laser
sleep(500)
send("{F2}")
;activate #2 mining laser
sleep(500)
send("{ALTDOWN}")
sleep(1000)
send("{F1}")
;activate shield booster
sleep(1000)
send("{ALTUP}")
EndFunc
