User:Oni/CarpBlade

// Ver 1.1 - 01/06/09 // Oni's Carb blade macro: Will make a 7.1k to 7.2k blade // in about 5 seconds. Works only in screen resolution of 1600x1080. // Uses COPPER only. Have: Copper, Ball Peen Hammer, Shaping Mallet, // and Wide Tungsten Chisel in your inventory. See pic for mouse starting // position. Place mouse on starting position, Tab over to ACtool, hit F2. constants StartX = 0 StartY = 0 NewX = 0 NewY = 0 end SetConst StartX = {MouseX} SetConst StartY = {MouseY} MousePos 74, 10 delay 50 leftclick delay 1000 // LOAD // Compute NewX = $StartX + 81 Compute NewY = $StartY - 27 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX + 134 Compute NewY = $StartY - 27 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX + 177 Compute NewY = $StartY - 109 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX + 253 Compute NewY = $StartY - 109 MousePos $NewX, $NewY Delay 100 Rightclick // END LOAD // // Shaping mallet // Compute NewX = $StartX + 81 Compute NewY = $StartY - 27 MousePos $NewX, $NewY delay 50 Keys S Keys 8 // end Shaping mallet // Delay 100 // round 1 front edge Compute NewX = $StartX - 14 Compute NewY = $StartY + 27 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 66 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 105 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 144 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 183 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 219 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 261 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 300 MousePos $NewX, $NewY Delay 100 Rightclick // end 1 // Wide Chisel // Compute NewX = $StartX + 81 Compute NewY = $StartY - 27 MousePos $NewX, $NewY delay 50 Keys C Keys 9 // end Wide Chisel // // start round 2 // // 2 edges // Compute NewX = $StartX - 14 Compute NewY = $StartY + 27 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 300 MousePos $NewX, $NewY Delay 100 Rightclick // end 2 edges // Compute NewX = $StartX - 14 Compute NewY = $StartY + 105 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX - 14 Compute NewY = $StartY + 219 MousePos $NewX, $NewY Delay 100 Rightclick // end center 2 front // end Round 2 // Wide Chisel // Compute NewX = $StartX + 81 Compute NewY = $StartY - 27 MousePos $NewX, $NewY delay 50 Keys C Keys 4 // end Wide Chisel // delay 100 // Center Compute NewX = $StartX + 71 Compute NewY = $StartY + 165 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX + 71 Compute NewY = $StartY + 122 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX + 71 Compute NewY = $StartY + 208 MousePos $NewX, $NewY Delay 100 Rightclick // end Center delay 100 // Wide Chisel // Compute NewX = $StartX + 81 Compute NewY = $StartY - 27 MousePos $NewX, $NewY delay 50 Keys B Keys 9 // end Wide Chisel // // middle points Compute NewX = $StartX + 90 Compute NewY = $StartY + 60 MousePos $NewX, $NewY Delay 100 Rightclick Compute NewX = $StartX + 90 Compute NewY = $StartY + 269 MousePos $NewX, $NewY Delay 100 Rightclick // end middle points Compute NewX = $StartX + 173 Compute NewY = $StartY + 60 MousePos $NewX, $NewY delay 200 Rightclick Compute NewX = $StartX + 154 Compute NewY = $StartY + 65 MousePos $NewX, $NewY delay 200 Rightclick Compute NewX = $StartX + 173 Compute NewY = $StartY + 275 MousePos $NewX, $NewY delay 200 Rightclick Compute NewX = $StartX + 154 Compute NewY = $StartY + 270 MousePos $NewX, $NewY delay 200 Rightclick Compute NewX = $StartX + 173 Compute NewY = $StartY + 73 MousePos $NewX, $NewY delay 200 Rightclick Compute NewX = $StartX + 173 Compute NewY = $StartY + 250 MousePos $NewX, $NewY delay 200 Rightclick // Keys Q Keys Q delay 2000 // END Blade // // Take // MousePos $StartX, $StartY Delay 200 Leftclick Compute NewX = $StartX + 47 Compute NewY = $StartY - 25 MousePos $NewX, $NewY delay 200 Rightclick Compute NewX = $StartX - 138 Compute NewY = $StartY + 183 MousePos $NewX, $NewY delay 200 Leftclick MousePos $StartX, $StartY // END Take // // END // MousePos 936, 390 MousePos 798, 573