debugging...

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)

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

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)