User:Asnath/Carpentry

// Adapted Macro from user Oni, for Carpenty Blades
// Screen 1920 x 1200
// Double F8 Zoomed in all the way
// Macro not verified for Iron. Just works for copper for now
// Need to add little proc to check correct coords
// Need to add menu to enter starting pos
// Using colorcop (or other), note coords of left top corner of andvil bed and replace hard codded coords with actual coords (line 25,26)

// This macro is probably not gonna work on other screen resolution without being adapted.

SetActiveWindow eGenesis Client

constants
StartX=0
StartY=0
WindowX=0
WindowY=0
NewX=0
NewY=0
End

delay 20
/// position du coin supérieur gauche de la table
Setconst startx=524
Setconst Starty=436
Mousepos $startx,$starty
Delay 50

//----------------------------------------------------------------
// Main routine 
//----------------------------------------------------------------

// Load menus for choice of metal and job to do
Call Loadcarp
Delay 40

// Work Front of blade with Shaping mallet
Call FrontShaping
Delay 40

// Work Front of blade with Wide chisel
Call FrontChisel
Delay 40

// Work mid of blade with wide chisel
Call MidChisel
Delay 40

// Work Mid and back of blade with Ball Pen
Call Ballpen
Delay 40
Keys Q
Keys Q

// ------------------  End of main routine ---------------------------------------

//--------------------------------------------------------------------------------
// Load all menus to start work
//--------------------------------------------------------------------------------
Procedure LoadCarp

	// Locate start position, move to middle of andvil and click to get window menu
	Compute Newx=$Startx+100
	Setconst Newy=$Starty
	Mousepos $Newx,$Newy
	delay 40
	leftclick
	delay 40
	
	// click on "Load andvil"
	Compute Newx=$Startx+124
	Compute Newy=$StartY-7
	MousePos $Newx,$Newy
	Delay 40
	leftclick
	delay 40

	// click on "copper"
	Compute Newx=$startx+164
	Compute NewY=$starty-87
	MousePos $Newx,$NewY 
	Delay 40
	leftclick
	delay 20

	// click on Carpentry Blade
	Compute Newx=$startx+196
	MousePos $Newx,$Newy
	Delay 40
	leftclick
	Delay 20

END

//------------------------------------------------
// Start working on front side with shaping mallet 
//------------------------------------------------
Procedure Frontshaping

// Start working

	Compute Newx=$StartX-5
	Compute Newy=$StartY+38
	Mousepos $Newx,$NewY 
	delay 100
// Shaping Mallet force 8

Keys S
delay 40

Keys {NUM 8}
Delay 40

leftclick
delay 20

compute Newy=$StartY+88
compute Newx=$Startx-6
Mousepos $Newx,$newY
Delay 100

leftclick
delay 40

compute Newy=$StartY+128
compute Newx=$startX-7
Mousepos $NewX,$NewY
Delay 100

leftclick
delay 20

compute Newy=$StartY+176
compute Newx=$startx-7
Mousepos $Newx,$Newy
Delay 20

leftclick
delay 20

compute Newy=$StartY+237
compute Newx=$startx-8
Mousepos $Newx,$Newy
Delay 20

leftclick
delay 20

compute Newy=$StartY+282
compute Newx=$startx-6
Mousepos $Newx,$Newy
Delay 20
leftclick
delay 20

compute Newy=$StartY+319
compute Newx=$startx-5
Mousepos $Newx,$Newy
Delay 20
leftclick
delay 20

compute Newy=$StartY+357
compute Newx=$startx-7
Mousepos $Newx,$Newy
Delay 20
leftclick
delay 20


End
//--------------------------------------------------------------------------------
// Use Chisel on front of Blade
//--------------------------------------------------------------------------------

Procedure Frontchisel
// Wide Shisel force 9
// Left top corner
Compute NewX = $StartX - 2
MousePos 848, 568
Compute NewY = $StartY + 40
MousePos $NewX, $NewY
Delay 100
Keys C
Delay 100
Keys {NUM 9}
delay 100
Rightclick

Compute NewX = $StartX - 3
Compute NewY = $StartY + 356
MousePos $NewX, $NewY
Delay 100
Rightclick

Compute NewX = $StartX - 2
Compute NewY = $StartY + 151
MousePos $NewX, $NewY
Delay 100
Rightclick

Compute NewX = $StartX - 4
Compute NewY = $StartY + 256
MousePos $NewX, $NewY
Delay 100
Rightclick
end

//-----------------------------------------------------------------
// Use chisel on mid blade
//-----------------------------------------------------------------

Procedure Midchisel
// Change to Wide schisel force 4

Compute NewX = $StartX + 92
Compute NewY = $StartY + 134
MousePos $NewX, $NewY
Delay 100
Keys C
delay 40
Keys {NUM 4}
delay 100
Rightclick

Compute NewX = $StartX + 92
Compute NewY = $StartY + 193
MousePos $NewX, $NewY
Delay 100
Rightclick

Compute NewX = $StartX + 92
Compute NewY = $StartY + 258
MousePos $NewX, $NewY
Delay 100
Rightclick
End

//----------------------------------------------------
// Use Ballpen for the rest
//----------------------------------------------------

Procedure Ballpen

// Switch to ballpen force 9
// middle points

Compute NewX = $StartX + 116
Compute NewY = $StartY + 63
MousePos $NewX, $NewY
Delay 50

keys B
delay 100
keys {NUM 9}
delay 100
Rightclick

MousePos 138, 617
Compute NewX = $StartX + 113
Compute NewY = $StartY + 321
MousePos $NewX, $NewY
Delay 100
Rightclick
// end middle points
//----------------------------------------

Compute NewX = $StartX + 214
Compute NewY = $StartY + 68
MousePos $NewX, $NewY
delay 200
Rightclick   

Compute NewX = $StartX + 213
Compute NewY = $StartY + 328
MousePos $NewX, $NewY
delay 200
Rightclick 
//----------------------------------------
Compute NewX = $StartX + 203
Compute NewY = $StartY + 92
MousePos $NewX, $NewY
delay 200
Rightclick

Compute NewX = $StartX + 201
MousePos 218, 583
Compute NewY = $StartY + 318
MousePos $NewX, $NewY
delay 200
Rightclick
//--------------------------------------
Compute NewX = $StartX + 213
Compute NewY = $StartY + 97
MousePos $NewX, $NewY
delay 200
Rightclick

Compute NewX = $StartX + 212
Compute NewY = $StartY + 294
MousePos $NewX, $NewY
delay 200
Rightclick

end
//---------- No more procedures --------