User:Asnath/Carpentry - Revision history

Asnath at 12:22, 15 May 2009

2009-05-15T12:22:07Z

Asnath at 12:21, 15 May 2009

2009-05-15T12:21:24Z

Asnath at 12:21, 15 May 2009

2009-05-15T12:21:10Z

Asnath: New page:

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

2009-05-15T12:16:58Z

New page: <PRE> / 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 a...

New page

<PRE>
/ 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
BladelefttopX=0
BladelefttopY=0
BladeleftbotX=0
BladeleftbotY=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

// 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 macro ------------------------------------------------------------------

//--------------------------------------------------------------------------------
// Start of Macro. 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

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

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

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
</PRE>

@@ Line 17: / Line 17: @@
 WindowX=0
 WindowY=0
 NewX=0
 NewY=0

@@ Line 31: / Line 31: @@
 Mousepos $startx,$starty
 Delay 50
 // Load menus for choice of metal and job to do
@@ Line 54: / Line 58: @@
 Keys Q
-// End of macro ------------------------------------------------------------------
+// ------------------  End of main routine ---------------------------------------
 //--------------------------------------------------------------------------------
-// Start of Macro. Load all menus to start work
+// Load all menus to start work
 //--------------------------------------------------------------------------------
 Procedure LoadCarp
@@ Line 97: / Line 101: @@
 // Start working on front side with shaping mallet
 //------------------------------------------------
-	 Procedure Frontshaping
+Procedure Frontshaping
 // Start working
@@ Line 171: / Line 175: @@
 End
 Procedure Frontchisel
@@ Line 204: / Line 211: @@
 Rightclick
 end
 Procedure Midchisel
@@ Line 230: / Line 241: @@
 Rightclick
 End
 Procedure Ballpen
 // Switch to ballpen force 9
 // middle points
 Compute NewX = $StartX + 116
 Compute NewY = $StartY + 63
@@ Line 292: / Line 309: @@
 end
 </PRE>