×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

HELP Please. mini-blackjack game

HELP Please. mini-blackjack game

HELP Please. mini-blackjack game

(OP)
So far my code is this:

DECLARE SUB heart ()
DECLARE SUB diamond ()
DECLARE SUB club ()
DECLARE SUB spade ()
DECLARE SUB display ()
DECLARE SUB score ()

DIM deck(52)
FOR card = 1 TO 52
deck(card) = card
NEXT card
scoreplayer = 0
scoredealer = 0

reshuffle:

RANDOMIZE TIMER
FOR ctr = 1 TO 50
a = INT(52 * RND) + 1
B = INT(52 * RND) + 1
SWAP deck(a), deck(B)
NEXT ctr

card = 0

playagain:
CLS
SCREEN 7
LINE (0, 0)-(320, 200), 7, BF
LINE (128, -1)-(228, 10), 15, BF
LINE (128, -1)-(228, 10), 1, B
LINE (5, 165)-(265, 185), 15, BF
LINE (5, 165)-(265, 185), 1, B
LINE (2, 94)-(41, 104), 15, BF
LINE (2, 94)-(41, 104), 1, B
LINE (2, 6)-(65, 16), 15, BF
LINE (2, 6)-(65, 16), 1, B

COLOR 1, 2

LOCATE 1, 18
PRINT "Black Jack"
LOCATE 2, 2
PRINT "Dealer:"
LOCATE 13, 2
PRINT "You:"

CALL score

totaldealer = 0
totalplayer = 0
totaldealer2 = 0
totalplayer2 = 0
ace.yes.no.dealer = 0
ace.yes.no.player = 0

LOCATE 4, 2

x = 2
y = 4

LINE (5, 20)-(45, 70), 4, BF
LINE (5, 20)-(45, 70), 1, B
LINE (6, 21)-(44, 69), 15, B

card1 = 1

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

cardoriginal = card

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

card1 = 0

x = 2
y = 4
cardx = 5
cardy = 20

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no
x = -4
y = 15
cardx = -43
cardy = 107

ctr = 0

hit:

ctr = ctr + 1

total = totalplayer
total2 = totalplayer2
ace.yes.no = ace.yes.no.player

CALL display

totalplayer = total
totalplayer2 = total2
ace.yes.no.player = ace.yes.no

IF totalplayer > 21 THEN
GOTO over
END IF

IF ctr = 1 THEN
GOTO hit
END IF

LOCATE 22, 2
PRINT "Total-"; totalplayer;
IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
LOCATE 22, 2
PRINT "Total-"; totalplayer2; "or"; totalplayer;
END IF

LOCATE 23, 2
PRINT "Do you want to (H)it or (S)tay?"

getkey:
h.s$ = INKEY$
SELECT CASE h.s$
CASE "h"
GOTO hit
CASE "s"
GOTO stay
END SELECT
GOTO getkey

stay:

LOCATE 23, 2
PRINT

IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
totalplayer = totalplayer2
END IF

x = -4
y = 4
cardx = -43
cardy = 20
realcard = card

card = cardoriginal

CALL display

cardvalue = 0
cardx = 53
x = 8

card = realcard

IF totaldealer >= 17 OR totaldealer2 >= 17 THEN
GOTO staydealer
END IF

dealercount = 0

hitdealer:

dealercount = dealercount + 1
LOCATE dealercount, 38
PRINT dealercount


total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
  IF totaldealer2 < 17 THEN
  GOTO hitdealer
  END IF
ELSE
  IF totaldealer < 17 THEN
  GOTO hitdealer
  END IF
END IF

staydealer:

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
totaldealer = totaldealer2
END IF

LINE (5, 78)-(145, 88), 15, BF
LINE (5, 78)-(145, 88), 1, B

LOCATE 11, 2
PRINT "Dealer Total:"; totaldealer

IF totaldealer > 21 THEN
GOTO win
END IF
IF totalplayer > totaldealer THEN
GOTO win
END IF

LOCATE 23, 2
PRINT "The Dealer just owned you.      "
scoredealer = scoredealer + 1
GOTO again

win:
LOCATE 23, 2
PRINT "Congratz you won Blackjack!    "
scoreplayer = scoreplayer + 1
GOTO again

over:
LOCATE 22, 2
PRINT "Total:"; totalplayer;
LOCATE 23, 2
PRINT "You busted.Learn to count loser."
scoredealer = scoredealer + 1
GOTO again

again:
CALL score
LOCATE 22, 19
PRINT "Play again? y/n"
getkey2:
getkey$ = INKEY$
SELECT CASE getkey$
CASE "y"
GOTO again2
CASE "n"
GOTO quit
END SELECT
GOTO getkey2

again2:
IF card > 42 THEN
DO
y.n$ = INKEY$
LOOP UNTIL y.n$ <> ""
GOTO reshuffle
END IF
GOTO playagain

quit:
END

SUB club

SHARED x
SHARED y
SHARED card1
COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(5)

END SUB

SUB diamond

SHARED x
SHARED y
SHARED card1
COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(4)



END SUB

SUB display

COLOR 1, 15

SHARED deck()
SHARED playcard
SHARED card
SHARED cardx
SHARED cardy
SHARED card1
SHARED ace.yes.no
SHARED total
SHARED total2
SHARED x
SHARED y

card = card + 1
playcard = deck(card)
cardx = cardx + 48
x = x + 6

LOCATE y, x

IF card1 = 0 THEN
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 15, BF
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 1, B
END IF

IF playcard = 1 THEN
cardvalue = 0
PRINT "A"
CALL heart
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 2 THEN
cardvalue = 0
PRINT "A"
CALL diamond
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 3 THEN
cardvalue = 0
PRINT "A"
CALL club
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 4 THEN
cardvalue = 0
PRINT "A"
CALL spade
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 5 THEN
cardvalue = 2
CALL heart
END IF

IF playcard = 6 THEN
cardvalue = 2
CALL diamond
END IF

IF playcard = 7 THEN
cardvalue = 2
CALL club
END IF

IF playcard = 8 THEN
cardvalue = 2
CALL spade
END IF

IF playcard = 9 THEN
cardvalue = 3
CALL heart
END IF

IF playcard = 10 THEN
cardvalue = 3
CALL diamond
END IF

IF playcard = 11 THEN
cardvalue = 3
CALL club
END IF

IF playcard = 12 THEN
cardvalue = 3
CALL spade
END IF

IF playcard = 13 THEN
cardvalue = 4
CALL heart
END IF

IF playcard = 14 THEN
cardvalue = 4
CALL diamond
END IF

IF playcard = 15 THEN
cardvalue = 4
CALL club
END IF

IF playcard = 16 THEN
cardvalue = 4
CALL spade
END IF

IF playcard = 17 THEN
cardvalue = 5
CALL heart
END IF

IF playcard = 18 THEN
cardvalue = 5
CALL diamond
END IF

IF playcard = 19 THEN
cardvalue = 5
CALL club
END IF

IF playcard = 20 THEN
cardvalue = 5
CALL spade
END IF

IF playcard = 21 THEN
cardvalue = 6
CALL heart
END IF

IF playcard = 22 THEN
cardvalue = 6
CALL diamond
END IF

IF playcard = 23 THEN
cardvalue = 6
CALL club
END IF

IF playcard = 24 THEN
cardvalue = 6
CALL spade
END IF

IF playcard = 25 THEN
cardvalue = 7
CALL heart
END IF

IF playcard = 26 THEN
cardvalue = 7
CALL diamond
END IF

IF playcard = 27 THEN
cardvalue = 7
CALL club
END IF

IF playcard = 28 THEN
cardvalue = 7
CALL spade
END IF

IF playcard = 29 THEN
cardvalue = 8
CALL heart
END IF

IF playcard = 30 THEN
cardvalue = 8
CALL diamond
END IF

IF playcard = 31 THEN
cardvalue = 8
CALL club
END IF

IF playcard = 32 THEN
cardvalue = 8
CALL spade
END IF

IF playcard = 33 THEN
cardvalue = 9
CALL heart
END IF

IF playcard = 34 THEN
cardvalue = 9
CALL diamond
END IF

IF playcard = 35 THEN
cardvalue = 9
CALL club
END IF

IF playcard = 36 THEN
cardvalue = 9
CALL spade
END IF

IF playcard = 37 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 38 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 39 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 40 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 41 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 42 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 43 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 44 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 45 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 46 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 47 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 48 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 49 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 50 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 51 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 52 THEN
cardvalue = 10
CALL spade
END IF

LOCATE y, x

PRINT cardvalue

LOCATE y, x

IF cardvalue = 0 THEN
PRINT " A "
END IF

IF playcard > 48 AND playcard < 53 THEN
PRINT " K "
END IF

IF playcard > 44 AND playcard < 49 THEN
PRINT " Q "
END IF

IF playcard > 40 AND playcard < 45 THEN
PRINT " J "
END IF

COLOR 1

total = total + cardvalue
total2 = total2 + cardvalue

END SUB

SUB heart

SHARED x
SHARED y
SHARED card1

COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(3)



END SUB

SUB score
SHARED scoredealer
SHARED scoreplayer
LINE (154, 77)-(312, 97), 15, BF   'box around "Score: ..."
LINE (154, 77)-(312, 97), 1, B     '     "
LOCATE 11, 22
PRINT "Score: Dealer-"; scoredealer
LOCATE 12, 29
PRINT "You-   "; scoreplayer
END SUB

SUB spade

SHARED x
SHARED y
SHARED card1

COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(6)

END SUB

I need this to drop the keeping score feature in the game but when i remove the code i mess something up and it wont run agian can anyone help me?. any help is apriciated.

RE: HELP Please. mini-blackjack game

Try remming out all the lines in score (you can leave the
SHARED lines alone) and put a locate 13,1 before the end
sub

RE: HELP Please. mini-blackjack game

I just went in and removed the score sub, and all the score calcualation and it works fine.




Try it out







DECLARE SUB heart ()
DECLARE SUB diamond ()
DECLARE SUB club ()
DECLARE SUB spade ()
DECLARE SUB display ()


DIM deck(52)
FOR card = 1 TO 52
deck(card) = card
NEXT card

reshuffle:

RANDOMIZE TIMER
FOR ctr = 1 TO 50
a = INT(52 * RND) + 1
B = INT(52 * RND) + 1
SWAP deck(a), deck(B)
NEXT ctr

card = 0

playagain:
CLS
SCREEN 7
LINE (0, 0)-(320, 200), 7, BF
LINE (128, -1)-(228, 10), 15, BF
LINE (128, -1)-(228, 10), 1, B
LINE (5, 165)-(265, 185), 15, BF
LINE (5, 165)-(265, 185), 1, B
LINE (2, 94)-(41, 104), 15, BF
LINE (2, 94)-(41, 104), 1, B
LINE (2, 6)-(65, 16), 15, BF
LINE (2, 6)-(65, 16), 1, B

COLOR 1, 2

LOCATE 1, 18
PRINT "Black Jack"
LOCATE 2, 2
PRINT "Dealer:"
LOCATE 13, 2
PRINT "You:"


totaldealer = 0
totalplayer = 0
totaldealer2 = 0
totalplayer2 = 0
ace.yes.no.dealer = 0
ace.yes.no.player = 0

LOCATE 4, 2

x = 2
y = 4

LINE (5, 20)-(45, 70), 4, BF
LINE (5, 20)-(45, 70), 1, B
LINE (6, 21)-(44, 69), 15, B

card1 = 1

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

cardoriginal = card

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

card1 = 0

x = 2
y = 4
cardx = 5
cardy = 20

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no
x = -4
y = 15
cardx = -43
cardy = 107

ctr = 0

hit:

ctr = ctr + 1

total = totalplayer
total2 = totalplayer2
ace.yes.no = ace.yes.no.player

CALL display

totalplayer = total
totalplayer2 = total2
ace.yes.no.player = ace.yes.no

IF totalplayer > 21 THEN
GOTO over
END IF

IF ctr = 1 THEN
GOTO hit
END IF

LOCATE 22, 2
PRINT "Total-"; totalplayer;
IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
LOCATE 22, 2
PRINT "Total-"; totalplayer2; "or"; totalplayer;
END IF

LOCATE 23, 2
PRINT "Do you want to (H)it or (S)tay?"

getkey:
h.s$ = INKEY$
SELECT CASE h.s$
CASE "h"
GOTO hit
CASE "s"
GOTO stay
END SELECT
GOTO getkey

stay:

LOCATE 23, 2
PRINT

IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
totalplayer = totalplayer2
END IF

x = -4
y = 4
cardx = -43
cardy = 20
realcard = card

card = cardoriginal

CALL display

cardvalue = 0
cardx = 53
x = 8

card = realcard

IF totaldealer >= 17 OR totaldealer2 >= 17 THEN
GOTO staydealer
END IF

dealercount = 0

hitdealer:

dealercount = dealercount + 1
LOCATE dealercount, 38
PRINT dealercount


total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
  IF totaldealer2 < 17 THEN
  GOTO hitdealer
  END IF
ELSE
  IF totaldealer < 17 THEN
  GOTO hitdealer
  END IF
END IF

staydealer:

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
totaldealer = totaldealer2
END IF

LINE (5, 78)-(145, 88), 15, BF
LINE (5, 78)-(145, 88), 1, B

LOCATE 11, 2
PRINT "Dealer Total:"; totaldealer

IF totaldealer > 21 THEN
GOTO win
END IF
IF totalplayer > totaldealer THEN
GOTO win
END IF

LOCATE 23, 2
PRINT "The Dealer just owned you.      "

GOTO again

win:
LOCATE 23, 2
PRINT "Congratz you won Blackjack!    "

GOTO again

over:
LOCATE 22, 2
PRINT "Total:"; totalplayer;
LOCATE 23, 2
PRINT "You busted.Learn to count loser."

GOTO again

again:

LOCATE 22, 19
PRINT "Play again? y/n"
getkey2:
getkey$ = INKEY$
SELECT CASE getkey$
CASE "y"
GOTO again2
CASE "n"
GOTO quit
END SELECT
GOTO getkey2

again2:
IF card > 42 THEN
DO
y.n$ = INKEY$
LOOP UNTIL y.n$ <> ""
GOTO reshuffle
END IF
GOTO playagain

quit:
END

SUB club

SHARED x
SHARED y
SHARED card1
COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(5)

END SUB

SUB diamond

SHARED x
SHARED y
SHARED card1
COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(4)



END SUB

SUB display

COLOR 1, 15

SHARED deck()
SHARED playcard
SHARED card
SHARED cardx
SHARED cardy
SHARED card1
SHARED ace.yes.no
SHARED total
SHARED total2
SHARED x
SHARED y

card = card + 1
playcard = deck(card)
cardx = cardx + 48
x = x + 6

LOCATE y, x

IF card1 = 0 THEN
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 15, BF
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 1, B
END IF

IF playcard = 1 THEN
cardvalue = 0
PRINT "A"
CALL heart
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 2 THEN
cardvalue = 0
PRINT "A"
CALL diamond
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 3 THEN
cardvalue = 0
PRINT "A"
CALL club
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 4 THEN
cardvalue = 0
PRINT "A"
CALL spade
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 5 THEN
cardvalue = 2
CALL heart
END IF

IF playcard = 6 THEN
cardvalue = 2
CALL diamond
END IF

IF playcard = 7 THEN
cardvalue = 2
CALL club
END IF

IF playcard = 8 THEN
cardvalue = 2
CALL spade
END IF

IF playcard = 9 THEN
cardvalue = 3
CALL heart
END IF

IF playcard = 10 THEN
cardvalue = 3
CALL diamond
END IF

IF playcard = 11 THEN
cardvalue = 3
CALL club
END IF

IF playcard = 12 THEN
cardvalue = 3
CALL spade
END IF

IF playcard = 13 THEN
cardvalue = 4
CALL heart
END IF

IF playcard = 14 THEN
cardvalue = 4
CALL diamond
END IF

IF playcard = 15 THEN
cardvalue = 4
CALL club
END IF

IF playcard = 16 THEN
cardvalue = 4
CALL spade
END IF

IF playcard = 17 THEN
cardvalue = 5
CALL heart
END IF

IF playcard = 18 THEN
cardvalue = 5
CALL diamond
END IF

IF playcard = 19 THEN
cardvalue = 5
CALL club
END IF

IF playcard = 20 THEN
cardvalue = 5
CALL spade
END IF

IF playcard = 21 THEN
cardvalue = 6
CALL heart
END IF

IF playcard = 22 THEN
cardvalue = 6
CALL diamond
END IF

IF playcard = 23 THEN
cardvalue = 6
CALL club
END IF

IF playcard = 24 THEN
cardvalue = 6
CALL spade
END IF

IF playcard = 25 THEN
cardvalue = 7
CALL heart
END IF

IF playcard = 26 THEN
cardvalue = 7
CALL diamond
END IF

IF playcard = 27 THEN
cardvalue = 7
CALL club
END IF

IF playcard = 28 THEN
cardvalue = 7
CALL spade
END IF

IF playcard = 29 THEN
cardvalue = 8
CALL heart
END IF

IF playcard = 30 THEN
cardvalue = 8
CALL diamond
END IF

IF playcard = 31 THEN
cardvalue = 8
CALL club
END IF

IF playcard = 32 THEN
cardvalue = 8
CALL spade
END IF

IF playcard = 33 THEN
cardvalue = 9
CALL heart
END IF

IF playcard = 34 THEN
cardvalue = 9
CALL diamond
END IF

IF playcard = 35 THEN
cardvalue = 9
CALL club
END IF

IF playcard = 36 THEN
cardvalue = 9
CALL spade
END IF

IF playcard = 37 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 38 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 39 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 40 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 41 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 42 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 43 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 44 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 45 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 46 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 47 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 48 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 49 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 50 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 51 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 52 THEN
cardvalue = 10
CALL spade
END IF

LOCATE y, x

PRINT cardvalue

LOCATE y, x

IF cardvalue = 0 THEN
PRINT " A "
END IF

IF playcard > 48 AND playcard < 53 THEN
PRINT " K "
END IF

IF playcard > 44 AND playcard < 49 THEN
PRINT " Q "
END IF

IF playcard > 40 AND playcard < 45 THEN
PRINT " J "
END IF

COLOR 1

total = total + cardvalue
total2 = total2 + cardvalue

END SUB

SUB heart

SHARED x
SHARED y
SHARED card1

COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(3)



END SUB

SUB spade

SHARED x
SHARED y
SHARED card1

COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(6)

END SUB

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close