24 lines
752 B
Haskell
24 lines
752 B
Haskell
module Dodge.Placement.Instance.Analyser (analyser) where
|
|
|
|
import Color
|
|
import Dodge.Data.GenWorld
|
|
import Dodge.Default
|
|
import Dodge.Placement.Instance
|
|
--import Dodge.Terminal
|
|
import LensHelp
|
|
|
|
analyser :: ProximitySensorType -> PlacementSpot -> PlacementSpot -> Placement
|
|
analyser pst pslight psmc = extTrigLitPos pslight $ \tp ->
|
|
Just $
|
|
plSpot .~ psmc $
|
|
putTerminal (dark magenta)
|
|
(themachine & mcMounts . at OTTrigger .~ _plMID tp)
|
|
tparams
|
|
where
|
|
tparams = defaultTerminal & tmStatus .~ TerminalLineRead
|
|
themachine =
|
|
defaultMachine & mcColor .~ aquamarine
|
|
& mcType .~ McTerminal
|
|
& mcHP .~ 100
|
|
& mcType .~ McProxSensor (ProxSensor pst False)
|