Fruit Machine game

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|603\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Handheld Coding -> Fruit Machine game
Mon, 10 Mar 2008, 12:58
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() --v -=-=- Spanner
Mon, 10 Mar 2008, 14:01
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..? -=-=- Spanner
Mon, 10 Mar 2008, 15:06
Jayenkai	I'll have a look once I get home from work. Welcome to Socoder, btw. -=-=- ''Load, Next List!''
Mon, 10 Mar 2008, 16:42
Jayenkai	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. -=-=- ''Load, Next List!''
Mon, 10 Mar 2008, 17:37
Afr0	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..' --v -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Tue, 11 Mar 2008, 09:56
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++.. -=-=- Spanner
Tue, 11 Mar 2008, 10:29
Jayenkai	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. -=-=- ''Load, Next List!''
Tue, 11 Mar 2008, 11:27
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 --v 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..? -=-=- Spanner
Tue, 11 Mar 2008, 12:22
mike_g	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.
Tue, 11 Mar 2008, 13:46
Jayenkai	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. -=-=- ''Load, Next List!''
Tue, 11 Mar 2008, 14:09
mike_g	Whoops, looks like I got a bit confused there o_0 Still getting the time will come in handy for seeding randomisation anyhow.
Tue, 11 Mar 2008, 14:18
Jayenkai	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 -=-=- ''Load, Next List!''
Thu, 13 Mar 2008, 13:15
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() --v -=-=- Spanner
Sun, 16 Mar 2008, 19:01
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() --v 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. -=-=- Check out my excellent homepage!
Sun, 23 Mar 2008, 11:40
spanner	Thanks spin that did it..
Sun, 23 Mar 2008, 11:48
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..? -=-=- Spanner