Oni: Created page with "''' THIS VERSION FIXED for Metallurgy 5 - (new Menu items) '''

'''Works with screen Resolution of 1680x1050 Only'''
See pics below to see how I have my screen setup..."

2010-10-13T16:55:54Z

Created page with "''' THIS VERSION FIXED for Metallurgy 5 - (new Menu items) ''' '''Works with screen Resolution of 1680x1050 Only''' See pics below to see how I have my screen setup..."

New page

''' THIS VERSION FIXED for Metallurgy 5 - (new Menu items) '''
 
 
'''Works with screen Resolution of 1680x1050 Only''' 
See pics below to see how I have my screen setup and starting position for cursor 
----
Inventory: 
*Iron 
*Ball Peen Hammer 
*Wide Tungsten Chisel 
*Shaping Mallet 
 
Screen Layout 
*[[Image:ScreenLayout.PNG]][[Image:ItemsStart.PNG]] 
 
Starting Mouse Cursor Position 
*[[Image:StartPos.PNG]] 
 
How To? 
*Have screen setup like I do 
*Be standing close to the same spot my avatar is 
*Have tools and iron in inventory 
*Turn Chat Off! 
*2nd F8 Zoom ALL the way in 
*Use ALT+L to lock the screen once zoomed in... (for best results) 
*Put Mouse on start Position shown 
*ALT+TAB to ACTool and hit F2 
*I would start with ONE to begin to make sure its lined up right 
*Click OK 
 
*GL! 
 
----
<pre>
// T5 Carp Blade macro:
// WITH METALLURGY 5. (menu items are different)
//

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 \\\
// STARTMousePos 703, 360
MousePos 725, 333
MousePos 779, 323
MousePos 818, 259
MousePos 873, 239

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

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

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

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

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

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

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

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

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

Compute NewX = $StartX + 77
Compute NewY = $StartY + 229
Delay 55
MousePos $NewX, $NewY
Delay 55
Leftclick // HIT 6
Delay 55
//// END HIT MID POINTS \\\\
//
/// TOOL CHANGE CHISEL, Force 4 \\\
Delay 55
Compute NewX = $StartX + 22
Compute NewY = $StartY - 38
Delay 55
MousePos $NewX, $NewY // Mouse Over Blank Spot
Delay 55
Keys C
Delay 55
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 55
MousePos $NewX, $NewY
Delay 55
Leftclick // HIT 1
Delay 55

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

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

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

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

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

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

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

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

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

MousePos 800, 570
Delay 556
Rightclick //
Delay 55
MousePos $StartX, $StartY
//// END UNLOAD \\\\
END
//
</pre>

User:Oni/Macros/CarpBladeWideM5 - Revision history

Oni: Created page with "''' THIS VERSION FIXED for Metallurgy 5 - (new Menu items) ''' '''Works with screen Resolution of 1680x1050 Only''' See pics below to see how I have my screen setup..."

Oni: Created page with "''' THIS VERSION FIXED for Metallurgy 5 - (new Menu items) '''

'''Works with screen Resolution of 1680x1050 Only'''
See pics below to see how I have my screen setup..."