Lightweight reset, little adjustements

1 files changed, 11 insertions, 3 deletions

diff --git a/turbo.scm b/turbo.scm
index 91d098f..15cae62 100644
--- a/turbo.scm
+++ b/turbo.scm
@@ -31,7 +31,9 @@
 (define player-max-speed 20)
 (define player-rotation 0)
 
-(define music-play? #f)
+(define level-difficulty 200)
+
+(define music-play? #t)
 (define music-res (load-audio "music.ogg"))
 (define music (make-source #:audio music-res #:loop? #t))
 
@@ -184,7 +186,7 @@
 					     (+ 1 (random road-num-lanes))))
 		 (set-vehicle-active! veh #f))
 	       (if (and (not (vehicle-active? veh))
-			(= 0 (random 200))
+			(= 0 (random level-difficulty))
 			(vehicle-has-spawn-space? veh))
 		   (set-vehicle-active! veh #t))))
 	 vehicles))))
@@ -225,7 +227,13 @@
    ((eq? key 'd)
        (set-vehicle-speed! player-car (min (+ (vehicle-speed player-car) 1) player-max-speed)))
    ((eq? key 'escape)
-       (abort-game))))
+       (abort-game))
+   ((and (eq? key 'return) game-over)
+    (set-vehicle-position! player-car initial-player-position)
+    (set-vehicle-speed! player-car (+ 1 player-min-speed))
+    (set! player-rotation 0)
+    ;; Reset all vehicles
+    (set! game-over #f))))
 
 (define (key-release key modifiers)
   (if (or (eq? key 'w) (eq? key 's))