first commit

pacman-project/score.rkt

@@ -0,0 +1,36 @@
+#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!))))