2022-06-30 01:22:51 -04:00
|
|
|
;;-*-Lisp-*-
|
|
|
|
(in-package goal)
|
|
|
|
|
|
|
|
;; name: generic-obs-h.gc
|
|
|
|
;; name in dgo: generic-obs-h
|
|
|
|
;; dgos: ENGINE, GAME
|
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(defenum manipy-options
|
|
|
|
:bitfield #t
|
|
|
|
:type uint32
|
2022-11-12 17:56:07 -05:00
|
|
|
(mo-0 0)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2022-10-29 15:22:57 -04:00
|
|
|
(declare-type part-tracker process)
|
|
|
|
(declare-type manipy process-drawable)
|
2022-11-12 17:56:07 -05:00
|
|
|
(declare-type sparticle-launch-group basic)
|
|
|
|
(define-extern part-tracker-init (function sparticle-launch-group time-frame (function part-tracker none) (pointer process-drawable) process matrix none :behavior part-tracker))
|
|
|
|
(define-extern manipy-init (function vector entity-actor skeleton-group vector object none :behavior manipy))
|
|
|
|
(define-extern lightning-tracker-init (function lightning-spec time-frame symbol process-drawable vector vector none :behavior lightning-tracker))
|
2022-09-27 19:44:20 -04:00
|
|
|
(define-extern birth-pickup-at-point (function vector pickup-type float symbol process-tree fact-info (pointer process) :behavior process))
|
2022-11-12 11:19:04 -05:00
|
|
|
(define-extern process-grab? (function process symbol symbol :behavior process))
|
|
|
|
(define-extern process-release? (function process symbol :behavior process))
|
|
|
|
|
2022-08-05 16:12:54 -04:00
|
|
|
;; DECOMP BEGINS
|
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype manipy (process-drawable)
|
2023-10-29 23:20:02 -04:00
|
|
|
((root collide-shape :override)
|
|
|
|
(new-trans-hook (function none))
|
|
|
|
(cur-trans-hook (function none))
|
|
|
|
(cur-event-hook (function none))
|
|
|
|
(new-joint-anim art-joint-anim)
|
|
|
|
(new-joint-anim-blend uint64)
|
|
|
|
(anim-mode symbol)
|
|
|
|
(cur-grab-handle handle)
|
|
|
|
(cur-target-handle handle)
|
|
|
|
(old-grab-pos vector :inline)
|
|
|
|
(joint joint-mod 4)
|
|
|
|
(new-post-hook (function none))
|
|
|
|
(cur-post-hook (function none))
|
|
|
|
(clone-copy-trans symbol)
|
|
|
|
(shadow-backup basic)
|
|
|
|
(draw? symbol)
|
|
|
|
(userdata uint64)
|
|
|
|
(prefix basic)
|
|
|
|
(shadow-volume-joint int32)
|
|
|
|
(speed float)
|
|
|
|
(user-uint64 uint64 4)
|
|
|
|
(options manipy-options)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
idle
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype part-spawner (process)
|
2023-10-29 23:20:02 -04:00
|
|
|
((root trsqv)
|
|
|
|
(part sparticle-launch-control)
|
|
|
|
(sound ambient-sound)
|
|
|
|
(mode (pointer sparticle-launch-group))
|
|
|
|
(enable symbol)
|
|
|
|
(radius meters)
|
|
|
|
(world-sphere sphere :inline)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
active
|
|
|
|
)
|
2022-08-24 00:29:51 -04:00
|
|
|
(:methods
|
2023-10-29 23:20:02 -04:00
|
|
|
(is-in-view? (_type_) symbol)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype part-tracker (process)
|
2023-10-29 23:20:02 -04:00
|
|
|
((root trsqv)
|
|
|
|
(mat matrix :inline)
|
|
|
|
(part sparticle-launch-control)
|
|
|
|
(callback (function part-tracker vector))
|
|
|
|
(linger-callback (function part-tracker vector))
|
|
|
|
(duration uint64)
|
|
|
|
(linger-duration uint64)
|
|
|
|
(start-time time-frame)
|
|
|
|
(target handle)
|
|
|
|
(target-joint int32)
|
|
|
|
(offset vector :inline)
|
|
|
|
(userdata uint64)
|
|
|
|
(user-time time-frame 2)
|
|
|
|
(user-vector vector :inline)
|
|
|
|
(user-handle uint32 2 :offset 352)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
active
|
|
|
|
)
|
2022-08-24 00:29:51 -04:00
|
|
|
(:methods
|
2023-10-29 23:20:02 -04:00
|
|
|
(notify-parent-of-death (_type_) none)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype lightning-tracker (process)
|
2023-10-29 23:20:02 -04:00
|
|
|
((ppointer (pointer lightning-tracker) :override)
|
|
|
|
(root trsqv)
|
|
|
|
(lightning lightning-control)
|
|
|
|
(callback (function lightning-tracker none))
|
|
|
|
(duration uint64)
|
|
|
|
(start-time time-frame)
|
|
|
|
(offset0 vector :inline)
|
|
|
|
(offset1 vector :inline)
|
|
|
|
(target0 handle)
|
|
|
|
(target1 handle)
|
|
|
|
(target-joint0 int32)
|
|
|
|
(target-joint1 int32)
|
|
|
|
(sound sound-id)
|
|
|
|
(userdata uint64)
|
|
|
|
(user-time time-frame 2)
|
|
|
|
(user-vector vector :inline)
|
|
|
|
(user-handle handle 2 :offset 288)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
active
|
|
|
|
)
|
2022-08-24 00:29:51 -04:00
|
|
|
(:methods
|
2023-10-29 23:20:02 -04:00
|
|
|
(notify-parent-of-death (_type_) none)
|
|
|
|
(update (_type_) none)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype touch-tracker (process-drawable)
|
2023-10-29 23:20:02 -04:00
|
|
|
((root collide-shape :override)
|
|
|
|
(duration time-frame)
|
|
|
|
(target handle)
|
|
|
|
(event symbol)
|
|
|
|
(run-function (function object))
|
|
|
|
(callback (function touch-tracker none))
|
|
|
|
(event-mode basic)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
active
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype swingpole (process-drawable)
|
2023-10-29 23:20:02 -04:00
|
|
|
((root collide-shape :override)
|
|
|
|
(edge-length meters)
|
|
|
|
(path-pos float)
|
|
|
|
(joint-track int32)
|
|
|
|
(speed meters)
|
|
|
|
(dir vector :inline)
|
|
|
|
(sync sync-eased :inline)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
idle
|
|
|
|
(active handle)
|
|
|
|
)
|
2022-08-24 00:29:51 -04:00
|
|
|
(:methods
|
2023-10-29 23:20:02 -04:00
|
|
|
(move-along-path (_type_) none)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype gui-query (structure)
|
2023-10-29 23:20:02 -04:00
|
|
|
((x-position int32)
|
|
|
|
(y-position int32)
|
|
|
|
(message string)
|
|
|
|
(decision symbol)
|
|
|
|
(only-allow-cancel symbol)
|
|
|
|
(no-msg string)
|
|
|
|
(message-space int32)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
(:methods
|
2023-10-29 23:20:02 -04:00
|
|
|
(gui-query-method-9 () none)
|
|
|
|
(gui-query-method-10 () none)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype othercam (process)
|
2023-10-29 23:20:02 -04:00
|
|
|
((hand handle)
|
|
|
|
(old-global-mask process-mask)
|
|
|
|
(mask-to-clear process-mask)
|
|
|
|
(cam-joint-index int32)
|
|
|
|
(old-pos vector :inline)
|
|
|
|
(old-mat-z vector :inline)
|
|
|
|
(had-valid-frame basic)
|
|
|
|
(border-value basic)
|
|
|
|
(die? symbol)
|
|
|
|
(survive-anim-end? symbol)
|
|
|
|
(spooling? symbol)
|
|
|
|
(fov float)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-01-21 20:45:45 -05:00
|
|
|
(:states
|
|
|
|
othercam-running
|
|
|
|
)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype explosion (process-drawable)
|
2023-10-29 23:20:02 -04:00
|
|
|
((root collide-shape :override)
|
|
|
|
(start-time time-frame)
|
|
|
|
(duration uint32)
|
|
|
|
(linger-duration uint32)
|
|
|
|
(attack-id uint32)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
explode
|
|
|
|
)
|
2022-08-24 00:29:51 -04:00
|
|
|
(:methods
|
2023-10-29 23:20:02 -04:00
|
|
|
(setup-explosion-collision (_type_) none)
|
|
|
|
(explosion-method-22 (_type_) none)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype explosion-init-params (structure)
|
2023-10-29 23:20:02 -04:00
|
|
|
((spawn-point vector :inline)
|
|
|
|
(spawn-quat quaternion :inline)
|
|
|
|
(radius float)
|
|
|
|
(group sparticle-launch-group)
|
|
|
|
(collide-with collide-spec)
|
|
|
|
(penetrate-using penetrate)
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|
|
|
|
|
2022-10-29 15:22:57 -04:00
|
|
|
|
2022-08-24 00:29:51 -04:00
|
|
|
(deftype process-hidden (process)
|
|
|
|
()
|
2023-10-29 23:20:02 -04:00
|
|
|
(:state-methods
|
|
|
|
die
|
2022-08-24 00:29:51 -04:00
|
|
|
)
|
|
|
|
)
|