syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Level spawner

This commit is contained in:
Tony Garnock-Jones 2015-10-23 21:12:10 -04:00
parent 8bb1b36073
commit e28841f695
1 changed files with 54 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
examples/platformer/game.rkt
View File

@ -1,10 +1,12 @@
#lang prospect #lang racket/base
(require 2htdp/image)
(require racket/set) (require racket/set)
(require racket/match) (require racket/match)
(require prospect/drivers/timer)
(require plot/utils) ;; for vector utilities (require plot/utils) ;; for vector utilities
(require 2htdp/image)
(require prospect)
(require prospect/drivers/timer)
(require prospect-gl/2d) (require prospect-gl/2d)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -92,10 +94,11 @@
;; ;;
;; A LevelRunning is a (level-running), an assertion indicating that the ;; A LevelRunning is a (level-running), an assertion indicating that the
;; current level is still in progress. ;; current level is still in progress.
(struct level-running () #:transparent)
;; ;;
;; A LevelCompleted is a (level-completed), a message indicating that ;; A LevelCompleted is a (level-completed), a message indicating that
;; the current level was *successfully* completed before it terminated. ;; the current level was *successfully* completed before it terminated.
;; (struct level-completed () #:transparent)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ## Level Layer Protocols ;; ## Level Layer Protocols
@ -268,22 +271,24 @@
(match-define (scroll-offset vec) o) (match-define (scroll-offset vec) o)
(struct-copy scene-manager-state s [offset vec]))) (struct-copy scene-manager-state s [offset vec])))
(spawn (lambda (e s) (parameterize ((2d-world-meta-level 1))
(match e (spawn (lambda (e s)
[(? patch? p) (parameterize ((2d-world-meta-level 1))
(let* ((s (update-window-size s p)) (match e
(s (update-scroll-offset s p))) [(? patch? p)
(match-define (vector width height) (scene-manager-state-size s)) (let* ((s (update-window-size s p))
(match-define (vector ofs-x ofs-y) (scene-manager-state-offset s)) (s (update-scroll-offset s p)))
(transition s (match-define (vector width height) (scene-manager-state-size s))
(update-scene `((push-matrix (scale ,width ,height) (match-define (vector ofs-x ofs-y) (scene-manager-state-offset s))
(texture ,(rectangle 1 1 "solid" "white")) (transition s
) (update-scene `((push-matrix
(translate ,ofs-x ,ofs-y)) (scale ,width ,height)
`())))] (texture ,(rectangle 1 1 "solid" "white")))
[_ #f])) (translate ,ofs-x ,ofs-y))
(scene-manager-state (vector 0 0) (vector 0 0)) `())))]
(sub (window ? ?) #:meta-level 1))) [_ #f])))
(scene-manager-state (vector 0 0) (vector 0 0))
(sub (window ? ?) #:meta-level 1))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ScoreKeeper ;; ScoreKeeper
@ -302,13 +307,40 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; LevelSpawner ;; LevelSpawner
(define (spawn-level level-number)
(spawn-world (spawn (lambda (e s)
(and (not s)
(transition #t (assert (level-running) #:meta-level 1))))
#f)
(spawn (lambda (e s) #f)
(void)
(update-sprites (simple-sprite 0 50 50 50 50 (circle 50 "solid" "purple"))))))
(define (spawn-level-spawner) (define (spawn-level-spawner)
(void)) (struct level-spawner-state (current-level level-complete?) #:prefab)
(list (spawn-level 0)
(spawn (lambda (e s)
(match-define (level-spawner-state current-level level-complete?) s)
(match e
[(? patch/removed?)
(define next-level (if level-complete? (+ current-level 1) current-level))
(transition (level-spawner-state next-level #f)
(spawn-level next-level))]
[(message (level-completed))
(transition (struct-copy level-spawner-state s [level-complete? #t]) '())]
[_ #f]))
(level-spawner-state 0 #f)
(sub (level-running))
(sub (level-completed)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(2d-world-meta-level 3) ;; TODO ack bleargh. See comment in prospect-gl/2d.rkt
(2d-world #:width 600 #:height 400 (2d-world #:width 600 #:height 400
(spawn-keyboard-integrator) (parameterize ((2d-world-meta-level 1)) ;; TODO ick yeughhh
(spawn-keyboard-integrator))
(spawn-scene-manager) (spawn-scene-manager)
(spawn-world (spawn-score-keeper) (spawn-world (spawn-score-keeper)
(spawn-level-spawner) (spawn-level-spawner)