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

;; name: progress.gc
;; name in dgo: progress
;; dgos: GAME, ENGINE

(defmethod relocate game-count-info ((this game-count-info) (offset int))
  "Load in the game-count-info. This is a bit of a hack."
  (set! *game-counts* this)
  )

(defmethod hidden? progress ((obj progress))
  (or (not *progress-process*)
      (= (-> *progress-process* 0 in-out-position) 4096)
      )
  )