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

[feat] can restart game

Browse source
This commit is contained in:
SouthFox 2024-05-27 06:25:54 +08:00
parent aa251bb6e1
commit ff6edf7387
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
game.scm
View file

@ -53,16 +53,18 @@
(define apple (make-gelement (make-gelement-type #t "apple") '(4 5))) (define apple (make-gelement (make-gelement-type #t "apple") '(4 5)))
(define air (make-gelement (make-gelement-type #t "") '())) (define air (make-gelement (make-gelement-type #t "") '()))
(define left-parenthes (make-parentheses 'left (cons 0 2) '(+ 1 2))) (define (make-level-1) (make-level
(define right-parenthes (make-parentheses 'right (cons 4 2) '())) (vector
(vector air air air air air)
(define ppp (vector (vector air air air air air)
(vector wall wall wall wall wall) (vector wall wall wall wall wall)
(vector air air air air air) (vector air air air air air)
(vector wall wall wall wall wall) (vector wall wall wall wall wall)
(vector air air air air air))) (vector air air air air air))
(make-parentheses 'left (cons 0 2) '(+ 1 2))
(make-parentheses 'right (cons 4 2) '())
"Hello World!"))
(define *level* (make-level ppp left-parenthes right-parenthes "Hello World!")) (define *level* (make-level-1))
(define (set-grid! x y val) (define (set-grid! x y val)
(vector-set! (vector-ref (level-grid *level*) y) x val)) (vector-set! (vector-ref (level-grid *level*) y) x val))
@ -177,6 +179,9 @@
(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 "KeyR")
(set! *level* (make-level-1))
(request-animation-frame draw-callback))
((string=? key "KeyA") ((string=? key "KeyA")
(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") ((string=? key "KeyD")