// 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=8000       // Delay after starting mining to rip an ore from the asteroid
  MouseDelay=100	 // How long to wait to click on an ore after moving mouse there
  OreX=0
  OreY=0
  DoWait=0
End


// Given an ore position of 'OreX' and 'OreY'
// Check if slot is filled, if so, click on it to grab it, 
// If it goes empty wait for it to be tractored in
// Then do any post mining procedure
Procedure MineOre
    
    IsObject EmptyOre at $OreX, $OreY   // Empty ore in Fourth spot
    Else
	Compute OreX = $OreX - 10  // Move up 10
	MousePos $OreX, $OreY   // Moved after the IsObject so we can see the mouse move
	Delay $MouseDelay	    // And see that it has checked the various slots
	LeftClick
	
	Delay $MiningDelay  // Wait for it to be pulled
	call PostMine
    End // IsObject EmptyOre 
End //

Procedure PostMine
    Keys 3   	// Put your martyr/chlorosynthesis/energy boost device in slot 3
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		     // Move to Mining Icon
      Delay 300			     // Wait for mouse to move
      LeftClick 		     // click on Mine icon
      Delay 1500		     // Wait for Mining window to open

      SetConst OreX= 906	// 4th Ore spot
      SetConst OreY= 437
      Call MineOre

      SetConst OreX= 906	// 3rd Ore spot
      SetConst OreY= 375
      Call MineOre

      SetConst OreX= 906	// 2nd Ore spot
      SetConst OreY= 312
      Call MineOre

      SetConst OreX= 906	// 2nd Ore spot
      SetConst OreY= 312
      Call MineOre

      SetConst OreX= 906	// 1st Ore spot
      SetConst OreY= 250	// used to be 250 but that clicks on group boot icon sometimes
      Call MineOre

      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