(no commit message)

[gacela.git] / game.lisp

diff --git a/game.lisp b/game.lisp
index c0cbbedf2f70b900611629b63be957899bd387d8..cfb1f5588103648f4de1082011ed0343e4114315 100755 (executable)
--- a/game.lisp
+++ b/game.lisp
@@ -1,21 +1,33 @@
-(show-mob (make-mob :x 0 :y 0 :image (filled-rect 5 420) :tags '(wall)))
-(show-mob (make-mob :x 635 :y 0 :image (filled-rect 5 420) :tags '(wall)))
-(show-mob (make-mob :x 0 :y 0 :image (filled-rect 640 5) :tags '(wall)))
+;(show-mob (make-mob :x 0 :y 0 :image (filled-rect 5 420) :tags '(wall)))
+;(show-mob (make-mob :x 635 :y 0 :image (filled-rect 5 420) :tags '(wall)))
+;(show-mob (make-mob :x 0 :y 0 :image (filled-rect 640 5) :tags '(wall)))
 
-(show-mob (make-mob :x 280 :y 420 :image (filled-rect 80 20) :tags '(wall)
-                   :logic (movement-with-cursors :xvel 200 :yvel 0)))
+;(show-mob (make-mob :x 280 :y 420 :image (filled-rect 80 20) :tags '(wall)
+;                  :logic (movement-with-cursors :xvel 200 :yvel 0)))
 
-(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)))))
 
-(run-game)
-(quit-game)
+;(run-game)
+;(quit-game)
+
+(let ((r 0))
+  (gacela::makemob cuadrado
+                  :render (lambda ()
+                            (gacela::rotate 0 0 r)
+                            (incf r 5)
+                            (gacela::draw-cube :size 40))))
+
+;(cuadrado :on)
+(gacela::start-server 1984)
+
+(gacela::run-game "Prueba Mobs")