User:Oni/CarpBlade

• Read notes!
• This is a work in progress. I will soon add the menu and other metals to the macro.
  

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 1680x1080.
Uses COPPER only (will fix this tonight)
Your Anvil MUST be alligned North to South, with the blade edge facing West.
Have: Copper, Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel in your inventory.
See pic for mouse starting position.
Turn Chat Off.
Double F8 View zoom all the way in.
Place mouse on starting position.
Tab over to ACtool, hit F2 (without moving the mouse).

• Starting Position screenie
  

• Credit:

This macro was created using the method described in the Lollipop guild carp blade guide.
I would like to extend my thanks to them for the great tutorial!

Lollipop Carpentry Blade Guide

• Link to Lollipop Guild 7K carpentry blade guide from T3 (archived copy)

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 1680x1080.
// 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 //