From 526f281cc2d1da11d0104de510c5bc301f605ddd Mon Sep 17 00:00:00 2001 From: Henrique Alves Date: Fri, 26 Apr 2024 14:53:39 +0300 Subject: update --- scripts/keys.scm | 3 +++ scripts/main.scm | 10 ++++++---- 2 files changed, 9 insertions(+), 4 deletions(-) create mode 100644 scripts/keys.scm (limited to 'scripts') diff --git a/scripts/keys.scm b/scripts/keys.scm new file mode 100644 index 0000000..963fb41 --- /dev/null +++ b/scripts/keys.scm @@ -0,0 +1,3 @@ +(define KEY_RIGHT 262) +(define KEY_LEFT 263) +(define KEY_DOWN 264) 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