game: Initial support for character stats and other information.

include/records.hrl

@@ -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...

src/egs_db.erl

@@ -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,

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)),
+	OldUser = egs_db:users_select(get(gid)),
-	[{status, 1}, {char, Char}, {options, Options}] = data_load(User#users.folder, Number),
+	[{status, 1}, {char, CharBin}, {options, OptionsBin}] = data_load(OldUser#users.folder, Number),
-	<< Name:512/bits, _/bits >> = Char,
+	<< Name:512/bits, RaceBin:8, GenderBin:8, ClassBin:8, AppearanceBin:776/bits, _/bits >> = CharBin,
-	NewRow = User#users{charnumber=Number, charname=Name},
+	psu_characters:validate_name(Name), % TODO: don't validate name when loading character, do it at creation
-	egs_db:users_insert(NewRow),
+	Race = psu_characters:race_binary_to_atom(RaceBin),
-	char_load(Char, Options, Number),
+	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) ->
+char_load(User) ->
-	send_0d01(Char, Options),
+	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) ->
+send_0201(User) ->
-	#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,
 	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,
+	CharGID = User#users.gid,
-		0:64, CharLID:32/little-unsigned-integer, CharGID:32/little-unsigned-integer, 0:96, D/binary, QuestID:32/little-unsigned-integer,
+	CharBin = psu_characters:character_user_to_binary(User#users{lid=0}),
-		ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, 0:192, QuestID:32/little-unsigned-integer,
+	IsGM = 0,
-		ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer, Char/binary, After/binary >>).
+	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
+	SaneUser = case User#users.coords of
-		undefined -> #users{direction= << 0:32 >>, coords= << 0:96 >>, questid=1100000, zoneid=0, mapid=1, entryid=0};
+		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,
+	CharBin = psu_characters:character_user_to_binary(SaneUser),
-		QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer,
+	IsGM = 0,
-		Direction:32/bits, Coords:96/bits, E/binary, QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer,
+	GameVersion = 0,
-		EntryID:32/little-unsigned-integer, CharFile/binary, F/binary >>,
+	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_0d01(User) ->
-	send(<< (header(16#0d01))/binary, Char/binary,
+	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) ->
+send_1500(User) ->
-	<< CharInfo:576/bits, _/bits >> = Char,
+	#characters{slot=Slot, name=Name, race=Race, gender=Gender, class=Class} = User#users.character,
-	send(<< (header(16#1500))/binary, CharInfo/binary, 0:3072, 16#010401:24, Number:8, 0:64 >>).
+	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.
 

src/psu_appearance.erl

@@ -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) ->
+tuple_to_binary(cast, Tuple) ->
-	{error, todo};
+	{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) ->
+tuple_to_binary(_, Tuple) ->
-	{error, todo}.
+	{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.

src/psu_characters.erl

@@ -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) ->
+options_tuple_to_binary(Tuple) ->
-	{error, todo}.
+	{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.