Roulette Game in Preparation

[Qwerkey]

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)
6. _DEST 0
7. _SCREENMOVE 0, 0
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.  
16. WHILE INKEY$ = ""
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
38. WEND
39.  
40. SYSTEM
41.  

[SMcNeill]

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

[bplus]

If payout is only 6x bet, that is really unfair game when odds of hitting slot are 1 in 38.

[SMcNeill]

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

[Qwerkey]

I'll be using the Wiki odds (probably amended slightly to make the user win on average).