/*
* Copyright 2010 BetaSteward_at_googlemail.com. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without modification, are
* permitted provided that the following conditions are met:
*
*    1. Redistributions of source code must retain the above copyright notice, this list of
*       conditions and the following disclaimer.
*
*    2. Redistributions in binary form must reproduce the above copyright notice, this list
*       of conditions and the following disclaimer in the documentation and/or other materials
*       provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY BetaSteward_at_googlemail.com ``AS IS'' AND ANY EXPRESS OR IMPLIED
* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
* FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BetaSteward_at_googlemail.com OR
* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
* ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* The views and conclusions contained in the software and documentation are those of the
* authors and should not be interpreted as representing official policies, either expressed
* or implied, of BetaSteward_at_googlemail.com.
*/

package mage.server;

import mage.server.draft.DraftManager;
import mage.server.tournament.TournamentFactory;
import mage.server.tournament.TournamentManager;
import mage.game.Table;
import java.io.BufferedInputStream;
import java.io.BufferedOutputStream;
import java.io.FileInputStream;
import java.io.FileOutputStream;
import java.io.IOException;
import java.io.InputStream;
import java.io.ObjectInput;
import java.io.ObjectOutput;
import java.io.ObjectOutputStream;
import java.io.OutputStream;
import java.util.Map.Entry;
import java.util.UUID;
import java.util.concurrent.ConcurrentHashMap;
import java.util.logging.Level;
import java.util.logging.Logger;
import java.util.zip.GZIPInputStream;
import java.util.zip.GZIPOutputStream;
import mage.Constants.RangeOfInfluence;
import mage.Constants.TableState;
import mage.cards.decks.Deck;
import mage.cards.decks.DeckCardLists;
import mage.game.Game;
import mage.game.GameException;
import mage.game.GameStates;
import mage.game.match.Match;
import mage.game.Seat;
import mage.game.draft.Draft;
import mage.game.draft.DraftPlayer;
import mage.game.events.Listener;
import mage.game.events.TableEvent;
import mage.game.match.MatchOptions;
import mage.game.match.MatchPlayer;
import mage.game.tournament.Tournament;
import mage.game.tournament.TournamentOptions;
import mage.game.tournament.TournamentPlayer;
import mage.players.Player;
import mage.server.game.DeckValidatorFactory;
import mage.server.game.GameFactory;
import mage.server.game.GameManager;
import mage.server.game.GameReplay;
import mage.server.game.PlayerFactory;
import mage.server.game.ReplayManager;
import mage.util.CopierObjectInputStream;
import mage.util.Logging;

/**
 *
 * @author BetaSteward_at_googlemail.com
 */
public class TableController {

	private final static Logger logger = Logging.getLogger(TableController.class.getName());

	private static final int SIDEBOARD_TIME = 180;

	private UUID sessionId;
	private UUID chatId;
	private Table table;
	private Match match;
	private MatchOptions options;
	private Tournament tournament;
	private TournamentOptions tournamentOptions;
	private ConcurrentHashMap<UUID, UUID> sessionPlayerMap = new ConcurrentHashMap<UUID, UUID>();

	public TableController(UUID sessionId, MatchOptions options) {
		this.sessionId = sessionId;
		chatId = ChatManager.getInstance().createChatSession();
		this.options = options;
		match = GameFactory.getInstance().createMatch(options.getGameType(), options);
		table = new Table(options.getGameType(), options.getName(), DeckValidatorFactory.getInstance().createDeckValidator(options.getDeckType()), options.getPlayerTypes(), false);
		init();
	}

	public TableController(UUID sessionId, TournamentOptions options) {
		this.sessionId = sessionId;
		chatId = ChatManager.getInstance().createChatSession();
		this.tournamentOptions = options;
		tournament = TournamentFactory.getInstance().createTournament(options.getTournamentType(), options);
		table = new Table(options.getTournamentType(), options.getName(), DeckValidatorFactory.getInstance().createDeckValidator(options.getMatchOptions().getDeckType()), options.getPlayerTypes(), true);
		init();
	}

	private void init() {
		table.addTableEventListener(
			new Listener<TableEvent> () {
				@Override
				public void event(TableEvent event) {
					switch (event.getEventType()) {
						case SIDEBOARD:
							sideboard(event.getPlayerId(), event.getDeck());
							break;
//						case CONSTRUCT:
//							construct(event.getPlayerId(), event.getDeck());
//							break;
						case SUBMIT_DECK:
							submitDeck(event.getPlayerId(), event.getDeck());
							break;
					}
				}
			}
		);
	}

	public synchronized boolean joinTournament(UUID sessionId, String name, String playerType) throws GameException {
		if (table.getState() != TableState.WAITING) {
			return false;
		}
		Seat seat = table.getNextAvailableSeat(playerType);
		if (seat == null) {
			throw new GameException("No available seats.");
		}
		Player player = createPlayer(name, seat.getPlayerType());
		tournament.addPlayer(player, seat.getPlayerType());
		table.joinTable(player, seat);
		logger.info("player joined " + player.getId());
		//only add human players to sessionPlayerMap
		if (seat.getPlayer().isHuman()) {
			sessionPlayerMap.put(sessionId, player.getId());
		}

		return true;
	}

	public synchronized boolean joinTable(UUID sessionId, String name, String playerType, DeckCardLists deckList) throws GameException {
		if (table.getState() != TableState.WAITING) {
			return false;
		}
		Seat seat = table.getNextAvailableSeat(playerType);
		if (seat == null) {
			throw new GameException("No available seats.");
		}
		Deck deck = Deck.load(deckList);
		if (!Main.server.isTestMode() && !validDeck(deck)) {
			throw new GameException(name + " has an invalid deck for this format");
		}
		
		Player player = createPlayer(name, seat.getPlayerType());
		match.addPlayer(player, deck);
		table.joinTable(player, seat);
		logger.info("player joined " + player.getId());
		//only add human players to sessionPlayerMap
		if (seat.getPlayer().isHuman()) {
			sessionPlayerMap.put(sessionId, player.getId());
		}

		return true;
	}

	public void addPlayer(UUID sessionId, Player player, String playerType, Deck deck) throws GameException  {
		if (table.getState() != TableState.WAITING) {
			return;
		}
		Seat seat = table.getNextAvailableSeat(playerType);
		if (seat == null) {
			throw new GameException("No available seats.");
		}
		match.addPlayer(player, deck);
		table.joinTable(player, seat);
		if (player.isHuman()) {
			sessionPlayerMap.put(sessionId, player.getId());
		}
	}

	public synchronized boolean submitDeck(UUID sessionId, DeckCardLists deckList) throws GameException {
		if (table.getState() != TableState.SIDEBOARDING && table.getState() != TableState.CONSTRUCTING) {
			return false;
		}
		Deck deck = Deck.load(deckList);
		if (!Main.server.isTestMode() && !validDeck(deck)) {
			throw new GameException("Invalid deck for this format");
		}
		submitDeck(sessionId, deck);
		return true;
	}

	private void submitDeck(UUID sessionId, Deck deck) {
		if (table.getState() == TableState.SIDEBOARDING) {
			MatchPlayer player = match.getPlayer(sessionPlayerMap.get(sessionId));
			player.submitDeck(deck);
		}
		else {
			TournamentManager.getInstance().submitDeck(tournament.getId(), sessionId, deck);
		}
	}

	public boolean watchTable(UUID sessionId) {
		if (table.getState() != TableState.DUELING) {
			return false;
		}
		SessionManager.getInstance().getSession(sessionId).watchGame(match.getGame().getId());
		return true;
	}

	public GameReplay createReplay() {
		if (table.getState() == TableState.FINISHED) {
			return new GameReplay(loadGame());
		}
		return null;
	}

	public boolean replayTable(UUID sessionId) {
		if (table.getState() != TableState.FINISHED) {
			return false;
		}
		ReplayManager.getInstance().replayGame(sessionId, table.getId());
		return true;
	}

	private boolean validDeck(Deck deck) {
		return table.getValidator().validate(deck);
	}

	private Player createPlayer(String name, String playerType) {
		Player player;
		if (options == null) {
			player = PlayerFactory.getInstance().createPlayer(playerType, name, RangeOfInfluence.ALL);
		}
		else {
			player = PlayerFactory.getInstance().createPlayer(playerType, name, options.getRange());
		}
		logger.info("Player created " + player.getId());
		return player;
	}

	public synchronized void leaveTable(UUID sessionId) {
		if (table.getState() == TableState.WAITING)
			table.leaveTable(sessionPlayerMap.get(sessionId));
	}

	public synchronized void startMatch(UUID sessionId) {
		if (sessionId.equals(this.sessionId) && table.getState() == TableState.STARTING) {
			try {
				match.startMatch();
				startGame(null);
			} catch (GameException ex) {
				logger.log(Level.SEVERE, null, ex);
			}
		}
	}

	private void startGame(UUID choosingPlayerId) throws GameException {
		match.startGame();
		table.initGame();
		GameManager.getInstance().createGameSession(match.getGame(), sessionPlayerMap, table.getId(), choosingPlayerId);
		SessionManager sessionManager = SessionManager.getInstance();
		for (Entry<UUID, UUID> entry: sessionPlayerMap.entrySet()) {
			sessionManager.getSession(entry.getKey()).gameStarted(match.getGame().getId(), entry.getValue());
		}
	}

	public synchronized void startTournament(UUID sessionId) {
		if (sessionId.equals(this.sessionId) && table.getState() == TableState.STARTING) {
			table.initTournament();
			TournamentManager.getInstance().createTournamentSession(tournament, sessionPlayerMap, table.getId());
			SessionManager sessionManager = SessionManager.getInstance();
			for (Entry<UUID, UUID> entry: sessionPlayerMap.entrySet()) {
				sessionManager.getSession(entry.getKey()).tournamentStarted(tournament.getId(), entry.getValue());
			}
		}
	}

	public void startDraft(Draft draft) {
		table.initDraft();
		DraftManager.getInstance().createDraftSession(draft, sessionPlayerMap, table.getId());
		SessionManager sessionManager = SessionManager.getInstance();
		for (Entry<UUID, UUID> entry: sessionPlayerMap.entrySet()) {
			sessionManager.getSession(entry.getKey()).draftStarted(draft.getId(), entry.getValue());
		}
	}

	private void sideboard() {
		table.sideboard();
		for (MatchPlayer player: match.getPlayers()) {
			player.setSideboarding();
			player.getPlayer().sideboard(table, player.getDeck());
		}
		while (!match.isDoneSideboarding()){}
	}

	private void sideboard(UUID playerId, Deck deck) {
		SessionManager sessionManager = SessionManager.getInstance();
		for (Entry<UUID, UUID> entry: sessionPlayerMap.entrySet()) {
			if (entry.getValue().equals(playerId)) {
				sessionManager.getSession(entry.getKey()).sideboard(deck, table.getId(), SIDEBOARD_TIME);
				break;
			}
		}
	}

//	public void construct() {
//		table.construct();
//		for (TournamentPlayer player: tournament.getPlayers()) {
//			player.setConstructing();
//			player.getPlayer().construct(table, player.getDeck());
//		}
//	}

//	private void construct(UUID playerId, Deck deck) {
//		SessionManager sessionManager = SessionManager.getInstance();
//		for (Entry<UUID, UUID> entry: sessionPlayerMap.entrySet()) {
//			if (entry.getValue().equals(playerId)) {
//				sessionManager.getSession(entry.getKey()).construct(deck, table.getId(), CONSTRUCT_TIME);
//				break;
//			}
//		}
//	}

	public void endGame() {
		UUID choosingPlayerId = match.getChooser();
		match.endGame();
		table.endGame();
		saveGame();
		GameManager.getInstance().removeGame(match.getGame().getId());
		try {
			if (!match.isMatchOver()) {
				sideboard();
				startGame(choosingPlayerId);
			}
		} catch (GameException ex) {
			logger.log(Level.SEVERE, null, ex);
		}
	}

	public void endDraft(Draft draft) {
		for (DraftPlayer player: draft.getPlayers()) {
			tournament.getPlayer(player.getPlayer().getId()).setDeck(player.getDeck());
		}
		tournament.nextStep();
	}

	public void swapSeats(int seatNum1, int seatNum2) {
		if (table.getState() == TableState.STARTING) {
			if (seatNum1 >= 0 && seatNum2 >= 0 && seatNum1 < table.getSeats().length && seatNum2 < table.getSeats().length) {
				Player swapPlayer = table.getSeats()[seatNum1].getPlayer();
				String swapType = table.getSeats()[seatNum1].getPlayerType();
				table.getSeats()[seatNum1].setPlayer(table.getSeats()[seatNum2].getPlayer());
				table.getSeats()[seatNum1].setPlayerType(table.getSeats()[seatNum2].getPlayerType());
				table.getSeats()[seatNum2].setPlayer(swapPlayer);
				table.getSeats()[seatNum2].setPlayerType(swapType);
			}
		}
	}

	private void saveGame() {
		try {
			OutputStream file = new FileOutputStream("saved/" + match.getGame().getId().toString() + ".game");
			OutputStream buffer = new BufferedOutputStream(file);
			ObjectOutput output = new ObjectOutputStream(new GZIPOutputStream(buffer));
			try {
				output.writeObject(match.getGame());
				output.writeObject(match.getGame().getGameStates());
			}
			finally {
				output.close();
			}
			logger.log(Level.INFO, "Saved game:" + match.getGame().getId());
		}
		catch(IOException ex) {
			logger.log(Level.SEVERE, "Cannot save game.", ex);
		}
	}

	private Game loadGame() {
		try{
			InputStream file = new FileInputStream("saved/" + match.getGame().toString() + ".game");
			InputStream buffer = new BufferedInputStream(file);
			ObjectInput input = new CopierObjectInputStream(Main.classLoader, new GZIPInputStream(buffer));
			try {
				Game game = (Game)input.readObject();
				GameStates states = (GameStates)input.readObject();
				game.loadGameStates(states);
				return game;
			}
			finally {
				input.close();
			}
		}
		catch(ClassNotFoundException ex) {
			logger.log(Level.SEVERE, "Cannot load game. Class not found.", ex);
		}
		catch(IOException ex) {
			logger.log(Level.SEVERE, "Cannot load game:" + match.getGame().getId(), ex);
		}
		return null;
	}

	public boolean isOwner(UUID sessionId) {
		return sessionId.equals(this.sessionId);
	}

	public Table getTable() {
		return table;
	}

	public UUID getChatId() {
		return chatId;
	}

	public Match getMatch() {
		return match;
	}
}