with a slight change it works in DBC too
I don't know craps but I know you can't get 13 with one die so I changed the dice variable to two dice.
For Crappy = 1 to 11
Dice = Rnd(10)+2
Print "Rolled a " + Str$(Dice)
Select Dice
Case 2
Inc pts,2
Name$ = "SnakeEyes"
EndCase
Case 4 or 5 or 6 or 8 or 9 or 10 : `<-- Multiple Parameters Yaaahooo
Inc pts
Name$ = "Point"
EndCase
Case 3 or 12
Pts = 0
Name$ = "Craps"
EndCase
Case 7 or 11
If Pts<>1 Then Pts = 1
Pts = Pts * 2
Name$ = "Natural"
EndCase
EndSelect
Print Name$ + Chr$(32) + Str$(Pts)
Next 0
Wait Key
End
Two Lines! I hate myself for destroying this code like that
lol
For Crappy = 1 to 11 : Dice = Rnd(10)+2 : Print "Rolled a " + Str$(Dice) : Select Dice : Case 2 : Inc pts,2 : Name$ = "SnakeEyes" : EndCase : Case 4 or 5 or 6 or 8 or 9 or 10 : Inc pts : Name$ = "Point" : EndCase
Case 3 or 12 : Pts = 0 : Name$ = "Craps" : EndCase : Case 7 or 11 : If Pts<>1 : Pts = 1 : endif : Pts = Pts * 2 : Name$ = "Natural" : EndCase : EndSelect : Print Name$ + Chr$(32) + Str$(Pts) : Next crappy : Wait Key : End
"You must be someone's friend to make comments about them." - MySpace lied.
