module Rattletrap.Decode.ExplosionAttribute
  ( decodeExplosionAttributeBits
  )
where

import Rattletrap.Decode.Common
import Rattletrap.Decode.Int32le
import Rattletrap.Decode.Vector
import Rattletrap.Type.ExplosionAttribute

decodeExplosionAttributeBits
  :: (Int, Int, Int) -> DecodeBits ExplosionAttribute
decodeExplosionAttributeBits version =
  ExplosionAttribute
    <$> getBool
    <*> decodeInt32leBits
    <*> decodeVectorBits version