24 lines
427 B
Haskell
24 lines
427 B
Haskell
module Dodge.Creature.Lamp (
|
|
lamp,
|
|
colorLamp,
|
|
) where
|
|
|
|
import Dodge.Data.Creature
|
|
import Dodge.Default
|
|
import Geometry.Data
|
|
|
|
colorLamp ::
|
|
Point3 -> -- color of lamp
|
|
Float -> -- height of lamp
|
|
Creature
|
|
colorLamp col h =
|
|
defaultInanimate
|
|
{ _crHP = 100
|
|
, _crType = LampCrit h col Nothing
|
|
, _crRad = 3
|
|
, _crMass = 3
|
|
}
|
|
|
|
lamp :: Float -> Creature
|
|
lamp = colorLamp 0.75
|