From: Javier Sancho <jsf@jsancho.org>
Date: Sun, 13 May 2012 07:49:47 +0000 (+0200)
Subject: Drawing Guybrush
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=d4becd45803a1d5f1778fdc1325ace0a094f1890;p=gacela.git

Drawing Guybrush
---

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