southfox/is-you
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[feat] move pareneheses and eval when collide

Browse source
This commit is contained in:
SouthFox 2024-05-27 01:12:13 +08:00
parent 16e5dc1cdf
commit 23ec1d9838
1 changed files with 28 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
game.scm
View file

@ -52,10 +52,10 @@
(define air (make-gelement (make-gelement-type #t "air") '())) (define air (make-gelement (make-gelement-type #t "air") '()))
(define left-parenthes (make-parentheses 'left (cons 0 0) '(+ 1 2 3))) (define left-parenthes (make-parentheses 'left (cons 0 0) '(+ 1 2 3)))
(define right-parenthes (make-parentheses 'right (cons 1 1) '(+ 1 2 3))) (define right-parenthes (make-parentheses 'right (cons 1 1) '(1 2 3)))
(define ppp (vector (vector apple apple apple apple wall) (define ppp (vector (vector apple apple apple apple wall)
(vector wall wall wall wall wall) (vector air air air air air)
(vector apple wall wall wall wall) (vector apple wall wall wall wall)
(vector wall #nil wall wall wall) (vector wall #nil wall wall wall)
(vector wall wall wall wall wall))) (vector wall wall wall wall wall)))
@ -79,11 +79,11 @@
(define (collide-gelement! x y parenthes) (define (collide-gelement! x y parenthes)
(dprint "x" x) (dprint "x" x)
(dprint "y" y) (dprint "y" y)
(dprint "content" (parentheses-content parenthes))
(dprint "par pos" (parentheses-pos parenthes))
(if (and (>= x 0) (>= y 0)) (if (and (>= x 0) (>= y 0))
(let ((e (vector-ref (vector-ref (level-grid *level*) y) x)) (let ((e (vector-ref (vector-ref (level-grid *level*) y) x))
(len (vector-length (level-grid *level*)))) (len (vector-length (level-grid *level*))))
(dprint "content" (parentheses-content parenthes))
(dprint "par pos" (parentheses-pos parenthes))
(if (and (<= x len) (<= y len)) (if (and (<= x len) (<= y len))
(if (gelement-interact? (gelement-type e)) (if (gelement-interact? (gelement-type e))
(begin (begin
@ -99,9 +99,10 @@
(let ((left-parenthes (level-left-parenthes level)) (let ((left-parenthes (level-left-parenthes level))
(right-parenthes (level-right-parenthes level))) (right-parenthes (level-right-parenthes level)))
(if (equal? (parentheses-pos left-parenthes) (parentheses-pos right-parenthes)) (if (equal? (parentheses-pos left-parenthes) (parentheses-pos right-parenthes))
(eval-parenthes (dprint "eval!"
(append (parentheses-content left-parenthes) (eval-parenthes
(parentheses-content right-parenthes)))))) (append (parentheses-content left-parenthes)
(parentheses-content right-parenthes)))))))
;; Draw ;; Draw
(define (draw prev-time) (define (draw prev-time)
(clear-rect context 0.0 0.0 game-width game-height) (clear-rect context 0.0 0.0 game-width game-height)
@ -118,21 +119,29 @@
(request-animation-frame draw-callback) (request-animation-frame draw-callback)
;; Input ;; Input
(define key:left "ArrowLeft")
(define key:right "ArrowRight")
(define (on-key-down event) (define (on-key-down event)
(let ((key (keyboard-event-code event))) (let ((key (keyboard-event-code event)))
(cond (cond
((string=? key key:left) ((string=? key "KeyA")
(dprint "key:" key) (collide-gelement! (- (car (parentheses-pos (level-left-parenthes *level*))) 1) (cdr (parentheses-pos (level-left-parenthes *level*))) (level-left-parenthes *level*)))
(collide-gelement! (- (car (parentheses-pos (level-left-parenthes *level*))) 1) (cdr (parentheses-pos (level-left-parenthes *level*))) (level-left-parenthes *level*)) ((string=? key "KeyD")
(set! *element-x* (- *element-x* 10))) (collide-gelement! (+ (car (parentheses-pos (level-left-parenthes *level*))) 1) (cdr (parentheses-pos (level-left-parenthes *level*))) (level-left-parenthes *level*)))
((string=? key key:right) ((string=? key "KeyW")
(dprint "key:" key) (collide-gelement! (car (parentheses-pos (level-left-parenthes *level*))) (- (cdr (parentheses-pos (level-left-parenthes *level*))) 1) (level-left-parenthes *level*)))
(set! *element-x* (+ *element-x* 10)) ((string=? key "KeyS")
(collide-gelement! (+ (car (parentheses-pos (level-left-parenthes *level*))) 1) (cdr (parentheses-pos (level-left-parenthes *level*))) (level-left-parenthes *level*)) (collide-gelement! (car (parentheses-pos (level-left-parenthes *level*))) (+ (cdr (parentheses-pos (level-left-parenthes *level*))) 1) (level-left-parenthes *level*)))
)))) ((string=? key "ArrowLeft")
(collide-gelement! (- (car (parentheses-pos (level-right-parenthes *level*))) 1) (cdr (parentheses-pos (level-right-parenthes *level*))) (level-right-parenthes *level*)))
((string=? key "ArrowRight")
(collide-gelement! (+ (car (parentheses-pos (level-right-parenthes *level*))) 1) (cdr (parentheses-pos (level-right-parenthes *level*))) (level-right-parenthes *level*)))
((string=? key "ArrowUp")
(collide-gelement! (car (parentheses-pos (level-right-parenthes *level*))) (- (cdr (parentheses-pos (level-right-parenthes *level*))) 1) (level-right-parenthes *level*)))
((string=? key "ArrowDown")
(collide-gelement! (car (parentheses-pos (level-right-parenthes *level*))) (+ (cdr (parentheses-pos (level-right-parenthes *level*))) 1) (level-right-parenthes *level*)))
)
(collide-pareneheses! *level*)
)
)
(add-event-listener! (current-document) "keydown" (add-event-listener! (current-document) "keydown"
(procedure->external on-key-down)) (procedure->external on-key-down))