rattletrap-9.3.2: src/lib/Rattletrap/Decode/PickupAttributeNew.hs

module Rattletrap.Decode.PickupAttributeNew
  ( decodePickupAttributeNewBits
  )
where

import Rattletrap.Decode.Common
import Rattletrap.Decode.Word8le
import Rattletrap.Decode.Word32le
import Rattletrap.Type.PickupAttributeNew

decodePickupAttributeNewBits :: DecodeBits PickupAttributeNew
decodePickupAttributeNewBits = do
  instigator <- getBool
  PickupAttributeNew
    <$> decodeWhen instigator decodeWord32leBits
    <*> decodeWord8leBits