Add indexed world modifications, example use in flicker lights

2021-11-17 11:24:40 +00:00
parent 559d7e3a23
commit 9db091597d
10 changed files with 110 additions and 32 deletions
@@ -90,6 +90,7 @@ shiftPSBy (pos,rot) ps = ps
 placeSpotID :: PlacementSpot -> PSType -> World -> (Int, World)
 placeSpotID ps pt w = case pt of
    PutTrigger cond -> placeNewInto triggers cond w
+    PutMod     modi -> plNewUpID modifications mdID modi w
    PutProp prop    -> plNewUpID props pjID (mvProp p rot prop) w
    PutButton bt    -> plNewUpID buttons btID (mvButton p rot bt) w
    PutFlIt itm     -> plNewUpID floorItems flItID (createFlIt p rot itm) w