37 lines
801 B
Racket
37 lines
801 B
Racket
#lang r7rs
|
|
|
|
; Score ADT ;
|
|
|
|
|
|
(define-library (pacman-project score)
|
|
(import (scheme base)
|
|
(pp1 graphics)
|
|
(pacman-project screen))
|
|
|
|
(export draw-score!
|
|
update-score!
|
|
get-score)
|
|
|
|
(begin
|
|
|
|
(define score 0)
|
|
|
|
(define score-layer (make-new-layer!))
|
|
(define score-tile (make-tile screen-width screen-height))
|
|
((score-layer 'add-drawable!) score-tile)
|
|
|
|
;de current score teruggeven
|
|
(define (get-score)
|
|
score)
|
|
|
|
;score op het scherm tekenen
|
|
(define (draw-score!)
|
|
((score-tile 'draw-text!)
|
|
(number->string score) 40 560 20 "white"))
|
|
|
|
;wanneer een muntje gegeten wordt wordt de score met 10 verhoogt
|
|
(define (update-score!)
|
|
(set! score (+ score 10))
|
|
((score-tile 'clear!))
|
|
(draw-score!))))
|