;;-*-Lisp-*-
(in-package goal)

;; definition for function comba-login
;; WARN: Return type mismatch int vs none.
(defun comba-login ((arg0 level))
  (format 0 "comba-login~%")
  0
  (none)
  )

;; definition for function comba-activate
;; WARN: Return type mismatch int vs none.
(defun comba-activate ((arg0 level))
  (format 0 "comba-activate~%")
  (let ((v1-0 *traffic-info*)
        (a0-2 (-> arg0 name))
        )
    (set! (-> v1-0 vehicle-level) arg0)
    (set! (-> v1-0 vehicle-levels 10) a0-2)
    (set! (-> v1-0 vehicle-levels 12) a0-2)
    (set! (-> v1-0 vehicle-levels 13) a0-2)
    (set! (-> v1-0 vehicle-levels 14) a0-2)
    (set! (-> v1-0 vehicle-levels 15) a0-2)
    (set! (-> v1-0 vehicle-levels 16) a0-2)
    (set! (-> v1-0 vehicle-levels 17) a0-2)
    (set! (-> v1-0 vehicle-levels 18) a0-2)
    (set! (-> v1-0 vehicle-levels 19) a0-2)
    )
  (vehicle-manager-start (the-as process *entity-pool*))
  0
  (none)
  )

;; definition for function comba-deactivate
;; WARN: Return type mismatch int vs none.
(defun comba-deactivate ((arg0 level))
  (format 0 "comba-deactivate~%")
  (let ((v1-0 *traffic-info*))
    (set! (-> v1-0 vehicle-level) (the-as level #f))
    )
  (vehicle-manager-kill)
  0
  (none)
  )