-----------------------------------

old_School1616

Wed Jun 04, 2003 9:26 am


need help with blackjack program

-----------------------------------

I need graphics for blackjack program ex: the cards of the dealer and player one, I have movar games, win1, win2, card1, card2, card3, card4, card5, card6, total, total1, num1, num2, num3, num4, num5, num6, pot1, bet : int
var answer, answer1 : string
games := 0
win1 := 0
win2 := 0
pot1 := 100
loop
    cls
    put "How much would you like to bet? "
    get bet
    games := games + 1
    randint (num1, 1, 11)
    card1 := num1
    randint (num2, 1, 11)
    card2 := num2
    total := card1 + card2
    exit when total>21
    put "Player 1's cards ", card1, " and ", card2
    loop

        put "Do you want another card? (y/n)"

       get answer
        if answer = "y" then
            randint (num3, 1, 11)
            card3 := num3
            total := total + num3
            put ""
            put "The card is ", card3
            put "Player 1's total is ", total
    end if
    exit when answer = "n"
    exit when total > 21
    end loop
            put ""


            randint (num4, 1, 11)
            card4 := num4
            randint (num5, 1, 11)

            card5 := num5
            total1 := card4 + card5
            put ""
            put "Dealers cards are ", card4, " and ", card5
    loop
        if total1 < 17 then
            randint (num6, 1, 11)
            card6 := num6
            total1 := total1 + num6
            put ""
            put "The card is ", card6
            put "Dealers total is ", total1
        end if
        exit when total1 > 16
    end loop
    put ""
    if total < total1 and total1