Preparing new version 0.6

[gacela.git] / games / guybrush / guybrush.scm

diff --git a/games/guybrush/guybrush.scm b/games/guybrush/guybrush.scm
deleted file mode 100644 (file)
index 66e58e3..0000000
--- a/games/guybrush/guybrush.scm
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/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))
-                  (/ (assoc-ref (get-texture-properties guy) 'height) 2))))
-
-  (cond ((key? 'left) (set! x (- x 10))))
-  (cond ((key? 'right) (set! x (+ x 10))))
-
-  (translate x y)
-  (draw-texture guy))
-
-(show-mob (guybrush))
-