Lazyness

// END // // Ver 3.1 - 4/05/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 1024x768 // Uses Iron or Copper: Have Metal, 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 Job = 0 Batch = 0 MetalX = 0 MetalY = 0 TempX = 0 UnloadX = 0 UnloadY = 0 FinX = 0 FinY = 0 end SetConst StartX = {MouseX} SetConst StartY = {MouseY} SetConst UnloadX = {MouseX} SetConst UnloadY = {MouseY} SetConst FinX = {MouseX} SetConst FinY = {MouseY} Form Anvil, Settings ed1=Editbox:Batch:1 ed2=Combobox:Project:Carpentry Blade ed3=Combobox:Metal:Copper, Iron END FormLoad Anvil, Anvil.frm if ShowForm Anvil Set Batch = Anvil[ed1] Case When Anvil[ed2] = Carpentry Blade Set Job = Carp End else stop end FormSave Anvil, Anvil.frm MousePos 237, 5 LeftClick delay 100 Loop $Batch Call Anvil[ed3] Call $Job Call unload End Procedure Iron Setconst MetalX = 75 SetConst MetalY = 73 End Procedure Copper SetConst MetalX = 75 SetConst MetalY = 87 End //////////////////////////// Procedure Unload delay 100 MousePos $UnloadX, $UnloadY delay 100 Rightclick delay 100 //Compute NewX = $UnloadX + 68 // Discard //Compute NewY = $UnloadY + 7 // Discard // Compute NewX = $UnloadX + 68 // Complete Compute NewY = $UnloadY - 24 // Complete // MousePos $NewX, $NewY delay 100 leftclick delay 100 Compute NewX = $UnloadX - 83 // YES Compute NewY = $UnloadY + 152 // YES delay 100 MousePos $NewX, $NewY delay 2000 leftclick delay 100 // MousePos 554, 279 // Start End //////////////////////////// Procedure Carp /// CARP START delay 100 MousePos $StartX, $StartY delay 100 Rightclick // Load click Compute NewX = $StartX + 45 Compute NewY = $StartY - 10 MousePos $NewX, $NewY delay 100 Rightclick // choose metal Compute NewX = $StartX + $MetalX Compute NewY = $StartY - $MetalY MousePos $NewX, $NewY delay 100 Rightclick // metal click Compute TempX = $NewX + 10 MousePos $TempX, $NewY delay 100 Rightclick // Shaping mallet // MousePos $StartX, $StartY delay 100 Keys S Keys 8 // end Shaping mallet // delay 100 // round 1 front edge Compute NewX = $StartX - 8 Compute NewY = $StartY + 16 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 40 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 64 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 88 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 112 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 136 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 160 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 182 MousePos $NewX, $NewY delay 100 Rightclick // end 1 // Wide Chisel // MousePos $StartX, $StartY delay 100 Keys C Keys 9 // end Wide Chisel // // start round 2 // // 2 edges // Compute NewX = $StartX - 8 Compute NewY = $StartY + 16 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 182 MousePos $NewX, $NewY delay 100 Rightclick // end 2 edges // Compute NewX = $StartX - 7 Compute NewY = $StartY + 71 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX - 8 Compute NewY = $StartY + 127 MousePos $NewX, $NewY delay 100 Rightclick delay 100 // end center 2 front // end Round 2 // Wide Chisel // MousePos $StartX, $StartY delay 100 Keys C Keys 4 // end Wide Chisel // delay 100 // Center Compute NewX = $StartX + 43 Compute NewY = $StartY + 70 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX + 43 Compute NewY = $StartY + 98 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX + 43 Compute NewY = $StartY + 126 MousePos $NewX, $NewY delay 100 Rightclick // end Center delay 100 // Ball Peen // MousePos $StartX, $StartY delay 100 Keys B Keys 9 // end Ball Peen // // middle points Compute NewX = $StartX + 55 Compute NewY = $StartY + 32 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX + 55 Compute NewY = $StartY + 162 MousePos $NewX, $NewY delay 100 Rightclick // END middle points // Edge points Compute NewX = $StartX + 107 Compute NewY = $StartY + 28 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX + 107 Compute NewY = $StartY + 167 MousePos $NewX, $NewY delay 100 Rightclick // Compute NewX = $StartX + 99 Compute NewY = $StartY + 38 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX + 99 Compute NewY = $StartY + 157 MousePos $NewX, $NewY delay 100 Rightclick // Compute NewX = $StartX + 106 Compute NewY = $StartY + 48 MousePos $NewX, $NewY delay 100 Rightclick Compute NewX = $StartX + 106 Compute NewY = $StartY + 147 MousePos $NewX, $NewY delay 100 Rightclick // End Edge Points // MousePos $FinX, $FinY delay 100 Keys Q Keys Q Delay 1500 // END Blade // END // END //