#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!))))