Remove pks.
This commit is contained in:
parent
2ce709b95b
commit
c41fb5abfe
3 changed files with 4 additions and 10 deletions
9
game.scm
9
game.scm
|
@ -219,7 +219,6 @@
|
||||||
|
|
||||||
(define (next-level!)
|
(define (next-level!)
|
||||||
(let ((idx (+ *level-idx* 1)))
|
(let ((idx (+ *level-idx* 1)))
|
||||||
(pk 'next-level idx)
|
|
||||||
;; TODO: Maybe show a little achievement popup when all gems
|
;; TODO: Maybe show a little achievement popup when all gems
|
||||||
;; are collected?
|
;; are collected?
|
||||||
(when (with-goblins ($ (level-actor *level*) 'gem-collected?))
|
(when (with-goblins ($ (level-actor *level*) 'gem-collected?))
|
||||||
|
@ -248,7 +247,6 @@
|
||||||
|
|
||||||
;; Auto-save/load to local storage.
|
;; Auto-save/load to local storage.
|
||||||
(define (save-game!)
|
(define (save-game!)
|
||||||
(pk 'save)
|
|
||||||
(local-storage-set! "cirkoban-save"
|
(local-storage-set! "cirkoban-save"
|
||||||
(call-with-output-string
|
(call-with-output-string
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
|
@ -263,7 +261,6 @@
|
||||||
((idx gems)
|
((idx gems)
|
||||||
(set! *level-idx* idx)
|
(set! *level-idx* idx)
|
||||||
(set! *gems* gems)
|
(set! *gems* gems)
|
||||||
(pk 'load *level-idx*)
|
|
||||||
(load-level! *level-idx*)
|
(load-level! *level-idx*)
|
||||||
(media-play audio:bg-music)))))
|
(media-play audio:bg-music)))))
|
||||||
|
|
||||||
|
@ -293,7 +290,7 @@
|
||||||
(match events
|
(match events
|
||||||
(() (values))
|
(() (values))
|
||||||
((event . rest)
|
((event . rest)
|
||||||
(match (pk 'event event)
|
(match event
|
||||||
(('bump x y)
|
(('bump x y)
|
||||||
(play-sound-effect audio:bump))
|
(play-sound-effect audio:bump))
|
||||||
(('push x y)
|
(('push x y)
|
||||||
|
@ -726,7 +723,6 @@
|
||||||
(on-input-down 'confirm)))))
|
(on-input-down 'confirm)))))
|
||||||
|
|
||||||
(define (on-input-down input)
|
(define (on-input-down input)
|
||||||
(pk 'input-down input)
|
|
||||||
(match *state*
|
(match *state*
|
||||||
('play
|
('play
|
||||||
(match input
|
(match input
|
||||||
|
@ -760,8 +756,7 @@
|
||||||
(set-image-smoothing-enabled! context 0)
|
(set-image-smoothing-enabled! context 0)
|
||||||
(set! *canvas-scale* (exact->inexact scale))
|
(set! *canvas-scale* (exact->inexact scale))
|
||||||
(set! *canvas-width* (* game-width *canvas-scale*))
|
(set! *canvas-width* (* game-width *canvas-scale*))
|
||||||
(set! *canvas-height* (* game-height *canvas-scale*))
|
(set! *canvas-height* (* game-height *canvas-scale*))))
|
||||||
(pk 'resize-canvas *canvas-scale* *canvas-width* *canvas-height*)))
|
|
||||||
|
|
||||||
(set-element-width! canvas (inexact->exact game-width))
|
(set-element-width! canvas (inexact->exact game-width))
|
||||||
(set-element-height! canvas (inexact->exact game-height))
|
(set-element-height! canvas (inexact->exact game-height))
|
||||||
|
|
|
@ -910,7 +910,6 @@
|
||||||
(match prev-pos
|
(match prev-pos
|
||||||
(#(prev-x prev-y _)
|
(#(prev-x prev-y _)
|
||||||
(let ((offset (vector (- x prev-x) (- y prev-y))))
|
(let ((offset (vector (- x prev-x) (- y prev-y))))
|
||||||
(pk 'collision! ($ obj 'type) ($ other 'type))
|
|
||||||
($ other 'collide obj offset grid-info)
|
($ other 'collide obj offset grid-info)
|
||||||
($ obj 'collide other offset grid-info)
|
($ obj 'collide other offset grid-info)
|
||||||
;; If collision resolution displaced the other
|
;; If collision resolution displaced the other
|
||||||
|
|
|
@ -668,7 +668,7 @@ the default ORIENTATION value of 'orthogonal' is supported."
|
||||||
,(compile-tile-layer tile-map "background")
|
,(compile-tile-layer tile-map "background")
|
||||||
,(u8-list->bytevector
|
,(u8-list->bytevector
|
||||||
(append
|
(append
|
||||||
(pk 'tmap (compile-environment-layer tile-map "background"))
|
(compile-environment-layer tile-map "background")
|
||||||
(pk 'ol (compile-object-layer tile-map "objects"))))
|
(compile-object-layer tile-map "objects")))
|
||||||
collected-gem?))))))
|
collected-gem?))))))
|
||||||
(_ (error "file name expected")))
|
(_ (error "file name expected")))
|
||||||
|
|
Loading…
Add table
Reference in a new issue