The Wiki for Tale 5 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

User:Oni/Macros/CarpBladeWideM5

From ATITD5
Jump to navigationJump to search

THIS VERSION FIXED for Metallurgy 5 - (new Menu items)

Works with screen Resolution of 1680x1050 Only
See pics below to see how I have my screen setup and starting position for cursor


Inventory:

  • Iron
  • Ball Peen Hammer
  • Wide Tungsten Chisel
  • Shaping Mallet


Screen Layout

  • ScreenLayout.PNGItemsStart.PNG


Starting Mouse Cursor Position

  • StartPos.PNG


How To?

  • Have screen setup like I do
  • Be standing close to the same spot my avatar is
  • Have tools and iron in inventory
  • Turn Chat Off!
  • 2nd F8 Zoom ALL the way in
  • Use ALT+L to lock the screen once zoomed in... (for best results)
  • Put Mouse on start Position shown
  • ALT+TAB to ACTool and hit F2
  • I would start with ONE to begin to make sure its lined up right
  • Click OK


  • GL!



// T5 Carp Blade macro:
// WITH METALLURGY 5. (menu items are different)
//


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 \\\
// STARTMousePos 703, 360
MousePos 725, 333
MousePos 779, 323
MousePos 818, 259
MousePos 873, 239

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

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

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

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

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

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

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

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

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

Compute NewX = $StartX + 77
Compute NewY = $StartY + 229
Delay 55
MousePos $NewX, $NewY
Delay 55
Leftclick // HIT 6
Delay 55
//// END HIT MID POINTS \\\\
//
/// TOOL CHANGE CHISEL, Force 4 \\\
Delay 55
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 55
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 55
Keys C 
Delay 55
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 55
MousePos $NewX, $NewY
Delay 55
Leftclick // HIT 1
Delay 55

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

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

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

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

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

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

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

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

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

MousePos 800, 570
Delay 556
Rightclick // 
Delay 55
MousePos $StartX, $StartY
//// END UNLOAD \\\\
END
//