Fix vehicle spawning code and different lane speeds

1 files changed, 9 insertions, 6 deletions

diff --git a/turbo.scm b/turbo.scm
index 2611e19..92c5103 100644
--- a/turbo.scm
+++ b/turbo.scm
@@ -31,7 +31,7 @@
 (define player-max-speed 20)
 (define player-rotation 0)
 
-(define level-difficulty 200)
+(define level-difficulty 50)
 
 (define music-play? #t)
 (define music-res (load-audio "music.ogg"))
@@ -59,7 +59,15 @@
 		  (make-vehicle-list vehicle-list (+ tile-ref 1))))
       vehicle-list))
 
+(define (vehicle-reset-ahead veh)
+  (let ((lane-num (random road-num-lanes)))
+    (set-vehicle-position! veh (calculate-vehicle-position
+				(+ 1 lane-num)))
+    (set-vehicle-speed! veh (+ player-min-speed lane-num) )
+    (set-vehicle-active! veh #f)))
+
 (define vehicles (make-vehicle-list (list) 0))
+(for-each vehicle-reset-ahead vehicles)
 
 ;; Important: set one vehicle active to bootstrap the game ????
 ;; TODO: nope, bug here somewhere!
@@ -159,11 +167,6 @@
   (and vehicle-active?
        (>= (- 0 vehicle-length) (vec2-x (vehicle-position veh)))))
 
-(define (vehicle-reset-ahead veh)
-  (set-vehicle-position! veh (calculate-vehicle-position
-			      (+ 1 (random road-num-lanes))))
-  (set-vehicle-active! veh #f))
-
 ;;;; Chickadee hooks
 
 (set-source-volume! music 0.5)