24 lines
619 B
Haskell
24 lines
619 B
Haskell
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)
|