]> git.jsancho.org Git - gacela.git/blob - games/guybrush/guybrush.scm
967c4de979bc69d39b91e67498dda4b8fcbc7e97
[gacela.git] / games / guybrush / guybrush.scm
1 #!/usr/bin/guile \
2 -e gacela-script -s
3 !#
4
5 (use-modules (gacela gacela))
6 (init-gacela)
7
8 (set-game-properties! #:title "Guybrush")
9
10 (define-mob (guybrush
11              (guy (load-texture "guybrush.png"))
12              (x 0)
13              (y (- (/ (assoc-ref (get-game-properties) 'height) 2))))
14   (translate x y)
15   (draw-texture guy))
16
17 (show-mob (guybrush))
18
19 ;; Tengo que hacer una funciĆ³n para obtener propiedades de textura en video.scm