X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=games%2Ftetris%2Ftetris.scm;h=ce7e774291506ba926efda8dc8de39add47da8e1;hb=1e23ab1af645ad52cdbb0fde99d01fa21226f1cc;hp=d27a08608fd0bb0393b22e83d585d8476d56a958;hpb=d136d708eebea09de72a9c946302aaef94a163e4;p=gacela.git

diff --git a/games/tetris/tetris.scm b/games/tetris/tetris.scm
index d27a086..ce7e774 100644
--- a/games/tetris/tetris.scm
+++ b/games/tetris/tetris.scm
@@ -1,3 +1,11 @@
+#!/usr/bin/guile \
+-e gacela-script -s
+!#
+
+(use-modules (gacela gacela)
+	     (gacela widgets timer))
+(init-gacela)
+
 (set-game-properties! #:title "Gacela Tetris" #:fps 15)
 
 (define (tetramine-i)
@@ -119,7 +127,7 @@
 	  (set! points (+ points (* (more-lines-better l) 10)))
 	  (set! lines (+ lines l)))))
 
-(define game #f)
+(define game-func #f)
 (define display-game-over #f)
 (define tetramine #f)
 
@@ -131,7 +139,7 @@
       (font (load-font "lazy.ttf" #:size 20))
       (game-over #f))
 
-  (set! game
+  (set! game-func
 	(lambda ()
 	  (if game-over (display-game-over) (tetramine))))
 
@@ -183,8 +191,8 @@
 (let ((frame 0.0) (fps (make-timer)) (update (make-timer)))
   (start-timer update)
   (start-timer fps)
-  (run-game
-   (game)
+  (game
+   (game-func)
    (set! frame (+ frame 1))
    (cond ((> (get-time update) 1000)
 	  (display (/ frame (/ (get-time fps) 1000.0)))