module Connect where

import Types
import Util

-- Passes state for X to hurt Y
conHurt :: MainCharacter -> MainCharacter -> BoardState -> BoardState
conHurt charX charY oldBS
   | isDowned charX oldDowned = oldBoardState
      { bsGameLog = (bsGameLog oldBoardState)
         ++ $ Right GameError (charX ++ " is downed, could not hurt " ++ charY)
      }
   | (isAdjacent . not) charX charY oldGroups = oldBoardState
      { bsGameLog = (bsGameLog oldBoardState)
         ++ $ Right GameError (charX ++ " is not adjacent to " ++ charY ++ ", could not hurt")
      }
   | isAlone charX oldGroups = oldBoardState
      { bsGameLog = (bsGameLog oldBoardState)
         ++ $ Left GameLine (charX ++ " hurt " ++ charY ++ ", " ++ charY ++ " is downed")
      , bsNeoTokyo = (bsNeoTokyo oldBoardState)
         { ntPutCards = filter (\x -> filter ((snd x) /= Just charX)) oldPut
         , ntDowned = (charY:oldDowned)
         }
   |otherwise = oldBoardState
      { bsGameLog = (bsGameLog oldBoardState)
         ++ $ Left GameLine (charX ++ " hurt " ++ charY ++ ", " ++ charY ++ " left their group")
      , bsNeoTokyo = (bsNeoTokyo oldBoardState)
         { ntGroups = removeFromGroup charY oldGroups }
      }  
   where
      oldDowned = (ntDowned . bsNeoTokyo) oldBS
      oldGroups = (ntGroups . bsNeoTokyo) oldBS
      oldPut = (ntPutCards . bsNeoTokyo) oldBS