module Rattletrap.Encode.ExplosionAttribute
  ( putExplosionAttribute
  )
where

import Rattletrap.Encode.Int32le
import Rattletrap.Encode.Vector
import Rattletrap.Type.ExplosionAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putExplosionAttribute :: ExplosionAttribute -> BinaryBits.BitPut ()
putExplosionAttribute :: ExplosionAttribute -> BitPut ()
putExplosionAttribute ExplosionAttribute
explosionAttribute = do
  Bool -> BitPut ()
BinaryBits.putBool Bool
False
  Int32le -> BitPut ()
putInt32Bits (ExplosionAttribute -> Int32le
explosionAttributeActorId ExplosionAttribute
explosionAttribute)
  Vector -> BitPut ()
putVector (ExplosionAttribute -> Vector
explosionAttributeLocation ExplosionAttribute
explosionAttribute)