[decomp] flags for continue points (#1303)

* make flags!

* finish flags

* refs

* Update game.gp

* fix target decomp

* Update target.gc

test/decompiler/reference/engine/target/target-death_REF.gc

@@ -48,7 +48,7 @@
     (set! (-> *load-boundary-target* 1 quad) (-> (target-pos 0) quad))
     (set! (-> *load-boundary-target* 2 quad) (-> *load-boundary-target* 0 quad))
     (set! (-> *load-boundary-target* 3 quad) (-> *load-boundary-target* 1 quad))
-    (when (zero? (logand (-> *game-info* current-continue flags) 176))
+    (when (zero? (logand (-> *game-info* current-continue flags) (continue-flags intro sage-intro title)))
       (set! (-> *level* border?) (-> *level* play?))
       (set! (-> *setting-control* default border-mode) (-> *level* play?))
       )
@@ -118,7 +118,7 @@
         (let ((v1-52 (lookup-level-info (-> arg0 level))))
           (if (and v1-52
                    (= (-> *setting-control* current music) (-> v1-52 music-bank))
-                   (zero? (logand (-> arg0 flags) 160))
+                   (zero? (logand (-> arg0 flags) (continue-flags sage-intro title)))
                    )
               (clear-pending-settings-from-process *setting-control* self 'music-volume)
               )
@@ -195,13 +195,13 @@
     (set! (-> *ACTOR-bank* birth-max) 1000)
     (set-blackout-frames (seconds 0.1))
     (cond
-      ((logtest? (-> arg0 flags) 128)
+      ((logtest? (-> arg0 flags) (continue-flags title))
        (go target-title)
        )
-      ((logtest? (-> arg0 flags) 16)
+      ((logtest? (-> arg0 flags) (continue-flags intro))
        (start-sequence-a)
        )
-      ((logtest? (-> arg0 flags) 32)
+      ((logtest? (-> arg0 flags) (continue-flags sage-intro))
        (let ((s5-3 (entity-by-name "sage-23")))
          (when s5-3
            (set-blackout-frames (seconds 100))
@@ -216,7 +216,7 @@
            )
          )
        )
-      ((and (logtest? (-> arg0 flags) 2048)
+      ((and (logtest? (-> arg0 flags) (continue-flags sage-ecorocks))
             (or (= (get-task-status (game-task beach-ecorocks)) (task-status need-hint))
                 (= (get-task-status (game-task beach-ecorocks)) (task-status need-introduction))
                 )
@@ -236,10 +236,10 @@
            )
          )
        )
-      ((logtest? (-> arg0 flags) 8)
+      ((logtest? (-> arg0 flags) (continue-flags demo))
        (go target-demo)
        )
-      ((logtest? (-> arg0 flags) 64)
+      ((logtest? (-> arg0 flags) (continue-flags sage-demo-convo))
        (set-blackout-frames (seconds 1))
        (let ((s5-5 (get-process *default-dead-pool* process #x4000)))
          (when s5-5
@@ -282,7 +282,7 @@
            )
          )
        )
-      ((logtest? (-> arg0 flags) 4)
+      ((logtest? (-> arg0 flags) (continue-flags warp))
        (let ((s5-6 (new 'static 'vector)))
          (cond
            ((string= (-> arg0 name) "village1-warp")
@@ -321,7 +321,7 @@
             (set-continue! *game-info* "village1-hut")
             )
            ((or (string= (-> arg0 name) "training-warp") (string= (-> arg0 name) "game-start"))
-            (if (logtest? (-> arg0 flags) 1024)
+            (if (logtest? (-> arg0 flags) (continue-flags game-start))
                 (close-specific-task! (game-task intro) (task-status need-resolution))
                 )
             (set! (-> s5-6 quad) (-> (entity-by-name "training-part-1") extra trans quad))

test/decompiler/reference/engine/target/target-handler_REF.gc

@@ -42,7 +42,7 @@
              (if (!= (pickup-collectable!
                        (-> self fact-info-target)
                        (the-as pickup-type s4-0)
-                       (-> (new 'static 'array float 1 0.0) 0)
+                       (the-as float 0.0)
                        (the-as handle #f)
                        )
                      (pickup-collectable! (-> self fact-info-target) (the-as pickup-type s4-0) f28-0 (process->handle arg0))
@@ -115,7 +115,7 @@
             (pickup-collectable!
               (-> self fact-info-target)
               (the-as pickup-type (-> arg3 param 1))
-              (-> (new 'static 'array float 1 0.0) 0)
+              (the-as float 0.0)
               (the-as handle #f)
               )
             )

test/decompiler/reference/engine/target/target2_REF.gc

@@ -3571,7 +3571,7 @@
               )
             arg2
             arg3
-            (-> (new 'static 'array float 1 143360.0) 0)
+            143360.0
             )
           (-> s3-1 ppointer)
           )