rem add 1,2, or 3 . The first to get to 20 loses
clg
font "arial",10,100
total=0 : n=1 : Sq=3
play:
input"How much add 1-3? ",a$
a=int(a$): total=total+a
if Sq<=total then
n=n+1
Sq=4*n-1
endif
if Sq-total < 4 then
p=Sq-total
w=1
else
p=int(rand*2)+1
w=0
endif
total=total+p
for c = total-a-p+1 to total-p
color red
circle 30,290-c*15,5
text 60,285-c*15,c
next c
print "Thinking"
pause rand*5
print "computer play "+ p
for c = total-p+1 to total
color blue
circle 30,290-c*15,5
text 60,285-c*15,c
next c
if total<19 then goto play
if total = 19 and w=1 then
Print "I Won"
else
Print "You won"
end if
Wednesday, October 6, 2010
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment