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/CarpBlade"
From A Tale in the Desert
< User:Oni
Jump to navigationJump to search| (2 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
* Read notes! | * Read notes! | ||
| − | * | + | * NOW with Menu goodness. Will prompt for batches and either Iron or Copper.<br> |
<br> | <br> | ||
<br> | <br> | ||
| − | Ver | + | Ver 3.0 - 04/05/09<br> |
| − | Oni's | + | Oni's Carpentry blade macro: Will make a 7.1k to 7.2k blade in about 5 seconds.<br> |
| − | Works only in screen resolution of | + | Works only in screen resolution of 1680x1050.<br> |
| − | + | <br> | |
<b>Your Anvil MUST be alligned North to South, with the blade edge facing West.</b><br> | <b>Your Anvil MUST be alligned North to South, with the blade edge facing West.</b><br> | ||
| − | Have: Copper, Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel in your inventory.<br> | + | Have: Copper or Iron, 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> | ||
Turn Chat Off.<br> | Turn Chat Off.<br> | ||
| Line 29: | Line 29: | ||
<Pre> | <Pre> | ||
| − | // Ver | + | // Ver 3.0 - 04/05/09 |
| + | // ** fixed when new metals broke the last one. Added menu. | ||
// 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 | + | // in about 5 seconds. Works only in screen resolution of 1600x1050. |
// Uses COPPER only. Have: Copper, Ball Peen Hammer, Shaping Mallet, | // Uses COPPER only. Have: Copper, Ball Peen Hammer, Shaping Mallet, | ||
// and Wide Tungsten Chisel in your inventory. See pic for mouse starting | // and Wide Tungsten Chisel in your inventory. See pic for mouse starting | ||
// position. Place mouse on starting position, Tab over to ACtool, hit F2. | // position. Place mouse on starting position, Tab over to ACtool, hit F2. | ||
| − | |||
constants | constants | ||
| Line 42: | Line 42: | ||
NewX = 0 | NewX = 0 | ||
NewY = 0 | NewY = 0 | ||
| + | Job = 0 | ||
| + | Batch = 0 | ||
| + | MetalX = 0 | ||
| + | MetalY = 0 | ||
| + | TempX = 0 | ||
| + | UnloadX = 0 | ||
| + | UnloadY = 0 | ||
| + | FinX = 0 | ||
| + | FinY = 0 | ||
end | end | ||
SetConst StartX = {MouseX} | SetConst StartX = {MouseX} | ||
SetConst StartY = {MouseY} | 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 | ||
| − | MousePos 74, 10 | + | 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 74, 10 // Zoom in | ||
delay 50 | delay 50 | ||
leftclick | leftclick | ||
delay 1000 | delay 1000 | ||
| + | // | ||
| + | Loop $Batch | ||
| + | Call Anvil[ed3] | ||
| + | Call $Job | ||
| + | Call unload | ||
| + | End | ||
| + | // | ||
| + | Procedure Iron | ||
| + | Setconst MetalX = 93 | ||
| + | SetConst MetalY = 72 | ||
| + | End | ||
| + | |||
| + | Procedure Copper | ||
| + | SetConst MetalX = 93 | ||
| + | SetConst MetalY = 89 | ||
| + | End | ||
| + | |||
| + | // START POS MousePos 916, 381 | ||
| − | // | + | //////////////////////////// |
| − | Compute NewX = $StartX | + | Procedure Unload |
| − | Compute NewY = $StartY | + | delay 100 |
| + | MousePos $UnloadX, $UnloadY | ||
| + | delay 100 | ||
| + | Rightclick | ||
| + | delay 100 | ||
| + | //Compute NewX = $UnloadX + 62 // Discard | ||
| + | //Compute NewY = $UnloadY // Discard | ||
| + | // | ||
| + | Compute NewX = $UnloadX + 68 // Complete | ||
| + | Compute NewY = $UnloadY - 15 // Complete | ||
| + | // | ||
| + | MousePos $NewX, $NewY | ||
| + | delay 100 | ||
| + | leftclick | ||
| + | delay 100 | ||
| + | Compute NewX = $StartX - 99 // YES | ||
| + | Compute NewY = $StartY + 168 // YES | ||
| + | delay 100 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 2000 | |
| + | leftclick | ||
| + | delay 100 | ||
| + | End | ||
| + | |||
| + | //////// BLADE START ///////////////////// LOAD | ||
| + | Procedure Carp /// CARP START | ||
| + | delay 100 | ||
| + | MousePos $StartX, $StartY | ||
| + | delay 100 | ||
Rightclick | Rightclick | ||
| − | Compute NewX = $StartX + | + | // Load click |
| − | Compute NewY = $StartY - | + | Compute NewX = $StartX + 53 |
| + | Compute NewY = $StartY - 8 | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| − | Compute NewX = $StartX + | + | // choose metal |
| − | Compute NewY = $StartY - | + | Compute NewX = $StartX + $MetalX |
| + | Compute NewY = $StartY - $MetalY | ||
MousePos $NewX, $NewY | MousePos $NewX, $NewY | ||
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| − | Compute | + | // metal click |
| − | + | Compute TempX = $NewX + 10 | |
| − | MousePos $ | + | MousePos $TempX, $NewY |
| − | + | delay 100 | |
Rightclick | Rightclick | ||
| − | |||
// Shaping mallet // | // Shaping mallet // | ||
| Line 270: | Line 348: | ||
Keys Q | Keys Q | ||
delay 2000 | delay 2000 | ||
| + | END | ||
| + | MousePos $FinX, $FinY | ||
// END Blade // | // END Blade // | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
</Pre> | </Pre> | ||
Latest revision as of 06:38, 5 April 2009
- Read notes!
- NOW with Menu goodness. Will prompt for batches and either Iron or Copper.
Ver 3.0 - 04/05/09
Oni's Carpentry blade macro: Will make a 7.1k to 7.2k blade in about 5 seconds.
Works only in screen resolution of 1680x1050.
Your Anvil MUST be alligned North to South, with the blade edge facing West.
Have: Copper or Iron, 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).
- 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)
Paste the following in to ACTool.
// Ver 3.0 - 04/05/09
// ** fixed when new metals broke the last one. Added menu.
// Oni's Carb blade macro: Will make a 7.1k to 7.2k blade
// in about 5 seconds. Works only in screen resolution of 1600x1050.
// Uses COPPER only. Have: Copper, 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 74, 10 // Zoom in
delay 50
leftclick
delay 1000
//
Loop $Batch
Call Anvil[ed3]
Call $Job
Call unload
End
//
Procedure Iron
Setconst MetalX = 93
SetConst MetalY = 72
End
Procedure Copper
SetConst MetalX = 93
SetConst MetalY = 89
End
// START POS MousePos 916, 381
////////////////////////////
Procedure Unload
delay 100
MousePos $UnloadX, $UnloadY
delay 100
Rightclick
delay 100
//Compute NewX = $UnloadX + 62 // Discard
//Compute NewY = $UnloadY // Discard
//
Compute NewX = $UnloadX + 68 // Complete
Compute NewY = $UnloadY - 15 // Complete
//
MousePos $NewX, $NewY
delay 100
leftclick
delay 100
Compute NewX = $StartX - 99 // YES
Compute NewY = $StartY + 168 // YES
delay 100
MousePos $NewX, $NewY
delay 2000
leftclick
delay 100
End
//////// BLADE START ///////////////////// LOAD
Procedure Carp /// CARP START
delay 100
MousePos $StartX, $StartY
delay 100
Rightclick
// Load click
Compute NewX = $StartX + 53
Compute NewY = $StartY - 8
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 //
Compute NewX = $StartX + 81
Compute NewY = $StartY - 27
MousePos $NewX, $NewY
delay 50
Keys S
Keys 8
// end Shaping mallet //
Delay 100
// round 1 front edge
Compute NewX = $StartX - 14
Compute NewY = $StartY + 27
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 66
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 105
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 144
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 183
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 219
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 261
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 300
MousePos $NewX, $NewY
Delay 100
Rightclick
// end 1
// Wide Chisel //
Compute NewX = $StartX + 81
Compute NewY = $StartY - 27
MousePos $NewX, $NewY
delay 50
Keys C
Keys 9
// end Wide Chisel //
// start round 2 //
// 2 edges //
Compute NewX = $StartX - 14
Compute NewY = $StartY + 27
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 300
MousePos $NewX, $NewY
Delay 100
Rightclick
// end 2 edges //
Compute NewX = $StartX - 14
Compute NewY = $StartY + 105
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX - 14
Compute NewY = $StartY + 219
MousePos $NewX, $NewY
Delay 100
Rightclick
// end center 2 front
// end Round 2
// Wide Chisel //
Compute NewX = $StartX + 81
Compute NewY = $StartY - 27
MousePos $NewX, $NewY
delay 50
Keys C
Keys 4
// end Wide Chisel //
delay 100
// Center
Compute NewX = $StartX + 71
Compute NewY = $StartY + 165
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX + 71
Compute NewY = $StartY + 122
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX + 71
Compute NewY = $StartY + 208
MousePos $NewX, $NewY
Delay 100
Rightclick
// end Center
delay 100
// Wide Chisel //
Compute NewX = $StartX + 81
Compute NewY = $StartY - 27
MousePos $NewX, $NewY
delay 50
Keys B
Keys 9
// end Wide Chisel //
// middle points
Compute NewX = $StartX + 90
Compute NewY = $StartY + 60
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX + 90
Compute NewY = $StartY + 269
MousePos $NewX, $NewY
Delay 100
Rightclick
// end middle points
Compute NewX = $StartX + 173
Compute NewY = $StartY + 60
MousePos $NewX, $NewY
delay 200
Rightclick
Compute NewX = $StartX + 154
Compute NewY = $StartY + 65
MousePos $NewX, $NewY
delay 200
Rightclick
Compute NewX = $StartX + 173
Compute NewY = $StartY + 275
MousePos $NewX, $NewY
delay 200
Rightclick
Compute NewX = $StartX + 154
Compute NewY = $StartY + 270
MousePos $NewX, $NewY
delay 200
Rightclick
Compute NewX = $StartX + 173
Compute NewY = $StartY + 73
MousePos $NewX, $NewY
delay 200
Rightclick
Compute NewX = $StartX + 173
Compute NewY = $StartY + 250
MousePos $NewX, $NewY
delay 200
Rightclick
//
Keys Q
Keys Q
delay 2000
END
MousePos $FinX, $FinY
// END Blade //
