// 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

//  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
//    else                          // Rem this out if you want to mine gas clouds
  ISOBJECT RuinedHulk at 834, 553
    else
    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 RuinedHulk
//    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