Move to using RoomLink datatype

2021-11-23 20:45:39 +00:00
parent a66ea1d922
commit 1f2d767d5e
18 changed files with 160 additions and 122 deletions
@@ -5,6 +5,7 @@ Typically dead ends.
 module Dodge.Room.Treasure
    where
 import Dodge.Data
+import Dodge.RoomLink
 import Dodge.Placement.Instance
 import Dodge.Default.Room
 import Dodge.LevelGen.Data
@@ -26,7 +27,7 @@ triLootRoom w h = pure $ defaultRoom
                  , base
                  ]
    , _rmOutLinks = []
-    , _rmInLinks  = [(V2 0 (-80) , pi)]
+    , _rmInLinks  = [uncurry inLink(V2 0 (-80) , pi)]
    , _rmPath   = doublePair (V2 0 (-80) , V2 0 (h/2))
    , _rmPmnts     =
        [sPS (V2 (15-w)    15 )  0 $ PutID 0