Video Poker

Basic and Machine Language

Moderator: Moderators

carlsson
Class of '6502
Posts: 5516
Joined: Wed Mar 10, 2004 1:41 am

Post by carlsson »

Schlowski wrote:I made it "BJOERG", so to call to 'internationalize' my name and put the resulting version up to the web space...
You could always try the Danish/Norwegian spelling: BJØRG which is easily accomplished with 0 (zero).
Anders Carlsson

Image Image Image Image Image
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

Just as a side note, as far as I learned in norway Björg is a female name there which caused some laughs as I am definately male :-)

Nice mistake by some official in our city when making my birth note, it should be Björn and ended as Björg in official documents - but I like my name :-)

Björg
carlsson
Class of '6502
Posts: 5516
Joined: Wed Mar 10, 2004 1:41 am

Post by carlsson »

To confuse us further, you could make an avatar of her:

http://www.daserste.de/verboteneliebe/d ... 0sx~cm.asp
Anders Carlsson

Image Image Image Image Image
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

That would be cheating - she looks classes better than me :-))

And a german actress too, funny!
Boray
Musical Smurf
Posts: 4064
Joined: Mon May 03, 2004 10:47 am

Post by Boray »

Björn means bear. So I guess you went from an animal to a tree then! :lol:
PRG Starter - a VICE helper / Vic Software (Boray Gammon, SD2IEC music player, Vic Disk Menu, Tribbles, Mega Omega, How Many 8K etc.)
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

Ok, her are my results (sorry, missed the 100 during play :-) )

Code: Select all

Games           109
Coins           564
Pairs           21
2 Pairs         4
3-of-a-kind     11
Straight        2
Flush           2
Full House      1
4-of-a-kind     5
Straight Flush  0
Royal Flush     0
Very lucky game with all of these 4-of-a-kind, but on the other hand one can see that my strategy is not good for straights and flushes...

With your proposed scoring I would have had 125 coins left instead of the 564. But maybe the game would have ended already because somewhere in the middle the coins would have dropped to zero.

Will continue this just to see what happened until 200 games!

Björg
Boray
Musical Smurf
Posts: 4064
Joined: Mon May 03, 2004 10:47 am

Post by Boray »

I played 200 games, and ended with 65 coins.

Points table:
39
22
15
3
3
0
0
0
0

(Scoring table of 1,3,5,10,15,25,100,250,1000)
10-200+39*1+22*3+15*5+3*10+3*15=65

(Scoring table of 1,3,4,6,8,10,15,25,50)
10-200+39*1+22*3+15*4+3*6+3*8=17

(Scoring table of 1,2,4,6,8,10,15,25,50)
10-200+39*1+22*2+15*4+3*6+3*8=-5
PRG Starter - a VICE helper / Vic Software (Boray Gammon, SD2IEC music player, Vic Disk Menu, Tribbles, Mega Omega, How Many 8K etc.)
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

I made some other 200 games tonight:

Points table:
40
18
17
4
3
3
1
0 -> We are both unable to get the really high hands :-)
0

(Scoring table of 1,3,5,10,15,25,100,250,1000)
249

(Scoring table of 1,3,4,6,8,10,15,25,50)
65

(Scoring table of 1,2,4,6,8,10,15,25,50)
47

I have to cut it down to
(Scoring table of 1,2,3,4,5,6,7,x,x)
-7

to get a negative result...

So at least it looks like your (Scoring table of 1,2,4,6,8,10,15,25,50) is a good compromise and I would vote to change the points accordingly.

Please test (old link deleted) with these values or change your own copy 8) And then let's see how far we come with these values...

Björg
Last edited by Schlowski on Wed Jan 25, 2006 4:56 am, edited 1 time in total.
Boray
Musical Smurf
Posts: 4064
Joined: Mon May 03, 2004 10:47 am

Post by Boray »

Okay!
PRG Starter - a VICE helper / Vic Software (Boray Gammon, SD2IEC music player, Vic Disk Menu, Tribbles, Mega Omega, How Many 8K etc.)
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

I finally got my inspiration :D

Try
http://www.stojalowski.de/files/videopoker6

Now you can increase your bet up to 9 coins (if you have so much left, of course!). Now loosing is much easier then ever before :lol:

Was a hard fight to get this in, had to sacrifice your 'splash screen' and squeeze some things together.

Very satisfied
Björg
Boray
Musical Smurf
Posts: 4064
Joined: Mon May 03, 2004 10:47 am

Post by Boray »

Very nice! But how about the sounds? There is no losing-sound! But it reappears after a win when the score has been increased. Did I lose or did I win? ;) I guess you had no sound turned on when you tested it? If you need some more bytes, you could also loose the intro sound...

/Anders
PRG Starter - a VICE helper / Vic Software (Boray Gammon, SD2IEC music player, Vic Disk Menu, Tribbles, Mega Omega, How Many 8K etc.)
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

Oh damned, you're right, sound is turned off here.
Will have to rework this regarding sound and make a new version 'til tomorrow :-) Again the hunt for the some bytes is opened...

Björg
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

Maybe this will do it, can't say for sure because I have no sound here...
Tested a few rounds just to see that there is non 'OUT OF MEMORY' error.

(old link deleted)

Björg

EDIT: Just tried at home and now the sound seems to be ok for me :-)
Last edited by Schlowski on Wed Jan 25, 2006 4:56 am, edited 1 time in total.
Boray
Musical Smurf
Posts: 4064
Joined: Mon May 03, 2004 10:47 am

Post by Boray »

If you use a high bet, win and then press D, you get Out of memory error in 27. And I think the two intro sounds (win+ lose) are a bit unnecesary. Otherwise, I think it's very good now.

/Anders
PRG Starter - a VICE helper / Vic Software (Boray Gammon, SD2IEC music player, Vic Disk Menu, Tribbles, Mega Omega, How Many 8K etc.)
User avatar
Schlowski
NoMess!
Posts: 892
Joined: Tue Jun 08, 2004 12:20 pm

Post by Schlowski »

Strange, I will check this weekend and hopefully get some more bytes free...

Playing both sounds at startup is good for initializing the variables used in the subroutines, so we have an early check for memory.
When testing a new version I always check and uncheck every card, play until I have at least one win and one loose and toggle display in both cases. So I'm a little bit irritated that a high bet in the beginning makes a difference, but the good old VIC had more than one surprise for me in the last days :-)

Björg
Post Reply