module Rattletrap.Type.Attribute.AppliedDamage where import qualified Rattletrap.BitGet as BitGet import qualified Rattletrap.BitPut as BitPut import qualified Rattletrap.Schema as Schema import qualified Rattletrap.Type.I32 as I32 import qualified Rattletrap.Type.U8 as U8 import qualified Rattletrap.Type.Vector as Vector import qualified Rattletrap.Type.Version as Version import qualified Rattletrap.Utility.Json as Json data AppliedDamage = AppliedDamage { AppliedDamage -> U8 unknown1 :: U8.U8 , AppliedDamage -> Vector location :: Vector.Vector , AppliedDamage -> I32 unknown3 :: I32.I32 , AppliedDamage -> I32 unknown4 :: I32.I32 } deriving (AppliedDamage -> AppliedDamage -> Bool (AppliedDamage -> AppliedDamage -> Bool) -> (AppliedDamage -> AppliedDamage -> Bool) -> Eq AppliedDamage forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: AppliedDamage -> AppliedDamage -> Bool $c/= :: AppliedDamage -> AppliedDamage -> Bool == :: AppliedDamage -> AppliedDamage -> Bool $c== :: AppliedDamage -> AppliedDamage -> Bool Eq, Int -> AppliedDamage -> ShowS [AppliedDamage] -> ShowS AppliedDamage -> String (Int -> AppliedDamage -> ShowS) -> (AppliedDamage -> String) -> ([AppliedDamage] -> ShowS) -> Show AppliedDamage forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [AppliedDamage] -> ShowS $cshowList :: [AppliedDamage] -> ShowS show :: AppliedDamage -> String $cshow :: AppliedDamage -> String showsPrec :: Int -> AppliedDamage -> ShowS $cshowsPrec :: Int -> AppliedDamage -> ShowS Show) instance Json.FromJSON AppliedDamage where parseJSON :: Value -> Parser AppliedDamage parseJSON = String -> (Object -> Parser AppliedDamage) -> Value -> Parser AppliedDamage forall a. String -> (Object -> Parser a) -> Value -> Parser a Json.withObject String "AppliedDamage" ((Object -> Parser AppliedDamage) -> Value -> Parser AppliedDamage) -> (Object -> Parser AppliedDamage) -> Value -> Parser AppliedDamage forall a b. (a -> b) -> a -> b $ \Object object -> do U8 unknown1 <- Object -> String -> Parser U8 forall value. FromJSON value => Object -> String -> Parser value Json.required Object object String "unknown1" Vector location <- Object -> String -> Parser Vector forall value. FromJSON value => Object -> String -> Parser value Json.required Object object String "location" I32 unknown3 <- Object -> String -> Parser I32 forall value. FromJSON value => Object -> String -> Parser value Json.required Object object String "unknown3" I32 unknown4 <- Object -> String -> Parser I32 forall value. FromJSON value => Object -> String -> Parser value Json.required Object object String "unknown4" AppliedDamage -> Parser AppliedDamage forall (f :: * -> *) a. Applicative f => a -> f a pure AppliedDamage :: U8 -> Vector -> I32 -> I32 -> AppliedDamage AppliedDamage { U8 unknown1 :: U8 unknown1 :: U8 unknown1, Vector location :: Vector location :: Vector location, I32 unknown3 :: I32 unknown3 :: I32 unknown3, I32 unknown4 :: I32 unknown4 :: I32 unknown4 } instance Json.ToJSON AppliedDamage where toJSON :: AppliedDamage -> Value toJSON AppliedDamage x = [Pair] -> Value Json.object [ String -> U8 -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "unknown1" (U8 -> Pair) -> U8 -> Pair forall a b. (a -> b) -> a -> b $ AppliedDamage -> U8 unknown1 AppliedDamage x , String -> Vector -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "location" (Vector -> Pair) -> Vector -> Pair forall a b. (a -> b) -> a -> b $ AppliedDamage -> Vector location AppliedDamage x , String -> I32 -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "unknown3" (I32 -> Pair) -> I32 -> Pair forall a b. (a -> b) -> a -> b $ AppliedDamage -> I32 unknown3 AppliedDamage x , String -> I32 -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "unknown4" (I32 -> Pair) -> I32 -> Pair forall a b. (a -> b) -> a -> b $ AppliedDamage -> I32 unknown4 AppliedDamage x ] schema :: Schema.Schema schema :: Schema schema = String -> Value -> Schema Schema.named String "attribute-applied-damage" (Value -> Schema) -> Value -> Schema forall a b. (a -> b) -> a -> b $ [(Pair, Bool)] -> Value Schema.object [ (String -> Value -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "unknown1" (Value -> Pair) -> Value -> Pair forall a b. (a -> b) -> a -> b $ Schema -> Value Schema.ref Schema U8.schema, Bool True) , (String -> Value -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "location" (Value -> Pair) -> Value -> Pair forall a b. (a -> b) -> a -> b $ Schema -> Value Schema.ref Schema Vector.schema, Bool True) , (String -> Value -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "unknown3" (Value -> Pair) -> Value -> Pair forall a b. (a -> b) -> a -> b $ Schema -> Value Schema.ref Schema I32.schema, Bool True) , (String -> Value -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "unknown4" (Value -> Pair) -> Value -> Pair forall a b. (a -> b) -> a -> b $ Schema -> Value Schema.ref Schema I32.schema, Bool True) ] bitPut :: AppliedDamage -> BitPut.BitPut bitPut :: AppliedDamage -> BitPut bitPut AppliedDamage appliedDamageAttribute = U8 -> BitPut U8.bitPut (AppliedDamage -> U8 unknown1 AppliedDamage appliedDamageAttribute) BitPut -> BitPut -> BitPut forall a. Semigroup a => a -> a -> a <> Vector -> BitPut Vector.bitPut (AppliedDamage -> Vector location AppliedDamage appliedDamageAttribute) BitPut -> BitPut -> BitPut forall a. Semigroup a => a -> a -> a <> I32 -> BitPut I32.bitPut (AppliedDamage -> I32 unknown3 AppliedDamage appliedDamageAttribute) BitPut -> BitPut -> BitPut forall a. Semigroup a => a -> a -> a <> I32 -> BitPut I32.bitPut (AppliedDamage -> I32 unknown4 AppliedDamage appliedDamageAttribute) bitGet :: Version.Version -> BitGet.BitGet AppliedDamage bitGet :: Version -> BitGet AppliedDamage bitGet Version version = U8 -> Vector -> I32 -> I32 -> AppliedDamage AppliedDamage (U8 -> Vector -> I32 -> I32 -> AppliedDamage) -> BitGet U8 -> BitGet (Vector -> I32 -> I32 -> AppliedDamage) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> BitGet U8 U8.bitGet BitGet (Vector -> I32 -> I32 -> AppliedDamage) -> BitGet Vector -> BitGet (I32 -> I32 -> AppliedDamage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Version -> BitGet Vector Vector.bitGet Version version BitGet (I32 -> I32 -> AppliedDamage) -> BitGet I32 -> BitGet (I32 -> AppliedDamage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> BitGet I32 I32.bitGet BitGet (I32 -> AppliedDamage) -> BitGet I32 -> BitGet AppliedDamage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> BitGet I32 I32.bitGet