diff options
Diffstat (limited to 'turbo/vehicles.scm')
| -rw-r--r-- | turbo/vehicles.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/turbo/vehicles.scm b/turbo/vehicles.scm index 68d6ced..940011e 100644 --- a/turbo/vehicles.scm +++ b/turbo/vehicles.scm @@ -18,8 +18,9 @@ set-vehicle-active! vehicle-hitbox vehicle-safety-distance? - vehicle-speed-diff - vehicle-move!)) + vehicle-speed- + vehicle-move! + vehicle=)) (define vehicle-height 45) (define vehicle-length 100) @@ -49,8 +50,8 @@ (> (abs (- vehicle2-x vehicle1-x)) (+ (* 3 vehicle-length))))) -(define (vehicle-speed-diff vehicle1 vehicle2) - (abs (- (vehicle-speed vehicle1) (vehicle-speed vehicle2)))) +(define (vehicle-speed- vehicle1 vehicle2) + (- (vehicle-speed vehicle1) (vehicle-speed vehicle2))) (define (vehicle-move! vehicle translation) (set-vehicle-position! @@ -59,3 +60,6 @@ (define (vehicle-inactive? vehicle) (not (vehicle-active? vehicle))) + +(define (vehicle= vehicle1 vehicle2) + (= (vehicle-id vehicle1) (vehicle-id vehicle2))) |