X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=games%2Fguybrush%2Fguybrush.scm;fp=games%2Fguybrush%2Fguybrush.scm;h=0000000000000000000000000000000000000000;hb=4cb735ffd3fddfdc53fd1b944756c6ec6616b819;hp=66e58e3844ddd47ecb69a11193029353380b901f;hpb=2eee3eb546a25305d548fcb331769be84fd3a38f;p=gacela.git

diff --git a/games/guybrush/guybrush.scm b/games/guybrush/guybrush.scm
deleted file mode 100644
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))
-