From d4becd45803a1d5f1778fdc1325ace0a094f1890 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sun, 13 May 2012 09:49:47 +0200
Subject: [PATCH] Drawing Guybrush

---
 games/guybrush/guybrush.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 games/guybrush/guybrush.scm

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
-- 
2.39.5