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

Fancier level

This commit is contained in:
Tony Garnock-Jones 2015-10-27 14:36:43 -04:00
parent 457e1bb0e5
commit 9f44e36688
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
examples/platformer/main.rkt
View File

@ -914,12 +914,16 @@
(spawn-enemy 600 300 25 1025 #:facing 'left)
(spawn-goal-piece 980 300))
(spawn-level (spawn-goal-piece 250 280)
(spawn-enemy 550 200 400 600)
(spawn-enemy 520 200 -100 1000 #:facing 'left)
(spawn-ground-block (vector 400 200) (vector 200 standard-ground-height))
(spawn-ground-block (vector 200 280) (vector 200 200)
#:color "orange")
(spawn-ground-block (vector 25 300) (vector 500 standard-ground-height)))
(spawn-enemy 530 200 400 600)
(spawn-enemy 500 200 -100 1000 #:facing 'left)
(slab 400 200 200)
(spawn-ground-block (vector 200 280) (vector 200 200) #:color "orange")
(slab 25 300 500)
(slab 600 1300 600)
(slab 1150 1200 25 #:color "red")
(for/list ((n 10))
(slab 900 (+ 200 (* n 100)) 50))
)
)))
(define (spawn-numbered-level level-number)