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

;; name: wasdoors-scenes.gc
;; name in dgo: wasdoors-scenes
;; dgos: WSD

;; DECOMP BEGINS

(defskelgroup skel-gauntlets-movie gauntlets gauntlets-lod0-jg gauntlets-idle-ja
              ((gauntlets-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 5.5)
              :origin-joint-index 3
              )

(defskelgroup skel-turtle-wheel-fma turtle-wheel-fma turtle-wheel-fma-lod0-jg turtle-wheel-fma-idle-ja
              ((turtle-wheel-fma-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 10)
              :shadow turtle-wheel-fma-shadow-mg
              :origin-joint-index 3
              :shadow-joint-index 3
              )

(load-scene (new 'static 'scene
              :name "desert-artifact-race-1-intro"
              :extra #f
              :info #f
              :scene-flags (scene-flags scf1 scf2 scf3 scf4)
              :mask-to-clear (process-mask movie projectile)
              :entity "scene-stage-112"
              :art-group "scenecamera"
              :anim "desert-artifact-race-1-intro"
              :parts 9
              :command-list '((0 (send-event *target* 'draw-vehicle #f))
                (15
                  (part-tracker
                    "group-wasdoors-buggy-dust-skid"
                    entity
                    "particleman"
                    joint
                    "particleA"
                    track
                    #t
                    duration
                    (frame-range 15 55)
                    )
                  (part-tracker
                    "group-wasdoors-buggy-dust-skid"
                    entity
                    "particleman"
                    joint
                    "particleB"
                    track
                    #t
                    duration
                    (frame-range 15 55)
                    )
                  )
                (1035 (fadeout (frame-time-30 10)))
                (10000 (task-close! "desert-artifact-race-1-post-intro"))
                )
              :cut-list '(215 332 461 605 759 812 954)
              :wait-ground-time (seconds 1)
              :actor (new 'static 'boxed-array :type scene-actor
                (new 'static 'scene-actor
                  :name "scenecamera"
                  :level #f
                  :art-group "skel-scenecamera"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :camera 4
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "particleman"
                  :level 'wasdoors
                  :art-group "skel-particleman"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "jakc-highres"
                  :level 'wasdoors
                  :art-group "skel-jakc-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  :no-draw-seg #x3a2
                  )
                (new 'static 'scene-actor
                  :name "sidekick-highres"
                  :level 'wasdoors
                  :art-group "skel-sidekick-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "damus-highres"
                  :level 'ldampeck
                  :art-group "skel-damus-highres"
                  :prefix ""
                  :draw-frames '((min 954))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "pecker-highres"
                  :level 'ldampeck
                  :art-group "skel-pecker-highres"
                  :prefix ""
                  :draw-frames '((min 954))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "v-turtle"
                  :level 'wasall
                  :art-group "skel-v-turtle"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "turtle-wheel-fma"
                  :level 'ltrtwhls
                  :art-group "skel-turtle-wheel-fma"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                )
              :load-point "wasdoors-desert"
              :end-point "wasdoors-desert-turtle"
              :borrow '((wasdoors 0 ldampeck special) (wasall 0 ltrtwhls special))
              :sfx-volume 0.75
              :ambient-volume -1.0
              :music-delay 1500.0
              :scene-task #x22
              :on-running '(begin (sound-play-loop "was-wind-mov") (sound-play-loop "was-amb-mov"))
              :on-complete #f
              )
            )

(load-scene (new 'static 'scene
              :name "desert-artifact-race-1-res"
              :extra #f
              :info #f
              :scene-flags (scene-flags scf1 scf2 scf3 scf4)
              :mask-to-clear (process-mask movie projectile)
              :entity "scene-stage-112"
              :art-group "scenecamera"
              :anim "desert-artifact-race-1-res"
              :parts 8
              :command-list '((742 (send-event "jakc-highres" 'segment 2 0))
                (844 (fadeout (frame-time-30 10)))
                (10000
                  (send-event self 'user-data-set! (task-closed? "desert-artifact-race-1-resolution"))
                  (task-close! "desert-artifact-race-1-resolution")
                  )
                )
              :cut-list '(86 223 445 521 617 662 744)
              :wait-ground-time (seconds 1)
              :actor (new 'static 'boxed-array :type scene-actor
                (new 'static 'scene-actor
                  :name "scenecamera"
                  :level #f
                  :art-group "skel-scenecamera"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :camera 4
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "jakc-highres"
                  :level 'wasdoors
                  :art-group "skel-jakc-highres"
                  :prefix ""
                  :draw-frames '((min 223) (446 max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  :no-draw-seg #x82
                  )
                (new 'static 'scene-actor
                  :name "sidekick-highres"
                  :level 'wasdoors
                  :art-group "skel-sidekick-highres"
                  :prefix ""
                  :draw-frames '((min 223) (446 max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "damus-highres"
                  :level 'ldmpckgn
                  :art-group "skel-damus-highres"
                  :prefix ""
                  :draw-frames '((min 617) (662 744))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "pecker-highres"
                  :level 'ldmpckgn
                  :art-group "skel-pecker-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "gauntlets-movie"
                  :level 'ldmpckgn
                  :art-group "skel-gauntlets-movie"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                )
              :load-point "wasdoors-desert"
              :end-point "wasdoors-facing-city"
              :borrow '((wasdoors 0 ldmpckgn special))
              :sfx-volume 0.75
              :ambient-volume -1.0
              :music-delay 1500.0
              :on-running '(begin (sound-play-loop "was-wind-mov") (sound-play-loop "was-amb-mov"))
              :on-complete '(unless (send-event self 'user-data) (talker-spawn "powup004"))
              )
            )

(load-scene (new 'static 'scene
              :name "desert-course-race-intro"
              :extra #f
              :info #f
              :scene-flags (scene-flags scf1 scf2 scf3 scf4)
              :mask-to-clear (process-mask movie projectile)
              :entity "scene-stage-112"
              :art-group "scenecamera"
              :anim "desert-course-race-intro"
              :parts 16
              :command-list '((0 (kill "w-parking-spot-5"))
                (2 (want-load 'wasall 'wasdoors 'desert-game 'desertb))
                (1830 (fadeout (frame-time-30 10)))
                (10000
                  (cond
                    ((task-closed? "desert-turtle-training-resolution")
                     (task-close! "desert-course-race-introduction")
                     )
                    (else
                      (task-close! "desert-turtle-training-introduction")
                      )
                    )
                  (save)
                  )
                )
              :cut-list '(86 174 242 435 619 727 945 1161 1260 1324 1368 1399 1459 1602)
              :wait-ground-time (seconds 1)
              :actor (new 'static 'boxed-array :type scene-actor
                (new 'static 'scene-actor
                  :name "scenecamera"
                  :level #f
                  :art-group "skel-scenecamera"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :camera 4
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "jakc-highres"
                  :level 'wasdoors
                  :art-group "skel-jakc-highres"
                  :prefix ""
                  :draw-frames '((min 1130) (1161 max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  :no-draw-seg #x3a2
                  )
                (new 'static 'scene-actor
                  :name "sidekick-highres"
                  :level 'wasdoors
                  :art-group "skel-sidekick-highres"
                  :prefix ""
                  :draw-frames '((min 1130) (1161 max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "kleever-highres"
                  :level 'lkleever
                  :art-group "skel-kleever-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '((min max))
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "v-turtle"
                  :level 'wasall
                  :art-group "skel-v-turtle"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "turtle-wheel-fma"
                  :level 'ltrtwhls
                  :art-group "skel-turtle-wheel-fma"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                )
              :load-point "wasdoors-city"
              :end-point "wasdoors-turtle-training-intro-end"
              :borrow '((wasdoors 0 lkleever special) (wasall 0 ltrtwhls special))
              :sfx-volume 0.75
              :ambient-volume -1.0
              :music-delay 1500.0
              :on-running '(begin (sound-play-loop "was-wind-mov") (sound-play-loop "was-amb-mov"))
              :on-complete #f
              )
            )

;; WARN: Return type mismatch connection vs none.
(defun do-stuff ()
  (send-event (handle->process (-> *game-info* dust-storm)) 'set-intensity #x3f800000)
  (send-event
    (handle->process (-> *game-info* dust-storm))
    'hold-pos
    (new 'static 'vector :x 9175730.0 :y 130316.29 :z 1006543.7 :w 1.0)
    #x46638e39
    )
  (set-setting! 'fog-special-interp-targ #f 0.5 0)
  (set-setting! 'fog-special-interp-rate #f 10.0 0)
  (none)
  )

(load-scene
  (new 'static 'scene
    :name "desert-artifact-race-2-intro"
    :extra #f
    :info #f
    :scene-flags (scene-flags scf1 scf2 scf3 scf4)
    :mask-to-clear (process-mask movie projectile)
    :entity "scene-stage-112"
    :art-group "scenecamera"
    :anim "desert-artifact-race-2-intro"
    :parts 6
    :command-list '((0)
      (10 (send-event "wascity-airlock-4" 'open (seconds 200)) (send-event "wascity-airlock-5" 'open (seconds 200)))
      (100)
      (582
        (part-tracker
          "group-wasdoors-buggy-dust-skid"
          entity
          "particleman"
          joint
          "particleE"
          track
          #t
          duration
          (frame-range 582 620)
          )
        (part-tracker
          "group-wasdoors-buggy-dust-skid"
          entity
          "particleman"
          joint
          "particleF"
          track
          #t
          duration
          (frame-range 582 620)
          )
        )
      (612
        (part-tracker
          "group-wasdoors-buggy-dust-skid"
          entity
          "particleman"
          joint
          "particleA"
          track
          #t
          duration
          (frame-range 612 700)
          )
        (part-tracker
          "group-wasdoors-buggy-dust-skid"
          entity
          "particleman"
          joint
          "particleB"
          track
          #t
          duration
          (frame-range 612 700)
          )
        (part-tracker
          "group-wasdoors-buggy-dust-skid"
          entity
          "particleman"
          joint
          "particleC"
          track
          #t
          duration
          (frame-range 612 700)
          )
        (part-tracker
          "group-wasdoors-buggy-dust-skid"
          entity
          "particleman"
          joint
          "particleD"
          track
          #t
          duration
          (frame-range 612 700)
          )
        )
      (695 (fadeout (frame-time-30 5)))
      (10000
        (task-close! "desert-artifact-race-2-post-intro")
        (send-event "wascity-airlock-4" 'open (seconds 0))
        (send-event "wascity-airlock-5" 'open (seconds 0))
        )
      )
    :cut-list '(56 132 190 253 321 412 552 582 616 633)
    :wait-ground-time (seconds 1)
    :actor (new 'static 'boxed-array :type scene-actor
      (new 'static 'scene-actor
        :name "scenecamera"
        :level #f
        :art-group "skel-scenecamera"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :camera 4
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      (new 'static 'scene-actor
        :name "particleman"
        :level 'wasdoors
        :art-group "skel-particleman"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      (new 'static 'scene-actor
        :name "jakc-highres"
        :level 'wasdoors
        :art-group "skel-jakc-highres"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        :no-draw-seg #x80
        )
      (new 'static 'scene-actor
        :name "sidekick-highres"
        :level 'wasdoors
        :art-group "skel-sidekick-highres"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      (new 'static 'scene-actor
        :name "sig-highres"
        :level 'lsig
        :art-group "skel-sig-highres"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        :no-draw-seg #x2
        )
      (new 'static 'scene-actor
        :name "v-snake"
        :level 'wasall
        :art-group "skel-v-snake"
        :prefix ""
        :draw-frames '((min 132) (190 max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        :no-draw-seg #x2
        )
      (new 'static 'scene-actor
        :name "snake-wheel-fma"
        :level 'lsnkwhls
        :art-group "skel-snake-wheel-fma"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      )
    :load-point "wasdoors-desert"
    :end-point "desert-start-snake"
    :borrow '((wasdoors 0 lsig special) (wasall 0 lsnkwhls special))
    :sfx-volume 0.75
    :ambient-volume -1.0
    :music-delay 1500.0
    :on-running '(begin (sound-play-loop "was-wind-mov") (sound-play-loop "was-amb-mov"))
    :on-complete #f
    )
  )

(load-scene (new 'static 'scene
              :name "desert-hover-intro"
              :extra #f
              :info #f
              :scene-flags (scene-flags scf1 scf2 scf3 scf4)
              :mask-to-clear (process-mask movie projectile)
              :entity "scene-stage-112"
              :art-group "scenecamera"
              :anim "desert-hover-intro"
              :parts 11
              :command-list '((2 (want-load 'wasall 'wasdoors 'desert-game 'desertb))
                (1280 (fadeout (frame-time-30 20)))
                (10000 (want-vehicle "snake" force #f) (task-close! "desert-hover-introduction") (save))
                )
              :cut-list '(61 116 251 437 572 633 961 1049 1112)
              :wait-ground-time (seconds 1)
              :actor (new 'static 'boxed-array :type scene-actor
                (new 'static 'scene-actor
                  :name "scenecamera"
                  :level #f
                  :art-group "skel-scenecamera"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :camera 4
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "jakc-highres"
                  :level 'wasdoors
                  :art-group "skel-jakc-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '(61 116 437 961 1112 1176)
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  :no-draw-seg #x3a0
                  )
                (new 'static 'scene-actor
                  :name "sidekick-highres"
                  :level 'wasdoors
                  :art-group "skel-sidekick-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "kleever-highres"
                  :level 'lkleever
                  :art-group "skel-kleever-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '((min max))
                  :shadow-frames '((min max))
                  :cloth-reset-frames '(61 116 251 437 572 961 1112 1176)
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                )
              :load-point "wasdoors-city"
              :end-point "wasdoors-desert-hover-intro-end"
              :borrow '((wasdoors 0 lkleever special))
              :sfx-volume 0.75
              :ambient-volume -1.0
              :music-delay 1500.0
              :on-running '(begin (sound-play-loop "was-wind-mov") (sound-play-loop "was-amb-mov"))
              :on-complete #f
              )
            )

(load-scene
  (new 'static 'scene
    :name "desert-catch-lizards-intro"
    :extra #f
    :info #f
    :scene-flags (scene-flags scf1 scf2 scf3 scf4)
    :mask-to-clear (process-mask movie projectile)
    :entity "scene-stage-112"
    :art-group "scenecamera"
    :anim "desert-catch-lizards-intro"
    :parts 16
    :command-list '((0
        (kill "damus-npc-4")
        (kill "kleever-npc-3")
        (kill "w-parking-spot-1")
        (kill "w-parking-spot-8")
        (kill "w-parking-spot-2")
        (kill "w-parking-spot-7")
        (apply ,(lambda :behavior scene-player () (kill-by-type w-parking-spot *active-pool*) (none)))
        (send-event *target* 'draw-vehicle #f)
        )
      (2 (want-load 'wasall 'wasdoors 'desert-game 'desertb))
      (1890 (fadeout (frame-time-30 10)))
      (10000
        (want-vehicle "snake" force #f)
        (task-close! "desert-catch-lizards-introduction")
        (send-event *target* 'draw-vehicle #t)
        (save)
        )
      )
    :cut-list '(73 121 166 223 315 431 488 556 589 660 753 855 892 970 1073 1246 1308 1489 1639 1745 1776)
    :wait-ground-time (seconds 1)
    :actor (new 'static 'boxed-array :type scene-actor
      (new 'static 'scene-actor
        :name "scenecamera"
        :level #f
        :art-group "skel-scenecamera"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :camera 4
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      (new 'static 'scene-actor
        :name "jakc-highres"
        :level 'wasdoors
        :art-group "skel-jakc-highres"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '(73 431 488 589 660 753 864 970 1073 1246 1308 1489)
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        :no-draw-seg #x80
        )
      (new 'static 'scene-actor
        :name "sidekick-highres"
        :level 'wasdoors
        :art-group "skel-sidekick-highres"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '()
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      (new 'static 'scene-actor
        :name "kleever-highres"
        :level 'ldamklev
        :art-group "skel-kleever-highres"
        :prefix ""
        :draw-frames '((min max))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '(315 428 589 1745 1776)
        :cloth-commands '()
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      (new 'static 'scene-actor
        :name "damus-highres"
        :level 'ldamklev
        :art-group "skel-damus-highres"
        :prefix ""
        :draw-frames '((min 1776))
        :scissor-frames '()
        :shadow-frames '((min max))
        :cloth-reset-frames '(435 589 660 (900 1085) 1308 1489)
        :cloth-commands '(((968 972) reset) ((1071 1075) reset))
        :flags #x1
        :shadow-flags -1
        :shadow-volume-joint #f
        )
      )
    :load-point "wasdoors-city"
    :end-point "wasdoors-catch-lizards-intro-end"
    :borrow '((wasdoors 0 ldamklev display))
    :sfx-volume 0.75
    :ambient-volume -1.0
    :music-delay 1500.0
    :scene-task #x2d
    :on-running '(begin (sound-play-loop "was-wind-mov") (sound-play-loop "was-amb-mov"))
    :on-complete #f
    )
  )

(load-scene (new 'static 'scene
              :name "desert-beast-battle-intro"
              :extra #f
              :info #f
              :scene-flags (scene-flags scf1 scf2 scf3 scf4)
              :mask-to-clear (process-mask movie projectile)
              :entity "scene-stage-112"
              :art-group "scenecamera"
              :anim "desert-beast-battle-intro"
              :parts 10
              :command-list '((0 (begin
                     (kill "w-parking-spot-5")
                     (send-event *task-manager* 'kill-sig-rider)
                     (send-event *target* 'draw-vehicle #f)
                     )
                   )
                (1115 (fadeout (frame-time-30 10)))
                (10000 (task-close! "desert-beast-battle-introduction"))
                )
              :cut-list '(41 190 519 645 708 774 904 935 999 1055)
              :wait-ground-time (seconds 1)
              :actor (new 'static 'boxed-array :type scene-actor
                (new 'static 'scene-actor
                  :name "scenecamera"
                  :level #f
                  :art-group "skel-scenecamera"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :camera 4
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "jakc-highres"
                  :level 'wasdoors
                  :art-group "skel-jakc-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  :no-draw-seg #x80
                  )
                (new 'static 'scene-actor
                  :name "sidekick-highres"
                  :level 'wasdoors
                  :art-group "skel-sidekick-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "kleever-highres"
                  :level 'lsigklv
                  :art-group "skel-kleever-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '((min max))
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                (new 'static 'scene-actor
                  :name "sig-highres"
                  :level 'lsigklv
                  :art-group "skel-sig-highres"
                  :prefix ""
                  :draw-frames '((min max))
                  :scissor-frames '()
                  :shadow-frames '((min max))
                  :cloth-reset-frames '()
                  :cloth-commands '()
                  :flags #x1
                  :shadow-flags -1
                  :shadow-volume-joint #f
                  )
                )
              :load-point "wasdoors-desert"
              :end-point "desert-scorpion-gun"
              :borrow '((wasdoors 0 lsigklv special))
              :sfx-volume 0.75
              :ambient-volume -1.0
              :music-delay 1500.0
              :on-running '(begin (sound-play-loop "was-wind-mov") (sound-play-loop "was-amb-mov"))
              :on-complete #f
              )
            )

;; WARN: Return type mismatch float vs none.
(defun spt-birth-func-brightness-buggy-wasdoors-dirt ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (let ((s5-0 (+ (mod (the-as int (rand-uint31-gen *random-generator*)) 51) 200))
        (s3-0 (logand 0 (rand-uint31-gen *random-generator*)))
        (s4-0 (+ (mod (the-as int (rand-uint31-gen *random-generator*)) 11) 20))
        (v1-6 (+ (mod (the-as int (rand-uint31-gen *random-generator*)) 11) 60))
        )
    (set! (-> arg2 rotate-x) (the float (- s5-0 (the-as int s3-0))))
    (set! (-> arg2 rotate-y) (the float (- s5-0 s4-0)))
    (set! (-> arg2 rotate-z) (the float (- s5-0 v1-6)))
    )
  (none)
  )

(defpartgroup group-wasdoors-buggy-dust-skid
  :id 410
  :flags (sp0 sp4)
  :bounds (static-bspherem 0 0 0 64)
  :parts ((sp-item 1658 :flags (sp7)) (sp-item 1659 :flags (sp7)))
  )

(defpart 1658
  :init-specs ((:texture (dirtpuff01 level-default-sprite))
    (:num 1.0)
    (:scale-x (meters 1) (meters 2))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 150.0)
    (:g 120.0)
    (:b 90.0)
    (:a 30.0 10.0)
    (:vel-z (meters -0.06666667))
    (:scalevel-x (meters 0.016666668))
    (:rotvel-z (degrees -0.2) (degrees 0.4))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -0.06666667 -0.06666667)
    (:accel-y (meters 0) (meters 0.00016666666))
    (:friction 0.95)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z left-multiply-quat))
    (:next-time (seconds 0.335))
    (:next-launcher 1660)
    (:conerot-x (degrees 10) (degrees 30))
    (:conerot-y (degrees -10) (degrees 20))
    (:rotate-y (degrees 0))
    )
  )

(defpart 1660
  :init-specs ((:scalevel-x (meters 0.0033333334)) (:scalevel-y :copy scalevel-x))
  )

(defpart 1659
  :init-specs ((:texture (rockbit01 level-default-sprite))
    (:birth-func 'spt-birth-func-part-wasdoors-buggy-skid-bits)
    (:num 2.0)
    (:scale-x (meters 0.1) (meters 0.05))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:vel-z (meters -0.05) (meters -0.016666668))
    (:rotvel-z (degrees -2) (degrees 4))
    (:accel-y (meters -0.0016666667))
    (:timer (seconds 0.335))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z))
    (:userdata :data (new 'static 'boxed-array :type int32
                       10
                       1
                       0
                       #x408b00
                       #x408c00
                       #x40a100
                       #x40a200
                       #x40a300
                       #x40a400
                       #x40a500
                       #x40a600
                       #x40a700
                       #x40a800
                       #x40a900
                       #x40aa00
                       #x40ab00
                       #x40ac00
                       #x40ad00
                       #x40ae00
                       )
               )
    (:func 'sparticle-texture-animate)
    (:conerot-x (degrees 20))
    (:conerot-y (degrees -20) (degrees 40))
    (:rotate-y (degrees 0))
    )
  )

(defun spt-birth-func-part-wasdoors-buggy-skid-bits ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo) (arg3 object) (arg4 object))
  (birth-func-texture-group-2d arg0 arg1 arg2 arg3 arg4)
  (spt-birth-func-brightness-buggy-wasdoors-dirt arg0 arg1 arg2)
  (none)
  )
