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.
User:Oni/CarpBlade
From A Tale in the Desert
Jump to navigationJump to search// Ver 1.1 - 01/06/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 1600x1080.
// 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
end
SetConst StartX = {MouseX}
SetConst StartY = {MouseY}
MousePos 74, 10
delay 50
leftclick
delay 1000
// LOAD //
Compute NewX = $StartX + 81
Compute NewY = $StartY - 27
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX + 134
Compute NewY = $StartY - 27
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX + 177
Compute NewY = $StartY - 109
MousePos $NewX, $NewY
Delay 100
Rightclick
Compute NewX = $StartX + 253
Compute NewY = $StartY - 109
MousePos $NewX, $NewY
Delay 100
Rightclick
// END LOAD //
// 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 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 //
MousePos 936, 390
MousePos 798, 573
