From 9f44e36688371859ed63cf5d96efb255b3f11cc8 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 27 Oct 2015 14:36:43 -0400 Subject: [PATCH] Fancier level --- examples/platformer/main.rkt | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/examples/platformer/main.rkt b/examples/platformer/main.rkt index 36dc0c1..3f353d0 100644 --- a/examples/platformer/main.rkt +++ b/examples/platformer/main.rkt @@ -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)