undo changes to goalsrc

This commit is contained in:
water
2023-09-30 10:24:37 -04:00
parent 83c095ab99
commit 2284a336fd
1954 changed files with 159925 additions and 156681 deletions
@@ -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: