Guybrush moves with cursors left and right

diff --git a/games/guybrush/guybrush.scm b/games/guybrush/guybrush.scm
index 967c4de979bc69d39b91e67498dda4b8fcbc7e97..66e58e3844ddd47ecb69a11193029353380b901f 100644 (file)
--- a/games/guybrush/guybrush.scm
+++ b/games/guybrush/guybrush.scm
@@ -10,10 +10,14 @@
 (define-mob (guybrush
             (guy (load-texture "guybrush.png"))
             (x 0)
-            (y (- (/ (assoc-ref (get-game-properties) 'height) 2))))
+            (y (+ (- (/ (assoc-ref (get-game-properties) 'height) 2))
+                  (/ (assoc-ref (get-texture-properties guy) 'height) 2))))
+
+  (cond ((key? 'left) (set! x (- x 10))))
+  (cond ((key? 'right) (set! x (+ x 10))))
+
   (translate x y)
   (draw-texture guy))
 
 (show-mob (guybrush))
 
-;; Tengo que hacer una función para obtener propiedades de textura en video.scm
\ No newline at end of file