Allow turrets to fire bullets, only good for testing for now

This commit is contained in:
2024-12-24 12:24:27 +00:00
parent fb1553bf3c
commit d739a95197
6 changed files with 130 additions and 96 deletions
+3 -1
View File
@@ -1,5 +1,6 @@
module Dodge.Room.LasTurret where
import Dodge.Item.Held.Cane
import qualified Data.Set as S
import Dodge.Cleat
import Dodge.Data.GenWorld
@@ -23,7 +24,8 @@ import RandomHelp
cenLasTur :: Room
cenLasTur =
roomNgon 8 200 & rmPmnts
.~ [ putLasTurret 0.02
-- .~ [ putLasTurret 0.02
.~ [ putTurret autoRifle 0.02
, heightWallPS (resetPLUse $ rprBoolShift (const . isInLnk) (shiftInBy 100)) 30 covershape
, mntLightLnkCond $ rprBool $ const . isInLnk
]