psu_game: Add an NPC header file to generate the NPC list.

include/psu_npc.hrl

@@ -0,0 +1,65 @@
+%%	EGS: Erlang Game Server
+%%	Copyright (C) 2010  Loic Hoguin
+%%
+%%	This file is part of EGS.
+%%
+%%	EGS is free software: you can redistribute it and/or modify
+%%	it under the terms of the GNU 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 General Public License for more details.
+%%
+%%	You should have received a copy of the GNU General Public License
+%%	along with EGS.  If not, see <http://www.gnu.org/licenses/>.
+
+-record(psu_npc, {has_card, name, level}).
+
+-define(NPC, [
+	{ 0, #psu_npc{has_card=false, name="Ethan Waber", level=+0}},
+	{ 1, #psu_npc{has_card=true, name="Hyuga Ryght", level=+0}},
+	{ 2, #psu_npc{has_card=true, name="Karen Erra", level=+0}}, %% normal
+	{ 3, #psu_npc{has_card=true, name="Leogini Berafort", level=+0}},
+	{ 4, #psu_npc{has_card=true, name="Lucaim Nav", level=+0}},
+	{ 5, #psu_npc{has_card=true, name="Maya Shidow", level=+0}},
+	{ 6, #psu_npc{has_card=true, name="Tonnio Rhima", level=+0}},
+	{ 7, #psu_npc{has_card=true, name="Lou", level=+0}},
+	{ 8, #psu_npc{has_card=true, name="Mirei Mikuna", level=+0}},
+	{ 9, #psu_npc{has_card=true, name="Hiru Vol", level=+0}},
+	{10, #psu_npc{has_card=true, name="No Vol", level=+0}},
+	{11, #psu_npc{has_card=true, name="Do Vol", level=+0}},
+	{12, #psu_npc{has_card=true, name="Liina Sukaya", level=+0}},
+	{13, #psu_npc{has_card=true, name="Alfort Tylor", level=+0}},
+	{14, #psu_npc{has_card=true, name="Obel Dallgun", level=+0}},
+	{15, #psu_npc{has_card=true, name="Ethan Waber", level=+0}}, %% EP1
+	{16, #psu_npc{has_card=true, name="Fulyen Curtz", level=+0}},
+	{17, #psu_npc{has_card=true, name="Renvolt Magashi", level=+0}},
+	{18, #psu_npc{has_card=false, name="Lumia Waber", level=+0}},
+	{19, #psu_npc{has_card=true, name="Remlia Norphe", level=+0}},
+	{20, #psu_npc{has_card=false, name="Clamp Maniel", level=+0}},
+	{21, #psu_npc{has_card=false, name="Kanal Tomrain", level=+0}},
+	{22, #psu_npc{has_card=false, name="Mina", level=+0}},
+	{23, #psu_npc{has_card=true, name="Hal", level=+0}},
+	{24, #psu_npc{has_card=false, name="Fulyen Curtz", level=+0}},
+	{25, #psu_npc{has_card=true, name="Laia Martinez", level=+0}}, %% EP2
+	{26, #psu_npc{has_card=true, name="Karen Erra", level=+0}}, %% maiden
+	{27, #psu_npc{has_card=false, name="Mirei Mikuna", level=+0}},
+	{28, #psu_npc{has_card=false, name="Obel Dallgun", level=+0}},
+	{29, #psu_npc{has_card=false, name="Maira Klein", level=+0}},
+	{30, #psu_npc{has_card=true, name="Orson Waber", level=+0}},
+	{31, #psu_npc{has_card=false, name="Fulyen Curtz", level=+0}},
+	{32, #psu_npc{has_card=true, name="Bruce Boyde", level=+0}},
+	{33, #psu_npc{has_card=true, name="Ethan Waber", level=+0}}, %% rogue
+	{34, #psu_npc{has_card=false, name="Vivienne", level=+0}},
+	{35, #psu_npc{has_card=false, name="Helga", level=+0}},
+	{36, #psu_npc{has_card=false, name="Hakana Kutanami", level=+0}},
+	{37, #psu_npc{has_card=false, name="Liche Baratse", level=+0}},
+	{38, #psu_npc{has_card=true, name="Howzer", level=+0}},
+	{39, #psu_npc{has_card=true, name="Rutsu", level=+0}},
+	{40, #psu_npc{has_card=true, name="Lumia Waber", level=+0}}, %% EP2
+	{41, #psu_npc{has_card=true, name="Laia Martinez", level=+0}}, %% president
+	{42, #psu_npc{has_card=true, name="My PM", level=+0}}
+]).

src/psu/psu_game.erl

@@ -24,6 +24,7 @@
 -include("include/records.hrl").
 -include("include/maps.hrl").
 -include("include/missions.hrl").
+-include("include/psu_npc.hrl").
 
 -define(OPTIONS, [binary, {active, false}, {certfile, "priv/ssl/servercert.pem"}, {keyfile, "priv/ssl/serverkey.pem"}, {password, "alpha"}]).
 
@@ -1562,10 +1563,16 @@ send_1512() ->
 	send(<< (header(16#1512))/binary, 0:46080 >>).
 
 %% @doc Send the player's NPC and PM information.
-
+%% @todo Do we really want to give all NPCs to everyone? Probably.
+%% @todo The value 4 is the card priority. Find what 3 is. When sending, the first 0 is an unknown value.
 send_1602() ->
-	{ok, File} = file:read_file("p/npc.bin"),
+	NbNPC = lists:sum([1 || {_NPCid, Data} <- ?NPC, Data#psu_npc.has_card =:= true]),
-	send(<< (header(16#1602))/binary, 0:32, File/binary >>).
+	Bin = iolist_to_binary([<< NPCid:8, 0, 4, 0, 3, 0:24 >> || {NPCid, Data} <- ?NPC, Data#psu_npc.has_card =:= true]),
+	MiddlePaddingSize = 8 * (344 - byte_size(Bin)),
+	PMName = "My PM",
+	UCS2PMName = << << X:8, 0:8 >> || X <- PMName >>,
+	EndPaddingSize = 8 * (64 - byte_size(UCS2PMName)),
+	send(<< (header(16#1602))/binary, 0:32, Bin/binary, 0:MiddlePaddingSize, NbNPC, 0:24, UCS2PMName/binary, 0:EndPaddingSize >>).
 
 %% @doc Party information.
 %% @todo Handle existing parties.