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.
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
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.