EVE Macro: ACtools Autojetcan
Posted: October 6th, 2005, 7:25 pm
Works with 1280x800
You may need to make your on Objects
You may need to make your on Objects
Code: Select all
Constants
CurrentProcedure = 1
End
Constructs
Procedures = List
End
SetActiveWindow EVE
Procedure StopOnSwitchedWindow On WindowChange //stops macro
Stop
End
ClearGlobalKeys
// Loads Procedures
ListAdd Procedures, Start // Procedure 1
ListAdd Procedures, Transfer // Procedure 2
While 1=1
Call Procedures[$CurrentProcedure]
Delay 100
End
Procedure Start
Delay 1 sec
IsObject Pyroxeres at 83, 438
Setconst $CurrentProcedure = 2 //
Else
IsObject Veldspar at 83, 438
Setconst $CurrentProcedure = 2 //
Else
IsObject Plagioclase at 68, 436
Setconst $CurrentProcedure = 2 //
Else
IsObject Scordite at 83, 438
Setconst $CurrentProcedure = 2 //
Else
IsObject Kernite at 83, 438
Setconst $CurrentProcedure = 2 //
Else
IsObject Omber at 83, 438
Setconst $CurrentProcedure = 2 //
Else
IsObject Hedbergite at 83, 438
Setconst $CurrentProcedure = 2 //
Else
Setconst $CurrentProcedure = 1 //
End
End
End
End
End
End
End
End
Procedure Transfer
Delay 3 sec
MousePos 83, 438
Delay 100
DragTo 83, 284
Delay 100
Setconst $CurrentProcedure = 1 //
End
Object Kernite
81=0,0|62=0,2|67=0,4
77=2,0|82=2,2|59=2,4
107=4,0|110=4,4
End
Object Pyroxeres // 83, 438
177=0,0|81=0,2|105=0,4
110=2,0|129=2,2|200=2,4
246=4,0|235=4,2|220=4,4
End
Object Veldspar
123=0,2|217=0,4
221=2,0|237=2,2|237=2,4
247=4,0|228=4,2|249=4,4
End
Object Plagioclase // 68, 436
114=0,0|93=0,2|139=0,4
178=2,4
122=4,2|55=4,4
End
Object Scordite
183=0,0|137=0,2|194=0,4
150=2,0|221=2,2|105=2,4
150=4,0|235=4,2|155=4,4
End
Object Hedbergite
68=0,0|82=0,2|57=0,4
252=2,0|73=2,2
244=4,0|52=4,2
End
Object Omber
252=0,2|51=0,4
107=2,0|251=2,2|208=2,4
167=4,2
End