20 lines
449 B
Haskell
20 lines
449 B
Haskell
module Dodge.Default.Door (defaultDoor) where
|
|
|
|
import Dodge.Data.Door
|
|
|
|
defaultDoor :: Door
|
|
defaultDoor =
|
|
Door
|
|
{ _drID = 0
|
|
, _drTrigger = WdBlConst False
|
|
, _drUpdate = DoorLerp 2
|
|
, _drZeroPos = (0, 0)
|
|
, _drOnePos = (0, 0)
|
|
, _drLerp = 0
|
|
, _drFootPrint = mempty
|
|
, _drHP = 10000
|
|
, _drPushedBy = PushesItself
|
|
, _drPushes = Nothing
|
|
, _drMounts = mempty
|
|
}
|