User:Oni/CarpBlade1024

• NOW WITH MENU GOODNESS!
• Read notes!
• Please chat me about issues with the macro.
  

Ver 2.0 - 02/03/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.
New uses copper or Iron
Your Anvil MUST be alligned North to South.
Have: Metal, 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).

There is a 2 second pause before it takes the blade. If the blade is not Quality 7K+, Tab out quickly and stop the macro. Adjust the start position slightly and try again.

• 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)
• Some the logic in the macro is also taken from Anka's original carp macro, mainly the menu system. TY Anka!
  

Paste the following in to ACTool.

// Ver 2.0   -  02/03/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
end

SetConst StartX = {MouseX}
SetConst StartY = {MouseY}
SetConst UnloadX = {MouseX}
SetConst UnloadY = {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 100, 20 // Zoom in
LeftClick
Delay 100

Loop $Batch
  Call Anvil[ed3]
  Call $Job
  Call unload
End

Procedure Iron
  Setconst MetalX = 81
  SetConst MetalY = 63
End

Procedure Copper
  SetConst MetalX = 81
  SetConst MetalY = 81
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
MousePos 472, 431
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 + 53
Compute NewY = $StartY
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 $StartX, $StartY
Delay 100
Keys Q
Keys Q
Delay 1500
// END Blade //
END

// END //