The other thing to consider is sampling a draw from the list of possible outcomes with even odds:
n <- 1
sample(0:35,n, replace=TRUE)
I think the range is 0:35... but you get the idea...
then you could set up a metadata table with columns: value, color, odd, even, etc
join your random draws to the metadata table to determine the characteristics of each draw.
I think you are just figuring this all out and are using gambling games as tractable examples. I think that's a great learning method.