Remove pks.

This commit is contained in:
David Thompson 2024-05-26 19:49:11 -04:00
parent 2ce709b95b
commit c41fb5abfe
3 changed files with 4 additions and 10 deletions

View file

@ -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))

View file

@ -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

View file

@ -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")))