2010-09-19 03:37:48 +08:00
|
|
|
|
%% @author Lo<4C>c Hoguin <essen@dev-extend.eu>
|
|
|
|
|
|
%% @copyright 2010 Lo<4C>c Hoguin.
|
|
|
|
|
|
%% @doc Game server module.
|
|
|
|
|
|
%%
|
|
|
|
|
|
%% This file is part of EGS.
|
|
|
|
|
|
%%
|
|
|
|
|
|
%% EGS is free software: you can redistribute it and/or modify
|
|
|
|
|
|
%% it under the terms of the GNU Affero General Public License as
|
|
|
|
|
|
%% published by the Free Software Foundation, either version 3 of the
|
|
|
|
|
|
%% License, or (at your option) any later version.
|
|
|
|
|
|
%%
|
|
|
|
|
|
%% EGS is distributed in the hope that it will be useful,
|
|
|
|
|
|
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
%% GNU Affero General Public License for more details.
|
|
|
|
|
|
%%
|
|
|
|
|
|
%% You should have received a copy of the GNU Affero General Public License
|
|
|
|
|
|
%% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
|
|
-module(egs_game_server).
|
2011-02-21 07:58:14 +08:00
|
|
|
|
-export([start_link/1, link_exit/0, on_exit/1, init/1]).
|
2010-09-19 03:37:48 +08:00
|
|
|
|
|
|
|
|
|
|
-include("include/records.hrl").
|
|
|
|
|
|
|
|
|
|
|
|
%% @spec start_link(Port) -> {ok,Pid::pid()}
|
|
|
|
|
|
%% @doc Start the game server.
|
|
|
|
|
|
start_link(Port) ->
|
|
|
|
|
|
{ok, MPid} = egs_exit_mon:start_link({?MODULE, on_exit}),
|
|
|
|
|
|
register(egs_game_server_exit_mon, MPid),
|
|
|
|
|
|
LPid = spawn(egs_network, listen, [Port, ?MODULE]),
|
|
|
|
|
|
{ok, LPid}.
|
|
|
|
|
|
|
2011-02-21 07:58:14 +08:00
|
|
|
|
%% @doc Link the on_exit handler to the current process.
|
|
|
|
|
|
link_exit() ->
|
|
|
|
|
|
egs_game_server_exit_mon ! {link, self()}.
|
|
|
|
|
|
|
2010-09-19 03:37:48 +08:00
|
|
|
|
%% @spec on_exit(Pid) -> ok
|
|
|
|
|
|
%% @doc Cleanup the data associated with the failing process.
|
|
|
|
|
|
%% @todo Cleanup the instance process if there's nobody in it anymore.
|
|
|
|
|
|
%% @todo Leave party instead of stopping it.
|
|
|
|
|
|
on_exit(Pid) ->
|
2011-02-21 08:34:54 +08:00
|
|
|
|
User = egs_users:find_by_pid(Pid),
|
2011-02-21 07:58:14 +08:00
|
|
|
|
case User#users.partypid of
|
|
|
|
|
|
undefined ->
|
|
|
|
|
|
ignore;
|
|
|
|
|
|
PartyPid ->
|
|
|
|
|
|
{ok, NPCList} = psu_party:get_npc(PartyPid),
|
|
|
|
|
|
[egs_users:delete(NPCGID) || {_Spot, NPCGID} <- NPCList],
|
|
|
|
|
|
psu_party:stop(PartyPid)
|
|
|
|
|
|
end,
|
|
|
|
|
|
egs_zones:leave(User#users.zonepid, User#users.gid),
|
|
|
|
|
|
egs_universes:leave(User#users.uni),
|
|
|
|
|
|
egs_users:delete(User#users.gid),
|
|
|
|
|
|
io:format("game (~p): quit~n", [User#users.gid]).
|
2010-09-19 03:37:48 +08:00
|
|
|
|
|
2011-02-27 00:00:41 +08:00
|
|
|
|
%% @doc Initialize the game client and start receiving messages.
|
2010-09-19 03:37:48 +08:00
|
|
|
|
%% @todo Handle keepalive messages globally?
|
|
|
|
|
|
init(Socket) ->
|
|
|
|
|
|
timer:send_interval(5000, {egs, keepalive}),
|
2011-02-27 00:00:41 +08:00
|
|
|
|
Client = #client{socket=Socket, gid=egs_accounts:tmp_gid()},
|
|
|
|
|
|
psu_proto:send_0202(Client),
|
|
|
|
|
|
egs_network:recv(<< >>, egs_login, Client).
|
