The Wiki for Tale 4 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/CarpBlade1024"
From A Tale in the Desert
< User:Oni
Jump to navigationJump to search| (One intermediate revision by the same user not shown) | |||
| Line 5: | Line 5: | ||
<br> | <br> | ||
| − | Ver | + | Ver 3.1 - 04/05/09 --- Adjusted for new metals added to the Anvil.<br> |
Oni's Carb blade macro: Will make a 7.1k to 7.2k blade in about 5 seconds.<br> | Oni's Carb blade macro: Will make a 7.1k to 7.2k blade in about 5 seconds.<br> | ||
Works only in screen resolution of 1024x768.<br> | Works only in screen resolution of 1024x768.<br> | ||
| − | + | Now uses copper or Iron <br> | |
| − | <b>Your Anvil MUST be alligned North to South.</b><br> | + | <b>Your Anvil MUST be alligned North to South. When loaded the cutting edge of the blade must face West.</b><br> |
Have: Metal, Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel in your inventory.<br> | Have: Metal, Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel in your inventory.<br> | ||
See pic for mouse starting position.<br> | See pic for mouse starting position.<br> | ||
| Line 36: | Line 36: | ||
<Pre> | <Pre> | ||
| − | // Ver | + | // Ver 3.1 - 4/05/09 |
// Oni's Carb blade macro: Will make a 7.1k to 7.2k blade | // 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 | // in about 5 seconds. Works only in screen resolution of 1024x768 | ||
| Line 56: | Line 56: | ||
UnloadX = 0 | UnloadX = 0 | ||
UnloadY = 0 | UnloadY = 0 | ||
| + | FinX = 0 | ||
| + | FinY = 0 | ||
end | end | ||
| Line 62: | Line 64: | ||
SetConst UnloadX = {MouseX} | SetConst UnloadX = {MouseX} | ||
SetConst UnloadY = {MouseY} | SetConst UnloadY = {MouseY} | ||
| + | SetConst FinX = {MouseX} | ||
| + | SetConst FinY = {MouseY} | ||
Form Anvil, Settings | Form Anvil, Settings | ||
| Line 85: | Line 89: | ||
MousePos 100, 20 // Zoom in | MousePos 100, 20 // Zoom in | ||
LeftClick | LeftClick | ||
| − | + | delay 100 | |
Loop $Batch | Loop $Batch | ||
| Line 94: | Line 98: | ||
Procedure Iron | Procedure Iron | ||
| − | Setconst MetalX = | + | Setconst MetalX = 75 |
| − | SetConst MetalY = | + | SetConst MetalY = 73 |
End | End | ||
Procedure Copper | Procedure Copper | ||
| − | SetConst MetalX = | + | SetConst MetalX = 75 |
| − | SetConst MetalY = | + | SetConst MetalY = 87 |
End | End | ||
//////////////////////////// | //////////////////////////// | ||
| Line 119: | Line 123: | ||
leftclick | leftclick | ||
delay 100 | delay 100 | ||
| − | MousePos | + | Compute NewX = $UnloadX - 83 // YES |
| + | Compute NewY = $UnloadY + 152 // YES | ||
| + | delay 100 | ||
| + | MousePos $NewX, $NewY | ||
delay 2000 | delay 2000 | ||
leftclick | leftclick | ||
| Line 129: | Line 136: | ||
Procedure Carp /// CARP START | Procedure Carp /// CARP START | ||
| − | + | delay 100 | |
MousePos $StartX, $StartY | MousePos $StartX, $StartY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// Load click | // Load click | ||
| − | Compute NewX = $StartX + | + | Compute NewX = $StartX + 45 |
| − | Compute NewY = $StartY | + | Compute NewY = $StartY - 10 |
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// choose metal | // choose metal | ||
| Line 143: | Line 150: | ||
Compute NewY = $StartY - $MetalY | Compute NewY = $StartY - $MetalY | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// metal click | // metal click | ||
Compute TempX = $NewX + 10 | Compute TempX = $NewX + 10 | ||
MousePos $TempX, $NewY | MousePos $TempX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// Shaping mallet // | // Shaping mallet // | ||
MousePos $StartX, $StartY | MousePos $StartX, $StartY | ||
| − | + | delay 100 | |
Keys S | Keys S | ||
Keys 8 | Keys 8 | ||
// end Shaping mallet // | // end Shaping mallet // | ||
| − | + | delay 100 | |
// round 1 front edge | // round 1 front edge | ||
| Line 165: | Line 172: | ||
Compute NewY = $StartY + 16 | Compute NewY = $StartY + 16 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 171: | Line 178: | ||
Compute NewY = $StartY + 40 | Compute NewY = $StartY + 40 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 177: | Line 184: | ||
Compute NewY = $StartY + 64 | Compute NewY = $StartY + 64 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 183: | Line 190: | ||
Compute NewY = $StartY + 88 | Compute NewY = $StartY + 88 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 189: | Line 196: | ||
Compute NewY = $StartY + 112 | Compute NewY = $StartY + 112 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 195: | Line 202: | ||
Compute NewY = $StartY + 136 | Compute NewY = $StartY + 136 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 201: | Line 208: | ||
Compute NewY = $StartY + 160 | Compute NewY = $StartY + 160 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 207: | Line 214: | ||
Compute NewY = $StartY + 182 | Compute NewY = $StartY + 182 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// end 1 | // end 1 | ||
| Line 213: | Line 220: | ||
// Wide Chisel // | // Wide Chisel // | ||
MousePos $StartX, $StartY | MousePos $StartX, $StartY | ||
| − | + | delay 100 | |
Keys C | Keys C | ||
Keys 9 | Keys 9 | ||
| Line 223: | Line 230: | ||
Compute NewY = $StartY + 16 | Compute NewY = $StartY + 16 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 229: | Line 236: | ||
Compute NewY = $StartY + 182 | Compute NewY = $StartY + 182 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// end 2 edges // | // end 2 edges // | ||
| Line 236: | Line 243: | ||
Compute NewY = $StartY + 71 | Compute NewY = $StartY + 71 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 242: | Line 249: | ||
Compute NewY = $StartY + 127 | Compute NewY = $StartY + 127 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
delay 100 | delay 100 | ||
| Line 250: | Line 257: | ||
// Wide Chisel // | // Wide Chisel // | ||
MousePos $StartX, $StartY | MousePos $StartX, $StartY | ||
| − | + | delay 100 | |
Keys C | Keys C | ||
Keys 4 | Keys 4 | ||
// end Wide Chisel // | // end Wide Chisel // | ||
| − | + | delay 100 | |
// Center | // Center | ||
| Line 261: | Line 268: | ||
Compute NewY = $StartY + 70 | Compute NewY = $StartY + 70 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 267: | Line 274: | ||
Compute NewY = $StartY + 98 | Compute NewY = $StartY + 98 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 273: | Line 280: | ||
Compute NewY = $StartY + 126 | Compute NewY = $StartY + 126 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// end Center | // end Center | ||
| − | + | delay 100 | |
// Ball Peen // | // Ball Peen // | ||
MousePos $StartX, $StartY | MousePos $StartX, $StartY | ||
| − | + | delay 100 | |
Keys B | Keys B | ||
Keys 9 | Keys 9 | ||
| Line 290: | Line 297: | ||
Compute NewY = $StartY + 32 | Compute NewY = $StartY + 32 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 296: | Line 303: | ||
Compute NewY = $StartY + 162 | Compute NewY = $StartY + 162 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 305: | Line 312: | ||
Compute NewY = $StartY + 28 | Compute NewY = $StartY + 28 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 311: | Line 318: | ||
Compute NewY = $StartY + 167 | Compute NewY = $StartY + 167 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// | // | ||
| Line 318: | Line 325: | ||
Compute NewY = $StartY + 38 | Compute NewY = $StartY + 38 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 324: | Line 331: | ||
Compute NewY = $StartY + 157 | Compute NewY = $StartY + 157 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// | // | ||
| Line 331: | Line 338: | ||
Compute NewY = $StartY + 48 | Compute NewY = $StartY + 48 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 337: | Line 344: | ||
Compute NewY = $StartY + 147 | Compute NewY = $StartY + 147 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// End Edge Points | // End Edge Points | ||
// | // | ||
| − | MousePos $ | + | MousePos $FinX, $FinY |
| − | + | delay 100 | |
Keys Q | Keys Q | ||
Keys Q | Keys Q | ||
Latest revision as of 15:47, 15 April 2009
- NOW WITH MENU GOODNESS!
- Read notes!
- Please chat me about issues with the macro.
Ver 3.1 - 04/05/09 --- Adjusted for new metals added to the Anvil.
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.
Now uses copper or Iron
Your Anvil MUST be alligned North to South. When loaded the cutting edge of the blade must face West.
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 3.1 - 4/05/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
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: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 = 75
SetConst MetalY = 73
End
Procedure Copper
SetConst MetalX = 75
SetConst MetalY = 87
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
Compute NewX = $UnloadX - 83 // YES
Compute NewY = $UnloadY + 152 // YES
delay 100
MousePos $NewX, $NewY
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 + 45
Compute NewY = $StartY - 10
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 $FinX, $FinY
delay 100
Keys Q
Keys Q
Delay 1500
// END Blade //
END
// END //
