From 0a89a84956311f17648bb443e429dab25d35f0cc Mon Sep 17 00:00:00 2001
From: henriquelalves <henriquelalves@gmail.com>
Date: Wed, 15 May 2024 11:29:28 +0300
Subject: removed skeleton repl
---
scripts/main.scm | 50 +++++++++++++++++++++++++++++---------------------
scripts/prompt.scm | 2 +-
2 files changed, 30 insertions(+), 22 deletions(-)
(limited to 'scripts')
diff --git a/scripts/main.scm b/scripts/main.scm
index af6b550..5dcbe10 100644
--- a/scripts/main.scm
+++ b/scripts/main.scm
@@ -4,29 +4,37 @@
(load "./scripts/gol.scm")
(define camera-offset (make-point))
+(define space-pressed #f)
(define (update)
- ;; (prompt-update) ;; it's eating the input!
- (if (rl-is-key-down KEY_DOWN)
- (set! (point-y camera-offset) (+ (point-y camera-offset) 2))
- )
-
- (if (rl-is-key-down KEY_UP)
- (set! (point-y camera-offset) (+ (point-y camera-offset) -2))
- )
-
- (if (rl-is-key-down KEY_LEFT)
- (set! (point-x camera-offset) (+ (point-x camera-offset) -2))
- )
-
- (if (rl-is-key-down KEY_RIGHT)
- (set! (point-x camera-offset) (+ (point-x camera-offset) 2))
- )
-
- (if (eq? (rl-get-key-pressed) KEY_SPACE)
- (run-step)
- )
-
+ (prompt-update)
+
+ (cond ((not prompt-active)
+ (if (rl-is-key-down KEY_DOWN)
+ (set! (point-y camera-offset) (+ (point-y camera-offset) 2))
+ )
+
+ (if (rl-is-key-down KEY_UP)
+ (set! (point-y camera-offset) (+ (point-y camera-offset) -2))
+ )
+
+ (if (rl-is-key-down KEY_LEFT)
+ (set! (point-x camera-offset) (+ (point-x camera-offset) -2))
+ )
+
+ (if (rl-is-key-down KEY_RIGHT)
+ (set! (point-x camera-offset) (+ (point-x camera-offset) 2))
+ )
+
+ (cond ((and (rl-is-key-down KEY_SPACE) (not space-pressed))
+ (set! space-pressed #t)
+ (run-step))
+ )
+
+ (if (not (rl-is-key-down KEY_SPACE))
+ (set! space-pressed #f)
+ )
+ ))
)
(define (draw)
diff --git a/scripts/prompt.scm b/scripts/prompt.scm
index f3fe6c9..3440b28 100644
--- a/scripts/prompt.scm
+++ b/scripts/prompt.scm
@@ -6,7 +6,7 @@
(let ((key-pressed (rl-get-key-pressed)))
- (if (or (eq? key-pressed 161) (eq? key-pressed 96))
+ (if (eq? key-pressed KEY_F1)
(set! prompt-active (not prompt-active))
)
--
cgit v1.2.3