Add variable door speed, still buggy

2021-09-10 13:41:46 +01:00
parent 87a9745d37
commit c695767fb0
11 changed files with 99 additions and 78 deletions
@@ -245,7 +245,7 @@ centerVaultRoom n w h d = do
  where
    col = dim $ dim $ bright red
    theDoor i = 
-        [ sPS (V2 0  (d-10)) 0 $ PutDoubleDoor col (cond i) (V2 (-19) 0) (V2 19 0)
+        [ sPS (V2 0  (d-10)) 0 $ PutDoubleDoor col (cond i) (V2 (-19) 0) (V2 19 0) 2
        , sPS (V2 35 (d+4)) 0 $ PutButton $ makeSwitch col 
                           (over worldState (M.insert (DoorNumOpen i) True))
                           (over worldState (M.insert (DoorNumOpen i) False))