Data.hs

module Game.Player.Data(
    Player(..)
  , PlayerId(..)
  , PlayerMessage(..)
  , PlayerNetMessage(..)
  , isPlayerShotMessage
  ) where

import Control.DeepSeq
import Data.Hashable
import Data.Typeable 
import Data.Serialize
import GHC.Generics (Generic)
import Linear
import Prelude hiding (id, (.))

import Game.Player.Shared

import Game.GoreAndAsh.Actor
import Game.GoreAndAsh.Network 
import Game.GoreAndAsh.Sync

data Player = Player {
  playerId :: !PlayerId
, playerPos :: !(V2 Double)
, playerColor :: !(V3 Double) 
, playerRot :: !Double 
, playerSpeed :: !Double 
, playerSize :: !Double
, playerPeer :: !Peer
} deriving (Generic)

instance NFData Player 

newtype PlayerId = PlayerId { unPlayerId :: Int } deriving (Eq, Show, Generic) 
instance NFData PlayerId 
instance Hashable PlayerId 
instance Serialize PlayerId

data PlayerMessage =
    -- | The player was shot by specified player
    PlayerShotMessage !PlayerId 
  deriving (Typeable, Generic)

instance NFData PlayerMessage 

instance ActorMessage PlayerId where
  type ActorMessageType PlayerId = PlayerMessage
  toCounter = unPlayerId
  fromCounter = PlayerId
  
instance NetworkMessage PlayerId where 
  type NetworkMessageType PlayerId = PlayerNetMessage

instance RemoteActor PlayerId Player where
  type RemoteActorState PlayerId = Player
  type RemoteActorId Player = PlayerId
  
-- | Check specific type of message
isPlayerShotMessage :: PlayerMessage -> Bool
isPlayerShotMessage m = case m of 
  PlayerShotMessage _ -> True
--  _ -> False