The Wiki for Tale 5 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

Difference between revisions of "Guilds/PKURFL4X/Phaia"

From ATITD5
Jump to navigationJump to search
 
Line 443: Line 443:
 
|style="font-weight: bold; background-color: #9ACD32"|Yellow Green          ||    ||
 
|style="font-weight: bold; background-color: #9ACD32"|Yellow Green          ||    ||
 
|}
 
|}
 +
 +
<pre>
 +
/ This currently works for my screen resolution 1600 x 900 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)
 +
 +
//PKURFL4X:
 +
//Sliders numbered left-to-right 1-7.
 +
//Buttons labeled left-to-right 1-5.
 +
 +
//Button 1 -> 3
 +
//Button 2 -> 1
 +
//Button 3 -> 7, 2
 +
//Button 4 -> 4, 6
 +
//Button 5 -> 5
 +
 +
 +
 +
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 = 282
 +
 +
// Vertical position of button centres
 +
vrtButton = 362
 +
 +
// Horizontal positions of seven slider bars
 +
hrzSlider1 = 37
 +
hrzSlider2 = 73
 +
hrzSlider3 = 109
 +
hrzSlider4 = 145
 +
hrzSlider5 = 181
 +
hrzSlider6 = 217
 +
hrzSlider7 = 253
 +
 +
 +
// Horizontal positions of five button centres
 +
hrzButton1 = 64
 +
hrzButton2 = 105
 +
hrzButton3 = 144
 +
hrzButton4 = 185
 +
hrzButton5 = 225
 +
 +
 +
// Position of left most point of red line
 +
hrzRed = 35
 +
verRed = 192
 +
 +
 +
 +
//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 90, 54
 +
delay 200
 +
LeftClick
 +
 +
 +
// Clicks to fire the crematory (need to specify centre of fire button)
 +
MousePos 74, 103
 +
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 $posSlider3 > 0
 +
if $posSlider3 > $posSlider3old
 +
mousepos $hrzButton1,$vrtButton
 +
delay 200
 +
LeftClick
 +
END
 +
END
 +
if $posSlider3 < 0
 +
if $posSlider3 < $posSlider3old
 +
mousepos $hrzButton1,$vrtButton
 +
delay 200
 +
LeftClick
 +
END
 +
END
 +
 +
 +
//2nd single slider/button combo:
 +
 +
if $posSlider1 > 0
 +
if $posSlider1 > $posSlider1old
 +
mousepos $hrzButton2,$vrtButton
 +
delay 200
 +
LeftClick
 +
END
 +
END
 +
if $posSlider1 < 0
 +
if $posSlider1 < $posSlider1old
 +
mousepos $hrzButton2,$vrtButton
 +
delay 200
 +
LeftClick
 +
END
 +
END
 +
 +
 +
//3rd single slider/button combo:
 +
 +
if $posSlider5 > 0
 +
if $posSlider5 > $posSlider5old
 +
mousepos $hrzButton5,$vrtButton
 +
delay 200
 +
LeftClick
 +
END
 +
END
 +
if $posSlider5 < 0
 +
if $posSlider5 < $posSlider5old
 +
mousepos $hrzButton5,$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 = ($posSlider2 + $posSlider7)/2
 +
if $comSlider1 > 0
 +
Compute clickflag = 0
 +
if $posSlider2 > $posSlider2old
 +
Compute clickflag = 1
 +
END
 +
if $posSlider7 > $posSlider7old
 +
Compute clickflag = 1
 +
END
 +
if $clickflag = 1
 +
mousepos $hrzButton3,$vrtButton
 +
delay 200
 +
LeftClick
 +
END
 +
END
 +
if $comSlider1 < 0
 +
Compute clickflag = 0
 +
if $posSlider2 < $posSlider2old
 +
Compute clickflag = 1
 +
END
 +
if $posSlider7 < $posSlider7old
 +
Compute clickflag = 1
 +
END
 +
if $clickflag = 1
 +
mousepos $hrzButton3,$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
 +
 +
</pre>

Latest revision as of 18:07, 25 October 2010


Paints

Paint Recipes:

A B C D F G H I K L M N O P R S T V W Y

Color Recipe Checked

A

AliceBlue
AntiqueWhite
Aqua
Aqua Marine
Azure

B

Beige
Bisque
Black
Blanched Almond
Blue
Blue Violet
Brown
Burlywood

C

Cadet Blue
Carrot
Chartreuse
Chocolate
Coral
Cornflower Blue
Cornsilk
Crimson

D

Dark Blue
Dark Cyan
Dark Golden Rod
Dark Gray
Dark Green
Dark Khaki
Dark Magenta
Dark Olive Green
Dark Orange
Dark Orchid
Dark Red
Dark Salmon
Dark Sea Green
Dark Slate Blue
Dark Slate Gray
Dark Turquoise
Dark Violet
Deep Pink
Deep Sky Blue
Dim Gray
Dodger Blue

F

Feldspar
Fire Brick
Floral White
Forest Green
Fuchsia

G

Gainsboro
Ghost White
Gold
Golden Rod
Gray
Green
Green Yellow

H

Honeydew
Hot Pink

I

Indian Red
Indigo
Ivory

K

Khaki

L

Lavender
Lavender Blush
Lawn Green
Lemon Chiffon
Light Blue
Light Coral
Light Cyan
Light Goldenrod Yellow
Light Green
Light Grey
Light Pink
Light Salmon
LightS ea Green
LightS ky Blue
Light Slate Blue
Light Slate Gray
Light Steel Blue
Light Yellow
Lime
Lime Green
Linen

M

Maroon
Medium Aquamarine
Medium Blue
Medium Orchid
Medium Purple
Medium Sea Green
Medium Slate Blue
Medium Spring Green
Medium Turquoise
Medium Violet Red
MidnightBlue
Mint Cream
Misty Rose
Moccasin

N

NavajoWhite|
Navy

O

Old Lace
Olive
Olive Drab
Orange
Orange Red
Orchid

P

PaleGoldenrod
PaleGreen
PaleTurquoise
PaleVioletRed
PapayaWhip
PeachPuff
Peru
Pink
Plum
PowderBlue
Purple

R

Red
Rosy Brown
Royal Blue

S

Saddle Brown
Salmon
Sandy Brown
Sea Green
Seashell
Sienna
Silver
Sky Blue
Slate Blue
Slate Gray
Snow
Spring Green
Steel Blue

T

Tan
Teal
Thistle
Tomato
Turquoise

V

Violet
Violet Red

W

Wheat
White
White Smoke

Y

Yellow
Yellow Green
/ This currently works for my screen resolution 1600 x 900 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)

//PKURFL4X:
//Sliders numbered left-to-right 1-7.
//Buttons labeled left-to-right 1-5.

//Button 1 -> 3
//Button 2 -> 1
//Button 3 -> 7, 2
//Button 4 -> 4, 6
//Button 5 -> 5



	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 = 282

		// Vertical position of button centres
		vrtButton = 362

		// Horizontal positions of seven slider bars
		hrzSlider1 = 37
		hrzSlider2 = 73
		hrzSlider3 = 109
		hrzSlider4 = 145
		hrzSlider5 = 181
		hrzSlider6 = 217
		hrzSlider7 = 253


		// Horizontal positions of five button centres
		hrzButton1 = 64
		hrzButton2 = 105
		hrzButton3 = 144
		hrzButton4 = 185
		hrzButton5 = 225


		// Position of left most point of red line
		hrzRed = 35
		verRed = 192



		//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 90, 54
delay 200
LeftClick


// Clicks to fire the crematory (need to specify centre of fire button)
MousePos 74, 103
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 $posSlider3 > 0
		if $posSlider3 > $posSlider3old
			mousepos $hrzButton1,$vrtButton
			delay 200
			LeftClick
		END
	END
	if $posSlider3 < 0
		if $posSlider3 < $posSlider3old
			mousepos $hrzButton1,$vrtButton
			delay 200
			LeftClick
		END
	END


//2nd single slider/button combo:

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


//3rd single slider/button combo:

	if $posSlider5 > 0
		if $posSlider5 > $posSlider5old
			mousepos $hrzButton5,$vrtButton
			delay 200
			LeftClick
		END
	END
	if $posSlider5 < 0
		if $posSlider5 < $posSlider5old
			mousepos $hrzButton5,$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 = ($posSlider2 + $posSlider7)/2
	if $comSlider1 > 0
		Compute clickflag = 0
		if $posSlider2 > $posSlider2old
			Compute clickflag = 1
		END
		if $posSlider7 > $posSlider7old
			Compute clickflag = 1
		END
		if $clickflag = 1
			mousepos $hrzButton3,$vrtButton
			delay 200
			LeftClick
		END
	END
	if $comSlider1 < 0
		Compute clickflag = 0
		if $posSlider2 < $posSlider2old
			Compute clickflag = 1
		END
		if $posSlider7 < $posSlider7old
			Compute clickflag = 1
		END
		if $clickflag = 1
			mousepos $hrzButton3,$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