summaryrefslogtreecommitdiff
path: root/heyllama.scm
diff options
context:
space:
mode:
Diffstat (limited to 'heyllama.scm')
-rw-r--r--heyllama.scm25
1 files 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)