mirror of
https://github.com/open-goal/jak-project
synced 2026-06-01 17:58:14 -04:00
Hat Kid
e2e5289788
- `pecker-ingame` - `des-bbush-tasks` - `des-burning-bush` - `des-bush-part` - `des-bush` - `mh-centipede` - `mh-centipede-part` - `mh-wasp` - `mh-wasp-part` - `needle-fish` - `des-bush-time-chase` - `timer-path` - `mission-squad-control-h` - `mh-bat` - `hover-nav-factoryd` - `hover-nav-factoryc` - `conveyor` - `fac-part` - `factory-part` - `factoryc-mood` - `factoryc-obs` - `factoryc-obs2` - `lfaccar-init` - `factory-boss-part` - `factory-boss-scenes` - `factory-boss-setup` - `factory-boss-states` - `factory-mood` - `factoryc-manager` - `lfacrm1-mood` - `lfacrm2-mood` - `missile-bot` - `sew-laser-turret` - `ai-task-h` - `ash-h` - `ash-shot` - `ash-states` - `ash-task` - `ash` - `bot-h` - `bot-states` - `bot` - `ash-oasis-course` - `oasis-defense` - `comb-field` - `comb-mood` - `comb-obs` - `comb-part` - `comb-scenes` - `comb-sentry` - `comb-travel` - `comba-init` - `combx-scenes` - `h-sled` - `destroy-dark-eco` - `fac-gunturret` - `fac-robotank-turret` - `fac-robotank` - `fac-tower` - `factory-h` - `factory-hud` - `factory-manager` - `factorya-init` - `ffight-projectile` - `ftank-projectile` - `fturret-projectile` - `h-warf` - `warf-projectile`
50 lines
1.2 KiB
Common Lisp
Vendored
Generated
50 lines
1.2 KiB
Common Lisp
Vendored
Generated
;;-*-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)
|
|
)
|
|
|
|
|
|
|
|
|