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