User:Oni/CarpBlade

Paste the following in to ACTool.

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