//  Carpentry Blade
//
//  My anvil is in a north-south orientation. When you load the anvil, the
//  blade side is on the west side of the anvil.  1024x768 resolution with
//  Cartographer view (Double F8) zoomed all the way in.  Have the metal
//  in your inventory. It's hard to explain where to put your pointer before
//  you start but lets try this..
//
//                       _____
//                      /     \
//                     /       \
//                    |*        |
//                    |         |
//  Put your pointer on the anvil with the tip at the angle to the NW of *
//  The west edge of the pointer should line up with the west edge of the anvil.
//  The very top of pointer should touch the angle of the anvil but not go over.
//
//  Once you have the pointer in place, Alt-Tab to windows but DO NOT move the
//  mouse.  Press F2 to start.  I window will open with settings, you can move
//  the mouse now.  Choose the number of carpentry blades you want, pick the
//  metal you want to use and press OK.  Your settings will be saved and loaded
//  the next time you use the macro.
//  Yazza - i adjusted it a bit, not adding moonsteel to the list but adjusted so the others work again
//
//  In a testing of 10 carpentry blades, they ranged from 6598-6695 Quality :)
//
//  Anka
//
constants
  Batch = 0
  StartX = 0
  StartY = 0
  NewX = 0
  NewY = 0
  MidY = 0
  MetalX = 0
  MetalY = 0
  Mod1Y = 38
  Mod2Y = 35
  Job = 0
  MDelay = 250
  SDelay = 200
end

SetConst StartX = {MouseX}
SetConst StartY = {MouseY}
Timestamp $StartX, $StartY

Form Anvil, Settings
  ed1=Editbox:Batch:1
  ed2=Combobox:Project:Carpentry Blade
  ed3=Combobox:Metal:Copper, Iron, Brass, Bronze, Steel, Sun Steel, Thoth's Metal
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
LeftClick
Delay 2000

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

Procedure Iron
  Setconst MetalX = 12
  SetConst MetalY = 48
End

Procedure Copper
  SetConst MetalX = 12
  SetConst MetalY = 52
End

Procedure Brass
  SetConst MetalX = 12
  SetConst MetalY = 32
End

Procedure Bronze
  SetConst MetalX = 12
  SetConst MetalY = 16
End

Procedure Steel
  SetConst MetalX = 12
  SetConst MetalY = 0
End

Procedure Sun Steel
  SetConst MetalX = 12
  SetConst MetalY = -32
End

Procedure Thoth's Metal
  SetConst MetalX = 12
  SetConst MetalY = -48
End

Procedure Unload
  Compute NewX = $StartX + 20
  MousePos $NewX, $StartY
  Delay $SDelay
  Rightclick
  delay $SDelay
  Compute NewX = {mousex} + 15
  Compute NewY = {mousey} - 15
  MousePos $NewX, $NewY
  Rightclick
  Delay $SDelay
  MousePos 474, 435
  Delay $MDelay
  Rightclick
End

Procedure Carp
  Compute NewX = $StartX + 10
  MousePos $NewX, $StartY
  Delay $MDelay
  Rightclick
  Delay $SDelay
  Compute NewX = $NewX + 12
  Compute NewY = {MouseY} - 9
  Mousepos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Compute NewX = {MouseX} + $MetalX
  Compute NewY = {MouseY} - $MetalY
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Compute NewX = {MouseX} + 12
  Compute NewY = {MouseY} - 2
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Compute NewY = {MouseY} + 50
  MousePos $NewX, $NewY
  Delay $SDelay
  Keys C
  Keys 7
  //Blade
  Compute NewX = $StartX + 14
  Compute MidY = $StartY + 15
  MousePos $NewX, $MidY
  Timestamp $NewX, $MidY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Compute NewY = $MidY
  Loop 4
    Compute NewY = $NewY + $Mod1Y
    MousePos $NewX, $NewY
    Delay $SDelay
    Rightclick
    Delay $SDelay
  End
  Loop 2
    Compute NewX = $StartX + 1
    Compute NewY = $StartY + 20
    MousePos $NewX, $NewY
    Delay $SDelay
    Rightclick
    Delay $SDelay
    Loop 4
      Compute NewY = $NewY + $Mod1Y
      MousePos $NewX, $NewY
      Delay $SDelay
      Rightclick
      Delay $SDelay
    End
  End
  Keys B
  Keys 9
  Compute NewX = $StartX + 105
  Compute NewY = $StartY + 41
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Compute NewX = $NewX - 40
  Compute NewY = $NewY - 3
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Compute NewX = $NewX + 51
  Compute NewY = $NewY + 12
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Compute NewX = $NewX - 12   //Bottom Right
  Compute NewY = $NewY + 117
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Compute NewX = $NewX - 41  //Bottom Middle
  Compute NewY = $NewY - 3
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Compute NewX = $NewX + 51 //Bottom Right
  Compute NewY = $NewY - 12
  MousePos $NewX, $NewY
  Delay $SDelay
  Rightclick
  Delay $SDelay
  Keys Q
  Delay $SDelay
End
//  Written with ACTool 5.3.0 by Anka