From 526f281cc2d1da11d0104de510c5bc301f605ddd Mon Sep 17 00:00:00 2001 From: Henrique Alves Date: Fri, 26 Apr 2024 14:53:39 +0300 Subject: update --- scripts/main.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'scripts/main.scm') diff --git a/scripts/main.scm b/scripts/main.scm index 095fa98..2507424 100644 --- a/scripts/main.scm +++ b/scripts/main.scm @@ -1,14 +1,16 @@ +(load "./scripts/keys.scm") + (define a 0) (define b (rl-load-texture)) (define (update) - (cond ((rl-is-key-down 262) (set! b (rl-load-texture))) ;; right - ((rl-is-key-down 263) (set! a (+ a 1))) ;; left - ((rl-is-key-down 264) (gc)) ;; down + (cond ((rl-is-key-down KEY_RIGHT) (set! b (rl-load-texture))) ;; right + ((rl-is-key-down KEY_LEFT) (set! a (+ a 1))) ;; left + ((rl-is-key-down KEY_DOWN) (gc)) ;; down ) ) (define (draw) (rl-draw-text (number->string a)) -; (rl-draw-texture b) + (rl-draw-texture b) ) -- cgit v1.2.3