33 lines
705 B
Text
33 lines
705 B
Text
PLAYER = 1
|
|
COMP = 0
|
|
|
|
sum = 0
|
|
total = 0
|
|
turn = int(ran() + 0.5)
|
|
dim precomp(3)
|
|
precomp(0) = 1 : precomp(1) = 1
|
|
precomp(2) = 3 : precomp(3) = 2
|
|
|
|
while sum < 21
|
|
turn = 1 - turn
|
|
print "The sum is ", sum
|
|
if turn = PLAYER then
|
|
print "It is your turn."
|
|
while total < 1 or total > 3 or total + sum > 21
|
|
input "How many would you like to total? " total
|
|
wend
|
|
else
|
|
print "It is the computer's turn."
|
|
total = precomp(mod(sum, 4))
|
|
print "The computer totals ", total, "."
|
|
fi
|
|
print
|
|
sum = sum + total
|
|
total = 0
|
|
wend
|
|
|
|
if turn = PLAYER then
|
|
print "Congratulations. You win."
|
|
else
|
|
print "Bad luck. The computer wins."
|
|
fi
|