Apply all world side effects using list

2021-04-09 00:47:41 +02:00
parent feec924d5d
commit c42c5069ea
16 changed files with 106 additions and 82 deletions
@@ -0,0 +1,40 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.LevelGen.Data
+    where
+import Dodge.Data
+import Picture
+
+import Control.Lens
+import Control.Monad.State
+import System.Random
+
+data PSType = PutCrit Creature
+    | PutLS LightSource Picture
+    | PutButton Button
+    | PutFlIt FloorItem
+    | PutPressPlate PressPlate
+    | PutAutoDoor Point2 Point2
+    | PutBlock [Int] Color [Point2]
+    | PutLineBlock Wall Float Float Point2 Point2
+    | PutTriggerDoor Color (World -> Bool) Point2 Point2
+    | PutBtDoor Color Point2 Float Point2 Point2
+    | PutSwitchDoor Color Point2 Float Point2 Point2
+    | RandPS (State StdGen PSType)
+    | PutNothing
+    | CollectivePS 
+        { _collectiveID  :: Int 
+        , _collectiveNum :: Int 
+        , _collectiveFunction :: [Int] -> State StdGen [PSType]
+        }
+    | LabelPS { _psLabel :: Int, _ps :: PSType}
+    | PutWindow { _pwPoly :: [Point2] , _pwColor :: Color
+                }
+data PlacementSpot = PS
+    { _psPos :: Point2
+    , _psRot :: Float
+    , _psType :: PSType
+    }
+
+makeLenses ''PSType
+makeLenses ''PlacementSpot