on Aug 14th, 2014, 08:30am, Richard Russell wrote:| *REFRESH (which I had originally, but removed as it seemed to be unnecessary) |
|
If you find that flickering is an issue you should be able to eliminate it by restoring the *REFRESH:
Code: REPEAT
WAIT 10
CASE INKEY(0) OF
WHEN 136: newdir = 1 : try = TRUE
WHEN 139: newdir = 2 : try = TRUE
WHEN 137: newdir = 3 : try = TRUE
WHEN 138: newdir = 4 : try = TRUE
ENDCASE
PROCdot
PROCmovePacman
*REFRESH OFF
PROCbackground
PROCghost(0)
PROCghost(1)
PROCghost(2)
PROCghost(3)
PROCdrawPacman
*REFRESH ON
*REFRESH
PROCdetectGhost
IF dotcount = 254 THEN dotcount = 0 : PROCwin
IF dead = 1 THEN dead = 0 : PROCdie
IF done = 1 THEN PROCgameover
UNTIL FALSE
Richard.