Drawing Guybrush

diff --git a/games/guybrush/guybrush.scm b/games/guybrush/guybrush.scm
new file mode 100644 (file)
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