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

noobprogrammer123

Tue Jun 01, 2004 9:04 pm


blackjack help needed

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

This is the beginning of my blackjack game but there is a problem with the cards. When it generates the first card then asks for your bet, it generates a new first card.

% VARIABLES
var userCard1, userCard2, userCard3, userCard4, userCard5 : int
var compCard1, compCard2, compCard3, compCard4, compCard5 : int
var userCount1, userCount2, userCount3, userCount4, userCount5 : int
var compCount1, compCount2, compCount3, compCount4, compCount5 : int
var userTotal : int
var compTotal : int
var answer : string (1)
var font1 : int
var bet : int
var picID : array 1 .. 52 of int
var token:int
var blackJackFlash:int



% VARIABLE DECLARATIONS
token:=100



% PICTURES
for rep : 1 .. 52
    picID (rep) := Pic.FileNew (intstr (rep) + ".bmp")
end for



% FONTS
font1 := Font.New ("comic sans ms:30")



% OPENING SCREEN
colorback (black)
cls
Font.Draw ("FINESY'S FINE BLACKJACK", 40, 200, font1, green)
delay (2000)
cls
color(yellow)



% LOOP BEGIN
loop




% RANDOMIZING
randint (userCard1, 1, 52)
randint (userCard2, 1, 52)
randint (userCard3, 1, 52)
randint (userCard4, 1, 52)
randint (userCard5, 1, 52)
randint (compCard1, 1, 52)
randint (compCard2, 1, 52)
randint (compCard3, 1, 52)
randint (compCard4, 1, 52)
randint (compCard5, 1, 52)



% DEAL CARD 1
if userCard1 = 1 then
    Pic.Draw (picID (1), 100, 100, 0)
elsif userCard1 = 2 then
    Pic.Draw (picID (2), 100, 100, 0)
    userCount1 := 2
elsif userCard1 = 3 then
    Pic.Draw (picID (3), 100, 100, 0)
    userCount1 := 3
elsif userCard1 = 4 then
    Pic.Draw (picID (4), 100, 100, 0)
    userCount1 := 4
elsif userCard1 = 5 then
    Pic.Draw (picID (5), 100, 100, 0)
    userCount1 := 5
elsif userCard1 = 6 then
    Pic.Draw (picID (6), 100, 100, 0)
    userCount1 := 6
elsif userCard1 = 7 then
    Pic.Draw (picID (7), 100, 100, 0)
    userCount1 := 7
elsif userCard1 = 8 then
    Pic.Draw (picID (8), 100, 100, 0)
    userCount1 := 8
elsif userCard1 = 9 then
    Pic.Draw (picID (9), 100, 100, 0)
    userCount1 := 9
elsif userCard1 = 10 then
    Pic.Draw (picID (10), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 11 then
    Pic.Draw (picID (11), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 12 then
    Pic.Draw (picID (12), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 13 then
    Pic.Draw (picID (13), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 14 then
    Pic.Draw (picID (14), 100, 100, 0)
elsif userCard1 = 15 then
    Pic.Draw (picID (15), 100, 100, 0)
    userCount1 := 2
elsif userCard1 = 16 then
    Pic.Draw (picID (16), 100, 100, 0)
    userCount1 := 3
elsif userCard1 = 17 then
    Pic.Draw (picID (17), 100, 100, 0)
    userCount1 := 4
elsif userCard1 = 18 then
    Pic.Draw (picID (18), 100, 100, 0)
    userCount1 := 5
elsif userCard1 = 19 then
    Pic.Draw (picID (19), 100, 100, 0)
    userCount1 := 6
elsif userCard1 = 20 then
    Pic.Draw (picID (20), 100, 100, 0)
    userCount1 := 7
elsif userCard1 = 21 then
    Pic.Draw (picID (21), 100, 100, 0)
    userCount1 := 8
elsif userCard1 = 22 then
    Pic.Draw (picID (22), 100, 100, 0)
    userCount1 := 9
elsif userCard1 = 23 then
    Pic.Draw (picID (23), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 24 then
    Pic.Draw (picID (24), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 25 then
    Pic.Draw (picID (25), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 26 then
    Pic.Draw (picID (26), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 27 then
    Pic.Draw (picID (27), 100, 100, 0)
elsif userCard1 = 28 then
    Pic.Draw (picID (28), 100, 100, 0)
    userCount1 := 2
elsif userCard1 = 29 then
    Pic.Draw (picID (29), 100, 100, 0)
    userCount1 := 3
elsif userCard1 = 30 then
    Pic.Draw (picID (30), 100, 100, 0)
    userCount1 := 4
elsif userCard1 = 31 then
    Pic.Draw (picID (31), 100, 100, 0)
    userCount1 := 5
elsif userCard1 = 32 then
    Pic.Draw (picID (32), 100, 100, 0)
    userCount1 := 6
elsif userCard1 = 33 then
    Pic.Draw (picID (33), 100, 100, 0)
    userCount1 := 7
elsif userCard1 = 34 then
    Pic.Draw (picID (34), 100, 100, 0)
    userCount1 := 8
elsif userCard1 = 35 then
    Pic.Draw (picID (35), 100, 100, 0)
    userCount1 := 9
elsif userCard1 = 36 then
    Pic.Draw (picID (36), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 37 then
    Pic.Draw (picID (37), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 38 then
    Pic.Draw (picID (38), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 39 then
    Pic.Draw (picID (39), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 40 then
    Pic.Draw (picID (40), 100, 100, 0)
elsif userCard1 = 41 then
    Pic.Draw (picID (41), 100, 100, 0)
    userCount1 := 2
elsif userCard1 = 42 then
    Pic.Draw (picID (42), 100, 100, 0)
    userCount1 := 3
elsif userCard1 = 43 then
    Pic.Draw (picID (43), 100, 100, 0)
    userCount1 := 4
elsif userCard1 = 44 then
    Pic.Draw (picID (44), 100, 100, 0)
    userCount1 := 5
elsif userCard1 = 45 then
    Pic.Draw (picID (45), 100, 100, 0)
    userCount1 := 6
elsif userCard1 = 46 then
    Pic.Draw (picID (46), 100, 100, 0)
    userCount1 := 7
elsif userCard1 = 47 then
    Pic.Draw (picID (47), 100, 100, 0)
    userCount1 := 8
elsif userCard1 = 48 then
    Pic.Draw (picID (48), 100, 100, 0)
    userCount1 := 9
elsif userCard1 = 49 then
    Pic.Draw (picID (49), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 50 then
    Pic.Draw (picID (50), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 51 then
    Pic.Draw (picID (51), 100, 100, 0)
    userCount1 := 10
elsif userCard1 = 52 then
    Pic.Draw (picID (52), 100, 100, 0)
    userCount1 := 10
end if



% BLACKJACK?
if userCard1=37 or userCard1=50 then
for a:1..20
randint(blackJackFlash,1,255)
Font.Draw("BLACKJACK",100,300,font1,blackJackFlash)
delay(100)
colorback(black)
cls
end for
token:=token*2



% USER BET
else
locate (1, 1)
delay(1000)
put "How much would you like to bet?"
get bet
token:=token-bet
delay(100)



% DEAL CARD 2
if userCard2 = 1 then
    Pic.Draw (picID (1), 205, 100, 0)
elsif userCard2 = 2 then
    Pic.Draw (picID (2), 205, 100, 0)
    userCount2 := 2
elsif userCard2 = 3 then
    Pic.Draw (picID (3), 205, 100, 0)
    userCount2 := 3
elsif userCard2 = 4 then
    Pic.Draw (picID (4), 205, 100, 0)
    userCount2 := 4
elsif userCard2 = 5 then
    Pic.Draw (picID (5), 205, 100, 0)
    userCount2 := 5
elsif userCard2 = 6 then
    Pic.Draw (picID (6), 205, 100, 0)
    userCount2 := 6
elsif userCard2 = 7 then
    Pic.Draw (picID (7), 205, 100, 0)
    userCount2 := 7
elsif userCard2 = 8 then
    Pic.Draw (picID (8), 205, 100, 0)
    userCount2 := 8
elsif userCard2 = 9 then
    Pic.Draw (picID (9), 205, 100, 0)
    userCount2 := 9
elsif userCard2 = 10 then
    Pic.Draw (picID (10), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 11 then
    Pic.Draw (picID (11), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 12 then
    Pic.Draw (picID (12), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 13 then
    Pic.Draw (picID (13), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 14 then
    Pic.Draw (picID (14), 205, 100, 0)
elsif userCard2 = 15 then
    Pic.Draw (picID (15), 205, 100, 0)
    userCount2 := 2
elsif userCard2 = 16 then
    Pic.Draw (picID (16), 205, 100, 0)
    userCount2 := 3
elsif userCard2 = 17 then
    Pic.Draw (picID (17), 205, 100, 0)
    userCount2 := 4
elsif userCard2 = 18 then
    Pic.Draw (picID (18), 205, 100, 0)
    userCount2 := 5
elsif userCard2 = 19 then
    Pic.Draw (picID (19), 205, 100, 0)
    userCount2 := 6
elsif userCard2 = 20 then
    Pic.Draw (picID (20), 205, 100, 0)
    userCount2 := 7
elsif userCard2 = 21 then
    Pic.Draw (picID (21), 205, 100, 0)
    userCount2 := 8
elsif userCard2 = 22 then
    Pic.Draw (picID (22), 205, 100, 0)
    userCount2 := 9
elsif userCard2 = 23 then
    Pic.Draw (picID (23), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 24 then
    Pic.Draw (picID (24), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 25 then
    Pic.Draw (picID (25), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 26 then
    Pic.Draw (picID (26), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 27 then
    Pic.Draw (picID (27), 205, 100, 0)
elsif userCard2 = 28 then
    Pic.Draw (picID (28), 205, 100, 0)
    userCount2 := 2
elsif userCard2 = 29 then
    Pic.Draw (picID (29), 205, 100, 0)
    userCount2 := 3
elsif userCard2 = 30 then
    Pic.Draw (picID (30), 205, 100, 0)
    userCount2 := 4
elsif userCard2 = 31 then
    Pic.Draw (picID (31), 205, 100, 0)
    userCount2 := 5
elsif userCard2 = 32 then
    Pic.Draw (picID (32), 205, 100, 0)
    userCount2 := 6
elsif userCard2 = 33 then
    Pic.Draw (picID (33), 205, 100, 0)
    userCount2 := 7
elsif userCard2 = 34 then
    Pic.Draw (picID (34), 205, 100, 0)
    userCount2 := 8
elsif userCard2 = 35 then
    Pic.Draw (picID (35), 205, 100, 0)
    userCount2 := 9
elsif userCard2 = 36 then
    Pic.Draw (picID (36), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 37 then
    Pic.Draw (picID (37), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 38 then
    Pic.Draw (picID (38), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 39 then
    Pic.Draw (picID (39), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 40 then
    Pic.Draw (picID (40), 205, 100, 0)
elsif userCard2 = 41 then
    Pic.Draw (picID (41), 205, 100, 0)
    userCount2 := 2
elsif userCard2 = 42 then
    Pic.Draw (picID (42), 205, 100, 0)
    userCount2 := 3
elsif userCard2 = 43 then
    Pic.Draw (picID (43), 205, 100, 0)
    userCount2 := 4
elsif userCard2 = 44 then
    Pic.Draw (picID (44), 205, 100, 0)
    userCount2 := 5
elsif userCard2 = 45 then
    Pic.Draw (picID (45), 205, 100, 0)
    userCount2 := 6
elsif userCard2 = 46 then
    Pic.Draw (picID (46), 205, 100, 0)
    userCount2 := 7
elsif userCard2 = 47 then
    Pic.Draw (picID (47), 205, 100, 0)
    userCount2 := 8
elsif userCard2 = 48 then
    Pic.Draw (picID (48), 205, 100, 0)
    userCount2 := 9
elsif userCard2 = 49 then
    Pic.Draw (picID (49), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 50 then
    Pic.Draw (picID (50), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 51 then
    Pic.Draw (picID (51), 205, 100, 0)
    userCount2 := 10
elsif userCard2 = 52 then
    Pic.Draw (picID (52), 205, 100, 0)
    userCount2 := 10
end if



% USER CHOICE




% LOOP END
end if
end loop


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

Tony

Tue Jun 01, 2004 9:06 pm



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

instead of having 52 elsif statements... why not just use

Pic.Draw (picID (userCard2), 205, 100, 0) 

? :think:


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

noobprogrammer123

Tue Jun 01, 2004 9:13 pm



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

that will work, any ideas on why it changes?


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

noobprogrammer123

Tue Jun 01, 2004 9:15 pm



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

Also, how do i make it so none of the cards will end up the same


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

Tony

Tue Jun 01, 2004 9:18 pm



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

i donno, your code is too confusing to read :? 

you make cards not repeat by [url=http://www.compsci.ca/v2/viewtopic.php?t=2184]shuffeling your deck