module Dodge.Data.WorldEffect where
import Sound.Data
import Geometry.Data
import Dodge.Data.SoundOrigin

data WorldEffect = NoWorldEffect
    | SetTrigger Bool Int 
    | WorldEffects [WorldEffect]
    | SetLSCol Point3 Int
    | AccessTerminal (Maybe Int)
    | UnlockInv Int
    | SoundStart SoundOrigin Point2 SoundID (Maybe Int)
    | MakeStartCloudAt Point3
    | TorqueCr Float Int
  deriving (Eq,Ord,Show,Read)
data WdP2 = WdP2Const Point2
    | WdYouPos
  deriving (Eq,Ord,Show,Read)
data MdWdWd = MdWdId
    | MdTrigIf MdWdWd MdWdWd
    | MdSetLSCol Point3
    | MdFlickerUpdate
  deriving (Eq,Ord,Show,Read)