From 4d9a873c550b681a12c7189220e421af7d70daaa Mon Sep 17 00:00:00 2001 From: Thomas White Date: Fri, 18 Sep 2020 21:02:01 +0200 Subject: Control walking by key presses --- heyllama.scm | 25 ++++++++++++++++++------- 1 file changed, 18 insertions(+), 7 deletions(-) diff --git a/heyllama.scm b/heyllama.scm index 1288326..0a5a87f 100644 --- a/heyllama.scm +++ b/heyllama.scm @@ -9,6 +9,7 @@ (define sprite #f) (define ss 0) (define time 0) +(define dir 0) (define (draw alpha) (draw-sprite (texture-atlas-ref sprite (+ 12 ss)) @@ -16,20 +17,30 @@ (define (update t) (set! time (+ time 1)) - (set! pos (vec2+ pos #v(1.0 0.0))) + (set! pos (vec2+ pos #v((* dir 2) 0.0))) (when (eq? (floor-remainder time 4) 0) - (set! ss (floor-remainder (+ ss 1) 4)))) - + (set! ss (floor-remainder (+ ss dir) 4)))) (define (load) (set! sprite (split-texture (load-image "llama_walk.png") 128 128))) -(define (key-press key scancode modifier repea?) - (when (eq? key 'q) - (abort-game))) +(define (key-press key scancode modifier repeat?) + (case key + ((q) (abort-game)) + ((right) (set! dir 1)) + ((left) (set! dir -1)))) + + +(define (key-release key scancode modifier) + (case key + ((right) (set! dir 0)) + ((left) (set! dir 0)))) + -(run-game #:load load +(run-game #:window-title "Hey Llama!" + #:load load #:draw draw #:key-press key-press + #:key-release key-release #:update update) -- cgit v1.2.3