20 lines
453 B
Haskell
20 lines
453 B
Haskell
module Dodge.Wall.ForceField where
|
|
|
|
import Color
|
|
import Dodge.Data.Wall
|
|
import Dodge.Default.Wall
|
|
|
|
forceField :: Wall
|
|
forceField =
|
|
defaultWall
|
|
{ _wlColor = orange
|
|
, _wlOpacity = DrawnWall DrawForceField
|
|
, _wlPathable = True
|
|
, _wlWalkable = True
|
|
, _wlFireThrough = False
|
|
, _wlReflect = True
|
|
, _wlUnshadowed = True
|
|
, _wlRotateTo = False
|
|
, _wlStructure = StandaloneWall
|
|
}
|