Sub ContBet
'-------------------------------------
Result = Msgbox2("Allow 'Continuation' bets with all back-to-back cards of same rank for table minimum bet?", "Continuation Bet", "Yes", "", "No", LoadBitmap(File.DirAssets, "red deck-verticle.bmp"))
If Result = DialogResponse.Positive Then
ContOn=True
LabelInfoBar.Text="Continuation bets are now ALLOWED."
LabelC2.text ="Y"
Else If Result = DialogResponse.Negative Then
ContOn=False
LabelInfoBar.Text="Continuation bets are now NOT ALLOWED."
LabelC2.text ="N"
End If
'-------------------------------------
End Sub
Sub DDTD
'-------------------------------------
Result = Msgbox2("Allow 'Double Down' & 'Triple Down' bets on first card for 2x or 3x current bet?", "Double/Triple", "Yes", "", "No", LoadBitmap(File.DirAssets, "red deck-verticle.bmp"))
If Result = DialogResponse.Positive Then
DownOn=True
LabelD2.text ="Y"
LabelInfoBar.Text="Double & triple downs are now ALLOWED."
Else If Result = DialogResponse.Negative Then
DownOn=False
LabelD2.text ="N"
LabelInfoBar.Text="Double & triple downs are now NOT ALLOWED."
End If
'-------------------------------------
End Sub
Sub SplitThem
'-------------------------------------
Result = Msgbox2("Allow first 2 cards of same rank to be able to split?", "Split Pairs", "Yes", "", "No", LoadBitmap(File.DirAssets, "red deck-verticle.bmp"))
If Result = DialogResponse.Positive Then
SplitOn=True
LabelS2.text ="Y"
LabelInfoBar.Text="Splitting of pairs is now ALLOWED."
Else If Result = DialogResponse.Negative Then
SplitOn=False
LabelS2.text ="N"
LabelInfoBar.Text="Splitting of pairs is now NOT ALLOWED."
End If
'-------------------------------------
End Sub
Sub Sound
'-------------------------------------
Result = Msgbox2("Do you want the sound on or off?", "Sound Effects", "On", "", "Off", LoadBitmap(File.DirAssets, "red deck-verticle.bmp"))
If Result = DialogResponse.Positive Then
SoundOn = True
LabelInfoBar.Text="Sound effects are now turned ON."
Else If Result = DialogResponse.Negative Then
SoundOn = False
LabelInfoBar.Text="Sound effects are now turned OFF."
End If
'-------------------------------------
End Sub