Lines Matching defs:score
66 "Function run whenever the Tetris score changes
148 (defvar tetris-score-x tetris-next-x
149 "X position of score.")
151 (defvar tetris-score-y (+ tetris-next-y 6)
152 "Y position of score.")
157 (defvar tetris-score-file "tetris-scores"
159 ;(defvar tetris-score-file "/anonymous@ftp.pgt.com:/pub/cgw/tetris-scores"
236 ;;the scoring rules were taken from "xtetris". Blocks score differently
261 (defvar tetris-score 0)
271 (make-variable-buffer-local 'tetris-score)
340 (defun tetris-draw-score ()
343 (format "Score: %05d" tetris-score))))
348 (gamegrid-set-cell (+ tetris-score-x x)
349 (+ tetris-score-y y)
352 (defun tetris-update-score ()
353 (tetris-draw-score)
367 (tetris-update-score)))
484 tetris-score 0
491 (setq tetris-score
492 (+ tetris-score
494 (tetris-update-score)
574 (gamegrid-add-score tetris-score-file tetris-score))