-(let ((xvel 100) (yvel -100))
- (show-mob (make-mob :x 300 :y 200 :image (filled-circle 7)
- :logic (progn
- (cond ((> y 480) (setq x 300 y 200 xvel 100 yvel -100))
- (t (let ((c (collision '(wall))))
- (cond ((null c) nil)
- ((= c (neg (/ pi 2))) (setq yvel (neg (- yvel 10))))
- ((= c (/ pi 2)) (setq yvel (neg (+ yvel 10))))
- ((= c 0) (setq xvel (neg (+ xvel 10))))
- ((= c pi) (setq xvel (neg (- xvel 10))))))))
- (movement :xvel xvel :yvel yvel)))))
+;(let ((xvel 100) (yvel -100))
+; (show-mob (make-mob :x 300 :y 200 :image (filled-circle 7)
+; :logic (progn
+; (cond ((> y 480) (setq x 300 y 200 xvel 100 yvel -100))
+; (t (let ((c (collision '(wall))))
+; (cond ((null c) nil)
+; ((= c (neg (/ pi 2))) (setq yvel (neg (- yvel 10))))
+; ((= c (/ pi 2)) (setq yvel (neg (+ yvel 10))))
+; ((= c 0) (setq xvel (neg (+ xvel 10))))
+; ((= c pi) (setq xvel (neg (- xvel 10))))))))
+; (movement :xvel xvel :yvel yvel)))))