User:Oni/Macros/CarpBladeWide

---

// T5 Carp Blade macro:
//
//
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: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
//////////////
//
Loop $Batch
  Call Anvil[ed3]
  Call $Job
  Call unload
End
//
Procedure Iron
  Setconst MetalX = 93
  SetConst MetalY = 72
End
///////////////////////////////////////
///////////.................///////////
///////////////////////////////////////
//\\ BLADE START //\\
//\\             //\\

Procedure Carp

/// ZOOM IN \\\
Delay 102
MousePos 47, 10
Delay 102
Leftclick
Delay 505
/// END ZOOM IN \\\

/// LOAD METAL \\\
///
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click Blank Spot
Delay 66
//
Delay 66
Compute NewX = $StartX + 62
Compute NewY = $StartY - 48
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click "Load"
Delay 66
//
Delay 66
Compute NewX = $StartX + 101
Compute NewY = $StartY - 113
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click "Iron"
Delay 66
//
Delay 66
Compute NewX = $StartX + 151
Compute NewY = $StartY - 114
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click "Carp Blade"
Delay 55
/// END LOAD METAL \\\
///
/// TOOL CHANGE \\\
///            \\\
// Shaping Mallet, Force 8, 8 hits:
//
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys S 
Delay 66
Keys 8
Delay 55
/// END TOOL CHANGE \\\
///
/// FRONT EDGE \\\
///
Compute NewX = $StartX + 77
Compute NewY = $StartY + 42
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 80
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 119
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 157
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 4
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 196
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 5
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 234
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 6
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 273
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 7
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 312
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 8
Delay 66
//// END 8 HITS \\\\
//
/// -----MousePos 666, 355   START POS
//
/// TOOL CHANGE CHISEL, Force 9 \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys C 
Delay 66
Keys 9
Delay 55
//// END TOOL CHANGE \\\
// 
//// HIT TOP BOTTOM w/ CHISEL \\\
Compute NewX = $StartX + 77
Compute NewY = $StartY + 43
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 311
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 8
Delay 66
//// END HIT TOP BOTTOM \\\\
//
//// HIT MID POINTS w/ CHISEL \\\\
//
Compute NewX = $StartX + 77
Compute NewY = $StartY + 124
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 229
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 6
Delay 66
//// END HIT MID POINTS \\\\
//
/// TOOL CHANGE CHISEL, Force 4 \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys C 
Delay 66
Keys 4
Delay 55
//// END TOOL CHANGE \\\
//
// TOP:  MousePos 660, 437
// BOT:  MousePos 660, 628
//
//// HIT 3 MID DOTS \\\\
//
Compute NewX = $StartX - 1
Compute NewY = $StartY + 130
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX - 1
Compute NewY = $StartY + 178
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66

Compute NewX = $StartX - 1
Compute NewY = $StartY + 226
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66
//// END HIT 3 MID DOTS \\\\
//
/// TOOL CHANGE BALLPEEN, Force 9 \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys B 
Delay 66
Keys 9
Delay 55
//// END TOOL CHANGE \\\
//
//// HIT 2 MID TIPS/EDGES \\
//
Compute NewX = $StartX - 26
Compute NewY = $StartY + 65
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX - 26
Compute NewY = $StartY + 283
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66
//
//// END 2 MID TIPS/EDGES \\
//
//// BACK EDGE 6 HITS, Same Tool/Force \\\\
//
Compute NewX = $StartX - 112
Compute NewY = $StartY + 65
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX - 112
Compute NewY = $StartY + 283
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66

Compute NewX = $StartX - 97
Compute NewY = $StartY + 75
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66

Compute NewX = $StartX - 97
Compute NewY = $StartY + 273
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 4
Delay 66

Compute NewX = $StartX - 111
Compute NewY = $StartY + 85
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // HIT 5
Delay 66

Compute NewX = $StartX - 111
Compute NewY = $StartY + 262
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // HIT 6
Delay 66
//// END BACK EDGE 6 HITS \\\\
//
/// CHECK QUALITY \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys Q 
Delay 66
Keys Q
Delay 55
//// END CHECK QUALITY \\\
END
//// UNLOAD \\\\
Procedure Unload
delay 66
Compute NewX = $StartX + 23
Compute NewY = $StartY - 25
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // 
Delay 66

Compute NewX = $StartX + 78
Compute NewY = $StartY - 42
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // 
Delay 66

MousePos 800, 570
Delay 666
Rightclick // 
Delay 66
MousePos $StartX, $StartY
//// END UNLOAD \\\\
END
//