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