Lazyness

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