diff --git a/plant-eyes/jabberer.ss b/plant-eyes/jabberer.ss index 9bb0dd5..c966309 100644 --- a/plant-eyes/jabberer.ss +++ b/plant-eyes/jabberer.ss @@ -5,7 +5,7 @@ ; a class which wraps the xmpp in a thread and allows messages to be picked up ; and sent by the game -(define debug-netloop #f) +(define debug-netloop #t) (define jabberer% (class object% @@ -17,7 +17,7 @@ (incoming '()) (outgoing '()) (thr 0) - (debug-jab #f)) + (debug-jab #t)) (define/public (get-incoming) incoming) diff --git a/plant-eyes/logic.ss b/plant-eyes/logic.ss index c37d4fc..a910785 100644 --- a/plant-eyes/logic.ss +++ b/plant-eyes/logic.ss @@ -476,7 +476,7 @@ (vmul (srndvec) pickup-dist-radius))))) (define/public (add-player plant) - (printf "new player plant added~n") + (printf "new player plant added ~a~n" (send plant get-id)) (send-message 'player-plant (list (list 'plant-id (send plant get-id)) (list 'pos (send plant get-pos)) diff --git a/plant-eyes/view.ss b/plant-eyes/view.ss index 6e172dc..7dabb48 100644 --- a/plant-eyes/view.ss +++ b/plant-eyes/view.ss @@ -330,7 +330,6 @@ (opacity 0.6) (colour col) (hint-depth-sort) - (printf "size=~a~n" size) (scale (* 0.12 size)) (when wire-mode (hint-none)