Cleanup
This commit is contained in:
+1
-4
@@ -9,14 +9,11 @@ import Dodge.Data
|
||||
import Dodge.Menu
|
||||
import Dodge.Zone.Data
|
||||
import Dodge.Config.Data
|
||||
import Dodge.World.Trigger.Data
|
||||
--import Dodge.Config.Data
|
||||
import Dodge.Base
|
||||
import Dodge.Zone
|
||||
import Dodge.WallCreatureCollisions
|
||||
import Dodge.LevelGen.Block
|
||||
import Dodge.Update.Camera
|
||||
--import Dodge.Update.UsingInput
|
||||
import Dodge.SoundLogic
|
||||
import Dodge.Inventory
|
||||
import Dodge.Initialisation
|
||||
@@ -252,7 +249,7 @@ crCrSpring c1 c2 w
|
||||
|
||||
ifConfigWallRotate :: World -> World
|
||||
ifConfigWallRotate w
|
||||
| (_rotate_to_wall $ _config w ) && not (ButtonRight `S.member` _mouseButtons w)
|
||||
| _rotate_to_wall (_config w) && not (ButtonRight `S.member` _mouseButtons w)
|
||||
= rotateToOverlappingWall w
|
||||
| otherwise = w
|
||||
|
||||
|
||||
Reference in New Issue
Block a user