Add file

2025-06-05 11:11:34 +01:00
parent 1a0e115c7d
commit cff32e50f3
2 changed files with 83 additions and 0 deletions
@@ -0,0 +1,22 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Dodge.Data.UseDelay where
+
+import Sound.Data
+import Control.Lens
+
+data ItemUseDelay -- should just be Delay
+    = NoDelay
+    | FixedRate
+        { _rateMax :: Int
+        }
+    | WarmUpNoDelay
+        { _warmMax :: Int
+        , _warmSound :: SoundID
+        }
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
+makeLenses ''ItemUseDelay