Code

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

Constants

//Make sure the "Take..." option is NOT in the pinup menu or else this script will fail (burn your loaded resources).
//Make sure the crematory is completely empty before pinning up the menu, in the upper left corner.
//More instructions/screenshots at http://www.atitd.org/wiki/tale4/User:Cegaiel/Macros/Crematory
//These settings will work on 1024x768. Only change these it you want it work at a different resolution.
// Vertical position of middle of slider bar
midSlider = 265
// Vertical position of button centres
vrtButton = 345
// Horizontal positions of seven slider bars
hrzSlider1 = 30
hrzSlider2 = 66
hrzSlider3 = 102
hrzSlider4 = 138
hrzSlider5 = 174
hrzSlider6 = 210
hrzSlider7 = 246
// Horizontal positions of five button centres

hrzButton1 = 57 hrzButton2 = 97 hrzButton3 = 137 hrzButton4 = 177 hrzButton5 = 217

// Position of left most point of red line hrzRed = 34 verRed = 176

//Leave these alone 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 END

//Click the top of menu to refresh the menu
mousepos 104, 44
delay 200
LeftClick

// Clicks to fire the crematory (need to specify centre of fire button)
mousepos 62, 86
delay 200
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 500

//Credit to Daniels for this sniplet of code to watch the red progress bar //and exit script when the bar disappears (when done).

// Checks whether the batch is done, breaks loop if so LoadRGB $hrzRed,$verRed delay 100 if {RGBRed} < 250 break END

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 200 LeftClick END END if $posSlider2 < 0 if $posSlider2 < $posSlider2old mousepos $hrzButton3,$vrtButton delay 200 LeftClick END END

//2nd single slider/button combo:

if $posSlider3 > 0 if $posSlider3 > $posSlider3old mousepos $hrzButton5,$vrtButton delay 200 LeftClick END END if $posSlider3 < 0 if $posSlider3 < $posSlider3old mousepos $hrzButton5,$vrtButton delay 200 LeftClick END END

//3rd single slider/button combo:

if $posSlider5 > 0 if $posSlider5 > $posSlider5old mousepos $hrzButton2,$vrtButton delay 200 LeftClick END END if $posSlider5 < 0 if $posSlider5 < $posSlider5old mousepos $hrzButton2,$vrtButton delay 200 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#. Do not change the 1 or 2 on $comSlider1 and $comSlider2

//1st two slider/one button combo:
//
//	Compute comSlider1 = ($posSlider1 + $posSlider7)/2
//	if $comSlider1 > 0
//		Compute clickflag = 0
//		if $posSlider1 > $posSlider1old
//			Compute clickflag = 1
//		END
//		if $posSlider7 > $posSlider7old
//			Compute clickflag = 1
//		END
//		if $clickflag = 1
//			mousepos $hrzButton1,$vrtButton
//			delay 200
//			LeftClick
//		END
//	END
//	if $comSlider1 < 0
//		Compute clickflag = 0
//		if $posSlider1 < $posSlider1old
//			Compute clickflag = 1
//		END
//		if $posSlider7 < $posSlider7old
//			Compute clickflag = 1
//		END
//		if $clickflag = 1
//			mousepos $hrzButton1,$vrtButton
//			delay 200
//			LeftClick
//		END
//	END

   if $posSlider1 > $posSlider1old
       if $posSlider1 > $posSlider7
   			mousepos $hrzButton1,$vrtButton

delay 200 LeftClick END

   END
   if $posSlider1 < $posSlider1old
       if $posSlider1 < $posSlider7
					mousepos $hrzButton1,$vrtButton

delay 200 LeftClick END

   END

//2nd two slider/one button combo:

Compute comSlider2 = ($posSlider4 + $posSlider6)/2 if $comSlider2 > 0 Compute clickflag = 0 if $posSlider4 > $posSlider4old Compute clickflag = 1 END if $posSlider6 > $posSlider6old Compute clickflag = 1 END if $clickflag = 1 mousepos $hrzButton4,$vrtButton delay 200 LeftClick END END if $comSlider2 < 0 Compute clickflag = 0 if $posSlider4 < $posSlider4old Compute clickflag = 1 END if $posSlider6 < $posSlider6old Compute clickflag = 1 END if $clickflag = 1 mousepos $hrzButton4,$vrtButton delay 200 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