Simple AC Tool mining macro : EVE Online Submissions

//Must have Cargo bay open.
//Must have Item bay open.
//Astroids only in overview (the ones you want to mine).
//Current Constants are for Full Screen.
//Use ctrl+alt+shift+M to see mouse positions in Eve

Constants
Zoomx = 450 // zoom out
Zoomy = 805
Undockx = 20 //Un-dock on NeoCon
Undocky = 830
Depart1x = 600 //Open Drop down
Depart1y = 142
Depart2x =655 //Asteroid belts
Depart2y = 207
Depart3x = 845 // First belt
Depart3y = 225
Depart4x = 950 // Warp to
Depart4y = 225
FirstTargetx = 992 //First Target in overview
FirstTargety = 182
Orbit1x = 992 //Orbit Button, Top Overview
Orbit1y = 209
Orbit2x = 900 // orbit 500m
Orbit2y = 211
LockTargetx = 992 //Lock Target, Top Overview
LockTargety = 247
MineLazer1x = 666 //Mine Lazer 1
MineLazer1y = 737
MineLazer2x = 709 //Mine Lazer 2
MineLazer2y = 737
MineLazer3x = 745 //Mine Lazer 3
MineLazer3y = 737
Dock1x = 600 //Open Drop down
Dock1y = 142
Dock2x = 650 // station
Dock2y = 260
Dock3x = 850 // station 1
Dock3y = 260
Dock4x = 690 // dock
Dock4y = 300
ItemNeoConx = 989 //Item box in the NeoCon
ItemNeoCony = 436
CargoItemx = 85 //Stack of mined stuff
CargoItemy = 769
ItemBayx = 1092 //Any open spot on your Item bay
ItemBayy = 713
MoveToBeltDelay = 1 //Min
OrbitDelay = 120 //Seconds
LockTargetDelay = 10 //Seconds
MineDelay = 120 //sec
MoveToStationDelay = 160 //Seconds
PathToEve = D:\EVE\eve.exe //Were you eve.exe is located
PassBoxX = 346 //Password Box
PassBoxY = 538
Password = s5a1k2 //EvE Password
LoginX = 580 //Login Button
LoginY = 609
LoginDelay = 5 //Seconds, How long you want to wait before logging back in
Trial = No //Trial Account?
TrialCloseX = //Trail note close button
TrialCloseY =
CharPickX = 380 //Char Portrait to login
CharPickY = 300
End

Call Main

Procedure Main
While 1 = 1
SetActiveWindow EVE
call MoveToBelt
Call FindTarget
Call LockTarget
Call Mine
Call MoveToStation
Call Transfer
End
End

Procedure SwitchedWindow On WindowChange
ExecProgram $PathToEve
delay 20 sec
SetActiveWindow EVE
MousePos $PassBoxX, $PassBoxY
leftclick
delay 5 sec
Keys $Password
delay 1 sec
Keys {RETURN}
delay $LoginDelay sec
leftclick
If $Trial = Yes
delay 5 min
MousePos $TrialCloseX, $TrialCloseY
delay 1 sec
leftclick
delay 10 sec
MousePos $CharPickX, $CharPickY
delay 1 sec
leftclick
delay 2 min
Else
delay 10 sec
MousePos $CharPickX, $CharPickY
delay 1 sec
DoubleClick 1
delay 2 min
End
End

Procedure MoveToBelt
SetActiveWindow EVE
MousePos $UnDockx, $UnDocky
Delay 2 Sec
LeftClick
Delay 30 Sec
MousePos $Zoomx, $Zoomy
delay 1 sec
leftclick
delay 1 sec
leftclick
delay 1 sec
MousePos $Depart1x, $Depart1y
delay 1 sec
RightClick
Delay 1 Sec
MousePos $Depart2x, $Depart2y
Delay 1 Sec
MousePos $Depart3x, $Depart3y
Delay 1 Sec
MousePos $Depart4x, $Depart4y
Delay 1 Sec
LeftClick
Delay $MoveToBeltDelay Min
End

Procedure FindTarget
SetActiveWindow EVE
MousePos $FirstTargetx, $FirstTargety
Delay 2 Sec
RightClick
Delay 2 Sec
MousePos $Orbit1x, $Orbit1y
delay 2 sec
MousePos $Orbit2x, $Orbit2y
Delay 2 Sec
LeftClick
Delay $OrbitDelay Sec
End

Procedure LockTarget
SetActiveWindow EVE
MousePos $FirstTargetx, $FirstTargety
Delay 1 Sec
rightclick
delay 1 sec
Mousepos $LockTargetx, $LockTargety
delay 1 sec
leftclick
Delay $LockTargetDelay Sec
End

Procedure Mine
SetActiveWindow EVE
Keys {F1}
Delay 1 Sec
Keys {F2}
Delay 1 Sec
Keys {F3}
Delay 1 Sec
Delay $MineDelay sec
End

Procedure MoveToStation
SetActiveWindow EVE
MousePos $Dock1x, $Dock1y
Delay 1 Sec
RightClick
Delay 1 Sec
MousePos $Dock2x, $Dock2y
Delay 1 Sec
MousePos $Dock3x, $Dock3y
Delay 1 Sec
MousePos $Dock4x, $Dock4y
Delay 1 Sec
LeftClick
Delay $MoveToStationDelay Sec
End

Procedure Transfer
SetActiveWindow EVE
MousePos $ItemNeoConx, $ItemNeoCony
delay 1 sec
leftclick
delay 1 sec
MousePos $CargoItemx, $CargoItemy
Delay 1 Sec
DragTo $ItemBayx, $ItemBayy
Delay 10 Sec
End

Some screen shots to get an idea of setup for people lacking macro experience. Also, what resolution you are using would be cool.