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
Jump to navigationJump to search
 
(2 intermediate revisions by the same user not shown)
Line 1: Line 1:
 
* Read notes!
 
* Read notes!
* This is a work in progress. I will soon add the menu and other metals to the macro.<br>
+
* NOW with Menu goodness. Will prompt for batches and either Iron or Copper.<br>
 
<br>
 
<br>
 
<br>
 
<br>
  
Ver 1.1   -  01/06/09<br>
+
Ver 3.0   -  04/05/09<br>
Oni's Carb blade macro: Will make a 7.1k to 7.2k blade in about 5 seconds.<br>  
+
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 1680x1080.<br>
+
Works only in screen resolution of 1680x1050.<br>
Uses COPPER only (will fix this tonight)<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 1.1   -  01/06/09
+
// 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 1680x1080.
+
// 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
  
// LOAD //
+
////////////////////////////
Compute NewX = $StartX + 81
+
Procedure Unload
Compute NewY = $StartY - 27
+
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 100
+
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 + 134
+
// Load click
Compute NewY = $StartY - 27
+
Compute NewX = $StartX + 53
 +
Compute NewY = $StartY - 8
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
Compute NewX = $StartX + 177
+
// choose metal
Compute NewY = $StartY - 109
+
Compute NewX = $StartX + $MetalX
 +
Compute NewY = $StartY - $MetalY
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
Compute NewX = $StartX + 253
+
// metal click
Compute NewY = $StartY - 109
+
Compute TempX = $NewX + 10
MousePos $NewX, $NewY
+
MousePos $TempX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
// END LOAD //
 
  
 
// Shaping mallet //
 
// Shaping mallet //
Line 270: Line 348:
 
Keys Q
 
Keys Q
 
delay 2000
 
delay 2000
 +
END
 +
MousePos $FinX, $FinY
 
// END Blade //
 
// END Blade //
// Take //
 
MousePos $StartX, $StartY
 
Delay 200
 
Leftclick
 
 
Compute NewX = $StartX + 47
 
Compute NewY = $StartY - 25
 
MousePos $NewX, $NewY
 
delay 200
 
Rightclick
 
 
Compute NewX = $StartX - 138
 
Compute NewY = $StartY + 183
 
MousePos $NewX, $NewY
 
delay 200
 
Leftclick
 
  
MousePos $StartX, $StartY
 
// END Take //
 
// END //
 
  
 
</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

CarpStart.PNG

  • 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

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 //