//Based on jhartman0001's mining.mac //Works real well for je's with L9 prospect, L7 Jumpstart, a L8 Golden Tooth, a L7 Solar Sail, 3 beam // weapons, and a L8 Harpy. //Will mine 10 objects then check for a hostile mob. If there is a hostile mob, it will shoot // the mob for 3 minutes (WARNING: The mob may not be dead in 3 minutes!). It will do that // forty times, then move along to next 'loop'. //After the forty (400 mining loops, 40 mob loops) loops, it will check to see if the player is incapacitated // and if so, self js. //Fill your hold up with one of each piece of ore you actually want to pull (so you don't get a // hold full of Wreckage Slag) before beginning. This macro won't pull every ore from every rock, so // may miss some that *could* be pulled, and occasionally it will skip a rock or two in a row. //Be sure that your jumpstart icon is in quickslot #4 and see the list of shortcut keys at the end of file. //-------------------------------------------------------------------------------------------------------- //------------------------------------------------------------------------------------------------------// Constants Runs=99999 // Modify this to the number of times you wish to loop through the code MiningLoop=10 // The number of mining loops to do. CombatLoop=1 // Checking for a mob NeedJS=1 // Check to see if "Megan" has appeared (the 'close' button of the incapacitation dialog) MCLoop=40 // 10 Mining Loops and 1 Combat Loop Combined. At the end of this loop, we will check to see if the player is still 'alive'. WarpDelay=5500 // Delay after hitting warp to Asteroid MiningDelay=8000 // Delay after starting mining IncrementedRun=0 // Just the Run Count, rather than the loop count. End //Maximize EB and wait for it to 'reopen' SetActiveWindow Earth & Beyond CommandDelay 250 Delay 2000 Keys {HOME} Delay 2 sec OBJVAR 12 Keys ` Delay 1800 Keys 2 Delay 1800 Keys x Loop $Runs Loop $MCLoop Loop $MiningLoop //this is the mining loop itself Keys d Delay 1800 MousePos 923, 600 Delay 1800 ISOBJECT GasCloud at 834, 553 // Rem this out if you want to mine gas clouds //Objects GasCloud/RuinedHulk looks for the text in the targeting window ('G', 'R', 'A', 'H', 'C') else // Rem this out if you want to mine gas clouds ISOBJECT RuinedHulk at 834, 553 else ISOBJECT MiningFar at 980, 506 //Objects MiningFar/MiningNear looks for the 'lit' or 'unlit' miner's pick above the target window. Keys w Delay $WarpDelay End // IsObject MiningFar ISOBJECT MiningNear at 980, 506 MousePos 987, 512 Delay 1800 LeftClick Delay 1800 IsObject EmptyOre at 906, 375 Else MousePos 906, 375 Delay 1800 LeftClick Delay $MiningDelay End // IsObject EmptyOre IsObject EmptyOre at 906, 312 Else MousePos 906, 312 Delay 1800 LeftClick Delay $MiningDelay End // IsObject EmptyOre IsObject EmptyOre at 906, 250 Else MousePos 906, 250 Delay 1800 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 Loop $CombatLoop Keys h Delay 1800 MousePos 906, 250 Delay 1800 ISOBJECT CombatText at 848, 585 //Looks for "Co" in the target window Keys ` // Select yourself Delay 1800 Keys 5 // Buff with Environment shield Delay 8 sec Keys h // Look for a Hostile MOB Delay 1800 Keys w //'warp' to the target so we can follow and use beams Delay 1800 Keys b //autofollow MOB Delay 1800 Keys f // Fire at the hostile MOB Delay 180 sec Keys ` Delay 1800 Keys x Delay 1800 else Keys x Delay 1800 End // ISOBJECT CombatText End // $CombatLoop End //Here is where we will check to see if the player is 'dead' and if so, jumpstart and go back to mining. Loop $NeedJS Delay 1800 Keys i Delay 2000 IsObject ZeroHull at 434, 260 Keys i Delay 2000 //yes, we need to js ourself Keys ` //4 lines to close the dialog window MousePos 880, 309 Delay 1800 LeftClick Delay 1800 //get ready to js self Keys ` Delay 1800 //The next Mouse Position is Slot #4!!!! MousePos 631, 721 Delay 1800 LeftClick Delay 10 sec //wait for the js to go off, then click accept. MousePos 388, 435 Delay 1800 LeftClick //wait for shields to charge a bit. Delay 30 sec Keys ` Delay 1800 Keys 2 Delay 1800 Keys x else Keys i Delay 2000 Keys ` Delay 1800 Keys 2 Delay 1800 Keys x end Delay 1800 End Inc $IncrementedRun Say /time Delay 1800 Keys j Delay 1800 Keys $incrementRun Delay 1800 Keys {RETURN} Delay 1800 End 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 Object CombatText 249=0,4|255=0,6 246=2,2 246=4,10 248=6,10 245=12,4|240=12,10 End Object ZeroHull 157=0,2|157=0,4|158=0,6 157=2,0 158=4,0|167=4,6 148=8,10 157=10,6 End // //Shortcut Keys: // w = warp // ` = select self // q = nearest nav // d = next in context // x = nearest object // h = nearest attacking mob // b = autofollow target // f = fire all weapons (turn on autofire) // i = open inventory (including ship equipment) // j = open broadcast channel // //EOF