mirror of
https://github.com/open-goal/jak-project
synced 2026-07-10 23:22:17 -04:00
Hat Kid
6b3844bf99
4 missions to go! - `ctygenb-part` - `power-game` - `vinroom-part` - `vinroom-scenes` - `gungame-part` - `gungame-scenes` - `hiphog-obs` - `hiphog-part` - `hiphog-scenes` - `hover-nav-lpattack` - `king-rider` - `rubble-attack` - `rubble-obs` - `rubble-part` - `rubblea-init` - `rublcst-scenes` - `mood-funcs2` - `gun-dummy-art` - `gun-dummy-part` - `gun-dummy` - `gungame-data` - `gungame-manager` - `gungame-obs` - `blow-tower-data` - `blow-tower-extra` - `blow-tower-obs2` - `blow-tower-obs` - `blow-tower-part` - `blow-tower-script` - `blow-tower-shared` - `blow-tower-speech` - `cty-blow-tower`
70 lines
1.8 KiB
Common Lisp
Vendored
Generated
70 lines
1.8 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function rubblea-login
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun rubblea-login ((arg0 level))
|
|
(format 0 "rubblea-login~%")
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function rubblea-activate
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun rubblea-activate ((arg0 level))
|
|
(format 0 "rubblea-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*))
|
|
(if (and (nonzero? *nav-network*) *nav-network*)
|
|
(init-by-other! *nav-network* arg0 *lpattack-adjacency*)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function rubblea-deactivate
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun rubblea-deactivate ((arg0 level))
|
|
(format 0 "rubblea-deactivate~%")
|
|
(let ((v1-0 *traffic-info*))
|
|
(set! (-> v1-0 vehicle-level) (the-as level #f))
|
|
)
|
|
(vehicle-manager-kill)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function lpattack-login
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun lpattack-login ((arg0 level))
|
|
(set! *nav-network* (new 'loading-level 'nav-network))
|
|
(alloc-nav-network-for-level! *nav-network* 64 10)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function lpattack-logout
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun lpattack-logout ((arg0 level))
|
|
(set! *nav-network* (the-as nav-network 0))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
|
|
|
|
|