Start targeting refactor

src/Dodge/Data/ItEffect.hs

@@ -1,4 +1,32 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
 module Dodge.Data.ItEffect where
+import Control.Lens
+-- I believe this is called every frame, not sure when though
+data ItEffect 
+    = NoItEffect
+    | ItInvEffect 
+        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World
+        ,_ieCounter   :: Int
+        }
+    | ItRewindEffect
+        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World
+--        ,_ieStoredWorlds    :: [World]
+        }
+    | ItEffect 
+        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World 
+        ,_ieFloor     :: ItFloorEffect --Int -> World -> World 
+        ,_ieCounter   :: Int
+        }
+    | ItInvEffectID
+        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World
+        ,_ieMID   :: Maybe Int
+        }  -- the duplication of ieMID may cause errors...
+    | ItInvEffectDrop
+        { _ieInv  :: ItInvEffect --Item -> Creature -> World -> World
+        , _ieDrop    :: ItDropEffect --Item -> Creature -> World -> World
+        , _ieMID     :: Maybe Int
+        }
 
 data ItInvEffect = NoInvEffect
     | RewindEffect
@@ -9,3 +37,4 @@ data ItInvEffect = NoInvEffect
     | RemoveShieldWall
 data ItFloorEffect = NoFloorEffect
 data ItDropEffect = NoDropEffect
+makeLenses ''ItEffect

src/Dodge/Data/Targeting.hs

@@ -0,0 +1,7 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Targeting where
+
+data TargetUpdate = NoTargeting
+
+data TargetDraw = SquareTarget