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

world --> network

This commit is contained in:
Tony Garnock-Jones 2016-01-20 14:16:18 -05:00
parent f3643601d4
commit 4dfb4c46a1
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/platformer/main.rkt
View File

@ -848,17 +848,17 @@
;; LevelTerminationMonitor ;; LevelTerminationMonitor
;; ;;
;; When the player vanishes from the board, or LevelCompleted is seen, ;; When the player vanishes from the board, or LevelCompleted is seen,
;; kills the world. ;; kills the network.
(define (spawn-level-termination-monitor) (define (spawn-level-termination-monitor)
(spawn (lambda (e s) (spawn (lambda (e s)
(match e (match e
[(? patch/removed?) [(? patch/removed?)
(log-info "Player died! Terminating level.") (log-info "Player died! Terminating level.")
(transition s (quit-world))] (transition s (quit-network))]
[(message (at-meta (level-completed))) [(message (at-meta (level-completed)))
(log-info "Level completed! Terminating level.") (log-info "Level completed! Terminating level.")
(transition s (quit-world))] (transition s (quit-network))]
[_ #f])) [_ #f]))
(void) (void)
(patch-seq (sub (game-piece-configuration player-id ? ? ?)) (patch-seq (sub (game-piece-configuration player-id ? ? ?))
@ -897,7 +897,7 @@
#:level-size [level-size-vec (vector 4000 2000)] #:level-size [level-size-vec (vector 4000 2000)]
#:scene [scene grassland-backdrop] #:scene [scene grassland-backdrop]
. actions) . actions)
(spawn-world (spawn-network
(and scene (spawn-background-image level-size-vec scene)) (and scene (spawn-background-image level-size-vec scene))
(spawn-display-controller level-size-vec) (spawn-display-controller level-size-vec)
(spawn-physics-engine) (spawn-physics-engine)
@ -969,10 +969,10 @@
(define game-level 3) ;; used to specify meta-level to reach external I/O (define game-level 3) ;; used to specify meta-level to reach external I/O
(2d-world #:width 600 #:height 400 (2d-network #:width 600 #:height 400
(spawn-keyboard-integrator) (spawn-keyboard-integrator)
(spawn-scene-manager) (spawn-scene-manager)
(spawn-world (spawn-score-keeper) (spawn-network (spawn-score-keeper)
(spawn-level-spawner 0) (spawn-level-spawner 0)
) )
) )