Initialise gamepad, load tilemaps

1 files changed, 7 insertions, 3 deletions

diff --git a/src/game.scm b/src/game.scm
index 28211e9..a7f1695 100644
--- a/src/game.scm
+++ b/src/game.scm
@@ -19,7 +19,7 @@
 (define +vsync?+ (member "--vsync" (command-line-arguments)))
 
 (sdl2:set-main-ready!)
-(sdl2:init! '(video))
+(sdl2:init! '(video joystick))
 (ttf:init!)
 (img:init! '(png))
 
@@ -45,6 +45,10 @@
 
 (define *font* (ttf:open-font "DejaVuSans.ttf" 12))
 (define *text-color* (sdl2:make-color 255 255 255))
+(pp (sdl2:num-joysticks))
+(define *joystick* (if (> (sdl2:num-joysticks) 0)
+		       (sdl2:joystick-open! 0)
+		       #f))
 
 (set! (sdl2:render-draw-color *renderer*) +background-color+)
 (sdl2:render-clear! *renderer*)
@@ -67,7 +71,7 @@
 
 	  (sdl2:delay! 10)))
 
-(format #t "chicken env: ~a" (get-environment-variable "CHICKEN_ENV"))
+(sdl2:joystick-close *joystick*)
 
-(format #t "hello world")
+(format #t "Bye!\n")