Implement simple sweep light

2021-09-26 23:38:32 +01:00
parent c0480f0ad6
commit d9ad55ec50
6 changed files with 66 additions and 5 deletions
@@ -28,6 +28,7 @@ import System.Random
 data PSType = PutCrit {_unPutCrit :: Creature}
    | PutLS LightSource Picture
    | PutButton Button
+    | PutProp Prop
    | PutFlIt Item
    | PutPressPlate PressPlate
    | PutAutoDoor Point2 Point2