justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Commit before improving logging of annotations

Browse Source
This commit is contained in:
justin
2022-06-12 17:56:28 +01:00
parent eeec9248bb
commit fa1e3ef2f5
6 changed files with 35 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Floor.hs
+13 -9
View File
@@ -31,27 +31,31 @@ import RandomHelp
--import Color
--import Dodge.Wire
import Data.List (intersperse)
--import Data.Sequence hiding (zipWith)
--import Data.Maybe
--import qualified Data.IntMap.Strict as IM
initialAnoTree :: Annotation
initialAnoTree = PadWith door $ OnwardList
[ IntAnno' $ SpecificRoom . startRoom
-- , PassthroughLockKeyLists 2 keyCardRunPastRand itemRooms
, IntAnno' $ SpecificRoom . warningRooms
$ intersperse
(SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
[ IntAnno $ SpecificRoom . startRoom
, (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
, IntAnno $ PassthroughLockKeyLists
[(sensorRoomRunPast ELECTRICAL, takeOne [STATICMODULE,SPARKGUN] )] itemRooms
, IntAnno $ PassthroughLockKeyLists keyCardRunPastRand itemRooms
, IntAnno $ SpecificRoom . warningRooms
, SpecificRoom $ rToOnward "chaseCrit+armourChaseCrit rectRoom"
$ return . cleatOnward $ roomRectAutoLinks 400 400 & rmPmnts .++~
[ spNoID anyUnusedSpot (PutCrit invisibleChaseCrit)
, spNoID anyUnusedSpot (PutCrit armourChaseCrit)
]
--"-- , [AnoApplyInt 100 healthTest]
--" , PassthroughLockKeyLists 23
--" [(sensorRoomRunPast ELECTRICAL, takeOne [STATICMODULE,SPARKGUN] )] itemRooms
--" , SpecificRoom (tanksRoom [] [] >>= rToOnward "empty tanksRoom" . pure . cleatOnward)
--" , PassthroughLockKeyLists 222 lockRoomKeyItems itemRooms
--a-- , [AnoApplyInt 100 healthTest]
--a , SpecificRoom (tanksRoom [] [] >>= rToOnward "empty tanksRoom" . pure . cleatOnward)
--" , IntAnno $ PassthroughLockKeyLists lockRoomKeyItems itemRooms
--" , SpecificRoom randomChallenges
--" , AnoApplyInt 1 lasSensorTurretTest
--" , IntAnno $ SpecificRoom . lasSensorTurretTest
--"-- ,[SpecificRoom $ fmap pure roomCCrits]
--"-- ,[AirlockAno]
--"-- ,[Corridor]