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| (3 intermediate revisions 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 30: | Line 30: | ||
==Lollipop Carpentry Blade Guide== | ==Lollipop Carpentry Blade Guide== | ||
* Link to [http://wiki.atitd.org/tale3/Guilds/The_Lollipop_Guild/CarpGuide Lollipop Guild 7K carpentry blade guide] from T3 (archived copy) | * Link to [http://wiki.atitd.org/tale3/Guilds/The_Lollipop_Guild/CarpGuide 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!<br> | ||
| + | <br> | ||
====Paste the following in to ACTool.==== | ====Paste the following in to ACTool.==== | ||
<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 54: | Line 56: | ||
UnloadX = 0 | UnloadX = 0 | ||
UnloadY = 0 | UnloadY = 0 | ||
| + | FinX = 0 | ||
| + | FinY = 0 | ||
end | end | ||
| Line 60: | 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 83: | Line 89: | ||
MousePos 100, 20 // Zoom in | MousePos 100, 20 // Zoom in | ||
LeftClick | LeftClick | ||
| − | + | delay 100 | |
Loop $Batch | Loop $Batch | ||
| Line 92: | 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 130: | 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 144: | 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 166: | Line 172: | ||
Compute NewY = $StartY + 16 | Compute NewY = $StartY + 16 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 172: | Line 178: | ||
Compute NewY = $StartY + 40 | Compute NewY = $StartY + 40 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 178: | Line 184: | ||
Compute NewY = $StartY + 64 | Compute NewY = $StartY + 64 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 184: | Line 190: | ||
Compute NewY = $StartY + 88 | Compute NewY = $StartY + 88 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 190: | Line 196: | ||
Compute NewY = $StartY + 112 | Compute NewY = $StartY + 112 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 196: | Line 202: | ||
Compute NewY = $StartY + 136 | Compute NewY = $StartY + 136 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 202: | Line 208: | ||
Compute NewY = $StartY + 160 | Compute NewY = $StartY + 160 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 208: | 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 214: | Line 220: | ||
// Wide Chisel // | // Wide Chisel // | ||
MousePos $StartX, $StartY | MousePos $StartX, $StartY | ||
| − | + | delay 100 | |
Keys C | Keys C | ||
Keys 9 | Keys 9 | ||
| Line 224: | Line 230: | ||
Compute NewY = $StartY + 16 | Compute NewY = $StartY + 16 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 230: | 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 237: | Line 243: | ||
Compute NewY = $StartY + 71 | Compute NewY = $StartY + 71 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 243: | 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 251: | 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 262: | Line 268: | ||
Compute NewY = $StartY + 70 | Compute NewY = $StartY + 70 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 268: | Line 274: | ||
Compute NewY = $StartY + 98 | Compute NewY = $StartY + 98 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 274: | 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 291: | Line 297: | ||
Compute NewY = $StartY + 32 | Compute NewY = $StartY + 32 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 297: | Line 303: | ||
Compute NewY = $StartY + 162 | Compute NewY = $StartY + 162 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 306: | Line 312: | ||
Compute NewY = $StartY + 28 | Compute NewY = $StartY + 28 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 312: | Line 318: | ||
Compute NewY = $StartY + 167 | Compute NewY = $StartY + 167 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// | // | ||
| Line 319: | Line 325: | ||
Compute NewY = $StartY + 38 | Compute NewY = $StartY + 38 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 325: | Line 331: | ||
Compute NewY = $StartY + 157 | Compute NewY = $StartY + 157 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
// | // | ||
| Line 332: | Line 338: | ||
Compute NewY = $StartY + 48 | Compute NewY = $StartY + 48 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| Line 338: | 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 //
