psu_game: Abstract network, login/auth, character select and game into their own modules.
This commit is contained in:
Loïc Hoguin
parent
d504fcb576
commit
59b0438434
@ -8,6 +8,10 @@
|
|||||||
egs_sup,
|
egs_sup,
|
||||||
egs_exit_mon,
|
egs_exit_mon,
|
||||||
egs_user_model,
|
egs_user_model,
|
||||||
|
egs_network,
|
||||||
|
egs_login,
|
||||||
|
egs_char_select,
|
||||||
|
egs_game,
|
||||||
reloader,
|
reloader,
|
||||||
psu_game,
|
psu_game,
|
||||||
psu_login,
|
psu_login,
|
||||||
|
|||||||
107
src/egs_char_select.erl
Normal file
107
src/egs_char_select.erl
Normal file
@ -0,0 +1,107 @@
|
|||||||
|
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||||
|
%% @copyright 2010 Loïc Hoguin.
|
||||||
|
%% @doc Game server's character selection callback 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_char_select).
|
||||||
|
-export([keepalive/1, info/2, cast/3, raw/3, event/2]).
|
||||||
|
|
||||||
|
%% @todo These headers are only included because of egs_user_model and items. We don't want that here.
|
||||||
|
-include("include/records.hrl").
|
||||||
|
-include("include/psu/items.hrl").
|
||||||
|
|
||||||
|
-record(state, {socket, gid}).
|
||||||
|
|
||||||
|
%% @doc Send a keepalive.
|
||||||
|
keepalive(#state{socket=Socket}) ->
|
||||||
|
psu_proto:send_keepalive(Socket).
|
||||||
|
|
||||||
|
%% @doc We don't expect any message here.
|
||||||
|
%% @todo Throw an error instead?
|
||||||
|
info(_Msg, _State) ->
|
||||||
|
ok.
|
||||||
|
|
||||||
|
%% @doc Nothing to broadcast.
|
||||||
|
%% @todo Throw an error instead?
|
||||||
|
cast(_Command, _Data, _State) ->
|
||||||
|
ok.
|
||||||
|
|
||||||
|
%% @doc Dismiss all raw commands with a log notice.
|
||||||
|
%% @todo Have a log event handler instead.
|
||||||
|
raw(Command, _Data, State) ->
|
||||||
|
io:format("~p (~p): dismissed command ~4.16.0b~n", [?MODULE, State#state.gid, Command]).
|
||||||
|
|
||||||
|
%% Events.
|
||||||
|
|
||||||
|
%% @doc Character screen selection request and delivery.
|
||||||
|
event(char_select_request, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
psu_game:send_0d03(data_load(User#egs_user_model.folder, 0), data_load(User#egs_user_model.folder, 1), data_load(User#egs_user_model.folder, 2), data_load(User#egs_user_model.folder, 3));
|
||||||
|
|
||||||
|
%% @doc The options default to 0 for everything except brightness to 4.
|
||||||
|
%% @todo Don't forget to check for the character's name.
|
||||||
|
event({char_select_create, Slot, CharBin}, #state{gid=GID}) ->
|
||||||
|
%% check for valid character appearance
|
||||||
|
%~ << _Name:512, RaceID:8, GenderID:8, _TypeID:8, AppearanceBin:776/bits, _/bits >> = CharBin,
|
||||||
|
%~ Race = proplists:get_value(RaceID, [{0, human}, {1, newman}, {2, cast}, {3, beast}]),
|
||||||
|
%~ Gender = proplists:get_value(GenderID, [{0, male}, {1, female}]),
|
||||||
|
%~ Appearance = psu_appearance:binary_to_tuple(Race, AppearanceBin),
|
||||||
|
%~ psu_characters:validate_name(Name),
|
||||||
|
%~ psu_appearance:validate_char_create(Race, Gender, Appearance),
|
||||||
|
%% end of check, continue doing it wrong past that point for now
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
Dir = io_lib:format("save/~s", [User#egs_user_model.folder]),
|
||||||
|
File = io_lib:format("~s/~b-character", [Dir, Slot]),
|
||||||
|
_ = file:make_dir(Dir),
|
||||||
|
file:write_file(File, CharBin),
|
||||||
|
file:write_file(io_lib:format("~s.options", [File]), << 0:128, 4, 0:56 >>);
|
||||||
|
|
||||||
|
%% @doc Load the selected character into the game's universe.
|
||||||
|
%% @todo The area_change should happen only after we received 021c back from the client.
|
||||||
|
event({char_select_enter, Slot, _BackToPreviousField}, #state{socket=Socket, gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
[{status, 1}, {char, CharBin}, {options, OptionsBin}] = data_load(User#egs_user_model.folder, Slot),
|
||||||
|
<< Name:512/bits, RaceBin:8, GenderBin:8, ClassBin:8, AppearanceBin:776/bits, _/bits >> = CharBin,
|
||||||
|
Race = psu_characters:race_binary_to_atom(RaceBin),
|
||||||
|
Gender = psu_characters:gender_binary_to_atom(GenderBin),
|
||||||
|
Class = psu_characters:class_binary_to_atom(ClassBin),
|
||||||
|
Appearance = psu_appearance:binary_to_tuple(Race, AppearanceBin),
|
||||||
|
Options = psu_characters:options_binary_to_tuple(OptionsBin),
|
||||||
|
Character = #characters{slot=Slot, name=Name, race=Race, gender=Gender, class=Class, appearance=Appearance, options=Options, % TODO: temporary set the slot here, won't be needed later
|
||||||
|
inventory= [{16#11010000, #psu_special_item_variables{}}, {16#11020000, #psu_special_item_variables{}}, {16#11020100, #psu_special_item_variables{}}, {16#11020200, #psu_special_item_variables{}},
|
||||||
|
{16#01010900, #psu_striking_weapon_item_variables{is_active=0, slot=0, current_pp=99, max_pp=100, element=#psu_element{type=1, percent=50}, pa=#psu_pa{type=0, level=0}}},
|
||||||
|
{16#01010a00, #psu_striking_weapon_item_variables{is_active=0, slot=0, current_pp=99, max_pp=100, element=#psu_element{type=2, percent=50}, pa=#psu_pa{type=0, level=0}}},
|
||||||
|
{16#01010b00, #psu_striking_weapon_item_variables{is_active=0, slot=0, current_pp=99, max_pp=100, element=#psu_element{type=3, percent=50}, pa=#psu_pa{type=0, level=0}}}]},
|
||||||
|
User2 = User#egs_user_model{state=online, character=Character, area=#psu_area{questid=1100000, zoneid=0, mapid=4}, entryid=5,
|
||||||
|
prev_area={psu_area, 0, 0, 0}, prev_entryid=0, pos=#pos{x=0.0, y=0.0, z=0.0, dir=0.0}, setid=0},
|
||||||
|
egs_user_model:write(User2),
|
||||||
|
psu_game:char_load(User2),
|
||||||
|
{ok, egs_game, {state, Socket, GID}}.
|
||||||
|
|
||||||
|
%% Internal.
|
||||||
|
|
||||||
|
%% @doc Load the given character's data.
|
||||||
|
%% @todo This function is temporary until we get permanent mnesia accounts.
|
||||||
|
data_load(Folder, Number) ->
|
||||||
|
Filename = io_lib:format("save/~s/~b-character", [Folder, Number]),
|
||||||
|
case file:read_file(Filename) of
|
||||||
|
{ok, Char} ->
|
||||||
|
{ok, Options} = file:read_file(io_lib:format("~s.options", [Filename])),
|
||||||
|
[{status, 1}, {char, Char}, {options, Options}];
|
||||||
|
{error, _Reason} ->
|
||||||
|
[{status, 0}, {char, << 0:2208 >>}]
|
||||||
|
end.
|
||||||
740
src/egs_game.erl
Normal file
740
src/egs_game.erl
Normal file
@ -0,0 +1,740 @@
|
|||||||
|
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||||
|
%% @copyright 2010 Loïc Hoguin.
|
||||||
|
%% @doc Game server's client authentication callback 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).
|
||||||
|
-export([keepalive/1, info/2, cast/3, raw/3, event/2]).
|
||||||
|
|
||||||
|
%% @todo This header is probably only included because of egs_user_model. We don't want that here.
|
||||||
|
-include("include/records.hrl").
|
||||||
|
-include("include/maps.hrl").
|
||||||
|
-include("include/psu/items.hrl").
|
||||||
|
|
||||||
|
-record(state, {socket, gid}).
|
||||||
|
|
||||||
|
%% @doc Send a keepalive.
|
||||||
|
keepalive(#state{socket=Socket}) ->
|
||||||
|
psu_proto:send_keepalive(Socket).
|
||||||
|
|
||||||
|
%% @doc Forward the broadcasted command to the client.
|
||||||
|
info({egs, cast, Command}, #state{gid=GID}) ->
|
||||||
|
<< A:64/bits, _:32, B:96/bits, _:64, C/bits >> = Command,
|
||||||
|
psu_game:send(<< A/binary, 16#00011300:32, B/binary, 16#00011300:32, GID:32/little-unsigned-integer, C/binary >>);
|
||||||
|
|
||||||
|
%% @doc Forward the chat message to the client.
|
||||||
|
info({egs, chat, ChatTypeID, ChatGID, ChatName, ChatModifiers, ChatMessage}, _State) ->
|
||||||
|
psu_game:send_0304(ChatTypeID, ChatGID, ChatName, ChatModifiers, ChatMessage);
|
||||||
|
|
||||||
|
%% @doc Inform the client that a player has spawn.
|
||||||
|
%% @todo Should be something along the lines of 010d 0205 203 201.
|
||||||
|
info({egs, player_spawn, _Player}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{ok, SpawnList} = egs_user_model:select({neighbors, User}),
|
||||||
|
psu_game:send_0233(SpawnList);
|
||||||
|
|
||||||
|
%% @doc Inform the client that a player has unspawn.
|
||||||
|
info({egs, player_unspawn, Player}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
psu_game:send_0204(User, Player, 5);
|
||||||
|
|
||||||
|
%% @doc Warp the player to the given location.
|
||||||
|
info({egs, warp, QuestID, ZoneID, MapID, EntryID}, State) ->
|
||||||
|
event({area_change, QuestID, ZoneID, MapID, EntryID}, State).
|
||||||
|
|
||||||
|
%% Broadcasts.
|
||||||
|
|
||||||
|
%% @todo Handle broadcasting better than that. Review the commands at the same time.
|
||||||
|
%% @doc Position change. Save the position and then dispatch it.
|
||||||
|
cast(16#0503, Data, State=#state{gid=GID}) ->
|
||||||
|
<< _:424, Dir:24/little-unsigned-integer, _PrevCoords:96, X:32/little-float, Y:32/little-float, Z:32/little-float,
|
||||||
|
QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, _:32 >> = Data,
|
||||||
|
FloatDir = Dir / 46603.375,
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
NewUser = User#egs_user_model{pos=#pos{x=X, y=Y, z=Z, dir=FloatDir}, area=#psu_area{questid=QuestID, zoneid=ZoneID, mapid=MapID}, entryid=EntryID},
|
||||||
|
egs_user_model:write(NewUser),
|
||||||
|
cast(valid, Data, State);
|
||||||
|
|
||||||
|
%% @doc Stand still. Save the position and then dispatch it.
|
||||||
|
cast(16#0514, Data, State=#state{gid=GID}) ->
|
||||||
|
<< _:424, Dir:24/little-unsigned-integer, X:32/little-float, Y:32/little-float, Z:32/little-float,
|
||||||
|
QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer,
|
||||||
|
MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, _/bits >> = Data,
|
||||||
|
FloatDir = Dir / 46603.375,
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
NewUser = User#egs_user_model{pos=#pos{x=X, y=Y, z=Z, dir=FloatDir}, area=#psu_area{questid=QuestID, zoneid=ZoneID, mapid=MapID}, entryid=EntryID},
|
||||||
|
egs_user_model:write(NewUser),
|
||||||
|
cast(valid, Data, State);
|
||||||
|
|
||||||
|
%% @doc Default broadcast handler. Dispatch the command to everyone.
|
||||||
|
%% We clean up the command and use the real GID and LID of the user, disregarding what was sent and possibly tampered with.
|
||||||
|
%% Only a handful of commands are allowed to broadcast. An user tampering with it would get disconnected instantly.
|
||||||
|
%% @todo Don't query the user data everytime! Keep the needed information in the State.
|
||||||
|
cast(Command, Data, #state{gid=GID})
|
||||||
|
when Command =:= 16#0101;
|
||||||
|
Command =:= 16#0102;
|
||||||
|
Command =:= 16#0104;
|
||||||
|
Command =:= 16#0107;
|
||||||
|
Command =:= 16#010f;
|
||||||
|
Command =:= 16#050f;
|
||||||
|
Command =:= valid ->
|
||||||
|
<< _:32, A:64/bits, _:64, B:192/bits, _:64, C/bits >> = Data,
|
||||||
|
case egs_user_model:read(GID) of
|
||||||
|
{error, _Reason} ->
|
||||||
|
ignore;
|
||||||
|
{ok, Self} ->
|
||||||
|
LID = Self#egs_user_model.lid,
|
||||||
|
Packet = << A/binary, 16#00011300:32, GID:32/little-unsigned-integer, B/binary,
|
||||||
|
GID:32/little-unsigned-integer, LID:32/little-unsigned-integer, C/binary >>,
|
||||||
|
{ok, SpawnList} = egs_user_model:select({neighbors, Self}),
|
||||||
|
lists:foreach(fun(User) -> User#egs_user_model.pid ! {egs, cast, Packet} end, SpawnList)
|
||||||
|
end.
|
||||||
|
|
||||||
|
%% Raw commands.
|
||||||
|
|
||||||
|
%% @todo Handle this packet properly.
|
||||||
|
%% @todo Spawn cleared response event shouldn't be handled following this packet but when we see the spawn actually dead HP-wise.
|
||||||
|
%% @todo Type shouldn't be :32 but it seems when the later 16 have something it's not a spawn event.
|
||||||
|
raw(16#0402, << _:352, Data/bits >>, #state{gid=GID}) ->
|
||||||
|
<< SpawnID:32/little-unsigned-integer, _:64, Type:32/little-unsigned-integer, _:64 >> = Data,
|
||||||
|
case Type of
|
||||||
|
7 -> % spawn cleared @todo 1201 sent back with same values apparently, but not always
|
||||||
|
log("cleared spawn ~b", [SpawnID]),
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, EventID} = psu_instance:spawn_cleared_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, SpawnID),
|
||||||
|
if EventID =:= false -> ignore;
|
||||||
|
true -> psu_game:send_1205(EventID, BlockID, 0)
|
||||||
|
end;
|
||||||
|
_ ->
|
||||||
|
ignore
|
||||||
|
end;
|
||||||
|
|
||||||
|
%% @todo Handle this packet.
|
||||||
|
%% @todo 3rd Unsafe Passage C, EventID 10 BlockID 2 = mission cleared?
|
||||||
|
raw(16#0404, << _:352, Data/bits >>, _State) ->
|
||||||
|
<< EventID:8, BlockID:8, _:16, Value:8, _/bits >> = Data,
|
||||||
|
log("unknown command 0404: eventid ~b blockid ~b value ~b", [EventID, BlockID, Value]),
|
||||||
|
psu_game:send_1205(EventID, BlockID, Value);
|
||||||
|
|
||||||
|
%% @todo Used in the tutorial. Not sure what it does. Give an item (the PA) maybe?
|
||||||
|
raw(16#0a09, _Data, #state{gid=GID}) ->
|
||||||
|
psu_game:send(<< 16#0a090300:32, 0:32, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, 16#00003300:32, 0:32 >>);
|
||||||
|
|
||||||
|
%% @todo Figure out this command.
|
||||||
|
raw(16#0c11, << _:352, A:32/little, B:32/little >>, #state{gid=GID}) ->
|
||||||
|
log("0c11 ~p ~p", [A, B]),
|
||||||
|
psu_game:send(<< 16#0c120300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, A:32/little, 1:32/little >>);
|
||||||
|
|
||||||
|
%% @doc Set flag handler. Associate a new flag with the character.
|
||||||
|
%% Just reply with a success value for now.
|
||||||
|
%% @todo God save the flags.
|
||||||
|
raw(16#0d04, << _:352, Data/bits >>, #state{gid=GID}) ->
|
||||||
|
<< Flag:128/bits, A:16/bits, _:8, B/bits >> = Data,
|
||||||
|
log("flag handler for ~s", [re:replace(Flag, "\\0+", "", [global, {return, binary}])]),
|
||||||
|
psu_game:send(<< 16#0d040300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, Flag/binary, A/binary, 1, B/binary >>);
|
||||||
|
|
||||||
|
%% @doc Initialize a vehicle object.
|
||||||
|
%% @todo Find what are the many values, including the odd Whut value (and whether it's used in the reply).
|
||||||
|
%% @todo Separate the reply.
|
||||||
|
raw(16#0f00, << _:352, Data/bits >>, _State) ->
|
||||||
|
<< A:32/little-unsigned-integer, 0:16, B:16/little-unsigned-integer, 0:16, C:16/little-unsigned-integer, 0, Whut:8, D:16/little-unsigned-integer, 0:16,
|
||||||
|
E:16/little-unsigned-integer, 0:16, F:16/little-unsigned-integer, G:16/little-unsigned-integer, H:16/little-unsigned-integer, I:32/little-unsigned-integer >> = Data,
|
||||||
|
log("init vehicle: ~b ~b ~b ~b ~b ~b ~b ~b ~b ~b", [A, B, C, Whut, D, E, F, G, H, I]),
|
||||||
|
psu_game:send(<< (psu_game:header(16#1208))/binary, A:32/little-unsigned-integer, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32,
|
||||||
|
0:16, B:16/little-unsigned-integer, 0:16, C:16/little-unsigned-integer, 0:16, D:16/little-unsigned-integer, 0:112,
|
||||||
|
E:16/little-unsigned-integer, 0:16, F:16/little-unsigned-integer, H:16/little-unsigned-integer, 1, 0, 100, 0, 10, 0, G:16/little-unsigned-integer, 0:16 >>);
|
||||||
|
|
||||||
|
%% @doc Enter vehicle.
|
||||||
|
%% @todo Separate the reply.
|
||||||
|
raw(16#0f02, << _:352, Data/bits >>, _State) ->
|
||||||
|
<< A:32/little-unsigned-integer, B:32/little-unsigned-integer, C:32/little-unsigned-integer >> = Data,
|
||||||
|
log("enter vehicle: ~b ~b ~b", [A, B, C]),
|
||||||
|
HP = 100,
|
||||||
|
psu_game:send(<< (psu_game:header(16#120a))/binary, A:32/little-unsigned-integer, B:32/little-unsigned-integer, C:32/little-unsigned-integer, HP:32/little-unsigned-integer >>);
|
||||||
|
|
||||||
|
%% @doc Sent right after entering the vehicle. Can't move without it.
|
||||||
|
%% @todo Separate the reply.
|
||||||
|
raw(16#0f07, << _:352, Data/bits >>, _State) ->
|
||||||
|
<< A:32/little-unsigned-integer, B:32/little-unsigned-integer >> = Data,
|
||||||
|
log("after enter vehicle: ~b ~b", [A, B]),
|
||||||
|
psu_game:send(<< (psu_game:header(16#120f))/binary, A:32/little-unsigned-integer, B:32/little-unsigned-integer >>);
|
||||||
|
|
||||||
|
%% @todo Not sure yet.
|
||||||
|
raw(16#1019, _Data, _State) ->
|
||||||
|
ignore;
|
||||||
|
%~ psu_game:send(<< (psu_game:header(16#1019))/binary, 0:192, 16#00200000:32, 0:32 >>);
|
||||||
|
|
||||||
|
%% @todo Not sure about that one though. Probably related to 1112 still.
|
||||||
|
raw(16#1106, << _:352, Data/bits >>, _State) ->
|
||||||
|
psu_game:send_110e(Data);
|
||||||
|
|
||||||
|
%% @doc Probably asking permission to start the video (used for syncing?).
|
||||||
|
raw(16#1112, << _:352, Data/bits >>, _State) ->
|
||||||
|
psu_game:send_1113(Data);
|
||||||
|
|
||||||
|
%% @todo Not sure yet. Value is probably a TargetID. Used in Airboard Rally. Replying with the same value starts the race.
|
||||||
|
raw(16#1216, << _:352, Data/bits >>, _State) ->
|
||||||
|
<< Value:32/little-unsigned-integer >> = Data,
|
||||||
|
log("command 1216 with value ~b", [Value]),
|
||||||
|
psu_game:send_1216(Value);
|
||||||
|
|
||||||
|
%% @doc Dismiss all unknown raw commands with a log notice.
|
||||||
|
%% @todo Have a log event handler instead.
|
||||||
|
raw(Command, _Data, State) ->
|
||||||
|
io:format("~p (~p): dismissed command ~4.16.0b~n", [?MODULE, State#state.gid, Command]).
|
||||||
|
|
||||||
|
%% Events.
|
||||||
|
|
||||||
|
%% @todo When changing lobby to the room, 0230 must also be sent. Same when going from room to lobby.
|
||||||
|
%% @todo Probably move area_load inside the event and make other events call this one when needed.
|
||||||
|
event({area_change, QuestID, ZoneID, MapID, EntryID}, State) ->
|
||||||
|
event({area_change, QuestID, ZoneID, MapID, EntryID, 16#ffffffff}, State);
|
||||||
|
event({area_change, QuestID, ZoneID, MapID, EntryID, PartyPos}, _State) ->
|
||||||
|
case PartyPos of
|
||||||
|
16#ffffffff ->
|
||||||
|
log("area change (~b,~b,~b,~b,~b)", [QuestID, ZoneID, MapID, EntryID, PartyPos]),
|
||||||
|
psu_game:area_load(QuestID, ZoneID, MapID, EntryID);
|
||||||
|
_Any -> %% @todo Handle area_change event for NPCs in story missions.
|
||||||
|
ignore
|
||||||
|
end;
|
||||||
|
|
||||||
|
%% @doc After the character has been (re)loaded, change the area he's in.
|
||||||
|
%% @todo The area_load function should probably not change the user's values.
|
||||||
|
%% @todo Remove that ugly code when the above is done.
|
||||||
|
event(char_load_complete, State=#state{gid=GID}) ->
|
||||||
|
{ok, User=#egs_user_model{area=#psu_area{questid=QuestID, zoneid=ZoneID, mapid=MapID},
|
||||||
|
entryid=EntryID}} = egs_user_model:read(GID),
|
||||||
|
egs_user_model:write(User#egs_user_model{area=#psu_area{questid=0, zoneid=0, mapid=0}, entryid=0}),
|
||||||
|
event({area_change, QuestID, ZoneID, MapID, EntryID}, State);
|
||||||
|
|
||||||
|
%% @doc Chat broadcast handler. Dispatch the message to everyone (for now).
|
||||||
|
%% Disregard the name sent by the server. Use the name saved in memory instead, to prevent client-side editing.
|
||||||
|
%% @todo Only broadcast to people in the same map.
|
||||||
|
%% @todo In the case of NPC characters, when FromTypeID is 00001d00, check that the NPC is in the party and broadcast only to the party (probably).
|
||||||
|
%% @todo When the game doesn't find an NPC (probably) and forces it to talk like in the tutorial mission it seems FromTypeID, FromGID and Name are all 0.
|
||||||
|
%% @todo Make sure modifiers have correct values.
|
||||||
|
event({chat, _FromTypeID, FromGID, _FromName, Modifiers, ChatMsg}, #state{gid=UserGID}) ->
|
||||||
|
[BcastTypeID, BcastGID, BcastName] = case FromGID of
|
||||||
|
0 -> %% This probably shouldn't happen. Just make it crash on purpose.
|
||||||
|
log("chat FromGID=0"),
|
||||||
|
ignore;
|
||||||
|
UserGID -> %% player chat: disregard whatever was sent except modifiers and message.
|
||||||
|
{ok, User} = egs_user_model:read(UserGID),
|
||||||
|
[16#00001200, User#egs_user_model.id, (User#egs_user_model.character)#characters.name];
|
||||||
|
NPCGID -> %% npc chat: @todo Check that the player is the party leader and this npc is in his party.
|
||||||
|
{ok, User} = egs_user_model:read(NPCGID),
|
||||||
|
[16#00001d00, FromGID, (User#egs_user_model.character)#characters.name]
|
||||||
|
end,
|
||||||
|
%% log the message as ascii to the console
|
||||||
|
[LogName|_] = re:split(BcastName, "\\0\\0", [{return, binary}]),
|
||||||
|
[TmpMessage|_] = re:split(ChatMsg, "\\0\\0", [{return, binary}]),
|
||||||
|
LogMessage = re:replace(TmpMessage, "\\n", " ", [global, {return, binary}]),
|
||||||
|
log("chat from ~s: ~s", [[re:replace(LogName, "\\0", "", [global, {return, binary}])], [re:replace(LogMessage, "\\0", "", [global, {return, binary}])]]),
|
||||||
|
%% broadcast
|
||||||
|
{ok, List} = egs_user_model:select(all),
|
||||||
|
lists:foreach(fun(X) -> X#egs_user_model.pid ! {psu_chat, BcastTypeID, BcastGID, BcastName, Modifiers, ChatMsg} end, List);
|
||||||
|
|
||||||
|
%% @todo There's at least 9 different sets of locations. Handle all of them correctly.
|
||||||
|
event(counter_background_locations_request, _State) ->
|
||||||
|
psu_game:send_170c();
|
||||||
|
|
||||||
|
%% @todo Make sure non-mission counters follow the same loading process.
|
||||||
|
%% @todo Probably validate the From* values, to not send the player back inside a mission.
|
||||||
|
event({counter_enter, CounterID, FromZoneID, FromMapID, FromEntryID}, #state{gid=GID}) ->
|
||||||
|
log("counter load ~b", [CounterID]),
|
||||||
|
{ok, OldUser} = egs_user_model:read(GID),
|
||||||
|
OldArea = OldUser#egs_user_model.area,
|
||||||
|
FromArea = {psu_area, OldArea#psu_area.questid, FromZoneID, FromMapID},
|
||||||
|
User = OldUser#egs_user_model{areatype=counter, area={psu_area, 16#7fffffff, 0, 0}, entryid=0, prev_area=FromArea, prev_entryid=FromEntryID},
|
||||||
|
egs_user_model:write(User),
|
||||||
|
AreaName = "Counter",
|
||||||
|
QuestFile = "data/lobby/counter.quest.nbl",
|
||||||
|
ZoneFile = "data/lobby/counter.zone.nbl",
|
||||||
|
%% broadcast unspawn to other people
|
||||||
|
{ok, UnspawnList} = egs_user_model:select({neighbors, OldUser}),
|
||||||
|
lists:foreach(fun(Other) -> Other#egs_user_model.pid ! {psu_player_unspawn, User} end, UnspawnList),
|
||||||
|
%% load counter
|
||||||
|
psu_proto:send_0c00(User),
|
||||||
|
psu_proto:send_020e(User, QuestFile),
|
||||||
|
psu_proto:send_0a05(User),
|
||||||
|
psu_proto:send_010d(User, User#egs_user_model{lid=0}),
|
||||||
|
psu_game:send_0200(mission),
|
||||||
|
psu_game:send_020f(ZoneFile, 0, 16#ff),
|
||||||
|
psu_proto:send_0205(User, 0),
|
||||||
|
psu_game:send_100e(16#7fffffff, 0, 0, AreaName, CounterID),
|
||||||
|
psu_proto:send_0215(User, 0),
|
||||||
|
psu_proto:send_0215(User, 0),
|
||||||
|
psu_proto:send_020c(User),
|
||||||
|
psu_game:send_1202(),
|
||||||
|
psu_game:send_1204(),
|
||||||
|
psu_game:send_1206(),
|
||||||
|
psu_game:send_1207(),
|
||||||
|
psu_game:send_1212(),
|
||||||
|
psu_proto:send_0201(User, User#egs_user_model{lid=0}),
|
||||||
|
psu_game:send_0a06(),
|
||||||
|
case User#egs_user_model.partypid of
|
||||||
|
undefined -> ignore;
|
||||||
|
_ -> psu_game:send_022c(0, 16#12)
|
||||||
|
end,
|
||||||
|
psu_game:send_0208(),
|
||||||
|
psu_game:send_0236();
|
||||||
|
|
||||||
|
%% @doc Leave mission counter handler.
|
||||||
|
event(counter_leave, State=#state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
PrevArea = User#egs_user_model.prev_area,
|
||||||
|
event({area_change, PrevArea#psu_area.questid, PrevArea#psu_area.zoneid, PrevArea#psu_area.mapid, User#egs_user_model.prev_entryid}, State);
|
||||||
|
|
||||||
|
%% @doc Send the code for the background image to use. But there's more that should be sent though.
|
||||||
|
%% @todo Apparently background values 1 2 3 are never used on official servers. Find out why.
|
||||||
|
event({counter_options_request, CounterID}, _State) ->
|
||||||
|
log("counter options request ~p", [CounterID]),
|
||||||
|
[{quests, _}, {bg, Background}|_Tail] = proplists:get_value(CounterID, ?COUNTERS),
|
||||||
|
psu_game:send_1711(Background);
|
||||||
|
|
||||||
|
%% @todo Handle when the party already exists! And stop doing it wrong.
|
||||||
|
event(counter_party_info_request, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
psu_game:send_1706((User#egs_user_model.character)#characters.name);
|
||||||
|
|
||||||
|
%% @todo Item distribution is always set to random for now.
|
||||||
|
event(counter_party_options_request, _State) ->
|
||||||
|
psu_game:send_170a();
|
||||||
|
|
||||||
|
%% @doc Request the counter's quest files.
|
||||||
|
event({counter_quest_files_request, CounterID}, _State) ->
|
||||||
|
log("counter quest files request ~p", [CounterID]),
|
||||||
|
[{quests, Filename}|_Tail] = proplists:get_value(CounterID, ?COUNTERS),
|
||||||
|
psu_game:send_0c06(Filename);
|
||||||
|
|
||||||
|
%% @doc Counter available mission list request handler.
|
||||||
|
event({counter_quest_options_request, CounterID}, _State) ->
|
||||||
|
log("counter quest options request ~p", [CounterID]),
|
||||||
|
[{quests, _}, {bg, _}, {options, Options}] = proplists:get_value(CounterID, ?COUNTERS),
|
||||||
|
psu_game:send_0c10(Options);
|
||||||
|
|
||||||
|
%% @todo A and B are mostly unknown. Like most of everything else from the command 0e00...
|
||||||
|
event({hit, FromTargetID, ToTargetID, A, B}, State=#state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
%% hit!
|
||||||
|
#hit_response{type=Type, user=NewUser, exp=HasEXP, damage=Damage, targethp=TargetHP, targetse=TargetSE, events=Events} = psu_instance:hit(User, FromTargetID, ToTargetID),
|
||||||
|
case Type of
|
||||||
|
box ->
|
||||||
|
%% @todo also has a hit sent, we should send it too
|
||||||
|
events(Events, State);
|
||||||
|
_ ->
|
||||||
|
PlayerHP = (NewUser#egs_user_model.character)#characters.currenthp,
|
||||||
|
case lists:member(death, TargetSE) of
|
||||||
|
true -> SE = 16#01000200;
|
||||||
|
false -> SE = 16#01000000
|
||||||
|
end,
|
||||||
|
psu_game:send(<< 16#0e070300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64,
|
||||||
|
1:32/little-unsigned-integer, 16#01050000:32, Damage:32/little-unsigned-integer,
|
||||||
|
A/binary, 0:64, PlayerHP:32/little-unsigned-integer, 0:32, SE:32,
|
||||||
|
0:32, TargetHP:32/little-unsigned-integer, 0:32, B/binary,
|
||||||
|
16#04320000:32, 16#80000000:32, 16#26030000:32, 16#89068d00:32, 16#0c1c0105:32, 0:64 >>)
|
||||||
|
% after TargetHP is SE-related too?
|
||||||
|
end,
|
||||||
|
%% exp
|
||||||
|
if HasEXP =:= true ->
|
||||||
|
Character = NewUser#egs_user_model.character,
|
||||||
|
Level = Character#characters.mainlevel,
|
||||||
|
psu_game:send_0115(GID, ToTargetID, Level#level.number, Level#level.exp, Character#characters.money);
|
||||||
|
true -> ignore
|
||||||
|
end,
|
||||||
|
%% save
|
||||||
|
egs_user_model:write(NewUser);
|
||||||
|
|
||||||
|
event({hits, Hits}, State) ->
|
||||||
|
events(Hits, State);
|
||||||
|
|
||||||
|
%% @todo Send something other than just "dammy".
|
||||||
|
event({item_description_request, ItemID}, _State) ->
|
||||||
|
case proplists:get_value(ItemID, ?ITEMS) of
|
||||||
|
undefined -> psu_game:send_0a11(ItemID, "Always bet on Dammy.");
|
||||||
|
#psu_item{description=Desc} -> psu_game:send_0a11(ItemID, Desc)
|
||||||
|
end;
|
||||||
|
|
||||||
|
%% @todo A and B are unknown.
|
||||||
|
%% Melee uses a format similar to: AAAA--BBCCCC----DDDDDDDDEE----FF with
|
||||||
|
%% AAAA the attack sound effect, BB the range, CCCC and DDDDDDDD unknown but related to angular range or similar, EE number of targets and FF the model.
|
||||||
|
%% Bullets and tech weapons formats are unknown but likely use a slightly different format.
|
||||||
|
%% @todo Others probably want to see that you changed your weapon.
|
||||||
|
%% @todo Apparently B is always ItemID+1. Not sure why.
|
||||||
|
%% @todo Currently use a separate file for the data sent for the weapons.
|
||||||
|
%% @todo TargetGID and TargetLID must be validated, they're either the player's or his NPC characters.
|
||||||
|
%% @todo Handle NPC characters properly.
|
||||||
|
event({item_equip, ItemIndex, TargetGID, TargetLID, A, B}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
Inventory = (User#egs_user_model.character)#characters.inventory,
|
||||||
|
case lists:nth(ItemIndex + 1, Inventory) of
|
||||||
|
{ItemID, Variables} when element(1, Variables) =:= psu_special_item_variables ->
|
||||||
|
<< Category:8, _:24 >> = << ItemID:32 >>,
|
||||||
|
psu_game:send(<< 16#01050300:32, 0:64, TargetGID:32/little, 0:64, 16#00011300:32, GID:32/little, 0:64,
|
||||||
|
TargetGID:32/little, TargetLID:32/little, ItemIndex:8, 1:8, Category:8, A:8, B:32/little >>);
|
||||||
|
{ItemID, Variables} when element(1, Variables) =:= psu_striking_weapon_item_variables ->
|
||||||
|
ItemInfo = proplists:get_value(ItemID, ?ITEMS),
|
||||||
|
#psu_item{data=Constants} = ItemInfo,
|
||||||
|
#psu_striking_weapon_item{attack_sound=Sound, hitbox_a=HitboxA, hitbox_b=HitboxB,
|
||||||
|
hitbox_c=HitboxC, hitbox_d=HitboxD, nb_targets=NbTargets, effect=Effect, model=Model} = Constants,
|
||||||
|
<< Category:8, _:24 >> = << ItemID:32 >>,
|
||||||
|
{SoundInt, SoundType} = case Sound of
|
||||||
|
{default, Val} -> {Val, 0};
|
||||||
|
{custom, Val} -> {Val, 8}
|
||||||
|
end,
|
||||||
|
psu_game:send(<< 16#01050300:32, 0:64, TargetGID:32/little, 0:64, 16#00011300:32, GID:32/little, 0:64,
|
||||||
|
TargetGID:32/little, TargetLID:32/little, ItemIndex:8, 1:8, Category:8, A:8, B:32/little,
|
||||||
|
SoundInt:32/little, HitboxA:16, HitboxB:16, HitboxC:16, HitboxD:16, SoundType:4, NbTargets:4, 0:8, Effect:8, Model:8 >>);
|
||||||
|
undefined ->
|
||||||
|
%% @todo Shouldn't be needed later when NPCs are handled correctly.
|
||||||
|
ignore
|
||||||
|
end;
|
||||||
|
|
||||||
|
%% @todo A and B are unknown.
|
||||||
|
%% @see item_equip
|
||||||
|
event({item_unequip, ItemIndex, TargetGID, TargetLID, A, B}, #state{gid=GID}) ->
|
||||||
|
Category = case ItemIndex of
|
||||||
|
% units would be 8, traps would be 12
|
||||||
|
19 -> 2; % armor
|
||||||
|
Y when Y =:= 5; Y =:= 6; Y =:= 7 -> 0; % clothes
|
||||||
|
_ -> 1 % weapons
|
||||||
|
end,
|
||||||
|
psu_game:send(<< 16#01050300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32, GID:32/little-unsigned-integer,
|
||||||
|
0:64, TargetGID:32/little-unsigned-integer, TargetLID:32/little-unsigned-integer, ItemIndex, 2, Category, A, B:32/little-unsigned-integer >>);
|
||||||
|
|
||||||
|
%% @todo Just ignore the meseta price for now and send the player where he wanna be!
|
||||||
|
event(lobby_transport_request, _State) ->
|
||||||
|
psu_game:send_0c08(true);
|
||||||
|
|
||||||
|
event(lumilass_options_request, _State) ->
|
||||||
|
psu_game:send_1a03();
|
||||||
|
|
||||||
|
%% @todo Probably replenish the player HP when entering a non-mission area rather than when aborting the mission?
|
||||||
|
event(mission_abort, State=#state{gid=GID}) ->
|
||||||
|
psu_game:send_1006(11, 0),
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
%% delete the mission
|
||||||
|
if User#egs_user_model.instancepid =:= undefined -> ignore;
|
||||||
|
true -> psu_instance:stop(User#egs_user_model.instancepid)
|
||||||
|
end,
|
||||||
|
%% full hp
|
||||||
|
Character = User#egs_user_model.character,
|
||||||
|
MaxHP = Character#characters.maxhp,
|
||||||
|
NewCharacter = Character#characters{currenthp=MaxHP},
|
||||||
|
NewUser = User#egs_user_model{character=NewCharacter, setid=0},
|
||||||
|
egs_user_model:write(NewUser),
|
||||||
|
%% map change
|
||||||
|
if User#egs_user_model.areatype =:= mission ->
|
||||||
|
PrevArea = User#egs_user_model.prev_area,
|
||||||
|
event({area_change, PrevArea#psu_area.questid, PrevArea#psu_area.zoneid, PrevArea#psu_area.mapid, User#egs_user_model.prev_entryid}, State);
|
||||||
|
true -> ignore
|
||||||
|
end;
|
||||||
|
|
||||||
|
%% @todo Forward the mission start to other players of the same party, whatever their location is.
|
||||||
|
event({mission_start, QuestID}, _State) ->
|
||||||
|
log("mission start ~b", [QuestID]),
|
||||||
|
psu_game:send_1020(),
|
||||||
|
psu_game:send_1015(QuestID),
|
||||||
|
psu_game:send_0c02();
|
||||||
|
|
||||||
|
%% @doc Force the invite of an NPC character while inside a mission. Mostly used by story missions.
|
||||||
|
%% Note that the NPC is often removed and reinvited between block/cutscenes.
|
||||||
|
event({npc_force_invite, NPCid}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
%% Create NPC.
|
||||||
|
log("npc force invite ~p", [NPCid]),
|
||||||
|
TmpNPCUser = psu_npc:user_init(NPCid, ((User#egs_user_model.character)#characters.mainlevel)#level.number),
|
||||||
|
%% Create and join party.
|
||||||
|
case User#egs_user_model.partypid of
|
||||||
|
undefined ->
|
||||||
|
{ok, PartyPid} = psu_party:start_link(GID);
|
||||||
|
PartyPid ->
|
||||||
|
ignore
|
||||||
|
end,
|
||||||
|
{ok, PartyPos} = psu_party:join(PartyPid, npc, TmpNPCUser#egs_user_model.id),
|
||||||
|
#egs_user_model{instancepid=InstancePid, area=Area, entryid=EntryID, pos=Pos} = User,
|
||||||
|
NPCUser = TmpNPCUser#egs_user_model{lid=PartyPos, partypid=PartyPid, instancepid=InstancePid, areatype=mission, area=Area, entryid=EntryID, pos=Pos},
|
||||||
|
egs_user_model:write(NPCUser),
|
||||||
|
egs_user_model:write(User#egs_user_model{partypid=PartyPid}),
|
||||||
|
%% Send stuff.
|
||||||
|
Character = NPCUser#egs_user_model.character,
|
||||||
|
SentNPCCharacter = Character#characters{gid=NPCid, npcid=NPCid},
|
||||||
|
SentNPCUser = NPCUser#egs_user_model{character=SentNPCCharacter},
|
||||||
|
psu_proto:send_010d(User, SentNPCUser),
|
||||||
|
psu_proto:send_0201(User, SentNPCUser),
|
||||||
|
psu_proto:send_0215(User, 0),
|
||||||
|
psu_game:send_0a04(SentNPCUser#egs_user_model.id),
|
||||||
|
psu_game:send_022c(0, 16#12),
|
||||||
|
psu_game:send_1004(npc_mission, SentNPCUser, PartyPos),
|
||||||
|
psu_game:send_100f((SentNPCUser#egs_user_model.character)#characters.npcid, PartyPos),
|
||||||
|
psu_game:send_1601(PartyPos);
|
||||||
|
|
||||||
|
%% @todo Also at the end send a 101a (NPC:16, PartyPos:16, ffffffff). Not sure about PartyPos.
|
||||||
|
event({npc_invite, NPCid}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
%% Create NPC.
|
||||||
|
log("invited npcid ~b", [NPCid]),
|
||||||
|
TmpNPCUser = psu_npc:user_init(NPCid, ((User#egs_user_model.character)#characters.mainlevel)#level.number),
|
||||||
|
%% Create and join party.
|
||||||
|
case User#egs_user_model.partypid of
|
||||||
|
undefined ->
|
||||||
|
{ok, PartyPid} = psu_party:start_link(GID),
|
||||||
|
psu_game:send_022c(0, 16#12);
|
||||||
|
PartyPid ->
|
||||||
|
ignore
|
||||||
|
end,
|
||||||
|
{ok, PartyPos} = psu_party:join(PartyPid, npc, TmpNPCUser#egs_user_model.id),
|
||||||
|
NPCUser = TmpNPCUser#egs_user_model{lid=PartyPos, partypid=PartyPid},
|
||||||
|
egs_user_model:write(NPCUser),
|
||||||
|
egs_user_model:write(User#egs_user_model{partypid=PartyPid}),
|
||||||
|
%% Send stuff.
|
||||||
|
Character = NPCUser#egs_user_model.character,
|
||||||
|
SentNPCCharacter = Character#characters{gid=NPCid, npcid=NPCid},
|
||||||
|
SentNPCUser = NPCUser#egs_user_model{character=SentNPCCharacter},
|
||||||
|
psu_game:send_1004(npc_invite, SentNPCUser, PartyPos),
|
||||||
|
psu_game:send_101a(NPCid, PartyPos);
|
||||||
|
|
||||||
|
%% @todo Should be 0115(money) 010a03(confirm sale).
|
||||||
|
%% @todo We probably need to save the ShopID somewhere since it isn't given back here.
|
||||||
|
event({npc_shop_buy, ShopItemIndex, Quantity}, _State) ->
|
||||||
|
log("npc shop buy itemindex ~p quantity ~p", [ShopItemIndex, Quantity]);
|
||||||
|
|
||||||
|
%% @todo Currently send the normal items shop for all shops, differentiate.
|
||||||
|
event({npc_shop_enter, ShopID}, #state{gid=GID}) ->
|
||||||
|
log("npc shop enter ~p", [ShopID]),
|
||||||
|
case proplists:get_value(ShopID, ?SHOPS) of
|
||||||
|
undefined -> %% @todo Temporary; prevent players from getting stuck.
|
||||||
|
{ok, File} = file:read_file("p/itemshop.bin"),
|
||||||
|
psu_game:send(<< 16#010a0300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32,
|
||||||
|
GID:32/little-unsigned-integer, 0:64, GID:32/little-unsigned-integer, 0:32, File/binary >>);
|
||||||
|
ItemsList ->
|
||||||
|
psu_game:send_010a(ItemsList)
|
||||||
|
end;
|
||||||
|
|
||||||
|
event({npc_shop_leave, ShopID}, #state{gid=GID}) ->
|
||||||
|
log("npc shop leave ~p", [ShopID]),
|
||||||
|
psu_game:send(<< 16#010a0300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32,
|
||||||
|
GID:32/little-unsigned-integer, 0:64, GID:32/little-unsigned-integer, 0:32 >>);
|
||||||
|
|
||||||
|
%% @todo Should be 0115(money) 010a03(confirm sale).
|
||||||
|
event({npc_shop_sell, InventoryItemIndex, Quantity}, _State) ->
|
||||||
|
log("npc shop sell itemindex ~p quantity ~p", [InventoryItemIndex, Quantity]);
|
||||||
|
|
||||||
|
%% @todo First 1a02 value should be non-0.
|
||||||
|
%% @todo Could the 2nd 1a02 parameter simply be the shop type or something?
|
||||||
|
%% @todo Although the values replied should be right, they seem mostly ignored by the client.
|
||||||
|
event({npc_shop_request, ShopID}, _State) ->
|
||||||
|
log("npc shop request ~p", [ShopID]),
|
||||||
|
case ShopID of
|
||||||
|
80 -> psu_game:send_1a02(0, 17, 17, 3, 9); %% lumilass
|
||||||
|
90 -> psu_game:send_1a02(0, 5, 1, 4, 5); %% parum weapon grinding
|
||||||
|
91 -> psu_game:send_1a02(0, 5, 5, 4, 7); %% tenora weapon grinding
|
||||||
|
92 -> psu_game:send_1a02(0, 5, 0, 4, 0); %% yohmei weapon grinding
|
||||||
|
93 -> psu_game:send_1a02(0, 5, 18, 4, 0); %% kubara weapon grinding
|
||||||
|
_ -> psu_game:send_1a02(0, 0, 1, 0, 0)
|
||||||
|
end;
|
||||||
|
|
||||||
|
%% @todo Not sure what are those hardcoded values.
|
||||||
|
event({object_boss_gate_activate, ObjectID}, _State) ->
|
||||||
|
psu_game:send_1213(ObjectID, 0),
|
||||||
|
psu_game:send_1215(2, 16#7008),
|
||||||
|
%% @todo Following sent after the warp?
|
||||||
|
psu_game:send_1213(37, 0),
|
||||||
|
%% @todo Why resend this?
|
||||||
|
psu_game:send_1213(ObjectID, 0);
|
||||||
|
|
||||||
|
event({object_boss_gate_enter, ObjectID}, _State) ->
|
||||||
|
psu_game:send_1213(ObjectID, 1);
|
||||||
|
|
||||||
|
%% @todo Do we need to send something back here?
|
||||||
|
event({object_boss_gate_leave, _ObjectID}, _State) ->
|
||||||
|
ignore;
|
||||||
|
|
||||||
|
event({object_box_destroy, ObjectID}, _State) ->
|
||||||
|
psu_game:send_1213(ObjectID, 3);
|
||||||
|
|
||||||
|
%% @todo Second send_1211 argument should be User#egs_user_model.lid. Fix when it's correctly handled.
|
||||||
|
event({object_chair_sit, ObjectTargetID}, _State) ->
|
||||||
|
%~ {ok, User} = egs_user_model:read(get(gid)),
|
||||||
|
psu_game:send_1211(ObjectTargetID, 0, 8, 0);
|
||||||
|
|
||||||
|
%% @todo Second psu_game:send_1211 argument should be User#egs_user_model.lid. Fix when it's correctly handled.
|
||||||
|
event({object_chair_stand, ObjectTargetID}, _State) ->
|
||||||
|
%~ {ok, User} = egs_user_model:read(get(gid)),
|
||||||
|
psu_game:send_1211(ObjectTargetID, 0, 8, 2);
|
||||||
|
|
||||||
|
event({object_crystal_activate, ObjectID}, _State) ->
|
||||||
|
psu_game:send_1213(ObjectID, 1);
|
||||||
|
|
||||||
|
%% @doc Server-side event.
|
||||||
|
event({object_event_trigger, BlockID, EventID}, _State) ->
|
||||||
|
psu_game:send_1205(EventID, BlockID, 0);
|
||||||
|
|
||||||
|
event({object_goggle_target_activate, ObjectID}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, EventID} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
||||||
|
psu_game:send_1205(EventID, BlockID, 0),
|
||||||
|
psu_game:send_1213(ObjectID, 8);
|
||||||
|
|
||||||
|
event({object_key_console_enable, ObjectID}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, [EventID|_]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
||||||
|
psu_game:send_1205(EventID, BlockID, 0),
|
||||||
|
psu_game:send_1213(ObjectID, 1);
|
||||||
|
|
||||||
|
event({object_key_console_init, ObjectID}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, [_, EventID, _]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
||||||
|
psu_game:send_1205(EventID, BlockID, 0);
|
||||||
|
|
||||||
|
event({object_key_console_open_gate, ObjectID}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, [_, _, EventID]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
||||||
|
psu_game:send_1205(EventID, BlockID, 0),
|
||||||
|
psu_game:send_1213(ObjectID, 1);
|
||||||
|
|
||||||
|
%% @todo Now that it's separate from object_key_console_enable, handle it better than that, don't need a list of events.
|
||||||
|
event({object_key_enable, ObjectID}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, [EventID|_]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
||||||
|
psu_game:send_1205(EventID, BlockID, 0),
|
||||||
|
psu_game:send_1213(ObjectID, 1);
|
||||||
|
|
||||||
|
%% @todo Some switch objects apparently work differently, like the light switch in Mines in MAG'.
|
||||||
|
event({object_switch_off, ObjectID}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, EventID} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
||||||
|
psu_game:send_1205(EventID, BlockID, 1),
|
||||||
|
psu_game:send_1213(ObjectID, 0);
|
||||||
|
|
||||||
|
event({object_switch_on, ObjectID}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
{BlockID, EventID} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
||||||
|
psu_game:send_1205(EventID, BlockID, 0),
|
||||||
|
psu_game:send_1213(ObjectID, 1);
|
||||||
|
|
||||||
|
event({object_vehicle_boost_enable, ObjectID}, _State) ->
|
||||||
|
psu_game:send_1213(ObjectID, 1);
|
||||||
|
|
||||||
|
event({object_vehicle_boost_respawn, ObjectID}, _State) ->
|
||||||
|
psu_game:send_1213(ObjectID, 0);
|
||||||
|
|
||||||
|
%% @todo Second send_1211 argument should be User#egs_user_model.lid. Fix when it's correctly handled.
|
||||||
|
event({object_warp_take, BlockID, ListNb, ObjectNb}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
Pos = psu_instance:warp_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, BlockID, ListNb, ObjectNb),
|
||||||
|
NewUser = User#egs_user_model{pos=Pos},
|
||||||
|
egs_user_model:write(NewUser),
|
||||||
|
psu_game:send_0503(User#egs_user_model.pos),
|
||||||
|
psu_game:send_1211(16#ffffffff, 0, 14, 0);
|
||||||
|
|
||||||
|
event({party_remove_member, PartyPos}, #state{gid=GID}) ->
|
||||||
|
log("party remove member ~b", [PartyPos]),
|
||||||
|
{ok, DestUser} = egs_user_model:read(GID),
|
||||||
|
{ok, RemovedGID} = psu_party:get_member(DestUser#egs_user_model.partypid, PartyPos),
|
||||||
|
psu_party:remove_member(DestUser#egs_user_model.partypid, PartyPos),
|
||||||
|
{ok, RemovedUser} = egs_user_model:read(RemovedGID),
|
||||||
|
case (RemovedUser#egs_user_model.character)#characters.type of
|
||||||
|
npc -> egs_user_model:delete(RemovedGID);
|
||||||
|
_ -> ignore
|
||||||
|
end,
|
||||||
|
psu_game:send_1006(8, PartyPos),
|
||||||
|
psu_game:send_0204(DestUser, RemovedUser, 1),
|
||||||
|
psu_proto:send_0215(DestUser, 0);
|
||||||
|
|
||||||
|
event({player_options_change, Options}, #state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
file:write_file(io_lib:format("save/~s/~b-character.options", [User#egs_user_model.folder, (User#egs_user_model.character)#characters.slot]), Options);
|
||||||
|
|
||||||
|
%% @todo If the player has a scape, use it! Otherwise red screen.
|
||||||
|
%% @todo Right now we force revive and don't update the player's HP.
|
||||||
|
event(player_death, _State) ->
|
||||||
|
% @todo send_0115(get(gid), 16#ffffffff, LV=1, EXP=idk, Money=1000), % apparently sent everytime you die...
|
||||||
|
%% use scape:
|
||||||
|
NewHP = 10,
|
||||||
|
psu_game:send_0117(NewHP),
|
||||||
|
psu_game:send_1022(NewHP);
|
||||||
|
%% red screen with return to lobby choice:
|
||||||
|
%~ psu_game:send_0111(3, 1);
|
||||||
|
|
||||||
|
%% @todo Refill the player's HP to maximum, remove SEs etc.
|
||||||
|
event(player_death_return_to_lobby, State=#state{gid=GID}) ->
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
PrevArea = User#egs_user_model.prev_area,
|
||||||
|
event({area_change, PrevArea#psu_area.questid, PrevArea#psu_area.zoneid, PrevArea#psu_area.mapid, User#egs_user_model.prev_entryid}, State);
|
||||||
|
|
||||||
|
event(player_type_availability_request, _State) ->
|
||||||
|
psu_game:send_1a07();
|
||||||
|
|
||||||
|
event(player_type_capabilities_request, _State) ->
|
||||||
|
psu_game:send_0113();
|
||||||
|
|
||||||
|
event(ppcube_request, _State) ->
|
||||||
|
psu_game:send_1a04();
|
||||||
|
|
||||||
|
%% @doc Uni cube handler.
|
||||||
|
event(unicube_request, _State) ->
|
||||||
|
psu_game:send_021e();
|
||||||
|
|
||||||
|
%% @doc Uni selection handler.
|
||||||
|
%% @todo When selecting 'Your room', load a default room.
|
||||||
|
%% @todo When selecting 'Reload', reload the character in the current lobby.
|
||||||
|
%% @todo Delete NPC characters and stop the party on entering myroom too.
|
||||||
|
event({unicube_select, Selection, EntryID}, State=#state{gid=GID}) ->
|
||||||
|
case Selection of
|
||||||
|
cancel -> ignore;
|
||||||
|
16#ffffffff ->
|
||||||
|
log("uni selection (my room)"),
|
||||||
|
psu_game:send_0230(),
|
||||||
|
% 0220
|
||||||
|
event({area_change, 1120000, 0, 100, 0}, State);
|
||||||
|
_UniID ->
|
||||||
|
log("uni selection (reload)"),
|
||||||
|
psu_game:send_0230(),
|
||||||
|
% 0220
|
||||||
|
%% force reloading the character and data files (@todo hack, uses myroom questid to do it)
|
||||||
|
{ok, User} = egs_user_model:read(GID),
|
||||||
|
case User#egs_user_model.partypid of
|
||||||
|
undefined ->
|
||||||
|
ignore;
|
||||||
|
PartyPid ->
|
||||||
|
%% @todo Replace stop by leave when leaving stops the party correctly when nobody's there anymore.
|
||||||
|
%~ psu_party:leave(User#egs_user_model.partypid, User#egs_user_model.id)
|
||||||
|
{ok, NPCList} = psu_party:get_npc(PartyPid),
|
||||||
|
[egs_user_model:delete(NPCGID) || {_Spot, NPCGID} <- NPCList],
|
||||||
|
psu_party:stop(PartyPid)
|
||||||
|
end,
|
||||||
|
Area = User#egs_user_model.area,
|
||||||
|
NewRow = User#egs_user_model{partypid=undefined, area=Area#psu_area{questid=1120000, zoneid=undefined}, entryid=EntryID},
|
||||||
|
egs_user_model:write(NewRow),
|
||||||
|
event({area_change, Area#psu_area.questid, Area#psu_area.zoneid, Area#psu_area.mapid, EntryID}, State)
|
||||||
|
end.
|
||||||
|
|
||||||
|
%% Internal.
|
||||||
|
|
||||||
|
%% @doc Trigger many events.
|
||||||
|
events(Events, State) ->
|
||||||
|
[event(Event, State) || Event <- Events],
|
||||||
|
ok.
|
||||||
|
|
||||||
|
%% @doc Log message to the console.
|
||||||
|
log(Message) ->
|
||||||
|
io:format("~p: ~s~n", [get(gid), Message]).
|
||||||
|
|
||||||
|
log(Message, Format) ->
|
||||||
|
FormattedMessage = io_lib:format(Message, Format),
|
||||||
|
log(FormattedMessage).
|
||||||
75
src/egs_login.erl
Normal file
75
src/egs_login.erl
Normal file
@ -0,0 +1,75 @@
|
|||||||
|
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||||
|
%% @copyright 2010 Loïc Hoguin.
|
||||||
|
%% @doc Game server's client authentication callback 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_login).
|
||||||
|
-export([init/1, keepalive/1, info/2, cast/3, raw/3, event/2]).
|
||||||
|
|
||||||
|
%% @todo This header is only included because of egs_user_model. We don't want that here.
|
||||||
|
-include("include/records.hrl").
|
||||||
|
|
||||||
|
-record(state, {socket}).
|
||||||
|
|
||||||
|
%% @doc Initialize the game state and start receiving messages.
|
||||||
|
%% @todo Link against egs_exit_mon.
|
||||||
|
%% @todo Handle keepalive messages globally.
|
||||||
|
%% @todo Probably have init where start_link is.
|
||||||
|
init(Socket) ->
|
||||||
|
psu_proto:send_0202(Socket, 0),
|
||||||
|
timer:send_interval(5000, {egs, keepalive}),
|
||||||
|
egs_network:recv(<< >>, ?MODULE, #state{socket=Socket}).
|
||||||
|
|
||||||
|
%% @doc Don't keep alive here, authentication should go fast.
|
||||||
|
keepalive(_State) ->
|
||||||
|
ok.
|
||||||
|
|
||||||
|
%% @doc We don't expect any message here.
|
||||||
|
%% @todo Throw an error instead?
|
||||||
|
info(_Msg, _State) ->
|
||||||
|
ok.
|
||||||
|
|
||||||
|
%% @doc Nothing to broadcast.
|
||||||
|
%% @todo Throw an error instead?
|
||||||
|
cast(_Command, _Data, _State) ->
|
||||||
|
ok.
|
||||||
|
|
||||||
|
%% @doc Dismiss all raw commands with a log notice.
|
||||||
|
%% @todo Have a log event handler instead.
|
||||||
|
raw(Command, _Data, _State) ->
|
||||||
|
io:format("~p: dismissed command ~4.16.0b~n", [?MODULE, Command]).
|
||||||
|
|
||||||
|
%% Events.
|
||||||
|
|
||||||
|
%% @todo Check the client version info here too. Not just on login.
|
||||||
|
event({system_client_version_info, _Language, _Platform, _Version}, _State) ->
|
||||||
|
ok;
|
||||||
|
|
||||||
|
%% @doc Authenticate the user by pattern matching its saved state against the key received.
|
||||||
|
%% If the user is authenticated, send him the character flags list.
|
||||||
|
%% @todo Remove the put calls when all the send_xxxx are moved out of psu_game and into psu_proto.
|
||||||
|
event({system_key_auth_request, AuthGID, AuthKey}, #state{socket=Socket}) ->
|
||||||
|
{ok, User} = egs_user_model:read(AuthGID),
|
||||||
|
{wait_for_authentication, AuthKey} = User#egs_user_model.state,
|
||||||
|
put(socket, Socket),
|
||||||
|
put(gid, AuthGID),
|
||||||
|
LID = 1 + mnesia:dirty_update_counter(counters, lobby, 1) rem 1023,
|
||||||
|
Time = calendar:datetime_to_gregorian_seconds(calendar:universal_time()),
|
||||||
|
User2 = User#egs_user_model{id=AuthGID, pid=self(), socket=Socket, state=authenticated, time=Time, lid=LID},
|
||||||
|
egs_user_model:write(User2),
|
||||||
|
psu_proto:send_0d05(User2),
|
||||||
|
{ok, egs_char_select, {state, Socket, AuthGID}}.
|
||||||
103
src/egs_network.erl
Normal file
103
src/egs_network.erl
Normal file
@ -0,0 +1,103 @@
|
|||||||
|
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||||
|
%% @copyright 2010 Loïc Hoguin.
|
||||||
|
%% @doc Login and game servers low-level network handling.
|
||||||
|
%%
|
||||||
|
%% 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_network).
|
||||||
|
-export([listen/2, recv/3]). %% API.
|
||||||
|
-export([accept/2]). %% Internal.
|
||||||
|
|
||||||
|
-define(OPTIONS, [binary, {active, true}, {reuseaddr, true}, {certfile, "priv/ssl/servercert.pem"}, {keyfile, "priv/ssl/serverkey.pem"}, {password, "alpha"}]).
|
||||||
|
|
||||||
|
%% @doc Listen for connections.
|
||||||
|
listen(Port, CallbackMod) ->
|
||||||
|
error_logger:info_report(io_lib:format("started a listener for ~p on port ~b", [CallbackMod, Port])),
|
||||||
|
{ok, LSocket} = ssl:listen(Port, ?OPTIONS),
|
||||||
|
?MODULE:accept(LSocket, CallbackMod).
|
||||||
|
|
||||||
|
%% @doc Accept connections.
|
||||||
|
accept(LSocket, CallbackMod) ->
|
||||||
|
case ssl:transport_accept(LSocket, 5000) of
|
||||||
|
{ok, CSocket} ->
|
||||||
|
case ssl:ssl_accept(CSocket, 5000) of
|
||||||
|
ok ->
|
||||||
|
Pid = spawn(CallbackMod, init, [CSocket]),
|
||||||
|
ssl:controlling_process(CSocket, Pid);
|
||||||
|
{error, _Reason} ->
|
||||||
|
ignore
|
||||||
|
end;
|
||||||
|
{error, _Reason} ->
|
||||||
|
ignore
|
||||||
|
end,
|
||||||
|
?MODULE:accept(LSocket, CallbackMod).
|
||||||
|
|
||||||
|
%% @doc Main loop for the network stack. Receive and handle messages.
|
||||||
|
recv(SoFar, CallbackMod, State) ->
|
||||||
|
receive
|
||||||
|
{ssl, _Any, Data} ->
|
||||||
|
{Commands, Rest} = split(<< SoFar/bits, Data/bits >>, []),
|
||||||
|
{ok, NextCallbackMod, NewState} = dispatch(Commands, CallbackMod, CallbackMod, State),
|
||||||
|
?MODULE:recv(Rest, NextCallbackMod, NewState);
|
||||||
|
{ssl_closed, _} ->
|
||||||
|
ssl_closed; %% exit
|
||||||
|
{ssl_error, _, _} ->
|
||||||
|
ssl_error; %% exit
|
||||||
|
{egs, keepalive} ->
|
||||||
|
CallbackMod:keepalive(State),
|
||||||
|
?MODULE:recv(SoFar, CallbackMod, State);
|
||||||
|
Tuple when element(1, Tuple) =:= egs ->
|
||||||
|
case CallbackMod:info(Tuple, State) of
|
||||||
|
{ok, NewState} -> ?MODULE:recv(SoFar, CallbackMod, NewState);
|
||||||
|
_Any -> ?MODULE:recv(SoFar, CallbackMod, State)
|
||||||
|
end;
|
||||||
|
_ ->
|
||||||
|
?MODULE:recv(SoFar, CallbackMod, State)
|
||||||
|
end.
|
||||||
|
|
||||||
|
%% @doc Dispatch the commands received to the right handler.
|
||||||
|
dispatch([], _CallbackMod, NextMod, State) ->
|
||||||
|
{ok, NextMod, State};
|
||||||
|
dispatch([Data|Tail], CallbackMod, NextMod, State) ->
|
||||||
|
Ret = case psu_proto:parse(Data) of
|
||||||
|
{command, Command, Channel} ->
|
||||||
|
case Channel of
|
||||||
|
1 -> CallbackMod:cast(Command, Data, State);
|
||||||
|
_ -> CallbackMod:raw(Command, Data, State)
|
||||||
|
end;
|
||||||
|
ignore ->
|
||||||
|
ignore;
|
||||||
|
Event ->
|
||||||
|
CallbackMod:event(Event, State)
|
||||||
|
end,
|
||||||
|
case Ret of
|
||||||
|
{ok, NewMod, NewState} ->
|
||||||
|
dispatch(Tail, CallbackMod, NewMod, NewState);
|
||||||
|
{ok, NewState} ->
|
||||||
|
dispatch(Tail, CallbackMod, NextMod, NewState);
|
||||||
|
_Any ->
|
||||||
|
dispatch(Tail, CallbackMod, NextMod, State)
|
||||||
|
end.
|
||||||
|
|
||||||
|
%% @doc Split the network data received into commands.
|
||||||
|
split(Data, Acc) when byte_size(Data) < 4 ->
|
||||||
|
{lists:reverse(Acc), Data};
|
||||||
|
split(<< Size:32/little, _/bits >> = Data, Acc) when Size > byte_size(Data) ->
|
||||||
|
{lists:reverse(Acc), Data};
|
||||||
|
split(<< Size:32/little, _/bits >> = Data, Acc) ->
|
||||||
|
BitSize = Size * 8,
|
||||||
|
<< Split:BitSize/bits, Rest/bits >> = Data,
|
||||||
|
split(Rest, [Split|Acc]).
|
||||||
@ -19,7 +19,7 @@
|
|||||||
|
|
||||||
-module(psu_game).
|
-module(psu_game).
|
||||||
-export([start_link/1, cleanup/1]). %% External.
|
-export([start_link/1, cleanup/1]). %% External.
|
||||||
-export([listen/2, accept/2, process_init/2, process/0, char_select/0, loop/1]). %% Internal.
|
-compile(export_all). %% @todo Temporarily export all until send_xxxx functions are moved to psu_proto.
|
||||||
|
|
||||||
-include("include/records.hrl").
|
-include("include/records.hrl").
|
||||||
-include("include/maps.hrl").
|
-include("include/maps.hrl").
|
||||||
@ -32,8 +32,8 @@
|
|||||||
%% @spec start_link(Port) -> {ok,Pid::pid()}
|
%% @spec start_link(Port) -> {ok,Pid::pid()}
|
||||||
%% @doc Start the game server.
|
%% @doc Start the game server.
|
||||||
start_link(Port) ->
|
start_link(Port) ->
|
||||||
{ok, MPid} = egs_exit_mon:start_link({?MODULE, cleanup}),
|
%~ {ok, MPid} = egs_exit_mon:start_link({?MODULE, cleanup}),
|
||||||
LPid = spawn(?MODULE, listen, [Port, MPid]),
|
LPid = spawn(egs_network, listen, [Port, egs_login]),
|
||||||
{ok, LPid}.
|
{ok, LPid}.
|
||||||
|
|
||||||
%% @spec cleanup(Pid) -> ok
|
%% @spec cleanup(Pid) -> ok
|
||||||
@ -59,166 +59,9 @@ cleanup(Pid) ->
|
|||||||
ignore
|
ignore
|
||||||
end.
|
end.
|
||||||
|
|
||||||
%% @doc Listen for connections.
|
|
||||||
listen(Port, MPid) ->
|
|
||||||
error_logger:info_report(io_lib:format("psu_game listening on port ~b", [Port])),
|
|
||||||
{ok, LSocket} = ssl:listen(Port, ?OPTIONS),
|
|
||||||
?MODULE:accept(LSocket, MPid).
|
|
||||||
|
|
||||||
%% @doc Accept connections.
|
|
||||||
accept(LSocket, MPid) ->
|
|
||||||
case ssl:transport_accept(LSocket, 5000) of
|
|
||||||
{ok, CSocket} ->
|
|
||||||
case ssl:ssl_accept(CSocket, 5000) of
|
|
||||||
ok ->
|
|
||||||
Pid = spawn(?MODULE, process_init, [CSocket, MPid]),
|
|
||||||
ssl:controlling_process(CSocket, Pid);
|
|
||||||
{error, _Reason} ->
|
|
||||||
reload
|
|
||||||
end;
|
|
||||||
_ ->
|
|
||||||
reload
|
|
||||||
end,
|
|
||||||
?MODULE:accept(LSocket, MPid).
|
|
||||||
|
|
||||||
%% @doc Initialize the client process by saving the socket to the process dictionary.
|
|
||||||
process_init(CSocket, MPid) ->
|
|
||||||
link(MPid),
|
|
||||||
put(socket, CSocket),
|
|
||||||
psu_proto:send_0202(CSocket, 0),
|
|
||||||
timer:send_interval(5000, {psu_keepalive}),
|
|
||||||
process().
|
|
||||||
|
|
||||||
%% @doc Process the new connections.
|
|
||||||
%% Send an hello packet, authenticate the user and send him to character select.
|
|
||||||
process() ->
|
|
||||||
case psu_proto:packet_recv(get(socket), 5000) of
|
|
||||||
{ok, Orig} ->
|
|
||||||
case psu_proto:parse(Orig) of
|
|
||||||
ignore -> ?MODULE:process();
|
|
||||||
Event -> process_event(Event)
|
|
||||||
end;
|
|
||||||
{error, timeout} ->
|
|
||||||
reload,
|
|
||||||
?MODULE:process();
|
|
||||||
{error, closed} ->
|
|
||||||
closed
|
|
||||||
end.
|
|
||||||
|
|
||||||
%% @todo Check the client version info here too. Not just in psu_login.
|
|
||||||
process_event({system_client_version_info, _Language, _Platform, _Version}) ->
|
|
||||||
?MODULE:process();
|
|
||||||
|
|
||||||
process_event({system_key_auth_request, AuthGID, AuthKey}) ->
|
|
||||||
CSocket = get(socket),
|
|
||||||
case egs_user_model:read(AuthGID) of
|
|
||||||
{error, badarg} ->
|
|
||||||
log("can't find user, closing"),
|
|
||||||
ssl:close(CSocket);
|
|
||||||
{ok, User} ->
|
|
||||||
case User#egs_user_model.state of
|
|
||||||
{wait_for_authentication, AuthKey} ->
|
|
||||||
put(gid, AuthGID),
|
|
||||||
log("auth success"),
|
|
||||||
LID = 1 + mnesia:dirty_update_counter(counters, lobby, 1) rem 1023,
|
|
||||||
Time = calendar:datetime_to_gregorian_seconds(calendar:universal_time()),
|
|
||||||
NewUser = #egs_user_model{id=AuthGID, pid=self(), socket=CSocket, state=authenticated, time=Time, folder=User#egs_user_model.folder, lid=LID},
|
|
||||||
egs_user_model:write(NewUser),
|
|
||||||
psu_proto:send_0d05(NewUser),
|
|
||||||
?MODULE:char_select();
|
|
||||||
_ ->
|
|
||||||
log("quit, auth failed"),
|
|
||||||
ssl:close(CSocket)
|
|
||||||
end
|
|
||||||
end;
|
|
||||||
|
|
||||||
process_event({command, Command, Channel, _Data}) ->
|
|
||||||
log("process_event: dismissed command ~4.16.0b channel ~b", [Command, Channel]),
|
|
||||||
?MODULE:process().
|
|
||||||
|
|
||||||
%% @doc Character selection screen loop.
|
|
||||||
char_select() ->
|
|
||||||
case psu_proto:packet_recv(get(socket), 5000) of
|
|
||||||
{ok, Orig} ->
|
|
||||||
case psu_proto:parse(Orig) of
|
|
||||||
ignore -> ?MODULE:char_select();
|
|
||||||
Event -> char_select_event(Event)
|
|
||||||
end;
|
|
||||||
{error, timeout} ->
|
|
||||||
psu_proto:send_keepalive(get(socket)),
|
|
||||||
reload,
|
|
||||||
?MODULE:char_select();
|
|
||||||
{error, closed} ->
|
|
||||||
closed %% exit
|
|
||||||
end.
|
|
||||||
|
|
||||||
%% @todo Reenable appearance validation whenever things go live.
|
|
||||||
char_select_event({char_select_create, Slot, CharBin}) ->
|
|
||||||
log("character creation ~b", [Slot]),
|
|
||||||
%% check for valid character appearance
|
|
||||||
%~ << _Name:512, RaceID:8, GenderID:8, _TypeID:8, AppearanceBin:776/bits, _/bits >> = CharBin,
|
|
||||||
%~ Race = proplists:get_value(RaceID, [{0, human}, {1, newman}, {2, cast}, {3, beast}]),
|
|
||||||
%~ Gender = proplists:get_value(GenderID, [{0, male}, {1, female}]),
|
|
||||||
%~ Appearance = psu_appearance:binary_to_tuple(Race, AppearanceBin),
|
|
||||||
%~ psu_appearance:validate_char_create(Race, Gender, Appearance),
|
|
||||||
%% end of check, continue doing it wrong past that point for now
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
_ = file:make_dir(io_lib:format("save/~s", [User#egs_user_model.folder])),
|
|
||||||
file:write_file(io_lib:format("save/~s/~b-character", [User#egs_user_model.folder, Slot]), CharBin),
|
|
||||||
file:write_file(io_lib:format("save/~s/~b-character.options", [User#egs_user_model.folder, Slot]), << 0:128, 4, 0:56 >>), % default 0 to everything except brightness 4
|
|
||||||
?MODULE:char_select();
|
|
||||||
|
|
||||||
char_select_event({char_select_enter, Slot, _BackToPreviousField}) ->
|
|
||||||
log("selected character ~b", [Slot]),
|
|
||||||
char_select_load(Slot);
|
|
||||||
|
|
||||||
char_select_event(char_select_request) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
send_0d03(data_load(User#egs_user_model.folder, 0), data_load(User#egs_user_model.folder, 1), data_load(User#egs_user_model.folder, 2), data_load(User#egs_user_model.folder, 3)),
|
|
||||||
?MODULE:char_select();
|
|
||||||
|
|
||||||
char_select_event({command, Command, Channel, _Data}) ->
|
|
||||||
log("char_select_event: dismissed command ~4.16.0b channel ~b", [Command, Channel]),
|
|
||||||
?MODULE:char_select().
|
|
||||||
|
|
||||||
%% @doc Load the selected character in the start lobby and start the main game's loop.
|
|
||||||
%% The default entry point currently is 4th floor, Linear Line counter.
|
|
||||||
char_select_load(Number) ->
|
|
||||||
{ok, OldUser} = egs_user_model:read(get(gid)),
|
|
||||||
[{status, 1}, {char, CharBin}, {options, OptionsBin}] = data_load(OldUser#egs_user_model.folder, Number),
|
|
||||||
<< Name:512/bits, RaceBin:8, GenderBin:8, ClassBin:8, AppearanceBin:776/bits, _/bits >> = CharBin,
|
|
||||||
psu_characters:validate_name(Name), % TODO: don't validate name when loading character, do it at creation
|
|
||||||
Race = psu_characters:race_binary_to_atom(RaceBin),
|
|
||||||
Gender = psu_characters:gender_binary_to_atom(GenderBin),
|
|
||||||
Class = psu_characters:class_binary_to_atom(ClassBin),
|
|
||||||
Appearance = psu_appearance:binary_to_tuple(Race, AppearanceBin),
|
|
||||||
Options = psu_characters:options_binary_to_tuple(OptionsBin),
|
|
||||||
Character = #characters{slot=Number, name=Name, race=Race, gender=Gender, class=Class, appearance=Appearance, options=Options, % TODO: temporary set the slot here, won't be needed later
|
|
||||||
inventory= [{16#11010000, #psu_special_item_variables{}}, {16#11020000, #psu_special_item_variables{}}, {16#11020100, #psu_special_item_variables{}}, {16#11020200, #psu_special_item_variables{}},
|
|
||||||
{16#01010900, #psu_striking_weapon_item_variables{is_active=0, slot=0, current_pp=99, max_pp=100, element=#psu_element{type=1, percent=50}, pa=#psu_pa{type=0, level=0}}},
|
|
||||||
{16#01010a00, #psu_striking_weapon_item_variables{is_active=0, slot=0, current_pp=99, max_pp=100, element=#psu_element{type=2, percent=50}, pa=#psu_pa{type=0, level=0}}},
|
|
||||||
{16#01010b00, #psu_striking_weapon_item_variables{is_active=0, slot=0, current_pp=99, max_pp=100, element=#psu_element{type=3, percent=50}, pa=#psu_pa{type=0, level=0}}}]},
|
|
||||||
User = OldUser#egs_user_model{state=online, character=Character, area=#psu_area{questid=undefined, zoneid=undefined, mapid=undefined},
|
|
||||||
prev_area={psu_area, 0, 0, 0}, prev_entryid=0, pos=#pos{x=0.0, y=0.0, z=0.0, dir=0.0}, setid=0},
|
|
||||||
egs_user_model:write(User),
|
|
||||||
char_load(User),
|
|
||||||
event({area_change, 1100000, 0, 4, 5}),
|
|
||||||
ssl:setopts(get(socket), [{active, true}]),
|
|
||||||
?MODULE:loop(<< >>).
|
|
||||||
|
|
||||||
%% @doc Load the given character's data.
|
|
||||||
data_load(Folder, Number) ->
|
|
||||||
Filename = io_lib:format("save/~s/~b-character", [Folder, Number]),
|
|
||||||
case file:read_file(Filename) of
|
|
||||||
{ok, Char} ->
|
|
||||||
{ok, Options} = file:read_file(io_lib:format("~s.options", [Filename])),
|
|
||||||
[{status, 1}, {char, Char}, {options, Options}];
|
|
||||||
{error, _} ->
|
|
||||||
[{status, 0}, {char, << 0:2208 >>}]
|
|
||||||
end.
|
|
||||||
|
|
||||||
%% @doc Load and send the character information to the client.
|
%% @doc Load and send the character information to the client.
|
||||||
%% @todo Should wait for the 021c reply before doing area_change.
|
%% @todo Should wait for the 021c reply before doing area_change.
|
||||||
|
%% @todo Move this whole function directly to psu_proto, probably.
|
||||||
char_load(User) ->
|
char_load(User) ->
|
||||||
send_0d01(User),
|
send_0d01(User),
|
||||||
% 0246
|
% 0246
|
||||||
@ -432,739 +275,6 @@ npc_load(Leader, [{PartyPos, NPCGID}|NPCList]) ->
|
|||||||
send_1016(PartyPos),
|
send_1016(PartyPos),
|
||||||
npc_load(Leader, NPCList).
|
npc_load(Leader, NPCList).
|
||||||
|
|
||||||
%% @doc Game's main loop.
|
|
||||||
%% @todo We probably don't want to send a keepalive packet unnecessarily.
|
|
||||||
loop(SoFar) ->
|
|
||||||
receive
|
|
||||||
{psu_broadcast, Orig} ->
|
|
||||||
<< A:64/bits, _:32, B:96/bits, _:64, C/bits >> = Orig,
|
|
||||||
GID = get(gid),
|
|
||||||
send(<< A/binary, 16#00011300:32, B/binary, 16#00011300:32, GID:32/little-unsigned-integer, C/binary >>),
|
|
||||||
?MODULE:loop(SoFar);
|
|
||||||
{psu_chat, ChatTypeID, ChatGID, ChatName, ChatModifiers, ChatMessage} ->
|
|
||||||
send_0304(ChatTypeID, ChatGID, ChatName, ChatModifiers, ChatMessage),
|
|
||||||
?MODULE:loop(SoFar);
|
|
||||||
{psu_keepalive} ->
|
|
||||||
psu_proto:send_keepalive(get(socket)),
|
|
||||||
?MODULE:loop(SoFar);
|
|
||||||
{psu_player_spawn, _Spawn} ->
|
|
||||||
% Should be something along the lines of 203 201 204 or something.
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{ok, SpawnList} = egs_user_model:select({neighbors, User}),
|
|
||||||
send_0233(SpawnList),
|
|
||||||
?MODULE:loop(SoFar);
|
|
||||||
{psu_player_unspawn, Spawn} ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
send_0204(User, Spawn, 5),
|
|
||||||
?MODULE:loop(SoFar);
|
|
||||||
{psu_warp, QuestID, ZoneID, MapID, EntryID} ->
|
|
||||||
event({area_change, QuestID, ZoneID, MapID, EntryID}),
|
|
||||||
?MODULE:loop(SoFar);
|
|
||||||
{ssl, _, Data} ->
|
|
||||||
{Packets, Rest} = psu_proto:packet_split(<< SoFar/bits, Data/bits >>),
|
|
||||||
[dispatch(Orig) || Orig <- Packets],
|
|
||||||
?MODULE:loop(Rest);
|
|
||||||
{ssl_closed, _} ->
|
|
||||||
ssl_closed; %% exit
|
|
||||||
{ssl_error, _, _} ->
|
|
||||||
ssl_error; %% exit
|
|
||||||
_ ->
|
|
||||||
?MODULE:loop(SoFar)
|
|
||||||
after 1000 ->
|
|
||||||
reload,
|
|
||||||
?MODULE:loop(SoFar)
|
|
||||||
end.
|
|
||||||
|
|
||||||
%% @doc Dispatch the command to the right handler.
|
|
||||||
dispatch(Orig) ->
|
|
||||||
case psu_proto:parse(Orig) of
|
|
||||||
{command, Command, Channel, Data} ->
|
|
||||||
case Channel of
|
|
||||||
1 -> broadcast(Command, Orig);
|
|
||||||
_ -> handle(Command, Data)
|
|
||||||
end;
|
|
||||||
ignore ->
|
|
||||||
ignore;
|
|
||||||
Event ->
|
|
||||||
event(Event)
|
|
||||||
end.
|
|
||||||
|
|
||||||
%% @doc Position change broadcast handler. Save the position and then dispatch it.
|
|
||||||
broadcast(16#0503, Orig) ->
|
|
||||||
<< _:424, Dir:24/little-unsigned-integer, _PrevCoords:96, X:32/little-float, Y:32/little-float, Z:32/little-float,
|
|
||||||
QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, _:32 >> = Orig,
|
|
||||||
FloatDir = Dir / 46603.375,
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
NewUser = User#egs_user_model{pos=#pos{x=X, y=Y, z=Z, dir=FloatDir}, area=#psu_area{questid=QuestID, zoneid=ZoneID, mapid=MapID}, entryid=EntryID},
|
|
||||||
egs_user_model:write(NewUser),
|
|
||||||
broadcast(default, Orig);
|
|
||||||
|
|
||||||
%% @doc Stand still broadcast handler. Save the position and then dispatch it.
|
|
||||||
broadcast(16#0514, Orig) ->
|
|
||||||
<< _:424, Dir:24/little-unsigned-integer, X:32/little-float, Y:32/little-float, Z:32/little-float,
|
|
||||||
QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer,
|
|
||||||
MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, _/bits >> = Orig,
|
|
||||||
FloatDir = Dir / 46603.375,
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
NewUser = User#egs_user_model{pos=#pos{x=X, y=Y, z=Z, dir=FloatDir}, area=#psu_area{questid=QuestID, zoneid=ZoneID, mapid=MapID}, entryid=EntryID},
|
|
||||||
egs_user_model:write(NewUser),
|
|
||||||
broadcast(default, Orig);
|
|
||||||
|
|
||||||
%% @doc Default broadcast handler. Dispatch the command to everyone.
|
|
||||||
%% We clean up the command and use the real GID and LID of the user, disregarding what was sent and possibly tampered with.
|
|
||||||
%% Only a handful of commands are allowed to broadcast. An user tampering with it would get disconnected instantly.
|
|
||||||
%% @todo Don't query the user data everytime! Keep an User instead of a GID probably.
|
|
||||||
broadcast(Command, Orig)
|
|
||||||
when Command =:= 16#0101;
|
|
||||||
Command =:= 16#0102;
|
|
||||||
Command =:= 16#0104;
|
|
||||||
Command =:= 16#0107;
|
|
||||||
Command =:= 16#010f;
|
|
||||||
Command =:= 16#050f;
|
|
||||||
Command =:= default ->
|
|
||||||
<< _:32, A:64/bits, _:64, B:192/bits, _:64, C/bits >> = Orig,
|
|
||||||
GID = get(gid),
|
|
||||||
case egs_user_model:read(GID) of
|
|
||||||
{error, _Reason} ->
|
|
||||||
ignore;
|
|
||||||
{ok, Self} ->
|
|
||||||
LID = Self#egs_user_model.lid,
|
|
||||||
Packet = << A/binary, 16#00011300:32, GID:32/little-unsigned-integer, B/binary,
|
|
||||||
GID:32/little-unsigned-integer, LID:32/little-unsigned-integer, C/binary >>,
|
|
||||||
{ok, SpawnList} = egs_user_model:select({neighbors, Self}),
|
|
||||||
lists:foreach(fun(User) -> User#egs_user_model.pid ! {psu_broadcast, Packet} end, SpawnList)
|
|
||||||
end.
|
|
||||||
|
|
||||||
%% @doc Trigger many events.
|
|
||||||
events(Events) ->
|
|
||||||
[event(Event) || Event <- Events],
|
|
||||||
ok.
|
|
||||||
|
|
||||||
%% @todo When changing lobby to the room, 0230 must also be sent. Same when going from room to lobby.
|
|
||||||
%% @todo Probably move area_load inside the event and make other events call this one when needed.
|
|
||||||
event({area_change, QuestID, ZoneID, MapID, EntryID}) ->
|
|
||||||
event({area_change, QuestID, ZoneID, MapID, EntryID, 16#ffffffff});
|
|
||||||
event({area_change, QuestID, ZoneID, MapID, EntryID, PartyPos}) ->
|
|
||||||
case PartyPos of
|
|
||||||
16#ffffffff ->
|
|
||||||
log("area change (~b,~b,~b,~b,~b)", [QuestID, ZoneID, MapID, EntryID, PartyPos]),
|
|
||||||
area_load(QuestID, ZoneID, MapID, EntryID);
|
|
||||||
_Any -> %% @todo Handle area_change event for NPCs in story missions.
|
|
||||||
ignore
|
|
||||||
end;
|
|
||||||
|
|
||||||
%% @doc Chat broadcast handler. Dispatch the message to everyone (for now).
|
|
||||||
%% Disregard the name sent by the server. Use the name saved in memory instead, to prevent client-side editing.
|
|
||||||
%% @todo Only broadcast to people in the same map.
|
|
||||||
%% @todo In the case of NPC characters, when FromTypeID is 00001d00, check that the NPC is in the party and broadcast only to the party (probably).
|
|
||||||
%% @todo When the game doesn't find an NPC (probably) and forces it to talk like in the tutorial mission it seems FromTypeID, FromGID and Name are all 0.
|
|
||||||
%% @todo Make sure modifiers have correct values.
|
|
||||||
event({chat, _FromTypeID, FromGID, _FromName, Modifiers, ChatMsg}) ->
|
|
||||||
UserGID = get(gid),
|
|
||||||
[BcastTypeID, BcastGID, BcastName] = case FromGID of
|
|
||||||
0 -> %% This probably shouldn't happen. Just make it crash on purpose.
|
|
||||||
log("chat FromGID=0"),
|
|
||||||
ignore;
|
|
||||||
UserGID -> %% player chat: disregard whatever was sent except modifiers and message.
|
|
||||||
{ok, User} = egs_user_model:read(UserGID),
|
|
||||||
[16#00001200, User#egs_user_model.id, (User#egs_user_model.character)#characters.name];
|
|
||||||
NPCGID -> %% npc chat: @todo Check that the player is the party leader and this npc is in his party.
|
|
||||||
{ok, User} = egs_user_model:read(NPCGID),
|
|
||||||
[16#00001d00, FromGID, (User#egs_user_model.character)#characters.name]
|
|
||||||
end,
|
|
||||||
%% log the message as ascii to the console
|
|
||||||
[LogName|_] = re:split(BcastName, "\\0\\0", [{return, binary}]),
|
|
||||||
[TmpMessage|_] = re:split(ChatMsg, "\\0\\0", [{return, binary}]),
|
|
||||||
LogMessage = re:replace(TmpMessage, "\\n", " ", [global, {return, binary}]),
|
|
||||||
log("chat from ~s: ~s", [[re:replace(LogName, "\\0", "", [global, {return, binary}])], [re:replace(LogMessage, "\\0", "", [global, {return, binary}])]]),
|
|
||||||
%% broadcast
|
|
||||||
{ok, List} = egs_user_model:select(all),
|
|
||||||
lists:foreach(fun(X) -> X#egs_user_model.pid ! {psu_chat, BcastTypeID, BcastGID, BcastName, Modifiers, ChatMsg} end, List);
|
|
||||||
|
|
||||||
%% @todo There's at least 9 different sets of locations. Handle all of them correctly.
|
|
||||||
event(counter_background_locations_request) ->
|
|
||||||
send_170c();
|
|
||||||
|
|
||||||
%% @todo Make sure non-mission counters follow the same loading process.
|
|
||||||
%% @todo Probably validate the From* values, to not send the player back inside a mission.
|
|
||||||
event({counter_enter, CounterID, FromZoneID, FromMapID, FromEntryID}) ->
|
|
||||||
log("counter load ~b", [CounterID]),
|
|
||||||
{ok, OldUser} = egs_user_model:read(get(gid)),
|
|
||||||
OldArea = OldUser#egs_user_model.area,
|
|
||||||
FromArea = {psu_area, OldArea#psu_area.questid, FromZoneID, FromMapID},
|
|
||||||
User = OldUser#egs_user_model{areatype=counter, area={psu_area, 16#7fffffff, 0, 0}, entryid=0, prev_area=FromArea, prev_entryid=FromEntryID},
|
|
||||||
egs_user_model:write(User),
|
|
||||||
AreaName = "Counter",
|
|
||||||
QuestFile = "data/lobby/counter.quest.nbl",
|
|
||||||
ZoneFile = "data/lobby/counter.zone.nbl",
|
|
||||||
%% broadcast unspawn to other people
|
|
||||||
{ok, UnspawnList} = egs_user_model:select({neighbors, OldUser}),
|
|
||||||
lists:foreach(fun(Other) -> Other#egs_user_model.pid ! {psu_player_unspawn, User} end, UnspawnList),
|
|
||||||
%% load counter
|
|
||||||
psu_proto:send_0c00(User),
|
|
||||||
psu_proto:send_020e(User, QuestFile),
|
|
||||||
psu_proto:send_0a05(User),
|
|
||||||
psu_proto:send_010d(User, User#egs_user_model{lid=0}),
|
|
||||||
send_0200(mission),
|
|
||||||
send_020f(ZoneFile, 0, 16#ff),
|
|
||||||
psu_proto:send_0205(User, 0),
|
|
||||||
send_100e(16#7fffffff, 0, 0, AreaName, CounterID),
|
|
||||||
psu_proto:send_0215(User, 0),
|
|
||||||
psu_proto:send_0215(User, 0),
|
|
||||||
psu_proto:send_020c(User),
|
|
||||||
send_1202(),
|
|
||||||
send_1204(),
|
|
||||||
send_1206(),
|
|
||||||
send_1207(),
|
|
||||||
send_1212(),
|
|
||||||
psu_proto:send_0201(User, User#egs_user_model{lid=0}),
|
|
||||||
send_0a06(),
|
|
||||||
case User#egs_user_model.partypid of
|
|
||||||
undefined -> ignore;
|
|
||||||
_ -> send_022c(0, 16#12)
|
|
||||||
end,
|
|
||||||
send_0208(),
|
|
||||||
send_0236();
|
|
||||||
|
|
||||||
%% @doc Leave mission counter handler.
|
|
||||||
event(counter_leave) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
PrevArea = User#egs_user_model.prev_area,
|
|
||||||
event({area_change, PrevArea#psu_area.questid, PrevArea#psu_area.zoneid, PrevArea#psu_area.mapid, User#egs_user_model.prev_entryid});
|
|
||||||
|
|
||||||
%% @doc Send the code for the background image to use. But there's more that should be sent though.
|
|
||||||
%% @todo Apparently background values 1 2 3 are never used on official servers. Find out why.
|
|
||||||
event({counter_options_request, CounterID}) ->
|
|
||||||
log("counter options request ~p", [CounterID]),
|
|
||||||
[{quests, _}, {bg, Background}|_Tail] = proplists:get_value(CounterID, ?COUNTERS),
|
|
||||||
send_1711(Background);
|
|
||||||
|
|
||||||
%% @todo Handle when the party already exists! And stop doing it wrong.
|
|
||||||
event(counter_party_info_request) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
send_1706((User#egs_user_model.character)#characters.name);
|
|
||||||
|
|
||||||
%% @todo Item distribution is always set to random for now.
|
|
||||||
event(counter_party_options_request) ->
|
|
||||||
send_170a();
|
|
||||||
|
|
||||||
%% @doc Request the counter's quest files.
|
|
||||||
event({counter_quest_files_request, CounterID}) ->
|
|
||||||
log("counter quest files request ~p", [CounterID]),
|
|
||||||
[{quests, Filename}|_Tail] = proplists:get_value(CounterID, ?COUNTERS),
|
|
||||||
send_0c06(Filename);
|
|
||||||
|
|
||||||
%% @doc Counter available mission list request handler.
|
|
||||||
event({counter_quest_options_request, CounterID}) ->
|
|
||||||
log("counter quest options request ~p", [CounterID]),
|
|
||||||
[{quests, _}, {bg, _}, {options, Options}] = proplists:get_value(CounterID, ?COUNTERS),
|
|
||||||
send_0c10(Options);
|
|
||||||
|
|
||||||
%% @todo A and B are mostly unknown. Like most of everything else from the command 0e00...
|
|
||||||
event({hit, FromTargetID, ToTargetID, A, B}) ->
|
|
||||||
GID = get(gid),
|
|
||||||
{ok, User} = egs_user_model:read(GID),
|
|
||||||
%% hit!
|
|
||||||
#hit_response{type=Type, user=NewUser, exp=HasEXP, damage=Damage, targethp=TargetHP, targetse=TargetSE, events=Events} = psu_instance:hit(User, FromTargetID, ToTargetID),
|
|
||||||
case Type of
|
|
||||||
box ->
|
|
||||||
%% @todo also has a hit sent, we should send it too
|
|
||||||
events(Events);
|
|
||||||
_ ->
|
|
||||||
PlayerHP = (NewUser#egs_user_model.character)#characters.currenthp,
|
|
||||||
case lists:member(death, TargetSE) of
|
|
||||||
true -> SE = 16#01000200;
|
|
||||||
false -> SE = 16#01000000
|
|
||||||
end,
|
|
||||||
send(<< 16#0e070300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64,
|
|
||||||
1:32/little-unsigned-integer, 16#01050000:32, Damage:32/little-unsigned-integer,
|
|
||||||
A/binary, 0:64, PlayerHP:32/little-unsigned-integer, 0:32, SE:32,
|
|
||||||
0:32, TargetHP:32/little-unsigned-integer, 0:32, B/binary,
|
|
||||||
16#04320000:32, 16#80000000:32, 16#26030000:32, 16#89068d00:32, 16#0c1c0105:32, 0:64 >>)
|
|
||||||
% after TargetHP is SE-related too?
|
|
||||||
end,
|
|
||||||
%% exp
|
|
||||||
if HasEXP =:= true ->
|
|
||||||
Character = NewUser#egs_user_model.character,
|
|
||||||
Level = Character#characters.mainlevel,
|
|
||||||
send_0115(GID, ToTargetID, Level#level.number, Level#level.exp, Character#characters.money);
|
|
||||||
true -> ignore
|
|
||||||
end,
|
|
||||||
%% save
|
|
||||||
egs_user_model:write(NewUser);
|
|
||||||
|
|
||||||
event({hits, Hits}) ->
|
|
||||||
[event(Hit) || Hit <- Hits],
|
|
||||||
ok;
|
|
||||||
|
|
||||||
%% @todo Send something other than just "dammy".
|
|
||||||
event({item_description_request, ItemID}) ->
|
|
||||||
case proplists:get_value(ItemID, ?ITEMS) of
|
|
||||||
undefined -> send_0a11(ItemID, "Always bet on Dammy.");
|
|
||||||
#psu_item{description=Desc} -> send_0a11(ItemID, Desc)
|
|
||||||
end;
|
|
||||||
|
|
||||||
%% @todo A and B are unknown.
|
|
||||||
%% Melee uses a format similar to: AAAA--BBCCCC----DDDDDDDDEE----FF with
|
|
||||||
%% AAAA the attack sound effect, BB the range, CCCC and DDDDDDDD unknown but related to angular range or similar, EE number of targets and FF the model.
|
|
||||||
%% Bullets and tech weapons formats are unknown but likely use a slightly different format.
|
|
||||||
%% @todo Others probably want to see that you changed your weapon.
|
|
||||||
%% @todo Apparently B is always ItemID+1. Not sure why.
|
|
||||||
%% @todo Currently use a separate file for the data sent for the weapons.
|
|
||||||
%% @todo TargetGID and TargetLID must be validated, they're either the player's or his NPC characters.
|
|
||||||
%% @todo Handle NPC characters properly.
|
|
||||||
event({item_equip, ItemIndex, TargetGID, TargetLID, A, B}) ->
|
|
||||||
GID = get(gid),
|
|
||||||
{ok, User} = egs_user_model:read(GID),
|
|
||||||
Inventory = (User#egs_user_model.character)#characters.inventory,
|
|
||||||
case lists:nth(ItemIndex + 1, Inventory) of
|
|
||||||
{ItemID, Variables} when element(1, Variables) =:= psu_special_item_variables ->
|
|
||||||
<< Category:8, _:24 >> = << ItemID:32 >>,
|
|
||||||
send(<< 16#01050300:32, 0:64, TargetGID:32/little, 0:64, 16#00011300:32, GID:32/little, 0:64,
|
|
||||||
TargetGID:32/little, TargetLID:32/little, ItemIndex:8, 1:8, Category:8, A:8, B:32/little >>);
|
|
||||||
{ItemID, Variables} when element(1, Variables) =:= psu_striking_weapon_item_variables ->
|
|
||||||
ItemInfo = proplists:get_value(ItemID, ?ITEMS),
|
|
||||||
#psu_item{data=Constants} = ItemInfo,
|
|
||||||
#psu_striking_weapon_item{attack_sound=Sound, hitbox_a=HitboxA, hitbox_b=HitboxB,
|
|
||||||
hitbox_c=HitboxC, hitbox_d=HitboxD, nb_targets=NbTargets, effect=Effect, model=Model} = Constants,
|
|
||||||
<< Category:8, _:24 >> = << ItemID:32 >>,
|
|
||||||
{SoundInt, SoundType} = case Sound of
|
|
||||||
{default, Val} -> {Val, 0};
|
|
||||||
{custom, Val} -> {Val, 8}
|
|
||||||
end,
|
|
||||||
send(<< 16#01050300:32, 0:64, TargetGID:32/little, 0:64, 16#00011300:32, GID:32/little, 0:64,
|
|
||||||
TargetGID:32/little, TargetLID:32/little, ItemIndex:8, 1:8, Category:8, A:8, B:32/little,
|
|
||||||
SoundInt:32/little, HitboxA:16, HitboxB:16, HitboxC:16, HitboxD:16, SoundType:4, NbTargets:4, 0:8, Effect:8, Model:8 >>);
|
|
||||||
undefined ->
|
|
||||||
%% @todo Shouldn't be needed later when NPCs are handled correctly.
|
|
||||||
ignore
|
|
||||||
end;
|
|
||||||
|
|
||||||
%% @todo A and B are unknown.
|
|
||||||
%% @see item_equip
|
|
||||||
event({item_unequip, ItemIndex, TargetGID, TargetLID, A, B}) ->
|
|
||||||
GID = get(gid),
|
|
||||||
Category = case ItemIndex of
|
|
||||||
% units would be 8, traps would be 12
|
|
||||||
19 -> 2; % armor
|
|
||||||
Y when Y =:= 5; Y =:= 6; Y =:= 7 -> 0; % clothes
|
|
||||||
_ -> 1 % weapons
|
|
||||||
end,
|
|
||||||
send(<< 16#01050300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32, GID:32/little-unsigned-integer,
|
|
||||||
0:64, TargetGID:32/little-unsigned-integer, TargetLID:32/little-unsigned-integer, ItemIndex, 2, Category, A, B:32/little-unsigned-integer >>);
|
|
||||||
|
|
||||||
%% @todo Just ignore the meseta price for now and send the player where he wanna be!
|
|
||||||
event(lobby_transport_request) ->
|
|
||||||
send_0c08(true);
|
|
||||||
|
|
||||||
%% @todo Handle all different Lumilass.
|
|
||||||
event(lumilass_options_request) ->
|
|
||||||
send_1a03();
|
|
||||||
|
|
||||||
%% @todo Probably replenish the player HP when entering a non-mission area rather than when aborting the mission?
|
|
||||||
event(mission_abort) ->
|
|
||||||
send_1006(11, 0),
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
%% delete the mission
|
|
||||||
if User#egs_user_model.instancepid =:= undefined -> ignore;
|
|
||||||
true -> psu_instance:stop(User#egs_user_model.instancepid)
|
|
||||||
end,
|
|
||||||
%% full hp
|
|
||||||
Character = User#egs_user_model.character,
|
|
||||||
MaxHP = Character#characters.maxhp,
|
|
||||||
NewCharacter = Character#characters{currenthp=MaxHP},
|
|
||||||
NewUser = User#egs_user_model{character=NewCharacter, setid=0},
|
|
||||||
egs_user_model:write(NewUser),
|
|
||||||
%% map change
|
|
||||||
if User#egs_user_model.areatype =:= mission ->
|
|
||||||
PrevArea = User#egs_user_model.prev_area,
|
|
||||||
event({area_change, PrevArea#psu_area.questid, PrevArea#psu_area.zoneid, PrevArea#psu_area.mapid, User#egs_user_model.prev_entryid});
|
|
||||||
true -> ignore
|
|
||||||
end;
|
|
||||||
|
|
||||||
%% @todo Forward the mission start to other players of the same party, whatever their location is.
|
|
||||||
event({mission_start, QuestID}) ->
|
|
||||||
log("mission start ~b", [QuestID]),
|
|
||||||
send_1020(),
|
|
||||||
send_1015(QuestID),
|
|
||||||
send_0c02();
|
|
||||||
|
|
||||||
%% @doc Force the invite of an NPC character while inside a mission. Mostly used by story missions.
|
|
||||||
%% Note that the NPC is often removed and reinvited between block/cutscenes.
|
|
||||||
event({npc_force_invite, NPCid}) ->
|
|
||||||
GID = get(gid),
|
|
||||||
{ok, User} = egs_user_model:read(GID),
|
|
||||||
%% Create NPC.
|
|
||||||
log("npc force invite ~p", [NPCid]),
|
|
||||||
TmpNPCUser = psu_npc:user_init(NPCid, ((User#egs_user_model.character)#characters.mainlevel)#level.number),
|
|
||||||
%% Create and join party.
|
|
||||||
case User#egs_user_model.partypid of
|
|
||||||
undefined ->
|
|
||||||
{ok, PartyPid} = psu_party:start_link(GID);
|
|
||||||
PartyPid ->
|
|
||||||
ignore
|
|
||||||
end,
|
|
||||||
{ok, PartyPos} = psu_party:join(PartyPid, npc, TmpNPCUser#egs_user_model.id),
|
|
||||||
#egs_user_model{instancepid=InstancePid, area=Area, entryid=EntryID, pos=Pos} = User,
|
|
||||||
NPCUser = TmpNPCUser#egs_user_model{lid=PartyPos, partypid=PartyPid, instancepid=InstancePid, areatype=mission, area=Area, entryid=EntryID, pos=Pos},
|
|
||||||
egs_user_model:write(NPCUser),
|
|
||||||
egs_user_model:write(User#egs_user_model{partypid=PartyPid}),
|
|
||||||
%% Send stuff.
|
|
||||||
Character = NPCUser#egs_user_model.character,
|
|
||||||
SentNPCCharacter = Character#characters{gid=NPCid, npcid=NPCid},
|
|
||||||
SentNPCUser = NPCUser#egs_user_model{character=SentNPCCharacter},
|
|
||||||
psu_proto:send_010d(User, SentNPCUser),
|
|
||||||
psu_proto:send_0201(User, SentNPCUser),
|
|
||||||
psu_proto:send_0215(User, 0),
|
|
||||||
send_0a04(SentNPCUser#egs_user_model.id),
|
|
||||||
send_022c(0, 16#12),
|
|
||||||
send_1004(npc_mission, SentNPCUser, PartyPos),
|
|
||||||
send_100f((SentNPCUser#egs_user_model.character)#characters.npcid, PartyPos),
|
|
||||||
send_1601(PartyPos);
|
|
||||||
|
|
||||||
%% @todo Also at the end send a 101a (NPC:16, PartyPos:16, ffffffff). Not sure about PartyPos.
|
|
||||||
event({npc_invite, NPCid}) ->
|
|
||||||
GID = get(gid),
|
|
||||||
{ok, User} = egs_user_model:read(GID),
|
|
||||||
%% Create NPC.
|
|
||||||
log("invited npcid ~b", [NPCid]),
|
|
||||||
TmpNPCUser = psu_npc:user_init(NPCid, ((User#egs_user_model.character)#characters.mainlevel)#level.number),
|
|
||||||
%% Create and join party.
|
|
||||||
case User#egs_user_model.partypid of
|
|
||||||
undefined ->
|
|
||||||
{ok, PartyPid} = psu_party:start_link(GID),
|
|
||||||
send_022c(0, 16#12);
|
|
||||||
PartyPid ->
|
|
||||||
ignore
|
|
||||||
end,
|
|
||||||
{ok, PartyPos} = psu_party:join(PartyPid, npc, TmpNPCUser#egs_user_model.id),
|
|
||||||
NPCUser = TmpNPCUser#egs_user_model{lid=PartyPos, partypid=PartyPid},
|
|
||||||
egs_user_model:write(NPCUser),
|
|
||||||
egs_user_model:write(User#egs_user_model{partypid=PartyPid}),
|
|
||||||
%% Send stuff.
|
|
||||||
Character = NPCUser#egs_user_model.character,
|
|
||||||
SentNPCCharacter = Character#characters{gid=NPCid, npcid=NPCid},
|
|
||||||
SentNPCUser = NPCUser#egs_user_model{character=SentNPCCharacter},
|
|
||||||
send_1004(npc_invite, SentNPCUser, PartyPos),
|
|
||||||
send_101a(NPCid, PartyPos);
|
|
||||||
|
|
||||||
%% @todo Should be 0115(money) 010a03(confirm sale).
|
|
||||||
%% @todo We probably need to save the ShopID somewhere since it isn't given back here.
|
|
||||||
event({npc_shop_buy, ShopItemIndex, Quantity}) ->
|
|
||||||
log("npc shop buy itemindex ~p quantity ~p", [ShopItemIndex, Quantity]);
|
|
||||||
|
|
||||||
%% @todo Currently send the normal items shop for all shops, differentiate.
|
|
||||||
event({npc_shop_enter, ShopID}) ->
|
|
||||||
log("npc shop enter ~p", [ShopID]),
|
|
||||||
case proplists:get_value(ShopID, ?SHOPS) of
|
|
||||||
undefined -> %% @todo Temporary; prevent players from getting stuck.
|
|
||||||
GID = get(gid),
|
|
||||||
{ok, File} = file:read_file("p/itemshop.bin"),
|
|
||||||
send(<< 16#010a0300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32,
|
|
||||||
GID:32/little-unsigned-integer, 0:64, GID:32/little-unsigned-integer, 0:32, File/binary >>);
|
|
||||||
ItemsList ->
|
|
||||||
send_010a(ItemsList)
|
|
||||||
end;
|
|
||||||
|
|
||||||
event({npc_shop_leave, ShopID}) ->
|
|
||||||
log("npc shop leave ~p", [ShopID]),
|
|
||||||
GID = get(gid),
|
|
||||||
send(<< 16#010a0300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32,
|
|
||||||
GID:32/little-unsigned-integer, 0:64, GID:32/little-unsigned-integer, 0:32 >>);
|
|
||||||
|
|
||||||
%% @todo Should be 0115(money) 010a03(confirm sale).
|
|
||||||
event({npc_shop_sell, InventoryItemIndex, Quantity}) ->
|
|
||||||
log("npc shop sell itemindex ~p quantity ~p", [InventoryItemIndex, Quantity]);
|
|
||||||
|
|
||||||
%% @todo First 1a02 value should be non-0.
|
|
||||||
%% @todo Could the 2nd 1a02 parameter simply be the shop type or something?
|
|
||||||
%% @todo Although the values replied should be right, they seem mostly ignored by the client.
|
|
||||||
event({npc_shop_request, ShopID}) ->
|
|
||||||
log("npc shop request ~p", [ShopID]),
|
|
||||||
case ShopID of
|
|
||||||
80 -> send_1a02(0, 17, 17, 3, 9); %% lumilass
|
|
||||||
90 -> send_1a02(0, 5, 1, 4, 5); %% parum weapon grinding
|
|
||||||
91 -> send_1a02(0, 5, 5, 4, 7); %% tenora weapon grinding
|
|
||||||
92 -> send_1a02(0, 5, 0, 4, 0); %% yohmei weapon grinding
|
|
||||||
93 -> send_1a02(0, 5, 18, 4, 0); %% kubara weapon grinding
|
|
||||||
_ -> send_1a02(0, 0, 1, 0, 0)
|
|
||||||
end;
|
|
||||||
|
|
||||||
%% @todo Not sure what are those hardcoded values.
|
|
||||||
event({object_boss_gate_activate, ObjectID}) ->
|
|
||||||
send_1213(ObjectID, 0),
|
|
||||||
send_1215(2, 16#7008),
|
|
||||||
%% @todo Following sent after the warp?
|
|
||||||
send_1213(37, 0),
|
|
||||||
%% @todo Why resend this?
|
|
||||||
send_1213(ObjectID, 0);
|
|
||||||
|
|
||||||
event({object_boss_gate_enter, ObjectID}) ->
|
|
||||||
send_1213(ObjectID, 1);
|
|
||||||
|
|
||||||
%% @todo Do we need to send something back here?
|
|
||||||
event({object_boss_gate_leave, _ObjectID}) ->
|
|
||||||
ignore;
|
|
||||||
|
|
||||||
%% @doc Server-side event.
|
|
||||||
event({object_box_destroy, ObjectID}) ->
|
|
||||||
send_1213(ObjectID, 3);
|
|
||||||
|
|
||||||
%% @todo Second send_1211 argument should be User#egs_user_model.lid. Fix when it's correctly handled.
|
|
||||||
event({object_chair_sit, ObjectTargetID}) ->
|
|
||||||
%~ {ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
send_1211(ObjectTargetID, 0, 8, 0);
|
|
||||||
|
|
||||||
%% @todo Second send_1211 argument should be User#egs_user_model.lid. Fix when it's correctly handled.
|
|
||||||
event({object_chair_stand, ObjectTargetID}) ->
|
|
||||||
%~ {ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
send_1211(ObjectTargetID, 0, 8, 2);
|
|
||||||
|
|
||||||
event({object_crystal_activate, ObjectID}) ->
|
|
||||||
send_1213(ObjectID, 1);
|
|
||||||
|
|
||||||
%% @doc Server-side event.
|
|
||||||
event({object_event_trigger, BlockID, EventID}) ->
|
|
||||||
send_1205(EventID, BlockID, 0);
|
|
||||||
|
|
||||||
event({object_goggle_target_activate, ObjectID}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, EventID} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
|
||||||
send_1205(EventID, BlockID, 0),
|
|
||||||
send_1213(ObjectID, 8);
|
|
||||||
|
|
||||||
event({object_key_console_enable, ObjectID}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, [EventID|_]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
|
||||||
send_1205(EventID, BlockID, 0),
|
|
||||||
send_1213(ObjectID, 1);
|
|
||||||
|
|
||||||
event({object_key_console_init, ObjectID}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, [_, EventID, _]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
|
||||||
send_1205(EventID, BlockID, 0);
|
|
||||||
|
|
||||||
event({object_key_console_open_gate, ObjectID}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, [_, _, EventID]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
|
||||||
send_1205(EventID, BlockID, 0),
|
|
||||||
send_1213(ObjectID, 1);
|
|
||||||
|
|
||||||
%% @todo Now that it's separate from object_key_console_enable, handle it better than that, don't need a list of events.
|
|
||||||
event({object_key_enable, ObjectID}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, [EventID|_]} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
|
||||||
send_1205(EventID, BlockID, 0),
|
|
||||||
send_1213(ObjectID, 1);
|
|
||||||
|
|
||||||
%% @todo Some switch objects apparently work differently, like the light switch in Mines in MAG'.
|
|
||||||
event({object_switch_off, ObjectID}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, EventID} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
|
||||||
send_1205(EventID, BlockID, 1),
|
|
||||||
send_1213(ObjectID, 0);
|
|
||||||
|
|
||||||
event({object_switch_on, ObjectID}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, EventID} = psu_instance:std_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, ObjectID),
|
|
||||||
send_1205(EventID, BlockID, 0),
|
|
||||||
send_1213(ObjectID, 1);
|
|
||||||
|
|
||||||
event({object_vehicle_boost_enable, ObjectID}) ->
|
|
||||||
send_1213(ObjectID, 1);
|
|
||||||
|
|
||||||
event({object_vehicle_boost_respawn, ObjectID}) ->
|
|
||||||
send_1213(ObjectID, 0);
|
|
||||||
|
|
||||||
%% @todo Second send_1211 argument should be User#egs_user_model.lid. Fix when it's correctly handled.
|
|
||||||
event({object_warp_take, BlockID, ListNb, ObjectNb}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
Pos = psu_instance:warp_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, BlockID, ListNb, ObjectNb),
|
|
||||||
NewUser = User#egs_user_model{pos=Pos},
|
|
||||||
egs_user_model:write(NewUser),
|
|
||||||
send_0503(User#egs_user_model.pos),
|
|
||||||
send_1211(16#ffffffff, 0, 14, 0);
|
|
||||||
|
|
||||||
event({party_remove_member, PartyPos}) ->
|
|
||||||
log("party remove member ~b", [PartyPos]),
|
|
||||||
{ok, DestUser} = egs_user_model:read(get(gid)),
|
|
||||||
{ok, RemovedGID} = psu_party:get_member(DestUser#egs_user_model.partypid, PartyPos),
|
|
||||||
psu_party:remove_member(DestUser#egs_user_model.partypid, PartyPos),
|
|
||||||
{ok, RemovedUser} = egs_user_model:read(RemovedGID),
|
|
||||||
case (RemovedUser#egs_user_model.character)#characters.type of
|
|
||||||
npc -> egs_user_model:delete(RemovedGID);
|
|
||||||
_ -> ignore
|
|
||||||
end,
|
|
||||||
send_1006(8, PartyPos),
|
|
||||||
send_0204(DestUser, RemovedUser, 1),
|
|
||||||
psu_proto:send_0215(DestUser, 0);
|
|
||||||
|
|
||||||
event({player_options_change, Options}) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
file:write_file(io_lib:format("save/~s/~b-character.options", [User#egs_user_model.folder, (User#egs_user_model.character)#characters.slot]), Options);
|
|
||||||
|
|
||||||
%% @todo If the player has a scape, use it! Otherwise red screen.
|
|
||||||
%% @todo Right now we force revive and don't update the player's HP.
|
|
||||||
event(player_death) ->
|
|
||||||
% @todo send_0115(get(gid), 16#ffffffff, LV=1, EXP=idk, Money=1000), % apparently sent everytime you die...
|
|
||||||
%% use scape:
|
|
||||||
NewHP = 10,
|
|
||||||
send_0117(NewHP),
|
|
||||||
send_1022(NewHP);
|
|
||||||
%% red screen with return to lobby choice:
|
|
||||||
%~ send_0111(3, 1);
|
|
||||||
|
|
||||||
%% @todo Refill the player's HP to maximum, remove SEs etc.
|
|
||||||
event(player_death_return_to_lobby) ->
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
PrevArea = User#egs_user_model.prev_area,
|
|
||||||
event({area_change, PrevArea#psu_area.questid, PrevArea#psu_area.zoneid, PrevArea#psu_area.mapid, User#egs_user_model.prev_entryid});
|
|
||||||
|
|
||||||
event(player_type_availability_request) ->
|
|
||||||
send_1a07();
|
|
||||||
|
|
||||||
event(player_type_capabilities_request) ->
|
|
||||||
send_0113();
|
|
||||||
|
|
||||||
event(ppcube_request) ->
|
|
||||||
send_1a04();
|
|
||||||
|
|
||||||
%% @doc Uni cube handler.
|
|
||||||
event(unicube_request) ->
|
|
||||||
send_021e();
|
|
||||||
|
|
||||||
%% @doc Uni selection handler.
|
|
||||||
%% @todo When selecting 'Your room', load a default room.
|
|
||||||
%% @todo When selecting 'Reload', reload the character in the current lobby.
|
|
||||||
%% @todo Delete NPC characters and stop the party on entering myroom too.
|
|
||||||
event({unicube_select, Selection, EntryID}) ->
|
|
||||||
case Selection of
|
|
||||||
cancel -> ignore;
|
|
||||||
16#ffffffff ->
|
|
||||||
log("uni selection (my room)"),
|
|
||||||
send_0230(),
|
|
||||||
% 0220
|
|
||||||
event({area_change, 1120000, 0, 100, 0});
|
|
||||||
_UniID ->
|
|
||||||
log("uni selection (reload)"),
|
|
||||||
send_0230(),
|
|
||||||
% 0220
|
|
||||||
%% force reloading the character and data files (@todo hack, uses myroom questid to do it)
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
case User#egs_user_model.partypid of
|
|
||||||
undefined ->
|
|
||||||
ignore;
|
|
||||||
PartyPid ->
|
|
||||||
%% @todo Replace stop by leave when leaving stops the party correctly when nobody's there anymore.
|
|
||||||
%~ psu_party:leave(User#egs_user_model.partypid, User#egs_user_model.id)
|
|
||||||
{ok, NPCList} = psu_party:get_npc(PartyPid),
|
|
||||||
[egs_user_model:delete(NPCGID) || {_Spot, NPCGID} <- NPCList],
|
|
||||||
psu_party:stop(PartyPid)
|
|
||||||
end,
|
|
||||||
Area = User#egs_user_model.area,
|
|
||||||
NewRow = User#egs_user_model{partypid=undefined, area=Area#psu_area{questid=1120000, zoneid=undefined}, entryid=EntryID},
|
|
||||||
egs_user_model:write(NewRow),
|
|
||||||
event({area_change, Area#psu_area.questid, Area#psu_area.zoneid, Area#psu_area.mapid, EntryID})
|
|
||||||
end.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
%% @todo Handle this packet properly.
|
|
||||||
%% @todo Spawn cleared response event shouldn't be handled following this packet but when we see the spawn actually dead HP-wise.
|
|
||||||
%% @todo Type shouldn't be :32 but it seems when the later 16 have something it's not a spawn event.
|
|
||||||
handle(16#0402, Data) ->
|
|
||||||
<< SpawnID:32/little-unsigned-integer, _:64, Type:32/little-unsigned-integer, _:64 >> = Data,
|
|
||||||
case Type of
|
|
||||||
7 -> % spawn cleared @todo 1201 sent back with same values apparently, but not always
|
|
||||||
log("cleared spawn ~b", [SpawnID]),
|
|
||||||
{ok, User} = egs_user_model:read(get(gid)),
|
|
||||||
{BlockID, EventID} = psu_instance:spawn_cleared_event(User#egs_user_model.instancepid, (User#egs_user_model.area)#psu_area.zoneid, SpawnID),
|
|
||||||
if EventID =:= false -> ignore;
|
|
||||||
true -> send_1205(EventID, BlockID, 0)
|
|
||||||
end;
|
|
||||||
_ ->
|
|
||||||
ignore
|
|
||||||
end;
|
|
||||||
|
|
||||||
%% @todo Handle this packet.
|
|
||||||
%% @todo 3rd Unsafe Passage C, EventID 10 BlockID 2 = mission cleared?
|
|
||||||
handle(16#0404, Data) ->
|
|
||||||
<< EventID:8, BlockID:8, _:16, Value:8, _/bits >> = Data,
|
|
||||||
log("unknown command 0404: eventid ~b blockid ~b value ~b", [EventID, BlockID, Value]),
|
|
||||||
send_1205(EventID, BlockID, Value);
|
|
||||||
|
|
||||||
%% @todo Used in the tutorial. Not sure what it does. Give an item (the PA) maybe?
|
|
||||||
handle(16#0a09, Data) ->
|
|
||||||
log("0a09 ~p", [Data]),
|
|
||||||
GID = get(gid),
|
|
||||||
send(<< 16#0a090300:32, 0:32, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, 16#00003300:32, 0:32 >>);
|
|
||||||
|
|
||||||
%% @todo Figure out this command.
|
|
||||||
handle(16#0c11, << A:32/little, B:32/little >>) ->
|
|
||||||
log("0c11 ~p ~p", [A, B]),
|
|
||||||
GID = get(gid),
|
|
||||||
send(<< 16#0c120300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, A:32/little, 1:32/little >>);
|
|
||||||
|
|
||||||
%% @doc Set flag handler. Associate a new flag with the character.
|
|
||||||
%% Just reply with a success value for now.
|
|
||||||
%% @todo God save the flags.
|
|
||||||
handle(16#0d04, Data) ->
|
|
||||||
<< Flag:128/bits, A:16/bits, _:8, B/bits >> = Data,
|
|
||||||
log("flag handler for ~s", [re:replace(Flag, "\\0+", "", [global, {return, binary}])]),
|
|
||||||
GID = get(gid),
|
|
||||||
send(<< 16#0d040300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, Flag/binary, A/binary, 1, B/binary >>);
|
|
||||||
|
|
||||||
%% @doc Initialize a vehicle object.
|
|
||||||
%% @todo Find what are the many values, including the odd Whut value (and whether it's used in the reply).
|
|
||||||
%% @todo Separate the reply.
|
|
||||||
handle(16#0f00, Data) ->
|
|
||||||
<< A:32/little-unsigned-integer, 0:16, B:16/little-unsigned-integer, 0:16, C:16/little-unsigned-integer, 0, Whut:8, D:16/little-unsigned-integer, 0:16,
|
|
||||||
E:16/little-unsigned-integer, 0:16, F:16/little-unsigned-integer, G:16/little-unsigned-integer, H:16/little-unsigned-integer, I:32/little-unsigned-integer >> = Data,
|
|
||||||
log("init vehicle: ~b ~b ~b ~b ~b ~b ~b ~b ~b ~b", [A, B, C, Whut, D, E, F, G, H, I]),
|
|
||||||
send(<< (header(16#1208))/binary, A:32/little-unsigned-integer, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32,
|
|
||||||
0:16, B:16/little-unsigned-integer, 0:16, C:16/little-unsigned-integer, 0:16, D:16/little-unsigned-integer, 0:112,
|
|
||||||
E:16/little-unsigned-integer, 0:16, F:16/little-unsigned-integer, H:16/little-unsigned-integer, 1, 0, 100, 0, 10, 0, G:16/little-unsigned-integer, 0:16 >>);
|
|
||||||
|
|
||||||
%% @doc Enter vehicle.
|
|
||||||
%% @todo Separate the reply.
|
|
||||||
handle(16#0f02, Data) ->
|
|
||||||
<< A:32/little-unsigned-integer, B:32/little-unsigned-integer, C:32/little-unsigned-integer >> = Data,
|
|
||||||
log("enter vehicle: ~b ~b ~b", [A, B, C]),
|
|
||||||
HP = 100,
|
|
||||||
send(<< (header(16#120a))/binary, A:32/little-unsigned-integer, B:32/little-unsigned-integer, C:32/little-unsigned-integer, HP:32/little-unsigned-integer >>);
|
|
||||||
|
|
||||||
%% @doc Sent right after entering the vehicle. Can't move without it.
|
|
||||||
%% @todo Separate the reply.
|
|
||||||
handle(16#0f07, Data) ->
|
|
||||||
<< A:32/little-unsigned-integer, B:32/little-unsigned-integer >> = Data,
|
|
||||||
log("after enter vehicle: ~b ~b", [A, B]),
|
|
||||||
send(<< (header(16#120f))/binary, A:32/little-unsigned-integer, B:32/little-unsigned-integer >>);
|
|
||||||
|
|
||||||
%% @todo Not sure yet.
|
|
||||||
handle(16#1019, _) ->
|
|
||||||
ignore;
|
|
||||||
%~ send(<< (header(16#1019))/binary, 0:192, 16#00200000:32, 0:32 >>);
|
|
||||||
|
|
||||||
%% @todo Not sure about that one though. Probably related to 1112 still.
|
|
||||||
handle(16#1106, Data) ->
|
|
||||||
send_110e(Data);
|
|
||||||
|
|
||||||
%% @doc Probably asking permission to start the video (used for syncing?).
|
|
||||||
handle(16#1112, Data) ->
|
|
||||||
send_1113(Data);
|
|
||||||
|
|
||||||
%% @todo Not sure yet. Value is probably a TargetID. Used in Airboard Rally. Replying with the same value starts the race.
|
|
||||||
handle(16#1216, Data) ->
|
|
||||||
<< Value:32/little-unsigned-integer >> = Data,
|
|
||||||
log("command 1216 with value ~b", [Value]),
|
|
||||||
send_1216(Value);
|
|
||||||
|
|
||||||
%% @doc Unknown command handler. Do nothing.
|
|
||||||
handle(Command, _) ->
|
|
||||||
log("dismissed packet ~4.16.0b", [Command]).
|
|
||||||
|
|
||||||
%% @doc Build the packet header.
|
%% @doc Build the packet header.
|
||||||
header(Command) ->
|
header(Command) ->
|
||||||
GID = get(gid),
|
GID = get(gid),
|
||||||
@ -1759,11 +869,3 @@ send_1a04() ->
|
|||||||
send_1a07() ->
|
send_1a07() ->
|
||||||
send(<< (header(16#1a07))/binary, 16#085b5d0a:32, 16#3a200000:32, 0:32,
|
send(<< (header(16#1a07))/binary, 16#085b5d0a:32, 16#3a200000:32, 0:32,
|
||||||
16#01010101:32, 16#01010101:32, 16#01010101:32, 16#01010101:32 >>).
|
16#01010101:32, 16#01010101:32, 16#01010101:32, 16#01010101:32 >>).
|
||||||
|
|
||||||
%% @doc Log message to the console.
|
|
||||||
log(Message) ->
|
|
||||||
io:format("game (~p): ~s~n", [get(gid), Message]).
|
|
||||||
|
|
||||||
log(Message, Format) ->
|
|
||||||
FormattedMessage = io_lib:format(Message, Format),
|
|
||||||
log(FormattedMessage).
|
|
||||||
|
|||||||
@ -241,7 +241,6 @@ parse(Size, 16#020d, Channel, Data) ->
|
|||||||
?ASSERT_EQ(VarK, 0),
|
?ASSERT_EQ(VarK, 0),
|
||||||
{system_key_auth_request, AuthGID, AuthKey};
|
{system_key_auth_request, AuthGID, AuthKey};
|
||||||
|
|
||||||
%% @doc This command should be safely ignored. Probably indicates that character loading was successful.
|
|
||||||
parse(Size, 16#021c, Channel, Data) ->
|
parse(Size, 16#021c, Channel, Data) ->
|
||||||
<< _LID:16/little, VarA:16/little, VarB:32/little, VarC:32/little, VarD:32/little, VarE:32/little, VarF:32/little, VarG:32/little, VarH:32/little, VarI:32/little >> = Data,
|
<< _LID:16/little, VarA:16/little, VarB:32/little, VarC:32/little, VarD:32/little, VarE:32/little, VarF:32/little, VarG:32/little, VarH:32/little, VarI:32/little >> = Data,
|
||||||
?ASSERT_EQ(Size, 44),
|
?ASSERT_EQ(Size, 44),
|
||||||
@ -255,7 +254,7 @@ parse(Size, 16#021c, Channel, Data) ->
|
|||||||
?ASSERT_EQ(VarG, 0),
|
?ASSERT_EQ(VarG, 0),
|
||||||
?ASSERT_EQ(VarH, 0),
|
?ASSERT_EQ(VarH, 0),
|
||||||
?ASSERT_EQ(VarI, 0),
|
?ASSERT_EQ(VarI, 0),
|
||||||
ignore;
|
char_load_complete;
|
||||||
|
|
||||||
parse(Size, 16#021d, Channel, Data) ->
|
parse(Size, 16#021d, Channel, Data) ->
|
||||||
<< _LID:16/little, VarB:16/little, VarC:32/little, VarD:32/little, VarE:32/little, VarF:32/little,
|
<< _LID:16/little, VarB:16/little, VarC:32/little, VarD:32/little, VarE:32/little, VarF:32/little,
|
||||||
@ -1078,11 +1077,9 @@ parse(Size, 16#1a01, Channel, Data) ->
|
|||||||
_ -> log("unknown 1a01 EventID ~p", [EventID])
|
_ -> log("unknown 1a01 EventID ~p", [EventID])
|
||||||
end;
|
end;
|
||||||
|
|
||||||
parse(_Size, Command, Channel, Data) ->
|
%% @doc Unknown command,
|
||||||
%% @todo log unknown command?
|
parse(_Size, Command, Channel, _Data) ->
|
||||||
%~ ignore.
|
{command, Command, Channel}.
|
||||||
<< _:288, Rest/bits >> = Data,
|
|
||||||
{command, Command, Channel, Rest}.
|
|
||||||
|
|
||||||
%% @todo Many unknown vars in the hit values.
|
%% @todo Many unknown vars in the hit values.
|
||||||
parse_hits(<< >>, Acc) ->
|
parse_hits(<< >>, Acc) ->
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user