File tree Expand file tree Collapse file tree 1 file changed +17
-4
lines changed Expand file tree Collapse file tree 1 file changed +17
-4
lines changed Original file line number Diff line number Diff line change @@ -262,7 +262,7 @@ poke 65,0
262262
263263
264264' --------- Main program -----------------------------
265- ' POKE 731,0 ' Turn on keyclick
265+ POKE 731 ,255 ' Turn off keyclick
266266TIMER
267267WaitTime =Time
268268@InitScreen
283283 ENDIF
284284 @ReadKeyPresses
285285 UNTIL GameStatus (tablenumber )=3
286+ @readGameState
287+ @DrawGameState
286288 REPEAT ' loop until the round ends
287- @readGameState
288- @DrawGameState
289+ if playerStatus (PlayerIndex )=1 and Time >1500
290+ TIMER
291+ @readGameState
292+ @DrawGameState
293+ ENDIF
294+ if playerStatus (PlayerIndex )<>1
295+ @readGameState
296+ @DrawGameState
297+ ENDIF
289298 @ReadKeyPresses
290299 if GameStatus (tablenumber )=4 then @ShowResults
291300 UNTIL GameStatus (tablenumber )=5
@@ -463,7 +472,11 @@ PROC CheckVaildMove _move
463472 next b
464473 ENDIF
465474 Next a
466- if Move$<>" " then @PlayMove
475+ if Move$<>" "
476+ @PlayMove
477+ @readGameState
478+ @DrawGameState
479+ ENDIF
467480ENDPROC
468481
469482PROC ShowResults
You can’t perform that action at this time.
0 commit comments