module Rattletrap.Encode.LoadoutsOnlineAttribute
  ( putLoadoutsOnlineAttribute
  )
where

import Rattletrap.Encode.LoadoutOnlineAttribute
import Rattletrap.Type.LoadoutsOnlineAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putLoadoutsOnlineAttribute :: LoadoutsOnlineAttribute -> BinaryBits.BitPut ()
putLoadoutsOnlineAttribute :: LoadoutsOnlineAttribute -> BitPut ()
putLoadoutsOnlineAttribute LoadoutsOnlineAttribute
loadoutsOnlineAttribute = do
  LoadoutOnlineAttribute -> BitPut ()
putLoadoutOnlineAttribute
    (LoadoutsOnlineAttribute -> LoadoutOnlineAttribute
loadoutsOnlineAttributeBlue LoadoutsOnlineAttribute
loadoutsOnlineAttribute)
  LoadoutOnlineAttribute -> BitPut ()
putLoadoutOnlineAttribute
    (LoadoutsOnlineAttribute -> LoadoutOnlineAttribute
loadoutsOnlineAttributeOrange LoadoutsOnlineAttribute
loadoutsOnlineAttribute)
  Bool -> BitPut ()
BinaryBits.putBool (LoadoutsOnlineAttribute -> Bool
loadoutsOnlineAttributeUnknown1 LoadoutsOnlineAttribute
loadoutsOnlineAttribute)
  Bool -> BitPut ()
BinaryBits.putBool (LoadoutsOnlineAttribute -> Bool
loadoutsOnlineAttributeUnknown2 LoadoutsOnlineAttribute
loadoutsOnlineAttribute)