Sorry your browser is not supported!

// Project: flood_fill 
// Created: 2015-01-13

// Variables and Array setup
global pixelStore as integer[ 640, 430 ]
global pixelStoreStack as integer[ 20000 ]

imgWidth = 640
imgHeight = 430

// set screen properties and images
// picture is 640 x 430
drawImage = LoadImage ( "/media/PIC4.png" )
drawImageScrNum = 1
memBlock = CreateMemblockFromImage ( drawImage )
colour_backGrnd = GetPixel ( memBlock, 0, 0, imgWidth ) // Grab first pixel and set the colour as background colour


// set display properties
// SetVirtualResolution( 1024, 768 )
SetVirtualResolution( imgWidth, imgHeight )
SetOrientationAllowed( 1, 1, 1, 1 ) // 0, 0, 1, 1 horizontal value only but upside turn allowed
SetSyncRate ( 60, 0 )


// display screen
//CreateSprite ( drawImageScrNum, drawImage )
//SetSpritePosition ( drawImageScrNum, 0, 0 )

StoreFillPixels ( memBlock, imgWidth, imgHeight, colour_backGrnd ) 

// ***** Main Game Loop *****
do
		
	FloodFill ( 50, 300, 255, 0, 255, 255, 1, imgWidth, imgHeight )
	
	sync()
	
loop


// ******************** Functions **********************
// Click the + or - to open or close them

function FloodFill ( paint_X, paint_Y, paint_R, paint_G, paint_B, paint_A, paint_F, paint_W, paint_H )
	
	pixelcheck = pixelStore [ paint_X, paint_Y ]
	for rows = 1 to paint_H
		for columns = 1 to paint_W
			if pixelStore [ columns, rows ] = pixelcheck
				DrawBox( columns, rows, columns+1, rows+1, paint_R, paint_G, paint_B, paint_A, paint_F )
			endif
		next columns
	next rows
	
endfunction

// grab Memory Block pixels into an array from screen to store each fill area as a seperate value
function StoreFillPixels ( memBlockInput, img_width, img_height, colour_back )
		
	for y = 0 to img_height
		for x = 0 to img_width
			pixelStore [ img_width, img_height ] = 0
		next x
	next y
	for i = 0 to 20000
		pixelStoreStack [ i ] = 0
	next i 
	
			
	newFillAreaRow = 0
	
	for rows = 1 to img_height
		for columns = 1 to img_width
			
			colour_test = GetPixel ( memBlockInput, columns-1, rows-1, img_width )
			
			if colour_test = colour_back
				colourAbove = 0
				colourLeft = 0
				if rows > 1 then colourAbove = pixelStore [ columns, rows - 1 ]
				if columns > 1 then colourLeft = pixelStore [ columns - 1 , rows ]
				
				if colourAbove = 0 and colourLeft = 0
					newFillAreaRow = newFillAreaRow + 1
					fillAreaNum = newFillAreaRow
					pixelStoreStack [ newFillAreaRow ] = rows
				else
					if colourLeft <> 0 and colourAbove <> 0
						if colourLeft = colourAbove
							fillAreaNum = colourLeft
						else
							newColour = colourAbove
							oldColour = colourLeft
							
							// Checks rows/columns for new number that should be same as current fill and changes to this
							for rowsAgain = pixelStoreStack [ oldColour ] to rows
								for columnsAgain = 1 to img_width
									if pixelStore [ columnsAgain, rowsAgain ] = oldColour
										pixelStore [ columnsAgain, rowsAgain ] = newColour
										if rowsAgain < pixelStoreStack [ newColour ] then pixelStoreStack [ newColour ] = rowsAgain
									endif
								next columnsAgain
							next rowsAgain
							
							fillAreaNum = newColour
						endif
					else
						fillAreaNum = colourLeft + colourAbove
					endif
				endif
				pixelStore [ columns, rows ] = fillAreaNum
			endif
			
		next columns
	next rows
	
endfunction



// function to obtain colour value (RGB) and Alpha value if needed of each pixel in the memory block
function GetPixel ( memBlockIn, x, y, width )
	
	offsetPixel = 12 + (( x + ( y * width )) * 4 )
	Red = GetMemBlockByte ( memBlockIn, offsetPixel )
	Green = GetMemBlockByte ( memBlockIn, offsetPixel + 1 )
	Blue = GetMemBlockByte ( memBlockIn, offsetPixel + 2 )
	Alpha = GetMemBlockByte ( memBlockIn, offsetPixel + 3 )
	PixelColourRGB = Red + Green + Blue
	
endfunction PixelColourRGB

// Project: flood_fill 
// Created: 2015-01-13
// By: Paul Harthen

// Variables and Array setup
global pixelStore as integer[ 640, 430 ]
global pixelStoreStack as integer[ 20000 ]

imgWidth = 640
imgHeight = 430

drawImageScrNum = 1

// set screen properties and images
// picture is 640 x 430 and has 2 colours for white background and black lines
drawImage = LoadImage ( "/media/PIC4.png" )
memBlock = CreateMemblockFromImage ( drawImage )
colour_backGrnd = GetPixel ( memBlock, 0, 0, imgWidth ) // Grab first pixel and set the colour as background colour, this will not be a black line on the pic


// set display properties
SetVirtualResolution( imgWidth, imgHeight )
SetOrientationAllowed( 1, 1, 1, 1 ) // 0, 0, 1, 1 Settings for horizontal value only but upside down turn allowed
SetSyncRate ( 60, 0 )

StoreFillPixels ( memBlock, imgWidth, imgHeight, colour_backGrnd ) 

CreateSprite ( drawImageScrNum, drawImage )
SetSpritePosition ( drawImageScrNum, 0, 0 )
sync ()

// ***** Main Game Loop *****
do
	// Check for the pointer to be pressed
	if GetPointerPressed()=1
		// Store pointer x and y values for position on screen
		mouseX = GetPointerX()
		mouseY = GetPointerY()
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			Sync()
		endwhile
		// Checks pointer is in the main screen area to fill picture
		if mouseX >= 0 and mouseX <= imgWidth and mouseY >= 0 and mouseY <= imgHeight
			// Checks the pixel Array at the pointer location
			pixelcheck = pixelStore [ mouseX+1, mouseY+1 ]
			// If this location contains a black line then ignore the fill as don't want to fill in the black lines
			// If location is the background then colour the area with a random colour but not transparent re Alpha
			if pixelcheck <> 0
				red = Random(1, 255)
				green = Random(1, 255)
				blue = Random(1, 255)
				alpha = 255
				FloodFill ( memBlock, mouseX, mouseY, imgWidth, imgHeight, red, green, blue, alpha )
				fillImage = CreateImageFromMemblock( memBlock )
				SetSpriteImage ( drawImageScrNum, fillImage )
			endif
		endif
	endif
    Sync()
   	
loop


// ******************** Functions **********************


// grab Memory Block pixels into an array from screen to store each fill area as a seperate value
function StoreFillPixels ( memBlockInput, img_width, img_height, colour_back )
		
	// This fills the Array values to zero's	
	for y = 0 to img_height
		for x = 0 to img_width
			pixelStore [ img_width, img_height ] = 0
		next x
	next y
	for i = 0 to 20000
		pixelStoreStack [ i ] = 0
	next i 
				
	newFillAreaRow = 0
	/*
	This For/Next routine checks every pixel in the memBlock and also checks the pixel
	above and to the left for areas to fill with numbers.
	This creates an Array with numbers similar to a Picture By Numbers card.
	I use this method instead of flood fill on the fly for speed of colouring
	otherwise it is too slow.
	*/
	for rows = 1 to img_height
		for columns = 1 to img_width
			// Sets colour_test to pixel value at co-ords in the memBlock
			colour_test = GetPixel ( memBlockInput, columns-1, rows-1, img_width )
			// If the colour_test is equal to the background colour then find fill area (zero is a black line so will leave Array value as zero)
			if colour_test = colour_back
				// Sets pixels above and left to zero incase rows and columns are at the edge of the screen
				colourAbove = 0
				colourLeft = 0
				// Checks for edge of screen
				if rows > 1 then colourAbove = pixelStore [ columns, rows - 1 ]
				if columns > 1 then colourLeft = pixelStore [ columns - 1 , rows ]
				
				if colourAbove = 0 and colourLeft = 0
					newFillAreaRow = newFillAreaRow + 1
					fillAreaNum = newFillAreaRow
					pixelStoreStack [ newFillAreaRow ] = rows
				else
					if colourLeft <> 0 and colourAbove <> 0
						if colourLeft = colourAbove
							fillAreaNum = colourLeft
						else
							newColour = colourAbove
							oldColour = colourLeft
							/*
							The below For/Next Stack:
							Checks rows/columns for new fill area number that
							has been created and if this area is not enclosed
							with a black line changes these numbers to the correct
							fill area number							
							*/
							for rowsAgain = pixelStoreStack [ oldColour ] to rows
								for columnsAgain = 1 to img_width
									if pixelStore [ columnsAgain, rowsAgain ] = oldColour
										pixelStore [ columnsAgain, rowsAgain ] = newColour
										if rowsAgain < pixelStoreStack [ newColour ] then pixelStoreStack [ newColour ] = rowsAgain
									endif
								next columnsAgain
							next rowsAgain
							
							fillAreaNum = newColour
						endif
					else
						fillAreaNum = colourLeft + colourAbove
					endif
				endif
				// Sets a fill area value to the pixelStore Array - This Array is the same size as the colouring screen
				pixelStore [ columns, rows ] = fillAreaNum
			endif
			
		next columns
	next rows
endfunction


// function to obtain colour value (RGB) and Alpha value if needed of each pixel in the memory block
function GetPixel ( memBlockIn, x, y, width )
	offsetPixel = 12 + (( x + ( y * width )) * 4 )
	Red = GetMemBlockByte ( memBlockIn, offsetPixel )
	Green = GetMemBlockByte ( memBlockIn, offsetPixel + 1 )
	Blue = GetMemBlockByte ( memBlockIn, offsetPixel + 2 )
	Alpha = GetMemBlockByte ( memBlockIn, offsetPixel + 3 )
	PixelColourRGB = Red + Green + Blue
	/*
	I add the values for RGB together and return this value as one integer as I do not
	need seperate values to check my fill areas for the Array in pixelStore, I only
	need to check for the values of the background and the black lines in my
	image to colour
	*/
endfunction PixelColourRGB

// Function to fill area with colour inside the memblock
function FloodFill ( memBlockIn, x, y, width, height, red, green, blue, alpha )
	/*
	This checks the area of the image at the x/y co-ords where the pointer is and
	stores this value in pixelcheck.
	It then checks the full Array of pixelStore for the image and stores a new
	RGBA value to the memBlock at the location on the Array with the same value
	as in pixelcheck, thus filling the numbered area like colour by numbers card.
	*/
	pixelcheck = pixelStore [ x+1, y+1 ]
	for rows = 1 to height
		for columns = 1 to width
			if pixelStore [ columns, rows ] = pixelcheck
				offsetPixel = 12 + (( (columns-1) + ( ( rows-1) * width )) * 4 )
				SetMemblockByte( memBlockIn, offsetPixel, red )
				SetMemblockByte( memBlockIn, offsetPixel+1, green )
				SetMemblockByte( memBlockIn, offsetPixel+2, blue )
				SetMemblockByte( memBlockIn, offsetPixel+3, alpha )
			endif
		next columns
	next rows
endfunction 

// Project: colour_pallette 
// Created: 2015-01-21
// By: Paul Harthen

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816 

colSpeedMax# = 50

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 1 )


// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times

colSpritePosY as float [ numColours ]
// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * GetSpriteHeight (colImage [i]) - colStartPos_Y )
	colSpritePosY [i] =  i * GetSpriteHeight (colImage [i]) - colStartPos_Y
next i


// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) 
						
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

		oldMouseY# = mouseY#
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed# = oldMouseY# - mouseY#
					if colSpeed# > colSpeedMax# then colSpeed# = colSpeedMax# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) - colSpeed#
						
						
						if moveColSprite# <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite# = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] ) - colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] ) - colSpeed# 
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed# = mouseY# - oldMouseY#
					if colSpeed# > colSpeedMax# then colSpeed# = colSpeedMax# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) + colSpeed#
						
						if moveColSprite# => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite# = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] ) + colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] ) + ColSpeed#
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
			endif
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
			// Draw Colour Buttons
			for i = 0 to numColours
				SetSpritePosition ( colButton[i] ,colStartPos_X , colSpritePosY[i] )
			next i
									
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
	SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

// Project: colour_pallette 
// Created: 2015-01-21
// By: Paul Harthen

// Variables, Arrays and Types
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800



#Constant numColours  = 27 // 28 colours as 0 is also counted
#Constant numPages = 3 // 4 pages as 0 is counted

colStartPos_X = 1150
colStartPos_Y# = 0
colEndPos_Y# = imgHeight_Y-128
colEndLimit_Y# = imgHeight_Y*3.48 // 2784
colSpeedMax# = 100
colourPaint = 4

Type colourType
	iImage as integer
	iButton as integer
	iRed as integer
	iGreen as integer
	iBlue as integer
Endtype
colour as colourType[numColours]

Type pageType
	iImage as integer
	iPicture as integer
Endtype
page as pageType[numPages]

// set display
SetVirtualResolution(imgWidth_X, imgHeight_Y)
SetOrientationAllowed(1, 1, 1, 1)
SetSyncRate (60, 0)

// Draw the main drawing area as sprite to screen
for i = 0 to numPages
	page[i].iImage = LoadImage("/media/pages/PIC" + str(i) + ".png")
	page[i].iPicture = CreateSprite(page[i].iImage)
	//SetSpriteScale(page[i].iPicture, 1.8, 1.86)
	SetSpritePosition (page[i].iPicture, 0, 0)
	SetSpriteVisible(page[i].iPicture, 0)
next i
// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible(page[3].iPicture, 1)

// Set up colour sprites
for i = 0 to numColours
	colour[i].iImage = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colour[i].iButton = CreateSprite (colour[i].iImage)
	SetSpritePosition(colour[i].iButton ,colStartPos_X , i * GetSpriteHeight(colour[i].iButton) - colStartPos_Y#)
	SetSpriteAnimation (colour[i].iButton, 130, 128, 2) // x width, y width, number of frames
next i

// Set up select colour sprite
selectImage = CreateImageColor(0, 0, 0, 255)
selectIcon = CreateSprite (selectImage)
SetSpritePosition(selectIcon ,colStartPos_X + 65 , GetSpriteY(colour[colourPaint].iButton) + 64)
SetSpriteVisible(selectIcon, 0)
PlaySprite (colour[colourPaint].iButton, 2, 0, 1, 2) // speed, loop 0 for no and 1 for yes, start frame, end frame



// Main loop
do
    mouseX# = GetPointerX()
    mouseY# = GetPointerY()
    
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0 
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX()
			newMouseY# = GetPointerY()
					
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
		selectColour = 0
		
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

		oldMouseY# = mouseY#
		SetSpritePosition(selectIcon, mouseX#, mouseY#)
		selectColour = 1
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX()
			mouseY# = GetPointerY()
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed# = oldMouseY# - mouseY#
					if colSpeed# > 2
						selectColour = 0
						elseif colSpeed# > colSpeedMax#
							colSpeed# = colSpeedMax# 
					endif
					
					
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY(colour[numColours].iButton) <= colEndPos_Y#
							SetSpritePosition(colour[i].iButton ,colStartPos_X ,i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y# )
						else
							SetSpritePosition(colour[i].iButton ,colStartPos_X ,GetSpriteY(colour[i].iButton) - colSpeed# )
						endif
					next i
					
				elseif mouseY# > oldMouseY#
					// Colours Move Down
					
					colSpeed# = mouseY# - oldMouseY#
					if colSpeed# > 2
						selectColour = 0
						elseif colSpeed# > colSpeedMax#
							colSpeed# = colSpeedMax# 
					endif
					
					
					oldMouseY# = mouseY#
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY (colour[0].iButton) >= colStartPos_Y#
							SetSpritePosition(colour[i].iButton ,colStartPos_X ,i * GetSpriteHeight(colour[i].iButton) - colStartPos_Y#)
						else
							SetSpritePosition(colour[i].iButton ,colStartPos_X ,GetSpriteY(colour[i].iButton) + colSpeed#)
						endif
					next i
					
			endif
										
			Sync()
		endwhile
		if selectColour = 1
			for i = 0 to numColours
				if GetSpriteCollision(selectIcon, colour[i].iButton)
					if colourPaint <> i
						oldColourPaint = colourPaint
						colourPaint = i
						PlaySprite (colour[colourPaint].iButton, 30, 0, 1, 2) 
						PlaySprite (colour[oldColourPaint].iButton, 30, 0, 2, 1)
						sync()
					endif
				endif
			next i
		endif
	endif	
			
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

// Project: Colour Splash V1 
// Created: 2015-01-28

// Load music and play on repeat
titleMusic = LoadMusic("/media/sounds/csplash.mp3")
SetMusicFileVolume( titleMusic, 30 ) // 30 is the volume for the file between 0 and 100
PlayMusic( titleMusic, 1 ) // 1 makes music loop forever


// Variables, Arrays and Types
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

#Constant pageWidth = 1150 // was imgWidth 640
#Constant pageHeight = 800 // was imgHeight 430


#Constant numColours  = 27 // 28 colours as 0 is also counted
#Constant numPages = 1 // 5 pages as 0 is counted, last page is blank

colStartPos_X = 1150
colStartPos_Y# = 0
colEndPos_Y# = imgHeight_Y-128
colEndLimit_Y# = imgHeight_Y*3.48 // 2784
colSpeedMax# = 100
colourPaint = 4

Type colourType
	iImage as integer
	iButton as integer
	iRed as integer
	iGreen as integer
	iBlue as integer
Endtype
colour as colourType[numColours]

pageScrollSpeed = 20
pageCount = 0

Type pageType
	iImage as string
	iBack as string
	iPicture as integer
	Endtype
page as pageType[numPages]

// set display
SetVirtualResolution(imgWidth_X, imgHeight_Y)
SetOrientationAllowed(1, 1, 1, 1)
SetSyncRate (60, 0)

// Draw the main drawing area pages
for i = 0 to numPages
	page[i].iImage = "/media/pages/PIC" + str(i) + ".png"
	page[i].iBack = "/media/pages/PIC" + str(i) + "fill.png"
	
	if i >= 0 and i <= 1 
		page[i].iPicture = CreateSprite(LoadImage(page[i].iImage))
		SetSpritePosition (page[i].iPicture, 0, i * imgHeight_Y)
	endif
next i
//SetSpriteDepth(page[4].iPicture, 0)

//fillImage = LoadImage (page[pageCount].iBack)
//colImage = LoadImage (page[pageCount].iImage)
memBlockcol = CreateMemblockFromImage (LoadImage (page[pageCount].iImage))
memBlockfill = CreateMemblockFromImage (LoadImage (page[pageCount].iBack))


// Set up colour sprites
for i = 0 to numColours
	colour[i].iImage = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colour[i].iButton = CreateSprite (colour[i].iImage)
	SetSpritePosition(colour[i].iButton ,colStartPos_X , i * GetSpriteHeight(colour[i].iButton) - colStartPos_Y#)
	SetSpriteAnimation (colour[i].iButton, 130, 128, 2) // x width, y width, number of frames
next i
// Read RGB values into colour RGB for icons
gosub RGBData

// Set up select colour sprite 1x1 pixel sprite to check collision with colour icons
selectImage = CreateImageColor(0, 0, 0, 255)
selectIcon = CreateSprite (selectImage)
SetSpritePosition(selectIcon ,colStartPos_X + 65 , GetSpriteY(colour[colourPaint].iButton) + 64)
SetSpriteVisible(selectIcon, 0)
PlaySprite (colour[colourPaint].iButton, 2, 0, 1, 2) // speed, loop 0 for no and 1 for yes, start frame, end frame


// Main loop
do
	// Mouse co-ords for swipes and most of program
    mouseX# = GetPointerX()
    mouseY# = GetPointerY()
    // Mouse co-ords for colour fill
    mouseX = GetPointerX()
	mouseY = GetPointerY()
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Paint page section
		oldMouseY# = mouseY#
		selectColour = 0
		pagePaint = 1
		pageScrollFin = 0
		
		// Test for pointer to swipe
		while GetPointerReleased()=0 
			mouseX# = GetPointerX()
			mouseY# = GetPointerY()
					
			if mouseY# < oldMouseY#
				// Page Moves Up
				pageSpeed# = oldMouseY# - mouseY#
				if pageSpeed# > colSpeedMax# then pageSpeed# = colSpeedMax#
					
				if pageSpeed# > 20
					pagePaint = 0
					pageScrollFin = 1
				endif
				oldMouseY# = mouseY#
				elseif mouseY# > oldMouseY#
					// Colours Move Down
					pageSpeed# = mouseY# - oldMouseY#
					if pageSpeed# >100 then pageSpeed# = 100
						if pageSpeed# > 20
							pagePaint = 0
							pageScrollFin = 2
						endif
						oldMouseY# = mouseY#
					endif
					Sync()		
		endwhile
		
		// Scroll pages up
		if pageScrollFin = 1 and pageCount < numPages
						
			pageCount = pageCount + 1
			if pageCount > numPages then pageCount = numPages
			SetSpritePosition(page[1].iPicture ,0 , imgHeight_Y)
			//SetSpriteImage(page[1].iPicture, page[pageCount].iImage)
			SetSpriteImage(page[1].iPicture, LoadImage(page[pageCount].iImage))
				
			while GetSpriteY(page[0].iPicture) >= -imgHeight_Y or GetSpriteY(page[1].iPicture) >= 0
				for i = 0 to 1
					SetSpritePosition(page[i].iPicture ,0 , GetSpriteY(page[i].iPicture) - pageScrollSpeed)
				next i
				Sync()
			endwhile
			
			//SetSpriteImage(page[0].iPicture, page[pageCount].iImage)
			SetSpriteImage(page[0].iPicture, LoadImage(page[pageCount].iImage))
			SetSpritePosition(page[0].iPicture ,0 , 0)
			SetSpritePosition(page[1].iPicture ,0 , imgHeight_Y)
			Sync()
						
			DeleteMemblock(memBlockcol)
			DeleteMemblock(memBlockfill)
			memBlockcol = CreateMemblockFromImage (LoadImage (page[pageCount].iImage))
			memBlockfill = CreateMemblockFromImage (LoadImage (page[pageCount].iBack))
												
			Sleep(100)
			pageScrollFin = 0
		endif
		
		// Scroll pages down
		if pageScrollFin = 2 and pageCount > 0
			
			pageCount = pageCount - 1
			if pageCount < 0 then pageCount = 0
			SetSpritePosition(page[1].iPicture ,0 , -imgHeight_Y)
			SetSpriteImage(page[1].iPicture, LoadImage (page[pageCount].iImage))
				
			while GetSpriteY(page[0].iPicture) <= imgHeight_Y or GetSpriteY(page[1].iPicture) <= 0
				for i = 0 to 1
					SetSpritePosition(page[i].iPicture ,0 , GetSpriteY(page[i].iPicture) + pageScrollSpeed)
				next i
				Sync()
			endwhile
			
			SetSpriteImage(page[0].iPicture, LoadImage(page[pageCount].iImage))
			SetSpritePosition(page[0].iPicture ,0 , 0)
			SetSpritePosition(page[1].iPicture ,0 , -imgHeight_Y)
			Sync()
			
			DeleteMemblock(memBlockcol)
			DeleteMemblock(memBlockfill)
			memBlockcol = CreateMemblockFromImage (LoadImage (page[pageCount].iImage))
			memBlockfill = CreateMemblockFromImage (LoadImage (page[pageCount].iBack))
			
			Sleep(100)
			pageScrollFin = 0
		endif
		
		// This section will have the colour fill routine in the loop
		if pagePaint = 1
			// Fill routine here
			// Checks the pixel Array at the pointer location
			
			pixelcheck = GetPixel ( memBlockfill, mouseX, mouseY, pageWidth )
								
			// If this location contains a black line then ignore the fill as don't want to fill in the black lines
			// If location is the background then colour the area with a random colour but not transparent re Alpha
			if pixelcheck <> 0
				// colourPaint
				red = colour[colourPaint].iRed
				green = colour[colourPaint].iGreen
				blue = colour[colourPaint].iBlue
				alpha = 255
				nRGB = red + (green << 8) + (blue << 16) + (alpha << 24)
				
				FloodFill ( memBlockfill, memBlockcol, mouseX, mouseY, pageWidth, pageHeight, nRGB, pixelcheck )
				
				DeleteImage(fillImage)
				fillImage = CreateImageFromMemblock( memBlockcol )
				SetSpriteImage (page[0].iPicture, fillImage )
								
				Sync()			
			endif
			
			pagePaint = 0
		Endif
		
		// End of page part and onto colour section
		
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Colour selection section
		oldMouseY# = mouseY#
		SetSpritePosition(selectIcon, mouseX#, mouseY#)
		selectColour = 1
		pagePaint = 0
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX()
			mouseY# = GetPointerY()
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					colSpeed# = oldMouseY# - mouseY#
					if colSpeed# > 2
						selectColour = 0
						elseif colSpeed# > colSpeedMax#
							colSpeed# = colSpeedMax# 
					endif
					oldMouseY# = mouseY#
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY(colour[numColours].iButton) <= colEndPos_Y#
							SetSpritePosition(colour[i].iButton ,colStartPos_X ,i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y# )
							else
								SetSpritePosition(colour[i].iButton ,colStartPos_X ,GetSpriteY(colour[i].iButton) - colSpeed# )
							endif
					next i
					
				elseif mouseY# > oldMouseY#
					// Colours Move Down
					colSpeed# = mouseY# - oldMouseY#
					if colSpeed# > 2
						selectColour = 0
						elseif colSpeed# > colSpeedMax#
							colSpeed# = colSpeedMax# 
					endif
					oldMouseY# = mouseY#
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY (colour[0].iButton) >= colStartPos_Y#
							SetSpritePosition(colour[i].iButton ,colStartPos_X ,i * GetSpriteHeight(colour[i].iButton) - colStartPos_Y#)
							else
								SetSpritePosition(colour[i].iButton ,colStartPos_X ,GetSpriteY(colour[i].iButton) + colSpeed#)
							endif
					next i
			endif
			Sync()
		endwhile
		if selectColour = 1
			for i = 0 to numColours
				if GetSpriteCollision(selectIcon, colour[i].iButton)
					if colourPaint <> i
						oldColourPaint = colourPaint
						colourPaint = i
						PlaySprite (colour[colourPaint].iButton, 30, 0, 1, 2) 
						PlaySprite (colour[oldColourPaint].iButton, 30, 0, 2, 1)
						sync()
					endif
				endif
			next i
		endif
	endif	
	
    Sync()
     
loop

// RGB Data values
RGBData:
colour[ 0].iRed=127 : colour[ 0].iGreen=127 : colour[ 0].iBlue=127
colour[ 1].iRed=255 : colour[ 1].iGreen=255 : colour[ 1].iBlue=255
colour[ 2].iRed=255 : colour[ 2].iGreen=213 : colour[ 2].iBlue=226
colour[ 3].iRed=255 : colour[ 3].iGreen=174 : colour[ 3].iBlue=201
colour[ 4].iRed=255 : colour[ 4].iGreen=136 : colour[ 4].iBlue=174
colour[ 5].iRed=255 : colour[ 5].iGreen= 64 : colour[ 5].iBlue= 64
colour[ 6].iRed=236 : colour[ 6].iGreen=  0 : colour[ 6].iBlue=  0
colour[ 7].iRed=200 : colour[ 7].iGreen=  0 : colour[ 7].iBlue=  0
colour[ 8].iRed=255 : colour[ 8].iGreen=125 : colour[ 8].iBlue=  0
colour[ 9].iRed=193 : colour[ 9].iGreen=138 : colour[ 9].iBlue=108
colour[10].iRed=175 : colour[10].iGreen=109 : colour[10].iBlue= 73
colour[11].iRed=168 : colour[11].iGreen= 84 : colour[11].iBlue=  0
colour[12].iRed=255 : colour[12].iGreen=255 : colour[12].iBlue=130
colour[13].iRed=255 : colour[13].iGreen=255 : colour[13].iBlue=  0
colour[14].iRed=166 : colour[14].iGreen=234 : colour[14].iBlue= 51
colour[15].iRed=157 : colour[15].iGreen=202 : colour[15].iBlue= 23
colour[16].iRed=108 : colour[16].iGreen=255 : colour[16].iBlue=108
colour[17].iRed=  0 : colour[17].iGreen=255 : colour[17].iBlue=  0
colour[18].iRed=  0 : colour[18].iGreen=191 : colour[18].iBlue=  0
colour[19].iRed=159 : colour[19].iGreen=255 : colour[19].iBlue=255
colour[20].iRed= 94 : colour[20].iGreen=255 : colour[20].iBlue=255
colour[21].iRed=  0 : colour[21].iGreen=247 : colour[21].iBlue=247
colour[22].iRed=  0 : colour[22].iGreen=180 : colour[22].iBlue=247
colour[23].iRed=  0 : colour[23].iGreen=100 : colour[23].iBlue=247
colour[24].iRed=  0 : colour[24].iGreen=  0 : colour[24].iBlue=255
colour[25].iRed=194 : colour[25].iGreen=118 : colour[25].iBlue=194
colour[26].iRed=184 : colour[26].iGreen= 36 : colour[26].iBlue=255
colour[27].iRed=139 : colour[27].iGreen=  0 : colour[27].iBlue=206
return


// ********** Functions below here **********

// function to obtain colour value (RGB) and Alpha value if needed of each pixel in the memory block
function GetPixel(memBlock, x, y, width)
	
	offsetPixel = 12 + (( x + ( y * width )) * 4 )
	PixelColourRGB = GetMemBlockByte ( memBlock, offsetPixel )
	
endfunction PixelColourRGB

// Function to fill area with colour inside the memblock
function FloodFill ( memBlockSRC, memBlockOUT, x, y, width, height, nRGB, pixelcheck )	
		
	starth = 1: startw = 1: heightend = height : widthend = width
	
	/*
	if pixelcheck = 255    // Cloud 1 area
		starth = 1 : heightend = 80
		startw = 1 : widthend = 205
	endif
	if pixelcheck = 254   // Sky area
		starth = 1 : heightend = 418
		startw = 1 : widthend = width
	endif
	if pixelcheck = 253    // Cloud 2 area
		starth = 1 : heightend = 84
		startw = 391 : widthend = 895
	endif
	if pixelcheck = 252    // Sun area
		starth = 1 : heightend = 178
		startw = 935 : widthend = width
	endif
	if pixelcheck = 237    // Mouth area
		starth = 272 : heightend = 290
		startw = 387 : widthend = 438
	endif
	*/
	
	for rows = starth to heightend
        RowAddress= 12 + ((( rows-1) * width )*4)
		for columns = startw to widthend
			
			offsetPixel = RowAddress + ((columns-1) * 4 )
			if GetMemBlockByte ( memBlockSRC, offsetPixel ) = pixelcheck
				
				SetMemblockInt( memBlockOUT, offsetPixel, nRGB )
			endif
		
		next columns
	next rows
		 
endfunction 

// Includes
#include "template.h"

// Namespace
using namespace AGK;

app App;

int GetPixel ( unsigned int memBlockin, int x, int y, int width);
void FloodFill ( unsigned int memBlockSRC, unsigned int memBlockOUT, int x, int y, int width, int height, int nRGB, int pixelcheck );

int imgWidth = 1150;
int imgHeight = 800;
unsigned int drawImageScrNum = 1;
unsigned int drawImage;
unsigned int fillImage;
unsigned int memBlockcol;
unsigned int memBlockfill;
int mouseX;
int mouseY;
int red;
int green;
int blue;
int alpha;
int nRGB;
int pixelcheck;


void app::Begin(void)
{
	agk::SetVirtualResolution (1150, 800);
	agk::SetClearColor( 151,170,204 );
	agk::SetSyncRate(60,0);
	agk::SetScissor(0,0,0,0);
	
	drawImageScrNum = 1;
	drawImage = agk::LoadImage ("/pages/pic1.png");
	fillImage = agk::LoadImage ("/pages/pic1fill.png");
	memBlockcol = agk::CreateMemblockFromImage (drawImage);
	memBlockfill = agk::CreateMemblockFromImage (fillImage);
	

	agk::DeleteImage (fillImage);
	
	agk::CreateSprite ( drawImageScrNum, drawImage );
	agk::SetSpritePosition ( drawImageScrNum, 0, 0 );
}

void app::Loop (void)
{
	if ( agk::GetPointerPressed()==1 ) {
		
		mouseX = agk::GetPointerX();
		mouseY = agk::GetPointerY();
		
//commented this out becuase this created an infinite loop that I could break out of; I'm thinking you are trying to use this to create a slow fill effect, i don't know
		//do
		//{
		//	agk::Sync();
		//}while (agk::GetPointerReleased()==0);
				
		if ( mouseX >= 0 && mouseX <= imgWidth && mouseY >= 0 && mouseY <= imgHeight ) {
			pixelcheck = GetPixel ( memBlockfill, mouseX, mouseY, imgWidth );
			
			if ( pixelcheck != 0 ) {
				
				red = agk::Random(1, 255);
				green = agk::Random(1, 255);
				blue = agk::Random(1, 255);
				alpha = 255;
												
				nRGB = agk::MakeColor(red,green,blue);
				
				FloodFill ( memBlockfill, memBlockcol, mouseX, mouseY, imgWidth, imgHeight, nRGB, pixelcheck );
								
				agk::DeleteImage(fillImage);
				fillImage = agk::CreateImageFromMemblock( memBlockcol );
				agk::SetSpriteImage ( drawImageScrNum, fillImage );
							
			}
		}
	}
	
	
	agk::Print(pixelcheck);
	
    agk::Sync();
}

int GetPixel ( unsigned int memBlockin, int x, int y, int width)
{
	int offsetPixel;
	int PixelColourRGB;

	offsetPixel = 12 + (( x + ( y * width )) * 4 );
	PixelColourRGB = agk::GetMemblockByte ( memBlockin, offsetPixel );
	
	return PixelColourRGB;
}

void FloodFill ( unsigned int memBlockSRC, unsigned int memBlockOUT, int x, int y, int width, int height, int nRGB, int pixelcheck )	
{	
	int RowAddress;
	int offsetPixel;

	for (int rows=1; rows<height; rows++){
		RowAddress= 12 + ((( rows-1) * width )*4);
		for (int columns=1; columns<width; columns++){
			offsetPixel = RowAddress + ((columns-1) * 4 );
			if ( agk::GetMemblockByte( memBlockSRC, offsetPixel ) == pixelcheck ) {
				agk::SetMemblockInt( memBlockOUT, offsetPixel, nRGB );
			}
		}
	}
}

void app::End (void)
{

}

// set properties
#Constant scrWidth = 1280
#Constant scrHeight = 800
#Constant pageWidth = 1150
#Constant pageHeight = 800
#Constant maxPagePieces = 94 
#Constant numPages = 4
pageNum = 1

// set display properties
SetVirtualResolution( scrWidth, scrHeight )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 0, 0 )

//Read Page Information
Type pageType
	sMapFile as string
	sDatFile as string
Endtype
page as pageType[numPages]

for i = 1 to numPages
	page[i].sMapFile = "/media/pages/picdat" + str(i) + "/master.png"
	page[i].sDatFile = "/media/pages/picdat" + str(i) + "/map.dat"
next i

memBlockMap = CreateMemblockFromImage (LoadImage (page[pageNum].sMapFile))

//Read Sprite Data
Type spriteType
	iSprImage as integer
	iSprNum as integer
	iLeft as integer
	iTop as integer
	iWidth as integer
	iHeight as integer
Endtype
sprite as spriteType[maxPagePieces]

OpenToRead ( 1, page[pageNum].sDatFile )
spriteTotal = ReadInteger ( 1 )
for skip = 1 to 3
	ReadInteger ( 1 )
next skip

for i = 1 to spriteTotal
	sprite[i].iLeft = ReadInteger ( 1 )
	sprite[i].iTop = ReadInteger ( 1 )
	sprite[i].iWidth = ReadInteger ( 1 )
	sprite[i].iHeight = ReadInteger ( 1 )
	if i < 10
		zero$="00"
		elseif i >= 10 and i < 100
			zero$="0"
			else 
				zero$=""
	endif
	sprite[i].iSprImage = LoadImage ( "/media/pages/picdat" + str(pageNum) + "/op" + zero$ + str(i) +".png" )
	sprite[i].iSprNum = i
	CreateSprite ( sprite[i].iSprNum, sprite[i].iSprImage )
	SetSpritePosition ( sprite[i].iSprNum, sprite[i].iLeft, sprite[i].iTop )
next i
CloseFile ( 1 )


SetPrintColor( 0, 0, 0 )
sprTest=1

do
	
	mouseX = GetPointerX()
	mouseY = GetPointerY()
	
	if GetPointerPressed()=1 and mouseX >= 0 and mouseX < pageWidth and mouseY >= 0 and mouseY <= pageHeight
		
		red = Random(1, 255)
		green = Random(1, 255)
		blue = Random(1, 255)
					
		mapFileID = readMap(memBlockMap, mouseX, mouseY, pageWidth)
		if mapFileID > 0
			SetSpriteColor( sprite[mapFileID].iSprNum, red, green, blue, 255)
		endif
	
	endif
	
	Print("FPS: " + str(ScreenFPS()) ) 
    Sync()
loop

// ********** FUNCTIONS

// Function to read x,y byte of RED value from memBlockMap image
function readMap(memBlock, x, y, width)
	offset = 12 + (( x + ( y * width )) * 4 )
	redVal = GetMemBlockByte ( memBlock, offset )
endfunction redVal

// Project: Colour Splash V2 
// Created: 2015-02-05
// By:      Paul Harthen


// Load music and play on repeat
titleMusic = LoadMusic("/media/sounds/csplash.mp3")
SetMusicFileVolume( titleMusic, 30 ) // 30 is the volume for the file between 0 and 100
PlayMusic( titleMusic, 1 ) // 1 makes music loop forever


// set properties
#Constant scrWidth = 1280
#Constant scrHeight = 800
#Constant pageWidth = 1150
#Constant pageHeight = 800
#Constant maxPagePieces = 94 
#Constant numPages = 4
#Constant numColours  = 27 // 28 colours as 0 is also counted
pageNum = 1

butWidth = 130
butHeight = 128

colEndPos_Y = scrHeight-butHeight
colEndLimit_Y = scrHeight*3.48 // 2784
colSpeedMax = 100
SelectColour = 0

// set display properties
SetVirtualResolution( scrWidth, scrHeight )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 0, 0 )

//Colour Palette 
Type colourType
	iImage as integer
	iButton as integer
	iRed as integer
	iGreen as integer
	iBlue as integer
Endtype
colour as colourType[numColours]

for i = 0 to numColours
	colour[i].iImage = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colour[i].iButton = CreateSprite (colour[i].iImage)
	SetSpritePosition(colour[i].iButton ,pageWidth , i * GetSpriteHeight(colour[i].iButton))
	SetSpriteAnimation (colour[i].iButton, butWidth, butHeight, 2)
next i

gosub RGBData
colourPaint = colour[4].iButton
red = colour[4].iRed
green = colour[4].iGreen
blue = colour[4].iBlue
alpha = 255
PlaySprite (colourPaint, 2, 0, 1, 2) // speed, loop 0 for no and 1 for yes, start frame, end frame

//Read Page Information
Type pageType
	sMapFile as string
	sDatFile as string
Endtype
page as pageType[numPages]

for i = 1 to numPages
	page[i].sMapFile = "/media/pages/picdat" + str(i) + "/master.png"
	page[i].sDatFile = "/media/pages/picdat" + str(i) + "/map.dat"
next i

memBlockMap = CreateMemblockFromImage (LoadImage (page[pageNum].sMapFile))

//Read Sprite Data
Type spriteType
	iSprImage as integer
	iSprNum as integer
	iLeft as integer
	iTop as integer
	iWidth as integer
	iHeight as integer
Endtype
sprite as spriteType[maxPagePieces]

OpenToRead ( 1, page[pageNum].sDatFile )
spriteTotal = ReadInteger ( 1 )
for skip = 1 to 3
	ReadInteger ( 1 )
next skip

for i = 1 to spriteTotal
	sprite[i].iLeft = ReadInteger ( 1 )
	sprite[i].iTop = ReadInteger ( 1 )
	sprite[i].iWidth = ReadInteger ( 1 )
	sprite[i].iHeight = ReadInteger ( 1 )
	if i < 10
		zero$="00"
		elseif i >= 10 and i < 100
			zero$="0"
			else 
				zero$=""
	endif
	sprite[i].iSprImage = LoadImage ( "/media/pages/picdat" + str(pageNum) + "/op" + zero$ + str(i) +".png" )
	sprite[i].iSprNum = CreateSprite ( sprite[i].iSprImage )
	SetSpritePosition ( sprite[i].iSprNum, sprite[i].iLeft, sprite[i].iTop )
next i
CloseFile ( 1 )


SetPrintColor( 0, 0, 0 )
sprTest=1

do
	
	mouseX = GetPointerX()
	mouseY = GetPointerY()
	
	if GetPointerPressed()=1 and mouseX >= 0 and mouseX < pageWidth and mouseY >= 0 and mouseY <= pageHeight
		// This part colours the image
		selectColour = 0
		
		mapFileID = readMap(memBlockMap, mouseX, mouseY, pageWidth)
		if mapFileID > 0
			SetSpriteColor( sprite[mapFileID].iSprNum, red, green, blue, 255)
		endif
	
		elseif GetPointerPressed()=1 and mouseX >= pageWidth and mouseX <= scrWidth and mouseY >= 0 and mouseY <= scrHeight
			
			oldMouseY = mouseY
			selectColour = 1
			colourHit = GetSpriteHit ( mouseX, mouseY )
					
			while GetPointerReleased()=0
				// This section of the loop is for the colour button selection
				mouseX = GetPointerY()
				mouseY = GetPointerY()
			
				if mouseY < oldMouseY
					// Colours Move Up
					colSpeed = oldMouseY - mouseY
					if colSpeed > 2
						selectColour = 0
						elseif colSpeed > colSpeedMax
							colSpeed = colSpeedMax 
					endif
					oldMouseY = mouseY
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY(colour[numColours].iButton) <= colEndPos_Y
							SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y )
							else
								SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) - colSpeed )
							endif
					next i
					
				elseif mouseY > oldMouseY
					// Colours Move Down
					colSpeed = mouseY - oldMouseY
					if colSpeed > 2
						selectColour = 0
						elseif colSpeed > colSpeedMax
							colSpeed = colSpeedMax 
					endif
					oldMouseY = mouseY
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY (colour[0].iButton) >= 0
								SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton))
							else
								SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) + colSpeed)
							endif
					next i
				endif
				 
				Sync()
			endWhile
			if selectColour = 1
				
				if colourHit <> colourPaint
					oldColourPaint = colourPaint
					colourPaint = colourHit
					PlaySprite (colourPaint, 30, 0, 1, 2) 
					PlaySprite (oldColourPaint, 30, 0, 2, 1)
					for i = 0 to numColours
						if colourPaint = colour[i].iButton
							red = colour[i].iRed
							green = colour[i].iGreen
							blue = colour[i].iBlue
						endif
					next i
				endif
				selectColour = 0
				
			endif
	endif
	
    Sync()
loop

// Data for colour buttons
RGBData:
colour[ 0].iRed=127 : colour[ 0].iGreen=127 : colour[ 0].iBlue=127
colour[ 1].iRed=255 : colour[ 1].iGreen=255 : colour[ 1].iBlue=255
colour[ 2].iRed=255 : colour[ 2].iGreen=213 : colour[ 2].iBlue=226
colour[ 3].iRed=255 : colour[ 3].iGreen=174 : colour[ 3].iBlue=201
colour[ 4].iRed=255 : colour[ 4].iGreen=136 : colour[ 4].iBlue=174
colour[ 5].iRed=255 : colour[ 5].iGreen= 64 : colour[ 5].iBlue= 64
colour[ 6].iRed=236 : colour[ 6].iGreen=  0 : colour[ 6].iBlue=  0
colour[ 7].iRed=200 : colour[ 7].iGreen=  0 : colour[ 7].iBlue=  0
colour[ 8].iRed=255 : colour[ 8].iGreen=125 : colour[ 8].iBlue=  0
colour[ 9].iRed=193 : colour[ 9].iGreen=138 : colour[ 9].iBlue=108
colour[10].iRed=175 : colour[10].iGreen=109 : colour[10].iBlue= 73
colour[11].iRed=168 : colour[11].iGreen= 84 : colour[11].iBlue=  0
colour[12].iRed=255 : colour[12].iGreen=255 : colour[12].iBlue=130
colour[13].iRed=255 : colour[13].iGreen=255 : colour[13].iBlue=  0
colour[14].iRed=166 : colour[14].iGreen=234 : colour[14].iBlue= 51
colour[15].iRed=157 : colour[15].iGreen=202 : colour[15].iBlue= 23
colour[16].iRed=108 : colour[16].iGreen=255 : colour[16].iBlue=108
colour[17].iRed=  0 : colour[17].iGreen=255 : colour[17].iBlue=  0
colour[18].iRed=  0 : colour[18].iGreen=191 : colour[18].iBlue=  0
colour[19].iRed=159 : colour[19].iGreen=255 : colour[19].iBlue=255
colour[20].iRed= 94 : colour[20].iGreen=255 : colour[20].iBlue=255
colour[21].iRed=  0 : colour[21].iGreen=247 : colour[21].iBlue=247
colour[22].iRed=  0 : colour[22].iGreen=180 : colour[22].iBlue=247
colour[23].iRed=  0 : colour[23].iGreen=100 : colour[23].iBlue=247
colour[24].iRed=  0 : colour[24].iGreen=  0 : colour[24].iBlue=255
colour[25].iRed=194 : colour[25].iGreen=118 : colour[25].iBlue=194
colour[26].iRed=184 : colour[26].iGreen= 36 : colour[26].iBlue=255
colour[27].iRed=139 : colour[27].iGreen=  0 : colour[27].iBlue=206
return

// ********** FUNCTIONS

// Function to read x,y byte of RED value from memBlockMap image
function readMap(memBlock, x, y, width)
	offset = 12 + (( x + ( y * width )) * 4 )
	redVal = GetMemBlockByte ( memBlock, offset )
endfunction redVal

// Project: Colour Splash V2 
// Created: 2015-02-05
// By:      Paul Harthen

/*
// Load music and play on repeat
titleMusic = LoadMusic("/media/sounds/csplash.mp3")
SetMusicFileVolume( titleMusic, 30 ) // 30 is the volume for the file between 0 and 100
PlayMusic( titleMusic, 1 ) // 1 makes music loop forever
*/

// set properties
#Constant scrWidth = 1280
#Constant scrHeight = 800
#Constant pageWidth = 1150
#Constant pageHeight = 800
#Constant maxPagePieces = 94 
#Constant numPages = 4
#Constant numColours  = 27 // 28 colours as 0 is also counted
pageNum = 1

butWidth = 130
butHeight = 128

colEndPos_Y = scrHeight-butHeight
colEndLimit_Y = 2785
colSpeedMax = 100
colStart = 22
SelectColour = 0


// set display properties
SetVirtualResolution( scrWidth, scrHeight )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

//Colour Palette 
Type colourType
	iImage as integer
	iButton as integer
	iRed as integer
	iGreen as integer
	iBlue as integer
Endtype
colour as colourType[numColours]

for i = 0 to numColours
	colour[i].iImage = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colour[i].iButton = CreateSprite (colour[i].iImage)
	SetSpritePosition(colour[i].iButton ,pageWidth , i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y)
	SetSpriteAnimation (colour[i].iButton, butWidth, butHeight, 2)
next i

gosub RGBData
colourPaint = colour[colStart].iButton
red = colour[colStart].iRed
green = colour[colStart].iGreen
blue = colour[colStart].iBlue
alpha = 255
PlaySprite (colourPaint, 2, 0, 1, 2) // speed, loop 0 for no and 1 for yes, start frame, end frame

//Read Page Information
Type pageType
	sMapFile as string
	sDatFile as string
Endtype
page as pageType[numPages]

for i = 1 to numPages
	page[i].sMapFile = "/media/pages/picdat" + str(i) + "/master.png"
	page[i].sDatFile = "/media/pages/picdat" + str(i) + "/map.dat"
next i

memBlockMap = CreateMemblockFromImage (LoadImage (page[pageNum].sMapFile))

//Read Sprite Data
Type spriteType
	iSprImage as integer
	iSprNum as integer
	iLeft as integer
	iTop as integer
	iWidth as integer
	iHeight as integer
Endtype
sprite as spriteType[maxPagePieces]

OpenToRead ( 1, page[pageNum].sDatFile )
spriteTotal = ReadInteger ( 1 )
for skip = 1 to 3
	ReadInteger ( 1 )
next skip

for i = 1 to spriteTotal
	sprite[i].iLeft = ReadInteger ( 1 )
	sprite[i].iTop = ReadInteger ( 1 )
	sprite[i].iWidth = ReadInteger ( 1 )
	sprite[i].iHeight = ReadInteger ( 1 )
	if i < 10
		zero$="00"
		elseif i >= 10 and i < 100
			zero$="0"
			else 
				zero$=""
	endif
	sprite[i].iSprImage = LoadImage ( "/media/pages/picdat" + str(pageNum) + "/op" + zero$ + str(i) +".png" )
	sprite[i].iSprNum = CreateSprite ( sprite[i].iSprImage )
	SetSpritePosition ( sprite[i].iSprNum, sprite[i].iLeft, sprite[i].iTop )
next i
CloseFile ( 1 )


SetPrintColor( 0, 0, 0 )


frictionCol# = 0.25

do
	
	mouseX# = GetPointerX()
	mouseY# = GetPointerY()
	
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < pageWidth and mouseY# >= 0 and mouseY# <= pageHeight
		// This part colours the image
		selectColour = 0
		directionColour = 0
		
		mapFileID = readMap(memBlockMap, mouseX#, mouseY#, pageWidth)
		if mapFileID > 0
			SetSpriteColor( sprite[mapFileID].iSprNum, red, green, blue, 255)
		endif
	
		elseif GetPointerPressed()=1 and mouseX# >= pageWidth and mouseX# <= scrWidth and mouseY# >= 0 and mouseY# <= scrHeight
			
			jumpPoint:
			oldMouseY# = mouseY#
			selectColour = 1
			colourHit = GetSpriteHit ( mouseX#, mouseY# )
					
			while GetPointerReleased()=0
				// This section of the loop is for the colour button selection
				
				mouseX# = GetPointerX()
				mouseY# = GetPointerY()
			
				if mouseY# < oldMouseY#
					// Colours Move Up
					directionColour = 1
					colSpeed# = (oldMouseY# - mouseY#)
					if colSpeed# > 2
						selectColour = 0
						if colSpeed# > colSpeedMax then colSpeed# = colSpeedMax 
					endif
					oldMouseY# = mouseY#
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY(colour[numColours].iButton) <= colEndPos_Y
							SetSpritePosition(colour[numColours].iButton ,pageWidth ,colEndPos_Y )
							SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y )
							else
								SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) - colSpeed# )
							endif
					next i
					
				elseif mouseY# > oldMouseY#
					// Colours Move Down
					directionColour = 2
					colSpeed# = (mouseY# - oldMouseY#)
					if colSpeed# > 2
						selectColour = 0
						if colSpeed# > colSpeedMax then colSpeed# = colSpeedMax 
					endif
					oldMouseY# = mouseY#
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY (colour[0].iButton) >= 0
							SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton))
							else
								SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) + colSpeed#)
							endif
					next i
				endif
				 
				Sync()
			endWhile
						
			if selectColour = 1
				if colourHit <> colourPaint
					oldColourPaint = colourPaint
					colourPaint = colourHit
					PlaySprite (colourPaint, 30, 0, 1, 2) 
					PlaySprite (oldColourPaint, 30, 0, 2, 1)
					for i = 0 to numColours
						if colourPaint = colour[i].iButton
							red = colour[i].iRed
							green = colour[i].iGreen
							blue = colour[i].iBlue
						endif
					next i
				endif
				selectColour = 0
			endif
			
			if directionColour > 0
				while colSpeed# > 0
					
					if directionColour = 1
						for i = 0 to numColours
							if GetSpriteY(colour[numColours].iButton) <= colEndPos_Y
								SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y )
								else
									SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) - colSpeed# )
								endif
						next i
						//colSpeed# = colSpeed# - frictionCol#
						//Sync()
												
						elseif directionColour = 2					
							for i = 0 to numColours
								if GetSpriteY (colour[0].iButton) >= 0
									SetSpritePosition(colour[0].iButton ,pageWidth ,0)
									SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton))
									colSpeed# = 0
									else
										SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) + colSpeed#)
								endif
							next i
							//colSpeed# = colSpeed# - frictionCol#
							//Sync()
							
					endif
					
					colSpeed# = colSpeed# - frictionCol#
					Sync()
					
					mouseX# = GetPointerX()
					mouseY# = GetPointerY()
					if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < pageWidth and mouseY# >= 0 and mouseY# <= pageHeight
						mapFileID = readMap(memBlockMap, mouseX#, mouseY#, pageWidth)
						if mapFileID > 0
							SetSpriteColor( sprite[mapFileID].iSprNum, red, green, blue, 255)
						endif
						elseif GetPointerPressed()=1 and mouseX# >= pageWidth and mouseX# <= scrWidth and mouseY# >= 0 and mouseY# <= scrHeight
							oldMouseY# = mouseY#
							goto jumpPoint
					endif
					
				endwhile
				directionColour = 0
				colSpeed# = 0
			endif
	endif
	
    Sync()
loop

// Data for colour buttons
RGBData:
colour[ 0].iRed= 10 : colour[ 0].iGreen= 10 : colour[ 0].iBlue= 10
colour[ 1].iRed=168 : colour[ 1].iGreen= 84 : colour[ 1].iBlue=  0
colour[ 2].iRed=175 : colour[ 2].iGreen=109 : colour[ 2].iBlue= 73
colour[ 3].iRed=180 : colour[ 3].iGreen=180 : colour[ 3].iBlue=180
colour[ 4].iRed=255 : colour[ 4].iGreen=255 : colour[ 4].iBlue=255
colour[ 5].iRed=255 : colour[ 5].iGreen=213 : colour[ 5].iBlue=226
colour[ 6].iRed=255 : colour[ 6].iGreen=174 : colour[ 6].iBlue=201
colour[ 7].iRed=255 : colour[ 7].iGreen=136 : colour[ 7].iBlue=174
colour[ 8].iRed=255 : colour[ 8].iGreen= 64 : colour[ 8].iBlue= 64
colour[ 9].iRed=236 : colour[ 9].iGreen=  0 : colour[ 9].iBlue=  0
colour[10].iRed=200 : colour[10].iGreen=  0 : colour[10].iBlue=  0
colour[11].iRed=255 : colour[11].iGreen=125 : colour[11].iBlue=  0
colour[12].iRed=255 : colour[12].iGreen=255 : colour[12].iBlue=130
colour[13].iRed=255 : colour[13].iGreen=255 : colour[13].iBlue=  0
colour[14].iRed=166 : colour[14].iGreen=234 : colour[14].iBlue= 51
colour[15].iRed=157 : colour[15].iGreen=202 : colour[15].iBlue= 23
colour[16].iRed=108 : colour[16].iGreen=255 : colour[16].iBlue=108
colour[17].iRed=  0 : colour[17].iGreen=255 : colour[17].iBlue=  0
colour[18].iRed=  0 : colour[18].iGreen=191 : colour[18].iBlue=  0
colour[19].iRed=159 : colour[19].iGreen=255 : colour[19].iBlue=255
colour[20].iRed= 94 : colour[20].iGreen=255 : colour[20].iBlue=255
colour[21].iRed=  0 : colour[21].iGreen=247 : colour[21].iBlue=247
colour[22].iRed=  0 : colour[22].iGreen=180 : colour[22].iBlue=247
colour[23].iRed=  0 : colour[23].iGreen=100 : colour[23].iBlue=247
colour[24].iRed=  0 : colour[24].iGreen=  0 : colour[24].iBlue=255
colour[25].iRed=194 : colour[25].iGreen=118 : colour[25].iBlue=194
colour[26].iRed=184 : colour[26].iGreen= 36 : colour[26].iBlue=255
colour[27].iRed=139 : colour[27].iGreen=  0 : colour[27].iBlue=206
return

// ********** FUNCTIONS

// Function to read x,y byte of RED value from memBlockMap image
function readMap(memBlock, x, y, width)
	offset = 12 + (( x + ( y * width )) * 4 )
	redVal = GetMemBlockByte ( memBlock, offset )
endfunction redVal

[img]http://forum.thegamecreators.com/xt/xt_apollo_pic.php?i=2551686[/img]

// Project: Colour Splash V2 
// Created: 2015-02-05
// By:      Paul Harthen

// Load music and game sounds
titleMusic = LoadMusic("/media/sounds/csplash.mp3")
SetMusicFileVolume( titleMusic, 100 ) 
PlayMusic( titleMusic, 0 )
global click
global splat
global pop
global boing
global wip
click = LoadSound("/media/sounds/click.wav")
splat = LoadSound("/media/sounds/splat.wav")
pop = LoadSound("/media/sounds/pop.wav")
boing = LoadSound("/media/sounds/boing.wav")
wip = LoadSound("/media/sounds/wip.wav")

// ***** Set some properties *****
#Constant scrWidth = 1280
#Constant scrHeight = 800
#Constant pageWidth = 1150
#Constant pageHeight = 800
#Constant maxPagePieces = 94 
#Constant numPages = 3
#Constant numColours  = 27
global pageNum = 0
global spriteTotal = 1
global memBlockMap = 1
global GameOver = 1
butWidth = 130
butHeight = 128
colEndPos_Y = scrHeight-butHeight
colEndLimit_Y = 2785
colSpeedMax = 100
global colStart = 22
SelectColour = 0
frictionCol# = 0.25
// ***** End of set some properties *****


// ***** Set display properties *****
SetVirtualResolution( scrWidth, scrHeight )
SetOrientationAllowed( 0, 0, 1, 1 )
SetSyncRate ( 60, 0 )
// ***** End of set display properties *****


// ***** Colour Palette Setup ***** 
Type colourType
	iImage as integer
	iButton as integer
	iRed as integer
	iGreen as integer
	iBlue as integer
Endtype
global colour as colourType[numColours]

for i = 0 to numColours
	colour[i].iImage = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colour[i].iButton = CreateSprite (colour[i].iImage)
	SetSpritePosition(colour[i].iButton ,pageWidth , i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y)
	SetSpriteAnimation (colour[i].iButton, butWidth, butHeight, 2)
next i

RGBData()

colourPaint = colour[colStart].iButton
global red as integer
global green as integer
global blue as integer
red = colour[colStart].iRed
green = colour[colStart].iGreen
blue = colour[colStart].iBlue
alpha = 255
PlaySprite (colourPaint, 30, 0, 1, 2) 
// ***** End of colour palette setup *****


// ***** Routine to set up the side panel *****
#Constant panelNum = 6
Type panelType
	iSprImage as integer
	iSprNum as integer
	iX as integer
	iY as integer
Endtype

panelStartXPOS = -130
global panel as panelType[panelNum]
panel[1].iX = panelStartXPOS       : panel[1].iY = 100 
panel[2].iX = panelStartXPOS +  8 : panel[2].iY = 140
panel[3].iX = panelStartXPOS +  66 : panel[3].iY = 180
panel[4].iX = panelStartXPOS +  12 : panel[4].iY = 265
panel[5].iX = panelStartXPOS +  12 : panel[5].iY = 415
panel[6].iX = panelStartXPOS +  12 : panel[6].iY = 565

for i = 1 to 6
	panel[i].iSprImage = LoadImage ( "/media/panel/panel" + str(i) + ".png" )
	panel[i].iSprNum = CreateSprite ( panel[i].iSprImage )
	SetSpritePosition ( panel[i].iSprNum, panel[i].iX, panel[i].iY )
	if i = 2 or i = 3 then SetSpriteAnimation (panel[i].iSprNum, 66, 50, 2)
	if i >=4 and i <=6 then SetSpriteAnimation (panel[i].iSprNum, 117, 91, 2)
next i
panelLimit = GetSpriteWidth(panel[1].iSprNum) - 50
SetSpriteDepth ( panel[1].iSprNum, 5 )
SetSpriteDepth ( panel[2].iSprNum, 4 )
SetSpriteDepth ( panel[3].iSprNum, 3 )
SetSpriteDepth ( panel[4].iSprNum, 2 )
SetSpriteDepth ( panel[5].iSprNum, 1 )
SetSpriteDepth ( panel[6].iSprNum, 0 )
// ***** End of routine to set up the side panel *****


// ***** Initialise sprites and memBlocks for pages *****
Type pageType
	sMapFile as string
	sDatFile as string
Endtype
global page as pageType[numPages]

for i = 0 to numPages
	page[i].sMapFile = "/media/pages/picdat" + str(i) + "/master.png"
	page[i].sDatFile = "/media/pages/picdat" + str(i) + "/map.dat"
next i

Type spriteType
	iSprImage as integer
	iSprNum as integer
	iLeft as integer
	iTop as integer
	iWidth as integer
	iHeight as integer
Endtype
global sprite as spriteType[maxPagePieces]

titleScreen()
loadPageSprites ( 2, 1 )
music = 1
// ***** end of initialise sprites and memBlocks for pages *****


// ***** Start of main game loop *****
do
	
	mouseX# = GetPointerX()
	mouseY# = GetPointerY()
	
	//isitPlaying = GetMusicPlaying(titleMusic)
	if GetMusicPlaying()=0 and music=1
		 DeleteMusic(titleMusic)
		 music =0
	endif
	
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < pageWidth and mouseY# >= 0 and mouseY# <= pageHeight
		// This part colours the image
		selectColour = 0
		directionColour = 0
		
		if GetSpriteHit ( mouseX#, mouseY# ) = panel[1].iSprNum
			PlaySound(click)
			controlPanel ( panelLimit, spriteTotal )
			else
				mapFileID = readMap( mouseX#, mouseY#, pageWidth)
				soundRND = Random(1, 3)
				if soundRND = 1
					PlaySound(pop)
					elseif soundRND = 2
						PlaySound(boing)
						elseif soundRND = 3
							PlaySound(wip)
				endif
				if mapFileID > 0
					SetSpriteColor( sprite[mapFileID].iSprNum, red, green, blue, 255)
				endif
		endif
	
		elseif GetPointerPressed()=1 and mouseX# >= pageWidth and mouseX# <= scrWidth and mouseY# >= 0 and mouseY# <= scrHeight
			
			jumpPoint:
			oldMouseY# = mouseY#
			selectColour = 1
			colourHit = GetSpriteHit ( mouseX#, mouseY# )
					
			while GetPointerReleased()=0
				// This section of the loop is for the colour button selection
				
				mouseX# = GetPointerX()
				mouseY# = GetPointerY()
			
				if mouseY# < oldMouseY#
					// Colours Move Up
					directionColour = 1
					colSpeed# = (oldMouseY# - mouseY#)
					if colSpeed# > 2
						selectColour = 0
						if colSpeed# > colSpeedMax then colSpeed# = colSpeedMax 
					endif
					oldMouseY# = mouseY#
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY(colour[numColours].iButton) <= colEndPos_Y
							SetSpritePosition(colour[numColours].iButton ,pageWidth ,colEndPos_Y )
							SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y )
							else
								SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) - colSpeed# )
							endif
					next i
					
				elseif mouseY# > oldMouseY#
					// Colours Move Down
					directionColour = 2
					colSpeed# = (mouseY# - oldMouseY#)
					if colSpeed# > 2
						selectColour = 0
						if colSpeed# > colSpeedMax then colSpeed# = colSpeedMax 
					endif
					oldMouseY# = mouseY#
					// display colour pallete
					for i = 0 to numColours
						if GetSpriteY (colour[0].iButton) >= 0
							SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton))
							else
								SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) + colSpeed#)
							endif
					next i
				endif
				 
				Sync()
			endWhile
						
			if selectColour = 1
				if colourHit <> colourPaint
					oldColourPaint = colourPaint
					colourPaint = colourHit
					PlaySound(splat)
					PlaySprite (colourPaint, 30, 0, 1, 2) 
					PlaySprite (oldColourPaint, 30, 0, 2, 1)
					for i = 0 to numColours
						if colourPaint = colour[i].iButton
							red = colour[i].iRed
							green = colour[i].iGreen
							blue = colour[i].iBlue
						endif
					next i
				endif
				selectColour = 0
			endif
			
			if directionColour > 0
				while colSpeed# > 0
					
					if directionColour = 1
						for i = 0 to numColours
							if GetSpriteY(colour[numColours].iButton) <= colEndPos_Y
								SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton) - colEndLimit_Y )
								else
									SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) - colSpeed# )
								endif
						next i
																		
						elseif directionColour = 2					
							for i = 0 to numColours
								if GetSpriteY (colour[0].iButton) >= 0
									SetSpritePosition(colour[0].iButton ,pageWidth ,0)
									SetSpritePosition(colour[i].iButton ,pageWidth ,i * GetSpriteHeight(colour[i].iButton))
									colSpeed# = 0
									else
										SetSpritePosition(colour[i].iButton ,pageWidth ,GetSpriteY(colour[i].iButton) + colSpeed#)
								endif
							next i
							
					endif
					
					colSpeed# = colSpeed# - frictionCol#
					Sync()
					
					mouseX# = GetPointerX()
					mouseY# = GetPointerY()
					if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < pageWidth and mouseY# >= 0 and mouseY# <= pageHeight
						mapFileID = readMap( mouseX#, mouseY#, pageWidth)
						if mapFileID > 0
							SetSpriteColor( sprite[mapFileID].iSprNum, red, green, blue, 255)
						endif
						elseif GetPointerPressed()=1 and mouseX# >= pageWidth and mouseX# <= scrWidth and mouseY# >= 0 and mouseY# <= scrHeight
							oldMouseY# = mouseY#
							goto jumpPoint
					endif
					
				endwhile
				directionColour = 0
				colSpeed# = 0
			endif
	endif
	if GameOver = 0
		End
	endif
	
    Sync()
loop
// ***** End of main game loop *****


// ********** FUNCTIONS **********

// ***** Data for colour buttons *****
function RGBData()
	colour[ 0].iRed= 10 : colour[ 0].iGreen= 10 : colour[ 0].iBlue= 10
	colour[ 1].iRed=168 : colour[ 1].iGreen= 84 : colour[ 1].iBlue=  0
	colour[ 2].iRed=175 : colour[ 2].iGreen=109 : colour[ 2].iBlue= 73
	colour[ 3].iRed=180 : colour[ 3].iGreen=180 : colour[ 3].iBlue=180
	colour[ 4].iRed=255 : colour[ 4].iGreen=255 : colour[ 4].iBlue=255
	colour[ 5].iRed=255 : colour[ 5].iGreen=213 : colour[ 5].iBlue=226
	colour[ 6].iRed=255 : colour[ 6].iGreen=174 : colour[ 6].iBlue=201
	colour[ 7].iRed=255 : colour[ 7].iGreen=136 : colour[ 7].iBlue=174
	colour[ 8].iRed=255 : colour[ 8].iGreen= 64 : colour[ 8].iBlue= 64
	colour[ 9].iRed=236 : colour[ 9].iGreen=  0 : colour[ 9].iBlue=  0
	colour[10].iRed=200 : colour[10].iGreen=  0 : colour[10].iBlue=  0
	colour[11].iRed=255 : colour[11].iGreen=125 : colour[11].iBlue=  0
	colour[12].iRed=255 : colour[12].iGreen=255 : colour[12].iBlue=130
	colour[13].iRed=255 : colour[13].iGreen=255 : colour[13].iBlue=  0
	colour[14].iRed=166 : colour[14].iGreen=234 : colour[14].iBlue= 51
	colour[15].iRed=157 : colour[15].iGreen=202 : colour[15].iBlue= 23
	colour[16].iRed=108 : colour[16].iGreen=255 : colour[16].iBlue=108
	colour[17].iRed=  0 : colour[17].iGreen=255 : colour[17].iBlue=  0
	colour[18].iRed=  0 : colour[18].iGreen=191 : colour[18].iBlue=  0
	colour[19].iRed=159 : colour[19].iGreen=255 : colour[19].iBlue=255
	colour[20].iRed= 94 : colour[20].iGreen=255 : colour[20].iBlue=255
	colour[21].iRed=  0 : colour[21].iGreen=247 : colour[21].iBlue=247
	colour[22].iRed=  0 : colour[22].iGreen=180 : colour[22].iBlue=247
	colour[23].iRed=  0 : colour[23].iGreen=100 : colour[23].iBlue=247
	colour[24].iRed=  0 : colour[24].iGreen=  0 : colour[24].iBlue=255
	colour[25].iRed=194 : colour[25].iGreen=118 : colour[25].iBlue=194
	colour[26].iRed=184 : colour[26].iGreen= 36 : colour[26].iBlue=255
	colour[27].iRed=139 : colour[27].iGreen=  0 : colour[27].iBlue=206
endfunction

// Function to read x,y byte of RED value from memBlockMap image
function readMap( x, y, width)
	offset = 12 + (( x + ( y * width )) * 4 )
	redVal = GetMemBlockByte ( memBlockMap, offset )
endfunction redVal

// Function for the use of the control panel
function controlPanel (panelLimit, spriteTotal)
	
	speed=100
	menu = 1
	for i = 0 to panelLimit step 10
		for panels = 1 to 6
			SetSpritePosition ( panel[panels].iSprNum, panel[panels].iX + i, panel[panels].iY )
		next panels
		Sync()
	next i
	
	
	while menu > 0
		mouseX# = GetPointerX()
		mouseY# = GetPointerY()
		if GetPointerPressed()=1 and GetSpriteHit ( mouseX#, mouseY# ) = panel[6].iSprNum
			// Exit Button
			PlaySound(click)
			PlaySprite (panel[6].iSprNum, speed, 0, 1, 2) 
			Sync()
			while GetPointerReleased()=0
				Sync()	
			endwhile
			PlaySprite (panel[6].iSprNum, speed, 0, 2, 1)
			panelBack( panelLimit )
			
			EndGame()
			menu = 0
									
			elseif GetPointerPressed()=1 and GetSpriteHit ( mouseX#, mouseY# ) = panel[5].iSprNum
				// Help Button
				PlaySound(click)
				PlaySprite (panel[5].iSprNum, speed, 0, 1, 2) 
				Sync()
				while GetPointerReleased()=0
					Sync()	
				endwhile
				PlaySprite (panel[5].iSprNum, speed, 0, 2, 1)
								
				// Help routine here
				instructions()
				panelBack( panelLimit )
				menu = 0
								
				elseif GetPointerPressed()=1 and GetSpriteHit ( mouseX#, mouseY# ) = panel[4].iSprNum
					// Wipe Clean Button
					PlaySound(click)
					PlaySprite (panel[4].iSprNum, speed, 0, 1, 2) 
					Sync()
					while GetPointerReleased()=0
						Sync()	
					endwhile
					PlaySprite (panel[4].iSprNum, speed, 0, 2, 1)
					Sync()
					for i = 1 to spriteTotal
							SetSpriteColor( sprite[i].iSprNum, 255, 255, 255, 255)
					next i
					panelBack( panelLimit )
					menu = 0
									
					elseif GetPointerPressed()=1 and GetSpriteHit ( mouseX#, mouseY# ) = panel[2].iSprNum
						// Left Button
						PlaySound(click)
						PlaySprite (panel[2].iSprNum, speed, 0, 1, 2) 
						Sync()
						while GetPointerReleased()=0
							Sync()	
						endwhile
						pageNum = pageNum + 1
						if pageNum > numPages then pageNum = 1
						PlaySprite (panel[2].iSprNum, speed, 0, 2, 1)
						loadPageSprites ( 1, 1 )
						panelBack( panelLimit )
						menu = 0
												
						elseif GetPointerPressed()=1 and GetSpriteHit ( mouseX#, mouseY# ) = panel[3].iSprNum
							// Right Button
							PlaySound(click)
							PlaySprite (panel[3].iSprNum, speed, 0, 1, 2) 
							Sync()
							while GetPointerReleased()=0
								Sync()	
							endwhile
							PlaySprite (panel[3].iSprNum, speed, 0, 2, 1)
							pageNum = pageNum - 1
							if pageNum < 1 then pageNum = numPages
							loadPageSprites ( 2, 1 )
							panelBack( panelLimit )
							menu = 0
														
							elseif GetPointerPressed()=1 and GetSpriteHit ( mouseX#, mouseY# ) = panel[1].iSprNum
								// Just tapping the panel returns it
								PlaySound(click)
								while GetPointerReleased()=0
									Sync()	
								endwhile
								panelBack( panelLimit )
								menu = 0
		endif
		Sync()
	endwhile
endfunction 

//
function panelBack( panelLimit )
	for i = panelLimit to 0 step -10
		for panels = 1 to 6
			SetSpritePosition ( panel[panels].iSprNum, panel[panels].iX + i, panel[panels].iY )
		next panels
		Sync()
	next i
endfunction

// Function to control page loads
function loadPageSprites ( direction, trigger )
	// Direction - 1 = Up - 2 = Down
	// Trigger - 0 for just page animation - 1 for delete old sprites and memBlockMap then animation
	
	if trigger = 1
		pageOut ( direction )
		deletePageSprites ()
	endif
	
	memBlockMap = CreateMemblockFromImage (LoadImage (page[pageNum].sMapFile))
	
	OpenToRead ( 1, page[pageNum].sDatFile )
	spriteTotal = ReadInteger ( 1 )
	for skip = 1 to 3
		ReadInteger ( 1 )
	next skip

	for i = 1 to spriteTotal
		sprite[i].iLeft = ReadInteger ( 1 )
		sprite[i].iTop = ReadInteger ( 1 )
		sprite[i].iWidth = ReadInteger ( 1 )
		sprite[i].iHeight = ReadInteger ( 1 )
		if i < 10
			zero$="00"
			elseif i >= 10 and i < 100
				zero$="0"
				else 
					zero$=""
		endif
		sprite[i].iSprImage = LoadImage ( "/media/pages/picdat" + str(pageNum) + "/op" + zero$ + str(i) +".png" )
		sprite[i].iSprNum = CreateSprite ( sprite[i].iSprImage )
		if direction = 1
			SetSpritePosition ( sprite[i].iSprNum, sprite[i].iLeft, sprite[i].iTop + scrHeight )
			elseif direction = 2
					SetSpritePosition ( sprite[i].iSprNum, sprite[i].iLeft, sprite[i].iTop - scrHeight )
		endif
		CreateTweenSprite( i, 2.0 )
		if direction = 1
			SetTweenSpriteY( i, sprite[i].iTop + scrHeight, sprite[i].iTop, TweenBounce())
			elseif direction = 2
					SetTweenSpriteY( i, sprite[i].iTop - scrHeight, sprite[i].iTop, TweenBounce())
		endif	
		PlayTweenSprite( i, sprite[i].iSprNum, .1 )
	next i
	
	CloseFile ( 1 )
	DeleteAllText()
	
	while GetTweenSpritePlaying( spriteTotal, sprite[spriteTotal].iSprNum )
		UpdateAllTweens( GetFrameTime() )
		Sync()
	endwhile
	
	for i = 1 to spriteTotal
		DeleteTween( i )
	next i
endfunction

function deletePageSprites ()
	for i = 1 to spriteTotal
		DeleteSprite( sprite[i].iSprNum )
		DeleteImage( sprite[i].iSprImage )
	next i
	DeleteMemblock( memBlockMap )
endfunction

function pageOut ( direction )
	// Direction - 1 = Up - 2 = Down
	for i = 1 to spriteTotal
				
		CreateTweenSprite( i, 1.0 )
		
		if direction = 1
			SetTweenSpriteY( i, sprite[i].iTop, sprite[i].iTop - scrHeight, TweenSmooth2())
			elseif direction = 2
				SetTweenSpriteY( i, sprite[i].iTop, sprite[i].iTop + scrHeight, TweenSmooth1())
		endif	
		
		PlayTweenSprite( i, sprite[i].iSprNum, .1 )
		UpdateAllTweens( GetFrameTime() )
		Sync()
	
	next i
	
	CreateText(1,"Loading Picture.....")
	SetTextSize(1,48)
	SetTextColor( 1, 150, 0, 150, 255 )
	SetTextPosition(1,300,370)
				
	while GetTweenSpritePlaying( spriteTotal, sprite[spriteTotal].iSprNum )
		UpdateAllTweens( GetFrameTime() )
		Sync()
	endwhile
	
	for i = 1 to spriteTotal
		DeleteTween( i )
	next i
endfunction

// Function for title screen routine
function titleScreen()
	delay = 50
	loadPageSprites ( 2, 0 )
	pageNum = 1
	
	SetSpriteColor( sprite[1].iSprNum, red, green, blue, 255)
	SetSpriteColor( sprite[18].iSprNum, red, green, blue, 255)
	SetSpriteColor( sprite[19].iSprNum, red, green, blue, 255)
	SetSpriteColor( sprite[48].iSprNum, red, green, blue, 255)
	SetSpriteColor( sprite[47].iSprNum, red, green, blue, 255)
	SetSpriteColor( sprite[32].iSprNum, red, green, blue, 255)
	Sync()
	Sleep(delay)
	
	red = colour[27].iRed
    green = colour[27].iGreen
    blue = colour[27].iBlue
    SetSpriteColor( sprite[7].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[14].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[36].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[39].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[35].iSprNum, red, green, blue, 255)
	SetSpriteColor( sprite[49].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[26].iRed
    green = colour[26].iGreen
    blue = colour[26].iBlue
    SetSpriteColor( sprite[13].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[15].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[38].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[40].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
		
	red = colour[25].iRed
    green = colour[25].iGreen
    blue = colour[25].iBlue
    SetSpriteColor( sprite[6].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[16].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[33].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[34].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[9].iRed
    green = colour[9].iGreen
    blue = colour[9].iBlue
    SetSpriteColor( sprite[2].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[28].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[26].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[10].iRed
    green = colour[10].iGreen
    blue = colour[10].iBlue
    SetSpriteColor( sprite[4].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[3].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[22].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[24].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[30].iSprNum, red, green, blue, 255)
	SetSpriteColor( sprite[27].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[13].iRed
    green = colour[13].iGreen
    blue = colour[13].iBlue
    SetSpriteColor( sprite[43].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[29].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[1].iRed
    green = colour[1].iGreen
    blue = colour[1].iBlue
    SetSpriteColor( sprite[42].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[46].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[44].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[41].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[57].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[56].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[2].iRed
    green = colour[2].iGreen
    blue = colour[2].iBlue
    SetSpriteColor( sprite[54].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[55].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[23].iRed
    green = colour[23].iGreen
    blue = colour[23].iBlue
    SetSpriteColor( sprite[45].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[24].iRed
    green = colour[24].iGreen
    blue = colour[24].iBlue
    SetSpriteColor( sprite[50].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[51].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[23].iRed
    green = colour[23].iGreen
    blue = colour[23].iBlue
    SetSpriteColor( sprite[45].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[8].iRed
    green = colour[8].iGreen
    blue = colour[8].iBlue
    SetSpriteColor( sprite[23].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[0].iRed
    green = colour[0].iGreen
    blue = colour[0].iBlue
    SetSpriteColor( sprite[20].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[21].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[10].iSprNum, red, green, blue, 255)
    SetSpriteColor( sprite[11].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[18].iRed
    green = colour[18].iGreen
    blue = colour[18].iBlue
    SetSpriteColor( sprite[17].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	
	red = colour[17].iRed
    green = colour[17].iGreen
    blue = colour[17].iBlue
    SetSpriteColor( sprite[5].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[31].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[12].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[25].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[37].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[53].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
	SetSpriteColor( sprite[52].iSprNum, red, green, blue, 255)
    Sync()
	Sleep(delay)
		
	red = colour[colStart].iRed
    green = colour[colStart].iGreen
    blue = colour[colStart].iBlue
    
    Sleep(1000)
endfunction

function instructions()
	wait = 1

	helpImage = LoadImage("/media/panel/help.png")
	helpSprite = CreateSprite(helpImage)
	SetSpritePosition(helpSprite, scrWidth, 0)
	
	help0$="         INSTRUCTIONS"
	help1$="  UP arrow - Turns the page up or"
	help2$=" DOWN        down for another picture"
	help3$="WIPE CLEAN - Clears the picture"
	help4$="  ? / HELP - Instructions"
	help5$=" EXIT DOOR - End the game"
	help6$="     TAP THE SCREEN TO COLOUR"
		
	CreateText(1,help0$)
	CreateText(2,help1$)
	CreateText(3,help2$)
	CreateText(4,help3$)
	CreateText(5,help4$)
	CreateText(6,help5$)
	CreateText(7,help6$)
	CreateText(8,help0$)
	CreateText(9,help1$)
	CreateText(10,help2$)
	CreateText(11,help3$)
	CreateText(12,help4$)
	CreateText(13,help5$)
	CreateText(14,help6$)
	
	for i = 1 to 14
		SetTextSize(i,46)
		if i >=1 and i <=7
			SetTextColor( i, 0, 0, 50, 255 )
			elseif i >=8 and i <=14
				SetTextColor( i, 255, 255, 0, 255 )
		endif
	next i
	
	SetTextPosition(1,193 + scrWidth,38)
	SetTextPosition(2,193 + scrWidth,148)
	SetTextPosition(3,193 + scrWidth,198)
	SetTextPosition(4,193 + scrWidth,298)
	SetTextPosition(5,193 + scrWidth,448)
	SetTextPosition(6,193 + scrWidth,598)
	SetTextPosition(7,193 + scrWidth,723)
	SetTextPosition(8,190 + scrWidth,35)
	SetTextPosition(9,190 + scrWidth,145)
	SetTextPosition(10,190 + scrWidth,195)
	SetTextPosition(11,190 + scrWidth,295)
	SetTextPosition(12,190 + scrWidth,445)
	SetTextPosition(13,190 + scrWidth,595)
	SetTextPosition(14,190 + scrWidth,720)
	
	for i = 1 to 14
		CreateTweenText( i, 2.0 )
		if i >=1 and i <=7
			SetTweenTextX( i, 193 + scrWidth, 193, TweenBounce())
			elseif i >=8 and i <=14
					SetTweenTextX( i, 190 + scrWidth, 190, TweenBounce())
		endif	
		
		PlayTweenText(i, i, .1)
	next i
	CreateTweenSprite(15, 2.0)
	SetTweenSpriteX(15, scrWidth, 0, TweenBounce())
	PlayTweenSprite(15, helpSprite, .1)
	
	while GetTweenSpritePlaying(15, helpSprite) 
		UpdateAllTweens( GetFrameTime() )
		Sync()
	endwhile
			
	while wait = 1
		if GetPointerPressed()=1
			wait = 0
		endif
		Sync()
	endwhile
	PlaySound(click)
	
	for i = 1 to 14
		CreateTweenText( i, 2.0 )
		if i >=1 and i <=7
			SetTweenTextX( i, 193, 193 + scrWidth, TweenSmooth2())
			elseif i >=8 and i <=14
					SetTweenTextX( i, 190, 190 + scrWidth, TweenSmooth2())
		endif	
		PlayTweenText(i, i, .1)
	next i
	SetTweenSpriteX(15, 0, scrWidth, TweenSmooth2())
	PlayTweenSprite(15, helpSprite, .1)
	
	while GetTweenSpritePlaying(15, helpSprite)
		UpdateAllTweens( GetFrameTime() )
		Sync()
	endwhile
	
	for i = 1 to 15
		DeleteTween( i )
	next i
	DeleteAllText()
	DeleteSprite(helpSprite)
	DeleteImage(helpImage)
endfunction

function EndGame()
	DeleteSound(click)
	DeleteSound(splat)
	DeleteSound(pop)
	DeleteSound(boing)
	DeleteSound(wip)
	DeleteAllSprites()
	DeleteAllImages()
	DeleteMemblock( memBlockMap )
	DeleteAllText()
	DeleteAllObjects()
	GameOver = 0
endfunction 
// ********** END OF FUNCTIONS **********