jak-project/test/decompiler/reference/engine/game/task/hint-control_REF.gc

;;-*-Lisp-*-
(in-package goal)

;; failed to figure out what this is:
(set! (-> *game-info* hint-control)
      (the-as
        (array level-hint-control)
        (new
          'static
          'boxed-array
          :type level-hint-control :length 25 :allocated-length 25
          (new 'static 'level-hint-control :id #x917 :num-attempts-before-playing 1 :num-success-before-killing 3)
          (new 'static 'level-hint-control :id #x90a :num-attempts-before-playing 3 :num-success-before-killing -1)
          (new 'static 'level-hint-control :id #x284 :num-attempts-before-playing 3 :num-success-before-killing 3)
          (new 'static 'level-hint-control :id #x285 :num-attempts-before-playing 1 :num-success-before-killing 1)
          (new 'static 'level-hint-control :id #x251 :num-attempts-before-playing 1 :num-success-before-killing 1)
          (new 'static 'level-hint-control :id #x2af :num-attempts-before-playing 1 :num-success-before-killing 1)
          (new 'static 'level-hint-control
            :delay-before-playing #x384
            :id #x239
            :num-attempts-before-playing 1
            :num-success-before-killing 1
            )
          (new 'static 'level-hint-control
            :delay-before-playing #x5dc
            :id #x29d
            :num-attempts-before-playing 1
            :num-success-before-killing -1
            )
          (new 'static 'level-hint-control
            :delay-before-playing #x384
            :id #x25b
            :num-attempts-before-playing 1
            :num-success-before-killing -1
            )
          (new 'static 'level-hint-control :id #x2a4 :num-attempts-before-playing 3 :num-success-before-killing 1)
          (new 'static 'level-hint-control
            :delay-before-playing #x384
            :id #x2aa
            :num-attempts-before-playing 1
            :num-success-before-killing 1
            )
          (new 'static 'level-hint-control
            :delay-before-playing #x5dc
            :id #x33a
            :num-attempts-before-playing 1
            :num-success-before-killing 1
            )
          (new 'static 'level-hint-control
            :delay-before-playing #x1194
            :id #x34b
            :num-attempts-before-playing 3
            :num-success-before-killing 2
            )
          (new 'static 'level-hint-control
            :delay-before-playing #x4650
            :id #x34a
            :num-attempts-before-playing 3
            :num-success-before-killing -1
            )
          (new 'static 'level-hint-control :id #x34d :num-attempts-before-playing 3 :num-success-before-killing -1)
          (new 'static 'level-hint-control :id #x345 :num-attempts-before-playing 3 :num-success-before-killing 2)
          (new 'static 'level-hint-control :id #x352 :num-attempts-before-playing 1 :num-success-before-killing 1)
          (new 'static 'level-hint-control
            :delay-before-playing #x2328
            :id #x347
            :num-attempts-before-playing 3
            :num-success-before-killing 1
            )
          (new 'static 'level-hint-control :id #x34e :num-attempts-before-playing 3 :num-success-before-killing -1)
          (new 'static 'level-hint-control :id #x444 :num-attempts-before-playing 5 :num-success-before-killing -1)
          (new 'static 'level-hint-control
            :delay-before-playing #x384
            :id #x438
            :num-attempts-before-playing 1
            :num-success-before-killing -1
            )
          (new 'static 'level-hint-control :id #x433 :num-attempts-before-playing 4 :num-success-before-killing -1)
          (new 'static 'level-hint-control :id #x70d :num-attempts-before-playing 1 :num-success-before-killing 2)
          (new 'static 'level-hint-control
            :delay-before-playing #x5dc
            :id #x806
            :num-attempts-before-playing 1
            :num-success-before-killing 1
            )
          (new 'static 'level-hint-control
            :delay-before-playing #x5dc
            :id #x809
            :num-attempts-before-playing 1
            :num-success-before-killing 1
            )
          )
        )
      )

;; failed to figure out what this is:
(set! (-> *game-info* task-hint-control)
      (new
        'static
        'boxed-array
        :type task-hint-control-group :length 16 :allocated-length 16
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 3 :allocated-length 3
            (new 'static 'task-hint-control :task (game-task training-gimmie) :delay #x2bf20)
            (new 'static 'task-hint-control :task (game-task training-door) :delay #x57e40)
            (new 'static 'task-hint-control :task (game-task training-climb) :delay #x83d60)
            )
          )
        (new 'static 'task-hint-control-group)
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 3 :allocated-length 3
            (new 'static 'task-hint-control :task (game-task beach-gimmie) :delay #x41eb0)
            (new 'static 'task-hint-control :task (game-task beach-sentinel) :delay #x83d60)
            (new 'static 'task-hint-control :task (game-task beach-cannon) :delay #xc5c10)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 2 :allocated-length 2
            (new 'static 'task-hint-control :task (game-task jungle-plant) :delay #x57e40)
            (new 'static 'task-hint-control :task (game-task jungle-canyon-end) :delay #xafc80)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 4 :allocated-length 4
            (new 'static 'task-hint-control :task (game-task misty-boat) :delay #x57e40)
            (new 'static 'task-hint-control :task (game-task misty-warehouse) :delay #x83d60)
            (new 'static 'task-hint-control :task (game-task misty-bike-jump) :delay #xafc80)
            (new 'static 'task-hint-control :task (game-task misty-eco-challenge) :delay #xdbba0)
            )
          )
        (new 'static 'task-hint-control-group)
        (new 'static 'task-hint-control-group)
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 3 :allocated-length 3
            (new 'static 'task-hint-control :task (game-task sunken-spinning-room) :delay #x57e40)
            (new 'static 'task-hint-control :task (game-task sunken-sharks) :delay #x83d60)
            (new 'static 'task-hint-control :task (game-task sunken-slide) :delay #xafc80)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 1 :allocated-length 1
            (new 'static 'task-hint-control :task (game-task swamp-battle) :delay #xafc80)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 1 :allocated-length 1
            (new 'static 'task-hint-control :task (game-task rolling-lake) :delay #xafc80)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 1 :allocated-length 1
            (new 'static 'task-hint-control :task (game-task ogre-secret) :delay #x107ac0)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 1 :allocated-length 1
            (new 'static 'task-hint-control :task (game-task village3-extra1) :delay #x107ac0)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 4 :allocated-length 4
            (new 'static 'task-hint-control :task (game-task snow-bumpers) :delay #x57e40)
            (new 'static 'task-hint-control :task (game-task snow-cage) :delay #x83d60)
            (new 'static 'task-hint-control :task (game-task snow-ball) :delay #xafc80)
            (new 'static 'task-hint-control :task (game-task snow-bunnies) :delay #xdbba0)
            )
          )
        (new 'static 'task-hint-control-group
          :tasks
          (new
            'static
            'boxed-array
            :type task-hint-control :length 4 :allocated-length 4
            (new 'static 'task-hint-control :task (game-task cave-dark-climb) :delay #x57e40)
            (new 'static 'task-hint-control :task (game-task cave-robot-climb) :delay #x83d60)
            (new 'static 'task-hint-control :task (game-task cave-swing-poles) :delay #xafc80)
            (new 'static 'task-hint-control :task (game-task cave-platforms) :delay #xdbba0)
            )
          )
        (new 'static 'task-hint-control-group)
        (new 'static 'task-hint-control-group)
        )
      )

;; definition for function find-hint-control-index
(defun find-hint-control-index ((arg0 game-text-id))
  (let ((gp-0 -1))
    (let ((v1-2 (length (-> *game-info* hint-control))))
      (dotimes (a0-2 v1-2)
        (when (= (-> *game-info* hint-control a0-2 id) arg0)
          (set! gp-0 a0-2)
          (set! a0-2 v1-2)
          )
        )
      )
    gp-0
    )
  )

;; definition for function start-hint-timer
;; INFO: Return type mismatch int vs none.
(defun start-hint-timer ((arg0 game-text-id))
  (let ((v1-0 (find-hint-control-index arg0)))
    (when (and (>= v1-0 0)
               (zero? (-> *game-info* hint-control v1-0 start-time))
               (!= (-> *game-info* hint-control v1-0 num-attempts-before-playing) 1)
               )
      (set! (-> *game-info* hint-control v1-0 start-time) (-> *display* base-frame-counter))
      0
      )
    )
  0
  (none)
  )

;; definition for function increment-success-for-hint
;; INFO: Return type mismatch int vs none.
(defun increment-success-for-hint ((arg0 game-text-id))
  (let ((gp-0 (find-hint-control-index arg0)))
    (when (>= gp-0 0)
      (set! (-> *game-info* hint-control gp-0 num-success)
            (seekl (-> *game-info* hint-control gp-0 num-success) 127 1)
            )
      0
      )
    )
  0
  (none)
  )

;; definition for function can-hint-be-played?
;; WARN: disable def twice: 139. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
(defun can-hint-be-played? ((arg0 game-text-id) (arg1 entity) (arg2 string))
  (let ((v1-0 (not (str-is-playing?))))
    (if (and v1-0 (nonzero? arg0))
        (set! v1-0 (not (seen-text? *game-info* arg0)))
        )
    (when v1-0
      (when *hint-semaphore*
        (set! v1-0 (dummy-15 (the-as level-hint (ppointer->process *hint-semaphore*))))
        0
        )
      (when (and v1-0 (< (- (-> *display* base-frame-counter) (-> *game-info* hint-play-time)) 30))
        (set! v1-0 #f)
        0
        )
      (set! v1-0 (and v1-0
                      (not (-> *setting-control* current talking))
                      (not (-> *setting-control* current spooling))
                      (not (-> *setting-control* current hint))
                      (not (-> *setting-control* current ambient))
                      (>= (-> *display* base-frame-counter) (-> *game-info* blackout-time))
                      )
            )
      0
      )
    (cond
      (v1-0
        (let ((v1-16 (find-hint-control-index arg0)))
          (cond
            ((< v1-16 0)
             #t
             )
            (else
              (let ((gp-1 (-> *game-info* hint-control v1-16))
                    (a0-24 (- (-> *display* base-frame-counter) (-> *game-info* hint-control v1-16 last-time-called)))
                    (v1-21 #t)
                    )
                (if (and (= (-> gp-1 num-attempts-before-playing) 1) (< a0-24 30))
                    (+! (-> gp-1 start-time) a0-24)
                    )
                (cond
                  ((and (!= (-> gp-1 num-attempts-before-playing) 1)
                        (nonzero? (-> gp-1 last-time-called))
                        (< (- (-> *display* base-frame-counter) (-> gp-1 last-time-called)) 150)
                        )
                   (set! (-> gp-1 last-time-called) (-> *display* base-frame-counter))
                   #f
                   )
                  (else
                    (set! (-> gp-1 last-time-called) (-> *display* base-frame-counter))
                    (when (nonzero? (-> gp-1 delay-before-playing))
                      (if (< (-> gp-1 start-time) (the-as int (-> gp-1 delay-before-playing)))
                          (set! v1-21 #f)
                          )
                      0
                      )
                    (cond
                      (v1-21
                        (set! (-> gp-1 num-attempts) (seekl (-> gp-1 num-attempts) 127 1))
                        (and (>= (-> gp-1 num-attempts) (-> gp-1 num-attempts-before-playing))
                             (or (= (-> gp-1 num-success-before-killing) -1)
                                 (< (-> gp-1 num-success) (-> gp-1 num-success-before-killing))
                                 )
                             )
                        )
                      (else
                        #f
                        )
                      )
                    )
                  )
                )
              )
            )
          )
        )
      (else
        #f
        )
      )
    )
  )

;; definition for function reset-all-hint-controls
;; INFO: Return type mismatch int vs none.
(defun reset-all-hint-controls ()
  (let ((v1-2 (length (-> *game-info* hint-control))))
    (dotimes (a0-1 v1-2)
      (let ((a1-2 (-> *game-info* hint-control a0-1)))
        (set! (-> a1-2 start-time) 0)
        (set! (-> a1-2 last-time-called) 0)
        (set! (-> a1-2 num-attempts) 0)
        (set! (-> a1-2 num-success) 0)
        )
      0
      )
    )
  0
  (none)
  )

;; definition for function update-task-hints
;; INFO: Return type mismatch int vs none.
(defun update-task-hints ()
  (when *target*
    (let ((a0-0 (+ (-> *target* current-level info index) -1))
          (v1-7 (-> *game-info* task-hint-control))
          )
      (when (and (>= a0-0 0) (< a0-0 (-> *level-task-data-remap* length)))
        (let ((a0-3 (-> *level-task-data-remap* a0-0)))
          (when (< a0-3 (-> v1-7 length))
            (let ((gp-0 (-> v1-7 a0-3 tasks)))
              (when (and (!= gp-0 0) (nonzero? (-> gp-0 length)))
                (let ((s5-0 (-> *game-info* in-level-time a0-3)))
                  (dotimes (s4-0 (-> gp-0 length))
                    (case (get-task-status (-> gp-0 s4-0 task))
                      (((task-status need-hint) (task-status unknown))
                       (if (< (the-as uint (-> gp-0 s4-0 delay)) (the-as uint s5-0))
                           (close-specific-task! (-> gp-0 s4-0 task) (task-status need-hint))
                           )
                       )
                      )
                    )
                  )
                )
              )
            )
          )
        )
      )
    )
  0
  (none)
  )