X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=games%2Fguybrush%2Fguybrush.scm;fp=games%2Fguybrush%2Fguybrush.scm;h=967c4de979bc69d39b91e67498dda4b8fcbc7e97;hb=d4becd45803a1d5f1778fdc1325ace0a094f1890;hp=0000000000000000000000000000000000000000;hpb=c7f30b42f3c1d53f26a48c8bbcdea9aab608d306;p=gacela.git

diff --git a/games/guybrush/guybrush.scm b/games/guybrush/guybrush.scm
new file mode 100644
index 0000000..967c4de
--- /dev/null
+++ b/games/guybrush/guybrush.scm
@@ -0,0 +1,19 @@
+#!/usr/bin/guile \
+-e gacela-script -s
+!#
+
+(use-modules (gacela gacela))
+(init-gacela)
+
+(set-game-properties! #:title "Guybrush")
+
+(define-mob (guybrush
+	     (guy (load-texture "guybrush.png"))
+	     (x 0)
+	     (y (- (/ (assoc-ref (get-game-properties) 'height) 2))))
+  (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