Hello there EVE players
I've been checking around and I saw your code; I adopted it and modify it for myself, therefore I made some changes. Please check it and reply me if you can do some improvements on it.
I am also looking forward to change things and to try to find out how to do pixel/image search to find out when the cargo is full or not in a given range of pixels ... and Dock to station. The problem is that i dont know how to do that. Any help would be apreciated.
Another thing would be nice to check if the shield/armour is going red , than you could go and dock again.
The major problem that i have is that when an Asteroid is Depleeted , than my miners go crazy and inverse the program( when they should be mining they are not .. and so on). That blinking green problem on turets is also a problem. Meaning that they sometimes still stay in mining state after the asteroid is vanished.
this is the code, please feel free to ask anything.
Code:
SetKeyDelay, 200
SetDefaultMouseSpeed, 15
InteliSleep(sec)
{
cnt := 0
mvtime := 0
Random, mvtime, 10, 30
Loop, %sec%
{
cnt := cnt + 1
if cnt >= %mvtime%
{
Random, randx, 200, 1000
Random, randy, 200, 800
MouseMove, %randx%, %randy%
Random, mvtime, 10, 30
cnt := 0
}
Sleep, 1000
}
}
;Start Main Program
Loop
{
Loop, 5
{
WinWait, EVE,
IfWinNotActive, EVE, , WinActivate, EVE,
WinWaitActive, EVE,
Sleep, 3000
UnDock(1)
GoToAB1(1)
; Mining time
MiningCicle(11)
Dock(1)
Unload(1)
}
Loop, 5
{
WinWait, EVE,
IfWinNotActive, EVE, , WinActivate, EVE,
WinWaitActive, EVE,
Sleep, 3000
UnDock(1)
GoToAB2(1)
; Mining time
MiningCicle(10)
Dock(1)
Unload(1)
}
Loop, 5
{
WinWait, EVE,
IfWinNotActive, EVE, , WinActivate, EVE,
WinWaitActive, EVE,
Sleep, 3000
UnDock(1)
GoToAB3(1)
; Mining time
MiningCicle(10)
Dock(1)
Unload(1)
}
}
;End Main Program
UnDock(Un)
{
Un := 1
Loop, %Un%
{
; UnDock
MouseClick, left, 22, 1016
InteliSleep(30)
;Sleep, 30000
; Full spd
MouseClick, left, 688, 994
InteliSleep(2)
MouseClick, WheelUp, 600, 500, 25
InteliSleep(10)
;Sleep, 10000
}
}
GoToAB1(Go)
{
Go := 1
Loop, %Go%
{
; Select BM
MouseClick, left, 172, 177
InteliSleep(1)
; right click BM
MouseClick, right, 172, 177
InteliSleep(1)
; Approach BM
MouseClick, left, 280, 187
InteliSleep(60)
; Full stop
MouseClick, left, 595, 994
InteliSleep(20)
; Just to make sure :)
Send {Ctrl}+{Space}
InteliSleep(0)
; Start AB
;MouseClick, left, 765, 953
}
}
GoToAB2(Go)
{
Go := 1
Loop, %Go%
{
; Select BM
MouseClick, left, 172, 197
InteliSleep(1)
; right click BM
MouseClick, right, 172, 197
InteliSleep(1)
; Approach BM
MouseClick, left, 280, 207
InteliSleep(60)
; Full stop
MouseClick, left, 595, 994
InteliSleep(20)
; Just to make sure :)
Send {Ctrl}+{Space}
InteliSleep(0)
; Start AB
;MouseClick, left, 765, 953
}
}
GoToAB3(Go)
{
Go := 1
Loop, %Go%
{
; Select BM
MouseClick, left, 172, 217
InteliSleep(1)
; right click BM
MouseClick, right, 172, 217
InteliSleep(1)
; Approach BM
MouseClick, left, 280, 227
InteliSleep(60)
; Full stop
MouseClick, left, 595, 994
InteliSleep(20)
; Just to make sure :)
Send {Ctrl}+{Space}
InteliSleep(0)
; Start AB
;MouseClick, left, 765, 953
}
}
Dock(D)
{
D := 1
Loop, %D%
{
; Select Station
MouseClick, left, 165, 160
InteliSleep(1)
; Aproach
MouseClick, right, 165, 160
InteliSleep(1)
MouseClick, left, 200, 170
InteliSleep(80)
; Aproach
MouseClick, right, 165, 160
InteliSleep(1)
MouseClick, left, 200, 170
InteliSleep(10)
; Full spd
MouseClick, left, 688, 994
InteliSleep(10)
; Dock
MouseClick, right, 165, 160
InteliSleep(1)
MouseClick, left, 230, 185
InteliSleep(20)
; Dock
MouseClick, right, 165, 160
InteliSleep(1)
MouseClick, left, 230, 185
InteliSleep(15)
}
}
Unload(U)
{
U := 1
Loop, %U%
{
; Select all from cargo
MouseClick, left, 92, 974
InteliSleep(1)
MouseClick, left, 92, 974
InteliSleep(1)
Send, {Control down}
InteliSleep(1)
Send, {a}
InteliSleep(1)
Send, {Control up}
InteliSleep(1)
; Move Cargo
MouseClickDrag, left, 92, 974, 850, 110
InteliSleep(10)
}
}
Fire(F)
{
F := 1
Loop, %F%
{
; Fire Lasers
Send {F1}
Send {F2}
Send {F3}
Send {F4}
Send {F5}
Send {F6}
Send {F7}
}
}
Target(T)
{
T := 1
Loop, %T%
{
; Lock 3 targets
Send, {Control down}
MouseClick, left, 1000, 212
InteliSleep(1)
MouseClick, left, 1000, 232
InteliSleep(1)
MouseClick, left, 1000, 252
InteliSleep(1)
;MouseClick, left, 1000, 272
;InteliSleep(1)
;MouseClick, left, 1000, 292
;InteliSleep(1)
Send, {Control up}
InteliSleep(1)
}
}
MiningCicle(times)
{
Target(1)
InteliSleep(3)
Loop, %times%
{
Target(1)
; Select AST
MouseClick, left, 850, 70
InteliSleep(1)
Fire(1)
; Orbit
;MouseClick, left, 1019, 151
;InteliSleep(1)
InteliSleep(60)
; UNLock ASTEROID
MouseClick, left, 1086, 151
Fire(1)
}
}
Note: I am not a programer, if you can simplify these code of make it more light please feel free to do it and let me know.
Login
Register
FAQ
Search
)
