Add shrinkability and cursed items

src/Dodge/Distortion.hs

@@ -0,0 +1,10 @@
+module Dodge.Distortion where
+import Dodge.Distortion.Data
+
+updateDistortion :: Distortion -> Maybe Distortion
+updateDistortion  dt = case dt of
+  RadialDistortion a b c v 
+    | v > 1 -> Just $ RadialDistortion a b c $ max 1 (v - 0.05)
+    | v < 1 -> Just $ RadialDistortion a b c $ min 1 (v + 0.05) 
+    | otherwise -> Nothing
+