mirror of
https://github.com/open-goal/jak-project
synced 2026-08-19 06:02:15 -04:00
undo changes to goalsrc
This commit is contained in:
+19
-19
@@ -38,30 +38,30 @@
|
||||
)
|
||||
|
||||
;; definition for method 3 of type process-taskable
|
||||
(defmethod inspect process-taskable ((obj process-taskable))
|
||||
(when (not obj)
|
||||
(set! obj obj)
|
||||
(defmethod inspect process-taskable ((this process-taskable))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process-focusable inspect)))
|
||||
(t9-0 obj)
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Ttask: ~A~%" (-> obj task))
|
||||
(format #t "~2Tambient: #<ambient-control @ #x~X>~%" (-> obj ambient))
|
||||
(format #t "~2Tneck-joint-index: ~D~%" (-> obj neck-joint-index))
|
||||
(format #t "~2Ttalk-message: ~D~%" (-> obj talk-message))
|
||||
(format #t "~2Tbounce-away: ~A~%" (-> obj bounce-away))
|
||||
(format #t "~2Twill-talk: ~A~%" (-> obj will-talk))
|
||||
(format #t "~2Tlook-at-me: ~A~%" (-> obj look-at-me))
|
||||
(format #t "~2Thide-during-movie: ~A~%" (-> obj hide-during-movie))
|
||||
(format #t "~2Ttalk-distance: (meters ~m)~%" (-> obj talk-distance))
|
||||
(format #t "~2Ttalk-height: (meters ~m)~%" (-> obj talk-height))
|
||||
(format #t "~2Tlast-talk: ~D~%" (-> obj last-talk))
|
||||
(format #t "~2Twant-to-say: ~D~%" (-> obj want-to-say))
|
||||
(format #t "~2Tbirth-time: ~D~%" (-> obj birth-time))
|
||||
(format #t "~2Tslave: ~D~%" (-> obj slave))
|
||||
(format #t "~2Ttask: ~A~%" (-> this task))
|
||||
(format #t "~2Tambient: #<ambient-control @ #x~X>~%" (-> this ambient))
|
||||
(format #t "~2Tneck-joint-index: ~D~%" (-> this neck-joint-index))
|
||||
(format #t "~2Ttalk-message: ~D~%" (-> this talk-message))
|
||||
(format #t "~2Tbounce-away: ~A~%" (-> this bounce-away))
|
||||
(format #t "~2Twill-talk: ~A~%" (-> this will-talk))
|
||||
(format #t "~2Tlook-at-me: ~A~%" (-> this look-at-me))
|
||||
(format #t "~2Thide-during-movie: ~A~%" (-> this hide-during-movie))
|
||||
(format #t "~2Ttalk-distance: (meters ~m)~%" (-> this talk-distance))
|
||||
(format #t "~2Ttalk-height: (meters ~m)~%" (-> this talk-height))
|
||||
(format #t "~2Tlast-talk: ~D~%" (-> this last-talk))
|
||||
(format #t "~2Twant-to-say: ~D~%" (-> this want-to-say))
|
||||
(format #t "~2Tbirth-time: ~D~%" (-> this birth-time))
|
||||
(format #t "~2Tslave: ~D~%" (-> this slave))
|
||||
(label cfg-4)
|
||||
obj
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
|
||||
Reference in New Issue
Block a user