31 lines
713 B
Racket
31 lines
713 B
Racket
#lang r7rs
|
|
|
|
; Main loop ADT ;
|
|
|
|
(define-library (pacman-project main-loop)
|
|
(import (scheme base)
|
|
(pacman-project screen)
|
|
(pacman-project pacman)
|
|
(pacman-project time-limit))
|
|
|
|
(export start-main-loop!
|
|
stop-main-loop!)
|
|
|
|
(begin
|
|
|
|
;stopt de game-loop
|
|
(define (stop-main-loop!)
|
|
((screen 'set-update-callback!)
|
|
(lambda (ms) (values))))
|
|
|
|
;start de game-loop
|
|
(define (start-main-loop!)
|
|
((screen 'set-update-callback!)
|
|
(lambda (ms)
|
|
(cond
|
|
((time-up?) ;wanneer de tijd om is stopt het spel
|
|
(stop-main-loop!))
|
|
(else
|
|
(animate-pacman! ms)
|
|
(decrease-time-limit! ms))))))))
|