Fruit Machine game/Forum (SoCoder)

Forum Home

Handheld Coding

Fruit Machine game

User

Message

Posted : Monday, 10 March 2008, 11:58 | Permalink | Mark Here

spanner

Hi all,i am new to making games on the ds so i need some help..

I making a fruit machine game for the DS with Palib and I have got the reels turning....BUT....

1.To be able to start them turning with the start button on the image and button A on the DS..(Edit Codes been edited..Got it working with the A button but not the start buton on the image.)

2.How do you get the reels ainimation to stop once you pressed the A button with PA_SpriteAnimPause..

3.To make them turn randomly so they don't land on the same fruit..

4.Any help with this is welcome..

I put up the source code for you all the have a look and play with it..

Picture..

// Includes


// Include for PA_Lib
#include <PA9.h>       

// Converted using PAGfx
#include "gfx/all_gfx.c"
#include "gfx/all_gfx.h"

// Function: main()
int main(int argc, char ** argv)
{
	PA_Init();    // Initializes PA_Lib
	PA_InitVBL(); // Initializes a standard VBL
	
	// Load Backgrounds with their palettes !
	PA_EasyBgLoad(0, // screen
					0, // background number (0-3)
					bg0); // Background name, used by PAGfx...
	
	PA_EasyBgLoad(1, 3, bg1);	
	{
	
	
	// Load the sprite palette, 
	PA_LoadSpritePal(0, // Screen
					0, // Palette number
					(void*)explosion_Pal);	// Palette name
	PA_LoadSpritePal(0, 1, (void*)explosion2_Pal);	
	PA_LoadSpritePal(0, 2, (void*)explosion3_Pal);
	
	// Here, we'll load a few similar sprites sprite to animate... at different speed	
	PA_CreateSprite(0, 0,(void*)explosion_Sprite, OBJ_SIZE_32X64,1, 0, 35, 47);
	PA_CreateSprite(0, 1,(void*)explosion2_Sprite, OBJ_SIZE_32X64,1, 1, 70, 47);	
	PA_CreateSprite(0, 2,(void*)explosion3_Sprite, OBJ_SIZE_32X64,1, 2, 108, 47);

		 PA_StartSpriteAnimEx(0, 0, 0, 7, 5, ANIM_LOOP, 1);							
		 PA_StartSpriteAnimEx(0, 1, 0, 7, 5, ANIM_LOOP, 2); 
		 PA_StartSpriteAnimEx(0, 2, 0, 7, 5, ANIM_LOOP, 3);
		
		 
		
	while(1)	 	
	 		
	if(Pad.Newpress.A)
{
 
 
 {
  
  {
    PA_StartSpriteAnim(0, 0, 0, 7, 5 );							
    PA_StartSpriteAnim(0, 1, 0, 7, 5 ); 
    PA_StartSpriteAnim(0, 2, 0, 7, 5 );  
  } // Y
 } // X
}// Pad A
	
	
	{
		PA_WaitForVBL();
	}
	

}



	
	return 0;
} // End of main()

-->

-----
Span

Posted : Monday, 10 March 2008, 13:01 | Permalink | Mark Here

spanner

I was trying that to get the A button to make the reels turn..can you help..? Got it working with the A button but not the start button on the image. Anyone..? ----- Span

Posted : Monday, 10 March 2008, 14:06 | Permalink | Mark Here

Jayenkai

WW Entries : 103

I'll have a look once I get home from work. Welcome to Socoder, btw. -----

Posted : Monday, 10 March 2008, 15:42 | Permalink | Mark Here

Jayenkai

WW Entries : 103

ok, I'll give you rough pointers, and you should be able to figure things out.

For each reel, create a "Ticker". This is a simple int number that starts high, then winds back down to 0.

When the player hits A, set ticker for the first reel to a random number.. Set the second reel's ticker to another random number, but one which is higher than the first. For the third, make it an even bigger random number.

Now, spin the reels, and keep counting those tickers down, one by one.
Once a ticker hits 0, stop it's reel from spinning.
Wait till all three tickers are at 0, and that'll be your time to jump into all the scorings, and things like that..

I've not bothered to give you a coded example, because... A) It's not really all that hard, so you shouldn't have any trouble implementing it, but also B) There's a multitude of ways you can do it. Whether you choose to use Arrays, or Structs, or even just a bunch of variables for each reel, or what ever else, it's up to you.

-----

Posted : Monday, 10 March 2008, 16:37 | Permalink | Mark Here

Afr0

WW Entries : 3

Pseudo code:

int Ticker1, Ticker2, Ticker3;

Ticker1 = Random(1, 100);
Ticker2 = Random(2, 100);
Ticker3 = Random(3, 100);

int[] Tickers = {Ticker1, Ticker2, Ticker3};

for(int i = 0; i < Tickers.Length; i++)
{
while(!Ticker[i] == 0)
Ticker[i]--;
}

//TODO:
//'and that'll be your time to jump into all the scorings, 
// and things like that..'

-->

-----
Afr0 Games

Project Dollhouse on Github - Please fork!

Posted : Tuesday, 11 March 2008, 08:56 | Permalink | Mark Here

spanner

So do i use that code Afr0 posted and where in my code do it put it,How do i connect the Tickers to the reels..? I need to read up on c++.. ----- Span

Posted : Tuesday, 11 March 2008, 09:29 | Permalink | Mark Here

Jayenkai

WW Entries : 103

No, don't use precisely Afr0's code.. It's approximate code to help guide you on your way. Mine's more explainatory, if you can follow the general gist of mine, you should be able to understand what's needed. To connect tickers to reels, basically, instead of having A start the reels moving, have the reels animate when ticker > 0, and then, as soon as ticker =0, stop the reels again. -----

Posted : Tuesday, 11 March 2008, 10:27 | Permalink | Mark Here

spanner

This is the ainimation of the reels and the press A button.. if(Pad.Newpress.A) { { { PA_StartSpriteAnim(0, 0, 0, 7, 5 ); PA_StartSpriteAnim(0, 1, 0, 7, 5 ); PA_StartSpriteAnim(0, 2, 0, 7, 5 ); } // Y } // X }// Pad A --> So do i replace the PA_StartSpriteAnim(0, 1, 0, 7, 5 ); with the ticker...never done this before read abit about c++ but didn't have tickers in there..? ----- Span

Posted : Tuesday, 11 March 2008, 11:22 | Permalink | Mark Here

mike_g

WW Entries : 6

Maybe take a look in the PA lib documentation. I'm pretty sure it should feature some method of getting the time but I dont know as I never used it myself. If not maybe look up gettimeofday and code your own ticker. Its a portable way to get the time, but i'm not totally sure if it will work on a DS.

As for randomisation PA lib might do that for you too if you look for it, also when using random numbers make sure to seed it something that will be variable, such as the time, otherwise it will give you the same numbers each game.

Posted : Tuesday, 11 March 2008, 12:46 | Permalink | Mark Here

Jayenkai

WW Entries : 103

The ticker described above does not require any timers, any special clocks, or anything like that.
I called it a ticker because it's something you'll be ticking away manualy.

Within your main loop, have something like this.

if (Ticker>0 ){Ticker--;}
(Obviously, you'll need 3 of these.. One for each reel. So you can probably use TickerA,B and C.)

When you set the ticker variable up to something like 120, it'll gradually reduce until it's back to 0.

So, when the player hits A, set the first reel's ticker to 100, then second to 140, and the third to 160. If you can get those randomly, that'll be better.

if (Pad.hit.A) {TickerA=100; TickerB=140;TickerC=160;}
And, set off the spinning like you did earlier.

Next, remember to keep the little reducer active, so it keep them ticking downwards, and once the ticker hits 0 again, stop the reels..
if (TickerA==0) {
// stop the 1st reel here.
}

if (TickerB==0) {
// stop the 1st reel here.
}

if (TickerC==0) {
// stop the 1st reel here.
}

And, that should roughly be enough.

Think of it like this. (assuming it were a real fruit machine..)

When you push the button, you set reel 1 off with enough momentum to pass 100 fruit, 2 with 140 and 2 with 160.
Then, as each fruit passes by the middle row, it clicks a little ticker which counts how many have gone by.
As soon as the momentum's done, the fruit machine knows how many fruit have passed, because it's been ticking along as it goes.

In our case, we're ticking backwards, but also using it to do the momentum too. It means rather than having both a momentum value, AND a ticker, we only really need one of them.
It's much easier this way.

-----

Posted : Tuesday, 11 March 2008, 13:09 | Permalink | Mark Here

mike_g

WW Entries : 6

Whoops, looks like I got a bit confused there o_0 Still getting the time will come in handy for seeding randomisation anyhow.

Posted : Tuesday, 11 March 2008, 13:18 | Permalink | Mark Here

Jayenkai

WW Entries : 103

Yeah, I can't remember exactly what the PALib Randomiser is, so I'll check it once I get back home. It's not too bad, though.. quite like Blitz's -----

Posted : Thursday, 13 March 2008, 12:15 | Permalink | Mark Here

spanner

Well i changed the code abit to use the PALib Randomiser, now you can start the reels with the start buton on the image.The problem is you press the start button and the reels turn and they try to stop but they don't but if you use the A button they work fine..?

See for yourself..

Reel Crazy Fruit Sim

Heres the code..

// Includes


// Include for PA_Lib
#include <PA9.h>       

// Converted using PAGfx
#include "gfx/all_gfx.c"
#include "gfx/all_gfx.h"

// Add some defines for easy reading
// It will make changing the code also more simple
#define BOTTOM_SCREEN	  0
#define TOP_SCREEN		  1
#define PALETTE_0		  0 // palete of wheel 0 PLEASE note that all wheel could use this palette
#define PALETTE_1		  1
#define PALETTE_2		  2
#define WHEEL_0			  0 // Sprite for wheel 0
#define WHEEL_1			  1 // Sprite for wheel 1
#define WHEEL_2			  2 // Sprite for wheel 2
#define WHEEL_SPEED		  5 // The speed at which the wheels turn
#define MIN_WHEEL_TURNS	 60 // How long the wheel spin minimal before stopping. (1 sec)
#define MAX_WHEEL_TURNS	300 // How long the wheel spin maximal before stopping. (5 sec)
#define START_WHEEL		  0
#define PAUSE_WHEEL		  1


// Some frequently used functions
void Delay(int Value){
	// Just a delay function that will make the program wait some time
	int i;
	for(i = 0; i < Value; i++) {
		// Here we'll can flash some lights here on the upper screen :0)
		PA_WaitForVBL();
	}
}

// Function: main()
int main(int argc, char ** argv)
{
	PA_Init();    // Initializes PA_Lib
	PA_InitVBL(); // Initializes a standard VBL
	
	// Load Backgrounds with their palettes !
	PA_EasyBgLoad(BOTTOM_SCREEN, 0, bg0); // Background name, used by PAGfx...
	
	PA_EasyBgLoad(TOP_SCREEN, 3, bg1);	
	
	// Load the sprite palette, 
	PA_LoadSpritePal(BOTTOM_SCREEN, PALETTE_0, (void*)reel1_Pal);	// Palette name
	PA_LoadSpritePal(BOTTOM_SCREEN, PALETTE_1, (void*)reel2_Pal);	
	PA_LoadSpritePal(BOTTOM_SCREEN, PALETTE_2, (void*)reel3_Pal);
	
	// Here, we'll load a few similar sprites sprite to animate... at different speed	
	PA_CreateSprite(BOTTOM_SCREEN, WHEEL_0, (void*)reel1_Sprite, OBJ_SIZE_32X64,1, PALETTE_0,  35, 47);
	PA_CreateSprite(BOTTOM_SCREEN, WHEEL_1, (void*)reel2_Sprite, OBJ_SIZE_32X64,1, PALETTE_1,  70, 47);	
	PA_CreateSprite(BOTTOM_SCREEN, WHEEL_2, (void*)reel3_Sprite, OBJ_SIZE_32X64,1, PALETTE_2, 108, 47);

	// Spinn ALL wheels and stop each one after the other
	PA_StartSpriteAnim(BOTTOM_SCREEN, WHEEL_0, 0, 7, WHEEL_SPEED);
	PA_StartSpriteAnim(BOTTOM_SCREEN, WHEEL_1, 0, 7, WHEEL_SPEED);
	PA_StartSpriteAnim(BOTTOM_SCREEN, WHEEL_2, 0, 7, WHEEL_SPEED);
	// Now stop one wheel after the other
	Delay(MIN_WHEEL_TURNS);
	PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_0, PAUSE_WHEEL );
	Delay(MIN_WHEEL_TURNS);
	PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_1, PAUSE_WHEEL );
	Delay(MIN_WHEEL_TURNS);
	PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_2, PAUSE_WHEEL );

	
	int Random_Turns = 0; // Value for random turning time
	
	// Now the game is setup we can enter the main game loop and stay there
	while(1)
	{
		// Spin the wheels when the A button is pressed or the stylus is pressed on start image. 
	 	if ((Pad.Newpress.A) || PA_StylusInZone(220,164,239,179)) 
		{
			// Start ALL wheels spinning from the position the where stopped
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_0, START_WHEEL );
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_1, START_WHEEL );
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_2, START_WHEEL );
			// Get a random value that the wheels will turn
			Random_Turns = PA_RandMinMax(MIN_WHEEL_TURNS, MAX_WHEEL_TURNS);
		}

		// Do this only if the wheel are turning
		// NOTE this can be placed in a function so you will keep MAIN clean
		if(Random_Turns > 0){
			// Do the wheel spinning action and stopping here
			Delay(Random_Turns);
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_0, PAUSE_WHEEL );
			Delay(Random_Turns);
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_1, PAUSE_WHEEL );
			Delay(Random_Turns);
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_2, PAUSE_WHEEL );
			Random_Turns = 0;
		}
		
		// Other action to follow
		
		PA_WaitForVBL();
	}
	return 0;	
} // End of main()

-->

-----
Span

Posted : Sunday, 16 March 2008, 18:01 | Permalink | Mark Here

spinal

try this...

// Includes


// Include for PA_Lib
#include <PA9.h>       

// Converted using PAGfx
#include "gfx/all_gfx.c"
#include "gfx/all_gfx.h"

// Add some defines for easy reading
// It will make changing the code also more simple
#define BOTTOM_SCREEN	  0
#define TOP_SCREEN		  1
#define PALETTE_0		  0 // palete of wheel 0 PLEASE note that all wheel could use this palette
#define PALETTE_1		  1
#define PALETTE_2		  2
#define WHEEL_0			  0 // Sprite for wheel 0
#define WHEEL_1			  1 // Sprite for wheel 1
#define WHEEL_2			  2 // Sprite for wheel 2
#define WHEEL_SPEED		  5 // The speed at which the wheels turn
#define MIN_WHEEL_TURNS	 60 // How long the wheel spin minimal before stopping. (1 sec)
#define MAX_WHEEL_TURNS	300 // How long the wheel spin maximal before stopping. (5 sec)
#define START_WHEEL		  0
#define PAUSE_WHEEL		  1


// Some frequently used functions
void Delay(int Value){
	// Just a delay function that will make the program wait some time
	int i;
	for(i = 0; i < Value; i++) {
		// Here we'll can flash some lights here on the upper screen :0)
		PA_WaitForVBL();
	}
}

// Function: main()
int main(int argc, char ** argv)
{
	PA_Init();    // Initializes PA_Lib
	PA_InitVBL(); // Initializes a standard VBL
	
	// Load Backgrounds with their palettes !
	PA_EasyBgLoad(BOTTOM_SCREEN, 0, bg0); // Background name, used by PAGfx...
	
	PA_EasyBgLoad(TOP_SCREEN, 3, bg1);	
	
	// Load the sprite palette, 
	PA_LoadSpritePal(BOTTOM_SCREEN, PALETTE_0, (void*)reel1_Pal);	// Palette name
	PA_LoadSpritePal(BOTTOM_SCREEN, PALETTE_1, (void*)reel2_Pal);	
	PA_LoadSpritePal(BOTTOM_SCREEN, PALETTE_2, (void*)reel3_Pal);
	
	// Here, we'll load a few similar sprites sprite to animate... at different speed	
	PA_CreateSprite(BOTTOM_SCREEN, WHEEL_0, (void*)reel1_Sprite, OBJ_SIZE_32X64,1, PALETTE_0,  35, 47);
	PA_CreateSprite(BOTTOM_SCREEN, WHEEL_1, (void*)reel2_Sprite, OBJ_SIZE_32X64,1, PALETTE_1,  70, 47);	
	PA_CreateSprite(BOTTOM_SCREEN, WHEEL_2, (void*)reel3_Sprite, OBJ_SIZE_32X64,1, PALETTE_2, 108, 47);

	// Spinn ALL wheels and stop each one after the other
	PA_StartSpriteAnim(BOTTOM_SCREEN, WHEEL_0, 0, 7, WHEEL_SPEED);
	PA_StartSpriteAnim(BOTTOM_SCREEN, WHEEL_1, 0, 7, WHEEL_SPEED);
	PA_StartSpriteAnim(BOTTOM_SCREEN, WHEEL_2, 0, 7, WHEEL_SPEED);
	// Now stop one wheel after the other
	Delay(MIN_WHEEL_TURNS);
	PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_0, PAUSE_WHEEL );
	Delay(MIN_WHEEL_TURNS);
	PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_1, PAUSE_WHEEL );
	Delay(MIN_WHEEL_TURNS);
	PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_2, PAUSE_WHEEL );

	
	int Random_Turns = 0; // Value for random turning time
	
	// Now the game is setup we can enter the main game loop and stay there
	while(1)
	{
		// Spin the wheels when the A button is pressed or the stylus is pressed on start image. 
	 	if ((Pad.Newpress.A) || (PA_StylusInZone(220,164,239,179) && Stylus.Newpress)) 
		{
			// Start ALL wheels spinning from the position the where stopped
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_0, START_WHEEL );
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_1, START_WHEEL );
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_2, START_WHEEL );
			// Get a random value that the wheels will turn
			Random_Turns = PA_RandMinMax(MIN_WHEEL_TURNS, MAX_WHEEL_TURNS);
		}

		// Do this only if the wheel are turning
		// NOTE this can be placed in a function so you will keep MAIN clean
		if(Random_Turns > 0){
			// Do the wheel spinning action and stopping here
			Delay(Random_Turns);
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_0, PAUSE_WHEEL );
			Delay(Random_Turns);
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_1, PAUSE_WHEEL );
			Delay(Random_Turns);
			PA_SpriteAnimPause(BOTTOM_SCREEN, WHEEL_2, PAUSE_WHEEL );
			Random_Turns = 0;
		}
		
		// Other action to follow
		
		PA_WaitForVBL();
	}
	return 0;	
} // End of main()

-->

I didn't test it, but it should work, you need to chek if the stylus is newly pressed, the stylus location is always remembered by palib, so it will always be in the zone, even if you're not pressing it.

-----

3DS - 1762-2660-3218

Posted : Sunday, 23 March 2008, 10:40 | Permalink | Mark Here

spanner

Thanks spin that did it..

Posted : Sunday, 23 March 2008, 10:48 | Permalink | Mark Here

spanner

Now all i have to figer out is how to get the lights on the fruit machine to flicker at the right time with the reels. so if a 1 and a 2 comes up the reel crazy name lights up 3 of its letters.. Any ideas..? ----- Span