Limit number of distortions to 10

2025-11-18 23:10:36 +00:00
parent b633b9d55f
commit 8759431fec
4 changed files with 23 additions and 12 deletions
@@ -22,4 +22,5 @@ testEvent w = fromMaybe w $ do
                20
    return $ w & cWorld . lWorld . distortions .~ [distortionBulge
        , distortionBulge & rdPos +~ 50
+        , distortionBulge & rdPos +~ (-50)
        ]