game: Initial support for character stats and other information.
This commit is contained in:
Loïc Hoguin
parent
94ccf04986
commit
1ea1009a37
@ -22,7 +22,7 @@
|
||||
|
||||
%% @doc Table containing the users currently logged in.
|
||||
|
||||
-record(users, {gid, pid, socket, auth, time, folder, charnumber, charname, lid, instanceid, areatype, questid, zoneid, mapid, entryid, savedquestid, savedzoneid, savedmapid, savedentryid, direction, coords}).
|
||||
-record(users, {gid, pid, socket, auth, time, folder, character, lid, instanceid, areatype, questid, zoneid, mapid, entryid, savedquestid, savedzoneid, savedmapid, savedentryid, direction, coords}).
|
||||
|
||||
%% @doc Character main or class level data structure.
|
||||
|
||||
@ -30,7 +30,7 @@
|
||||
|
||||
%% @doc Character stats data structure.
|
||||
|
||||
-record(stats, {hp, atp, ata, tp, dfp, evp, mst, sta}).
|
||||
-record(stats, {atp, ata, tp, dfp, evp, mst, sta}).
|
||||
|
||||
%% @doc Character appearance data structure, flesh version.
|
||||
|
||||
@ -58,4 +58,25 @@
|
||||
%% @doc Characters data structure.
|
||||
%% @todo Make a disk table for storing characters permanently. Also keep the current character in #users.
|
||||
|
||||
-record(characters, {gid, type, slot, name, race, gender, class, mainlevel, classlevels, stats, se, money, blastbar, luck, playtime, appearance, onlinestatus, options}). % also: shortcuts partnercards blacklist npcs flags items...
|
||||
-record(characters, {
|
||||
gid,
|
||||
type=white,
|
||||
slot,
|
||||
name,
|
||||
race,
|
||||
gender,
|
||||
class,
|
||||
mainlevel={level, 1, 0},
|
||||
classlevels,
|
||||
currenthp=100,
|
||||
maxhp=100,
|
||||
stats={stats, 1000, 2000, 3000, 4000, 5000, 6000, 7000},
|
||||
se=[],
|
||||
money=1000,
|
||||
blastbar=0,
|
||||
luck=3,
|
||||
playtime=0,
|
||||
appearance,
|
||||
onlinestatus=0,
|
||||
options={options, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0}
|
||||
}). % also: shortcuts partnercards blacklist npcs flags items...
|
||||
|
||||
BIN
p/packet0201.bin
BIN
p/packet0201.bin
Binary file not shown.
BIN
p/player.bin
BIN
p/player.bin
Binary file not shown.
@ -69,14 +69,14 @@ users_select_by_pid(Pid) ->
|
||||
%% @doc Select all users. Return a list of #users records.
|
||||
|
||||
users_select_all() ->
|
||||
do(qlc:q([X || X <- mnesia:table(users), X#users.charnumber /= undefined])).
|
||||
do(qlc:q([X || X <- mnesia:table(users), (X#users.character)#characters.slot /= undefined])).
|
||||
|
||||
%% @doc Select all other users in the same area. Return a list of #users records.
|
||||
|
||||
users_select_others_in_area(Self) ->
|
||||
do(qlc:q([X || X <- mnesia:table(users),
|
||||
X#users.gid /= Self#users.gid,
|
||||
X#users.charnumber /= undefined,
|
||||
(X#users.character)#characters.slot /= undefined,
|
||||
X#users.instanceid =:= Self#users.instanceid,
|
||||
X#users.questid =:= Self#users.questid,
|
||||
X#users.zoneid =:= Self#users.zoneid,
|
||||
|
||||
101
src/egs_game.erl
101
src/egs_game.erl
@ -202,12 +202,19 @@ char_select_handle(Command, _) ->
|
||||
%% @doc Load the selected character in the start lobby and start the main game's loop.
|
||||
|
||||
char_select_load(Number) ->
|
||||
User = egs_db:users_select(get(gid)),
|
||||
[{status, 1}, {char, Char}, {options, Options}] = data_load(User#users.folder, Number),
|
||||
<< Name:512/bits, _/bits >> = Char,
|
||||
NewRow = User#users{charnumber=Number, charname=Name},
|
||||
egs_db:users_insert(NewRow),
|
||||
char_load(Char, Options, Number),
|
||||
OldUser = egs_db:users_select(get(gid)),
|
||||
[{status, 1}, {char, CharBin}, {options, OptionsBin}] = data_load(OldUser#users.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
|
||||
User = OldUser#users{character=Character},
|
||||
egs_db:users_insert(User),
|
||||
char_load(User),
|
||||
send_021b(),
|
||||
area_load(1100000, 0, 1, 1),
|
||||
ssl:setopts(get(socket), [{active, true}]),
|
||||
@ -227,16 +234,16 @@ data_load(Folder, Number) ->
|
||||
|
||||
%% @doc Load and send the character information to the client.
|
||||
|
||||
char_load(Char, Options, Number) ->
|
||||
send_0d01(Char, Options),
|
||||
char_load(User) ->
|
||||
send_0d01(User),
|
||||
% 0246
|
||||
send_0a0a(),
|
||||
send_1006(5),
|
||||
send_1005(Char),
|
||||
send_1005((User#users.character)#characters.name),
|
||||
send_1006(12),
|
||||
% 0210
|
||||
send_0222(),
|
||||
send_1500(Char, Number),
|
||||
send_1500(User),
|
||||
send_1501(),
|
||||
send_1512(),
|
||||
% 0303
|
||||
@ -249,7 +256,6 @@ counter_load(QuestID, ZoneID, MapID, EntryID) ->
|
||||
User = OldUser#users{areatype=counter, questid=QuestID, zoneid=ZoneID, mapid=MapID, entryid=EntryID,
|
||||
savedquestid=OldUser#users.questid, savedzoneid=OldUser#users.zoneid, savedmapid=ZoneID, savedentryid=MapID},
|
||||
egs_db:users_insert(User),
|
||||
[{status, 1}, {char, Char}, {options, _}] = data_load(User#users.folder, User#users.charnumber),
|
||||
AreaName = "Mission counter",
|
||||
QuestFile = "data/lobby/counter.quest.nbl",
|
||||
ZoneFile = "data/lobby/counter.zone.nbl",
|
||||
@ -272,7 +278,7 @@ counter_load(QuestID, ZoneID, MapID, EntryID) ->
|
||||
send_1206(),
|
||||
send_1207(),
|
||||
send_1212(),
|
||||
send_0201(User, Char),
|
||||
send_0201(User),
|
||||
send_0a06(),
|
||||
send_0208(),
|
||||
send_0236().
|
||||
@ -348,7 +354,6 @@ area_load(QuestID, ZoneID, MapID, EntryID) ->
|
||||
area_load(AreaType, IsStart, OldUser, User, QuestFile, ZoneFile, AreaName).
|
||||
|
||||
area_load(AreaType, IsStart, OldUser, User, QuestFile, ZoneFile, AreaName) ->
|
||||
[{status, 1}, {char, Char}, {options, Options}] = data_load(User#users.folder, User#users.charnumber),
|
||||
QuestChange = if OldUser#users.questid /= User#users.questid, QuestFile /= undefined -> true; true -> false end,
|
||||
if ZoneFile =:= undefined ->
|
||||
ZoneChange = false;
|
||||
@ -366,7 +371,7 @@ area_load(AreaType, IsStart, OldUser, User, QuestFile, ZoneFile, AreaName) ->
|
||||
if QuestChange =:= true ->
|
||||
% reload the character if entering or leaving the room quest
|
||||
if OldUser#users.questid =:= 1120000; User#users.questid =:= 1120000 ->
|
||||
char_load(Char, Options, User#users.charnumber);
|
||||
char_load(User);
|
||||
true -> ignore
|
||||
end,
|
||||
% load new quest
|
||||
@ -426,7 +431,7 @@ area_load(AreaType, IsStart, OldUser, User, QuestFile, ZoneFile, AreaName) ->
|
||||
myroom_send_packet("p/packet1309.bin");
|
||||
true -> ignore
|
||||
end,
|
||||
send_0201(User, Char),
|
||||
send_0201(User),
|
||||
if ZoneChange =:= true ->
|
||||
send_0a06();
|
||||
true -> ignore
|
||||
@ -672,11 +677,11 @@ handle(16#0304, Data) ->
|
||||
_ -> % Above
|
||||
<< _:64, Modifiers:128/bits, _:512, Message/bits >> = Data
|
||||
end,
|
||||
[LogName|_] = re:split(User#users.charname, "\\0\\0", [{return, binary}]),
|
||||
[LogName|_] = re:split((User#users.character)#characters.name, "\\0\\0", [{return, binary}]),
|
||||
[TmpMessage|_] = re:split(Message, "\\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}])]]),
|
||||
lists:foreach(fun(X) -> X#users.pid ! {psu_chat, get(gid), User#users.charname, Modifiers, Message} end, egs_db:users_select_all());
|
||||
lists:foreach(fun(X) -> X#users.pid ! {psu_chat, get(gid), (User#users.character)#characters.name, Modifiers, Message} end, egs_db:users_select_all());
|
||||
|
||||
%% @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.
|
||||
@ -794,7 +799,7 @@ handle(16#0d07, Data) ->
|
||||
psu_characters:validate_options(Options),
|
||||
% End of validation
|
||||
User = egs_db:users_select(get(gid)),
|
||||
file:write_file(io_lib:format("save/~s/~b-character.options", [User#users.folder, User#users.charnumber]), Data);
|
||||
file:write_file(io_lib:format("save/~s/~b-character.options", [User#users.folder, (User#users.character)#characters.slot]), Data);
|
||||
|
||||
%% @doc Hit handler.
|
||||
%% @todo Finish the work on it.
|
||||
@ -849,7 +854,7 @@ handle(16#0f0a, Data) ->
|
||||
|
||||
handle(16#1705, _) ->
|
||||
User = egs_db:users_select(get(gid)),
|
||||
send_1706(User#users.charname);
|
||||
send_1706((User#users.character)#characters.name);
|
||||
|
||||
%% @doc Mission selected handler. Send the currently selected mission.
|
||||
%% @todo Probably need to dispatch that info to other party members in the same counter.
|
||||
@ -984,16 +989,17 @@ send_0200(ZoneType) ->
|
||||
send(<< (header(16#0200))/binary, 0:32, 16#01000000:32, 16#ffffffff:32, Var/binary, 16#ffffffff:32, 16#ffffffff:32 >>).
|
||||
|
||||
%% @todo Figure out what the other things are.
|
||||
%% @todo Handle LID correctly (should be ffffffff for self, apparently).
|
||||
|
||||
send_0201(User, Char) ->
|
||||
#users{gid=CharGID, lid=CharLID, questid=QuestID, zoneid=ZoneID, mapid=MapID, entryid=EntryID} = User,
|
||||
{ok, File} = file:read_file("p/packet0201.bin"),
|
||||
<< _:96, A:32/bits, _:96, B:32/bits, _:256, D:32/bits, _:2656, After/bits >> = File,
|
||||
send_0201(User) ->
|
||||
GID = get(gid),
|
||||
send(<< 16#02010300:32, 0:32, A/binary, CharGID:32/little-unsigned-integer, 0:64, B/binary, GID:32/little-unsigned-integer,
|
||||
0:64, CharLID:32/little-unsigned-integer, CharGID:32/little-unsigned-integer, 0:96, D/binary, QuestID:32/little-unsigned-integer,
|
||||
ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, 0:192, QuestID:32/little-unsigned-integer,
|
||||
ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, Char/binary, After/binary >>).
|
||||
CharGID = User#users.gid,
|
||||
CharBin = psu_characters:character_user_to_binary(User#users{lid=0}),
|
||||
IsGM = 0,
|
||||
OnlineStatus = 0,
|
||||
GameVersion = 0,
|
||||
send(<< 16#02010300:32, 0:32, 16#00001200:32, CharGID:32/little-unsigned-integer, 0:64, 16#00011300:32,
|
||||
GID:32/little-unsigned-integer, 0:64, CharBin/binary, IsGM:8, 0:8, OnlineStatus:8, GameVersion:8, 0:608 >>).
|
||||
|
||||
%% @doc Hello packet, always sent on client connection.
|
||||
|
||||
@ -1090,24 +1096,22 @@ send_0233(Users) ->
|
||||
send(<< Header/binary, Contents/binary >>)
|
||||
end.
|
||||
|
||||
%% @todo God this function is ugly. Use tail recursion!
|
||||
%% @todo Do it properly without relying on the temporary file.
|
||||
|
||||
build_0233_contents([]) ->
|
||||
<< >>;
|
||||
build_0233_contents(Users) ->
|
||||
[User|Rest] = Users,
|
||||
{ok, File} = file:read_file("p/player.bin"),
|
||||
<< A:32/bits, _:32, B:64/bits, _:32, C:32/bits, _:256, E:64/bits, _:2336, F/bits >> = File,
|
||||
{ok, CharFile} = file:read_file(io_lib:format("save/~s/~b-character", [User#users.folder, User#users.charnumber])),
|
||||
CharGID = User#users.gid,
|
||||
LID = User#users.lid,
|
||||
% TODO: temporary? undefined handling
|
||||
#users{direction=Direction, coords=Coords, questid=QuestID, zoneid=ZoneID, mapid=MapID, entryid=EntryID} = case User#users.coords of
|
||||
undefined -> #users{direction= << 0:32 >>, coords= << 0:96 >>, questid=1100000, zoneid=0, mapid=1, entryid=0};
|
||||
SaneUser = case User#users.coords of
|
||||
undefined -> User#users{direction= << 0:32 >>, coords= << 0:96 >>, questid=1100000, zoneid=0, mapid=1, entryid=0};
|
||||
_ -> User
|
||||
end,
|
||||
Chunk = << A/binary, CharGID:32/little-unsigned-integer, B/binary, LID:16/little-unsigned-integer, 16#0100:16, C/binary,
|
||||
QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer,
|
||||
Direction:32/bits, Coords:96/bits, E/binary, QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer,
|
||||
EntryID:32/little-unsigned-integer, CharFile/binary, F/binary >>,
|
||||
CharBin = psu_characters:character_user_to_binary(SaneUser),
|
||||
IsGM = 0,
|
||||
GameVersion = 0,
|
||||
Chunk = << CharBin/binary, IsGM:8, 0:8, GameVersion:8, 0:8 >>,
|
||||
Next = build_0233_contents(Rest),
|
||||
<< Chunk/binary, Next/binary >>.
|
||||
|
||||
@ -1195,12 +1199,14 @@ send_0c10(Options) ->
|
||||
%% @todo The large chunk of 0s can have some values set... but what are they used for?
|
||||
%% @todo The values after the Char variable are the flags. Probably use bits to define what flag is and isn't set. Handle correctly.
|
||||
|
||||
send_0d01(Char, Options) ->
|
||||
send(<< (header(16#0d01))/binary, Char/binary,
|
||||
send_0d01(User) ->
|
||||
CharBin = psu_characters:character_tuple_to_binary(User#users.character),
|
||||
OptionsBin = psu_characters:options_tuple_to_binary((User#users.character)#characters.options),
|
||||
send(<< (header(16#0d01))/binary, CharBin/binary,
|
||||
16#ffbbef1c:32, 16#f8ff0700:32, 16#fc810916:32, 16#7802134c:32,
|
||||
16#b0c0040f:32, 16#7cf0e583:32, 16#b7bce0c6:32, 16#7ff8f963:32,
|
||||
16#3fd7ffff:32, 16#fff7ffff:32, 16#f3ff63e0:32, 16#1fe00000:32,
|
||||
0:7744, Options/binary >>).
|
||||
0:7744, OptionsBin/binary >>).
|
||||
|
||||
%% @doc Send the character list for selection.
|
||||
|
||||
@ -1228,10 +1234,9 @@ send_0d05() ->
|
||||
|
||||
%% @todo Figure out what the packet is.
|
||||
|
||||
send_1005(Char) ->
|
||||
send_1005(Name) ->
|
||||
{ok, File} = file:read_file("p/packet1005.bin"),
|
||||
<< _:352, Before:160/bits, _:608, After/bits >> = File,
|
||||
<< Name:512/bits, _/bits >> = Char,
|
||||
GID = get(gid),
|
||||
send(<< (header(16#1005))/binary, Before/binary, GID:32/little-unsigned-integer, 0:64, Name/binary, After/binary >>).
|
||||
|
||||
@ -1314,10 +1319,14 @@ send_1213(A, B) ->
|
||||
send(<< (header(16#1213))/binary, A:32/little-unsigned-integer, B:32/little-unsigned-integer >>).
|
||||
|
||||
%% @doc Send the player's partner card.
|
||||
%% @todo Find out the remaining values.
|
||||
|
||||
send_1500(Char, Number) ->
|
||||
<< CharInfo:576/bits, _/bits >> = Char,
|
||||
send(<< (header(16#1500))/binary, CharInfo/binary, 0:3072, 16#010401:24, Number:8, 0:64 >>).
|
||||
send_1500(User) ->
|
||||
#characters{slot=Slot, name=Name, race=Race, gender=Gender, class=Class} = User#users.character,
|
||||
RaceBin = psu_characters:race_atom_to_binary(Race),
|
||||
GenderBin = psu_characters:gender_atom_to_binary(Gender),
|
||||
ClassBin = psu_characters:class_atom_to_binary(Class),
|
||||
send(<< (header(16#1500))/binary, Name/binary, RaceBin:8, GenderBin:8, ClassBin:8, 0:3112, 16#010401:24, Slot:8, 0:64 >>).
|
||||
|
||||
%% @todo Send an empty partner card list.
|
||||
|
||||
|
||||
@ -51,11 +51,28 @@ binary_to_tuple(_, Binary) ->
|
||||
%% @doc Convert a tuple of appearance data into a binary to be sent to clients.
|
||||
%% @todo Write the function body!
|
||||
|
||||
tuple_to_binary(cast, _Tuple) ->
|
||||
{error, todo};
|
||||
tuple_to_binary(cast, Tuple) ->
|
||||
{metal_appearance, VoiceType, VoicePitch, Torso, Legs, Arms, Ears, Face, HeadType, MainColor, LineshieldColor,
|
||||
Eyebrows, Eyelashes, EyesGroup, Eyes, EyesColorY, EyesColorX, BodyColor, SubColor, HairstyleColorY, HairstyleColorX,
|
||||
Proportion, ProportionBoxX, ProportionBoxY, FaceBoxX, FaceBoxY} = Tuple,
|
||||
<< VoiceType:8, VoicePitch:8, 0:24, Torso:32/unsigned-integer, Legs:32/unsigned-integer, Arms:32/unsigned-integer,
|
||||
Ears:32/unsigned-integer, Face:32/unsigned-integer, HeadType:32/unsigned-integer, MainColor:8, 0:16, LineshieldColor:8,
|
||||
0:8, Eyebrows:8, Eyelashes:8, EyesGroup:8, Eyes:8, 0:24, EyesColorY:32/little-unsigned-integer, EyesColorX:32/little-unsigned-integer,
|
||||
0:96, BodyColor:32/little-unsigned-integer, SubColor:32/little-unsigned-integer, HairstyleColorY:32/little-unsigned-integer,
|
||||
HairstyleColorX:32/little-unsigned-integer, Proportion:32/little-unsigned-integer, ProportionBoxX:32/little-unsigned-integer,
|
||||
ProportionBoxY:32/little-unsigned-integer, FaceBoxX:32/little-unsigned-integer, FaceBoxY:32/little-unsigned-integer >>;
|
||||
|
||||
tuple_to_binary(_, _Tuple) ->
|
||||
{error, todo}.
|
||||
tuple_to_binary(_, Tuple) ->
|
||||
{flesh_appearance, VoiceType, VoicePitch, Jacket, Pants, Shoes, Ears, Face, Hairstyle, JacketColor, PantsColor, ShoesColor,
|
||||
LineshieldColor, Badge, Eyebrows, Eyelashes, EyesGroup, Eyes, BodySuit, EyesColorY, EyesColorX, LipsIntensity, LipsColorY, LipsColorX,
|
||||
SkinColor, HairstyleColorY, HairstyleColorX, Proportion, ProportionBoxX, ProportionBoxY, FaceBoxX, FaceBoxY} = Tuple,
|
||||
<< VoiceType:8, VoicePitch:8, 0:24, Jacket:32/unsigned-integer, Pants:32/unsigned-integer, Shoes:32/unsigned-integer,
|
||||
Ears:32/unsigned-integer, Face:32/unsigned-integer, Hairstyle:32/unsigned-integer, JacketColor:8, PantsColor:8, ShoesColor:8, LineshieldColor:8,
|
||||
Badge:8, Eyebrows:8, Eyelashes:8, EyesGroup:8, Eyes:8, BodySuit:8, 0:16, EyesColorY:32/little-unsigned-integer, EyesColorX:32/little-unsigned-integer,
|
||||
LipsIntensity:32/little-unsigned-integer, LipsColorY:32/little-unsigned-integer, LipsColorX:32/little-unsigned-integer,
|
||||
SkinColor:32/little-unsigned-integer, 0:32, HairstyleColorY:32/little-unsigned-integer,
|
||||
HairstyleColorX:32/little-unsigned-integer, Proportion:32/little-unsigned-integer, ProportionBoxX:32/little-unsigned-integer,
|
||||
ProportionBoxY:32/little-unsigned-integer, FaceBoxX:32/little-unsigned-integer, FaceBoxY:32/little-unsigned-integer >>.
|
||||
|
||||
%% @doc Validate the character creation appearance data.
|
||||
%% Trigger an exception rather than handling errors.
|
||||
|
||||
@ -17,10 +17,109 @@
|
||||
% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
-module(psu_characters).
|
||||
-export([options_binary_to_tuple/1, options_tuple_to_binary/1, validate_options/1]).
|
||||
-export([
|
||||
character_tuple_to_binary/1, character_user_to_binary/1, class_atom_to_binary/1, class_binary_to_atom/1,
|
||||
gender_atom_to_binary/1, gender_binary_to_atom/1, options_binary_to_tuple/1, options_tuple_to_binary/1,
|
||||
race_atom_to_binary/1, race_binary_to_atom/1, se_list_to_binary/1, stats_tuple_to_binary/1, validate_name/1, validate_options/1
|
||||
]).
|
||||
|
||||
-include("include/records.hrl").
|
||||
|
||||
%% @doc Convert a character tuple into a binary to be sent to clients.
|
||||
%% Only contains the actually saved data, not the stats and related information.
|
||||
|
||||
character_tuple_to_binary(Tuple) ->
|
||||
#characters{name=Name, race=Race, gender=Gender, class=Class, appearance=Appearance,
|
||||
mainlevel=Level, blastbar=BlastBar, luck=Luck, money=Money, playtime=PlayTime} = Tuple,
|
||||
#level{number=LV, exp=EXP} = Level,
|
||||
RaceBin = race_atom_to_binary(Race),
|
||||
GenderBin = gender_atom_to_binary(Gender),
|
||||
ClassBin = class_atom_to_binary(Class),
|
||||
AppearanceBin = psu_appearance:tuple_to_binary(Race, Appearance),
|
||||
<< Name/binary, RaceBin:8, GenderBin:8, ClassBin:8, AppearanceBin/binary, LV:32/little-unsigned-integer, BlastBar:16/little-unsigned-integer,
|
||||
Luck:8, 0:40, EXP:32/little-unsigned-integer, 0:32, Money:32/little-unsigned-integer, PlayTime:32/little-unsigned-integer, 0:160,
|
||||
% then classes hardcoded for now @todo
|
||||
16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32,
|
||||
16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32 >>.
|
||||
|
||||
%% @doc Convert a character tuple into a binary to be sent to clients.
|
||||
%% Contains everything from character_tuple_to_binary/1 along with location, stats, SE and more.
|
||||
%% @todo One or the other QuestID list is the previous area IDs, not the current one.
|
||||
%% @todo The second StatsBin seems unused. Not sure what it's for.
|
||||
%% @todo Find out what the big block of 0 is at the end.
|
||||
|
||||
character_user_to_binary(User) ->
|
||||
#users{gid=CharGID, lid=CharLID, character=Character, questid=QuestID, zoneid=ZoneID, mapid=MapID, entryid=EntryID} = User,
|
||||
#characters{stats=Stats, se=SE, currenthp=CurrentHP, maxhp=MaxHP} = Character,
|
||||
CharBin = psu_characters:character_tuple_to_binary(Character),
|
||||
StatsBin = psu_characters:stats_tuple_to_binary(Stats),
|
||||
SEBin = psu_characters:se_list_to_binary(SE),
|
||||
<< 16#00001200:32, CharGID:32/little-unsigned-integer, 0:64, CharLID:32/little-unsigned-integer, 0:32, QuestID:32/little-unsigned-integer,
|
||||
ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, 0:192, QuestID:32/little-unsigned-integer,
|
||||
ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, CharBin/binary,
|
||||
0:96, StatsBin/binary, 0:32, SEBin/binary, 0:64, StatsBin/binary, CurrentHP:32/little-unsigned-integer, MaxHP:32/little-unsigned-integer, 0:2304 >>.
|
||||
|
||||
%% @doc Convert a class atom into a binary to be sent to clients.
|
||||
|
||||
class_atom_to_binary(Class) ->
|
||||
case Class of
|
||||
hunter -> 0;
|
||||
ranger -> 1;
|
||||
force -> 2;
|
||||
fighgunner -> 3;
|
||||
guntecher -> 4;
|
||||
wartecher -> 5;
|
||||
fortefighter -> 6;
|
||||
fortegunner -> 7;
|
||||
fortetecher -> 8;
|
||||
protranser -> 9;
|
||||
acrofighter -> 10;
|
||||
acrotecher -> 11;
|
||||
fighmaster -> 12;
|
||||
gunmaster -> 13;
|
||||
masterforce -> 14;
|
||||
acromaster -> 15
|
||||
end.
|
||||
|
||||
%% @doc Convert the binary class to an atom.
|
||||
%% @todo Probably can make a list and use that list for both functions.
|
||||
|
||||
class_binary_to_atom(ClassBin) ->
|
||||
case ClassBin of
|
||||
0 -> hunter;
|
||||
1 -> ranger;
|
||||
2 -> force;
|
||||
3 -> fighgunner;
|
||||
4 -> guntecher;
|
||||
5 -> wartecher;
|
||||
6 -> fortefighter;
|
||||
7 -> fortegunner;
|
||||
8 -> fortetecher;
|
||||
9 -> protranser;
|
||||
10 -> acrofighter;
|
||||
11 -> acrotecher;
|
||||
12 -> fighmaster;
|
||||
13 -> gunmaster;
|
||||
14 -> masterforce;
|
||||
15 -> acromaster
|
||||
end.
|
||||
|
||||
%% @doc Convert a gender atom into a binary to be sent to clients.
|
||||
|
||||
gender_atom_to_binary(Gender) ->
|
||||
case Gender of
|
||||
male -> 0;
|
||||
female -> 1
|
||||
end.
|
||||
|
||||
%% @doc Convert the binary gender into an atom.
|
||||
|
||||
gender_binary_to_atom(GenderBin) ->
|
||||
case GenderBin of
|
||||
0 -> male;
|
||||
1 -> female
|
||||
end.
|
||||
|
||||
%% @doc Convert the binary options data into a tuple.
|
||||
%% The few unknown values are probably PS2 or 360 only.
|
||||
|
||||
@ -33,10 +132,56 @@ options_binary_to_tuple(Binary) ->
|
||||
Controller, WeaponSwap, LockOn, Brightness, FunctionKeySetting, ButtonDetailDisplay}.
|
||||
|
||||
%% @doc Convert a tuple of options data into a binary to be sent to clients.
|
||||
%% @todo Write the function body!
|
||||
|
||||
options_tuple_to_binary(_Tuple) ->
|
||||
{error, todo}.
|
||||
options_tuple_to_binary(Tuple) ->
|
||||
{options, TextDisplaySpeed, Sound, MusicVolume, SoundEffectVolume, Vibration, RadarMapDisplay,
|
||||
CutInDisplay, MainMenuCursorPosition, Camera3rdY, Camera3rdX, Camera1stY, Camera1stX,
|
||||
Controller, WeaponSwap, LockOn, Brightness, FunctionKeySetting, ButtonDetailDisplay} = Tuple,
|
||||
<< TextDisplaySpeed, Sound, MusicVolume, SoundEffectVolume, Vibration, RadarMapDisplay,
|
||||
CutInDisplay, MainMenuCursorPosition, 0, Camera3rdY, Camera3rdX, Camera1stY, Camera1stX,
|
||||
Controller, WeaponSwap, LockOn, Brightness, FunctionKeySetting, 0, ButtonDetailDisplay, 0:32 >>.
|
||||
|
||||
%% @doc Convert a race atom into a binary to be sent to clients.
|
||||
|
||||
race_atom_to_binary(Race) ->
|
||||
case Race of
|
||||
human -> 0;
|
||||
newman -> 1;
|
||||
cast -> 2;
|
||||
beast -> 3
|
||||
end.
|
||||
|
||||
%% @doc Convert the binary race into an atom.
|
||||
|
||||
race_binary_to_atom(RaceBin) ->
|
||||
case RaceBin of
|
||||
0 -> human;
|
||||
1 -> newman;
|
||||
2 -> cast;
|
||||
3 -> beast
|
||||
end.
|
||||
|
||||
%% @doc Convert a list of status effects into a binary to be sent to clients.
|
||||
%% @todo Do it for real.
|
||||
|
||||
se_list_to_binary(_List) ->
|
||||
<< 0:32 >>.
|
||||
|
||||
%% @doc Convert the tuple of stats data into a binary to be sent to clients.
|
||||
|
||||
stats_tuple_to_binary(Tuple) ->
|
||||
{stats, ATP, ATA, TP, DFP, EVP, MST, STA} = Tuple,
|
||||
<< ATP:16/little-unsigned-integer, DFP:16/little-unsigned-integer, ATA:16/little-unsigned-integer, EVP:16/little-unsigned-integer,
|
||||
STA:16/little-unsigned-integer, 0:16, TP:16/little-unsigned-integer, MST:16/little-unsigned-integer >>.
|
||||
|
||||
%% @doc Validate the character's name.
|
||||
%% 00F7 is the RGBA color control character.
|
||||
%% 03F7 is the RGB color control character.
|
||||
%% Trigger an exception rather than handling errors.
|
||||
|
||||
validate_name(_Name) ->
|
||||
%~ Something like that probably: << true = X =/= 16#00F7 andalso X =/= 16#03F7 || X:16 <- Name>>.
|
||||
ok.
|
||||
|
||||
%% @doc Validate the options data.
|
||||
%% Trigger an exception rather than handling errors.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user