Sancaros/egs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

egs_quests: Add the function zone_pid to retrieve a quest's zone pid.

Browse Source
This commit is contained in:
Loïc Hoguin 2011-02-17 23:35:27 +01:00
parent 06a032652a
commit 9d10c28504
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/egs_quests.erl
View File

@ -20,7 +20,7 @@
-module(egs_quests).
-behaviour(gen_server).
-export([start_link/2, stop/1]). %% API.
-export([start_link/2, stop/1, zone_pid/2]). %% API.
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). %% gen_server.
-record(state, {zones}).
@ -35,6 +35,9 @@ start_link(UniID, QuestID) ->
stop(Pid) ->
gen_server:call(Pid, stop).
zone_pid(Pid, ZoneID) ->
gen_server:call(Pid, {zone_pid, ZoneID}).
%% gen_server.
init([UniID, QuestID]) ->
@ -45,6 +48,10 @@ init([UniID, QuestID]) ->
end, Zones),
{ok, #state{zones=ZonesPids}}.
handle_call({zone_pid, ZoneID}, _From, State) ->
{_, Pid} = lists:keyfind(ZoneID, 1, State#state.zones),
{reply, Pid, State};
handle_call(stop, _From, State) ->
{stop, normal, stopped, State};