Move item effect functions

src/Dodge/Data/Item/UseDelay.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.Item.UseDelay where
+import Control.Lens
+data UseDelay -- should just be Delay
+    = NoDelay
+    | FixedRate
+        {_rateMax   :: Int
+        ,_rateTime  :: Int
+        }
+    | VariableRate
+        {_rateMax       :: Int
+        ,_rateTime      :: Int
+        ,_rateMaxMax    :: Int
+        ,_rateMinMax    :: Int
+        }
+    | WarmUpNoDelay
+        {_warmTime :: Int
+        ,_warmMax  :: Int
+        }
+makeLenses ''UseDelay