Add airlocks

2021-05-02 21:09:25 +02:00
parent 9cdd3a9629
commit f336d7e3f6
27 changed files with 522 additions and 219 deletions
@@ -16,8 +16,6 @@ import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 import System.Random

-
-
 yourControl :: World -> (World -> World,StdGen) -> Creature -> ((World -> World,StdGen), Maybe Creature)
 yourControl w (f,g) cr = ( (updateUsingInput . f, g)
                         , Just . crAutoReload . mouseActionsCr (_mouseButtons w) $ wasdWithAiming w speed strafeSpeed 0 cr