User:Cegaiel/Macros/Crematory/SACFAR - Revision history

Cegaiel at 00:35, 25 April 2010

2010-04-25T00:35:16Z

Cegaiel at 03:35, 29 January 2010

2010-01-29T03:35:12Z

Cegaiel at 03:44, 27 January 2010

2010-01-27T03:44:50Z

Cegaiel at 03:29, 27 January 2010

2010-01-27T03:29:42Z

Cegaiel at 03:28, 27 January 2010

2010-01-27T03:28:53Z

Cegaiel at 04:04, 20 January 2010

2010-01-20T04:04:52Z

Cegaiel at 07:16, 19 January 2010

2010-01-19T07:16:42Z

Cegaiel: New page:

 // This currently works for my screen resolution 1024:768 with ATITD in full screen // Pin the crematory window in the upper left of the screen as far into the corner as possible // ...

2010-01-14T19:18:54Z

New page: <pre> // This currently works for my screen resolution 1024:768 with ATITD in full screen // Pin the crematory window in the upper left of the screen as far into the corner as possible // ...

New page

<pre>
// This currently works for my screen resolution 1024:768 with ATITD in full screen
// Pin the crematory window in the upper left of the screen as far into the corner as possible
// Load with stuff manually and make sure the window is fully refreshed so that the
// "fire crematory" button appears and there is no slider bar!

// Start the macro - it will click the fire button which will also bring ATITD to the top
// Once the crematory has finished go back to ACTOOL and stop the macro - it currently just
// has a huge crude loop - it would be relatively easy to monitor the progress bar but I
// haven't done that yet

// For different screen resolutions I guess use "pixie" or something similar to get coords
// Need to change slider and button numbers under slider control for your particular crematory
// (The wiki explains how to analyse your crematory)

//SACFAR:
//Sliders numbered left-to-right 1-7.
//Buttons labeled left-to-right A-E.

//A -> 3, 7
//B -> 1
//C -> 2
//D -> 5, 6
//E -> 4

//(B C A E D D A)

Constants
count = 0
counthi = 0
countlo = 0
clickflag = 0
flag = 1
posSlider1 = 0
posSlider2 = 0
posSlider3 = 0
posSlider4 = 0
posSlider5 = 0
posSlider6 = 0
posSlider7 = 0
comSlider1 = 0
comSlider2 = 0
posSlider1old = 0
posSlider2old = 0
posSlider3old = 0
posSlider4old = 0
posSlider5old = 0
posSlider6old = 0
posSlider7old = 0
// Vertical position of middle of slider bar
midSlider = 270
// Horizontal positions of seven slider bars
hrzSlider1 = 30
hrzSlider2 = 65
hrzSlider3 = 102
hrzSlider4 = 138
hrzSlider5 = 174
hrzSlider6 = 210
hrzSlider7 = 246
// Vertical position of button centres
vrtButton = 350
// Horizontal positions of five button centres
hrzButton1 = 57
hrzButton2 = 97
hrzButton3 = 137
hrzButton4 = 177
hrzButton5 = 217
END

// Clicks to fire the crematory (need to specify centre of fire button)
mousepos 62, 91
delay 150
LeftClick

// First call to obtain initial positions of sliders
call GETSLIDERPOS
Compute posSlider1old = $posSlider1
Compute posSlider2old = $posSlider2
Compute posSlider3old = $posSlider3
Compute posSlider4old = $posSlider4
Compute posSlider5old = $posSlider5
Compute posSlider6old = $posSlider6
Compute posSlider7old = $posSlider7

// Crude loop at the moment. Should really monitor the progress bar.

loop 250

call GETSLIDERPOS

// One slider per button control
// Need to alter slider and button numbers for particular crematory

//1st single slider/button combo:

if $posSlider2 > 0
if $posSlider2 > $posSlider2old
mousepos $hrzButton3,$vrtButton
delay 150
LeftClick
END
END
if $posSlider2 < 0
if $posSlider2 < $posSlider2old
mousepos $hrzButton3,$vrtButton
delay 150
LeftClick
END
END

//2nd single slider/button combo:

if $posSlider4 > 0
if $posSlider4 > $posSlider4old
mousepos $hrzButton5,$vrtButton
delay 150
LeftClick
END
END
if $posSlider4 < 0
if $posSlider4 < $posSlider4old
mousepos $hrzButton5,$vrtButton
delay 150
LeftClick
END
END

//3rd single slider/button combo:

if $posSlider1 > 0
if $posSlider1 > $posSlider1old
mousepos $hrzButton2,$vrtButton
delay 150
LeftClick
END
END
if $posSlider1 < 0
if $posSlider1 < $posSlider1old
mousepos $hrzButton2,$vrtButton
delay 150
LeftClick
END
END

// Two sliders per button control (use centre of mass, i.e. average)
// Need to alter slider and button numbers for particular crematory
//Note Editing a slider number is $posSlider#, not comSlider#. You should still have the numbers $comSlider1 and 2 below

//1st two slider/one button combo:

Compute comSlider1 = ($posSlider3 + $posSlider7)/2
if $comSlider1 > 0
Compute clickflag = 0
if $posSlider3 > $posSlider3old
Compute clickflag = 1
END
if $posSlider7 > $posSlider7old
Compute clickflag = 1
END
if $clickflag = 1
mousepos $hrzButton1,$vrtButton
delay 150
LeftClick
END
END
if $comSlider1 < 0
Compute clickflag = 0
if $posSlider3 < $posSlider3old
Compute clickflag = 1
END
if $posSlider7 < $posSlider7old
Compute clickflag = 1
END
if $clickflag = 1
mousepos $hrzButton1,$vrtButton
delay 150
LeftClick
END
END

//2nd two slider/one button combo:

Compute comSlider2 = ($posSlider5 + $posSlider6)/2
if $comSlider2 > 0
Compute clickflag = 0
if $posSlider5 > $posSlider5old
Compute clickflag = 1
END
if $posSlider6 > $posSlider6old
Compute clickflag = 1
END
if $clickflag = 1
mousepos $hrzButton4,$vrtButton
delay 150
LeftClick
END
END
if $comSlider2 < 0
Compute clickflag = 0
if $posSlider5 < $posSlider5old
Compute clickflag = 1
END
if $posSlider6 < $posSlider6old
Compute clickflag = 1
END
if $clickflag = 1
mousepos $hrzButton4,$vrtButton
delay 150
LeftClick
END
END

Compute posSlider1old = $posSlider1
Compute posSlider2old = $posSlider2
Compute posSlider3old = $posSlider3
Compute posSlider4old = $posSlider4
Compute posSlider5old = $posSlider5
Compute posSlider6old = $posSlider6
Compute posSlider7old = $posSlider7

END

// Procedure to find slider positions

Procedure GETSLIDERPOS

Compute counthi = $midSlider
Compute countlo = $midSlider
Compute flag = 1
IsBlack $hrzSlider1, $midSlider
Compute posSlider1 = 0
Compute flag = 0
END
while $flag > 0
Compute counthi = $counthi + 6
IsBlack $hrzSlider1, $counthi
Compute posSlider1 = $midSlider - $counthi
Compute flag = 0
END
Compute countlo = $countlo - 6
IsBlack $hrzSlider1, $countlo
Compute posSlider1 = $midSlider - $countlo
Compute flag = 0
END
END

Compute counthi = $midSlider
Compute countlo = $midSlider
Compute flag = 1
IsBlack $hrzSlider2, $midSlider
Compute posSlider2 = 0
Compute flag = 0
END
while $flag > 0
Compute counthi = $counthi + 6
IsBlack $hrzSlider2, $counthi
Compute posSlider2 = $midSlider - $counthi
Compute flag = 0
END
Compute countlo = $countlo - 6
IsBlack $hrzSlider2, $countlo
Compute posSlider2 = $midSlider - $countlo
Compute flag = 0
END
END

Compute counthi = $midSlider
Compute countlo = $midSlider
Compute flag = 1
IsBlack $hrzSlider3, $midSlider
Compute posSlider3 = 0
Compute flag = 0
END
while $flag > 0
Compute counthi = $counthi + 6
IsBlack $hrzSlider3, $counthi
Compute posSlider3 = $midSlider - $counthi
Compute flag = 0
END
Compute countlo = $countlo - 6
IsBlack $hrzSlider3, $countlo
Compute posSlider3 = $midSlider - $countlo
Compute flag = 0
END
END

Compute counthi = $midSlider
Compute countlo = $midSlider
Compute flag = 1
IsBlack $hrzSlider4, $midSlider
Compute posSlider4 = 0
Compute flag = 0
END
while $flag > 0
Compute counthi = $counthi + 6
IsBlack $hrzSlider4, $counthi
Compute posSlider4 = $midSlider - $counthi
Compute flag = 0
END
Compute countlo = $countlo - 6
IsBlack $hrzSlider4, $countlo
Compute posSlider4 = $midSlider - $countlo
Compute flag = 0
END
END

Compute counthi = $midSlider
Compute countlo = $midSlider
Compute flag = 1
IsBlack $hrzSlider5, $midSlider
Compute posSlider5 = 0
Compute flag = 0
END
while $flag > 0
Compute counthi = $counthi + 6
IsBlack $hrzSlider5, $counthi
Compute posSlider5 = $midSlider - $counthi
Compute flag = 0
END
Compute countlo = $countlo - 6
IsBlack $hrzSlider5, $countlo
Compute posSlider5 = $midSlider - $countlo
Compute flag = 0
END
END

Compute counthi = $midSlider
Compute countlo = $midSlider
Compute flag = 1
IsBlack $hrzSlider6, $midSlider
Compute posSlider6 = 0
Compute flag = 0
END
while $flag > 0
Compute counthi = $counthi + 6
IsBlack $hrzSlider6, $counthi
Compute posSlider6 = $midSlider - $counthi
Compute flag = 0
END
Compute countlo = $countlo - 6
IsBlack $hrzSlider6, $countlo
Compute posSlider6 = $midSlider - $countlo
Compute flag = 0
END
END

Compute counthi = $midSlider
Compute countlo = $midSlider
Compute flag = 1
IsBlack $hrzSlider7, $midSlider
Compute posSlider7 = 0
Compute flag = 0
END
while $flag > 0
Compute counthi = $counthi + 6
IsBlack $hrzSlider7, $counthi
Compute posSlider7 = $midSlider - $counthi
Compute flag = 0
END
Compute countlo = $countlo - 6
IsBlack $hrzSlider7, $countlo
Compute posSlider7 = $midSlider - $countlo
Compute flag = 0
END
END

END
</pre>

@@ Line 115: / Line 115: @@
 	// Checks whether the batch is done, breaks loop if so
 	LoadRGB $hrzRed,$verRed
-	delay 2000
+	delay 100
 	if {RGBRed} < 250
 		break

@@ Line 107: / Line 107: @@
 // Crude loop at the moment. Should really monitor the progress bar.
-loop 250
+loop 500
@@ Line 115: / Line 115: @@
 	// Checks whether the batch is done, breaks loop if so
 	LoadRGB $hrzRed,$verRed
-	delay 3000
+	delay 2000
 	if {RGBRed} < 250
 		break

@@ Line 110: / Line 110: @@
-	//Credit to Daniels for this sniplet of code to watch the red progress bar and exit script when the bar disappears (when done).
+	//Credit to Daniels for this sniplet of code to watch the red progress bar
 	// Checks whether the batch is done, breaks loop if so
 	LoadRGB $hrzRed,$verRed

@@ Line 89: / Line 89: @@
 		posSlider7old = 0
 	END
 // Clicks to fire the crematory (need to specify centre of fire button)
 mousepos 62, 91
-delay 150
+delay 200
 LeftClick
@@ Line 134: / Line 142: @@
 		if $posSlider2 > $posSlider2old
 			mousepos $hrzButton3,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 141: / Line 149: @@
 		if $posSlider2 < $posSlider2old
 			mousepos $hrzButton3,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 152: / Line 160: @@
 		if $posSlider4 > $posSlider4old
 			mousepos $hrzButton5,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 159: / Line 167: @@
 		if $posSlider4 < $posSlider4old
 			mousepos $hrzButton5,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 170: / Line 178: @@
 		if $posSlider1 > $posSlider1old
 			mousepos $hrzButton2,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 177: / Line 185: @@
 		if $posSlider1 < $posSlider1old
 			mousepos $hrzButton2,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 199: / Line 207: @@
 		if $clickflag = 1
 			mousepos $hrzButton1,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 213: / Line 221: @@
 		if $clickflag = 1
 			mousepos $hrzButton1,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 232: / Line 240: @@
 		if $clickflag = 1
 			mousepos $hrzButton4,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END
@@ Line 246: / Line 254: @@
 		if $clickflag = 1
 			mousepos $hrzButton4,$vrtButton
-			delay 150
+			delay 200
 			LeftClick
 		END

@@ Line 27: / Line 27: @@
 	Constants
 		//These settings will work on 1024x768. Only change these it you want it work at a different resolution.
@@ Line 32: / Line 38: @@
 		// Vertical position of middle of slider bar
 		midSlider = 270
 		// Vertical position of button centres
 		vrtButton = 350
 		// Horizontal positions of seven slider bars
@@ Line 44: / Line 50: @@
 		hrzSlider6 = 210
 		hrzSlider7 = 246
 		// Horizontal positions of five button centres
 		hrzButton1 = 57
@@ Line 50: / Line 58: @@
 		hrzButton4 = 177
 		hrzButton5 = 217
 		//Leave these alone
@@ Line 93: / Line 108: @@
 loop 250
 	call GETSLIDERPOS

@@ Line 16: / Line 16: @@
 //SACFAR:
 //Sliders numbered left-to-right 1-7.
-//Buttons labeled left-to-right A-E.
+//Buttons labeled left-to-right 1-5.
-//A -> 3, 7
+//Button 1 -> 3, 7
-//B -> 1
+//Button 2 -> 1
-//C -> 2
+//Button 3 -> 2
-//D -> 5, 6
+//Button 4 -> 5, 6
-//E -> 4
+//Button 5 -> 4
 	Constants
 		count = 0
 		counthi = 0
@@ Line 49: / Line 71: @@
 		posSlider6old = 0
 		posSlider7old = 0
 	END
@@ Line 149: / Line 153: @@
 // Two sliders per button control (use centre of mass, i.e. average)
 // Need to alter slider and button numbers for particular crematory
-//Note Editing a slider number is $posSlider#, not comSlider#. You should still have the numbers $comSlider1 and 2 below
+//Note Editing a slider number is $posSlider#, not comSlider#. Do not change the 1 or 2 on $comSlider1 and $comSlider2
 //1st two slider/one button combo: