mirror of
https://github.com/bobbimanners/EightBall.git
synced 2024-05-28 12:41:28 +00:00
Minor fix to score printout
This commit is contained in:
parent
42bbb90acf
commit
13df8be29f
|
@ -53,6 +53,7 @@ call prng()
|
||||||
piece=rr%5
|
piece=rr%5
|
||||||
call loresmix()
|
call loresmix()
|
||||||
while 1
|
while 1
|
||||||
|
score=0
|
||||||
pr.ch clrscr
|
pr.ch clrscr
|
||||||
call clrlomix()
|
call clrlomix()
|
||||||
call frame()
|
call frame()
|
||||||
|
@ -71,7 +72,6 @@ endwhile
|
||||||
end
|
end
|
||||||
|
|
||||||
sub playgame()
|
sub playgame()
|
||||||
score=0
|
|
||||||
while 1
|
while 1
|
||||||
key=getkey()
|
key=getkey()
|
||||||
orow=row;ocol=col;orot=rot
|
orow=row;ocol=col;orot=rot
|
||||||
|
@ -87,6 +87,11 @@ sub playgame()
|
||||||
else
|
else
|
||||||
if (key=='d')&&rok
|
if (key=='d')&&rok
|
||||||
col=col+1
|
col=col+1
|
||||||
|
else
|
||||||
|
if key=='p'
|
||||||
|
while getkey()==0
|
||||||
|
endwhile
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
|
@ -494,6 +499,7 @@ endsub
|
||||||
sub printscore()
|
sub printscore()
|
||||||
^hpos=17
|
^hpos=17
|
||||||
pr.dec score
|
pr.dec score
|
||||||
|
pr.msg " "
|
||||||
endsub
|
endsub
|
||||||
|
|
||||||
sub loser()
|
sub loser()
|
||||||
|
|
Loading…
Reference in New Issue
Block a user