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
Jump to navigationJump to search
 
(One intermediate revision by the same user not shown)
Line 5: Line 5:
 
<br>
 
<br>
  
Ver 2.0   -  02/03/09<br>
+
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>
New uses copper or Iron <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 2.0   -  02/03/09
+
// 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
+
delay 100
  
 
Loop $Batch
 
Loop $Batch
Line 94: Line 98:
  
 
Procedure Iron
 
Procedure Iron
   Setconst MetalX = 81
+
   Setconst MetalX = 75
   SetConst MetalY = 63
+
   SetConst MetalY = 73
 
End
 
End
  
 
Procedure Copper
 
Procedure Copper
   SetConst MetalX = 81
+
   SetConst MetalX = 75
   SetConst MetalY = 81
+
   SetConst MetalY = 87
 
End
 
End
 
////////////////////////////
 
////////////////////////////
Line 119: Line 123:
 
leftclick
 
leftclick
 
delay 100
 
delay 100
MousePos 472, 431
+
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
+
delay 100
 
MousePos $StartX, $StartY
 
MousePos $StartX, $StartY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
 
// Load click
 
// Load click
Compute NewX = $StartX + 53
+
Compute NewX = $StartX + 45
Compute NewY = $StartY
+
Compute NewY = $StartY - 10
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
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
+
delay 100
 
Rightclick
 
Rightclick
 
// metal click
 
// metal click
 
Compute TempX = $NewX + 10
 
Compute TempX = $NewX + 10
 
MousePos $TempX, $NewY
 
MousePos $TempX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
 
// Shaping mallet //
 
// Shaping mallet //
 
MousePos $StartX, $StartY
 
MousePos $StartX, $StartY
Delay 100
+
delay 100
 
Keys S
 
Keys S
 
Keys 8
 
Keys 8
 
// end Shaping mallet //
 
// end Shaping mallet //
  
Delay 100
+
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
+
delay 100
 
Rightclick
 
Rightclick
  
Line 171: Line 178:
 
Compute NewY = $StartY + 40
 
Compute NewY = $StartY + 40
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 177: Line 184:
 
Compute NewY = $StartY + 64
 
Compute NewY = $StartY + 64
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 183: Line 190:
 
Compute NewY = $StartY + 88
 
Compute NewY = $StartY + 88
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 189: Line 196:
 
Compute NewY = $StartY + 112
 
Compute NewY = $StartY + 112
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 195: Line 202:
 
Compute NewY = $StartY + 136
 
Compute NewY = $StartY + 136
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 201: Line 208:
 
Compute NewY = $StartY + 160
 
Compute NewY = $StartY + 160
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 207: Line 214:
 
Compute NewY = $StartY + 182
 
Compute NewY = $StartY + 182
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
 
// end 1
 
// end 1
Line 213: Line 220:
 
// Wide Chisel //
 
// Wide Chisel //
 
MousePos $StartX, $StartY
 
MousePos $StartX, $StartY
Delay 100
+
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
+
delay 100
 
Rightclick
 
Rightclick
  
Line 229: Line 236:
 
Compute NewY = $StartY + 182
 
Compute NewY = $StartY + 182
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
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
+
delay 100
 
Rightclick
 
Rightclick
  
Line 242: Line 249:
 
Compute NewY = $StartY + 127
 
Compute NewY = $StartY + 127
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
 
delay 100
 
delay 100
Line 250: Line 257:
 
// Wide Chisel //
 
// Wide Chisel //
 
MousePos $StartX, $StartY
 
MousePos $StartX, $StartY
Delay 100
+
delay 100
 
Keys C
 
Keys C
 
Keys 4
 
Keys 4
 
// end Wide Chisel //
 
// end Wide Chisel //
  
Delay 100
+
delay 100
  
 
// Center
 
// Center
Line 261: Line 268:
 
Compute NewY = $StartY + 70
 
Compute NewY = $StartY + 70
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 267: Line 274:
 
Compute NewY = $StartY + 98
 
Compute NewY = $StartY + 98
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 273: Line 280:
 
Compute NewY = $StartY + 126
 
Compute NewY = $StartY + 126
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
 
// end Center
 
// end Center
  
Delay 100
+
delay 100
  
 
// Ball Peen //
 
// Ball Peen //
 
MousePos $StartX, $StartY
 
MousePos $StartX, $StartY
Delay 100
+
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
+
delay 100
 
Rightclick
 
Rightclick
  
Line 296: Line 303:
 
Compute NewY = $StartY + 162
 
Compute NewY = $StartY + 162
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 305: Line 312:
 
Compute NewY = $StartY + 28
 
Compute NewY = $StartY + 28
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 311: Line 318:
 
Compute NewY = $StartY + 167
 
Compute NewY = $StartY + 167
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
 
//
 
//
Line 318: Line 325:
 
Compute NewY = $StartY + 38
 
Compute NewY = $StartY + 38
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 324: Line 331:
 
Compute NewY = $StartY + 157
 
Compute NewY = $StartY + 157
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
 
//
 
//
Line 331: Line 338:
 
Compute NewY = $StartY + 48
 
Compute NewY = $StartY + 48
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
  
Line 337: Line 344:
 
Compute NewY = $StartY + 147
 
Compute NewY = $StartY + 147
 
MousePos $NewX, $NewY
 
MousePos $NewX, $NewY
Delay 100
+
delay 100
 
Rightclick
 
Rightclick
 
// End Edge Points
 
// End Edge Points
 
//
 
//
MousePos $StartX, $StartY
+
MousePos $FinX, $FinY
Delay 100
+
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

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