(define-module (turbo vehicles)
  #:use-module (srfi srfi-9)
  #:use-module (chickadee math vector)
  #:use-module (chickadee math rect)
  #:export (make-vehicle
	    make-inactive-vehicle
	    vehicle-height
	    vehicle-length
	    vehicle-steering-speed
	    vehicle-id
	    vehicle-sprite
	    vehicle-position
	    vehicle-speed
	    vehicle-active?
	    vehicle-inactive?
	    set-vehicle-position!
	    set-vehicle-speed!
	    set-vehicle-active!
	    vehicle-hitbox
	    vehicle-safety-distance?
	    vehicle-speed-
	    vehicle-move!
	    vehicle=))

(define vehicle-height 44)
(define vehicle-length 100)
(define vehicle-steering-speed 4.0)

(define-record-type <vehicle>
  (make-vehicle id sprite position speed active?)
  vechicle?
  (id vehicle-id)
  (sprite vehicle-sprite)
  (position vehicle-position set-vehicle-position!)
  (speed vehicle-speed set-vehicle-speed!)
  (active? vehicle-active? set-vehicle-active!))

(define (make-inactive-vehicle id tile initial-position)
  (make-vehicle id tile initial-position 4 #f))

(define (vehicle-hitbox vehicle)
  (rect (vec2-x (vehicle-position vehicle))
	(vec2-y (vehicle-position vehicle))
	vehicle-length
	vehicle-height))

(define (vehicle-safety-distance? vehicle1 vehicle2)
  (let ((vehicle1-x (vec2-x (vehicle-position vehicle1)))
	(vehicle2-x (vec2-x (vehicle-position vehicle2))))
    (> (abs (- vehicle2-x vehicle1-x))
       (+ (* 3 vehicle-length)))))

(define (vehicle-speed- vehicle1 vehicle2)
  (- (vehicle-speed vehicle1) (vehicle-speed vehicle2)))

(define (vehicle-move! vehicle translation)
  (set-vehicle-position!
   vehicle
   (vec2+ (vehicle-position vehicle) translation)))

(define (vehicle-inactive? vehicle)
  (not (vehicle-active? vehicle)))

(define (vehicle= vehicle1 vehicle2)
  (= (vehicle-id vehicle1) (vehicle-id vehicle2)))