FoAM/groworld
12
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

debugging...

Browse source
This commit is contained in:
Dave Griffiths 2009-07-27 09:36:13 +01:00
parent 9e3bd2c1a0
commit 409d3c6690
3 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plant-eyes/jabberer.ss
View file

@ -5,7 +5,7 @@
; a class which wraps the xmpp in a thread and allows messages to be picked up ; a class which wraps the xmpp in a thread and allows messages to be picked up
; and sent by the game ; and sent by the game
(define debug-netloop #f) (define debug-netloop #t)
(define jabberer% (define jabberer%
(class object% (class object%
@ -17,7 +17,7 @@
(incoming '()) (incoming '())
(outgoing '()) (outgoing '())
(thr 0) (thr 0)
(debug-jab #f)) (debug-jab #t))
(define/public (get-incoming) (define/public (get-incoming)
incoming) incoming)

2
plant-eyes/logic.ss
View file

@ -476,7 +476,7 @@
(vmul (srndvec) pickup-dist-radius))))) (vmul (srndvec) pickup-dist-radius)))))
(define/public (add-player plant) (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 (send-message 'player-plant (list
(list 'plant-id (send plant get-id)) (list 'plant-id (send plant get-id))
(list 'pos (send plant get-pos)) (list 'pos (send plant get-pos))

1
plant-eyes/view.ss
View file

@ -330,7 +330,6 @@
(opacity 0.6) (opacity 0.6)
(colour col) (colour col)
(hint-depth-sort) (hint-depth-sort)
(printf "size=~a~n" size)
(scale (* 0.12 size)) (scale (* 0.12 size))
(when wire-mode (when wire-mode
(hint-none) (hint-none)