Is there a easier way to do this code for sprite falling?

Author

Message

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 5th Jul 2020 23:09 Edited at: 6th Jul 2020 00:17

Link

I have full sprites falling on empty sprites to fill them with there info.

I have tested my code and it works, but it is for only two sprites

if I do it for all sprites nothing happens as only one sprite is above the other.

I cant get my mind around it.

Do i have to write 64 lines of code?

Sorry, Im still learning

+ Code Snippet

    if slot[slot[100246].slot_id].Hungry=1 and slot[100008].slot_Y<slot[100246].slot_Y 
	slot[slot[100008].slot_id].falling=1
	else
	slot[slot[100008].slot_id].falling=0
	endif

this is how im doing it now, to many lines of code, over 64 times

+ Code Snippet

    rem row 1
    if slot[slot[100246].slot_id].Hungry=1 and slot[100008].slot_Y<slot[100246].slot_Y then slot[slot[100008].slot_id].falling=1
	if slot[slot[100484].slot_id].Hungry=1 and slot[100246].slot_Y<slot[100484].slot_Y then slot[slot[100246].slot_id].falling=1	
	if slot[slot[100722].slot_id].Hungry=1 and slot[100484].slot_Y<slot[100722].slot_Y then slot[slot[100484].slot_id].falling=1	
	if slot[slot[100960].slot_id].Hungry=1 and slot[100722].slot_Y<slot[100960].slot_Y then slot[slot[100722].slot_id].falling=1		
	if slot[slot[101198].slot_id].Hungry=1 and slot[100960].slot_Y<slot[101198].slot_Y then slot[slot[100960].slot_id].falling=1		
	if slot[slot[101436].slot_id].Hungry=1 and slot[101198].slot_Y<slot[101436].slot_Y then slot[slot[101198].slot_id].falling=1

Back to top

Profile PM

Scraggle

Moderator

20

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 6th Jul 2020 10:58 Edited at: 6th Jul 2020 11:03

Link

Is this still the match3 game?
If so, you're really making this difficult for yourself.
What is the slot array for?
Why are you referencing the sprites by their ID number - Rule number one of coding is NEVER hard code any numbers. That is especially true for sprite ID's. You already have the references to them in board[x,y].spr

What I would do is add another variable to the type tCell called falling. It would be an integer behaving as a boolean (true of false \ 0 or 1).
After deleting (hiding) matches, check each cell to see if there is a visible sprite in the cell beneath it. If not then set the falling flag to true (1) .
Then loop through each cell updating the positions of any that are falling until they have all dropped into place.
Obviously you'll also need to create new sprites for the ones that are falling into the gaps at the top.

In short, to answer this: "Is there a easier way to do this code for sprite falling?"
Yes, there are many easier ways but probably very few ways you could make it more difficult than you are doing.

Back to top

Profile PM Email

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 9th Jul 2020 19:09

Link

Ok, im back

I have decided to delete the sprites as it is more easy

I implicated the code and it works well with no errors

i'm not having new sprites as in this match game you have to clear the board.

So I have finished everything but the falling code

I need to find a way to check if a sprite exist then if not set the top sprites to fall

Thanks for your help.

Back to top

Profile PM

Scraggle

Moderator

20

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 9th Jul 2020 21:07

Link

GetSpriteExists()

Back to top

Profile PM Email

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 10th Jul 2020 02:42

Link

Yes, this is how I did it, lol, I have to put this code just about in every line now, but at least I dont have to keep switching images and the program gets confused.

Im not to sure how to check if if a sprite exists from bellow so the top sprites will fall is what I mean.

Back to top

Profile PM

Scraggle

Moderator

20

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 10th Jul 2020 10:02

Link

+ Code Snippet

if GetSpriteExists(board[x,y+1].spr)

Back to top

Profile PM Email

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 10th Jul 2020 14:58

Link

Yes, I understand that my friend.

I'm smarter then that lol

That checks the sprites that don't exists.

but then after this, I have to tell the sprites over the empty positions to fall. this is the hard part. Because I cant tell every sprite to fall.

Everything I write makes all the sprites above to fall, even the ones that don't have empty positions.

Im having fun trying, because I see some funny results.

Back to top

Profile PM

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 10th Jul 2020 16:25

Link

If I can not hard code any id numbers how then do i assign sprite animations?

I tried this with no luck

+ Code Snippet

if image[0] then SetSpriteAnimation(board[x,y].spr,679,591,8)
if image[1] then SetSpriteAnimation(board[x,y].spr,679,591,9)
if image[2] then SetSpriteAnimation(board[x,y].spr,679,591,13)
if image[3] then SetSpriteAnimation(board[x,y].spr,679,591,13)
if image[4] then SetSpriteAnimation(board[x,y].spr,679,591,13)
if image[5] then SetSpriteAnimation(board[x,y].spr,679,591,5)
if image[6] then SetSpriteAnimation(board[x,y].spr,679,591,13)
if image[7] then SetSpriteAnimation(board[x,y].spr,679,591,12)
if image[8] then SetSpriteAnimation(board[x,y].spr,679,591,13)

Back to top

Profile PM

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 11th Jul 2020 03:02

Link

ok, I found a error in your code

you can not have more then one level

#constant MARGIN_LEFT 40
#constant MARGIN_TOP 240
#constant BOARD_SIZE 7
#constant CELL_SIZE 75
#constant QTY_STYLES 9
#constant HORIZONTAL 0
#constant VERTICAL 1

You can use the constants anywhere in your program to specify items of data that are not going to change throughout your programs execution

So i can not change the board size or shape or anything

I fixed everything to work, and it works good, so I tried to make a second level to find out the values cant be changed.

What do I do?

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 11th Jul 2020 03:18 Edited at: 11th Jul 2020 03:19

Link

Quote: "What do I do? "

don't set them as #constants. constants can never change (and there's an advantage to that which i don't think you need for this project).

if you're going to use the variables inside functions, you may want to set them as global variables, instead.

otherwise, i think you've really gone down a rabbit hole with this while not showing YOUR code which leaves others guessing at what you're trying to accomplish and while you offer "I found a error in your code" when there was no error at all.

My Itch.io Home.

Back to top

Profile PM Website

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 11th Jul 2020 03:27

Link

Well the error of not being able to change values is what I meant, no offense to his good working code, with out him i would not be where i'm at in appgamekit.

Thanks for the advice, I will change it now and see how it goes.

Back to top

Profile PM

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 11th Jul 2020 03:37

Link

Unexpected token "board size" any dimension must be a integer literal or #constant

Then this is the line it is talking about

global board as tCell[BOARD_SIZE, BOARD_SIZE]

and this is what i changed

global MARGIN_LEFT as integer:MARGIN_LEFT= 40
global MARGIN_TOP as integer:MARGIN_TOP= 240
global BOARD_SIZE as integer:BOARD_SIZE= 7
global CELL_SIZE as integer:CELL_SIZE= 70
#constant QTY_STYLES 9
#constant HORIZONTAL 0
#constant VERTICAL 1

Back to top

Profile PM

Scraggle

Moderator

20

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 11th Jul 2020 09:30

Link

You got that message because "There's an error in your code"
Good luck with it.

Back to top

Profile PM Email

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 11th Jul 2020 16:41 Edited at: 11th Jul 2020 16:43

Link

I think it's hard to give you help because we don't see what you are really doing. Only tiny isolated snippets of code.
If possible, when asking for help make a small video showing what you have and what the problem is along with the tiniest amount of code possible that gives the full picture.
You might even need to create a new project to do that. Yes, there is work involved but that has to be expected because there is also work involved whenever someone takes their time to help.

Anyway... I knocked this out and maybe it will help. Again, it is hard to know exactly what you are doing or even want to do.
This is just my best guess.

I included some general program structure in this just because I thought might be helpful at some point to you and others who are relatively new developers.

As others have mentioned there are many ways to do things. This is only one of them...

// Project: BoardWithFallingSprites 
// Created: 2020-07-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle("Board With Falling Sprites")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)

// set display properties
SetVirtualResolution(1280,720)
SetOrientationAllowed(1, 1, 1, 1)
SetSyncRate(60, 0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)

// GAME STATES
#constant GSTATE_SPLASH		0
#constant GSTATE_TITLE		1
#constant GSTATE_LEVELINIT	2
#constant GSTATE_PLAY		3
#constant GSTATE_WON		4
#constant GSTATE_LOSS		5

// SPRITE STATES
#constant SSTATE_DESTROYED	0
#constant SSTATE_ATREST		1
#constant SSTATE_FALL		2

#constant FALL_SPEED		2
#constant CELL_SIZE			64

type gametype
	statetimer as integer
	level as integer
	state as integer
endtype

type boardcelltype
	sprite as integer
	state as integer
	ytarget as integer
endtype

global game as gametype
global boardcell as boardcelltype[0,0]
global boardsizebylevel as integer[2]

// define your board sizes for each level here
boardsizebylevel[0] = 7
boardsizebylevel[1] = 9
boardsizebylevel[2] = 12

GameChangeState(GSTATE_SPLASH)

do
	select game.state 
		case GSTATE_SPLASH
			GameStateSplash()
		endcase
		case GSTATE_TITLE
			GameStateTitle()
		endcase
		case GSTATE_LEVELINIT
			GameStateLevelInit()
		endcase
		case GSTATE_PLAY
			GameStatePlay()
		endcase
		case GSTATE_WON
			GameStateWon()
		endcase
		case GSTATE_LOSS
			GameStateLoss()
		endcase
	endselect
	
	inc game.statetimer

Sync()
loop

function GameChangeState(newstate as integer)
	select newstate
		case GSTATE_SPLASH
			SetPrintSize(128)
		endcase
		case GSTATE_TITLE
			SetPrintSize(80)
		endcase
		case GSTATE_LEVELINIT
		endcase
		case GSTATE_PLAY
		endcase
		case GSTATE_WON
		endcase
		case GSTATE_LOSS
		endcase
	endselect
	
	game.statetimer = 0
	game.state = newstate
endfunction

function SkipPrintLines(count as integer)
	for i=1 to count
		print("")
	next i
endfunction

function GameStateSplash()
	SkipPrintLines(2)
	Print("                A  LOGO")
	Print("          SPLASH SCREEN")
	if game.statetimer > 60 then GameChangeState(GSTATE_TITLE)
endfunction

function GameStateTitle()
	SkipPrintLines(1)
	print("                         A  TITLE  SCREEN")
	SkipPrintLines(3)
	print("                  CLICK MOUSE TO START!")
	if GetRawMouseLeftPressed()
		game.level = 0
		GameChangeState(GSTATE_LEVELINIT)
	endif
endfunction

function GameStateLevelInit()
	// remove any sprites from previous level
	for y=0 to boardcell.length
		for x = 0 to boardcell[y].length
			if GetSpriteExists(boardcell[x,y].sprite) then DeleteSprite(boardcell[x,y].sprite)
		next x
	next y
	
	// resize board based on current level board dimensions
	boardcell.length = boardsizebylevel[game.level] - 1
	for x = 0 to boardcell.length
		boardcell[x].length = boardsizebylevel[game.level] - 1
	next x

// fill board with sprites
	for y=0 to boardsizebylevel[game.level] - 1
		for x = 0 to boardsizebylevel[game.level] -1
			boardcell[x,y].sprite = createsprite(0)
			boardcell[x,y].state = SSTATE_ATREST
			SetSpriteSize(boardcell[x,y].sprite, CELL_SIZE, CELL_SIZE)
			SetSpriteColor(boardcell[x,y].sprite, 128 + random(0,127),128 + random(0,127),128 + random(0,127), 255)
			SetSpritePosition(boardcell[x,y].sprite, 416+(x * CELL_SIZE), 120 + (y * CELL_SIZE))
		next x
	next y
	
	GameChangeState(GSTATE_PLAY)
endfunction

function GameStatePlay()
	PlayerRemovesSprite()
	FallingSprites()
endfunction

function GameStateWon()
   // show some text, an image whatever
   // get an input from the player and use GameChangeState to switch back to the title screen
endfunction

function GameStateLoss()
   // show some text, an image whatever
   // get an input from the player and use GameChangeState to switch back to the title screen
endfunction

// when a sprite (representing a "piece" on your board whatever that is) is clicked on, and it is at rest, it will be removed
// again there are different ways to handle this... you could just look at the x and y of the grid itself
// here I am showing a different way of simply looping through the sprites and seeing which one has been clicked on by
// defining a tiny box at the point that was clicked then using AGK's awesome built-in GetSpriteInBox collision function.
function PlayerRemovesSprite()
	mx as integer
	my as integer
	
	if not GetRawMouseLeftPressed() then exitfunction
	mx=GetRawMouseX()
	my=GetRawMouseY()
	
	for y = 0 to boardsizebylevel[game.level] - 1
		for x = 0 to boardsizebylevel[game.level] -1
			if boardcell[x,y].state = SSTATE_ATREST
				if GetSpriteInBox(boardcell[x,y].sprite, mx-1, my-1, mx+1, my+1)
					RemoveSprite(x,y)
					exitfunction
				endif
			endif
		next x
	next y
endfunction

// Removes the sprite at the specified board x and y position
// processes all sprites in the same x position that are ABOVE this sprite
//  ...if the sprite is currently at rest it's ytarget is set CELL_SIZE pixels below its current position
//  ...if the sprite is currently falling it's ytarget is incremented by CELL_SIZE
function RemoveSprite(removedx as integer, removedy as integer)
	boardcell[removedx,removedy].state = SSTATE_DESTROYED
	SetSpriteVisible(boardcell[removedx,removedy].sprite, 0)
	
	if removedy = 0 then exitfunction
	
	// process all sprites above
	for y = 0 to removedy-1
		if boardcell[removedx,y].state = SSTATE_ATREST
			boardcell[removedx,y].ytarget = GetSpriteY(boardcell[removedx,y].sprite) + CELL_SIZE
		elseif boardcell[removedx,y].state = SSTATE_FALL
			inc boardcell[removedx,y].ytarget, CELL_SIZE
		endif
		boardcell[removedx,y].state = SSTATE_FALL
	next y
endfunction

// processes all falling sprites moving them down by FALL_SPEED amount
// and checks if they have reached their target destination
// if so, the sprite's state is changed to AT REST
function FallingSprites()
	for y = 0 to boardsizebylevel[game.level] - 1
		for x = 0 to boardsizebylevel[game.level] -1
			if boardcell[x,y].state = SSTATE_FALL
				SetSpriteY(boardcell[x,y].sprite, GetSpriteY(boardcell[x,y].sprite) + FALL_SPEED)
				if GetSpriteY(boardcell[x,y].sprite) >= boardcell[x,y].ytarget
					SetSpriteY(boardcell[x,y].sprite, boardcell[x,y].ytarget)
					boardcell[x,y].state = SSTATE_ATREST
				endif
			endif
		next x
	next y
endfunction

+ Code Snippet

// Project: BoardWithFallingSprites 
// Created: 2020-07-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle("Board With Falling Sprites")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)

// set display properties
SetVirtualResolution(1280,720)
SetOrientationAllowed(1, 1, 1, 1)
SetSyncRate(60, 0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)


// GAME STATES
#constant GSTATE_SPLASH		0
#constant GSTATE_TITLE		1
#constant GSTATE_LEVELINIT	2
#constant GSTATE_PLAY		3
#constant GSTATE_WON		4
#constant GSTATE_LOSS		5


// SPRITE STATES
#constant SSTATE_DESTROYED	0
#constant SSTATE_ATREST		1
#constant SSTATE_FALL		2

#constant FALL_SPEED		2
#constant CELL_SIZE			64


type gametype
	statetimer as integer
	level as integer
	state as integer
endtype

type boardcelltype
	sprite as integer
	state as integer
	ytarget as integer
endtype


global game as gametype
global boardcell as boardcelltype[0,0]
global boardsizebylevel as integer[2]

// define your board sizes for each level here
boardsizebylevel[0] = 7
boardsizebylevel[1] = 9
boardsizebylevel[2] = 12


GameChangeState(GSTATE_SPLASH)

do
	select game.state 
		case GSTATE_SPLASH
			GameStateSplash()
		endcase
		case GSTATE_TITLE
			GameStateTitle()
		endcase
		case GSTATE_LEVELINIT
			GameStateLevelInit()
		endcase
		case GSTATE_PLAY
			GameStatePlay()
		endcase
		case GSTATE_WON
			GameStateWon()
		endcase
		case GSTATE_LOSS
			GameStateLoss()
		endcase
	endselect
	
	inc game.statetimer

    Sync()
loop

function GameChangeState(newstate as integer)
	select newstate
		case GSTATE_SPLASH
			SetPrintSize(128)
		endcase
		case GSTATE_TITLE
			SetPrintSize(80)
		endcase
		case GSTATE_LEVELINIT
		endcase
		case GSTATE_PLAY
		endcase
		case GSTATE_WON
		endcase
		case GSTATE_LOSS
		endcase
	endselect
	
	game.statetimer = 0
	game.state = newstate
endfunction

function SkipPrintLines(count as integer)
	for i=1 to count
		print("")
	next i
endfunction

function GameStateSplash()
	SkipPrintLines(2)
	Print("                A  LOGO")
	Print("          SPLASH SCREEN")
	if game.statetimer > 60 then GameChangeState(GSTATE_TITLE)
endfunction

function GameStateTitle()
	SkipPrintLines(1)
	print("                         A  TITLE  SCREEN")
	SkipPrintLines(3)
	print("                  CLICK MOUSE TO START!")
	if GetRawMouseLeftPressed()
		game.level = 0
		GameChangeState(GSTATE_LEVELINIT)
	endif
endfunction

function GameStateLevelInit()
	// remove any sprites from previous level
	for y=0 to boardcell.length
		for x = 0 to boardcell[y].length
			if GetSpriteExists(boardcell[x,y].sprite) then DeleteSprite(boardcell[x,y].sprite)
		next x
	next y
	
	// resize board based on current level board dimensions
	boardcell.length = boardsizebylevel[game.level] - 1
	for x = 0 to boardcell.length
		boardcell[x].length = boardsizebylevel[game.level] - 1
	next x

	// fill board with sprites
	for y=0 to boardsizebylevel[game.level] - 1
		for x = 0 to boardsizebylevel[game.level] -1
			boardcell[x,y].sprite = createsprite(0)
			boardcell[x,y].state = SSTATE_ATREST
			SetSpriteSize(boardcell[x,y].sprite, CELL_SIZE, CELL_SIZE)
			SetSpriteColor(boardcell[x,y].sprite, 128 + random(0,127),128 + random(0,127),128 + random(0,127), 255)
			SetSpritePosition(boardcell[x,y].sprite, 416+(x * CELL_SIZE), 120 + (y * CELL_SIZE))
		next x
	next y
	
	GameChangeState(GSTATE_PLAY)
endfunction

function GameStatePlay()
	PlayerRemovesSprite()
	FallingSprites()
endfunction

function GameStateWon()
   // show some text, an image whatever
   // get an input from the player and use GameChangeState to switch back to the title screen
endfunction

function GameStateLoss()
   // show some text, an image whatever
   // get an input from the player and use GameChangeState to switch back to the title screen
endfunction

// when a sprite (representing a "piece" on your board whatever that is) is clicked on, and it is at rest, it will be removed
// again there are different ways to handle this... you could just look at the x and y of the grid itself
// here I am showing a different way of simply looping through the sprites and seeing which one has been clicked on by
// defining a tiny box at the point that was clicked then using AGK's awesome built-in GetSpriteInBox collision function.
function PlayerRemovesSprite()
	mx as integer
	my as integer
	
	if not GetRawMouseLeftPressed() then exitfunction
	mx=GetRawMouseX()
	my=GetRawMouseY()
	
	for y = 0 to boardsizebylevel[game.level] - 1
		for x = 0 to boardsizebylevel[game.level] -1
			if boardcell[x,y].state = SSTATE_ATREST
				if GetSpriteInBox(boardcell[x,y].sprite, mx-1, my-1, mx+1, my+1)
					RemoveSprite(x,y)
					exitfunction
				endif
			endif
		next x
	next y
endfunction

// Removes the sprite at the specified board x and y position
// processes all sprites in the same x position that are ABOVE this sprite
//  ...if the sprite is currently at rest it's ytarget is set CELL_SIZE pixels below its current position
//  ...if the sprite is currently falling it's ytarget is incremented by CELL_SIZE
function RemoveSprite(removedx as integer, removedy as integer)
	boardcell[removedx,removedy].state = SSTATE_DESTROYED
	SetSpriteVisible(boardcell[removedx,removedy].sprite, 0)
	
	if removedy = 0 then exitfunction
	
	// process all sprites above
	for y = 0 to removedy-1
		if boardcell[removedx,y].state = SSTATE_ATREST
			boardcell[removedx,y].ytarget = GetSpriteY(boardcell[removedx,y].sprite) + CELL_SIZE
		elseif boardcell[removedx,y].state = SSTATE_FALL
			inc boardcell[removedx,y].ytarget, CELL_SIZE
		endif
		boardcell[removedx,y].state = SSTATE_FALL
	next y
endfunction

// processes all falling sprites moving them down by FALL_SPEED amount
// and checks if they have reached their target destination
// if so, the sprite's state is changed to AT REST
function FallingSprites()
	for y = 0 to boardsizebylevel[game.level] - 1
		for x = 0 to boardsizebylevel[game.level] -1
			if boardcell[x,y].state = SSTATE_FALL
				SetSpriteY(boardcell[x,y].sprite, GetSpriteY(boardcell[x,y].sprite) + FALL_SPEED)
				if GetSpriteY(boardcell[x,y].sprite) >= boardcell[x,y].ytarget
					SetSpriteY(boardcell[x,y].sprite, boardcell[x,y].ytarget)
					boardcell[x,y].state = SSTATE_ATREST
				endif
			endif
		next x
	next y
endfunction

Back to top

Profile PM

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 11th Jul 2020 17:36 Edited at: 11th Jul 2020 17:37

Link

GarBenjamin

Thank you, I am cheeking it out and seeing how it works

I think people forget im new to appgamekit and am learning and this is so I can learn better.

If you want to help then help

if not then that is ok also.

I apprenticeship all the help indeed.

I can post the full code as it is just the same code he provided with my sprites and a couple things I added.

I like your code

My code in full

// show all errors
//SetErrorMode(2)

// set window properties
SetWindowSize( 640, 960, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 640, 960 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

/////////////   M A I N   G L O B A L S   A N D   A R A Y   S T A R T  ////////////////

global level:level=2
global newsize as integer
global scaleme as integer
global takeaway as integer
global Change_Sprite as integer
global turnoff as integer
global switch as integer
global trigger as integer
global Not_Selected_Style as integer
global Selected_Style as integer
global time_to_delete as integer:time_to_delete=0
global delete_timmer as integer:delete_timmer=0

global Turns:Turns=25	
#constant MARGIN_LEFT 40
#constant MARGIN_TOP 240
#constant BOARD_SIZE 7
#constant CELL_SIZE 70
#constant QTY_STYLES 9
#constant HORIZONTAL 0
#constant VERTICAL 1

type tCell
	style as integer
	spr as integer
	txt as integer[2]
	qtyMatches as integer[1]
	checked as integer[1]
	playme as integer
	falling as integer
    name as String
endtype

type sprites
	playme as integer
	Selected as integer
	Selected_2 as integer
	playtime as integer
	falldown
endtype

dim all_sprites[200000] as sprites

global board as tCell[BOARD_SIZE, BOARD_SIZE]
global image as integer[QTY_STYLES]

// LOAD ALL IMAGES FOR PETS
image[0] = loadimage("images/Lizard.png")
image[1] = loadimage("images/Octopus.png")
image[2] = loadimage("images/owl.png")	
image[3] = loadimage("images/pig.png")	
image[4] = loadimage("images/rabbit.png")	
image[5] = loadimage("images/rcat.png")	
image[6] = loadimage("images/sheep.png")	
image[7] = loadimage("images/spider.png")	
image[8] = loadimage("images/unucow.png")	
image[9] = loadimage("images/cat.png")

// LOAD IN ALL IMAGES FOR BACKGROUND
loadimage(9,"images/background-1.png")
createsprite(1,9)
loadimage(10,"images/dialog-panel.png")
createsprite(2,10)
SetSpritePosition(2,-15,160)
SetSpriteSize(2,670,550)
SetSpriteScale(2,1,1.3)
loadimage(11,"images/status-panel.png")
createsprite(3,11)
SetSpritePosition(3,10,20)
loadimage(12,"images/progress-bar.png")
createsprite(4,12)
SetSpritePosition(4,140,93)
LoadImage(13,"images/output.png")
LoadImage(14,"images/button-menu.png")
createsprite(5,14)
SetSpritePosition(5,220,850)
LoadImage(15,"images/arrow-next.png")
createsprite(6,15)
SetSpritePosition(6,420,850)
LoadImage(16,"images/arrow-back.png")
createsprite(7,16)
SetSpritePosition(7,100,850)

rem create all text before loop
	CreateText ( 100, "x=" )
	SetTextPosition ( 100,150,900)
	SetTextSize ( 100, 30 )
	FixTextToScreen ( 100, 1 )
	SetTextColorAlpha ( 100, 255 )
	line1$ = "x=" + str (x# )
	SetTextString ( 100, line1$ )
	SetTextVisible(100,0)
	
	CreateText ( 200, "y=" )
	SetTextPosition ( 200,350,900)
	SetTextSize ( 200, 30 )
	FixTextToScreen ( 200, 1 )
	SetTextColorAlpha ( 200, 255 )
	line1$ = "y=" + str (y# )
	SetTextString ( 200, line1$ )
    SetTextVisible(200,0)
    
	CreateText ( 201, "" )
	SetTextPosition ( 201,60,85)
	SetTextSize ( 201, 60 )
	FixTextToScreen ( 201, 1 )
	SetTextColorAlpha ( 201, 255 )
	line1$ = "" + str (level )
	SetTextString ( 201, line1$ )
    SetTextFontImage(201,13)
    
    CreateText ( 202, "" )
	SetTextPosition ( 202,517,85)
	SetTextSize ( 202, 55 )
	FixTextToScreen ( 202, 1 )
	SetTextColorAlpha ( 202, 255 )
	line1$ = "" + str (turns )
	SetTextString ( 202, line1$ )
    SetTextFontImage(202,13)
    
    CreateText ( 1000 ,"SECONDS=" )
	SetTextPosition ( 1000 ,300,850)
	SetTextSize ( 1000, 35 )
	FixTextToScreen ( 1000, 1 )
	SetTextColorAlpha ( 1000, 255 )
    SetTextFontImage(1000,13)
	SetTextVisible(1000,0)
	
	line2$ = "SECONDS=" + str (seconds  )
	SetTextString ( 1000, line2$ )
	
	CreateText ( 1001 ,"MINUTES=" )
	SetTextPosition ( 1001 ,60,850)
	SetTextSize ( 1001, 35 )
	FixTextToScreen ( 1001, 1 )
	SetTextColorAlpha ( 1001, 255 )
    SetTextFontImage(1001,13)
	SetTextVisible(1001,0)
	
	line3$ = "MINUTES=" + str (min )
	SetTextString ( 1001, line3$ )
	
	//set progress-bar for decresing with time
	timex=GetSpriteWidth(4)
    timey=GetSpriteHeight(4)
    //set up game bord before loop
    InitialiseBoard()
    GetMatches()
    ShowMatches()
    
    
/////////////   M A I N   L O O P   S T A R T  ////////////////
repeat
	
//ShowBenchmarking()

if GetRawKeyPressed(46) or GetRawMouseRightPressed()
		RandomiseBoard()
		GetMatches()
	endif
	
for y = 0 to BOARD_SIZE
for x = 0 to BOARD_SIZE

Pressed=GetPointerPressed()
Released=GetPointerReleased()

if GetSpriteExists(board[x,y].spr)=1

if GetspriteHitTest( board[x,y].spr, x#, y# ) =1 
PlaySprite(board[x,y].spr,15,0)
ImageID=GetSpriteImageID(board[x,y].spr)
Print("The Image Style is "+Str( all_sprites[board[x,y].spr].Falldown,0))
endif

if GetRawKeyPressed(32) or GetPointerPressed()
all_sprites[board[x,y].spr].playme=0
endif

if GetspriteHitTest( board[x,y].spr, x#, y# ) =1 and trigger=0 and pressed=1
Selected_Style=board[x,y].style
all_sprites[board[x,y].spr].Selected=1
trigger=1
endif

if GetspriteHitTest( board[x,y].spr, x#, y# ) =1 and all_sprites[board[x,y].spr].Selected=0 and trigger=1 and pressed=1
Not_Selected_Style=board[x,y].style
all_sprites[board[x,y].spr].Selected_2=1
switch=1
endif

if switch=1 and all_sprites[board[x,y].spr].Selected=1 
board[x,y].style=Not_Selected_Style
SetSpriteImage(board[x,y].spr, image[board[x,y].style])
switch=2
all_sprites[board[x,y].spr].Selected=0
endif

if switch=2 and all_sprites[board[x,y].spr].Selected_2=1 
board[x,y].style=Selected_Style
SetSpriteImage(board[x,y].spr, image[board[x,y].style])
turnoff=1
dec turns,1
all_sprites[board[x,y].spr].Selected_2=0
endif

if turnoff=1
switch=0
delete_timmer=1	
trigger=0
turnoff=0
endif

if delete_timmer=1	
time_to_delete=time_to_delete+1
endif

if time_to_delete=300
GetMatches()	
DeleteMatches()
Falldown()
delete_timmer=0
time_to_delete=0	
endif

fally=GetSpriteY(board[x,y].spr)
    fallx=GetSpritex(board[x,y].spr)
    
if all_sprites[board[x,y].spr].Falldown=1
	
SetSpritePosition(board[x,y].spr,fallx,fally+falling)
falling=falling+1
SetSpriteDepth(board[x,y].spr,0)
endif

if fally>=705
all_sprites[board[x,y].spr].Falldown=0
falling=0
fally=600
endif

ImageID=GetSpriteImageID(board[x,y].spr)
if board[x,y].style=0 then frames=8
if board[x,y].style=1 then frames=9
if board[x,y].style=2 then frames=13
if board[x,y].style=3 then frames=13
if board[x,y].style=4 then frames=13
if board[x,y].style=5 then frames=5
if board[x,y].style=6 then frames=13
if board[x,y].style=7 then frames=12
if board[x,y].style=8 then frames=13
if board[x,y].style=9 then frames=13

SetSpriteAnimation(board[x,y].spr,675,601,frames)

endif

next x
next y
	
	x# = GetPointerX ( )
    y# = GetPointerY ( )

line1$ = "x=" + str (x# )
	SetTextString ( 100, line1$ )
	
	line1$ = "y=" + str (y# )
	SetTextString ( 200, line1$ )
	
    line1$ = "" + str (level )
	SetTextString ( 201, line1$ )
	
	line1$ = "" + str (turns )
	SetTextString ( 202, line1$ )
	
	line2$ = "SECONDS=" + str (seconds  )
	SetTextString ( 1000, line2$ )
	
	line3$ = "MINUTES=" + str (min )
	SetTextString ( 1001, line3$ )

SetSpriteSize(4,timex-initialTime-10,timey)
	
	 
time# = 305-timer()
min = floor(time#/60)
seconds = mod(time#,60)
milli# = fmod(time#,1)
initialTime = GetSeconds ( )

Sync()
until GetRawKeyPressed(27)
end
/////////////   M A I N   L O O P   E N D   ////////////////

/////////////   M A I N   F U N C T I O N S   S T A R T  ////////////////
function Falldown()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			//Horizontal
			falling = board[x,y].spr 
			if GetSpriteExists(board[x,y].spr)=1
				for k = 0 to falling
					all_sprites[board[x,y].spr].Falldown=1

next k
			endif
			
			//Vertical
			falling = board[x,y].spr
			if GetSpriteExists(board[x,y].spr)=1
				for k = 0 to falling
					all_sprites[board[x,y].spr].Falldown=1
				next k
			endif
		next x
	next y
endfunction

function DeleteMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			//Horizontal
			matches = board[x,y].qtyMatches[HORIZONTAL]
			if matches >= 3 and GetSpriteExists(board[x,y].spr)=1
				for k = 0 to matches-1
					DeleteSprite(board[x+k,y].spr)
					
				next k
			endif
			
			//Vertical
			matches = board[x,y].qtyMatches[VERTICAL]
			if matches >= 3 and GetSpriteExists(board[x,y].spr)=1
				for k = 0 to matches-1
					DeleteSprite(board[x,y+k].spr)
				next k
			endif
		next x
	next y
endfunction

function GetMatches()
	ClearMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			for k = 0 to 1
				if board[x,y].checked[k] = 0
					match = CheckMatches(k, x,y)
					if match > board[x,y].qtyMatches[k]
						board[x,y].qtyMatches[k] = match
					endif
				endif
			next k
		next x
	next y
endfunction

function CheckMatches(k, x, y)
	match = 1
	if k = HORIZONTAL
		while x < BOARD_SIZE
			if board[x,y].style = board[x+1,y].style
				board[x,y].checked[k] = 1
				inc match		
				inc x
			else
				exitfunction match
			endif
		endwhile
		exitfunction match
	else
		while y < BOARD_SIZE
			if board[x,y].style = board[x,y+1].style
				board[x,y].checked[k] = 1
				inc match
				inc y
			else
				exitfunction match
			endif
		endwhile
	endif
endfunction match

function ClearMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			for k = 0 to 1
				board[x,y].qtyMatches[k] = 1
				board[x,y].checked[k] = 0
			next k
		next x
	next y
endfunction

function ShowMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			for k = 0 to 1
				SetTextString(board[x,y].txt[k], str(board[x,y].qtyMatches[k]))
				SetTextVisible(board[x,y].txt[k], board[x,y].qtyMatches[k] >= 300)
			next k
		next x
	next y
endfunction

function InitialiseBoard()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			
			
			board[x,y].spr = CreateSprite(0)
			SetSpriteSize(board[x,y].spr, CELL_SIZE+10, CELL_SIZE+10)
			SetSpritePosition(board[x,y].spr, MARGIN_LEFT + x*CELL_SIZE-8, MARGIN_TOP + y*CELL_SIZE-9)
			SetSpriteUVBorder( board[x,y].spr, 2 )
			SetSpriteImage ( board[x,y].spr, 10)
			
			board[x,y].spr = CreateSprite(0)
			SetSpriteSize(board[x,y].spr, CELL_SIZE+9, CELL_SIZE+9)
			SetSpritePosition(board[x,y].spr, MARGIN_LEFT + x*CELL_SIZE+1, MARGIN_TOP + y*CELL_SIZE+1)
			SetSpriteUVBorder( board[x,y].spr, 2 )
			setspritescale(board[x,y].spr,0.8,0.8)
			SetSpriteColor(board[x,y].spr,160,82,45,255)
			
			
			SetSortCreated(1)
			board[x,y].spr = CreateSprite(0)
			SetSpriteSize(board[x,y].spr, CELL_SIZE, CELL_SIZE)
			setspritescale(board[x,y].spr,0.9,0.9)
			SetSpritePosition(board[x,y].spr, MARGIN_LEFT + x*CELL_SIZE, MARGIN_TOP + y*CELL_SIZE)
		    SetSpriteUVBorder( board[x,y].spr, 2 )

for k = 0 to 1
			board[x,y].txt[k] = CreateText("0")
			SetTextColor(board[x,y].txt[k], 255, 255, 255, 255)
			SetTextSize(board[x,y].txt[k], CELL_SIZE/1.5)
			SetTextBold(board[x,y].txt[k], 1)
				
			next k
			SetTextPosition(board[x,y].txt[0], MARGIN_LEFT + x*CELL_SIZE + CELL_SIZE/4, MARGIN_TOP + y*CELL_SIZE + CELL_SIZE/5)
			SetTextPosition(board[x,y].txt[1], MARGIN_LEFT + x*CELL_SIZE + CELL_SIZE/2, MARGIN_TOP + y*CELL_SIZE + CELL_SIZE/5)
			SetTextColor(board[x,y].txt[0], 64, 128, 224, 255)
			SetTextColor(board[x,y].txt[1], 64, 224, 64, 255)
		next x
	next y
	RandomiseBoard()
endfunction

function RandomiseBoard()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			
			if x=0 then setx=0
			if x=1 then setx=1
			if x=2 then setx=2
			if x=3 then setx=3
			if x=4 then setx=4
			if x=5 then setx=5
			if x=6 then setx=6
			if x=7 then setx=7
			
			if y=0 then sety=5
			if y=1 then sety=4
			if y=2 then sety=3
			if y=3 then sety=2
			if y=4 then sety=1
			if y=5 then sety=4
			if y=6 then sety=3
			if y=7 then sety=2
			
			set=set
			board[x,y].style = Random(setx, sety)
			if GetSpriteExists(board[x,y].spr)=1 then SetSpriteImage(board[x,y].spr, image[board[x,y].style])
			//if GetSpriteExists(board[x,y].spr)=1 then SetSpriteVisible(board[x,y].spr, 1)

if set>=8 then set=0
		next x
	next y
endfunction

function LinearInterpolate( y1 as float, y2 as float, mu as float)

local f as float
        f=(y1*(1.0-mu)+y2*mu)

endfunction f

function ShowBenchmarking()

print ("FPS "+str(screenfps()))
    print ("Drawing Setup Time "+str(GetDrawingSetupTime()))
    print ("Drawing Time "+str(GetDrawingTime()))
    print ("Pixels Drawn "+str(GetPixelsDrawn()))
    print ("Update Time "+str(GetUpdateTime()))
    print ("Physics Time "+str(GetPhysicsTime()))

print ("Managed Sprite Count "+str(GetManagedSpriteCount()))
    print ("Managed Sprite Draw Calls "+str(GetManagedSpriteDrawCalls()))
    print ("Managed Sprite Drawn Count "+str(GetManagedSpriteDrawnCount()))
    print ("Managed Sprite Sorted Count "+str(GetManagedSpriteSortedCount()))
    print ("Particle Drawn Point Count "+str(GetParticleDrawnPointCount()))
    print ("Particle Drawn Quad Count "+str(GetParticleDrawnQuadCount()))

print ("Loaded Images "+str(GetLoadedImages()))
    UnassignedImages=GetUnassignedImages()
    print ("Unassigned Images "+str(UnassignedImages))
    for i=1 to UnassignedImages
     print ("Unassigned Image FileName "+GetUnassignedImageFileName(i))
    next

endfunction
/////////////   M A I N   F U N C T I O N S   E N D  ////////////////

+ Code Snippet

// show all errors
//SetErrorMode(2)

// set window properties
SetWindowSize( 640, 960, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 640, 960 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

/////////////   M A I N   G L O B A L S   A N D   A R A Y   S T A R T  ////////////////

global level:level=2
global newsize as integer
global scaleme as integer
global takeaway as integer
global Change_Sprite as integer
global turnoff as integer
global switch as integer
global trigger as integer
global Not_Selected_Style as integer
global Selected_Style as integer
global time_to_delete as integer:time_to_delete=0
global delete_timmer as integer:delete_timmer=0



global Turns:Turns=25	
#constant MARGIN_LEFT 40
#constant MARGIN_TOP 240
#constant BOARD_SIZE 7
#constant CELL_SIZE 70
#constant QTY_STYLES 9
#constant HORIZONTAL 0
#constant VERTICAL 1



type tCell
	style as integer
	spr as integer
	txt as integer[2]
	qtyMatches as integer[1]
	checked as integer[1]
	playme as integer
	falling as integer
    name as String
endtype

type sprites
	playme as integer
	Selected as integer
	Selected_2 as integer
	playtime as integer
	falldown
endtype

dim all_sprites[200000] as sprites


global board as tCell[BOARD_SIZE, BOARD_SIZE]
global image as integer[QTY_STYLES]

// LOAD ALL IMAGES FOR PETS
image[0] = loadimage("images/Lizard.png")
image[1] = loadimage("images/Octopus.png")
image[2] = loadimage("images/owl.png")	
image[3] = loadimage("images/pig.png")	
image[4] = loadimage("images/rabbit.png")	
image[5] = loadimage("images/rcat.png")	
image[6] = loadimage("images/sheep.png")	
image[7] = loadimage("images/spider.png")	
image[8] = loadimage("images/unucow.png")	
image[9] = loadimage("images/cat.png")


// LOAD IN ALL IMAGES FOR BACKGROUND
loadimage(9,"images/background-1.png")
createsprite(1,9)
loadimage(10,"images/dialog-panel.png")
createsprite(2,10)
SetSpritePosition(2,-15,160)
SetSpriteSize(2,670,550)
SetSpriteScale(2,1,1.3)
loadimage(11,"images/status-panel.png")
createsprite(3,11)
SetSpritePosition(3,10,20)
loadimage(12,"images/progress-bar.png")
createsprite(4,12)
SetSpritePosition(4,140,93)
LoadImage(13,"images/output.png")
LoadImage(14,"images/button-menu.png")
createsprite(5,14)
SetSpritePosition(5,220,850)
LoadImage(15,"images/arrow-next.png")
createsprite(6,15)
SetSpritePosition(6,420,850)
LoadImage(16,"images/arrow-back.png")
createsprite(7,16)
SetSpritePosition(7,100,850)


    rem create all text before loop
	CreateText ( 100, "x=" )
	SetTextPosition ( 100,150,900)
	SetTextSize ( 100, 30 )
	FixTextToScreen ( 100, 1 )
	SetTextColorAlpha ( 100, 255 )
	line1$ = "x=" + str (x# )
	SetTextString ( 100, line1$ )
	SetTextVisible(100,0)
	
	CreateText ( 200, "y=" )
	SetTextPosition ( 200,350,900)
	SetTextSize ( 200, 30 )
	FixTextToScreen ( 200, 1 )
	SetTextColorAlpha ( 200, 255 )
	line1$ = "y=" + str (y# )
	SetTextString ( 200, line1$ )
    SetTextVisible(200,0)
    
	CreateText ( 201, "" )
	SetTextPosition ( 201,60,85)
	SetTextSize ( 201, 60 )
	FixTextToScreen ( 201, 1 )
	SetTextColorAlpha ( 201, 255 )
	line1$ = "" + str (level )
	SetTextString ( 201, line1$ )
    SetTextFontImage(201,13)
    
    CreateText ( 202, "" )
	SetTextPosition ( 202,517,85)
	SetTextSize ( 202, 55 )
	FixTextToScreen ( 202, 1 )
	SetTextColorAlpha ( 202, 255 )
	line1$ = "" + str (turns )
	SetTextString ( 202, line1$ )
    SetTextFontImage(202,13)
    
    CreateText ( 1000 ,"SECONDS=" )
	SetTextPosition ( 1000 ,300,850)
	SetTextSize ( 1000, 35 )
	FixTextToScreen ( 1000, 1 )
	SetTextColorAlpha ( 1000, 255 )
    SetTextFontImage(1000,13)
	SetTextVisible(1000,0)
	
	line2$ = "SECONDS=" + str (seconds  )
	SetTextString ( 1000, line2$ )
	
	CreateText ( 1001 ,"MINUTES=" )
	SetTextPosition ( 1001 ,60,850)
	SetTextSize ( 1001, 35 )
	FixTextToScreen ( 1001, 1 )
	SetTextColorAlpha ( 1001, 255 )
    SetTextFontImage(1001,13)
	SetTextVisible(1001,0)
	
	line3$ = "MINUTES=" + str (min )
	SetTextString ( 1001, line3$ )
	
	//set progress-bar for decresing with time
	timex=GetSpriteWidth(4)
    timey=GetSpriteHeight(4)
    //set up game bord before loop
    InitialiseBoard()
    GetMatches()
    ShowMatches()
    
    
/////////////   M A I N   L O O P   S T A R T  ////////////////
repeat
	
//ShowBenchmarking()

	
	if GetRawKeyPressed(46) or GetRawMouseRightPressed()
		RandomiseBoard()
		GetMatches()
	endif
	
for y = 0 to BOARD_SIZE
for x = 0 to BOARD_SIZE


Pressed=GetPointerPressed()
Released=GetPointerReleased()

if GetSpriteExists(board[x,y].spr)=1 


if GetspriteHitTest( board[x,y].spr, x#, y# ) =1 
PlaySprite(board[x,y].spr,15,0)
ImageID=GetSpriteImageID(board[x,y].spr)
Print("The Image Style is "+Str( all_sprites[board[x,y].spr].Falldown,0))
endif



if GetRawKeyPressed(32) or GetPointerPressed()
all_sprites[board[x,y].spr].playme=0
endif


if GetspriteHitTest( board[x,y].spr, x#, y# ) =1 and trigger=0 and pressed=1
Selected_Style=board[x,y].style
all_sprites[board[x,y].spr].Selected=1
trigger=1
endif	

   
if GetspriteHitTest( board[x,y].spr, x#, y# ) =1 and all_sprites[board[x,y].spr].Selected=0 and trigger=1 and pressed=1
Not_Selected_Style=board[x,y].style
all_sprites[board[x,y].spr].Selected_2=1
switch=1
endif	


if switch=1 and all_sprites[board[x,y].spr].Selected=1 
board[x,y].style=Not_Selected_Style
SetSpriteImage(board[x,y].spr, image[board[x,y].style])
switch=2
all_sprites[board[x,y].spr].Selected=0
endif


if switch=2 and all_sprites[board[x,y].spr].Selected_2=1 
board[x,y].style=Selected_Style
SetSpriteImage(board[x,y].spr, image[board[x,y].style])
turnoff=1
dec turns,1
all_sprites[board[x,y].spr].Selected_2=0
endif

if turnoff=1
switch=0
delete_timmer=1	
trigger=0
turnoff=0
endif

if delete_timmer=1	
time_to_delete=time_to_delete+1
endif

if time_to_delete=300
GetMatches()	
DeleteMatches()
Falldown()
delete_timmer=0
time_to_delete=0	
endif

    fally=GetSpriteY(board[x,y].spr)
    fallx=GetSpritex(board[x,y].spr)
    
if all_sprites[board[x,y].spr].Falldown=1
	
SetSpritePosition(board[x,y].spr,fallx,fally+falling)
falling=falling+1
SetSpriteDepth(board[x,y].spr,0)
endif

if fally>=705
all_sprites[board[x,y].spr].Falldown=0
falling=0
fally=600
endif

ImageID=GetSpriteImageID(board[x,y].spr)
if board[x,y].style=0 then frames=8
if board[x,y].style=1 then frames=9
if board[x,y].style=2 then frames=13
if board[x,y].style=3 then frames=13
if board[x,y].style=4 then frames=13
if board[x,y].style=5 then frames=5
if board[x,y].style=6 then frames=13
if board[x,y].style=7 then frames=12
if board[x,y].style=8 then frames=13
if board[x,y].style=9 then frames=13

SetSpriteAnimation(board[x,y].spr,675,601,frames)

endif

next x
next y
	
	x# = GetPointerX ( )
    y# = GetPointerY ( )


	line1$ = "x=" + str (x# )
	SetTextString ( 100, line1$ )
	
	line1$ = "y=" + str (y# )
	SetTextString ( 200, line1$ )
	
    line1$ = "" + str (level )
	SetTextString ( 201, line1$ )
	
	line1$ = "" + str (turns )
	SetTextString ( 202, line1$ )
	
	line2$ = "SECONDS=" + str (seconds  )
	SetTextString ( 1000, line2$ )
	
	line3$ = "MINUTES=" + str (min )
	SetTextString ( 1001, line3$ )


	SetSpriteSize(4,timex-initialTime-10,timey)
	
	 
time# = 305-timer()
min = floor(time#/60)
seconds = mod(time#,60)
milli# = fmod(time#,1)
initialTime = GetSeconds ( )
	 


    Sync()
until GetRawKeyPressed(27)
end
/////////////   M A I N   L O O P   E N D   ////////////////


/////////////   M A I N   F U N C T I O N S   S T A R T  ////////////////
function Falldown()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			//Horizontal
			falling = board[x,y].spr 
			if GetSpriteExists(board[x,y].spr)=1
				for k = 0 to falling
					all_sprites[board[x,y].spr].Falldown=1

				
				next k
			endif
			
			//Vertical
			falling = board[x,y].spr
			if GetSpriteExists(board[x,y].spr)=1
				for k = 0 to falling
					all_sprites[board[x,y].spr].Falldown=1
				next k
			endif
		next x
	next y
endfunction


function DeleteMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			//Horizontal
			matches = board[x,y].qtyMatches[HORIZONTAL]
			if matches >= 3 and GetSpriteExists(board[x,y].spr)=1
				for k = 0 to matches-1
					DeleteSprite(board[x+k,y].spr)
					
				next k
			endif
			
			//Vertical
			matches = board[x,y].qtyMatches[VERTICAL]
			if matches >= 3 and GetSpriteExists(board[x,y].spr)=1
				for k = 0 to matches-1
					DeleteSprite(board[x,y+k].spr)
				next k
			endif
		next x
	next y
endfunction
	


function GetMatches()
	ClearMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			for k = 0 to 1
				if board[x,y].checked[k] = 0
					match = CheckMatches(k, x,y)
					if match > board[x,y].qtyMatches[k]
						board[x,y].qtyMatches[k] = match
					endif
				endif
			next k
		next x
	next y
endfunction


function CheckMatches(k, x, y)
	match = 1
	if k = HORIZONTAL
		while x < BOARD_SIZE
			if board[x,y].style = board[x+1,y].style
				board[x,y].checked[k] = 1
				inc match		
				inc x
			else
				exitfunction match
			endif
		endwhile
		exitfunction match
	else
		while y < BOARD_SIZE
			if board[x,y].style = board[x,y+1].style
				board[x,y].checked[k] = 1
				inc match
				inc y
			else
				exitfunction match
			endif
		endwhile
	endif
endfunction match



function ClearMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			for k = 0 to 1
				board[x,y].qtyMatches[k] = 1
				board[x,y].checked[k] = 0
			next k
		next x
	next y
endfunction


function ShowMatches()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			for k = 0 to 1
				SetTextString(board[x,y].txt[k], str(board[x,y].qtyMatches[k]))
				SetTextVisible(board[x,y].txt[k], board[x,y].qtyMatches[k] >= 300)
			next k
		next x
	next y
endfunction


function InitialiseBoard()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			
			
			board[x,y].spr = CreateSprite(0)
			SetSpriteSize(board[x,y].spr, CELL_SIZE+10, CELL_SIZE+10)
			SetSpritePosition(board[x,y].spr, MARGIN_LEFT + x*CELL_SIZE-8, MARGIN_TOP + y*CELL_SIZE-9)
			SetSpriteUVBorder( board[x,y].spr, 2 )
			SetSpriteImage ( board[x,y].spr, 10)
			
			board[x,y].spr = CreateSprite(0)
			SetSpriteSize(board[x,y].spr, CELL_SIZE+9, CELL_SIZE+9)
			SetSpritePosition(board[x,y].spr, MARGIN_LEFT + x*CELL_SIZE+1, MARGIN_TOP + y*CELL_SIZE+1)
			SetSpriteUVBorder( board[x,y].spr, 2 )
			setspritescale(board[x,y].spr,0.8,0.8)
			SetSpriteColor(board[x,y].spr,160,82,45,255)
			
			
			SetSortCreated(1)
			board[x,y].spr = CreateSprite(0)
			SetSpriteSize(board[x,y].spr, CELL_SIZE, CELL_SIZE)
			setspritescale(board[x,y].spr,0.9,0.9)
			SetSpritePosition(board[x,y].spr, MARGIN_LEFT + x*CELL_SIZE, MARGIN_TOP + y*CELL_SIZE)
		    SetSpriteUVBorder( board[x,y].spr, 2 )
			


		    for k = 0 to 1
			board[x,y].txt[k] = CreateText("0")
			SetTextColor(board[x,y].txt[k], 255, 255, 255, 255)
			SetTextSize(board[x,y].txt[k], CELL_SIZE/1.5)
			SetTextBold(board[x,y].txt[k], 1)
				
			next k
			SetTextPosition(board[x,y].txt[0], MARGIN_LEFT + x*CELL_SIZE + CELL_SIZE/4, MARGIN_TOP + y*CELL_SIZE + CELL_SIZE/5)
			SetTextPosition(board[x,y].txt[1], MARGIN_LEFT + x*CELL_SIZE + CELL_SIZE/2, MARGIN_TOP + y*CELL_SIZE + CELL_SIZE/5)
			SetTextColor(board[x,y].txt[0], 64, 128, 224, 255)
			SetTextColor(board[x,y].txt[1], 64, 224, 64, 255)
		next x
	next y
	RandomiseBoard()
endfunction



function RandomiseBoard()
	for y = 0 to BOARD_SIZE
		for x = 0 to BOARD_SIZE
			
			if x=0 then setx=0
			if x=1 then setx=1
			if x=2 then setx=2
			if x=3 then setx=3
			if x=4 then setx=4
			if x=5 then setx=5
			if x=6 then setx=6
			if x=7 then setx=7
			
			if y=0 then sety=5
			if y=1 then sety=4
			if y=2 then sety=3
			if y=3 then sety=2
			if y=4 then sety=1
			if y=5 then sety=4
			if y=6 then sety=3
			if y=7 then sety=2
			
			set=set
			board[x,y].style = Random(setx, sety)
			if GetSpriteExists(board[x,y].spr)=1 then SetSpriteImage(board[x,y].spr, image[board[x,y].style])
			//if GetSpriteExists(board[x,y].spr)=1 then SetSpriteVisible(board[x,y].spr, 1)

			
			if set>=8 then set=0
		next x
	next y
endfunction

function LinearInterpolate( y1 as float, y2 as float, mu as float)

        local f as float
        f=(y1*(1.0-mu)+y2*mu)

endfunction f


function ShowBenchmarking()

    print ("FPS "+str(screenfps()))
    print ("Drawing Setup Time "+str(GetDrawingSetupTime()))
    print ("Drawing Time "+str(GetDrawingTime()))
    print ("Pixels Drawn "+str(GetPixelsDrawn()))
    print ("Update Time "+str(GetUpdateTime()))
    print ("Physics Time "+str(GetPhysicsTime()))

    print ("Managed Sprite Count "+str(GetManagedSpriteCount()))
    print ("Managed Sprite Draw Calls "+str(GetManagedSpriteDrawCalls()))
    print ("Managed Sprite Drawn Count "+str(GetManagedSpriteDrawnCount()))
    print ("Managed Sprite Sorted Count "+str(GetManagedSpriteSortedCount()))
    print ("Particle Drawn Point Count "+str(GetParticleDrawnPointCount()))
    print ("Particle Drawn Quad Count "+str(GetParticleDrawnQuadCount()))

    print ("Loaded Images "+str(GetLoadedImages()))
    UnassignedImages=GetUnassignedImages()
    print ("Unassigned Images "+str(UnassignedImages))
    for i=1 to UnassignedImages
     print ("Unassigned Image FileName "+GetUnassignedImageFileName(i))
    next

endfunction
/////////////   M A I N   F U N C T I O N S   E N D  ////////////////

Back to top

Profile PM

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 11th Jul 2020 18:08 Edited at: 11th Jul 2020 18:09

Link

Okay, hopefully it will be of some help.

It's not perfect by any means. Actually, I think there might be a possibility of a sprite falling below the board so a check should be added for that.

In a way it's a simple problem because breaking things down ultimately everything becomes a simple problem. And, on the other hand, to do things right and handle all cases, all edge cases and so forth... even things that seem very simple can become fairly involved. That's just the nature of things.

I completely get you are learning and if my wording came across in a wrong way that was not intended. Mainly, I was just trying to say the more information people have available the better the help is they can provide. That's all.

Good luck with it. Look forward to seeing your progress.

Back to top

Profile PM

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 11th Jul 2020 20:09 Edited at: 13th Jul 2020 06:49

Link

I used the code you provide and added my images to each sprite and it works. Now I have to incorporate the same matching function to work with the code. I'm starting to fully get it because of your code.

Thanks

Ok update, I added Scraggle match code to yours and then edited your player remove sprite and it works lol.

2 pieces of code mixed works.

I'm using your code because it is formated more for a game with levels and a menu.

Well with trial and error I'm close to a working match 3 game.

Even invisible the program keeps matching them also. Even if I add if sprites are Visible check.

I'm close to a perfect running code.

I will post the code when I get it right.

Back to top

Profile PM

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 13th Jul 2020 07:02

Link

If you used the boardspritetype then you can check if the state of the sprites = SSTATE_ATREST and that will only check for visible non falling sprites.

Back to top

Profile PM

Game_Code_here

3

Years of Service

User Offline

Joined: 2nd Jun 2020

Location:

Posted: 13th Jul 2020 08:17

Link

Hi

I did that and it didn't work, I'm not sure why. But I had another idea. I'm wanting to clear the board from each match. So I added a background sprite and am coloring the background to each match.

So reusing the sprites is a good idea.

Im still getting matches for them so I can still use it for my advantage.

And the sprites still fall also. But I'm working on it little bit at a time.

Thanks for the help.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Is there a easier way to do this code for sprite falling?