Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Qwerkey on November 27, 2018, 08:54:03 am

Title: Roulette Game in Preparation
Post by: Qwerkey on November 27, 2018, 08:54:03 am
I thought that I might create a Roulette game.  Before I make any significant progress, I'd be grateful for any suggestions.  An obvious one is to make the ball apparently roll as opposed to just sliding around in a circle.  I will also have to work out the mathematics for when the ball drops into a slot.

As I fairly recently posted a fruit-machine game, you must think that I'm a gambling addict: but never been in a casino!  I will have to learn how to play the game, what the odds are and payout values.

You will need the two images.
Code: QB64: [Select]
  1. 'Roulette
  2. Wheel& = _LOADIMAGE("roulette wheel.png", 33)
  3. Ball& = _LOADIMAGE("billiardball1.png", 33)
  4.  
  5. SCREEN _NEWIMAGE(1200, 1000, 32)
  8.  
  9. Phi! = 0
  10. Theta! = 0
  11. X0% = -460: Y0% = -460
  12. X1% = 919 - 460: Y1% = -460
  13. X2% = -460: Y2% = 919 - 460
  14. X3% = 919 - 460: Y3% = 919 - 460
  15.  
  17.     _LIMIT 25
  18.     '_PUTIMAGE (100, 40), Wheel&
  19.     X0Dash! = X0% * COS(Theta!) - Y0% * SIN(Theta!)
  20.     Y0Dash! = X0% * SIN(Theta!) + Y0% * COS(Theta!)
  21.     X1Dash! = X1% * COS(Theta!) - Y1% * SIN(Theta!)
  22.     Y1Dash! = X1% * SIN(Theta!) + Y1% * COS(Theta!)
  23.     X2Dash! = X2% * COS(Theta!) - Y2% * SIN(Theta!)
  24.     Y2Dash! = X2% * SIN(Theta!) + Y2% * COS(Theta!)
  25.     X3Dash! = X3% * COS(Theta!) - Y3% * SIN(Theta!)
  26.     Y3Dash! = X3% * SIN(Theta!) + Y3% * COS(Theta!)
  27.     _MAPTRIANGLE (0, 0)-(919, 0)-(0, 919), Wheel& TO(X0Dash! + 100 + 460, Y0Dash! + 40 + 460)-(X1Dash! + 100 + 460, Y1Dash! + 40 + 460)-(X2Dash! + 100 + 460, Y2Dash! + 40 + 460)
  28.     _MAPTRIANGLE (919, 919)-(0, 919)-(919, 0), Wheel& TO(X3Dash! + 100 + 460, Y3Dash! + 40 + 460)-(X2Dash! + 100 + 460, Y2Dash! + 40 + 460)-(X1Dash! + 100 + 460, Y1Dash! + 40 + 460)
  29.     XBall! = 400 * COS(Phi!)
  30.     YBall! = 400 * SIN(Phi!)
  31.     _PUTIMAGE (XBall! + 560 - 20, YBall! + 500 - 20)-(XBall! + 560 + 20, YBall! + 500 + 20), Ball&
  32.  
  33.     _DISPLAY
  34.     Theta! = Theta! + 0.01
  35.     IF Theta! > _PI THEN Theta! = Theta! - 2 * _PI
  36.     Phi! = Phi! - 0.02
  37.     IF Phi! < -_PI THEN Phi! = Phi! + 2 * _PI
  39.  
  41.  
Title: Re: Roulette Game in Preparation
Post by: SMcNeill on November 27, 2018, 09:06:39 am
From what I remember with roulette, there's 38 color slots.  18 red, 18 black, and 2 green.

When betting on Red or Black, your odds of winning are 18/19, and payout is double.
To bet on a specific number, the odds are 1/19, and the payout is 6x the bet.

Green are always house tiles and non-bettable.

The odds are stacked so in the long run, the house always ends up the winner...

But, this is all just based on my poor memory from doing some research for a novel once a few years in the past.  I've never actually played the game, nor even been in a casino, so it's entirely possible there are multiple variations on the game that I'm unaware of.  :)

Edit:  Apparently the modern betting system is a lot more complex than the simplistic one I remember, as the image here illustrates -- http://www.southafricanonlinecasinos.com/imagesNew/roulettebets.jpg
Title: Re: Roulette Game in Preparation
Post by: bplus on November 27, 2018, 12:21:28 pm
If payout is only 6x bet, that is really unfair game when odds of hitting slot are 1 in 38.
Title: Re: Roulette Game in Preparation
Post by: SMcNeill on November 27, 2018, 12:56:48 pm
Quote from: bplus on November 27, 2018, 12:21:28 pm
If payout is only 6x bet, that is really unfair game when odds of hitting slot are 1 in 38.

Wiki actually has a good breakdown on the odds and rules: https://en.m.wikipedia.org/wiki/Roulette

Much better than my poor old memory.  ;D
Title: Re: Roulette Game in Preparation
Post by: Qwerkey on November 27, 2018, 01:02:00 pm
I'll be using the Wiki odds (probably amended slightly to make the user win on average).
Text Only | Text with Attachments