Add newtype for item id int

src/Dodge/Data/Item/Location.hs

@@ -21,6 +21,8 @@ data TurretInt
   deriving (Eq,Ord,Show,Read)
 data CrInt = CrInt
   deriving (Eq,Ord,Show,Read)
+data ItmInt = ItmInt
+  deriving (Eq,Ord,Show,Read)
 
 data ItemLocation
     = InInv 
@@ -39,3 +41,5 @@ makeLenses ''ItemLocation
 deriveJSON defaultOptions ''InvInt
 deriveJSON defaultOptions ''FloorInt
 deriveJSON defaultOptions ''ItemLocation
+deriveJSON defaultOptions ''ItmInt
+deriveJSON defaultOptions ''CrInt

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -9,6 +9,8 @@ module Dodge.Data.Item.Use.Consumption.Ammo (
     module Dodge.Data.Payload,
 ) where
 
+import Dodge.Data.Item.Location
+import NewInt
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -21,11 +23,11 @@ data ProjectileDraw = DrawShell | DrawRemoteShell | DrawDrone | DrawBlankProject
 data ProjectileUpdate
     = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
     | StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
-    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuControllerID :: Maybe Int}
+    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuControllerID :: Maybe (NewInt ItmInt)}
     | ReduceSpinPU {_pjuReduceSpin :: Float}
-    | DestroyPU {_pjuScreenID :: Maybe Int, _pjuTimer :: Int}
+    | DestroyPU {_pjuScreenID :: Maybe (NewInt ItmInt), _pjuTimer :: Int}
     | TimePU
-    | CollisionEffectPU {_pjuScreenID :: Maybe Int}
+    | CollisionEffectPU {_pjuScreenID :: Maybe (NewInt ItmInt)}
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data AmmoType