From c41fb5abfeb7ff0d8067b662f7c871a5b0bb9a46 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 26 May 2024 19:49:11 -0400 Subject: [PATCH] Remove pks. --- game.scm | 9 ++------- modules/game/actors.scm | 1 - scripts/compile-map.scm | 4 ++-- 3 files changed, 4 insertions(+), 10 deletions(-) diff --git a/game.scm b/game.scm index d78f1e7..d284eff 100644 --- a/game.scm +++ b/game.scm @@ -219,7 +219,6 @@ (define (next-level!) (let ((idx (+ *level-idx* 1))) - (pk 'next-level idx) ;; TODO: Maybe show a little achievement popup when all gems ;; are collected? (when (with-goblins ($ (level-actor *level*) 'gem-collected?)) @@ -248,7 +247,6 @@ ;; Auto-save/load to local storage. (define (save-game!) - (pk 'save) (local-storage-set! "cirkoban-save" (call-with-output-string (lambda (port) @@ -263,7 +261,6 @@ ((idx gems) (set! *level-idx* idx) (set! *gems* gems) - (pk 'load *level-idx*) (load-level! *level-idx*) (media-play audio:bg-music))))) @@ -293,7 +290,7 @@ (match events (() (values)) ((event . rest) - (match (pk 'event event) + (match event (('bump x y) (play-sound-effect audio:bump)) (('push x y) @@ -726,7 +723,6 @@ (on-input-down 'confirm))))) (define (on-input-down input) - (pk 'input-down input) (match *state* ('play (match input @@ -760,8 +756,7 @@ (set-image-smoothing-enabled! context 0) (set! *canvas-scale* (exact->inexact scale)) (set! *canvas-width* (* game-width *canvas-scale*)) - (set! *canvas-height* (* game-height *canvas-scale*)) - (pk 'resize-canvas *canvas-scale* *canvas-width* *canvas-height*))) + (set! *canvas-height* (* game-height *canvas-scale*)))) (set-element-width! canvas (inexact->exact game-width)) (set-element-height! canvas (inexact->exact game-height)) diff --git a/modules/game/actors.scm b/modules/game/actors.scm index 9798e04..2289a6e 100644 --- a/modules/game/actors.scm +++ b/modules/game/actors.scm @@ -910,7 +910,6 @@ (match prev-pos (#(prev-x prev-y _) (let ((offset (vector (- x prev-x) (- y prev-y)))) - (pk 'collision! ($ obj 'type) ($ other 'type)) ($ other 'collide obj offset grid-info) ($ obj 'collide other offset grid-info) ;; If collision resolution displaced the other diff --git a/scripts/compile-map.scm b/scripts/compile-map.scm index ec33dd1..5ea2dcf 100644 --- a/scripts/compile-map.scm +++ b/scripts/compile-map.scm @@ -668,7 +668,7 @@ the default ORIENTATION value of 'orthogonal' is supported." ,(compile-tile-layer tile-map "background") ,(u8-list->bytevector (append - (pk 'tmap (compile-environment-layer tile-map "background")) - (pk 'ol (compile-object-layer tile-map "objects")))) + (compile-environment-layer tile-map "background") + (compile-object-layer tile-map "objects"))) collected-gem?)))))) (_ (error "file name expected")))