LslPlus-0.1.2: src/Language/Lsl/Internal/AvEvents.hs

module Language.Lsl.Internal.AvEvents(AvatarOutputEvent(..),
                    AvatarInputEvent(..)) where

data AvatarOutputEvent =
      AvatarTouch { avatarTouchPrimKey :: String, avatarTouchDuration :: Float }
    | AvatarWhisper { avatarChatChannel :: Int, avatarChatMessage :: String }
    | AvatarSay { avatarChatChannel :: Int, avatarChatMessage :: String }
    | AvatarShout { avatarChatChannel :: Int, avatarChatMessage :: String }
    | AvatarPay { avatarPayPrimKey :: String, avatarPayAmount :: Int }
    | AvatarControl { avatarNewControlBits :: Int } deriving (Read,Show)

data AvatarInputEvent =
      AvatarOwnerSay { avatarOwnerSayPrimKey :: String, avatarOwnerSayMsg :: String }
    | AvatarHearsChat { avatarHearsChatFromName :: String, avatarHearsChatFromKey :: String, avatarHearsChatMsg :: String }
    | AvatarDialog { avatarDialogMessage :: String, avatarDialogButtons :: [String], 
                          avatarDialogChannel :: Int, avatarDialogSourceObject :: String }
    | AvatarLoadURL { avatarLoadURLMessage :: String, avatarLoadURLAddress :: String }
    | AvatarMapDestination { avatarMapDestination :: String, avatarMapDestinationPosition :: (Float,Float,Float) }
    deriving (Read,Show)