Computer Science Canada blackjack help needed |
Author: | noobprogrammer123 [ Tue Jun 01, 2004 9:04 pm ] |
Post subject: | 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 |
Author: | Tony [ Tue Jun 01, 2004 9:06 pm ] | ||
Post subject: | |||
instead of having 52 elsif statements... why not just use
? |
Author: | noobprogrammer123 [ Tue Jun 01, 2004 9:13 pm ] |
Post subject: | |
that will work, any ideas on why it changes? |
Author: | noobprogrammer123 [ Tue Jun 01, 2004 9:15 pm ] |
Post subject: | |
Also, how do i make it so none of the cards will end up the same |
Author: | Tony [ Tue Jun 01, 2004 9:18 pm ] |
Post subject: | |
i donno, your code is too confusing to read you make cards not repeat by shuffeling your deck |