// This macro is for mining.
// It should be started in a safe minefield.
// It will not do combat, so it must be monitored.
// Put one of each type of ore that you want to collect in your hold. This will ensure that
//   if your hold fills up with ore, you will still be able to pick up those desired ores.
// For optimum mining, use a Lazarus, Cat's Paw and Golden Tooth (or similar).
//--------------------------------------------------------------------------------------------------------
//------------------------------------------------------------------------------------------------------//

Constants
  Runs=99999             // Modify this to the number of times you wish to loop through the code
  CheckCombat=10         // How many loops to make before checking for attacking mobs
  WarpDelay=5500         // Delay after hitting warp to Asteroid
  MiningDelay=10000       // Delay after starting mining
  TractorDelay=500       // How long your tractor usually takes to suck in ores.
End


SetActiveWindow Earth & Beyond
CommandDelay 250
Delay 2000
Keys {HOME}
Delay 200
OBJVAR 12								// Increase this if there are problems with objects not being 
												// recognized.  I.e. 20 is a reasonable looser value.
												//

//  Initial startup buffs
Keys `			// target self
Delay 500		
Keys 2			// activate hotkey 2
Delay 6000		// wait for it to activate
Keys x			// target nearest asteroid

Loop $Runs
  Loop $CheckCombat
  Keys d
  Delay 1500
  MousePos 923, 600
  LeftClick
  Delay 750
  ISOBJECT GasCloud at 834, 553   // Rem this out if you want to mine gas clouds
 
    ISOBJECT MiningFar at 980, 506
      Keys q
      Delay $WarpDelay
      End // IsObject MiningFar
    ISOBJECT MiningFar at 980, 506   // Try a second shot at warping if we didnt' get there first time
      Keys q
      Delay $WarpDelay
      End // IsObject MiningFar
    ISOBJECT MiningNear at 980, 506
      MousePos 987, 512
      Delay 300
      LeftClick 
      Delay 1500
      IsObject EmptyOre at 906, 437   // Empty ore in Fourth spot
        Else
        MousePos 906, 375
        Delay 300
        LeftClick 
        Delay $MiningDelay
        End // IsObject EmptyOre
      IsObject EmptyOre at 906, 375   // Empty ore in third spot
        Else
        MousePos 906, 375
        Delay 300
        LeftClick 
        Delay $MiningDelay
        End // IsObject EmptyOre
      IsObject EmptyOre at 906, 312   // Empty ore in second spot
        Else
        MousePos 906, 312
        Delay 300
        LeftClick 
        Delay $MiningDelay
        End // IsObject EmptyOre
      IsObject EmptyOre at 906, 250    // Empty ore in first spot
        Else
        MousePos 906, 240              // was MousePos 906, 250 but that hits disband group button
        Delay 300
        LeftClick 
        Delay $MiningDelay
        End // IsObject EmptyOre
      End // IsObject MiningNear
    
  End // IsObject GasCloud  ... Rem this out if you want to mine gas clouds
  End // CheckCombat
  ISOBJECT NoDamage at 758, 685
    else
    Delay 2000
    ISOBJECT NoDamage at 758, 685
      else
      Keys h               // Look for a Hostile MOB
      Delay 1000
      Keys f               // Fire at the hostile MOB
      Delay 1000
      Keydown {left} 9 sec
//      Keys `             // Select yourself
//      Delay 500
//      Keys 2             // Buff with Environment shield
//      Delay 6000
//      Keys 5             // Fold space (in case the mob is still alive)
//      Delay 4000
      Keys x
      End // ISOBJECT NoDamage (2nd)
    End // ISOBJECT NoDamage (1st)
  End // Loop Runs

Object MiningFar
  26=0,0|41=0,8|27=0,16
  57=4,0|32=4,8|32=4,16
  62=8,0|62=8,8|32=8,16
End

Object MiningNear
  75=0,0|117=0,8|77=0,16
  162=4,0|91=4,8|91=4,16
  179=8,0|175=8,8|93=8,16
End

Object EmptyOre
  89=0,0|94=0,8|88=0,16
  95=8,0|105=8,8|93=8,16
  89=16,0|94=16,8|88=16,16
End

Object GasCloud
  253=2,2|253=2,8
  253=4,6|253=4,10
  253=6,10
  253=8,6|253=8,8
  253=12,8
  253=14,4|253=14,10
  253=16,4|253=16,10
  253=18,10
End

Object RuinedHulk
  253=4,6
  253=6,2|253=6,4
  253=12,10
  253=14,10
  253=16,4|253=16,6|253=16,8
End

Object NoDamage
  106=0,2
  153=2,0
  153=4,0|183=4,4
  155=6,0|103=6,2
  158=8,0
  162=10,0|105=10,2|191=10,4
End

//
// Mostly White pickaxe icon indicating we are close enough to mine away.
//
Object MiningNear2 // at 980,505
  72=0,0|79=0,2|83=0,4|61=0,6|91=0,8|131=0,10|122=0,12|63=0,14
  54=2,0|59=2,2|72=2,4|195=2,6|150=2,8|64=2,10|90=2,12|91=2,14
  70=4,0|151=4,2|210=4,4|167=4,6|67=4,8|91=4,10|92=4,12|93=4,14
  64=6,0|177=6,2|223=6,4|128=6,6|65=6,8|83=6,10|89=6,12|92=6,14
  73=8,0|199=8,2|77=8,4|67=8,6|185=8,8|94=8,10|81=8,12|91=8,14
  74=10,0|110=10,2|83=10,4|89=10,6|65=10,8|143=10,10|156=10,12|70=10,14
  69=12,0|74=12,2|84=12,4|90=12,6|89=12,8|73=12,10|77=12,12|161=12,14
  68=14,0|71=14,2|84=14,4|90=14,6|90=14,8|90=14,10|89=14,12|75=14,14
End

// Black/greyed out pickaxe icon, indicating we need to get 
// closer to the resource.
Object MiningFar2    // at 980,505
  68=2,6|53=2,8
  52=4,2|73=4,4|58=4,6
  62=6,2|78=6,4
  69=8,2|65=8,8
  50=10,10|55=10,12
  56=12,14
End