Add support for the progressionTrigger

format.lisp

@@ -293,6 +293,12 @@
 (define-element shirakumo-checkpoint (shirakumo-trigger-data)
   ((spawn-point :initform #(0.0 0.0 0.0))))
 
+(define-element shirakumo-progression (shirakumo-trigger-data)
+  ((state :initform "progression" :parse :keyword)
+   (value :initform 1.0)
+   (mode :initform :inc :parse :Keyword)
+   (condition :initform "T")))
+
 (define-element physics-material (indexed-element)
   ((static-friction :initform 0.6)
    (dynamic-friction :initform 0.6)

package.lisp

@@ -1,5 +1,6 @@
 (defpackage #:org.shirakumo.fraf.gltf
   (:use #:cl)
+  (:shadow #:condition)
   (:local-nicknames
    (#:mmap #:org.shirakumo.fraf.trial.mmap)
    (#:sequences #:org.shirakumo.trivial-extensible-sequences))
@@ -253,6 +254,11 @@
    #:kill
    #:shirakumo-checkpoint
    #:spawn-point
+   #:shirakumo-progression
+   #:state
+   #:value
+   #:mode
+   #:condition
    #:physics-material
    #:static-friction
    #:dynamic-friction

translations.lisp

@@ -96,6 +96,8 @@
          (%parse-from (gethash "killvolume" json) 'shirakumo-killvolume gltf))
         ((gethash "checkpoint" json)
          (%parse-from (gethash "checkpoint" json) 'shirakumo-checkpoint gltf))
+        ((gethash "progressionTrigger" json)
+         (%parse-from (gethash "progressionTrigger" json) 'shirakumo-progression gltf))
         (T
          (call-next-method))))