forgot my continueloop in a few spots but now warpcheck function the
warp2station function keeps looping(acts like the dockbug function but
it's all commented so it can't be that function thats looping
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)
ContinueLoop
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)
ContinueLoop
ElseIf $warp <= 535000 And $warp >= 5550000 Then
Sleep(5000)
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)
ContinueLoop
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)
ContinueLoop
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
