The Wiki for Tale 5 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/Macros/CarpBladeWide"

From ATITD5
Jump to navigationJump to search
(Created page with " ----")
 
Line 1: Line 1:
  
  
 +
----
 +
<pre>
 +
// T5 Carp Blade macro:
 +
//
 +
//
 +
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: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
 +
//////////////
 +
//
 +
Loop $Batch
 +
  Call Anvil[ed3]
 +
  Call $Job
 +
  Call unload
 +
End
 +
//
 +
Procedure Iron
 +
  Setconst MetalX = 93
 +
  SetConst MetalY = 72
 +
End
 +
///////////////////////////////////////
 +
///////////.................///////////
 +
///////////////////////////////////////
 +
//\\ BLADE START //\\
 +
//\\            //\\
 +
 +
Procedure Carp
 +
 +
/// ZOOM IN \\\
 +
Delay 102
 +
MousePos 47, 10
 +
Delay 102
 +
Leftclick
 +
Delay 505
 +
/// END ZOOM IN \\\
 +
 +
/// LOAD METAL \\\
 +
///
 +
Delay 66
 +
Compute NewX = $StartX + 22
 +
Compute NewY = $StartY - 38
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // Click Blank Spot
 +
Delay 66
 +
//
 +
Delay 66
 +
Compute NewX = $StartX + 62
 +
Compute NewY = $StartY - 48
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // Click "Load"
 +
Delay 66
 +
//
 +
Delay 66
 +
Compute NewX = $StartX + 101
 +
Compute NewY = $StartY - 113
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // Click "Iron"
 +
Delay 66
 +
//
 +
Delay 66
 +
Compute NewX = $StartX + 151
 +
Compute NewY = $StartY - 114
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // Click "Carp Blade"
 +
Delay 55
 +
/// END LOAD METAL \\\
 +
///
 +
/// TOOL CHANGE \\\
 +
///            \\\
 +
// Shaping Mallet, Force 8, 8 hits:
 +
//
 +
Delay 66
 +
Compute NewX = $StartX + 22
 +
Compute NewY = $StartY - 38
 +
Delay 66
 +
MousePos $NewX, $NewY // Mouse Over Blank Spot
 +
Delay 66
 +
Keys S
 +
Delay 66
 +
Keys 8
 +
Delay 55
 +
/// END TOOL CHANGE \\\
 +
///
 +
/// FRONT EDGE \\\
 +
///
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 42
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 1
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 80
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 2
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 119
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 3
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 157
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 4
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 196
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 5
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 234
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 6
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 273
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 7
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 312
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 8
 +
Delay 66
 +
//// END 8 HITS \\\\
 +
//
 +
/// -----MousePos 666, 355  START POS
 +
//
 +
/// TOOL CHANGE CHISEL, Force 9 \\\
 +
Delay 66
 +
Compute NewX = $StartX + 22
 +
Compute NewY = $StartY - 38
 +
Delay 66
 +
MousePos $NewX, $NewY // Mouse Over Blank Spot
 +
Delay 66
 +
Keys C
 +
Delay 66
 +
Keys 9
 +
Delay 55
 +
//// END TOOL CHANGE \\\
 +
//
 +
//// HIT TOP BOTTOM w/ CHISEL \\\
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 43
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 1
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 311
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 8
 +
Delay 66
 +
//// END HIT TOP BOTTOM \\\\
 +
//
 +
//// HIT MID POINTS w/ CHISEL \\\\
 +
//
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 124
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 3
 +
Delay 66
 +
 +
Compute NewX = $StartX + 77
 +
Compute NewY = $StartY + 229
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 6
 +
Delay 66
 +
//// END HIT MID POINTS \\\\
 +
//
 +
/// TOOL CHANGE CHISEL, Force 4 \\\
 +
Delay 66
 +
Compute NewX = $StartX + 22
 +
Compute NewY = $StartY - 38
 +
Delay 66
 +
MousePos $NewX, $NewY // Mouse Over Blank Spot
 +
Delay 66
 +
Keys C
 +
Delay 66
 +
Keys 4
 +
Delay 55
 +
//// END TOOL CHANGE \\\
 +
//
 +
// TOP:  MousePos 660, 437
 +
// BOT:  MousePos 660, 628
 +
//
 +
//// HIT 3 MID DOTS \\\\
 +
//
 +
Compute NewX = $StartX - 1
 +
Compute NewY = $StartY + 130
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 1
 +
Delay 66
  
−
----
+
Compute NewX = $StartX - 1
 +
Compute NewY = $StartY + 178
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 2
 +
Delay 66
 +
 
 +
Compute NewX = $StartX - 1
 +
Compute NewY = $StartY + 226
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 3
 +
Delay 66
 +
//// END HIT 3 MID DOTS \\\\
 +
//
 +
/// TOOL CHANGE BALLPEEN, Force 9 \\\
 +
Delay 66
 +
Compute NewX = $StartX + 22
 +
Compute NewY = $StartY - 38
 +
Delay 66
 +
MousePos $NewX, $NewY // Mouse Over Blank Spot
 +
Delay 66
 +
Keys B
 +
Delay 66
 +
Keys 9
 +
Delay 55
 +
//// END TOOL CHANGE \\\
 +
//
 +
//// HIT 2 MID TIPS/EDGES \\
 +
//
 +
Compute NewX = $StartX - 26
 +
Compute NewY = $StartY + 65
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 1
 +
Delay 66
 +
 
 +
Compute NewX = $StartX - 26
 +
Compute NewY = $StartY + 283
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 2
 +
Delay 66
 +
//
 +
//// END 2 MID TIPS/EDGES \\
 +
//
 +
//// BACK EDGE 6 HITS, Same Tool/Force \\\\
 +
//
 +
Compute NewX = $StartX - 112
 +
Compute NewY = $StartY + 65
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 1
 +
Delay 66
 +
 
 +
Compute NewX = $StartX - 112
 +
Compute NewY = $StartY + 283
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 2
 +
Delay 66
 +
 
 +
Compute NewX = $StartX - 97
 +
Compute NewY = $StartY + 75
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 3
 +
Delay 66
 +
 
 +
Compute NewX = $StartX - 97
 +
Compute NewY = $StartY + 273
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Leftclick // HIT 4
 +
Delay 66
 +
 
 +
Compute NewX = $StartX - 111
 +
Compute NewY = $StartY + 85
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Rightclick // HIT 5
 +
Delay 66
 +
 
 +
Compute NewX = $StartX - 111
 +
Compute NewY = $StartY + 262
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Rightclick // HIT 6
 +
Delay 66
 +
//// END BACK EDGE 6 HITS \\\\
 +
//
 +
/// CHECK QUALITY \\\
 +
Delay 66
 +
Compute NewX = $StartX + 22
 +
Compute NewY = $StartY - 38
 +
Delay 66
 +
MousePos $NewX, $NewY // Mouse Over Blank Spot
 +
Delay 66
 +
Keys Q
 +
Delay 66
 +
Keys Q
 +
Delay 55
 +
//// END CHECK QUALITY \\\
 +
END
 +
//// UNLOAD \\\\
 +
Procedure Unload
 +
delay 66
 +
Compute NewX = $StartX + 23
 +
Compute NewY = $StartY - 25
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Rightclick //
 +
Delay 66
 +
 
 +
Compute NewX = $StartX + 78
 +
Compute NewY = $StartY - 42
 +
Delay 66
 +
MousePos $NewX, $NewY
 +
Delay 66
 +
Rightclick //
 +
Delay 66
 +
 
 +
MousePos 800, 570
 +
Delay 666
 +
Rightclick //
 +
Delay 66
 +
MousePos $StartX, $StartY
 +
//// END UNLOAD \\\\
 +
END
 +
//
 +
</pre>

Revision as of 02:24, 24 August 2010


// T5 Carp Blade macro:
//
//
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: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
//////////////
//
Loop $Batch
  Call Anvil[ed3]
  Call $Job
  Call unload
End
//
Procedure Iron
  Setconst MetalX = 93
  SetConst MetalY = 72
End
///////////////////////////////////////
///////////.................///////////
///////////////////////////////////////
//\\ BLADE START //\\
//\\             //\\

Procedure Carp

/// ZOOM IN \\\
Delay 102
MousePos 47, 10
Delay 102
Leftclick
Delay 505
/// END ZOOM IN \\\

/// LOAD METAL \\\
///
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click Blank Spot
Delay 66
//
Delay 66
Compute NewX = $StartX + 62
Compute NewY = $StartY - 48
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click "Load"
Delay 66
//
Delay 66
Compute NewX = $StartX + 101
Compute NewY = $StartY - 113
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click "Iron"
Delay 66
//
Delay 66
Compute NewX = $StartX + 151
Compute NewY = $StartY - 114
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // Click "Carp Blade"
Delay 55
/// END LOAD METAL \\\
///
/// TOOL CHANGE \\\
///            \\\
// Shaping Mallet, Force 8, 8 hits:
//
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys S 
Delay 66
Keys 8
Delay 55
/// END TOOL CHANGE \\\
///
/// FRONT EDGE \\\
///
Compute NewX = $StartX + 77
Compute NewY = $StartY + 42
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 80
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 119
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 157
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 4
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 196
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 5
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 234
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 6
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 273
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 7
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 312
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 8
Delay 66
//// END 8 HITS \\\\
//
/// -----MousePos 666, 355   START POS
//
/// TOOL CHANGE CHISEL, Force 9 \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys C 
Delay 66
Keys 9
Delay 55
//// END TOOL CHANGE \\\
// 
//// HIT TOP BOTTOM w/ CHISEL \\\
Compute NewX = $StartX + 77
Compute NewY = $StartY + 43
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 311
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 8
Delay 66
//// END HIT TOP BOTTOM \\\\
//
//// HIT MID POINTS w/ CHISEL \\\\
//
Compute NewX = $StartX + 77
Compute NewY = $StartY + 124
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66

Compute NewX = $StartX + 77
Compute NewY = $StartY + 229
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 6
Delay 66
//// END HIT MID POINTS \\\\
//
/// TOOL CHANGE CHISEL, Force 4 \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys C 
Delay 66
Keys 4
Delay 55
//// END TOOL CHANGE \\\
//
// TOP:  MousePos 660, 437
// BOT:  MousePos 660, 628
//
//// HIT 3 MID DOTS \\\\
//
Compute NewX = $StartX - 1
Compute NewY = $StartY + 130
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX - 1
Compute NewY = $StartY + 178
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66

Compute NewX = $StartX - 1
Compute NewY = $StartY + 226
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66
//// END HIT 3 MID DOTS \\\\
//
/// TOOL CHANGE BALLPEEN, Force 9 \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys B 
Delay 66
Keys 9
Delay 55
//// END TOOL CHANGE \\\
//
//// HIT 2 MID TIPS/EDGES \\
//
Compute NewX = $StartX - 26
Compute NewY = $StartY + 65
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX - 26
Compute NewY = $StartY + 283
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66
//
//// END 2 MID TIPS/EDGES \\
//
//// BACK EDGE 6 HITS, Same Tool/Force \\\\
//
Compute NewX = $StartX - 112
Compute NewY = $StartY + 65
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 1
Delay 66

Compute NewX = $StartX - 112
Compute NewY = $StartY + 283
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 2
Delay 66

Compute NewX = $StartX - 97
Compute NewY = $StartY + 75
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 3
Delay 66

Compute NewX = $StartX - 97
Compute NewY = $StartY + 273
Delay 66
MousePos $NewX, $NewY
Delay 66
Leftclick // HIT 4
Delay 66

Compute NewX = $StartX - 111
Compute NewY = $StartY + 85
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // HIT 5
Delay 66

Compute NewX = $StartX - 111
Compute NewY = $StartY + 262
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // HIT 6
Delay 66
//// END BACK EDGE 6 HITS \\\\
//
/// CHECK QUALITY \\\
Delay 66
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 66
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 66
Keys Q 
Delay 66
Keys Q
Delay 55
//// END CHECK QUALITY \\\
END
//// UNLOAD \\\\
Procedure Unload
delay 66
Compute NewX = $StartX + 23
Compute NewY = $StartY - 25
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // 
Delay 66

Compute NewX = $StartX + 78
Compute NewY = $StartY - 42
Delay 66
MousePos $NewX, $NewY
Delay 66
Rightclick // 
Delay 66

MousePos 800, 570
Delay 666
Rightclick // 
Delay 66
MousePos $StartX, $StartY
//// END UNLOAD \\\\
END
//
Retrieved from "http://www.atitd.org/wiki/t5w/index.php?title=User:Oni/Macros/CarpBladeWide&oldid=9987"