Post by: bplus on June 07, 2019, 02:54:46 pm
Code: QB64: [Select]
- TYPE playerType
- players(player).ID = "Player"
- players(dealer).ID = "Dealer"
- chips = 100
- cp 8, "For this Blackjack Game, you start with 100 chips"
- cp 9, "and can bet any amount of them for each game."
- cp 10, "If you'd like to set your bet for each game now"
- cp 11, "enter that amount otherwise enter 0 "
- bet = setbet
- clearPlayers 'clears screen too
- deckIndex = 0
- PlayerAddCard player
- PlayerAddCard dealer
- cp 10, playerShow$(player)
- chips = chips + 2 * bet
- _DELAY 2
- GOTO BJskip
- cp 11, "Press h for Hit, any other to stay..."
- card$ = INKEY$
- PlayerAddCard player
- cp 10, playerShow$(player)
- cp 7, playerShow$(dealer)
- _DELAY 1
- cp 8, "Dealer takes a card."
- _DELAY 1
- PlayerAddCard dealer
- cp 7, playerShow$(dealer)
- _DELAY 2
- cp 13, "You lose."
- chips = chips - bet
- cp 13, "You win!"
- chips = chips + bet
- BJskip:
- _DELAY 4
- cp 17, "Goodbye"
- SUB clearPlayers
- DIM i
- players(i).Hand = ""
- players(i).Ace = 0
- players(i).Total = 0
- deckIndex = deckIndex + 1
- players(receiver).Hand = players(receiver).Hand + deck$(deckIndex)
- players(receiver).Total = 0
- players(receiver).Total = players(receiver).Total + cv
- S$ = players(shower).ID + " "
- playerShow$ = S$
I am thinking of setting up a number of dummy players so Dealer wouldn't be looking to beat any one player in particular, ie it would have to stay more often than it does here, playing one-on-one.
Post by: johnno56 on June 07, 2019, 07:08:23 pm
Post by: bplus on June 07, 2019, 07:57:09 pm
Yeah time to update to QB64 v1.3 where Type allows variable length strings. :)
This version of Blackjack will save you bundles of money lost at casinos. ;D
Besides, you might have card images and noises for a real app. ;-))
Post by: johnno56 on June 07, 2019, 09:05:34 pm
J
ps: Your 'dealer' cleaned me out!! :(
Post by: bplus on June 07, 2019, 09:19:59 pm
Well spotted. I indeed was 'still' using version 1.2. New version installed. No more error. Many thanks.
J
ps: Your 'dealer' cleaned me out!! :(
Yeah! That's why I need to add more dummy players, so it has to "stay" more conservative, instead of drawing cards until it matches or beats or busts the only player it goes against.
Post by: Pete on June 07, 2019, 09:28:47 pm
Pete
Post by: bplus on June 08, 2019, 10:09:47 am
You know, adding aces to the deck might make my little Blackjack game more interesting and be another way to overcome the dealer's advantage of winning ties. I would have to change the neat way to total a hand and create the deck but I am no longer interested in minimum lines of code.
Preliminary plans with dummy players:
The shoe in my game is only 1 deck and is shuffled before each round. I like the simplicity of that.
So I think 3 dummies plus me and dealer is ideal, just enough cards used that card counting might work, if you want to try a hand at that. Let the 3 dummies go first get a feel of cards played.
So far my dummy players have a choice of playing a set bet amount all the time or altering the bet. But what conditions could possible be used to alter the bet intelligently?
As I have been coding the game, all the betting occurs before any cards are shown. I know in real games after 2 cards dealt (dealer shows 1 face up), you can double down or split or buy insurance... however that goes, that too might make game more enjoyable against dealer and house rules.
Main rule at casinos: The Odds must be in favor of the house! Which is no fun!
My main rule: Have fun playing (and coding). Which means a probable chance of payoff for diligence and skill employed.
Well I guess I am just thinking out loud here... coding rarely ever goes as I had thought in preliminary plans.
But the aces idea with dummy players seem a good experiment.
Post by: bplus on June 09, 2019, 12:18:52 am
Code: QB64: [Select]
- _TITLE "Blackjack with Bots" ' started 2019-06-07 Players 1 through 3 are bots you play bottom right
- TYPE XY 'graphic or cell location on screen or in array
- TYPE Box
- TopLeft AS XY
- TYPE PlayerType 'a container for all program data!
- Win AS Box 'for screening the players data
- COLOR yellow, green
- initPlayers
- clearPlayers 'clears screen too start a round
- stillPlayer = 0 ' to check at end of round if there is still a player playing
- player(You).Bet = player(You).SetBet
- deckIndex = 0
- addCard i
- showPlayer i
- cp Dealer, 7, "? "
- cp Dealer, 8, "Total: ?"
- cp Dealer, 8, "Total: ?"
- _DELAY 1
- cp i, 9, "Blackjack!"
- player(i).Blackjack = -1
- _DELAY 1
- clsPlayer i
- cp i, 11, "<h>it <s>tay"
- addCard You
- showPlayer i
- cp i, 11, "Hit me."
- _DELAY 1
- addCard i
- showPlayer i
- _DELAY 2
- showPlayer Dealer ' dealer's turn
- _DELAY 1
- cp Dealer, 10, "(Takes a card)"
- _DELAY 1
- addCard Dealer
- showPlayer Dealer
- _DELAY 2
- cp i, 11, player(i).ID + " lost."
- player(i).Chips = player(i).Chips - player(i).Bet
- player(Dealer).Chips = player(Dealer).Chips + player(i).Bet
- cp i, 11, player(i).ID + " won!"
- player(i).Chips = player(i).Chips + player(i).Bet
- player(Dealer).Chips = player(Dealer).Chips - player(i).Bet
- cp i, 11, player(i).ID + " won!"
- player(i).Chips = player(i).Chips + 2 * player(i).Bet
- player(Dealer).Chips = player(Dealer).Chips - 2 * player(i).Bet
- _DELAY .5
- _DELAY 3
- cp 0, 12, "Goodbye"
- SUB clearPlayers 'clear player data for new game
- DIM i
- player(i).Hand = ""
- player(i).Ace = 0
- player(i).Total = 0
- player(i).Blackjack = 0
- deckIndex = deckIndex + 1
- player(nPlayer).Hand = player(nPlayer).Hand + deck$(deckIndex)
- player(nPlayer).Total = 0
- 'IF INSTR(rank, MID$(player(nPlayer).Hand, i, 1)) > 10 THEN cv = 10 ELSE cv = INSTR(rank, MID$(player(nPlayer).Hand, i, 1))
- clsPlayer nPlayer
- cp nPlayer, 1, player(nPlayer).ID
- cp nPlayer, 6, "___Hand___"
- cp nPlayer, 7, S$
- cp nPlayer, 9, "Busted!"
- DIM i, lastR
- lastR = player(nPlayer).Win.TopLeft.Y + player(nPlayer).Win.H - 1
- lastR = player(nPlayer).Win.TopLeft.Y + player(nPlayer).Win.H
- COLOR yellow, green
- COLOR yellow, green
- COLOR yellow, green
- SUB initPlayers 'the stuff that never changes
- 'for printing in each players window area of screen = blackjack table
- player(i).Win.TopLeft.X = widt * (i - 1) + 2
- player(i).Win.TopLeft.Y = height - 1
- player(i).Win.W = widt - 2
- player(i).Win.H = height - 1
- player(i).Chips = 100
- player(Dealer).Win.TopLeft.Y = 1
- player(Dealer).Win.W = widt
- player(Dealer).Win.H = height - 2
- player(Dealer).Chips = -400 'the dealer has "lent" 100 chips to each player
- player(1).Win.FC = brown: player(1).Win.BC = orange: player(1).ID = "Pete": player(1).SetBet = 5: player(1).Bet = 5
- player(2).Win.FC = drkRed: player(2).Win.BC = cyan: player(2).ID = "Qwerkey": player(2).SetBet = 15: player(2).Bet = 15
- player(3).Win.FC = white: player(3).Win.BC = mRed: player(3).ID = "Johnno": player(3).SetBet = 0
- player(4).Win.FC = ltCyan: player(4).Win.BC = blue: player(4).ID = "You"
- player(5).Win.FC = yellow: player(5).Win.BC = green: player(5).ID = "Dealer"
- 'ask the user / YOU what e prefers for betting
- cp 0, 8, "For this Blackjack Game, you start with 100 chips"
- cp 0, 9, "and can bet any amount of them for each game."
- cp 0, 10, "If you'd like to set your bet for each game now"
- cp 0, 11, "enter that amount otherwise enter 0 and get asked"
- cp 0, 12, "before each round at the table."
- player(You).SetBet = i
- CardValue = 1
- CardValue = 10
Post by: QBExile on June 09, 2019, 05:17:25 am
One spelling error i encountered is "You loose." should be "You lose."
Post by: bplus on June 09, 2019, 08:54:50 am
Very nice program!
One spelling error i encountered is "You loose." should be "You lose."
Oh, 'loose" was in first program... OK fixed, Thanks
A couple of things I like in second program is using Types within Types that creates a window for each player, and a perfect accounting system: Dealer's Total Chips + all the Player's Chips = 0 (and the Player's chips are always positive or 0).
Post by: bplus on June 10, 2019, 11:47:14 am
I also eased up on the House Rules st the Dealer only draws until the total > 16 PLUS this game allows more ties eg when both players bust or match totals.
Code: QB64: [Select]
- TYPE CardType
- TYPE PlayerType
- Players(player).ID = "Player": Players(player).cardY = 420
- Players(dealer).ID = "Dealer": Players(dealer).cardY = 100
- loaded = loadCardImages
- initDeck
- chips = 100
- cp 8, "For this Blackjack Game, you start with 100 chips"
- cp 9, "and can bet any amount of them for each game."
- cp 10, "If you'd like to set your bet for each game now"
- cp 11, "enter that amount otherwise enter 0 "
- cp 12, ""
- INPUT ""; setbet
- bet = setbet
- clearPlayers 'clears screen too
- shuffle
- deckIndex = 0
- PlayerAddCard player
- PlayerAddCard dealer
- round = round + 1
- 'cp 7, Players(dealer).ID + " ? " + MID$(Players(dealer).hand, 2, 1)
- playerShow dealer
- playerShow player
- chips = chips + 2 * bet
- _DELAY 2
- GOTO BJskip
- cp 36, "Press h for Hit, any other to stay..."
- card$ = INKEY$
- PlayerAddCard player
- playerShow player
- round = round + 1 'now round > 2 so first card won't be hidden
- playerShow dealer
- _DELAY 1
- cp 16, "Dealer takes a card."
- _DELAY 1
- PlayerAddCard dealer
- playerShow dealer
- _DELAY 2
- cp 38, "You lost."
- chips = chips - bet
- cp 38, "You won!"
- chips = chips + bet
- cp 38, "We tied..."
- BJskip:
- _DELAY 4
- cp 5, "Goodbye"
- SUB clearPlayers
- DIM i
- Players(i).hand = ""
- Players(i).Ace = 0
- Players(i).Total = 0
- round = 0
- DIM i, di
- deckIndex = deckIndex + 1
- Players(receiver).hand = Players(receiver).hand + d2$(deckIndex)
- Players(receiver).Total = 0
- Players(receiver).Total = Players(receiver).Total + Deck(di).points
- FUNCTION d2$ (num) 'we have to store 1 or 2 digit numbers in a string to represent hand that is buch of card indexes
- cp 2, "B+ BLACKJACK: If Dealer total < 16 then must hit else stays."
- cp 5, Players(shower).ID
- cp 23, Players(shower).ID
- showCardDI xoff, Players(shower).cardY, di
- xoff = xoff + 86
- ShowCard xoff, Players(dealer).cardY, 0, 4
- cp 15, " Total = ?? "
- SUB initDeck
- suit$(0) = "Hearts": suit$(1) = "Clubs": suit$(2) = "Diamonds": suit$(3) = "Spades"
- v$(1) = "Ace": v$(11) = "Jack": v$(12) = "Queen": v$(13) = "King"
- i = 0
- i = i + 1
- Deck(i).ID = i
- Deck(i).cname = v$(v) + " of " + suit$(s)
- Deck(i).value = v
- Deck(i).suit = s
- SUB shuffle
- DIM i, r
- ShowCard x, y, Deck(deckI).value - 1, Deck(deckI).suit
- 'at scale = 2 need screen space of 76 x 100 for one card
- ch = 38 * imageCol + 1: cv = 51 * imageRow + 1: scale = 2 ' < might want to change?
- FUNCTION loadCardImages%
- _SOURCE CardDeck
- _SOURCE 0
- loadCardImages% = -1
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: Pete on June 10, 2019, 04:10:40 pm
Any thoughts to add a way to change the betting amount?
Pete
Post by: bplus on June 10, 2019, 05:24:02 pm
You owe me 500 chips. I like the ones with ruffles.
Any thoughts to add a way to change the betting amount?
Pete
You can bet any amount up to the amount of chips you have each round by entering 0 or just enter on very first screen.
Quote
cp 8, "For this Blackjack Game, you start with 100 chips"
cp 9, "and can bet any amount of them for each game."
cp 10, "If you'd like to set your bet for each game now"
cp 11, "enter that amount otherwise enter 0 "
I am planning more options for the player at Hit or Stay time so if you've won so much money it's burning holes in your pocket you will have option to change the SetBet amount and maybe change your room to the Penthouse Suite.
Post by: johnno56 on June 10, 2019, 05:45:00 pm
Post by: bplus on June 10, 2019, 05:59:40 pm
Nicely done! But, not so much, the $600 your dealer took from me!! lol
See the bundle I am saving you by keeping you out of casinos! :-))
Post by: Pete on June 10, 2019, 08:32:29 pm
Pecos Pete
Post by: xra7en on June 10, 2019, 09:29:51 pm
Post by: bplus on June 11, 2019, 11:40:36 pm
Quote
' Fixes since BJ 1on1 wImages.bas 2019-06-09:
' + Fix label: Dealer must hit if es Total is < 17, not 16.
' + I added Double Down (DD) option, not just for Pete's sake.
' So for DD, I read BJ rules according to Hoyle, more fixes to those rules:
' + The 2nd card to Dealer is face down not first.
' + Blackjack pays 3:2 or 1.5 times bet, IF Dealer does not match = "push".
' + If player busts e loses immediately, no push if Dealer also busts.
' + After everyone gets 2 cards, Dealer looks to see if e has BJ, if so, shows it.
' + Splash Screen and introduction.
Post by: johnno56 on June 10, 2020, 10:07:51 pm
In doing so, I cheated and started with 1,000 chips... Of course, it didn't take me long to amass a decent score... One thing I did notice was that, when my score got over 30k+, my score would show as a negative amount. Would this be a limitation of QB? If so, is there a way to redefine the variable, 'chips'?
Another thing was, whenever I "Bust", the dealer continues and if it busts we "tie", and my bet is restored... Not sure if that is supposed to happen, but there you go...
J
Post by: bplus on June 10, 2020, 11:36:30 pm
Dang, I was hoping you were going to tell me you applied some of your asset magic to the game.
Yeah, your score goes negative after 32,000+ because I was not very optimistic Typing the score using Integer instead of _INTEGER64 (look out Donald Trump). ;-)) Easy fix.
And I am generous with fake money er, ah, points, the house is not required to make a profit which is why you don't loose if the dealer busts also.
Think I will try the game again too. :)
Post by: johnno56 on June 11, 2020, 12:06:01 am
I have been looking for a Basic blackjack program (not with line numbers and goto's...) that follow the basic rules of two handed BJ with play again option.... There seems to be plenty of examples in python, java, javascript etc. but I know only a little of python and nothing about the others, so conversion, for me at least, is out of reach...
I'm going to go through you example and see what I can do... but I can't promise anything...
I have copies of pseudo-code that may be able to help... I will compare them with your game and see what I can throw together... This will either be fun or a nightmare... I'll start with the 'fun' option... lol
Post by: bplus on June 11, 2020, 11:07:35 am
Well it would be great to work on a project again with you. I really like what we came up with on Battleship.
I would be glad to change rules around, up the points/money/chips stake at beginning of game, I call them chips in program and change so you can win more points/fake money/chips. It would be nice distraction from Gin Rummy which I am still stuck on.
Do you still want to loose if you go bust or wait and see if dealer busts as well = push or tie? (of course you can make your own version)
I hope you bulleted "Output EXE to Source File" under the Run menu in your new QB64 version. That would make loading and running assets a breeze if in same folder as the source .bas file.
Post by: johnno56 on June 12, 2020, 09:28:02 am
Like: Player dealt two cards face up. Dealer One up. One down. If player busts, dealer wins, end of hand. Push is ok when there is a tie. The only 'problem' I see in waiting to see if the dealer busts as well, is that, if both bust then it's a 'tie' and this is an advantage to the player as there is no loss of chips. Game continues until Quit or broke. Oh. 'Chips' are fine by me...
I am working my way through your game because it's relatively easy to follow and I refuse to try and untangle "lined and goto-ed' prehistoric basic code... lol. Well, maybe not quite so easy to follow, but WAY easier than the old code....
I was thinking more along the lines of how Battleships was controlled. Basically by mouse. Click on various valued 'chip' images to place a bet. Click on 'hit' to deal an extra card; Click on 'Stay" to switch to dealer. As always, esc or 'exit', to end the game.
Possible extras: Intro screen; Menu to switch on/off stuff like ambient sound; Music; Highscores; Player name; Max bet... stuff like that...
The least I can do is to start sourcing assets... If I can't find public domain stuff I'll try to make it myself... lol I think I made a card game table some time ago... It's either floating around on this site or an old drive somewhere... If I can find it, perhaps we can use it, or use as an example of how 'not' to make a table... lol
It's almost 2330 and I have to be up at 0500 to do our fortnightly produce market shopping... Time to hit the sack...
Post by: bplus on June 12, 2020, 10:04:25 am
Hmm... Not overly concerned about which rules to include, change or delete... I prefer 'simple'... ('cos I find 'difficult' hard to do... lol).
Yep! you bet, simple is easy to understand, usually logical and easy to remember. So it makes sense to choose simple over complex. If I have a philosophy, that might be it's core. Rule #1
Like: Player dealt two cards face up. Dealer One up. One down. If player busts, dealer wins, end of hand. Push is ok when there is a tie. The only 'problem' I see in waiting to see if the dealer busts as well, is that, if both bust then it's a 'tie' and this is an advantage to the player as there is no loss of chips. Game continues until Quit or broke. Oh. 'Chips' are fine by me...
OK, by Rule#1 AND everyone already knows this game as played:
If player busts, dealer wins, end of hand.
I am working my way through your game because it's relatively easy to follow and I refuse to try and untangle "lined and goto-ed' prehistoric basic code... lol. Well, maybe not quite so easy to follow, but WAY easier than the old code....
I was thinking more along the lines of how Battleships was controlled. Basically by mouse. Click on various valued 'chip' images to place a bet. Click on 'hit' to deal an extra card; Click on 'Stay" to switch to dealer. As always, esc or 'exit', to end the game.
I have just the thing for that, developed in Gin Rummy Variation Series (though so far only posted one game and found it faulty) it is an extremely simple way to do a "Menu" of buttons customized to the exact situation you're at in the game. I will start rewrite of that along with higher stake, round over with player bust and I have new idea about setting up an account, so after first time you are staked, you are really in hole 1000... well details can be worked out later, point is you have an account and can borrow up to 1000, so every time you start game and log in... you get drift I think. Getting into banking, I can think of a number of bells and whistles for that! ;-))
Possible extras: Intro screen; Menu to switch on/off stuff like ambient sound; Music; Highscores; Player name; Max bet... stuff like that...
The least I can do is to start sourcing assets... If I can't find public domain stuff I'll try to make it myself... lol I think I made a card game table some time ago... It's either floating around on this site or an old drive somewhere... If I can find it, perhaps we can use it, or use as an example of how 'not' to make a table... lol
...
Yeah! That's the asset magic I am talking about :)
Oh, I think we should maintain a better credit list for sources of images or sounds.
Oh yeah, and change chips UDT Type to _INTEGER64 so we can go sky high with the points/fake money/chips.
That's quite a Punch List already Johnno! :)
Post by: johnno56 on June 12, 2020, 07:18:02 pm
By the way... I found that "card table"... The smallbasic BJ program you converted to sdlbasic but I never got around to adding graphics...
This table... (I will redo it with proper chip values - 10,20,50,100,ALL)
Post by: bplus on June 12, 2020, 08:21:26 pm
Almost done with very rudimentary bank, B+ Banking and Loan, a little rusty with filing and trying to rush it out.
The rest is ready and BTW it was already conceding round to dealer if player busts.
I just removed an entire bush and chopped it up into leave bags so I am ready to play :)
I am allowing unlimited bets, start thinking about graphics for that. Maybe stacking chips or something?
Post by: johnno56 on June 12, 2020, 09:11:17 pm
The cards do not have to be used. The cards and chips came in seperate files. The cards (or something similar) to the ones you used could replace them.
I think yours would be better... They look more 'real' than the opengameart cards... lol
Small cards and chips...
Post by: bplus on June 13, 2020, 12:54:55 am
Oh sorry, I finally got the stupid files to work correctly but ran out of gas and crashed. I wanted to do something kinda of fun (for me anyway) before posting. Famous last words, it shouldn't take long now :-))
Yeah those cards are weird but chips look great and same with table. It would be cool if had like King of Diamonds with the Ace of Spades, something that shouts Black Jack! My splash screen too pixelated.
Probably will need button images for "Quit" or something similar like "Cash In Chips", "Stand" or Stay?, "Hit Me".
A funny or smart mouthed Dealer?
Eh, got to finish my banking...
Post by: johnno56 on June 13, 2020, 02:21:36 am
Post by: bplus on June 13, 2020, 03:09:49 am
OK I think I have all the kinks out of new banking system for chip tracking between games.
You are charged interest if you owe but make interest if you are in the Black. The "Founder" who makes the original loan makes money on every thing except starting the loan.
At present the user log-in is super plain, just type your name, possibly want password and encryption in future.
Post by: bplus on June 13, 2020, 03:12:43 am
Post by: johnno56 on June 13, 2020, 03:52:32 am
Post by: bplus on June 13, 2020, 10:42:24 am
Post by: OldMoses on June 13, 2020, 11:02:22 am
Post by: bplus on June 13, 2020, 11:10:18 am
This is SO realistic, I always lose. I used to play Blackjack with a cousin and one of his friends. I lost more quarters to those guys... ;)
Same here. The only time I stand a chance is if I vary bets, ie start increasing bets when my loosing streak has gone on long enough, maybe I can break even or get ahead a little.
That's why I got into the fake banking business with the code, to finance my gambling itch.
You wanna buy a Founder's share in the business? ;-))
While bplus the player is down -2314, the Founder has recovered his loan to bplus and is 349 ahead from bplus business.
Post by: bplus on June 13, 2020, 01:13:55 pm
As promised... Next mockup... If you need something changed, just ask...
Hi @johnno56
I am using the mockup as Splash screen what an improvement over last! And then I started using it's background color for the game (continuity) but it's an awfully yellow green. Is it possible to make it more "mintly" _RGB32(0, 51, 102) the color I had AKA &HFF003366. If so, while making change could you put the Black Jack on the right with the Ace on left underneath. If this is an official Blackjack table color (is there one?) then forget about changing color.
BTW were you thinking that mockup also as the table background for during the game?
And some more work in banking:
Post by: johnno56 on June 13, 2020, 06:56:38 pm
Looking at 'table' images, the absence of a 'table edge', was glaringly obvious... I will try to recreate something closer to an actual table... Fingers crossed.
In regards to the colour... 'Minty' - reduce 'green' by 80% and reduce 'blue' by 60%. I am going to assume that 'minty' will be our 'official' colour. ie: solid colour, no gradient? If so, might I suggest, applying a 'felt-like' texture... Just to 'breakup' a single colour. By the way, https://www.shutterstock.com/search/blackjack+table, shows various styles and cloth colours. Mostly green, but we have the advantage, of using whatever colour you like... Solid, gradient or textured.
I will see if I can produce just the 'minty' textured cloth with and without border gradient... It's been a long time since I tackled textures... Sounds like fun!
In regards to a 'splash screen'... My artistic talents (for want of a better word) are far from useful when it comes to that kind of creativity. As I have stated before, "I like simple". So, the image I provided, was a mockup of the game-play table. But, if you want to use if for a 'splash screen', I have no problem with that. If so, then perhaps adding some cards and or chips, might lend to a better 'look'?
"Black Jack on the right with the Ace on left underneath"... I'm not quite sure how to interpret this one... How are your pencil and paper skills? Perhaps a sketch of the layout might be helpful... If you are sketching, perhaps an image of what 'you' think the game-play table could look like... It will certainly help with eliminating the 'guessing' factor... In the meantime, I will work on a better 'splash' and a new table cloth... Being Sunday, here in Oz, it will be particularly heavily weighted with family time... Not sure how much I can get done today, but I will do my best to at least get something done...
Post by: bplus on June 13, 2020, 07:39:43 pm
Sorry, I write code functionality of game, you should have free hand to dress it up how you see fit. Nice images from Google link, those greens seem to me less yellow but like I said, free hand with images, sounds, smart mouth Dealer... ;-))
Don't worry about this but here is how I pictured logo for Blackjack: Red Ace on Left Overlapped by Blackjack on Right on Minty Green (felt? textured, nice idea!) background:
This is splash screen from last 2019 version.
The reason for Minty Green is that White print shows up very well in foreground, also reminds me more of felt like pool table.
Post by: johnno56 on June 14, 2020, 02:40:21 am
Let me know which colour you would prefer and I'll go with that one... but I might sneak in a layout of the 'other' colour... wink, wink...
note: rgb(0, 51,102) is more blue than green...
Post by: bplus on June 14, 2020, 01:01:24 pm
Yeah I was looking up "Mint Green" on Internet last night and what a range! many way too heavy on the blue side. When I was saying minty green, I was just meaning slightly more cool blue than bright yellow.
Then I checked out "Emerald Green", which mostly does not show too much yellow nor blue, that is what I am going for, I think if we have to find a name socially agreed upon it would be Emerald Green. That name all the more appealing to me personally because I do have some Irish blood; my Grandfather was from Ireland :)
So in your next 2 mockup's the "Minty" is way too blue but the "Green.png" is it: color, cards, card positioning and even felt texture. I was worried you'd think me too picky and find something else to do but you are so close to my imagined image. In a perfect actualization of my imagination, I would like to see all of the central heart of the Ace cleared of the Blackjack card (as my current Avatar has it), just saying ;-))
Yikes! all this just for splash screen? Oh, I am not sure about the marble border, but decorating with some cards and chips, stacks sounds like an idea.
Now about the table:
Just a green felt from splash screen is OK. Maybe you could layout a Blackjack table like the images in link? but don't see the need for all those card slots unless we can get a multi-player thing going here at forum.
I don't know how to code a multi-player game, maybe someone else here would like to offer help?
I had a question come up when viewing your Google link to Blackjack images of tables,
"Blackjack pays 3 to 2" Is exactly what the game is doing now.
"Dealer must stand on 17, draw on 16" also is what this game is doing now.
But "Insurance Pays 2 to 1", what is Insurance?
This game is currently offering Double Down which pays 2 to 1 of your original bet if you win but charges twice as much as original bet if you loose. With DD, you have the advantage of seeing your cards and altering your bet, but disadvantage of only getting one more card, period.
Guess I have some home work.
BTW this revival of Blackjack game has helped get me going with Gin Rummy; making slow but steady progress for all the cases of card sets to optimize a hand. :)
To all,
Can any Blackjack fans here explain the difference between Insurance and Double Down? @Pete was the one who requested Double Down option be added.
Try for multi-player thing going here at forum? I would need help coding some kind of On-line thing.
I offer Founder's shares in the B+ Banking and Load system ;-))
Post by: bplus on June 14, 2020, 01:50:45 pm
http://www.readybetgo.com/blackjack/rules/blackjack-decisions-918.html
Explains rules and strategies, might use as reference source eg rules lookup, and guide for coding and playing BJ.
(Will read over after lunch.)
Oh hey! Surrender option, I get so many 15's that I loose at, sounds interesting for another button option.
Post by: bplus on June 14, 2020, 03:02:26 pm
As I recall now, with this reminder, when I considered this option before, the card sharks advised against taking out Insurance, so I never offered it as an option in my version. Still like that reasoning of all that but if anyone whats to challenge that logic, I am all "pointy" ears ;-))
BTW the House only pays 2 to 1 on the Insurance Bet and the original bet is still lost if Dealer gets Blackjack, so the 2 to 1 win only counters the loss of your original bet and is lost if Dealer does not have BJ.
Update: Surrender is interesting Option to offer but:
1. Double Down is nice alternate after you are resigned to hopeless hand (after first 2 cards only).
2. A surrender button doesn't really fit screen as 5th option for play (after first 2 cards and DD is 4th option).
Post by: johnno56 on June 14, 2020, 06:42:09 pm
Display the central heart on the Ace, no problem, now where is that shrink button?... lol
"Yikes! all this just for splash screen?" - Yep. All this. You only get one chance to make a first impression... Believe it or not, I had been thinking of a better 'splash screen', more like the kind you see when you search for "Blackjack"... lol Oh. I agree about the "border"... Consider it gone... By the way... It was walnut... Marble would have been a little too 'showy'... lol
"Double Down" would explain the "D" on the chips... But some of them have "BB"... No idea what that means....
I played a "Scratch" version of Blackjack and part of the "sounds" were Dealer comments... like "Too bad", "Place your bets", "That's the way." etc... When you mentioned, 'Smart mouthed', what did you have in mind... Oh. Whatever the comments are, with they be audio, audio and text or speech bubbles? etc Getting a bit to far ahead? lol
In regards to the table cloth design.... I'm ok with 'Emerald'... On some of the table images, shapes etc, placed on the cloth, were 'simple' shape that were slightly lighter than the cloth, Maybe a 'simpler' version of the 'cards' might be better. After all, we don't want the player (or the dealer) to confuse the actual cards with the cloth logo... lol I will work on a more simplistic design and reserve the 'cards' for the splash screen. It may not work, but as they say (and it's never said who 'they' are...) 'a change is as good as a holiday".
Hmm... Surrender. I tend to agree with you on this one. Surrender is much like quit which is closely associated with exit... Exit was one of the 'buttons' was it not?... lol Oh. Button design... Did you have a particular 'shape' in mind or perhaps just have then as 'printed' images on the cloth? Either way works for me. Point-click-highlight (two states - on and off) or three states. Hover, on and off) ... oh, now who's getting picky... lol
Post by: bplus on June 14, 2020, 08:27:05 pm
Ah yes, let's make a good first impression then!
Dealer speech could be audio but I expect that not so portable between Windows and Linux? I was thinking more like what you did in Battleship, just text to read, instructions as needed along with funny comments on the side, maybe we can tip the Dealer if we find em amusing enough :)
Could I have link to Scratch version? (assuming I can just run it without download and setup.)
RE: D, BB on chips, I will look into chip designations.
Yeah for table I am thinking buttons will go across the middle (we might try a column of buttons on the right side? what do you think), how ever you want to design them but 200 pixels wide and 50 pixels high is what I am using for model. Maybe could do table clothes like the casino tables in that link = print the "Blackjack pays 3 to 2" and "Dealer must stand on 17, draw on 16" that's OK and draw box(es) for the bet(s) very near bottom of screen.
Stack Players chips on left, bet on right of cards? or above? or below? Oh looks like the bet goes in the boxes under the cards closer to player and some tables have a whole section further down towards player to store all the players chips. Ok maybe chips in the boxes for the bets but the players account will be a digital readout from B+ Banking and Loan :) readable only by the player for privacy and security reasons :)
Speaking of banking, I am still revising the code as original system worked with a single stake and when that was gone then game over but it's completely different now with banking system and continuous account updating.
Oh! Idea for shapes of buttons: diamonds, hearts, clubs, spades... hardly 200 x 50 though, maybe all 4 just touching for an outline to one button, will that work? sure! ;-)) the order you wonder? heart club diamond spade overlap just enough to hold a line of print in the center of shape = 20 pixels, wait you have way better graphics for lettering!
Post by: bplus on June 14, 2020, 08:55:57 pm
Re: your link to Blackjack tables
Hey did you see the Blackjack sign in neon lights against a brick wall in the dark, that would be so cool!
And some of those tile patterns for tablecloth of hearts, diamonds, spades, clubs also cool though has to be dark and subtle not to distract for cards, buttons and text messages.
Post by: johnno56 on June 14, 2020, 09:13:49 pm
No, I didn't notice the neon sign, but sounds neat, especially if it was flashing.... ;)
Here is the link to a version of ScratchJack.... https://scratch.mit.edu/projects/472525/
It's web based. Click on the little green flag (next to the red dot). Use the slider to place a bet. You know the rest... lol
Here is a 'minimal' cloth that isn't too distracting. Buttons can also be 'printed'. Easy enough to change the cloth colour. This is just a style concept.
Post by: bplus on June 14, 2020, 09:29:24 pm
OK I will move buttons to right side in mockup of game for that logo on tablecloth, that might give more w x h size for buttons as well. I was worried buttons across middle would mess up anything nice in middle of table cloth.
Here is an update on the game code. Delete the old B+ Banking and Loan.txt file if you have one started, everybody is starting at 0 instead of in the hole for 1000 stake to start. Just remember every bet while in the hole is a loan with interest paid the next time you play and positive balances earn interest. ;-))
Same asset files as in last zip:
Code: QB64: [Select]
- DEFINT A-Z
- ' Thanks to [banned user] for Card Image file.
- ' Fixes since BJ 1on1 wImages.bas 2019-06-09:
- ' + Fix label: Dealer must hit if es Total is < 17, not 16.
- ' + I added Double Down (DD) option, not just for Pete's sake.
- ' So for DD, I read BJ rules according to Hoyle, more fixes to those rules:
- ' + The 2nd card to Dealer is face down not first.
- ' + Blackjack pays 3:2 or 1.5 times bet, IF Dealer does not match = "push".
- ' + If player busts e loses immediately, no push if Dealer also busts.
- ' + After everyone gets 2 cards, Dealer looks to see if e has BJ, if so, shows it.
- ' + Splash Screen and introduction.
- 'BJ restart 2020-06-12 wow 1 year later w Johnno collaboration
- ' Punch List: from easy to hard
- ' + change chips type to _integer64 ;-)) done
- ' + larger stakes to start 1000 instead of 100 done
- ' + If player busts Dealer wins as everyone is familiar to this rule: this was done already!
- ' + Buttons controls like in Gin Rummy, OK done
- ' + Banking system charge interest on negative balances and pay interest on positive ones, sound fun? Done very basic
- ' + get done quickly so Johnno can work in assets, eh not so quick
- ' + fixed up new betting system that involves the bank file.
- ' 2020-06-13 post
- 'BJ v2020-06-13
- ' + add Johnno's image for splash screen (or table background?)
- ' + charge/pay player interest as soon as sign in again, along with Founder update
- 'BJ v2020-06-14
- ' + update acct at every change of chips count, so user cant cut all loses during session by X-out
- ' + start tracking dealer wins and losses too = wins and losses of house without Interest
- ' + Oh, oh, oh everybody starts at 0! so it's an automatic P&L statement
- TYPE CardType
- TYPE PlayerType
- setbet AS _INTEGER64 ' what's this again? a preset bet for all bets so not constantly queried about a bet amount now has limit of 1000
- _DELAY .25
- players(player).ID = "Player": players(player).cardY = 420
- players(dealer).ID = "Dealer": players(dealer).cardY = 100
- pick2$(1) = "Hit": pick2$(2) = "Stand": pick2$(0) = "Quit"
- pick3$(1) = "Hit": pick3$(2) = "Stand": pick3$(3) = "Double Down": pick3$(0) = "Quit"
- GetStarted 'sets bColor to Johnno splash screen backcolor
- 'updateBankAcct players(player).name, players(player).chips should now be constantly updated
- players(player).bet = 1000
- players(player).bet = .5 * players(player).chips
- ELSE 'using preset betting set at beginning of the game see GetStarted
- players(player).bet = players(player).setbet
- ClearPlayers 'and screen
- blockDealerCard = -1
- PlayerAddCard player
- PlayerAddCard dealer
- blockDealerCard = 0
- ShowAndTell 36, "Blackjack!"
- PlayerShow (dealer)
- ShowAndTell 16, "Dealer has Blackjack!"
- players(player).chips = players(player).chips - players(player).bet
- players(dealer).chips = players(dealer).chips + players(player).bet
- roundUpdate
- ShowAndTell 38, "Push, Dealer and Player have Blackjack."
- _DELAY .5
- GOTO skip
- players(player).chips = players(player).chips + 1.5 * players(player).bet
- players(dealer).chips = players(dealer).chips - 1.5 * players(player).bet
- roundUpdate
- GOTO skip
- choice = getButtonNumberChoice%(pick3$())
- choice = getButtonNumberChoice%(pick2$())
- PlayerAddCard player
- players(player).bet = 2 * players(player).bet
- PlayerAddCard player
- 'updateBankAcct players(player).name, players(player).chips should be updated after each round
- ELSE 'stand Stand
- ShowAndTell 36, "Busted!"
- players(player).chips = players(player).chips - players(player).bet
- players(dealer).chips = players(dealer).chips + players(player).bet
- roundUpdate
- _DELAY 2
- GOTO skip
- PlayerShow dealer ' Dealer's Turn
- ShowAndTell 16, "Dealer takes a card."
- _DELAY .5
- PlayerAddCard dealer
- players(player).chips = players(player).chips + players(player).bet
- players(dealer).chips = players(dealer).chips - players(player).bet
- roundUpdate
- ShowAndTell 38, "You won!"
- players(player).chips = players(player).chips + players(player).bet
- players(dealer).chips = players(dealer).chips - players(player).bet
- roundUpdate
- players(player).chips = players(player).chips - players(player).bet
- players(dealer).chips = players(dealer).chips + players(player).bet
- roundUpdate
- ShowAndTell 38, "Push"
- skip:
- 'IF players(player).chips = 0 THEN ShowAndTell 40, "Out of chips!"
- _DELAY 4
- 'that's all folks the game ends when Player quits inside the main loop
- SUB GetStarted
- DIM splash&, name$, fline$, fname$, amount AS _INTEGER64, nFound, bankerFee AS _INTEGER64, Founder AS _INTEGER64
- COLOR white, bColor
- _DELAY 3
- 'quick log in to get started with Bank to be developed more later
- CLOSE #1
- PRINT fline$
- nFound = 1
- players(player).chips = amount
- players(dealer).chips = amount
- CLOSE #1
- players(player).chips = 0
- bankerFee = 0
- CLOSE #1
- updateBankAcct "Founder", Founder + bankerFee ' update banker's acct
- InitDeck
- ShowAndTell 5, "An account has been setup for you at B+ Banking and Loan."
- ShowAndTell 6, "Terms are 10% interest payments for negative balance and"
- ShowAndTell 7, "5% interest paid to you for positive balance."
- ShowAndTell 8, "Thankyou for banking with B+."
- ShowAndTell 10, "The object of the game is to get to 21 or as close as possible without going over."
- ShowAndTell 11, "You will need to get closer than dealer to win your bet (placed before cards are dealt)."
- ShowAndTell 12, "An Ace counts as 1 or 11, points for 2-10 cards are 2-10, Jack, Queen, King are 10."
- ShowAndTell 14, "Some Blackjack Terms:"
- ShowAndTell 16, "Blackjack is getting a total of 21 with first 2 cards (an Ace and a 10 point card)."
- ShowAndTell 17, "Blackjack pays 1.5 times the bet if the Dealer does not also have Blackjack."
- ShowAndTell 18, "Hit is asking for another card."
- ShowAndTell 19, "Stand is saying, no more cards."
- ShowAndTell 20, "Double Down option occurs after 2nd card."
- ShowAndTell 21, "Double Down is doubling your bet and getting just one more card."
- ShowAndTell 22, "If 2 X Bet > Player's Chips, Bet will be Player's Chips."
- ShowAndTell 23, "A Push is the same as a tie or a draw, no one loses."
- ShowAndTell 25, "For this Blackjack Game, you start by owing bank -1000 chips."
- ShowAndTell 26, "If you owe you can bet up to 1000. If have more than 2000, you can bet half of"
- ShowAndTell 27, " any positive amount you have."
- ShowAndTell 29, "If you'd like to set your bet for each round now, enter that Amount (<=1000),"
- ShowAndTell 30, "otherwise, to place your bet before each round, enter 0 now."
- ShowAndTell 32, ""
- SUB roundUpdate
- loadSort fline$, accts()
- CLOSE #1
- CLOSE #1
- SUB ClearPlayers
- DIM i
- Shuffle
- deckIndex = 0
- players(i).hand = ""
- players(i).Ace = 0
- players(i).Total = 0
- DIM i, di
- deckIndex = deckIndex + 1
- players(receiver).hand = players(receiver).hand + D2$(deckIndex)
- players(receiver).Total = 0
- players(receiver).Total = players(receiver).Total + deck(di).points
- PlayerShow receiver
- FUNCTION D2$ (num) 'we have to store 1 or 2 digit numbers in a string to represent hand that is buch of card indexes
- ShowAndTell 2, "BLACKJACK: Dealer must Hit if House Total < 17, Blackjack pays 3:2 unless Push"
- ShowAndTell 5, players(shower).ID
- ShowAndTell 23, players(shower).ID
- ShowCardDI xoff, players(shower).cardY, di
- xoff = xoff + 86
- xoff = xoff - 86
- ShowCard 2, xoff, players(dealer).cardY, 0, 4
- ShowAndTell 15, " Total = ?? "
- _DELAY 1.5
- SUB InitDeck
- suit$(0) = "Hearts": suit$(1) = "Clubs": suit$(2) = "Diamonds": suit$(3) = "Spades"
- v$(1) = "Ace": v$(11) = "Jack": v$(12) = "Queen": v$(13) = "King"
- i = 0
- i = i + 1
- deck(i).ID = i
- deck(i).cname = v$(v) + " of " + suit$(s)
- deck(i).value = v
- deck(i).suit = s
- SUB Shuffle
- DIM i, r
- ShowCard 2, x, y, deck(deckI).value - 1, deck(deckI).suit
- 'at scale = 2 need screen space of 76 x 100 for one card
- SUB ShowCard (scale, ScrnX, ScrnY, imageCol, imageRow) 'screen x, y h= horizontal , v =vertical image h, v
- DIM ch, cv
- ch = 38 * imageCol + 1: cv = 51 * imageRow + 1
- FUNCTION LoadCardImages%
- _SOURCE cardDeck
- _SOURCE 0
- LoadCardImages% = -1
- 'this sub uses drwBtn Const bColor for background
- FUNCTION getButtonNumberChoice% (choice$()) 'developed for this app but likely can use as is elsewhere
- drwBtn b * 220 + s1, 270, choice$(b)
- oldmouse = -1
- _LIMIT 200
- COLOR white, bColor
- dynArr(k) = dynArr(k - 1)
- dynArr(j) = insertN
Post by: johnno56 on June 14, 2020, 11:55:19 pm
Post by: johnno56 on June 15, 2020, 02:08:34 am
I have made buttons for all three states. On, Off and Hover.
Is this ok? I can add / subtract whatever you need...
In regards to sound: Ogg/Vorbis compresses a little more than MP3, but not sure about using on Windows. WAV files play on most but are usually larger in size than MP3's or OGG's. Midi - for a game like this - maybe not.... lol
The next step would be the sprites for chips (activated using 'BET' button). The card "shu" in the Scratch game looked interesting. I ca try to simulate a minimal verion of that... Not sure how it will go... Might need some coding wizardry to make the cards slide and flip.... or just have them 'appear' on screen...
ps: I managed to tweak and tile the suit patterns into the cloth... ;)
Post by: bplus on June 15, 2020, 07:14:11 am
Ogg files are fine with Windows and QB64.
With buttons built into table, don't have to worry about drawing them. But how to make Double Down option disappear when not available? A second table maybe without that button?
No lets draw them as needed (like Scratch Jack) as have been doing that way, we can stack them in as needed or across then bottom, will just show an image instead of drawing the button, can detect mouseover as well.
BTW a slide bar is fine for setting bet, I could draw it in as needed. We could also use an Input box for special (really high) bets. And I have a Message box for Text portion of instructions to player that Scratch's does with bubble.
Along with "BJ Pays 3 to 2" also need "Dealer must stand on 17, draw on 16" (can be all on same line across).
Post by: johnno56 on June 15, 2020, 08:02:40 am
I couldn't remember the "Dealer" notice at the time of making the table.... Consider id done.
I used a "shutterstock" image as inspiration for a sample splash. I will make another that looks more traditional....
Post by: bplus on June 15, 2020, 09:14:02 am
Yeah, I tried to work in green-minimal.png for background table for game and had to rework all messages and labels to try and fit cards and such off the center logo, didn't work too well and code is a mess BUT I will have to fix it to work with any table cloth you come up with for the background, so I will practice with mockup6.
Buttons and slider bars, I think will work better on top of the background table.
Do you have new set of cards in works or plans?
Post by: johnno56 on June 15, 2020, 10:06:11 am
So, rather than the 'printed' buttons, you are leaning towards 'normal' buttons, for the table?
I will attach a 'button-less' copy of the table cloth (mockup6b).
Post by: johnno56 on June 15, 2020, 10:11:21 am
Post by: bplus on June 15, 2020, 10:56:57 am
Mockup6 is working fine!, don't change as I am recoding program layout for it. We might not need x in top right, the window already has it and looks redundant. We can allow esc key as alternative. And I am drawing buttons over the place you have them on table cloth for when you have button graphic ready the mouse will find the same places.
Also if you have new cards, higher definition?, than current, OK to make them a little bigger too
Post by: johnno56 on June 15, 2020, 11:58:36 am
They are all individual. I can put them is a grid the same as your current deck. I can also resize the cards to whatever dimensions you need.
Post by: Dav on June 15, 2020, 12:06:49 pm
www.qbasicnews.com/dav/files/cards.png (http://www.qbasicnews.com/dav/files/cards.png)
- Dav
Post by: johnno56 on June 15, 2020, 12:09:54 pm
Post by: bplus on June 15, 2020, 12:43:58 pm
Yes they worked without allot of difficulty. Using them scaled up to 1.35 X's
Post by: SierraKen on June 15, 2020, 01:29:51 pm
https://www.qb64.org/forum/index.php?topic=1500.msg106998#msg106998
(https://www.qb64.org/forum/index.php?topic=1500.msg106998#msg106998)
Post by: bplus on June 15, 2020, 01:58:45 pm
This is a really great game bplus and Johnno! I'm impressed at the graphics and the game play. Last year I posted my old 1990's game of 21 here on the forum but nobody replied to it. With the game 21 you don't bet so it's just whoever gets to 21 or closest wins. The graphics are simple ASCII stuff. I first made it in QBasic and then made it in ASIC 5.0 (which was like GW-Basic but had a tiny compiler). So last year I made it work with QB64 if any of you want to try it? I'm not trying to compete with yours though of course. Just wanted you all to see what I did too. You can see the post here:
https://www.qb64.org/forum/index.php?topic=1500.msg106998#msg106998
(https://www.qb64.org/forum/index.php?topic=1500.msg106998#msg106998)
Thanks Ken,
Very odd! The forum search engine is not locating any old Blackjack games, yours Ken and mine, well no, I guess mine is listed first from yesterday. Oh! you call yours 21 OK :)
The first post in this thread was about a month before yours, Ken, in 2019.
qbguy had one a year before ours: https://www.qb64.org/forum/index.php?topic=678.msg5477#msg5477
no reply to that one either, pretty short game.
And in Discussion someone had brought in old spaghetti code.
I almost have an update with the new png's and new layout for Johnno's Table mockup6.png. One little snag to go.
Post by: bplus on June 15, 2020, 02:12:51 pm
Here is all new working code with all new .png's:
I might play around with the chip images for setting bets, right now that screen is very rudimentary.
Update: attachment removed see latest version later in this thread
Post by: SierraKen on June 15, 2020, 03:43:09 pm
Post by: johnno56 on June 15, 2020, 06:38:54 pm
As long as you have not made physical changes to the tablecloth, just replace the cloth with the 'button-less' cloth I posted yesterday, then the 'cloth buttons' will not be seen.
It's not even 9am and I came up with a solution, minor though it be, but a solution none the less... 'without' coffee!! What could have happened if I 'did' have coffee... I can feel an experiment coming on...
ps: I see you have added a slash screen... It looks familiar... lol Started working on a more 'traditional' splash. Not sure how 'that' one will turn out or how long it will take. I am experimenting with a couple of my many little used methods, creativity and imagination.... Yeah. Surprised 'me' as well... By the way... Stop laughing... lol
Post by: bplus on June 15, 2020, 06:50:18 pm
Bplus,
As long as you have not made physical changes to the tablecloth, just replace the cloth with the 'button-less' cloth I posted yesterday, then the 'cloth buttons' will not be seen.
@johnno56 Oh those are just hand-draw placeholders until we have the button images I think you said you were working on 3 types: plain, mouse over, and activated (pressed) was it? I was using the hand-drawn buttons to get mouse alignments and to test the rest of game and alignments. Maybe the plain was the table cloth button itself?
Post by: johnno56 on June 15, 2020, 06:53:37 pm
Done...
Post by: bplus on June 15, 2020, 07:00:46 pm
Hey, I just noticed, the instructions in the open screens have not been updated. Nobody starts in the hole -1000, just that every bet is a loan when your balance is less than 0 and it is only official when end the session in the hole.
Post by: johnno56 on June 15, 2020, 08:13:25 pm
Have you decided on the dimensions of the playing cards? No rush. I figured that, that task, might give 'me' something to do tonight... lol
New splash: No. It's not ready yet... lol I'm thinking of 'old school black mirror'.
I made a small stack of chips, using opengamart's free sprites, then added a reflection... The size is for the demo... It looks a lot better in my head... lol
Post by: bplus on June 15, 2020, 09:43:30 pm
Sorry those buttons are not going to work. I need opaque ones to cover the ones on the cloth, just 3 for Hit, Stay and Double Down, oh and a blank for the bet slot to write numbers on and to use when Double Down is not available.
I tried to align the buttons over the cloth ones but they are blurry and smeared because the cloth is fit over different screen dimensions than it's png image, such that if perfectly aligned on left then way off by the time you reach the right side, same with top to bottom.
I don't want to use the plain cloth because that logo is too big and 2nd cloth pattern is cool!
So I can stay with hand drawn ones unless you have better idea. I am thinking doing screen updates while showing and clearing mouse over of buttons wont be fun either. It's pretty clear to me when a mouse is over a button so don't really need that. I could try different colored hand drawn buttons with better font.
If you want to try a cloth without the buttons just logo and tile pattern that would be great because it would get rid of the redundant X box at the top right otherwise we could find some other image to cover it.
The bet slot is going to hold the amount of the bet so it is more a label that will need numbers than a button.
Post by: bplus on June 15, 2020, 11:25:58 pm
Listening to Episode 2 Podcast, they discussed idea of layering screens over main screen, this might work with mouse over or button press image altering... so don't have to redraw main screen with cards and messages already current, cool! So a new cloth without buttons can be worked with mouse over and button press, I think.
Post by: johnno56 on June 16, 2020, 01:42:15 am
Post by: SMcNeill on June 16, 2020, 02:21:13 am
@johnno56
Listening to Episode 2 Podcast, they discussed idea of layering screens over main screen, this might work with mouse over or button press image altering... so don't have to redraw main screen with cards and messages already current, cool! So a new cloth without buttons can be worked with mouse over and button press, I think.
Sounds like you guys need a little help in saving and restoring backgrounds. See if this very simple demo will highlight a *very* easy way to handle things for you:
Code: QB64: [Select]
Use the spacebar to toggle the button. :)
For your needs, just save the background where the buttons will appear, and then you can restore/overwrite them as needed easily enough.
Post by: bplus on June 16, 2020, 12:11:16 pm
Update: Looks good for my tool box too! Thanks again!
Post by: bplus on June 16, 2020, 12:36:33 pm
Wow! buttons with cloth background that will be interesting to see!
Well with Steve's help and new buttons I have some homework.
Can't wait to see how the buttons work out :) Thanks for quick reply.
@SMcNeill
Update: Oh wait, I think I can just _putimage the button image at x, y location on screen. The problem was that the buttons were transparent and the cloth already had different sized button images embedded in it's image.
If the material did not have a pattern, I could patch over the button areas with clear section but likely to be a chore to patch over and match a pattern cloth perfectly.
So either needed new cloth without embedded buttons or over sized opaque buttons to paste over embedded buttons.
Post by: SMcNeill on June 16, 2020, 03:18:26 pm
Thanks Steve, looks like we don't have to save a whole screen sized image with button in just the right place and just lay it over current screen. I will check out.
Update: Looks good for my tool box too! Thanks again!
And here's another option you may not have considered -- make the button a hardware image. Then, you're guaranteed that your button won't affect the main image, because it'll be rendered on a separate layer completely.
Code: QB64: [Select]
Post by: bplus on June 16, 2020, 05:38:27 pm
Here is the current state of affairs with Johnno's new opaque buttons and some other minor changes:
And zip package: see next post
Post by: bplus on June 17, 2020, 12:35:55 am
Yes and it was an Ace of hearts too! Should pay more than 1.5 X's the bet for that ;)
@johnno56 why does the first line in Table look cut off right at the top?
The much improved B+J Blackjack Game package .zip file is now here:
https://www.qb64.org/forum/index.php?topic=1406.msg119406#msg119406
Post by: johnno56 on June 17, 2020, 03:43:21 am
As to the 'clipping' of the yellow text... The original mockup6 image is ok. Cannot explain that one... The yellow text is 'part' of cloth image itself. Most puzzling.
Just a minor cloth layout 'niggle'. The playing cards do not seem to have much "room" to spare between the text. Without changing the actual size of the cards, I think the easiest solution would be, to move the text of the "logo" closer to the logo itself... Then all you have to tweak in the program are the coordinates at which the cards are displayed. I hope I explained that well enough? It's easier for me to change the cloth than for you to modify the cards and coordinates...
Post by: johnno56 on June 17, 2020, 04:40:59 am
Post by: bplus on June 17, 2020, 02:06:13 pm
First off I will assume and hope everything is working OK in Linux with this latest version(?).
Issue Screen / Table cloth sizing:
About the mystery cut-off of text, I have a theory. It might be happening because the absolute highest screen that I can show everything from title bar down to bottom of screen is 740 pixels with my laptop. So if I _PUTIMAGE your cloth to my screen setup there is some shrinking for the full fit (which is what threw the button images blurry) and that shrinking probably effected the print on the table cloth.
For maximum portable screen size, Terry discovered and Fellippe confirms is 1024 for width for best results and I need a max 740 pixels for height but 640 or 680?? might be more standard height for maximum porting.
So a table cloth to those dimensions we can show pixel for pixel without stretching or shrinking.
To all, I wonder if anyone else has an idea for this? What is maximum portable screen height? before I ask Johnno for another table cloth.
Issue: Table cloth Logo
Being centrally located, it is hogging allot of room that might be better spent showing cards. Also showing "BLACKJACK" directly below the Dealers cards is a bit disorienting.
Johnno what do you think about moving it to Top Left Corner and then next to it we write those 2 Yellow Texts, centered, and then have room on the right for additional buttons should an occasion arise.
OR
Move the text there now above and below ("BLACKJACK" and "Powered by QB64" to left or right or both, keeping Logo in center as that does make a natural divide between Dealer section and Player section but it wouldn't be as tall as it is now so we can show bigger cards.
BTW the "Tip Dealer" dummy button was put there as joke and to cover the X button that we really don't need.
Issue: Buttons and writing
Yes a Table Cloth with just Logo would require only one single Blank button Image with transparent background (maybe some more blank sizes to try out).
Everything else can be written in and colored with nice fonts and transparent overlay boxes and the table cloth pattern underneath will show through without having to match opaque buttons perfectly.
If you want your fonts used just give me a ttf copy, I can draw in the text per your directions or approval.
For bigger cards, which I would love to do, I would need higher definition cards Dav's linked card set are already pixelating at 1.3 magnification, those were 72 X 96 multiplied by 1.3 is about 94 X 125 used in current version.
Issue: Extra dimension audio
Yes indeed that Scratch version is greatly enhanced by the audio both of crowd and the Dealer speech. Can you do that? That would be amazing!
Issue Splash screen:
The one in there now is just a mockup place holder I think, or is that made by you Johnno or Public Domain or you have permission or should you or I get busy cloning a graphic?
Finally, how about a B+J Blackjack that pays X's 9 your Bet if you get exactly an Ace of Hearts and a Jack of Spades in that order?
Post by: Dav on June 17, 2020, 05:46:01 pm
I may have a higher resolution version of that card set still on an old drive - I remember reducing it to the final cards.png version to save smartbasic memory usage but still looked decent on the iPad screen. I'll look for it if you'd like.
- Dav
Post by: bplus on June 17, 2020, 06:47:36 pm
Well, I'm having some fun playing this. Good thing it's not real money I'm losing.
I may have a higher resolution version of that card set still on an old drive - I remember reducing it to the final cards.png version to save smartbasic memory usage but still looked decent on the iPad screen. I'll look for it if you'd like.
- Dav
Yes the winning strategy is: better fake money here than real at a casino, LOL. So many times I get 15 or 16 or when I do get up to 20 the Dealer matches or better. I never see the Dealer sweat like I do.
@Dav if your higher resolution cards that are Public Domain I'd be glad to use them, thanks.
Post by: johnno56 on June 17, 2020, 07:20:55 pm
Linux is exceptionally case sensitive when it comes to file names... But changing splash1.png to Splash1.png fix the only programming error.
Table cloth size: For me it's not an issue to change the size. The cloth can be scaled to whatever size you nee. The buttons are another issue... With a re-sized screen the buttons would need to re-created to match the pattern of the new cloth. That only takes a few minutes. Just let me know what size you want and it will be done.
The central logo/text is purely decoration. Because they are part of the cloth, just like the decorations of 'real' tablecloths, cards and chips can be placed on the logo. Because the cards are 'placed' and not animated when dealt... (oh. Wouldn't 'that' be cool? lol...) I can 'lighten the logo, so as to be less of a distraction, with the 'text' placed as you suggested. Perhaps use a larger version of the logo as a splash screen with a smaller version of the logo in the two upper corners... But, of course, these changes would be dependent on the final screen size....
"One single blank button". Probably will not work. If the cloth did not have a pattern you would be correct.
Fonts: I will attach the font I used. I am not familiar with the base fonts that Windows uses. If you like, so as to preserve consistency, select a font you like and I will update the cloth...
Card dimensions and resolution. I will prepare a "sheet" of 94X125 cards, using the set I have, just in case Dav cannot find his set of cards. I will probably have the same issue of pixelation as did Dav. I will experiment on a 'picture' card and post the result.
Sound: Card shuffle; Ambient noise and or music track are freely available for both personal and or commercial use. My advice would be to have the 'noise' and or the 'music' to be 'noticeable'... Soft enough to 'know' it's there and not to be a distraction... I hope I explained that correctly... lol
The 'speech' part of the Scratch version was the Authors' own voice. Scratch has a nice Text to Speech function built-in, but I doubt it could be used to 'output' to a file... lol If all else fails, as you have already stated, we could modify the same system that was used in Battleships.. Many response types could be used... at the cost of some string space... lol
Splash screen. You are correct. Because it is my interpretation of a commercial image, using it without permission, would not be advisable. So, it is as you have so rightly stated, a 'place holder'.
Extra payout on a specific blackjack combination.... Sounds like a great idea... But, you may have to pay out a serious amount of change, for that to happen. If you are using a singe 52 card deck, the odds of being dealt a specific blackjack, if I am not mistaken, would be approximately 2,652 to 1. This is based on two consecutive cards being dealt. A 1 in 52 chance of a Specific Ace multiplied by a 1 in 51 chance of a specific face card. If you are using, let's say four decks, then the odds could be 41,412 to 1. How much did you have in mind for a payout? lol
Post by: Dav on June 17, 2020, 07:28:05 pm
https://code.google.com/archive/p/vector-playing-cards/ (https://code.google.com/archive/p/vector-playing-cards/)
- Dav
Post by: johnno56 on June 17, 2020, 07:43:54 pm
Those are the cards that I have.. Ha. Small world...
I will attach a 240x336 King of Spades and a 94x125 (slightly sharpened) scaled version.
J
Post by: SMcNeill on June 17, 2020, 08:07:49 pm
Post by: _vince on June 17, 2020, 08:40:50 pm
https://github.com/SteveMcNeill/Steve64/blob/master/Archives/Images/Sexy%20Cards.JPG -- Personally, I think this little cardset looks good for any sort of gambling card game.
just a random assortment of photographs, could be a little more creative
Post by: johnno56 on June 17, 2020, 08:44:20 pm
Post by: bplus on June 17, 2020, 08:45:57 pm
Post by: bplus on June 17, 2020, 09:48:09 pm
LOL I forgot where we were at?
Quote
Card dimensions and resolution. I will prepare a "sheet" of 94X125 cards, using the set I have, just in case Dav cannot find his set of cards. I will probably have the same issue of pixelation as did Dav. I will experiment on a 'picture' card and post the result.
Yeah I just ran the math on the 240 x 336 card size, those are too big but probably shrink is better than expand. I don't know.
But I think a card sheet 4 rows of 14 with 14th's being Joker (optional) and card backs 1 needed.
You say you'd like to see the cards being flung into position from a shoe? I am picturing a real shoe for a play on words, they walk across the table leaving card footprints... just joking, I think. :)
I'd like to try your latest table mockup with a blank transparent button so the table background shows through the button shape and print inside button. BTW I like the thicker of the 2 fonts you sent for button text I can draw up the buttons in the GetStarted sub and save as images instead of downloading each button. That would cut down on asset files specially if we have audio coming. Still deciding on final size leaning toward 1024 x 740 washing out logo might work but I am picturing the text to the right of logo because the right side of table is so empty of text it would balance it some.
For the splash can you do lettering for sign? I can do brick wall and some lighting effects? (remember the neon blue?)
OK for all the losers playing B+J version of Blackjack, we will offer 50 times your bet if you hit Ace of Hearts + Jack of Spades in that order, so it will be like a lottery on every round. I think the banker can cover that ;-))
Post by: bplus on June 18, 2020, 01:01:44 am
Post by: johnno56 on June 18, 2020, 08:32:22 am
If you want the wall in your original image, send it, and I will swap it over...
Just in case you would like a kind of animation... I have also made a 'blink' image.
Perhaps you can create the 'blink' by alternating between images a few times before prompting for a name?
Post by: bplus on June 18, 2020, 12:14:15 pm
You found the source of the neon2.ttf which is same link as your font. Speaking of that source for fonts I tried FreeSansBold.ttf, I used to replace my Arial.ttf but all the letters seem to have the tops cut into a tiny bit, I do like the thicker lettering. I think Arial has a Bold too, I will try.
I like in your screen shot how yours glows, I did neon pulsing by finding interior points (The A's need 3 for PAINT) and used PAINT of different colors while looping through the sign letter by letter so the whole thing feels electric but I don't have glow, maybe yours is easier but 2+ images would be huge MB of image files.
I found my brick wall at unsplash.com, I think the credit goes like this:
Thanks to Donnie Rosie @drosie for sharing their work @unsplash.com and I will ref a direct link:
https://unsplash.com/photos/taO2fC7sxDU
We might go further and describe how we used the image, this satisfies requirements of many types of Open License I think.
Johnno try downloading from there and see if you get the same directions for using as I. I had to shade down the wall with various black transparencies to make it look like night time. The screenshot I show is when the pulsing stops to get the Player name. Ha the image is certainly large enough, as I recall 3 sizes are offered I picked the one closest to our screen of 1024 x 740.
I guess for best comparison we need to see splash screens in action. I will clean up my code a little and show you.
Update: oh I can make it glow too (without extra images to load) I will try, also add the the 50 X's bet for special Blackjack.
I wonder if you could neon the logo of cards?
I do want to try a blank transparent button please.
Post by: johnno56 on June 18, 2020, 09:07:01 pm
Ah yes, The Glow. Gimp has the ability to create 'Drop Shadows' of any colour and radius (to a point... lol) that can be applied to any object on the layer. Enhancing the glow is done by simply duplicating the layer... The blinking was an 'after thought' as I was finishing the first image... I figured that perhaps a little animation might be nice.
I visited the linked site... Nice walls... At the bottom of the page it states, "Do what you want." (in reference to image usage. But, I think you are correct in giving them a mention, after all they are creators of the images. It's only fair. I was not given a choice of sizes. The image was quite large, 6000x4000. I can scale to 1024x768 by scaling the image until the 'Y' dimension is 768. The 'X' will by greater than 1024 but can be cropped.
Neon the 'logo', the one on the table? I am surprised that you phrased your question, "I wonder IF you could..."... lol Pick a colour and it will be done. Send the RGB() of the colour you want. That way there will be no 'guessing' on my part... lol
A 'blank' transparent button? No problem.
Post by: bplus on June 18, 2020, 09:42:53 pm
Here is the brickwall image 1920 x 1280, 700 KB I got:
To give night look you will likely layer over with transparent Blacks. Cropping better than scaling to preserve the detail of image. It is 1024 x 740 max screen dimensions for me! (not 768)
Give Neon Logo same colors as Lettering. We are just going for a clone of first splash screen we had, unless you got some idea for better? like a door fading into view after we get the Player's name :-))
So how many files does it take to create the effect you have for splash screen?
Post by: johnno56 on June 18, 2020, 11:55:14 pm
The 'night' look. Your method produces the same result as mine. You 'overlay' transparent 'black' to the image. I make the wall partially transparent and place it on top of the 'black' layer. How many files does it take? Only one. The effects are layered either upon or beneath the image then all layers are 'merged' into one layer. That final layer becomes the 'new' image.
"Give Neon Logo same colors as Lettering. We are just going for a clone of first splash screen we had, unless you got some idea for better? like a door fading into view after we get the Player's name :-))
".... This line left me a little confused... mind you, it's not hard to do... lol "first splash"? I have made a lot of splash screen recently. I'm not sure which one you mean... I'm not sure what you mean by, "door fading into view".... Isn't it funny that we both know English, but based on where we were raised, our understanding of it can be as dissimilar as cheese is from chalk... My apologies for my lack of understanding...
Post by: bplus on June 19, 2020, 01:16:58 am
Quote
".... This line left me a little confused... mind you, it's not hard to do... lol "first splash"? I have made a lot of splash screen recently. I'm not sure which one you mean... I'm not sure what you mean by, "door fading into view".... Isn't it funny that we both know English, but based on where we were raised, our understanding of it can be as dissimilar as cheese is from chalk... My apologies for my lack of understanding...
Well it wasn't your first splash screen or was it? you did call it splash1.png, reply #50
https://www.qb64.org/forum/index.php?topic=1406.msg119254#msg119254
LOL my little door idea fading into view when the Player enters es name was just a little fantasy psuedo code, just playing around don't worry about it :)
Man have I got an update almost ready! Allot of things cleaned up.
Post by: bplus on June 19, 2020, 01:27:11 am
Update: OK download is tested and everything is working fine on my system, except the mouse seems to need to be clicked more carefully ie less movement across screen while mouse button is down..
Update: Check Best Answer for latest zip package of Blackjack Game
Post by: Ashish on June 19, 2020, 01:54:04 am
BTW, I had never played cards and never understood it. I just know some basic info about it, so that I can use them
in solving probability problems. :)
Post by: bplus on June 19, 2020, 02:31:57 am
Nice graphics! Good interaction.
BTW, I had never played cards and never understood it. I just know some basic info about it, so that I can use them
in solving probability problems. :)
Thanks, absolutely no need to hurry to learn cards, what you are learning now is way better!
Cards will still be around when you're ready. :)
Post by: johnno56 on June 19, 2020, 08:11:01 am
If you need any more changes just let me know....
I need more coffee...
Post by: SpriggsySpriggs on June 19, 2020, 08:15:43 am
Post by: bplus on June 19, 2020, 11:44:45 am
Dang, that looks cool
+1 Very nice work! I guess the detail works better with transparent image on black layer(s) if I got it correctly.
@johnno56 we can replace the neon2.ttf and drop code for that.
Did you say you could make it flash a little? Even if not, this is the clone for splash!
Oh yes! even the Ace is Red! And what luck the splash of red paint on the brick wall!
Post by: bplus on June 19, 2020, 07:13:35 pm
@johnno56 What's next on our To Do List?
I know we need a better method for setting different bets each round, a slider bar I think. I will get on that.
Audio would be nice, hint, hint ;)
I will brew up a fresh pot :)
See Best Answer for latest B+J Blackjack version.
Post by: bplus on June 19, 2020, 07:28:39 pm
I guess it's just a case of wishful seeing. Ha! maybe I will be only one to notice. :)
Post by: johnno56 on June 19, 2020, 07:38:40 pm
Actually, I used a similar method to yours, for making the wall. Decreased the 'brightness' of the wall. Applied a multiplied black 'fog edge', Merged all the layers and bingo! The wall only took a few minutes to make. The neon lights... Everything done from scratch... Took considerably longer that a 'few minutes'... lol
When you stated, "we can replace the neon2.ttf and drop code for that.", what exactly did you mean? I have several 'neon' fonts. 'neon lights' (the same as 'your' wall. 'neon tubes 2' (the font used in my image) and a couple of others that didn't look so good... lol In school, we were taught English Literature and English Expression, obviously English comprehension was, shall we say, somewhat missing... *sigh*
Animating the sign was just alternating images of two walls. One has a complete neon sign, the other will have missing letters... Random delay between the images... 'blink' in that way a few times... Use the 'complete' wall... then prompt the user...
Gimp has the ability to create animated gif's but I do not know if QB64 can play them...
Another alternative is to use separate images for the wall and the sign. 'blink' the sign 'on and off' for a fraction of a second a few times. Switch the sign 'on' and prompt the user. Blinking can be associated with an electrical buzz sound. Giving the effect of a dodgy connection.
Speaking of sound... I will grab an ambient sound track and shuffle....
Post by: johnno56 on June 20, 2020, 06:43:32 pm
Ambience.wav is quite large (5.3mb stereo, 2.6mb mono)
Ambience.ogg (1.6mb stereo, 756kb mono)
I will post the 'ogg' files (including stereo AND mono ambience)
Attribution:
Chips - Daniel Simion
Ambience Casino - Stephan Schutze
Shuffling Cards - themfish
Post by: bplus on June 20, 2020, 07:15:03 pm
Almost done with slider bar for variable betting. I'm debating various scales for players who have millions or billions of chips. I can work these audios in before next post.
Post by: bplus on June 20, 2020, 11:28:50 pm
@johnno56 the ambience.ogg file is good until the freaking loud laugh and chips.ogg, I don't know sounds jiingly for felt cloth table, shuffle.ogg is fine. Man we need a Dealer talking.
So here is BJ v2020-06-20 with new slider bar and some audio.
2020-06-29: see Best Answer for latest update of Blackjack Game
Post by: johnno56 on June 21, 2020, 05:03:34 am
Post by: johnno56 on June 21, 2020, 07:06:12 am
Yes. A dealers voice would be good. I will look for a descent online text to speech application... In the meantime, what sort of statements or comments, do you think will work?
Post by: bplus on June 21, 2020, 11:13:34 am
More homework ;-)
Post by: johnno56 on June 21, 2020, 11:50:21 am
Post by: Pete on June 21, 2020, 12:56:26 pm
Anyway, long story longer.... beautiful background, neat layout, and it sounds like this baby will have all the bells and whistles of a first class made for prime time computer game. It's stuff like this that makes we wish Rob would have had a simple way to port the language to mobile device. Obviously I'm glad he didn't try with Windows phone, RIP, but it would be neat to see this game on tablets, Android phones and iphones, but I digress... In regard to the game, it's great that you included double down, insurance, surrender, etc. Very professional! I haven't read all the pages, so I'll ask. Did you consider a two version option, playing from a shoe, which is Vegas style, or playing from a 52 card deck, which is played in Reno?
Awesome project. Best wishes on its completion,
Pete
Post by: bplus on June 21, 2020, 02:02:29 pm
I did put in Double Down but ruled out Insurance when I read advice from I assume professional player never to take insurance. It seems it only comes up when dealer has Ace showing, even if you win your Insurance Bet you still loose the original bet so WTH? it's not worth the trouble of coding or taking the option in Casino, unless I misunderstood something.
Surrender when I first read about it sounded interesting to cut your losses on a bad set of cards, then again is it worth coding the complex situation? I might put it in if someone can give me a good argument for it.
It is thanks to you I did do Double Down way back... I think it makes the game more interesting.
and way back, I think I did do multiple "dummy" players, I know I considered it, I'd have to read through the start of this thread too :P
Post by: Dav on June 21, 2020, 09:54:35 pm
I'm sorry that I haven't been able to locate the higher resolution card set that I once had somewhere. I may have deleted it.
- Dav
Post by: bplus on June 21, 2020, 11:13:26 pm
@johnno56 I don't mind a Dealer that sounds like a robot, we can work that to our advantage maybe but we need to understand what e says and offer sub-titles, but we were going to have to do that anyway. :)
You might record common speeches but what about saying total amounts?
I wonder if we could Shell to the Browser and have a site translate text?
Post by: johnno56 on June 22, 2020, 03:30:46 am
For Festival, or Cepstral for that matter, would have to be installed on each machine to enable producing 'live' comments. Making a list of some well known gambling phrases; card numbers and suites; regular and amusing dealer comments etc could be used to make a 'library' of sound bites... I have never gambled before and would not be a good source of information. Perhaps we could crudely imitate Scratchjack comments? I will start with them and get back to you. If the files are too big I will post a link.
Post by: johnno56 on June 22, 2020, 06:33:06 am
Review these and let me know if they are any good? These will 'do in a pinch' but I will still research something better... fingers crossed...
Post by: johnno56 on June 22, 2020, 06:38:55 am
Post by: bplus on June 22, 2020, 09:55:55 am
I will check out your sounds and assimilate :)
You probably can't hear the jokes from robot voice (Windows only) but check out the jokes.
This is the Dealer (a combination of Steven Wright, Henny Youngman and Pete) who would get tips even from players who lose (well I might be tempted anyway with fake money). Might as well get entertained a little while emptying your fake wallet :)
This is fun to review every 6 months or so:
Post by: bplus on June 22, 2020, 10:13:59 am
It is nice idea to have several different phrases for common things Dealer has to communicate.
I wonder if the Dealer might read the Help Screen for first time players or hyperlink snatches of it for regular players who want a refresher say on the special Blackjack or Terms... do it in cartoon bubbles with point going up as if coming from Dealer, I'm thinking in the center of screen over the Logo section. What would a robot version of a cartoon bubble look like?
Post by: johnno56 on June 22, 2020, 08:09:48 pm
This TTS can be quite addictive... Although today's computers are more powerful, we will still have to be conscious of the fact that, the program may become 'bloated' with sound files... lol
With that being said... My TTS program (by the way... I have added a slightly better 'voice'. I will attach two samples.) can read text files and convert them to 'wav' files. For the 'help', I would convert the 'wav' to 'ogg', to reduce the file size. Other 'help' snippets can probably remain as 'wav'.
Cartoon bubble you say... Hmm... My suggestion would be and '8 bit' look... I will attach a large version as an example. Ideally, a subroutine would be needed to create a bubble to fit the text... I suppose similar to creating 'buttons with different lengths of text....
I will look up some dealer 'comments' and convert them to audio. Could be fun.
Post by: bplus on June 22, 2020, 09:46:52 pm
Oh I like new welcome.wav, e's got a formal Britash accent about em.
Post by: johnno56 on June 22, 2020, 10:52:14 pm
Yeah... I added the 'mbrola en1' voice... British it is... the US voices were more like English with some other accent thrown in for good measure... lol I will check out some more voices... At the moment, the British voice, seems to be the better one... I'll keep looking.
Post by: bplus on June 22, 2020, 11:01:58 pm
Oh maybe like this:
https://www.shutterstock.com/image-illustration/glow-swirl-light-effect-circular-lens-525106498
Try different voices reading the jokes. Might have different players sitting next to you telling them.
Post by: bplus on June 22, 2020, 11:28:59 pm
Code: QB64: [Select]
- resetWand
- wandsi x, y, a, d, 0, i
- x = x + dx
- y = y + dy
- a = a + da
- d = d + dd
- i = i + 1
- '_LIMIT 200
- SUB resetWand
- wandsi 0, 0, 0, 0, 1, 0 'this sets a coloring for wand used in drawing the pointer inside the mouse
- 'draw a colorful line from point x, y, at radianAngle for a distance and use new <> 0 to reset colors
- x = x1 + i * dx: y = y1 + i * dy
Post by: johnno56 on June 23, 2020, 02:29:10 am
"Different voices" sounds like a great idea... but I'm not sure if people will be able to cope with 2+ other "robots" having conversations.... lol So far, the voices that I have found, are all fairly similar...
The TTS that I am using is call 'espeak' and will run on Linux, Mac, Risc an Windows (requires SAPI5) and is free. (http://espeak.sourceforge.net/download.html) On my system I can run espeak from the command line or through a GTK gui call Gespeaker. Gespeaker will require python2.7 The sound is not pretty (as you have heard) but can be fun to tinker with...
Your 'Random Light Line' reminds me of the old Win95/98 'Mystify' screen save... but better looking ;)
Post by: bplus on June 23, 2020, 02:13:12 pm
Quote
Your 'Random Light Line' reminds me of the old Win95/98 'Mystify' screen save... but better looking ;)
I forgot to mention how applying alpha to the drawing killed the heck out of the speed.
Post by: johnno56 on June 23, 2020, 04:05:54 pm
LINE (x, y)-STEP(0, 0), _RGB32(127 + 127 * SIN(r * (i + startIdx)), 127 + 127 * SIN(g * (i + startIdx)), 127 + 127 * SIN(b * (i + startIdx)), 50), BF
Post by: bplus on June 23, 2020, 04:16:32 pm
so (100,100)-STEP(25, -50) = (100, 100)-(125, 50)
In the line you show the STEP(0,0) is effectively just drawing points like PSET. I think it was Steve who said LINE was optimized for that compared to PSET.
Post by: johnno56 on June 23, 2020, 05:42:31 pm
Post by: bplus on June 23, 2020, 07:14:31 pm
Post by: bplus on June 28, 2020, 06:00:34 am
How are the sound files for English accented dealer coming? Maybe forget the jokes??
I guess I better get back to the coalescing text bubble maker, myself.
Post by: johnno56 on June 28, 2020, 08:13:59 am
Post by: johnno56 on June 28, 2020, 08:42:04 am
Obviously, I will need to run a few more filters through it to 'clean it up', but not too bad for a first try?
Post by: johnno56 on June 28, 2020, 10:25:54 am
I have managed to figure out how to allow Audacity to record directly from the PC audio. Bingo! No static or need of filtering.
Here is the new sample.
Best part... 'wav' file is 600kb+ and the 'ogg' is just over 30k... Cool
Post by: jack on June 28, 2020, 11:02:47 am
Post by: bplus on June 28, 2020, 11:21:51 am
that sounds really good :)
+1 Wow! clear and human, it sounds like a winner! I was OK to go with English accent but this can't be any more clear.
So you are getting speech from text with one app and recording that with another and the file size is quite doable.
Good research @johnno56
Post by: johnno56 on June 28, 2020, 12:02:56 pm
Post by: johnno56 on June 28, 2020, 07:27:41 pm
Post by: bplus on June 28, 2020, 07:48:30 pm
I just finished my Coalescing Text maker for more modern looking "bubbles" I think.
I am thinking we can play sound and run the Coalescing Text maker and they might finish around the same time?
Check it out:
Code: QB64: [Select]
- ' post 2020-06-28 https://www.qb64.org/forum/index.php?topic=1406.msg120007#msg120007
- ' using OPTION _EXPLICIT in Blackjack I found a crucial mistake now it coalesces even better!
- _DELAY .25
- 'center the text at x, y dimension of a white/black background space will depend on font height and width of print string
- 'should not change anything on main screen as we will be projecting images to it in empty area
- DIM oldFont&, oldBC~&, oldFC~&, olddisplay, screenshot&, w, h, temp&, yy, xx, p, i, projX, projY, loopI
- oldBC~& = _BACKGROUNDCOLOR
- oldFC~& = _DEFAULTCOLOR
- olddisplay = _AUTODISPLAY
- _FONT fh& 'get measures
- 'PRINT w, h 'exactly right
- _DEST temp&
- _FONT fh&
- 'initializing
- _SOURCE temp&
- i = i + 1
- projX = xc - .5 * w: projY = yc - .5 * h
- 'draw loop
- x(i) = x(i) + dx(i): y(i) = y(i) + dy(i)
- _DEST 0
- 'LINE (projx, projy)-STEP(w - 1, h - 1), &HFF000000, BF
- _LIMIT 30
- 'restore
- _FREEIMAGE temp&
- _FREEIMAGE screenshot&
- _SOURCE 0
- COLOR oldFC~&, oldBC~&
- _FONT oldFont&
EDIT: adding the SUB into Blackjack using OPTION _EXPLICIT found a critical miss, fixed, and now the effect is even better!
Post by: johnno56 on June 28, 2020, 08:11:34 pm
I have not seen text 'appear' like that before... Very cool...
Post by: johnno56 on June 28, 2020, 08:23:11 pm
Post by: bplus on June 28, 2020, 08:30:59 pm
ps: Perhaps a slight mod of the 'limit' on line #79? Perhaps the speed of limit could be calculated from time length of each phrase? ie: The longer the phrase the quicker the 'limit'? I have no idea how to do that... just a rogue thought...
Great idea Johnno, It could easily be built into the sub from the text length, hopefully I will get a feel for timing from your latest audio's, thanks.
PS the font OpenSans-ExtraBold.ttf is same as used in last version of Blackjack same source as our Neon2.ttf. I really like that fat text!
Post by: bplus on June 28, 2020, 09:22:28 pm
https://www.qb64.org/forum/index.php?topic=1406.msg120007#msg120007
Post by: johnno56 on June 28, 2020, 10:31:18 pm
The font was installed because I had upgraded Linux Mint 18.1 to 19.3 and all my previous 'manually' added fonts migrated to the ether... *sigh*
Post by: bplus on June 29, 2020, 01:53:46 am
Really good sound quality @johnno56
I am playing the Welcome from the splash screen and we are sort of still in the street, outside the building.
I wonder if the voice would not ask us to sit down but to write the Player name and enter.
Post by: johnno56 on June 29, 2020, 05:27:50 am
Here is the basic 'Welcome' plus a few extra 'post-entry' responses.
Post by: bplus on June 29, 2020, 11:11:03 am
It turns out that the audio is faster than the coalescing text and I have to get it started before the audio.
I am wondering if I should even keep coalescing text in. Well I will leave it for now because it's nice signal for Dealer speech. I will fiddle around with it a bit.
As I understand it sound can play and graphics can continue while sound is playing but coalescing monopolizes execution flow until it's finished. Maybe I need to play sound from a timer, let coalescing get started and set timer for .5 sec delay to play sound.
Post by: bplus on June 29, 2020, 11:27:18 am
Just played the new welcome, hate to be picky but I was hoping for a little play on the word Enter, "Please type in your name and enter" uses enter double meaning, as we need enter key to signal end of input and enter as in enter our fake building ;-))
LOL the quips about wallet!
Post by: johnno56 on June 29, 2020, 06:16:52 pm
Post by: bplus on June 29, 2020, 11:30:32 pm
see Best Answer for latest Blackjack version.
Post by: johnno56 on June 30, 2020, 01:18:06 am
I think we need more 'numbers'. One time I stayed and the dealer hit on 16. Dealt itself a picture card but 'said' 16. I will whip up numbers 22 to 31 and post them.
Other than that, a really good game. Nicely done!
Post by: johnno56 on June 30, 2020, 01:59:19 am
Post by: bplus on June 30, 2020, 12:00:34 pm
I really like the audio for dealer and it is way clearer than I had expected (which is why I stuck in there with the .ogg files).
I have more to add and refinements to make. Like the option of setting the bet at the beginning, the coalescing text is on the chopping block as I was anticipating an older model computer voice. Working out the timing with sound may not be worth the trouble because numbers are so short there is no time now to see them before they disappear.
I like the fixed fINPUT now, you can see the brick wall behind the lettering, and will be reusable in other apps.
Update: oh maybe the last total is still showing when busted comes up, I will check that. I am looking at one place for errors, you might still be looking at where totals are showing.
Post by: bplus on June 30, 2020, 02:39:46 pm
Move the chips image into "Bet area" at right bottom corner when you hear the sound of chips.
Clear that image (or double it) after hand accounting and then have it cleared when time to place new bet.
That would give more sense to the sound of chips chinging.
I was comparing our version to Scratch Jack when I had the idea. BTW I think we are doing pretty good in comparison.
Post by: Dav on June 30, 2020, 04:13:19 pm
Just a suggestion here from a user... if the project download size is ever a consideration, then I'd suggest lowering the ogg file quailty points a little bit more in Audacity when exporting some of those ogg files. It can decrease file sizes a whole lot without hurting the sound quality very much. Especially on the ambience ogg - with that one you could shave off nearly 800k before the average listener would notice anything different. Also, maybe it would be interesting to put in a random sound assigned with a TIMER - like every 3 minutes a random noise or comment, perhaps laugh in the far left distance, or some jackpot sound on the far right, etc. That could kind of mask the repetition of the ambience sound looping.
Good work on the game!
- Dav
Post by: bplus on June 30, 2020, 07:01:44 pm
Maybe @johnno56 can give us some random ambiance to toss in over regular ambiance, maybe something from Monty Python's flying circus (just joking, I think).
I am tired of losing too and have an idea to reward fans of this particular game ;-)
Stay tuned...
Post by: johnno56 on June 30, 2020, 08:40:58 pm
Post by: bplus on July 01, 2020, 02:34:58 am
Update: See Best Answer for latest version of Blackjack
Post by: johnno56 on July 01, 2020, 06:32:52 am
Post by: johnno56 on July 01, 2020, 06:45:26 am
I will recreate then, without the reflection, then post them... It will take me a little while... The stack has to me 'created'... lol
Post by: johnno56 on July 01, 2020, 07:09:57 am
Post by: johnno56 on July 01, 2020, 07:29:32 am
Before you do. Restart the game and take a close look at the cards being displayed on the screen. Particularly look closely at the 'black' cards. All the club and spade symbols, as well as any black in the 'picture' cards. Can you see the table cloth pattern?
Reason: All the cards have a 2 to 4 pixel black border. I am going to assume that, qb64 like other programs, assumes that the top left pixel of the image, unless specified, will interpret 'that' pixel, as a consequence all other pixels of the same colour, as the 'transparent' colour.
Most images that require a 'transparent' colour usually choose magenta. In our case... It's 'black'.
I have attached the same card-set but have used are darkish grey as transparent. Ran it on my machine and all the black cards are indeed black. Mind you, with my eyesight, I had to use a magnifying glass... lol
Post by: bplus on July 01, 2020, 09:47:05 am
I was noticing the chips were a little funky at the bottom, totally missed the thing with the cards.
Are cards exact same size? well I will find out ;-))
Post by: johnno56 on July 01, 2020, 12:01:32 pm
Post by: bplus on July 01, 2020, 12:36:13 pm
Update: new images loaded in and just a little adjustment to Y's by 15 pixels for chips with 0 reflections.
:-)) my avatar updated to same.
Post by: bplus on July 01, 2020, 10:21:29 pm
Would it be too difficult to change the Ace of Spades to Ace of Hearts on Splash screen neon light. Turn the spade upside down and remove the stem? That is Our table Logo and the special Blackjack that pays 50 X's the bet.
I have a notion to try drawing it from card outline.
Post by: johnno56 on July 01, 2020, 11:33:30 pm
Post by: johnno56 on July 02, 2020, 12:23:59 am
Post by: bplus on July 02, 2020, 09:10:26 am
By George! I think you've got it! Very Good!
(Been awhile since I said, "By George," maybe never, who is George? some clever guy?)
Update: the images swapped with only minor change to chips Y values.
Getting close to final version, is there anything you'd like to see?
I know more chips in your total but if you play long enough that should happen. Note to Pete, chips are fake, not even eatable, no cash value ;-))
I like Dav's suggestion of some occasional random ambiance sound to break up the continuous background loop.
Post by: johnno56 on July 02, 2020, 12:46:16 pm
ps: Q: Who's George in the expression “By George!”? A: The phrase is a mild oath or exclamation that had its beginnings in the late 1500s. The word “George” here is a substitute for “God,” as are words like “golly,” “ginger,” “gosh,” “gum,” and so on in other similar euphemistic oaths.
Thought you might like the trivia...
Post by: bplus on July 02, 2020, 02:28:08 pm
I've been putting on a YouTube track of music and turn down volume to that while playing Blackjack. That dealer's voice is so clear! Lately it's been mixes featuring Snow Patrol.
The trivia note is appreciated because as Dimster and Cobalt know we are nerds! ;-))
Post by: SMcNeill on July 02, 2020, 02:29:25 pm
I've done some searching for ambient sounds for blackjack poker and casinos but most of the sounds are chips and card shuffling etc.
What you need to add is the chance of the sound of someone coughing at random, followed by somebody yelling, "Cover your mouth, dude!", and someone else yelling, "What the hell?!! You just spittered on me!!" Follow that with gunshots, shouting, and then a calm announcer's voice coming across an intercom telling everyone, "I'm sorry. Due to the recent rioting, our casino is now closing to the public. All games will now shut down. Please head for the nearest exit in a calm, respectful manner." Repeat once more. Then go to system and make the poor player lose all their winnings!
Post by: bplus on July 02, 2020, 02:39:05 pm
What you need to add is the chance of the sound of someone coughing at random, followed by somebody yelling, "Cover your mouth, dude!", and someone else yelling, "What the hell?!! You just spittered on me!!" Follow that with gunshots, shouting, and then a calm announcer's voice coming across an intercom telling everyone, "I'm sorry. Due to the recent rioting, our casino is now closing to the public. All games will now shut down. Please head for the nearest exit in a calm, respectful manner." Repeat once more. Then go to system and make the poor player lose all their winnings!
LOL!
Post by: johnno56 on July 02, 2020, 06:21:05 pm
You have a wicked sense of humour... Funny. But wicked... lol
Post by: johnno56 on July 03, 2020, 11:29:00 am
Searched soundbible and opengameart for some 'vocal' effects. Pickings were slim but managed to find a few samples. I don't know how many sound channels QB64 can play or how to control the volume of each channel. I'm going to assume that timers, in concert with each channel, would be the way to 'overlay' the background track. They are all a bit loud. I can use Audacity to modify the volume of each sound if needs be.
I will keep looking...
Post by: bplus on July 03, 2020, 12:35:38 pm
Yeah, I was looking for sounds last night too. Something's happened to soundbible, impossible to use, for me anyway.
I did manage to get a couple of MP3's to throw in some excitement like somebody did well close or far from you (according to vol I hope). Planning the first final cut today or tonight, any last minute ideas?
Pete's idea about showing other players too, I will save for another time, well maybe throw in a bot or two to try out AI strategies. That would probably only mean showing players names? more than that.... cards... eh?
I had not heard or seen any arguments for Insurance Option so I will leave it simple and without that complexity.
Post by: bplus on July 03, 2020, 05:08:05 pm
Updated: See Best Answer with latest and greatest version and download zip package.
Post by: johnno56 on July 03, 2020, 08:40:08 pm
I ran the new version... Heard a 'yahoo'... while I was losing... lol
Speaking of losing... I noticed a slight speech problem with, "To bad you lose"... "you" sounds like it is slightly off. Not sure how better to explain it.
I experimented and found a better way of pronouncing 'you'. I used the word 'Ewe' in stead. Compare them and let me know what Ewe think. (Sorry. Couldn't resist... lol)
Oh. My second 'test' of the new version... Two blackjacks in a row followed by a twenty... Made a bucket load of money... Four hands later and it was all gone... *sigh*
Post by: bplus on July 03, 2020, 08:46:02 pm
You have a 1 in 169 chance of getting the super Jackpot Blackjack so hang in there. :)
That's sort of like 50 free games.
Post by: bplus on July 04, 2020, 11:03:21 am
It is easy to swap the two files, File Explorer had no problems with that.
Man! @johnno56 you are picking very fine points, good that you can find something and offer a change.
It just occurred to me talking to TempodiBasic about Italian card games that no one has mentioned the Split option in Blackjack!?! Of course it'd be a bit of a mod, as would multiple players ie bots.
Post by: bplus on July 04, 2020, 05:26:50 pm
This time I remembered to update the bas source with the version number:
Update: The Best Answer contains an updated version with more or better comments. The code has not been changed since the post of July 4th version.
Post by: johnno56 on July 04, 2020, 07:11:58 pm
Oh. Tested this version; My first Blackjack filled the screen with chip stacks and added $52,000 to my score!! So, I quit the game, made a copy of the 'memory bank' as proof... Cool... Woo Hoo!
Post by: bplus on July 04, 2020, 10:46:29 pm
I've already put a Shortcut on my desktop for something to play while listening to tunes. Love the EXEICON.
Post by: johnno56 on July 04, 2020, 10:48:19 pm
Post by: bplus on July 05, 2020, 03:08:26 pm
STAY TUNED...
PS I AM HOPING TO TRY SOME SIMPLE CODE TO RUN AI EXPERIMENTS. LAST NIGHT I CONFESS GETTING BORED AS HELL PLAYING, GIVING UP ON ANY 'FEEL' FOR MAGIC MOMENT MY LUCK WILL CHANGE AND I WANT TO TRY DIFFERENT AI STRATEGIES, THERE IS THE BUILT-IN ENCOURAGEMENT OF 50 X'S BET JACKPOT BUT THAT IS NOT ENOUGH INCENTIVE TO KEEP PLAYING. THINKING I HAVE A LONG TERM WINNING STRATEGY IS!
WE ARE SHUFFLING DECK BEFORE EACH ROUND SO CARD COUNTING IS NOT A MAJOR FACTOR IN PLAY, I THINK...
Update: a very simple fix but odd that it should go wrong between QB64 versions?
I am updating SCREEN 0 version to play like it's Big Brother without full audio and graphics for AI tests.
Post by: johnno56 on July 05, 2020, 07:06:46 pm
QBv1.3 was either released on 19th Jan 2019 or 8th Apr 2019 (please correct me if I am in error). The first BJ posting, on this forum, was 7th June 2019.
QBv1.4 was released on 13th Feb 2020.
Assumption #1. BJ was developed originally using 1.3 and later updated to 1.4
Assumption #2. BJ has always been developed with 1.3
Assumption #3. BJ has always been developed using 1.4
If either assumptions #1 or #2 are true then I would assume that the problem would be 'version' related. But that argument may not hold as the current problem would have presented itself earlier.
If assumption #3 is true then the problem is, more than likely, not version related.
I have to conclude that assumption #1 is correct as your opening statement says, "DOESN'T EVEN WORK IN QB64 1.4"
To be able to assist, assuming that I can, I would need a few more details of the issue apart from, "something odd'... lol
If you can describe the problem and how it is presenting itself, I may be able to see if that problem exists within the Linux version of 1.4
Oh. Quick question. I updated to 1.4 a while ago... I'm not sure if I installed the development version or not. How can I tell? Are you using the 'normal' or 'dev' version? Ok. My math abilities are shot.... I know... That was two questions... lol
Post by: FellippeHeitor on July 05, 2020, 07:17:09 pm
Post by: bplus on July 05, 2020, 07:29:34 pm
What doesn't work in the latest version?
Well this afternoon I was testing the old code and when I tried keypress h to hit it wasn't.
Then I downloaded the code from forum to see if it were any better, it wasn't.
But tonight I try the same thing again before this reply, and all is OK.
Now I wonder if I had caps lock on. :P
Post by: FellippeHeitor on July 05, 2020, 07:36:58 pm
Post by: johnno56 on July 05, 2020, 07:48:16 pm
Post by: bplus on July 05, 2020, 08:02:49 pm
I developed the old code in QB64 v1.3 last year July, and never looked at it again until today using QB64. (Our version of this June and July started from a later version with card images.) It wasn't working so the first thing I ask myself is what is different. The QB64 version number was the first thought that came to mind.
I hardly ever type with caps lock on unless I am screwing around effected by Pete's comment about the men in caps.
So of course, this whole thing is Pete's fault. 😜
Quote
Oh. Quick question. I updated to 1.4 a while ago... I'm not sure if I installed the development version or not. How can I tell? Are you using the 'normal' or 'dev' version? Ok. My math abilities are shot.... I know... That was two questions... lol
If you have the approved and tested QB64 version it will say "Stable Release" in the "About" Menu Item under "Help" in the IDE. I am using Stable Release.
Post by: johnno56 on July 05, 2020, 08:31:37 pm
Post by: bplus on July 05, 2020, 11:14:34 pm
Code: QB64: [Select]
- '2020-07-05 fix hit (it wasn't brolen), delete line card$ = inkey$ before loop
- ' force dealer to hit on 16 stay 17
- ' ties are push
- ' bring in double down option
- ' fix dealer has Blackjack should tell also fix exposing 2nd card
- ' work this towards converting to multiple AI players, so players stats are all located in PlayerType
- _TITLE "Blackjack Best B+ mod" ' started 2019-06-06, revisit and match functions with B+J Balckjack with audio and graphics.
- TYPE PlayerType
- chips AS _INTEGER64
- setBet AS _INTEGER64
- bet AS _INTEGER64
- Players(Player).ID = "Player"
- Players(Dealer).ID = "Dealer"
- Players(Dealer).chips = -100
- Players(Player).chips = 100
- cp 8, "For this Blackjack Game, you start with 100 chips"
- cp 9, "and can bet any amount of them for each game."
- cp 10, "If you'd like to set your bet for each game now"
- cp 11, "enter that amount otherwise enter 0 "
- cp 12, "Dealer must hit on 16 or less."
- cp 13, "Blackjack pays 1.5 X the bet."
- cp 14, "Double down option available when you get 2 cards."
- cp 15, "It Doubles the bet and you get one more card."
- clearPlayers 'clears screen too
- deckIndex = 0
- PlayerAddCard Player
- _DELAY 2
- PlayerAddCard Dealer
- _DELAY 2
- cp 10, playerShow$(Player)
- _DELAY 2
- _DELAY 2
- ' BJ debug players having BJ
- 'Players(Dealer).Total = 21
- 'Players(Player).Total = 21
- cp 7, playerShow$(Dealer) + " Blackjack!"
- cp 10, playerShow$(Player) + " Blackjack!"
- cp 13, "Push"
- GOTO BJskip
- cp 10, playerShow$(Player) + " Blackjack!"
- Players(Player).chips = Players(Player).chips + 1.5 * Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips - 1.5 * Players(Player).bet
- GOTO BJskip
- cp 7, playerShow$(Dealer) + " Blackjack!"
- Players(Player).chips = Players(Player).chips - Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips + Players(Player).bet
- _DELAY 2
- GOTO BJskip
- cp 15, "Press h for Hit, d for Double Down, or any other to stay..."
- cp 15, "Press h for Hit, any other to stay..."
- card$ = ""
- PlayerAddCard Player
- cp 10, playerShow$(Player)
- _DELAY 2
- Players(Player).bet = 2 * Players(Player).bet
- PlayerAddCard Player
- cp 10, playerShow$(Player)
- _DELAY 2
- ELSE 'stayed
- cp 7, playerShow$(Dealer)
- _DELAY 1
- cp 8, "Dealer takes a card."
- _DELAY 2
- PlayerAddCard Dealer
- cp 7, playerShow$(Dealer)
- _DELAY 2
- finalReckoning:
- Players(Player).chips = Players(Player).chips - Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips + Players(Player).bet
- cp 13, "Push"
- Players(Player).chips = Players(Player).chips + Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips - Players(Player).bet
- BJskip:
- _DELAY 5
- cp 17, "Goodbye"
- SUB clearPlayers
- DIM i
- Players(i).Hand = ""
- Players(i).Ace = 0
- Players(i).Total = 0
- deckIndex = deckIndex + 1
- Players(receiver).Hand = Players(receiver).Hand + deck$(deckIndex)
- Players(receiver).Total = 0
- Players(receiver).Total = Players(receiver).Total + cv
- FUNCTION playerShow$ (shower) 'creates string with player name: hand Total = xx and "Busted!" if so.
- S$ = Players(shower).ID + ": "
- playerShow$ = S$
Post by: johnno56 on July 05, 2020, 11:43:16 pm
Post by: bplus on July 06, 2020, 12:20:16 am
Code: QB64: [Select]
- '2020-07-05 fix hit (it wasn't brolen), delete line card$ = inkey$ before loop
- ' force dealer to hit on 16 stay 17
- ' ties are push
- ' bring in double down option
- ' fix dealer has Blackjack should tell also fix exposing 2nd card
- ' work this towards converting to multiple AI players, so players stats are all located in PlayerType
- ' 2020-07-06 Installed AI and mods for it
- _TITLE "Blackjack Best with AI" ' started 2019-06-06, revisit and match functions with B+J Balckjack with audio and graphics.
- TYPE PlayerType
- chips AS _INTEGER64
- setBet AS _INTEGER64
- bet AS _INTEGER64
- Players(Player).ID = "Player"
- Players(Dealer).ID = "Dealer"
- Players(Dealer).chips = -100
- Players(Player).chips = 100
- cp 8, "For this Blackjack Game, you start with 100 chips"
- cp 9, "and can bet any amount of them for each game."
- cp 10, "If you'd like to set your bet for each game now"
- cp 11, "enter that amount otherwise enter 0, AI is setting at 2."
- cp 12, "Dealer must hit on 16 or less."
- cp 13, "Blackjack pays 1.5 X the bet."
- cp 14, "Double down option available when you get 2 cards."
- cp 15, "It Doubles the bet and you get one more card."
- cp 17, "press any to continue..."
- Players(Player).setBet = 2
- 'LOCATE 17, 38: INPUT ""; Players(Player).setBet
- clearPlayers 'clears screen too
- deckIndex = 0
- PlayerAddCard Player
- _DELAY 1
- PlayerAddCard Dealer
- _DELAY 1
- cp 10, playerShow$(Player)
- _DELAY 1
- _DELAY 1
- ' BJ debug players having BJ
- 'Players(Dealer).Total = 21
- 'Players(Player).Total = 21
- cp 7, playerShow$(Dealer) + " Blackjack!"
- cp 10, playerShow$(Player) + " Blackjack!"
- cp 13, "Push"
- GOTO BJskip
- cp 10, playerShow$(Player) + " Blackjack!"
- Players(Player).chips = Players(Player).chips + 1.5 * Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips - 1.5 * Players(Player).bet
- GOTO BJskip
- cp 7, playerShow$(Dealer) + " Blackjack!"
- Players(Player).chips = Players(Player).chips - Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips + Players(Player).bet
- _DELAY 1
- GOTO BJskip
- cp 15, "Press h for Hit, d for Double Down, or any other to stay..."
- cp 15, "Press h for Hit, any other to stay..."
- 'card$ = ""
- 'WHILE LEN(card$) = 0: card$ = INKEY$: _LIMIT 60: WEND ' bplus calling it in now!
- card$ = bplusAI$
- _DELAY 2
- PlayerAddCard Player
- 'cp 11, SPACE$(50)
- cp 10, playerShow$(Player)
- Players(Player).bet = 2 * Players(Player).bet
- PlayerAddCard Player
- 'cp 11, SPACE$(50)
- cp 10, playerShow$(Player)
- ELSE 'stayed
- ' cp 11, SPACE$(50)
- cp 7, playerShow$(Dealer)
- _DELAY 1
- cp 8, "Dealer takes a card."
- _DELAY 1
- PlayerAddCard Dealer
- cp 7, playerShow$(Dealer)
- _DELAY 1
- finalReckoning:
- Players(Player).chips = Players(Player).chips - Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips + Players(Player).bet
- cp 13, "Push"
- Players(Player).chips = Players(Player).chips + Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips - Players(Player).bet
- BJskip:
- _DELAY 2
- cp 17, "Goodbye"
- SUB clearPlayers
- DIM i
- round = round + 1
- Players(i).Hand = ""
- Players(i).Ace = 0
- Players(i).Total = 0
- FUNCTION bplusAI$
- deckIndex = deckIndex + 1
- Players(receiver).Hand = Players(receiver).Hand + deck$(deckIndex)
- Players(receiver).Total = 0
- Players(receiver).Total = Players(receiver).Total + cv
- FUNCTION playerShow$ (shower) 'creates string with player name: hand Total = xx and "Busted!" if so.
- S$ = Players(shower).ID + ": "
- playerShow$ = S$
Started at 100 chips and always 2 chip bets. Currently: dang! I lost the screen at 60 Rounds I was ahead!
Nuts 2nd Session and I am down a bits...
Post by: bplus on July 06, 2020, 01:13:56 am
Made a compact version for when watching YouTube.
Post by: bplus on July 06, 2020, 11:09:13 am
True I have only tested a long run once but the SCREEN 0 code holds it's own for a long time, watching it play I can't tell if if will loose in long run.
Running the code in a small graphics screen and it is easy to see the AI is loser and can't last the night.
And that's what happened.
I am getting superstitious! Today
BTW you start with 100 chips, plus or minus from that is how to judge progress in the session.
To all,
I am writing a program to test several AI's together against Dealer, if you'd like to be included I just need your AI$ sub routine:
my first as example:
Code: QB64: [Select]
- FUNCTION bplusAI$
Each player has a name or number in the Players() array to track their cards, total, setbet, current bet... so Players(player).Total is your current total for the hand you hold. Just use Players(Player).Total
You can check the Dealer's first card with something like DealerFirst$ = LEFT$(Players(Dealer).hand, 1) - not allowed to peak at 2nd card. If you are holding an Ace there is a flag for that and be careful how Total is calculated (it assumes the first ace is 11 unless total goes over 21).
So your AI$ function has to return an "h" to hit, an "d" to double down when you have 2 cards that option is open, anything else is equivalent to Stay.
yep opposite from last night!
Post by: bplus on July 06, 2020, 02:25:45 pm
Code: QB64: [Select]
- '2020-07-05 fix hit (it wasn't brolen), delete line card$ = inkey$ before loop
- ' force dealer to hit on 16 stay 17
- ' ties are push
- ' bring in double down option
- ' fix dealer has Blackjack should tell also fix exposing 2nd card
- ' work this towards converting to multiple AI players, so players stats are all located in PlayerType
- ' 2020-07-06 Installed AI and mods for it
- ' 2020-07-06 new Compact Tester with 2nd AI
- _TITLE "Blackjack AI Tester" ' started 2019-06-06, revisit and match functions with B+J Balckjack with audio and graphics.
- TYPE PlayerType
- chips AS _INTEGER64
- setBet AS _INTEGER64
- bet AS _INTEGER64
- Players(Player).ID = "Player"
- Players(Dealer).ID = "Dealer"
- Players(Dealer).chips = -100
- Players(Player).chips = 100
- 'bbbbb"1234567890123456789012345678901234567890
- cp 4, "*** BJ Compact AI Tester ***"
- cp 6, "You start with 100 chips."
- cp 7, "AI sets bet amount to 2."
- cp 8, "Dealer must hit on 16 or less."
- cp 9, "Blackjack pays 1.5 X the bet."
- cp 10, "Double down option available"
- cp 11, "when you get 2 cards."
- cp 12, "It Doubles the bet and you get one"
- cp 13, "more card."
- cp 17, "press any to continue..."
- Players(Player).setBet = 2
- 'LOCATE 17, 38: INPUT ""; Players(Player).setBet
- clearPlayers 'clears screen too
- deckIndex = 0
- PlayerAddCard Player
- _DELAY 1
- PlayerAddCard Dealer
- _DELAY 1
- cp 10, playerShow$(Player)
- _DELAY 1
- _DELAY 1
- ' BJ debug players having BJ
- 'Players(Dealer).Total = 21
- 'Players(Player).Total = 21
- cp 7, playerShow$(Dealer) + " Blackjack!"
- cp 10, playerShow$(Player) + " Blackjack!"
- cp 13, "Push"
- GOTO BJskip
- cp 10, playerShow$(Player) + " Blackjack!"
- Players(Player).chips = Players(Player).chips + 1.5 * Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips - 1.5 * Players(Player).bet
- GOTO BJskip
- cp 7, playerShow$(Dealer) + " Blackjack!"
- Players(Player).chips = Players(Player).chips - Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips + Players(Player).bet
- _DELAY 1
- GOTO BJskip
- cp 15, "Hit Double or Stay"
- cp 15, "Hit or Stay"
- 'card$ = ""
- 'WHILE LEN(card$) = 0: card$ = INKEY$: _LIMIT 60: WEND ' bplus calling it in now!
- card$ = bplusAI$
- _DELAY 2
- PlayerAddCard Player
- 'cp 11, SPACE$(50)
- cp 10, playerShow$(Player)
- Players(Player).bet = 2 * Players(Player).bet
- PlayerAddCard Player
- 'cp 11, SPACE$(50)
- cp 10, playerShow$(Player)
- ELSE 'stayed
- ' cp 11, SPACE$(50)
- cp 7, playerShow$(Dealer)
- _DELAY 1
- cp 8, "Dealer takes a card."
- _DELAY 1
- PlayerAddCard Dealer
- cp 7, playerShow$(Dealer)
- _DELAY 1
- finalReckoning:
- Players(Player).chips = Players(Player).chips - Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips + Players(Player).bet
- cp 13, "Push"
- Players(Player).chips = Players(Player).chips + Players(Player).bet
- Players(Dealer).chips = Players(Dealer).chips - Players(Player).bet
- BJskip:
- _DELAY 2
- cp 17, "Goodbye"
- SUB clearPlayers
- DIM i
- round = round + 1
- Players(i).Hand = ""
- Players(i).Ace = 0
- Players(i).Total = 0
- 'FUNCTION bplusAI$ ' first try
- ' SELECT CASE Players(Player).Total
- ' CASE IS < 10: bplusAI$ = "h" 'no caps!
- ' CASE 10, 11
- ' IF LEN(Players(Player).Hand) = 2 THEN bplusAI$ = "d" ELSE bplusAI$ = "h"
- ' CASE IS < 15
- ' IF RND < .5 THEN bplusAI$ = "h" ELSE bplusAI$ = "whatever"
- ' CASE ELSE: bplusAI$ = "Show me the money!"
- ' END SELECT
- 'END FUNCTION
- FUNCTION bplusAI$ 'after trying first want to try this make it more likely to hit on 12 than 13, 14...
- deckIndex = deckIndex + 1
- Players(receiver).Hand = Players(receiver).Hand + deck$(deckIndex)
- Players(receiver).Total = 0
- Players(receiver).Total = Players(receiver).Total + cv
- FUNCTION playerShow$ (shower) 'creates string with player name: hand Total = xx and "Busted!" if so.
- S$ = Players(shower).ID + ": "
- playerShow$ = S$
Update 250 Rounds one of 4 still winning:
Final Results, Rounds lasted: 327, 410, 649, 899.
Post by: johnno56 on July 06, 2020, 06:48:30 pm
With your coloured version, may I suggest a background of rgb(31,45,80) (a kind of slate-blue) with either white or light blue text? Pure blue, for me anyway, is quite bright on 'pre-coffee' eyes... lol
I would be happy to help but I'm not that familiar with coding AI. Crumbs, I have enough trouble with my 'I'... lol
Post by: bplus on July 06, 2020, 07:13:09 pm
Here is my first AI, all I need to know is when to hit = "h", when to double down (after first 2 cards) = "d" else the code assumes you want to stay = CASE ELSE neither "h" or "d"
Players(Player).Total = current card total in your hand
IF LEFT$(Players(Dealer).Cards, 1) = "A" THEN ' Dealer is showing an Ace
IF LEN(Players(Player).Hand) = 2 THEN ' player only has 2 cards so Double Down Option is available
Code: QB64: [Select]
- 'FUNCTION bplusAI$ ' first try
- ' SELECT CASE Players(Player).Total
- ' CASE IS < 10: bplusAI$ = "h" 'no caps! == If my Total < 10 the hit me!
- ' CASE 10, 11 '=================== If my Total is 10 or 11 then Double down if I have only 2 cards else hit me!
- ' IF LEN(Players(Player).Hand) = 2 THEN bplusAI$ = "d" ELSE bplusAI$ = "h"
- ' CASE IS < 15 ' ================== If my Total < 15 toss a coin to hit or stay
- ' IF RND < .5 THEN bplusAI$ = "h" ELSE bplusAI$ = "whatever"
- ' CASE ELSE: bplusAI$ = "Show me the money!" "If my Total > 14 just Stay! maybe the Dealer will Bust
- ' END SELECT
- 'END FUNCTION
Post by: johnno56 on July 06, 2020, 08:25:38 pm
But that's me... I hope that I have explained all that properly?
Post by: bplus on July 06, 2020, 08:33:30 pm
Also do you know Aces are little insurance agents? That is the first one is taken as 11 until or unless you go over 21 then it's 1 and you get a 2nd chance with another hit.
So Double Down when you have an Ace might be a waste of it and not wise if Dealer shows an Ace.
Post by: SMcNeill on July 06, 2020, 08:43:21 pm
Post by: johnno56 on July 06, 2020, 09:48:18 pm
Post by: bplus on July 07, 2020, 02:21:37 am
AI multi Tester:
Code: QB64: [Select]
- ' No suits shown for cards A is Ace, J, Q, K are Jack, Queen, King, X is for 10
- '2020-07-05 fix hit (it wasn't broken), delete line card$ = inkey$ before loop
- ' force dealer to hit on 16 stay 17
- ' ties are push
- ' bring in double down option
- ' fix dealer has Blackjack should tell also fix exposing 2nd card
- ' work this towards converting to multiple AI players, so players stats are all located in PlayerType
- ' 2020-07-06 Installed AI and mods for it
- ' 2020-07-06 new Compact Tester with 2nd AI
- ' 2020-07-06 start Blackjack Multi AI Tester off of Compact Tester
- ' add in allot of code worked out in Blackjack with Bots 2019-06-07
- ' Yes, major overhaul of last year bot code which was/is neat!
- ' Thanks Johnno and Steve for some interesting AI ideas to try!
- DEFINT A-Z
- _TITLE "Blackjack Multi AI Tester" ' started 2019-06-06, revisit and match functions with B+J Balckjack with audio and graphics.
- TYPE PlayerType
- DIM i, card$
- initGame
- 'FOR i = 1 TO nPlayers
- ' showPlayer i
- 'NEXT
- clearPlayers 'clears screen too and shuffles deck
- allOut = 0 'signal everyone is out of chips is false
- PlayerAddCard player
- showPlayer player
- _DELAY .5
- PlayerAddCard player
- showPlayer player
- _DELAY .5
- showPlayer player
- _DELAY 1
- _DELAY 2
- PlayerAddCard player
- showPlayer player
- _DELAY 1
- p(player).Bet = 2 * p(player).Bet
- PlayerAddCard player
- showPlayer player
- _DELAY 1
- ELSE 'stayed
- showPlayer player
- _DELAY 1
- blockDealer = 0
- showPlayer nPlayers
- _DELAY 1
- cp nPlayers, 11, "Dealer takes a card."
- _DELAY 1
- PlayerAddCard nPlayers
- showPlayer nPlayers
- _DELAY 1
- ' final Reckoning
- showPlayer player
- p(player).Chips = p(player).Chips - p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips + p(player).Bet
- cp player, 13, "Push"
- p(player).Chips = p(player).Chips + p(player).Bet + .5 * p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet - .5 * p(player).Bet
- p(player).Chips = p(player).Chips + p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet
- _DELAY 3
- SUB clearPlayers
- DIM i
- round = round + 1: allOut = -1
- p(i).Hand = ""
- p(i).Ace = 0
- p(i).Total = 0
- p(i).BJ = 0
- p(i).Bust = 0
- 'because of double down option I have to reset bet during play and set it back at each new round
- 'make sure we aren't betting more than our chips count at least to start
- 'deck$(5) = "A": deck$(10) = "J" 'check immediate show of Blackjack for dealer
- deckIndex = 0: blockDealer = -1
- FUNCTION bplusAI2$ (pN) 'after trying first want to try this make it more likely to hit on 12 than 13, 14...
- Johnno$ = "d"
- Johnno$ = "h"
- Johnno$ = "h"
- Johnno$ = "Stay"
- deckIndex = deckIndex + 1
- p(rec).Hand = p(rec).Hand + deck$(deckIndex)
- p(rec).Total = 0
- p(rec).Total = p(rec).Total + cv
- 'PRINT p(nPlayer).Row + i, p(nPlayer).Col
- cp nPlayer, 3, p(nPlayer).ID
- cp nPlayer, 8, "___Hand___"
- cp nPlayer, 9, S$
- cp nPlayer, 10, "Total: ??"
- cp nPlayer, 9, S$
- SUB initGame 'the stuff that never changes
- DIM i, spacer
- 'for printing in each players window area of screen = blackjack table
- 'xmax/8 = 2*margin + bW *(nplayers -1) + spacer *(nplayer-2)
- spacer = ((xmax / 8) - margin - bW * (nPlayers - 1)) / (nPlayers - 2)
- p(i).Col = margin + (i - 1) * (spacer + bW)
- p(i).Row = 18
- p(i).Chips = 100
- p(i).SetBet = 2
- p(i).ID = "Dealer"
- p(i).Col = (xmax / 8 - bW) / 2
- p(i).Row = 2
- p(i).Chips = -100 * (nPlayers - 1)
- 'ask the user / YOU what e prefers for betting
- cp 0, 10, "*** Blackjack Multi AI Tester ***"
- cp 0, 12, "Each AI bot starts with 100 chips and bets 2 each round."
- cp 0, 13, "Dealer must hit on 16 or less."
- cp 0, 14, "Blackjack pays 1.5 X the bet."
- cp 0, 15, "Double down option available when you get 2 cards."
- cp 0, 16, "It Doubles the bet and you get one more card."
- cp 0, 20, "press any to continue..."
- COLOR fc, bc
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: johnno56 on July 07, 2020, 08:46:21 am
Post by: George McGinn on July 07, 2020, 11:15:45 am
I can bring it over to QB64 and get it to work if you are interested in it. I can even create options where you can create a shuffled array with 4 to 8 decks if you can use it.
Post by: bplus on July 07, 2020, 11:20:19 am
Over on my iPad, I have a deck shuffling program which is very simple. I create a random array with numbers from 1 to 52, and these numbers serve as an index to another table that holds the card number and suit. I use graphics (UNICODE or the iPad's expanded ASCII Code) and the suit is the same size as the number.
I can bring it over to QB64 and get it to work if you are interested in it. I can even create options where you can create a shuffled array with 4 to 8 decks if you can use it.
Can shuffle be simpler than this from my last code post, from all my code that needs shuffle)?
Code: QB64: [Select]
Welcome aboard George!
Post by: Cobalt on July 07, 2020, 12:16:13 pm
Post by: bplus on July 07, 2020, 12:44:42 pm
So is this like an official group project or what? how many different people have added actual material for this? 4-5? or am I just skim reading the wrong parts?
Hi @Cobalt
Currently I am running code in which you can test your own AI. Started around reply #195. I think we have finished for awhile the beautiful graphics and audio game. (Check Best Answer for the latest on that.)
The AI should be fairly easy to write, just make a Function that returns "h" for hit or "d" for double down anything else is signal to stay.
The players() array name has been changed to p() array and the Dealers player number = nPlayers check code in next reply.
Love to get your input, if you have an idea you can just describe it and I can write it up or take a shot at your own Function.
Post by: bplus on July 07, 2020, 12:49:29 pm
Code: QB64: [Select]
- ' No suits shown for cards A is Ace, J, Q, K are Jack, Queen, King, X is for 10
- '2020-07-05 fix hit (it wasn't broken), delete line card$ = inkey$ before loop
- ' force dealer to hit on 16 stay 17
- ' ties are push
- ' bring in double down option
- ' fix dealer has Blackjack should tell also fix exposing 2nd card
- ' work this towards converting to multiple AI players, so players stats are all located in PlayerType
- ' 2020-07-06 Installed AI and mods for it
- ' 2020-07-06 new Compact Tester with 2nd AI
- ' 2020-07-06 start Blackjack Multi AI Tester off of Compact Tester
- ' add in allot of code worked out in Blackjack with Bots 2019-06-07
- ' Yes, major overhaul of last year bot code which was/is neat!
- ' Thanks Johnno and Steve for some interesting AI ideas to try!
- ' 2020-07-07 for Blackjack Multi AI Tester #2, I hope to do something kind of interesting with displaying players
- ' Yes Mouse over a player you want to check on but try and stay out of way of updating.
- DEFINT A-Z
- _TITLE "Blackjack Multi AI Tester #2 Mouse over a player you want to check " ' started 2019-06-06, revisit and match functions with B+J Balckjack with audio and graphics.
- TYPE PlayerType
- DIM i, card$
- tN = _FREETIMER
- initGame
- 'FOR i = 1 TO nPlayers
- ' showPlayer i
- 'NEXT
- clearPlayers 'clears screen too and shuffles deck
- allOut = 0 'signal everyone is out of chips is false
- PlayerAddCard player
- showPlayer player
- _DELAY .5
- PlayerAddCard player
- showPlayer player
- _DELAY .5
- showPlayer player
- _DELAY 1
- _DELAY 2
- PlayerAddCard player
- showPlayer player
- _DELAY 1
- p(player).Bet = 2 * p(player).Bet
- PlayerAddCard player
- showPlayer player
- _DELAY 1
- ELSE 'stayed
- showPlayer player
- _DELAY 1
- blockDealer = 0
- showPlayer nPlayers
- _DELAY 1
- cp nPlayers, 11, "Dealer takes a card."
- _DELAY 1
- PlayerAddCard nPlayers
- showPlayer nPlayers
- _DELAY 1
- ' final Reckoning
- showPlayer player
- p(player).Chips = p(player).Chips - p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips + p(player).Bet
- cp player, 13, "Push"
- p(player).Chips = p(player).Chips + p(player).Bet + .5 * p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet - .5 * p(player).Bet
- p(player).Chips = p(player).Chips + p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet
- _DELAY 3
- SUB checkMouseOver
- SUB clearPlayers
- DIM i
- round = round + 1: allOut = -1
- p(i).Hand = ""
- p(i).Ace = 0
- p(i).Total = 0
- p(i).BJ = 0
- p(i).Bust = 0
- 'because of double down option I have to reset bet during play and set it back at each new round
- 'make sure we aren't betting more than our chips count at least to start
- 'deck$(5) = "A": deck$(10) = "J" 'check immediate show of Blackjack for dealer
- deckIndex = 0: blockDealer = -1
- FUNCTION bplusAI2$ (pN) 'after trying first want to try this make it more likely to hit on 12 than 13, 14...
- Johnno$ = "d"
- Johnno$ = "h"
- Johnno$ = "h"
- Johnno$ = "Stay"
- deckIndex = deckIndex + 1
- p(rec).Hand = p(rec).Hand + deck$(deckIndex)
- p(rec).Total = 0
- p(rec).Total = p(rec).Total + cv
- 'PRINT p(nPlayer).Row + i, p(nPlayer).Col
- cp nPlayer, 3, p(nPlayer).ID
- cp nPlayer, 8, "___Hand___"
- cp nPlayer, 9, S$
- cp nPlayer, 10, "Total: ??"
- cp nPlayer, 9, S$
- SUB initGame 'the stuff that never changes
- DIM i, spacer
- 'for printing in each players window area of screen = blackjack table
- 'xmax/8 = 2*margin + bW *(nplayers -1) + spacer *(nplayer-2)
- spacer = ((xmax / 8) - margin - bW * (nPlayers - 1)) / (nPlayers - 2)
- p(i).Col = margin + (i - 1) * (spacer + bW)
- p(i).Row = 18
- p(i).Chips = 100
- p(i).SetBet = 2
- p(i).ID = "Dealer"
- p(i).Col = (xmax / 8 - bW) / 2
- p(i).Row = 2
- p(i).Chips = -100 * (nPlayers - 1)
- 'ask the user / YOU what e prefers for betting
- cp 0, 10, "*** Blackjack Multi AI Tester ***"
- cp 0, 12, "Each AI bot starts with 100 chips and bets 2 each round."
- cp 0, 13, "Dealer must hit on 16 or less."
- cp 0, 14, "Blackjack pays 1.5 X the bet."
- cp 0, 15, "Double down option available when you get 2 cards."
- cp 0, 16, "It Doubles the bet and you get one more card."
- cp 0, 20, "press any to continue..."
- COLOR fc, bc
Can't mouse over while getting a screen shot but here is a game with 8 AI bots + Dealer bot
Post by: johnno56 on July 07, 2020, 06:57:35 pm
Suggestion: Increase the screen size. Place the Dealer top centre. Three players from top to bottom on both the left and right sides. The remaining two in the 'gap' along the bottom. Another layout: Dealer in the center of screen. Two players left and right and above and below the Dealer.
My other guess would be that this version is a 'concept' of controlling multiple AI and 'layout' is not relevant.... lol
I'm curious. In 'real' Blackjack, how many players can actually play, and how does the dealer determine how many 'decks' to use?
Post by: bplus on July 07, 2020, 07:52:02 pm
My other guess would be that this version is a 'concept' of controlling multiple AI and 'layout' is not relevant.... lol
Yeah pretty much that, an experiment. I did like how well the mouse over thing did work off a timer but...
Yeah! you know it's nice to see all the hands clearly. I could probably fit 8 comfortably or go bigger screen as you say. I've also noticed that it is nice for cards to layout from left to right without a centering function shifting them left and right.
What do you think about the dealer down at the bottom right corner, then we just work left to right, top to bottom?
You know, think about it, the dealer has to keep hitting until has at least 17. 17 to 21 is a window of... oh it's 5 cards. I've been thinking 4 because 21-17 but it is 5 cards. And yet it just drains chips from players, there must be some better strategy. The tip about looking at dealers up card was interesting intelligence and I am beginning to think double down is only good on 11 and only if dealer has lower card.
I will play around with layout and AI options.
BTW in real Blackjack the casinos set their own standards and I am pretty sure no one uses only one deck which means its possible to get a huge number of aces.
Post by: johnno56 on July 07, 2020, 08:45:59 pm
But, then again, who says that the game has to be 'traditional'? lol
I remember, during lunch breaks at work, we used to play Pontoon (or 21), and betting was a little different. There was the initial bet then if the player had 11 or less in two cards, the player could 'buy' an extra card and choose to 'hit' if more than 11. If you are after 'bleeding a player dry' then that might be the way to go... lol Just recalled that... I know. I'm shocked as well..!! Remembering something from 4 decades ago... Shocked!
The mouse is a great idea... But, with the right kind of surgery, a neural interface could be developed for that 'hands free' feeling... But... mouse will do in a pinch... lol
Logic dictates that, if artificial intelligence can be programmed into a game, then so can artificial stupidity... It's funny but not meant as a joke. "Humor. It is a difficult concept." Star Trek: Wrath of Khan (1982) People make 'stupid' decisions and make foolish mistakes. Then why not configure the AI to replicate the same behaviour? (throwing in a typical "Doh!" after the event) Just a thought...
Post by: Qwerkey on July 08, 2020, 07:39:18 am
Post by: bplus on July 08, 2020, 12:06:15 pm
The number of replies is most probably just chit-chat between me and Johnno, but I appreciate encouragement and help offered by Dav, Pete, Steve, George and Pete & Steve's jokes to break monotony and all positive comments QBExile, Old Moses, Ken, Ashish, Spriggsy, jack, Cobalt all showing some sort of interest even Fellippe when I mention a possible glitch between QB64 versions. 😊
I actually considered the cough and gunshots sounds for background, I already had the sounds, funny!
Special thanks to Johnno, like with Battleship, he can sure dress up my code and keep the ideas flowing for me. Really liked the splash screen specially with our Logo in the neon sign and the Dealer voice. Good eye too, I still don't know if there is difference in card set images? ha! I just used what he provided on faith.
Post by: bplus on July 08, 2020, 01:12:27 pm
I will go over code and write in some more comments for myself and others for future reference. Should be ready tonight, I've got chores in afternoon.
I have already made the main loop play more efficient with the Mult-players code by setting flags for Blackjacks and Busts handling them in Final Reckoning section instead of separately right after first 2 cards.
Post by: bplus on July 08, 2020, 07:15:28 pm
Code: QB64: [Select]
- ' on distribution 17 to 21 in and 22 plus out
- TYPE PlayerType
- chips AS _INTEGER64
- setBet AS _INTEGER64
- bet AS _INTEGER64
- deckIndex = 0: dealer.Total = 0: rounds = rounds + 1: dealer.Hand = "": noBusts = 0: dealer.Ace = 0
- PRINT "Round:"; rounds
- PlayerAddCard
- _LIMIT 100
- _LIMIT 10
- SUB PlayerAddCard 'updates player's hand and total
- deckIndex = deckIndex + 2
- dealer.Hand = dealer.Hand + deck$(deckIndex)
- dealer.Total = 0
- dealer.Total = dealer.Total + cv
Post by: George McGinn on July 08, 2020, 07:35:08 pm
The one I have a little bit longer, but it’s written for the techBASIC on iPad which does not have a SWAP statement.
However, I have noticed playing your blackjack game that it doesn’t quite follow basic play. I’ve noticed where the dealer has a 10 value showing, Everybody’s up to 16 should be hitting, yeah I’ve seen players stand on 13. I never a few other little things but I do understand what you’re trying to do with the AI. And it’s working pretty well so far.
I would however, chance a bust with a dealer showing a 10 value card as an up card, as I do in real life at casinos and do pretty well playing the basic strategy with some of my personal modifications.
Otherwise, you have done a great job on the coding.
Can shuffle be simpler than this from my last code post, from all my code that needs shuffle)?Code: QB64: [Select]
Welcome aboard George!
Post by: George McGinn on July 08, 2020, 07:50:13 pm
Here is the code that I have on techBASIC on my iPad. I basically do a manual swap.
The print statements are there so that when I tested it I could see what it was doing and making sure that it was not duplicating any numbers.
Near the technique is just about the same, but what I do is I first preload an array And then swap the numbers around.
The following code is NOT QB64, but it is simple enough that it it will probably run in QB64:
Code: Text: [Select]
- ! Shuffle a deck of cards, represented by an array contiaining the
- ! ordinal number of each card.
- DIM cards(52) AS INTEGER
- FOR i = 1 TO 52
- cards(i) = i
- NEXT
- j=0
- FOR i = 1 to 52
- PRINT "i: ";i
- j = INT(1 + Math.rand*52) ! This generates the random number to swap from
- PRINT "j: ";j
- temp = cards(i) ! Saves the card number currently at i
- PRINT "temp=cards(i): ";temp
- cards(i) = cards(j) ! This swaps position j into i
- PRINT "cards(i)=cards(j): ";cards(i)
- cards(j) = temp ! This moves the value that was in i into j
- PRINT "cards(j)=temp: ";cards(j)
- PRINT
- NEXT
- ! Print out the new deck just shuffled
- FOR i = 1 TO 52
- PRINT cards(i)
- NEXT
Post by: bplus on July 08, 2020, 08:06:13 pm
I see you come from Steve McNeill's camp of swapping each card with any of the other 52 cards.
There is a math proof that this is not ideal and leaves slightly less than perfect random distribution (given perfect random generator but who has that?)
"https://en.wikipedia.org/wiki/Fisher–Yates_shuffle" <<copy/paste between quotes this in browser because underline link usually fails.
Look under Naive Shuffle:
EDIT: 2 l's in Steve's last name, I noticed I missed one in George's quote. Sorry Steve.
Post by: bplus on July 08, 2020, 08:15:22 pm
Thank you.
The one I have a little bit longer, but it’s written for the techBASIC on iPad which does not have a SWAP statement.
However, I have noticed playing your blackjack game that it doesn’t quite follow basic play. I’ve noticed where the dealer has a 10 value showing, Everybody’s up to 16 should be hitting, yeah I’ve seen players stand on 13. I never a few other little things but I do understand what you’re trying to do with the AI. And it’s working pretty well so far.
I would however, chance a bust with a dealer showing a 10 value card as an up card, as I do in real life at casinos and do pretty well playing the basic strategy with some of my personal modifications.
Otherwise, you have done a great job on the coding.
Yeah I am testing different Stay Strategies now and 16 looks very good! A slight mod of my previous post:
Code: QB64: [Select]
- ' on distribution 17 to 21 in and 22 plus out
- TYPE PlayerType
- chips AS _INTEGER64
- setBet AS _INTEGER64
- bet AS _INTEGER64
- deckIndex = 0: dealer.Total = 0: rounds = rounds + 1: dealer.Hand = "": noBusts = 0: dealer.Ace = 0
- PRINT "Round:"; rounds
- WHILE dealer.Total < stay
- PlayerAddCard
- _LIMIT 100
- _LIMIT 10
- SUB PlayerAddCard 'updates player's hand and total
- dealer.Hand = dealer.Hand + deck$(deckIndex)
- dealer.Total = 0
- dealer.Total = dealer.Total + cv
I am running stay at 18 now:
[ This attachment cannot be displayed inline in 'Print Page' view ]
You are right! 16 looked very good compared to 17, a NO Bust rate a little over 80% compared to 72% for Stay at 17 and the percent of Totals 20 or 21 is just slightly lower for Stay at 16 (31%) than it is for stay at 17(32%) based on about 3000 trials which is a pittance I suppose.
As you can see, Stay at 18 has significantly worse Bust Rate!
Post by: bplus on July 08, 2020, 08:27:00 pm
Here is a snap of a current run:
[ This attachment cannot be displayed inline in 'Print Page' view ]
Hi @johnno56 I have gone a full loop at testing layouts and decided one row of players with Dealer at top, pretty much as you said ;-))
To all, Still have openings for AI Functions to test, here is current Tester:
Code: QB64: [Select]
- ' No suits shown for cards A is Ace, J, Q, K are Jack, Queen, King, X is for 10
- '2020-07-05 fix hit (it wasn't broken), delete line chose$ = inkey$ before loop
- ' force dealer to hit on 16 stay 17
- ' ties are push
- ' bring in double down option
- ' fix dealer has Blackjack should tell also fix exposing 2nd card
- ' work this towards converting to multiple AI players, so players stats are all located in PlayerType
- ' 2020-07-06 Installed AI and mods for it
- ' 2020-07-06 new Compact Tester with 2nd AI
- ' 2020-07-06 start Blackjack Multi AI Tester off of Compact Tester
- ' add in allot of code worked out in Blackjack with Bots 2019-06-07
- ' Yes, major overhaul of last year bot code which was/is neat!
- ' Thanks Johnno and Steve for some interesting AI ideas to try!
- ' 2020-07-07 for Blackjack Multi AI Tester #2, I hope to do something kind of interesting with displaying players
- ' Yes Mouse over a player you want to check on but try and stay out of way of updating.
- ' 2020-07-08 No overlapping players, sucks, get rid of timer stuff, removed.
- ' Screen Size depends on how many players go against Dealer from 1 to 6 maximum.
- ' 1 row of players with screen width < 1024, Dealer at top.
- ' Added more items to Player type to display status solely from it's array contents.
- ' Also forbid player to double down if es chips can't cover loss.
- ' Display round number in Title Bar
- '=================================================================================================================
- ' Blackjack Multi-Tester Notes: (removed from screening at start)
- ' *** Blackjack Multi AI Tester #3 ***
- '
- ' Each AI bot starts with 100 chips and bets 2 each round.
- ' Dealer must hit on 16 or less.
- ' Blackjack pays 1.5 X the bet.
- ' Double down option available when you get 2 cards.
- ' It Doubles the bet and you get one more card.
- '
- '====================================================================================================================
- DEFINT A-Z
- TYPE PlayerType
- DIM i, chose$
- initGame
- 'FOR i = 1 TO nPlayers
- ' showPlayer i
- 'NEXT
- 'SLEEP
- 'END
- DO 'start a round
- startRound 'clears screen too and shuffles deck
- allOut = 0 'signal everyone is out of chips is false
- PlayerAddCard player
- PlayerAddCard player
- showPlayer player
- showPlayer player
- _DELAY 2
- PlayerAddCard player
- p(player).Bet = 2 * p(player).Bet
- PlayerAddCard player
- ELSE 'stayed
- blockDealer = 0
- showPlayer nPlayers
- p(nPlayers).Tell = "Dealer takes a card."
- showPlayer nPlayers
- PlayerAddCard nPlayers
- p(nPlayers).Tell = "Reckoning"
- showPlayer nPlayers
- ' final Reckoning
- showPlayer player
- p(player).Tell = "Push"
- p(player).Chips = p(player).Chips - p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips + p(player).Bet
- p(player).Tell = "Push"
- p(player).Chips = p(player).Chips + p(player).Bet + .5 * p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet - .5 * p(player).Bet
- p(player).Chips = p(player).Chips + p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet
- showPlayer player
- p(player).Tell = "Out of chips!":
- showPlayer player
- SUB startRound
- DIM i
- round = round + 1: allOut = -1
- p(i).Hand = ""
- p(i).Ace = 0
- p(i).Total = 0
- p(i).BJ = 0
- p(i).Bust = 0
- p(i).Tell = ""
- 'because of double down option I have to reset bet during play and set it back at each new round
- 'make sure we aren't betting more than our chips count at least to start
- 'deck$(5) = "A": deck$(10) = "J" 'check immediate show of Blackjack for dealer
- deckIndex = 0: blockDealer = -1
- FUNCTION bplusAI2$ (pN) 'after trying first want to try this make it more likely to hit on 12 than 13, 14...
- Johnno$ = "d"
- Johnno$ = "h"
- Johnno$ = "h"
- Johnno$ = "Stay"
- deckIndex = deckIndex + 1
- p(rec).Hand = p(rec).Hand + deck$(deckIndex)
- p(rec).Total = 0
- p(rec).Total = p(rec).Total + cv
- showPlayer rec 'when ever add card show update
- cp nPlayer, 1, p(nPlayer).ID
- cp nPlayer, 6, S$
- cp nPlayer, 7, "Total: ??"
- cp nPlayer, 6, S$
- cp nPlayer, 10, p(nPlayer).Tell ' last action of player or dealer or final win lost push
- SUB initGame 'the stuff that never changes
- DIM i
- ' 1+13*2 rows = 27*16 = 432 ymax
- xmax = ((nPlayers - 1) * 21 + 1) * 8
- _DELAY .25
- 'dealer on top row then max 2 rows of 5 players
- p(i).Col = 2 + (i - 1) * 21
- p(i).Row = 15
- p(i).Chips = 100
- p(i).SetBet = 2
- p(i).ID = "Dealer"
- p(i).Col = (xmax \ 8 - 20) \ 2 + 1
- p(i).Row = 2
- p(i).Chips = -100 * (nPlayers - 1)
- p(i).BC = &HFF000000
- p(i).FC = &HFFFFFFFF
- COLOR fc, bc
Post by: George McGinn on July 08, 2020, 09:28:07 pm
In file included from qbx.cpp:2226:
./../temp/main.txt:100:33: error: arithmetic on a pointer to void
qbs_set(*((qbs**)((__UDT_DEALER)+(8))),qbs_new_txt_len("",0));
~~~~~~~~~~~~~~^
./../temp/main.txt:135:46: error: arithmetic on a pointer to void
qbs_set(tqbs,qbs_right(*((qbs**)(__UDT_DEALER+(8))), 1 ));
~~~~~~~~~~~~^
./../temp/main.txt:304:33: error: arithmetic on a pointer to void
qbs_set(*((qbs**)((__UDT_DEALER)+(8))),qbs_add(*((qbs**)(__UDT_DEALER+(8))),((qbs*)(((uint64*)(__ARRAY_STRING_DECK[0]))[array_check((*__INTEGER_DECKINDEX)-__ARRAY_STRING_DECK[4],__ARRAY_STRING_DECK[5])]))));
~~~~~~~~~~~~~~^
./../temp/main.txt:304:70: error: arithmetic on a pointer to void
qbs_set(*((qbs**)((__UDT_DEALER)+(8))),qbs_add(*((qbs**)(__UDT_DEALER+(8))),((qbs*)(((uint64*)(__ARRAY_STRING_DECK[0]))[array_check((*__INTEGER_DECKINDEX)-__ARRAY_STRING_DECK[4],__ARRAY_STRING_DECK[5])]))));
~~~~~~~~~~~~^
./../temp/main.txt:337:116: error: arithmetic on a pointer to void
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("A23456789XJQK",13),func_mid(*((qbs**)(__UDT_DEALER+(8))),*_SUB_PLAYERADDCARD_INTEGER_I, 1 ,1),0)> 10 )))||new_error){
~~~~~~~~~~~~^
./../temp/main.txt:344:115: error: arithmetic on a pointer to void
*_SUB_PLAYERADDCARD_INTEGER_CV=func_instr(NULL,qbs_new_txt_len("A23456789XJQK",13),func_mid(*((qbs**)(__UDT_DEALER+(8))),*_SUB_PLAYERADDCARD_INTEGER_I, 1 ,1),0);
~~~~~~~~~~~~^
6 errors generated.
Post by: George McGinn on July 08, 2020, 09:32:57 pm
Give me about a month. I'm waiting to hear if I have been approved to buy a house, and may have to move quickly, by July 31. This means I'll be spending my time packing most of July.
Post by: George McGinn on July 08, 2020, 09:46:08 pm
Who Knew? I sure didn't. I just thought it was the most expedient way to do a random sort without having a SWAP statement.
I tested it with 8 decks (without all the print statements) and it still finished in hundreds or milliseconds.
I guess you should add my name to the WIKI, as I just co-invented it!!!
George
Hi @George McGinn
I see you come from Steve McNeil's camp of swapping each card with any of the other 52 cards.
There is a math proof that this is not ideal and leaves slightly less than perfect random distribution (given perfect random generator but who has that?)
"https://en.wikipedia.org/wiki/Fisher–Yates_shuffle" <<copy/paste between quotes this in browser because underline link usually fails.
Look under Naive Shuffle:
Post by: bplus on July 08, 2020, 10:25:18 pm
Quote
When I run the BJ Dealer Test program on macOS, I get the following errors (I'm running v1.4 of QB64:
@George McGinn
Copy Paste test of code from forum to double check in my Windows 10 laptop, works fine!
Looks like macOS doesn't like QB64 so much?
Post by: FellippeHeitor on July 08, 2020, 11:33:33 pm
Post by: bplus on July 09, 2020, 12:00:22 am
As promised the Blackjack Game, BJ v2020-07-08 updated with more or better comments:
(Nothing has been changed in the code, for those who have already downloaded the July 4th version.)
I have updated this game with a more enjoyable playing game, not exactly casino rules...
see Best answer for download.
Post by: bplus on July 09, 2020, 12:25:58 am
I named the Stay 16 limit after George because he spoke of it sorta, and I named Stay 18 after Steve2 because he might have been meaning to Stay one more card over what the Dealer has to stay at, preliminary tests suggest they are all better than Stay 12 (so you can never be busted). B3 is Stay 16 plus Double Down only at 11.
Code: QB64: [Select]
- ' No suits shown for cards A is Ace, J, Q, K are Jack, Queen, King, X is for 10
- '2020-07-05 fix hit (it wasn't broken), delete line chose$ = inkey$ before loop
- ' force dealer to hit on 16 stay 17
- ' ties are push
- ' bring in double down option
- ' fix dealer has Blackjack should tell also fix exposing 2nd card
- ' work this towards converting to multiple AI players, so players stats are all located in PlayerType
- ' 2020-07-06 Installed AI and mods for it
- ' 2020-07-06 new Compact Tester with 2nd AI
- ' 2020-07-06 start Blackjack Multi AI Tester off of Compact Tester
- ' add in allot of code worked out in Blackjack with Bots 2019-06-07
- ' Yes, major overhaul of last year bot code which was/is neat!
- ' Thanks Johnno and Steve for some interesting AI ideas to try!
- ' 2020-07-07 for Blackjack Multi AI Tester #2, I hope to do something kind of interesting with displaying players
- ' Yes Mouse over a player you want to check on but try and stay out of way of updating.
- ' 2020-07-08 No overlapping players, sucks, get rid of timer stuff, removed.
- ' Screen Size depends on how many players go against Dealer from 1 to 6 maximum.
- ' 1 row of players with screen width < 1024, Dealer at top.
- ' Added more items to Player type to display status solely from it's array contents.
- ' Also forbid player to double down if es chips can't cover loss.
- ' Display round number in Title Bar
- ' 2020-07-08 added some basic stay strategies
- '=================================================================================================================
- ' Blackjack Multi-Tester Notes: (removed from screening at start)
- ' *** Blackjack Multi AI Tester #3 ***
- '
- ' Each AI bot starts with 100 chips and bets 2 each round.
- ' Dealer must hit on 16 or less.
- ' Blackjack pays 1.5 X the bet.
- ' Double down option available when you get 2 cards.
- ' It Doubles the bet and you get one more card.
- '
- '====================================================================================================================
- DEFINT A-Z
- TYPE PlayerType
- DIM i, chose$
- initGame
- 'FOR i = 1 TO nPlayers
- ' showPlayer i
- 'NEXT
- 'SLEEP
- 'END
- DO 'start a round
- startRound 'clears screen too and shuffles deck
- allOut = 0 'signal everyone is out of chips is false
- PlayerAddCard player
- PlayerAddCard player
- showPlayer player
- showPlayer player
- _DELAY 2
- PlayerAddCard player
- p(player).Bet = 2 * p(player).Bet
- PlayerAddCard player
- ELSE 'stayed
- blockDealer = 0
- showPlayer nPlayers
- p(nPlayers).Tell = "Dealer takes a card."
- showPlayer nPlayers
- PlayerAddCard nPlayers
- p(nPlayers).Tell = "Reckoning"
- showPlayer nPlayers
- ' final Reckoning
- showPlayer player
- p(player).Tell = "Push"
- p(player).Chips = p(player).Chips - p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips + p(player).Bet
- p(player).Tell = "Push"
- p(player).Chips = p(player).Chips + p(player).Bet + .5 * p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet - .5 * p(player).Bet
- p(player).Chips = p(player).Chips + p(player).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(player).Bet
- showPlayer player
- p(player).Tell = "Out of chips!":
- showPlayer player
- SUB startRound
- DIM i
- round = round + 1: allOut = -1
- p(i).Hand = ""
- p(i).Ace = 0
- p(i).Total = 0
- p(i).BJ = 0
- p(i).Bust = 0
- p(i).Tell = ""
- 'because of double down option I have to reset bet during play and set it back at each new round
- 'make sure we aren't betting more than our chips count at least to start
- 'deck$(5) = "A": deck$(10) = "J" 'check immediate show of Blackjack for dealer
- deckIndex = 0: blockDealer = -1
- deckIndex = deckIndex + 1
- p(rec).Hand = p(rec).Hand + deck$(deckIndex)
- p(rec).Total = 0
- p(rec).Total = p(rec).Total + cv
- showPlayer rec 'when ever add card show update
- cp nPlayer, 1, p(nPlayer).ID
- cp nPlayer, 6, S$
- cp nPlayer, 7, "Total: ??"
- cp nPlayer, 6, S$
- cp nPlayer, 10, p(nPlayer).Tell ' last action of player or dealer or final win lost push
- SUB initGame 'the stuff that never changes
- DIM i
- ' 1+13*2 rows = 27*16 = 432 ymax
- xmax = ((nPlayers - 1) * 21 + 1) * 8
- _DELAY .25
- 'dealer on top row then max 2 rows of 5 players
- p(i).Col = 2 + (i - 1) * 21
- p(i).Row = 15
- p(i).Chips = 100
- p(i).SetBet = 2
- p(i).ID = "Dealer"
- p(i).Col = (xmax \ 8 - 20) \ 2 + 1
- p(i).Row = 2
- p(i).Chips = -100 * (nPlayers - 1)
- p(i).BC = &HFF000000
- p(i).FC = &HFFFFFFFF
- COLOR fc, bc
- ' ======================================= AI storage Area #51
- FUNCTION bplusAI2$ (pN) 'after trying first want to try this make it more likely to hit on 12 than 13, 14...
- CASE 11
- Johnno$ = "d"
- Johnno$ = "h"
- Johnno$ = "h"
- Johnno$ = "Stay"
- FUNCTION stay16$ (pN) ' calling this George because he seems to agree, might want to do more about what Dealer is showing
Post by: bplus on July 09, 2020, 01:12:22 am
The bug with variable width strings in UDTs on macOS is already under investigation: https://github.com/QB64Team/qb64/issues/64
Hey it's not one of those CHR$(0) at the end of the string things is it?
Post by: codeguy on July 09, 2020, 03:16:08 am
Code: QB64: [Select]
Post by: FellippeHeitor on July 09, 2020, 08:12:42 am
Hey it's not one of those CHR$(0) at the end of the string things is it?No, it isn't.
Post by: bplus on July 09, 2020, 11:16:53 am
Quote
I would choose Knuth Shuffle for shuffling cards or for any randomization of order.
Yep! AKA Fisher-Yates shuffle, don't leave home without it 👍
Post by: George McGinn on July 09, 2020, 11:41:05 am
Since I have been coded in windows since the mid-1990s, plus one project I did in 2000–2001, I very rarely use windows because it always bothered to down my computer where macOS and Linux does not.
In macOS and Linux I very rarely get errors, unless there’s code for a specific operation system.
@George McGinn
Copy Paste test of code from forum to double check in my Windows 10 laptop, works fine!
Looks like macOS doesn't like QB64 so much?
Post by: George McGinn on July 09, 2020, 11:52:08 am
Later on today I’m gonna fire up my Linux machine and give it a try on that (I have Linux Mint LMDE4 version installed, with version 1.4 of QB64)
Also there is another area that may not be related to this and I like someone else to check it Because I’m now cross side trying to count all the open and closing brackets, but this error that happened I believe is a separate bug in QB64 in that there is not enough closing brackets in the statement generated below:
./../temp/main.txt:304:70: error: arithmetic on a pointer to void
qbs_set(*((qbs**)((__UDT_DEALER)+(8))),qbs_add(*((qbs**)(__UDT_DEALER+(8))),((qbs*)(((uint64*)(__ARRAY_STRING_DECK[0]))[array_check((*__INTEGER_DECKINDEX)-__ARRAY_STRING_DECK[4],__ARRAY_STRING_DECK[5])]))));
~~~~~~~~~~~~^
George
Hey it's not one of those CHR$(0) at the end of the string things is it?
Post by: bplus on July 09, 2020, 11:58:35 am
Quote
Are there any specific coding for windows?
I think QB64 is mainly developed in Windows and ported to other OS, logical because QB was started by MS from GW Basic for DOS and/or something else in between.
So Shell stuff certainly is Windows only and anything that might involve a call to Windows API has to be translated to other OS if there is equivalent services.
So QB64 might run most trouble free with all commands in Windows.
But being portable to other OS is very important to The Team I think and endorse.
Post by: bplus on July 09, 2020, 12:04:31 pm
Quote
That makes sense. I do not think macOS can handle CHR$(0) at end–of–line. Internally only requires a linefeed character which I believe is CHR$(13).
Oh that's interesting, they end strings with... well CHR$(13) is Carriage Return, Line Feed is CHR$(10).
Is that true, is it a missing LF or CR? instead of CHR$(0) (always looking for the easy answer first!)
(About the macOS problems with UDT and/or variable length strings.)
Post by: bplus on July 09, 2020, 06:27:28 pm
[ This attachment cannot be displayed inline in 'Print Page' view ]
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: bplus on July 10, 2020, 02:11:59 pm
Now I am chipper!
Post by: bplus on July 11, 2020, 07:27:39 pm
Code: QB64: [Select]
- ' Started from code not using card images so:
- ' No suits shown for cards A is Ace, J, Q, K are Jack, Queen, King, X is for 10
- ' 2020-07-05 Fix hit (it wasn't broken), delete line chose$ = INKEY$ before loop
- ' force dealer to hit on 16 stay 17, ties are push, bring in double down option.
- ' Fix if dealer has Blackjack should tell also fix exposing 2nd card. Work this
- ' towards converting to multiple AI players, then all players stats are located
- ' in PlayerType and displayed with ShowPlayer (player) SUB.
- ' 2020-07-06 Installed AI and mods for it
- ' 2020-07-06 new Compact Tester with 2nd AI
- ' 2020-07-06 start Blackjack Multi AI Tester off of Compact Tester, add in allot of code worked
- ' out in Blackjack with Bots 2019-06-07.
- ' Yes, major overhaul of last year bot code which was/is neat!
- ' Thanks Johnno and Steve for some interesting AI ideas to try!
- ' 2020-07-07 For Blackjack Multi AI Tester #2, I hope to do something kind of interesting with
- ' displaying many players at one time.
- ' Yes Mouse over a player you want to check on but try and stay out of way of updating.
- ' 2020-07-08 BJ Multi AI Tester #3
- ' No overlapping players, sucks, get rid of timer stuff, removed.
- ' Screen Size depends on how many players go against Dealer from 1 to 6 maximum.
- ' 1 row of players with screen width < 1024, Dealer at top.
- ' Added more items to Player type to display status solely from it's array contents.
- ' Also forbid player to double down if es chips can't cover loss.
- ' Display round number in Title Bar.
- ' 2020-07-08 added some basic stay strategies
- ' 2020-07-09 Some more fixes to Tester #3: Stop dealing cards to players without chips.
- ' Forbid DD if don't have chips to cover loss. Need Round number when run out of chips.
- ' First Johnno AI went over 10,000 rounds on 200 chips!
- ' 2020-07-10 I give up trying to find a strategy to stop draining a player of chips, so one
- ' little change in rules. ;-)) Something that Casinos would never do...
- ' 2020-07-11 Final adjustments to Tester #3
- ' >>>>>>>>>>> GOTO LINE #272 to adjust speed of play uncomment _DELAY line
- ' >>>>>>>>>>> set to 1 or 2 to watch game play, .01 for fast round and watch chips
- '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ' CAUTION: IN THE INTEREST OF HAVING FUN PLAYING THIS GAME, WE HAVE DEVIATED FROM CASINO RULES.
- ' NEVER THINK YOUR EXPERIENCE PLAYING THIS GAME HERE WOULD BE LIKE PLAYING IN A REAL CASINO!
- ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ' Blackjack Multi-Tester Notes: (removed from screening at start)
- ' *** Blackjack Multi AI Tester #3 ***
- '
- ' Each AI bot starts with 200 chips and bets 2 each round.
- ' Dealer must hit on 16 or less.
- ' Blackjack pays 1.5 X the bet.
- ' Double down option available when you get 2 cards.
- ' It Doubles the bet and you get one more card.
- '
- '=================================================================================================
- DEFINT A-Z
- TYPE PlayerType ' Goal: Put everything in PlayerType that showPlayer needs for display
- DIM i, chose$
- initGame
- DO 'start a round
- startRound 'clears screen too and shuffles deck
- allOut = 0 'signal everyone is out of chips is false
- PlayerAddCard plr
- showPlayer nPlayers 'final chip count = 0 ? when all is said and done
- PlayerAddCard plr
- showPlayer plr
- 'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV Insert AI subs here !!!!!!!
- showPlayer plr
- PlayerAddCard plr
- p(plr).Bet = 2 * p(plr).Bet
- PlayerAddCard plr
- ELSE 'if not play it like a hit
- PlayerAddCard plr
- ELSE 'stayed
- blockDealer = 0
- showPlayer nPlayers ' nPlayers is Dealer player number
- p(nPlayers).Tell = "Dealer hits"
- showPlayer nPlayers
- PlayerAddCard nPlayers
- p(nPlayers).Tell = "Reckoning"
- showPlayer nPlayers
- ' final Reckoning
- showPlayer plr
- p(plr).Tell = "Push"
- p(plr).Chips = p(plr).Chips - p(plr).Bet
- p(nPlayers).Chips = p(nPlayers).Chips + p(plr).Bet
- p(plr).Tell = "Push"
- p(plr).Chips = p(plr).Chips + p(plr).Bet + .5 * p(plr).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(plr).Bet - .5 * p(plr).Bet
- p(plr).Chips = p(plr).Chips + p(plr).Bet
- p(nPlayers).Chips = p(nPlayers).Chips - p(plr).Bet
- showPlayer plr
- p(plr).RunOut = round
- p(plr).Tell = "Out of chips!"
- showPlayer plr
- round = 0
- results(plr) = results(plr) + p(plr).Chips - 200 'the chips started with
- p(plr).Chips = 200 'reset chips to start amount
- SUB startRound
- DIM i
- round = round + 1: allOut = -1
- p(i).Hand = ""
- p(i).Ace = 0
- p(i).Tot = 0
- p(i).BJ = 0
- p(i).Bust = 0
- p(i).Tell = ""
- 'because of DD option I have to reset bet during play and set it back at each new round
- 'make sure we aren't betting more than our chips count at least to start
- 'deck$(7) = "A": deck$(14) = "J" 'check immediate show of Blackjack for dealer
- deckIndex = 0: blockDealer = -1
- deckIndex = deckIndex + 1
- p(rec).Hand = p(rec).Hand + deck$(deckIndex)
- p(rec).Tot = 0
- cv = 10
- p(rec).Tot = p(rec).Tot + cv
- showPlayer rec 'when ever add card show update
- cp nP, 1, p(nP).ID
- cp nP, 6, S$
- cp nP, 7, "Total: ??"
- cp nP, 6, S$
- cp nP, 10, p(nP).Tell ' last action of player or dealer or final win lost push
- 272 '_DELAY 1 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< modify this line for speed !!!!!!!!
- SUB initGame 'the stuff that never changes
- DIM i
- ' 1+13*2 rows = 27*16 = 432 ymax
- xmax = ((nPlayers - 1) * 21 + 1) * 8
- _DELAY .25
- 'dealer on top row then max 2 rows of 5 players
- p(i).Col = 2 + (i - 1) * 21
- p(i).Row = 15
- p(i).Chips = startChips
- p(i).SetBet = 2
- p(i).ID = "Dealer"
- p(i).Col = (xmax \ 8 - 20) \ 2 + 1
- p(i).Row = 2
- p(i).Chips = -startChips * (nPlayers - 1)
- p(i).BC = &HFF000000
- p(i).FC = &HFFFFFFFF
- ' =========== AI storage Area #51 stay 16 or 17 are contenders various DD options
- ' After looking at Dealer stats I like Stay 16 though test runs like Stay 17 same as dealer.
- ' So I am tryig Stay 16 with 3 different DD options only when Dealer is showing
- ' card below 10 and no Ace!
- ' Dang Stay 17 Domimates! Changed all to Stay 17, much better!
- DIM m
- bplusAI$ = "h"
- bplusAI$ = "h"
- DIM m
- bplusAI2$ = "h"
- DIM m
- bplusAI3$ = "h"
- Johnno$ = "d"
- Johnno$ = "h"
- Johnno$ = "h"
- Johnno$ = "Stay"
- Johnno2$ = "d"
- Johnno2$ = "h"
- Johnno2$ = "h"
- Johnno2$ = "Stay"
- ' ================================= pure Stay Strategies no DD options
- 'not a contender
Post by: bplus on July 15, 2020, 03:25:02 pm
"If both you and the dealer bust then it is a push." That's all I changed, so now if you both get Blackjack or if you both bust, it is a push.
Now if you have a decent strategy of Blackjack play you can hold your own against the dealer.
Post by: johnno56 on July 15, 2020, 07:03:43 pm
Post by: bplus on July 15, 2020, 08:09:57 pm
Try this: always hit on less than 17, Double Down if you have 10 or 11 and Dealer has less than 8. That won't work in a casino but should be more than OK with latest version.
Always bet the same amount, never think you will get lucky or are due to. If you DD you will have to click back you regular amount bet otherwise just keep clicking your regular bet. Have a pot of coffee ready because it sometimes takes a while for the math to kick in. I hit a streak where the Dealer was getting Blackjack every other hand! 5 BJ's in 10 rounds! I thought God was trying to tell me something ;-)) then I got 2 in a row, what a night then maybe 10 rounds later 4 BJs in a row Dealer got 3 I got 1, crazy!
Post by: SierraKen on July 16, 2020, 12:46:50 pm
Post by: bplus on July 16, 2020, 01:03:30 pm
The game tracks the chips you have under the name you are playing.
You will win Jackpot Blackjack every 170 rounds or so (RND average), it is 50 X's whatever you are betting at that moment.
Post by: SierraKen on July 16, 2020, 01:46:10 pm
Great game!
I just deleted my idea from here because you guys have worked so hard on this, I don't want to add to your frustration.
Post by: SierraKen on July 16, 2020, 01:52:05 pm
Note: I just deleted my idea from the above post. I don't want to add to your frustration. Must have taken a very long time to get this far on such a good game.
Post by: SierraKen on July 16, 2020, 02:27:29 pm
Post by: FellippeHeitor on July 16, 2020, 02:39:01 pm
Post by: Dav on July 16, 2020, 11:11:52 pm
- Dav
Post by: bplus on January 12, 2021, 11:30:59 am
This is nice bplus :)
Is there any chance in making a Special Black Jack version that Tests Card counting Methods,Best Strategies,Etc. ?
How To Count Cards...
https://www.blackjackapprenticeship.com/how-to-count-cards
My interest in this started a long,long time ago probably the same time I got interested in Chess,and getting Computers to play better than Humans at various games.
And the one person that got me interested in Black Jack was Edward O. Thorp and his Beat the Dealer: A Winning Strategy for the Game of Twenty-One...
https://www.powells.com/book/beat-the-dealer-9780394703107
https://en.wikipedia.org/wiki/Edward_O._Thorp
A.R.B :)
Thanks A.R.B.
Sure it's possible to simulate Blackjack as it's played in Vegas or somewhere else just code the rules of the game you want to simulate.
Please do not mistake this game here as anything like the real thing. This game is way too generous with rules and of course the Blackjack Jackpot! Also different, 1 deck that is shuffled before each round and it is only you against the house dealer.
If are seriously considering playing in real games, it is a good idea to practice with simulations as real as possible.
When I was coding this, I skipped the Split Option because it seemed a nightmare lot of work for the one option of play.