Add procedural room made up of four corners

2021-04-24 15:40:10 +02:00
parent 108b66f3ad
commit aa08d66026
5 changed files with 136 additions and 27 deletions
@@ -22,7 +22,8 @@ lamp :: Creature
 lamp = defaultInanimate
    { _crUpdate = initialiseLamp
    , _crHP = 500
-    , _crPict = \ _ -> onLayer CrLayer $ color white $ circleSolid 10
+    , _crPict = \ _ -> onLayer CrLayer $ color white $ circleSolid 5
+    , _crRad = 5
    }

 initialiseLamp :: CRUpdate