Refactor(English): Rename all files and identifiers from Dutch to English
Renamed files: constanten→constants, adt-positie→adt-position, adt-doolhof→adt-maze, adt-sleutel→adt-key, adt-tijdslimiet→adt-timer, adt-teken→adt-draw, adt-spel→adt-game. All message names, variables, comments, and tests converted to English. Also fixed counter location bug (time-label x/y were swapped). Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
joren
@@ -4,172 +4,171 @@
|
||||
;; Level ADT ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;; Het level bevat alle spellogica: beweging van Pac-Man, botsingsdetectie,
|
||||
;; muntjes eten, sleutel oppakken, deuren openen, teleportatie, pauze en
|
||||
;; tijdsbeheer. Bevat GEEN grafische code.
|
||||
;; Contains all game logic: Pac-Man movement, collision detection, coin/key
|
||||
;; pickup, door opening, teleportation, pause, and time management.
|
||||
;; Contains NO graphics code.
|
||||
|
||||
(define-library (pacman-project adt-level)
|
||||
(import (scheme base)
|
||||
(pacman-project constanten)
|
||||
(pacman-project adt-positie)
|
||||
(pacman-project adt-doolhof)
|
||||
(pacman-project constants)
|
||||
(pacman-project adt-position)
|
||||
(pacman-project adt-maze)
|
||||
(pacman-project adt-pacman)
|
||||
(pacman-project adt-sleutel)
|
||||
(pacman-project adt-key)
|
||||
(pacman-project adt-score)
|
||||
(pacman-project adt-tijdslimiet))
|
||||
(export maak-level)
|
||||
(pacman-project adt-timer))
|
||||
(export make-level)
|
||||
|
||||
(begin
|
||||
|
||||
;; maak-level :: -> level
|
||||
;; Maakt een nieuw level aan met alle spelobjecten.
|
||||
(define (maak-level)
|
||||
(let ((doolhof (maak-doolhof))
|
||||
(pacman (maak-pacman 5 2))
|
||||
(sleutel #f)
|
||||
(score (maak-score))
|
||||
(tijdslimiet (maak-tijdslimiet))
|
||||
(gepauzeerd? #f))
|
||||
;; make-level :: -> level
|
||||
;; Creates a new level with all game objects.
|
||||
(define (make-level)
|
||||
(let ((maze (make-maze))
|
||||
(pacman (make-pacman 5 2))
|
||||
(key #f)
|
||||
(score (make-score))
|
||||
(timer (make-timer))
|
||||
(paused? #f))
|
||||
|
||||
;; Initialiseer de sleutel nadat het doolhof is aangemaakt.
|
||||
(set! sleutel (maak-sleutel doolhof))
|
||||
;; Initialize key after maze is created.
|
||||
(set! key (make-key maze))
|
||||
|
||||
;;
|
||||
;; Richting helpers
|
||||
;; Direction helpers
|
||||
;;
|
||||
|
||||
;; richting->delta :: symbol -> (number . number)
|
||||
;; Converteert een richting naar een (delta-rij . delta-kolom) paar.
|
||||
(define (richting->delta richting)
|
||||
(cond ((eq? richting 'rechts) (cons 0 1))
|
||||
((eq? richting 'links) (cons 0 -1))
|
||||
((eq? richting 'omhoog) (cons -1 0))
|
||||
((eq? richting 'omlaag) (cons 1 0))
|
||||
;; direction->delta :: symbol -> (number . number)
|
||||
;; Converts a direction to a (delta-row . delta-col) pair.
|
||||
(define (direction->delta direction)
|
||||
(cond ((eq? direction 'right) (cons 0 1))
|
||||
((eq? direction 'left) (cons 0 -1))
|
||||
((eq? direction 'up) (cons -1 0))
|
||||
((eq? direction 'down) (cons 1 0))
|
||||
(else (cons 0 0))))
|
||||
|
||||
;;
|
||||
;; Muntje logica
|
||||
;; Coin logic
|
||||
;;
|
||||
|
||||
;; eet-muntje! :: number, number -> /
|
||||
;; Verwijdert het muntje op de cel en past score/tijd aan.
|
||||
(define (eet-muntje! rij kolom)
|
||||
((doolhof 'cel-set!) rij kolom cel-type-leeg)
|
||||
((score 'verhoog!))
|
||||
((tijdslimiet 'verhoog!)))
|
||||
;; eat-coin! :: number, number -> /
|
||||
;; Removes the coin at the cell and updates score/time.
|
||||
(define (eat-coin! row col)
|
||||
((maze 'cell-set!) row col cell-type-empty)
|
||||
((score 'increase!))
|
||||
((timer 'increase!)))
|
||||
|
||||
;;
|
||||
;; Sleutel logica
|
||||
;; Key logic
|
||||
;;
|
||||
|
||||
;; pak-sleutel-op! :: number, number -> /
|
||||
;; Pakt de sleutel op en maakt de cel leeg.
|
||||
(define (pak-sleutel-op! rij kolom)
|
||||
((doolhof 'cel-set!) rij kolom cel-type-leeg)
|
||||
((sleutel 'pak-op!)))
|
||||
;; pick-up-key! :: number, number -> /
|
||||
;; Picks up the key and clears the cell.
|
||||
(define (pick-up-key! row col)
|
||||
((maze 'cell-set!) row col cell-type-empty)
|
||||
((key 'take!)))
|
||||
|
||||
;;
|
||||
;; Teleportatie logica
|
||||
;; Teleportation logic
|
||||
;;
|
||||
|
||||
;; teleporteer-horizontaal! :: number, number -> /
|
||||
;; Teleporteert Pac-Man naar de andere kant van het doolhof.
|
||||
(define (teleporteer-horizontaal! rij kolom)
|
||||
(let ((pac-pos (pacman 'positie)))
|
||||
(cond ((< kolom 0)
|
||||
((pac-pos 'kolom!) (- (doolhof 'kolommen) 1))
|
||||
((pac-pos 'rij!) rij))
|
||||
((>= kolom (doolhof 'kolommen))
|
||||
((pac-pos 'kolom!) 0)
|
||||
((pac-pos 'rij!) rij)))))
|
||||
;; teleport-horizontal! :: number, number -> /
|
||||
;; Teleports Pac-Man to the other side of the maze.
|
||||
(define (teleport-horizontal! row col)
|
||||
(let ((pac-pos (pacman 'position)))
|
||||
(cond ((< col 0)
|
||||
((pac-pos 'col!) (- (maze 'cols) 1))
|
||||
((pac-pos 'row!) row))
|
||||
((>= col (maze 'cols))
|
||||
((pac-pos 'col!) 0)
|
||||
((pac-pos 'row!) row)))))
|
||||
|
||||
;;
|
||||
;; Bewegingslogica
|
||||
;; Movement logic
|
||||
;;
|
||||
|
||||
;; beweeg-pacman! :: symbol -> /
|
||||
;; Beweegt Pac-Man in de opgegeven richting met alle spelregels.
|
||||
(define (beweeg-pacman! richting)
|
||||
(when (not ((tijdslimiet 'tijd-op?)))
|
||||
(let* ((delta (richting->delta richting))
|
||||
(delta-rij (car delta))
|
||||
(delta-kolom (cdr delta))
|
||||
(huidige-pos (pacman 'positie))
|
||||
(volgende-rij (+ (huidige-pos 'rij) delta-rij))
|
||||
(volgende-kolom (+ (huidige-pos 'kolom) delta-kolom)))
|
||||
;; move-pacman! :: symbol -> /
|
||||
;; Moves Pac-Man in the given direction with all game rules.
|
||||
(define (move-pacman! direction)
|
||||
(when (not ((timer 'time-up?)))
|
||||
(let* ((delta (direction->delta direction))
|
||||
(delta-row (car delta))
|
||||
(delta-col (cdr delta))
|
||||
(current-pos (pacman 'position))
|
||||
(next-row (+ (current-pos 'row) delta-row))
|
||||
(next-col (+ (current-pos 'col) delta-col)))
|
||||
|
||||
;; Pas richting aan voor de teken-laag.
|
||||
((pacman 'richting!) richting)
|
||||
;; Update direction for the draw layer.
|
||||
((pacman 'direction!) direction)
|
||||
|
||||
(cond
|
||||
;; Teleportatie: buiten het grid horizontaal.
|
||||
((or (< volgende-kolom 0) (>= volgende-kolom (doolhof 'kolommen)))
|
||||
(teleporteer-horizontaal! volgende-rij volgende-kolom))
|
||||
;; Teleportation: outside grid horizontally.
|
||||
((or (< next-col 0) (>= next-col (maze 'cols)))
|
||||
(teleport-horizontal! next-row next-col))
|
||||
|
||||
;; Deur: open alleen als de sleutel opgepakt is.
|
||||
(((doolhof 'deur?) volgende-rij volgende-kolom)
|
||||
(when (sleutel 'opgepakt?)
|
||||
((doolhof 'verwijder-deur!) volgende-rij volgende-kolom)))
|
||||
;; Door: only open if key has been taken.
|
||||
(((maze 'door?) next-row next-col)
|
||||
(when (key 'taken?)
|
||||
((maze 'remove-door!) next-row next-col)))
|
||||
|
||||
;; Normale beweging: alleen als het geen muur is.
|
||||
;; Normal movement: only if not a wall.
|
||||
(else
|
||||
(when (not ((doolhof 'muur?) volgende-rij volgende-kolom))
|
||||
((pacman 'beweeg!) delta-rij delta-kolom)
|
||||
;; Controleer wat er op de nieuwe positie staat.
|
||||
(when (not ((maze 'wall?) next-row next-col))
|
||||
((pacman 'move!) delta-row delta-col)
|
||||
;; Check what's at the new position.
|
||||
(cond
|
||||
(((doolhof 'sleutel?) volgende-rij volgende-kolom)
|
||||
(pak-sleutel-op! volgende-rij volgende-kolom))
|
||||
(((doolhof 'muntje?) volgende-rij volgende-kolom)
|
||||
(eet-muntje! volgende-rij volgende-kolom)))))))))
|
||||
(((maze 'key?) next-row next-col)
|
||||
(pick-up-key! next-row next-col))
|
||||
(((maze 'coin?) next-row next-col)
|
||||
(eat-coin! next-row next-col)))))))))
|
||||
|
||||
;;
|
||||
;; Pauze logica
|
||||
;; Pause logic
|
||||
;;
|
||||
|
||||
;; wissel-pauze! :: -> /
|
||||
;; Wisselt de pauzetoestand.
|
||||
(define (wissel-pauze!)
|
||||
(set! gepauzeerd? (not gepauzeerd?)))
|
||||
;; toggle-pause! :: -> /
|
||||
(define (toggle-pause!)
|
||||
(set! paused? (not paused?)))
|
||||
|
||||
;;
|
||||
;; Toets afhandeling
|
||||
;; Key handling
|
||||
;;
|
||||
|
||||
;; toets! :: symbol -> /
|
||||
;; Verwerkt een toetsaanslag.
|
||||
(define (toets! toets)
|
||||
;; key-press! :: symbol -> /
|
||||
;; Processes a key press.
|
||||
(define (key-press! pressed-key)
|
||||
(cond
|
||||
((eq? toets 'escape) (wissel-pauze!))
|
||||
((not gepauzeerd?)
|
||||
((eq? pressed-key 'escape) (toggle-pause!))
|
||||
((not paused?)
|
||||
(cond
|
||||
((eq? toets 'right) (beweeg-pacman! 'rechts))
|
||||
((eq? toets 'left) (beweeg-pacman! 'links))
|
||||
((eq? toets 'up) (beweeg-pacman! 'omhoog))
|
||||
((eq? toets 'down) (beweeg-pacman! 'omlaag))))))
|
||||
((eq? pressed-key 'right) (move-pacman! 'right))
|
||||
((eq? pressed-key 'left) (move-pacman! 'left))
|
||||
((eq? pressed-key 'up) (move-pacman! 'up))
|
||||
((eq? pressed-key 'down) (move-pacman! 'down))))))
|
||||
|
||||
;;
|
||||
;; Update (spellusfunctie)
|
||||
;; Update (game loop function)
|
||||
;;
|
||||
|
||||
;; update! :: number -> /
|
||||
;; Wordt elk frame aangeroepen met het aantal verstreken milliseconden.
|
||||
(define (update! delta-tijd)
|
||||
(when (not gepauzeerd?)
|
||||
((tijdslimiet 'verlaag!) delta-tijd)))
|
||||
;; Called each frame with elapsed milliseconds.
|
||||
(define (update! delta-time)
|
||||
(when (not paused?)
|
||||
((timer 'decrease!) delta-time)))
|
||||
|
||||
;;
|
||||
;; Dispatch
|
||||
;;
|
||||
|
||||
(define (dispatch-level msg)
|
||||
(cond ((eq? msg 'doolhof) doolhof)
|
||||
(cond ((eq? msg 'maze) maze)
|
||||
((eq? msg 'pacman) pacman)
|
||||
((eq? msg 'sleutel) sleutel)
|
||||
((eq? msg 'key) key)
|
||||
((eq? msg 'score) score)
|
||||
((eq? msg 'tijdslimiet) tijdslimiet)
|
||||
((eq? msg 'gepauzeerd?) gepauzeerd?)
|
||||
((eq? msg 'toets!) toets!)
|
||||
((eq? msg 'timer) timer)
|
||||
((eq? msg 'paused?) paused?)
|
||||
((eq? msg 'key-press!) key-press!)
|
||||
((eq? msg 'update!) update!)
|
||||
(else (error "Level ADT -- Onbekend bericht:" msg))))
|
||||
(else (error "Level ADT -- Unknown message:" msg))))
|
||||
|
||||
dispatch-level))))
|
||||
|
||||
Reference in New Issue
Block a user