Z80-21 Yet Another "BlackJack"
Re: Z80-21 Yet Another "BlackJack"
Hi,
with a pair, if the dealer has a Blackjack... you lose without insurance possibility.
<The wallet was ok....
EDIT:
[Ok, wasn't an AS card... working...]
9001 IF Y<>21 AND D(2)=11 AND W>=B/2 THEN GOTO 9019
but:
9000 IF Y=21 AND Z=21 THEN GOSUB 9800
9001 IF Y<>21 AND D(2)=11 AND W>=B/2 THEN GOTO 9019
9002 IF Y=21 AND Z<>21 THEN LET K=2
9004 IF Z=21 AND Y<>21 THEN LET K=0
9006 IF Z<>21 AND Y<>21 THEN RETURN
9008 GOSUB 9800
9010 GOTO 4560
9004 IF Z=21 AND Y<>21 THEN LET K=0
RETURN ?
Not a looser on the first deal !!!
Just on the second deal.
Dealer can't see hidden card before the first player action.
He had to give the hand to the player.
with a pair, if the dealer has a Blackjack... you lose without insurance possibility.
<The wallet was ok....
EDIT:
[Ok, wasn't an AS card... working...]
9001 IF Y<>21 AND D(2)=11 AND W>=B/2 THEN GOTO 9019
but:
9000 IF Y=21 AND Z=21 THEN GOSUB 9800
9001 IF Y<>21 AND D(2)=11 AND W>=B/2 THEN GOTO 9019
9002 IF Y=21 AND Z<>21 THEN LET K=2
9004 IF Z=21 AND Y<>21 THEN LET K=0
9006 IF Z<>21 AND Y<>21 THEN RETURN
9008 GOSUB 9800
9010 GOTO 4560
9004 IF Z=21 AND Y<>21 THEN LET K=0
RETURN ?
Not a looser on the first deal !!!
Just on the second deal.
Dealer can't see hidden card before the first player action.
He had to give the hand to the player.
Last edited by XavSnap on Mon Aug 08, 2022 11:38 pm, edited 2 times in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: Z80-21 Yet Another "BlackJack"
You only get insurance choice if the dealers face up card is an ace. If he has a face up card that is a "10" value, he will peek at his hole card and immediately reveal you have lost (or tied) no insurance in that case.
-sanello
Re: Z80-21 Yet Another "BlackJack"
If it's another card ?
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: Z80-21 Yet Another "BlackJack"
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: Z80-21 Yet Another "BlackJack"
I wasn't specific enough. I'll put in CAPS what I left out
You only get insurance choice if the dealers face up card is an ace. If he has a face up card that is a "10" value, he will peek at his hole card and immediately reveal it IF IT IS AN ACE so you have lost (or tied) no insurance in that case.
If you play the original game (I would speed it up a bit) all that scoring should be correct. I think I only messed up splits on aces.
You only get insurance choice if the dealers face up card is an ace. If he has a face up card that is a "10" value, he will peek at his hole card and immediately reveal it IF IT IS AN ACE so you have lost (or tied) no insurance in that case.
If you play the original game (I would speed it up a bit) all that scoring should be correct. I think I only messed up splits on aces.
-sanello
Re: Z80-21 Yet Another "BlackJack"
I trimmed over 3000 bytes from the xavnap version. It is my 6th upgraded version. more to come. The program does the same work as before but I little faster... And I added a few screen improvements. Have fun!
- Attachments
-
- Z8021AB6.P
- (12.24 KiB) Downloaded 89 times
Re: Z80-21 Yet Another "BlackJack"
Thanks André !
The text file...
The text file...
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: Z80-21 Yet Another "BlackJack"
Thanks for the 'TEXT' of my AB6 version. How can I do that?
And I would like to include your 'croupier', so good, in my futur version.
I am thrilled to work on this project even it stalls my IMPROVED project.
Amusing to see 2 Frenchmen conversing in English. À bientôt!
And I would like to include your 'croupier', so good, in my futur version.
I am thrilled to work on this project even it stalls my IMPROVED project.
Amusing to see 2 Frenchmen conversing in English. À bientôt!
Re: Z80-21 Yet Another "BlackJack"
Hi André,
I had to use VB81 emulator to load & launch, or save text.
It makes the text>emulator use without making a P file.
I just use SAVE"NAME.TXT" to create a compatible text file.
I only use the keyboard to type 'RUN'...
I had to use VB81 emulator to load & launch, or save text.
It makes the text>emulator use without making a P file.
I just use SAVE"NAME.TXT" to create a compatible text file.
I only use the keyboard to type 'RUN'...
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Re: Z80-21 Yet Another "BlackJack"
Nice André
There are a couple issues in this version with doubles. Also it blinks H/S the second time it asks. I actually kind of like that, but it slows down INKEY$ response a lot.
While i am typing stuff I want to tell a little childhood programming story that will end in a download not particularly well suited to the forum, but has it's roots in Sinclair and I think it will be fun.
Once upon a time, SAnello received a new TS1000. It was his first computer if you do not include the Odyssey 2 (videopak) computer intro cartridge. He programmed the heck out of that 2 k. One day he had what he thought was a brilliant idea. He wanted to make a computer version of a 5 letter word game called Jotto! More info on that here. http://www.panix.com/~sos/bc/jotto.html Anyway. There was no internet in 1983 nor did he have access to some kind of electronic dictionary, so he and a buddy took out a dictionary and started to write down on paper all the 5 letter words in it. A daunting task, but they did it! He then actually started writing code on paper before using the computer to do it. Having no concept of how little memory he had, he then started typing away his words in an array. In short order, the letters started to disappear as he typed. "What is going on?" he thought. Is it broke. His older brother scoffed, "it's not broke, you need way more memory." Disappointed, SAnello gave up for a couple weeks until a local KMart had a 16k expansion module half price on sale for $49.99 1983ish dollars! He quickly broke his piggy bank and begged his grandfather for the rest, bought the cartridge, ripped open the package, and plugged it in. It took a little longer, but as soon as that inverted K showed up on the screen, he loaded the tape he saved of his previous work and began typing away again. Guess what happened. Out of memory again. Totally discouraged, the project was shelved. that was until his younger brother purchased a Commodore 128 from money he made corn detasseling of all things. The programming was on again and finally computerized Jotto was born! It only took the machine 8 hours or so to sort out it's first guess! Years later, he rewrote it for a 486sx-25 in QBasic with much more playable results. Here it is.
There are a couple issues in this version with doubles. Also it blinks H/S the second time it asks. I actually kind of like that, but it slows down INKEY$ response a lot.
While i am typing stuff I want to tell a little childhood programming story that will end in a download not particularly well suited to the forum, but has it's roots in Sinclair and I think it will be fun.
Once upon a time, SAnello received a new TS1000. It was his first computer if you do not include the Odyssey 2 (videopak) computer intro cartridge. He programmed the heck out of that 2 k. One day he had what he thought was a brilliant idea. He wanted to make a computer version of a 5 letter word game called Jotto! More info on that here. http://www.panix.com/~sos/bc/jotto.html Anyway. There was no internet in 1983 nor did he have access to some kind of electronic dictionary, so he and a buddy took out a dictionary and started to write down on paper all the 5 letter words in it. A daunting task, but they did it! He then actually started writing code on paper before using the computer to do it. Having no concept of how little memory he had, he then started typing away his words in an array. In short order, the letters started to disappear as he typed. "What is going on?" he thought. Is it broke. His older brother scoffed, "it's not broke, you need way more memory." Disappointed, SAnello gave up for a couple weeks until a local KMart had a 16k expansion module half price on sale for $49.99 1983ish dollars! He quickly broke his piggy bank and begged his grandfather for the rest, bought the cartridge, ripped open the package, and plugged it in. It took a little longer, but as soon as that inverted K showed up on the screen, he loaded the tape he saved of his previous work and began typing away again. Guess what happened. Out of memory again. Totally discouraged, the project was shelved. that was until his younger brother purchased a Commodore 128 from money he made corn detasseling of all things. The programming was on again and finally computerized Jotto was born! It only took the machine 8 hours or so to sort out it's first guess! Years later, he rewrote it for a 486sx-25 in QBasic with much more playable results. Here it is.
-sanello