Add sounds, move data types out into separate folders

src/Dodge/Data/RightButtonOptions.hs

@@ -0,0 +1,44 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.RightButtonOptions where
+import Dodge.Equipment.Data
+import Control.Lens
+
+data RightButtonOptions
+    = NoRightButtonOptions
+    | EquipOptions 
+        {_opEquip       :: [EquipPosition]
+        ,_opSel         :: Int
+        ,_opCurInvPos   :: Int
+        ,_opAllocateEquipment :: AllocateEquipment
+        ,_opActivateEquipment :: ActivateEquipment
+        }
+data ActivateEquipment
+    = ActivateEquipment {_activateEquipment :: Int }
+    | DeactivateEquipment {_deactivateEquipment :: Int}
+    | ActivateDeactivateEquipment {_activateEquipment :: Int ,_deactivateEquipment :: Int}
+    | NoChangeActivateEquipment
+data AllocateEquipment 
+    = DoNotMoveEquipment
+    | PutOnEquipment
+        { _allocNewPos :: EquipPosition
+        }
+    | MoveEquipment
+        { _allocNewPos  :: EquipPosition
+        , _allocOldPos  :: EquipPosition
+        }
+    | SwapEquipment
+        { _allocNewPos  :: EquipPosition
+        , _allocOldPos  :: EquipPosition
+        , _allocSwapID  :: Int
+        }
+    | ReplaceEquipment
+        { _allocNewPos  :: EquipPosition
+        , _allocRemoveID :: Int
+        }
+    | RemoveEquipment
+        { _allocOldPos  :: EquipPosition
+        }
+makeLenses ''RightButtonOptions
+makeLenses ''AllocateEquipment
+makeLenses ''ActivateEquipment