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.

Difference between revisions of "User:Oni/Macros/CarpBladeWide"

From ATITD5
Jump to navigationJump to search
Line 18: Line 18:
 
*Be standing close to the same spot my avatar is<br>
 
*Be standing close to the same spot my avatar is<br>
 
*Have tools and iron in inventory<br>
 
*Have tools and iron in inventory<br>
 +
*2nd F8 Zoom ALL the way in<br>
 +
*Use ALT+L to lock the screen onces zoomed in (for best results)<br>
 
*Put Mouse on start Position shown<br>
 
*Put Mouse on start Position shown<br>
 
*ALT+TAB to ACTool and hit F2<br>
 
*ALT+TAB to ACTool and hit F2<br>

Revision as of 03:15, 24 August 2010

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
  • 2nd F8 Zoom ALL the way in
  • Use ALT+L to lock the screen onces 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


  • GL!


// 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
//
Retrieved from "http://www.atitd.org/wiki/t5w/index.php?title=User:Oni/Macros/CarpBladeWide&oldid=10008"