Delete cruft, add Reader monad to some internal ai

2021-05-16 21:42:11 +02:00
parent 0798cc0b0e
commit d7fcdbf550
69 changed files with 721 additions and 2894 deletions
@@ -8,7 +8,6 @@ import Picture
 import Control.Lens
 import Control.Monad.State
 import System.Random
-
 data PSType = PutCrit {_unPutCrit :: Creature}
    | PutLS LightSource Picture
    | PutButton Button
@@ -34,12 +33,13 @@ data Placement
    = SinglePlacement {_placementSpot :: PlacementSpot }
    | GroupedPlacement
        {_groupPlacementID :: Int
-        ,_groupPlacementFunc :: [PSType] -> PSType -> World -> World
+--        ,_groupPlacementUpdate :: World -> Placement -> (World, Placement)
+        ,_groupUpdate :: World -> [Placement] -> World
+--        ,_groupPlacementFunc :: [PSType] -> PSType -> World -> World
        ,_placementSpot :: PlacementSpot
        }
-        
+sPS :: Point2 -> Float -> PSType -> Placement
 sPS p a = SinglePlacement . PS p a
-
 makeLenses ''PSType
 makeLenses ''PlacementSpot
 makeLenses ''Placement