diff options
Diffstat (limited to 'turbo.scm')
| -rw-r--r-- | turbo.scm | 15 |
1 files changed, 9 insertions, 6 deletions
@@ -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) |