player_handler.erl

-module(player_handler).

-compile(export_all). % TA BORT SEN!
-export([]).
-include("config.hrl").

init(Socket, FSM_Pid) -> 
    try 
	recv(Socket, FSM_Pid)
    catch
	error:X ->
	    case X of % Socket closed
		{badmatch,{error,closed}} ->
		    ?SERVER:rm_player({socket, Socket}),
		    gen_tcp:close(Socket),
		    ok; %Remove playaah
		_ ->
		    ?SERVER:rm_player({socket, Socket}),
		    gen_tcp:close(Socket),
		    io:format("Caught error in player_handler: ~p\n", [X])
	    end
    end.

recv(Socket, FSM) ->
    Header = ?TCP:readHeader(Socket),

    RestOfMsg = case Header of

	2 -> % Hello World
	    PV = ?TCP:readInteger(Socket),
	    PN = ?TCP:readString(Socket),
	    [PV,PN];

	5 ->  % List game request
	    [];

	7 -> % Host request
	    [];

	8 -> % Join request
	    GameName = ?TCP:readString(Socket),
	    [GameName];

	11 -> % Change civilization request
	    NewCiv = ?TCP:readString(Socket),
	    [NewCiv];

	12 -> % Lock game request
	    LockFlag = ?TCP:readBoolean(Socket),
	    [LockFlag];

	13 -> % Start game request
	    Width = ?TCP:readInteger(Socket),
	    Height = ?TCP:readInteger(Socket),
	    [Width, Height];

	15 -> %Move request
	    MovePath = ?TCP:readList(Socket, "Position"),
	    [MovePath];

	16 -> % End of turn
	    [];

	18 -> %Combat request
	    AttPos = ?TCP:readElement(Socket, "Position"),
	    DefPos = ?TCP:readElement(Socket, "Position"),
	    [AttPos, DefPos];

	23 -> %Spawned
	    Pos = ?TCP:readElement(Socket, "Position"),
	    Unit = ?TCP:readElement(Socket, "Unit"),
	    [Pos, Unit];

	21 -> %Built city
	    Pos = ?TCP:readElement(Socket, "Position"),
	    CityName = ?TCP:readString(Socket),
	    [Pos, CityName];

	24 -> %Exit game
	    [];

	26 ->
	    FromPos = ?TCP:readElement(Socket, "Position"),
	    ToPos = ?TCP:readElement(Socket, "Position"),
	    [FromPos, ToPos];

	28 ->
	    ContainerPos = ?TCP:readElement(Socket, "Position"),
	    UnitType = ?TCP:readString(Socket),
	    ManPower = ?TCP:readInteger(Socket),
	    ToPlacePos = ?TCP:readElement(Socket, "Position"),
	    [ContainerPos, UnitType, ManPower, ToPlacePos];

	29 -> %Disband unit
	    Pos = ?TCP:readElement(Socket, "Position"),
	    [Pos];

	31 -> %Fortify
	    Pos = ?TCP:readElement(Socket, "Position"),
	    [Pos];

	32 -> %UnFortify
	    Pos = ?TCP:readElement(Socket, "Position"),
	    [Pos];

	_ ->
	    []

    end,

    Packet = {Header, RestOfMsg},
    send_to_fsm(FSM, Packet),
    recv(Socket, FSM).

sendFailMsg(Socket, ID, Header) ->
    ?TCP:sendFailPacket(Socket, ID, Header).

sendMsg(Socket, {Header, List}) ->
    case Header of

	1 -> %Confirm'd
	    [Head] = List,
	    ?TCP:sendHeader(Socket, Header),
	    ?TCP:sendHeader(Socket, Head);

	3 -> %Welcome to the Real world
	    ?TCP:sendHeader(Socket, Header);

	4 -> %Ping, implement later
	    ok;

	6 -> %List game answer
	    [Games] = List,
	    ?TCP:sendHeader(Socket, Header),
	    ?TCP:sendList(Socket, "String", Games);

	9 -> %Join answer
	    [HostName] = List,
	    ?TCP:sendHeader(Socket, Header),
	    ?TCP:sendString(Socket, HostName);

	10 -> %Game session information
	    [PList, Locked] = List,
	    ?TCP:sendHeader(Socket, 10), %Game session information
	    ?TCP:sendList(Socket, "Player", PList),
	    ?TCP:sendBoolean(Socket, Locked);				

	14 -> %Start game answer, implement later
	    [Map, TL] = List,
	    TileList = lists:flatten(?GAMEPLAN:tuplemap_to_listmap(TL)), %Gör om tuplemappen till en lista och skicka
	    ?TCP:sendHeader(Socket, Header),
	    ?TCP:sendList(Socket, "Column", Map),
	    ?TCP:sendList(Socket, "Tile", TileList);

	17 -> % It's your turn
	    [TL] = List,
	    TileList = lists:flatten(?GAMEPLAN:tuplemap_to_listmap(TL)), %Gör om tuplemappen till en lista och skicka
	    ?TCP:sendHeader(Socket, 17), %It's your turn
	    ?TCP:sendList(Socket, "Tile", TileList);

	19 -> %Combat result
	    [RemAttMp, RemDefMp] = List,
	    ?TCP:sendHeader(Socket, 19),
	    ?TCP:sendInteger(Socket, RemAttMp),
	    ?TCP:sendInteger(Socket, RemDefMp);
	
	25 -> % Game Closed
	    ?TCP:sendHeader(Socket, 25);

	30 -> % Casualty report 
	    [{X, Y}, DPU] = List,
	    ?TCP:sendHeader(Socket, 30),
	    ?TCP:sendPosition(Socket, {X, Y}),
	    ?TCP:sendInteger(Socket, DPU)
    end.    

send_to_fsm(To, Packet) ->
    ?P_FSM:send_packet(To, Packet).