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