You can now change AMAnimType to enable the animation through the x/y axis and alpha for example AMAnimType:= AMTypeMaskX or AMTypeMaskAlpha will enable movement over the X axis and alpha

{-# LANGUAGE OverloadedStrings #-}
module Consts where

import qualified Data.ByteString.Char8 as B

serverVersion :: B.ByteString
serverVersion = "1"