BlackJack/21

[GaryFrost]

This is my 1st game, normally I don't even look at the game scripts.

Usually to busy with applications.

Started It Saturday Night, worked on it Off and On Sunday

Cleaned it up some this morning

1 Player against the Computer

Currently this is a single deck, when the deck gets down to 10 or less and deal button is pressed cards are shuffled.

v1.2:

When the deck is depleated it is shuffled, if any cards are already dealt, those cards are not in the shuffle.

Fixed some bugs, and added the 6 card win for the user.

v1.3:

Fixed incorrect number of cards showing when drawing more than 4 cards

Fixed status messages

Changed so when shuffle after a hand, the cards on the table get removed

To Do:

Counters:

• Win
• Lose
• Push

• Average(s)

Betting:

• Starting Amount
• UpDown or Input for bet
• Double Down

v2.0

Added:

4 menus

File

Exit

Config

Deck Back (Picture shown on the back of the deck)

# of Decks (1 - 8)

Sound (Shuffel Sound)

Reset Stats

Bets

$1

$5

$10

$50

$100

$1000

Help

About

Betting, starts out with $10,000 in the bank

Double Down

StatusBar (6 panels)

Dealer card total

If split left side total

If split right side total, else hand total

Win/Lose/Push

Bet

Bank

Changed/Removed

Being I have allowed multiple deck shoe, no longer display a deck of cards (Removed 52 graphic controls, added 2)

v2.1

Fixed initialization of variable from ini file

Fixed betting, not enough money no bet, no deal, no double down, no split depending on the situation

BlackJack v2.1 Skinned (No Source code)

BlackJack v2.1 No Skin (Source code)

Edited December 12, 2006 by gafrost

[layer]

pretty nice, im hanging on to this script because ive been wanting to play blackjack for a while now, i won with a jack and ace my first go and just now got a 20 when the comp got a 19

the skinned version looks very nice as well

except at first i didnt see where it said "You win" .. but now i just noticed that it says what your cards amount up to and if your busted.. pretty neat

maybe when you do all the betting stuff, you could make it more clear that someone has won ? its completley optional, because the more i play it, the more i like it where it is, but just something to think about ..

i like how its very clean and organized, good work

edit ok so i just looked over the code and now i see why you _ReduceMemory, all is good though

Edited October 2, 2006 by layer

[GaryFrost]

Have fun layer.

Haven't seen you around that much in a while.

[layer]

Have fun layer.

Haven't seen you around that much in a while.

thanks lost interest in computers for a while.. may be back now, especially now that winter will be making its way in in a season

edit: when do you think you're gonna add the betting functions/skins ? the betting seems like it'll be really cool and the skin just looks really good

Edited October 2, 2006 by layer

[Kreatorul]

I love blackJack....this is very nice....10x

[nitekram]

I keep loosing even though the dealer is busted - happen two times - you may have missed a if statement.

[GaryFrost]

thanks lost interest in computers for a while.. may be back now, especially now that winter will be making its way in in a season

edit: when do you think you're gonna add the betting functions/skins ? the betting seems like it'll be really cool and the skin just looks really good

Not sure when on the To Do List, just threw this together in pretty much a day.

The Skinned version I should have on here tonight.

[layer]

Not sure when on the To Do List, just threw this together in pretty much a day.

The Skinned version I should have on here tonight.

sounds good

[nitekram]

I put a delay in so you could see that indeed you do loose if the dealer is busted - you must change it somewhere else though.

If $hit_left Then
                    $hit_left = 0
                    $UserHandTotalRight = 0
                    _Hit($a_UserHandR, $UserHandTotalRight, $deck, $a_cards, $user_cards_pic, $bdeck, "R")
                    _GUICtrlStatusBarSetText($StatusBar, @TAB & "Your Hand: " & $UserHandTotalRight, 2)
                Else
                    GUICtrlSetState($btn_hit, $GUI_DISABLE)
                    GUICtrlSetImage($dealer_cards_pic[6], @ScriptDir & "\cards\" & $deck[$a_DealerHand[2]])
                    _GUICtrlStatusBarSetText($StatusBar, @TAB & "Dealer Hand:" & $DealerHandTotal, 0)
                    Local $num_cards = 2
                    While $DealerHandTotal < 16 And $num_cards < 6
                        _Hit($a_DealerHand, $DealerHandTotal, $deck, $a_cards, $dealer_cards_pic, $bdeck, "R")
                        _GUICtrlStatusBarSetText($StatusBar, @TAB & "Dealer Hand:" & $DealerHandTotal, 0)
                        $num_cards += 1
                    WEnd
                    
                    ; this is what I added
                    If $DealerHandTotal >= 21 Then _GUICtrlStatusBarSetText($StatusBar, @TAB & "You WIN", 2)
                        sleep(10000)
                    ; end what I added
                    
                    If $is_split Then
                        _ShowStatus($DealerHandTotal, $UserHandTotalLeft, $StatusBar, 1)
                        _ShowStatus($DealerHandTotal, $UserHandTotalRight, $StatusBar, 2)
                    Else
                        _ShowStatus($DealerHandTotal, $UserHandTotalRight, $StatusBar, 2)
                    EndIf
                    GUICtrlSetState($btn_hit, $GUI_DISABLE)
                    GUICtrlSetState($btn_hold, $GUI_DISABLE)
                    GUICtrlSetState($btn_deal, $GUI_ENABLE)
                    $is_split = 0
                EndIf

- EDIT changed tags

Edited October 2, 2006 by nitekram

[rambo3889]

I founded a bug i got 21 as a start and pressed hold and the comp got 22 and won ? how is that possible

Attached a pic to show u the bug

[GaryFrost]

Both bugs should be fixed (one if statement should fix both problems, no sleep)

see 1st post for download

[GaryFrost]

Wouldn't count on it....

get back to jokes

[GaryFrost]

somebody left the gate open at jokes, please close the gate

[ame1011]

lol ^

Two things, the bottom left corner where it displays what the dealer has does not get cleared after every hand. It always shows what the dealer previously had last hand.

Also, i drew to the computer when I had BlackJack and the computer had a regular 21.

All in all, great job.

Edited October 2, 2006 by ame1011

[GaryFrost]

lol ^

Two things, the bottom left corner where it displays what the dealer has does not get cleared after every hand. It always shows what the dealer previously had last hand.

Also, i drew to the computer when I had BlackJack and the computer had a regular 21.

1st problem is easy to fix, currently don't have blackjack programmed in as a win

Maybe add that to todo list

put the following code, 1st line after the $btn_deal

_GUICtrlStatusBarSetText($StatusBar, "", 0)

Edited October 2, 2006 by gafrost

[GaryFrost]

Fixed source, updated download on 1st post

ignoring peanut gallery

[SmOke_N]

Nice and compact Gary, I expected it to be much larger from our conversations. I still think you should change "Draw" to "Push"

[GaryFrost]

Nice and compact Gary, I expected it to be much larger from our conversations. I still think you should change "Draw" to "Push"

If I add the betting in I'll make sure to change that.

[no4ndth3n]

One thing I noticed in your code, unless you meant it to be this way...is that the dealer holds on 16, when usually dealers hold on 17 or higher...

other than that it looks good, I had actually just started to make a blackjack game earlier in the week but got sidetracked.

[GaryFrost]

One thing I noticed in your code, unless you meant it to be this way...is that the dealer holds on 16, when usually dealers hold on 17 or higher...

other than that it looks good, I had actually just started to make a blackjack game earlier in the week but got sidetracked.

I haven't worked in the rule for Hard 16 hand and Soft 17 hand yet.