Initial party and NPC support. Lou only so far. Many bugs expected.
This commit is contained in:
Loïc Hoguin
parent
c4109a5d11
commit
18a86f9c6b
@ -16,6 +16,8 @@
|
||||
egs_proto,
|
||||
psu_appearance,
|
||||
psu_characters,
|
||||
psu_party,
|
||||
psu_npc,
|
||||
psu_parser
|
||||
]},
|
||||
{registered, []},
|
||||
|
||||
77
include/psu/npc.hrl
Normal file
77
include/psu/npc.hrl
Normal file
@ -0,0 +1,77 @@
|
||||
%% 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, race, gender, class, level, appearance}).
|
||||
|
||||
-define(NPC, [
|
||||
%~ { 0, #psu_npc{has_card=false, name="Ethan Waber", level=+0}},
|
||||
|
||||
%~ { 1, #psu_npc{has_card=true, name="Hyuga Ryght", race=human, gender=male, class=hunter, level=+3,
|
||||
%~ appearance=#flesh_appearance{voicetype=54, jacket=16#00860300, pants=16#00860301, shoes=16#00860302, ears=16#00860303, face=16#00860304, hairstyle=16#00860305}
|
||||
%~ }},
|
||||
|
||||
%~ { 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", race=cast, gender=female, class=hunter, level=+3,
|
||||
appearance=#metal_appearance{voicetype=59, torso=16#008b1300, legs=16#008b1301, arms=16#008b1302, ears=16#008b1303, face=16#008b1304, headtype=16#008b1305}
|
||||
}}%,
|
||||
|
||||
%~ { 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", race=human, gender=female, class=hunter, level=+0,
|
||||
%~ appearance=#flesh_appearance{voicetype=87, jacket=16#009C1300, pants=16#009C1301, shoes=16#009C1302, ears=16#009C1303, face=16#009C1304, hairstyle=16#009C1305}
|
||||
%~ }},
|
||||
|
||||
%~ {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}}
|
||||
]).
|
||||
@ -1,65 +0,0 @@
|
||||
%% 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}}
|
||||
]).
|
||||
@ -31,7 +31,7 @@
|
||||
%% @todo Probably can use a "param" or "extra" field to store the game-specific information (for things that don't need to be queried).
|
||||
|
||||
-record(egs_user_model, {
|
||||
id, pid, socket, state, time, character, instancepid, areatype, area, entryid, pos,
|
||||
id, pid, socket, state, time, character, instancepid, partypid, areatype, area, entryid, pos,
|
||||
%% psu specific fields
|
||||
lid, setid, prev_area, prev_entryid,
|
||||
%% temporary fields
|
||||
@ -48,15 +48,32 @@
|
||||
|
||||
%% @doc Character appearance data structure, flesh version.
|
||||
|
||||
-record(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}).
|
||||
-record(flesh_appearance, {
|
||||
voicetype, voicepitch=127,
|
||||
jacket, pants, shoes, ears, face, hairstyle,
|
||||
jacketcolor=0, pantscolor=0, shoescolor=0, lineshieldcolor=0, badge=0,
|
||||
eyebrows=0, eyelashes=0, eyesgroup=0, eyes=0,
|
||||
bodysuit=0,
|
||||
eyescolory=32767, eyescolorx=0,
|
||||
lipsintensity=32767, lipscolory=32767, lipscolorx=0,
|
||||
skincolor=65535,
|
||||
hairstylecolory=32767, hairstylecolorx=0,
|
||||
proportion=65535, proportionboxx=65535, proportionboxy=65535,
|
||||
faceboxx=65535, faceboxy=65535
|
||||
}).
|
||||
|
||||
%% @doc Character appearance data structure, metal version.
|
||||
|
||||
-record(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}).
|
||||
-record(metal_appearance, {
|
||||
voicetype, voicepitch=127,
|
||||
torso, legs, arms, ears, face, headtype,
|
||||
maincolor=0, lineshieldcolor=0,
|
||||
eyebrows=0, eyelashes=0, eyesgroup=0, eyes=0,
|
||||
eyescolory=32767, eyescolorx=0,
|
||||
bodycolor=65535, subcolor=196607,
|
||||
hairstylecolory=32767, hairstylecolorx=0,
|
||||
proportion=65535, proportionboxx=65535, proportionboxy=65535,
|
||||
faceboxx=65535, faceboxy=65535
|
||||
}).
|
||||
|
||||
%% @doc Character options data structure.
|
||||
|
||||
@ -76,6 +93,7 @@
|
||||
gid,
|
||||
type=white,
|
||||
slot,
|
||||
npcid=0,
|
||||
name,
|
||||
race,
|
||||
gender,
|
||||
|
||||
BIN
p/packet0a04.bin
Normal file
BIN
p/packet0a04.bin
Normal file
Binary file not shown.
BIN
p/packet1601.bin
Normal file
BIN
p/packet1601.bin
Normal file
Binary file not shown.
@ -94,12 +94,16 @@ handle_call({read, ID}, _From, State) ->
|
||||
|
||||
%% @todo state = undefined | {wait_for_authentication, Key} | authenticated | online
|
||||
handle_call({select, all}, _From, State) ->
|
||||
List = do(qlc:q([X || X <- mnesia:table(?TABLE), X#?TABLE.state =:= online])),
|
||||
List = do(qlc:q([X || X <- mnesia:table(?TABLE),
|
||||
X#?TABLE.pid /= undefined,
|
||||
X#?TABLE.state =:= online
|
||||
])),
|
||||
{reply, {ok, List}, State};
|
||||
|
||||
handle_call({select, {neighbors, User}}, _From, State) ->
|
||||
List = do(qlc:q([X || X <- mnesia:table(?TABLE),
|
||||
X#?TABLE.id /= User#?TABLE.id,
|
||||
X#?TABLE.pid /= undefined,
|
||||
X#?TABLE.state =:= online,
|
||||
X#?TABLE.instancepid =:= User#?TABLE.instancepid,
|
||||
X#?TABLE.area =:= User#?TABLE.area
|
||||
|
||||
@ -29,29 +29,36 @@
|
||||
%% 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,
|
||||
#characters{type=Type, 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),
|
||||
FooterBin = case Type of
|
||||
npc ->
|
||||
<< 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,
|
||||
16#4e4f4630:32, 16#08000000:32, 0:32, 0:32, 16#4e454e44:32 >>;
|
||||
_ -> %% @todo Handle classes.
|
||||
<< 0:160,
|
||||
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 >>
|
||||
end,
|
||||
<< 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 >>.
|
||||
Luck:8, 0:40, EXP:32/little-unsigned-integer, 0:32, Money:32/little-unsigned-integer, PlayTime:32/little-unsigned-integer, FooterBin/binary >>.
|
||||
|
||||
%% @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 of the two QuestID lists has a different use. No idea what though.
|
||||
%% @todo One of the two QuestID lists has a different use. No idea what though. The second is probably the previous area.
|
||||
%% @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.
|
||||
%% @todo The value before IntDir seems to be the player's current animation. 01 stand up, 08 ?, 17 normal sit
|
||||
|
||||
character_user_to_binary(User) ->
|
||||
#egs_user_model{id=CharGID, lid=CharLID, character=Character, pos=#pos{x=X, y=Y, z=Z, dir=Dir}, area={psu_area, QuestID, ZoneID, MapID}, entryid=EntryID} = User,
|
||||
#characters{mainlevel=Level, stats=Stats, se=SE, currenthp=CurrentHP, maxhp=MaxHP} = Character,
|
||||
#characters{type=Type, mainlevel=Level, stats=Stats, se=SE, currenthp=CurrentHP, maxhp=MaxHP} = Character,
|
||||
#level{number=LV} = Level,
|
||||
CharBin = psu_characters:character_tuple_to_binary(Character),
|
||||
StatsBin = psu_characters:stats_tuple_to_binary(Stats),
|
||||
@ -59,12 +66,15 @@ character_user_to_binary(User) ->
|
||||
EXPNextLevel = 100,
|
||||
EXPPreviousLevel = 0,
|
||||
IntDir = trunc(Dir * 182.0416),
|
||||
<< 16#00001200:32, CharGID:32/little-unsigned-integer, 0:64, CharLID:32/little-unsigned-integer, 16#0000ffff:32, QuestID:32/little-unsigned-integer,
|
||||
TypeID = case Type of npc -> 16#00001d00; _ -> 16#00001200 end,
|
||||
NPCStuff = case Type of npc -> 16#01ff0700; _ -> 16#0000ffff end,
|
||||
<< TypeID:32, CharGID:32/little-unsigned-integer, 0:64, CharLID:32/little-unsigned-integer, NPCStuff:32, QuestID:32/little-unsigned-integer,
|
||||
ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer,
|
||||
16#0100:16, IntDir:16/little-unsigned-integer, X:32/little-float, Y:32/little-float, Z:32/little-float, 0:64,
|
||||
QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer,
|
||||
CharBin/binary, EXPNextLevel:32/little-unsigned-integer, EXPPreviousLevel:32/little-unsigned-integer, MaxHP:32/little-unsigned-integer, % not sure if this one is current or max
|
||||
StatsBin/binary, 0:32, SEBin/binary, 0:32, LV:32/little-unsigned-integer, StatsBin/binary, CurrentHP:32/little-unsigned-integer, MaxHP:32/little-unsigned-integer, 0:2304 >>.
|
||||
StatsBin/binary, 0:32, SEBin/binary, 0:32, LV:32/little-unsigned-integer, StatsBin/binary, CurrentHP:32/little-unsigned-integer, MaxHP:32/little-unsigned-integer,
|
||||
0:1344, 16#0000803f:32, 0:64, 16#0000803f:32, 0:64, 16#0000803f:32, 0:64, 16#0000803f:32, 0:64, 16#0000803f:32, 0:160, 16#0000803f:32, 0:352 >>.
|
||||
|
||||
%% @doc Convert a class atom into a binary to be sent to clients.
|
||||
|
||||
|
||||
@ -24,7 +24,7 @@
|
||||
-include("include/records.hrl").
|
||||
-include("include/maps.hrl").
|
||||
-include("include/missions.hrl").
|
||||
-include("include/psu_npc.hrl").
|
||||
-include("include/psu/npc.hrl").
|
||||
|
||||
-define(OPTIONS, [binary, {active, false}, {reuseaddr, true}, {certfile, "priv/ssl/servercert.pem"}, {keyfile, "priv/ssl/serverkey.pem"}, {password, "alpha"}]).
|
||||
|
||||
@ -243,7 +243,7 @@ counter_load(QuestID, ZoneID, MapID, EntryID) ->
|
||||
send_0c00(16#7fffffff),
|
||||
send_020e(QuestFile),
|
||||
send_0a05(),
|
||||
send_010d(User),
|
||||
send_010d(User#egs_user_model{lid=0}),
|
||||
send_0200(mission),
|
||||
send_020f(ZoneFile, 0, 16#ff),
|
||||
send_0205(0, 0, 0, 0),
|
||||
@ -256,7 +256,7 @@ counter_load(QuestID, ZoneID, MapID, EntryID) ->
|
||||
send_1206(),
|
||||
send_1207(),
|
||||
send_1212(),
|
||||
send_0201(User),
|
||||
send_0201(User#egs_user_model{lid=0}),
|
||||
send_0a06(),
|
||||
send_0208(),
|
||||
send_0236().
|
||||
@ -379,7 +379,7 @@ area_load(AreaType, IsStart, SetID, OldUser, User, QuestFile, ZoneFile, AreaName
|
||||
send_0111(6, 0);
|
||||
true -> ignore
|
||||
end,
|
||||
send_010d(User),
|
||||
send_010d(User#egs_user_model{lid=0}),
|
||||
send_0200(AreaType),
|
||||
send_020f(ZoneFile, SetID, SeasonID);
|
||||
true -> ignore
|
||||
@ -417,14 +417,41 @@ area_load(AreaType, IsStart, SetID, OldUser, User, QuestFile, ZoneFile, AreaName
|
||||
send_1309();
|
||||
true -> ignore
|
||||
end,
|
||||
send_0201(User),
|
||||
send_0201(User#egs_user_model{lid=0}),
|
||||
if ZoneChange =:= true ->
|
||||
send_0a06();
|
||||
true -> ignore
|
||||
end,
|
||||
send_0233(SpawnList),
|
||||
send_0208(),
|
||||
send_0236().
|
||||
send_0236(),
|
||||
if User#egs_user_model.partypid =/= undefined, AreaType =:= mission ->
|
||||
{ok, NPCList} = psu_party:get_npc(User#egs_user_model.partypid),
|
||||
npc_load(User, NPCList);
|
||||
true -> ok
|
||||
end.
|
||||
|
||||
%% @todo Make NPC hide in lobbies but show-up in missions.
|
||||
%% @todo Don't change the NPC info unless you are the leader!
|
||||
npc_load(_Leader, []) ->
|
||||
ok;
|
||||
npc_load(Leader, [{PartyPos, NPCGID}|NPCList]) ->
|
||||
{ok, OldNPCUser} = egs_user_model:read(NPCGID),
|
||||
#egs_user_model{instancepid=InstancePid, area=Area, entryid=EntryID, pos=Pos} = Leader,
|
||||
NPCUser = OldNPCUser#egs_user_model{lid=PartyPos, instancepid=InstancePid, areatype=mission, area=Area, entryid=EntryID, pos=Pos},
|
||||
io:format("~p", [NPCUser]),
|
||||
%% @todo This one on mission end/abort?
|
||||
%~ OldNPCUser#egs_user_model{lid=PartyPos, instancepid=undefined, areatype=AreaType, area={psu_area, 0, 0, 0}, entryid=0, pos={pos, 0.0, 0.0, 0.0, 0}}
|
||||
egs_user_model:write(NPCUser),
|
||||
send_010d(NPCUser),
|
||||
send_0201(NPCUser),
|
||||
send_0215(0),
|
||||
send_0a04(NPCUser#egs_user_model.id),
|
||||
send_1004(npc_mission, NPCUser, PartyPos),
|
||||
send_100f((NPCUser#egs_user_model.character)#characters.npcid, PartyPos),
|
||||
send_1601(),
|
||||
send_1016(PartyPos),
|
||||
npc_load(Leader, NPCList).
|
||||
|
||||
%% @doc Game's main loop.
|
||||
%% @todo We probably don't want to send a keepalive packet unnecessarily.
|
||||
@ -435,8 +462,8 @@ loop(SoFar) ->
|
||||
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, ChatGID, ChatName, ChatModifiers, ChatMessage} ->
|
||||
send_0304(ChatGID, ChatName, ChatModifiers, ChatMessage),
|
||||
{psu_chat, ChatTypeID, ChatGID, ChatName, ChatModifiers, ChatMessage} ->
|
||||
send_0304(ChatTypeID, ChatGID, ChatName, ChatModifiers, ChatMessage),
|
||||
?MODULE:loop(SoFar);
|
||||
{psu_keepalive} ->
|
||||
egs_proto:send_keepalive(get(socket)),
|
||||
@ -534,9 +561,10 @@ handle(16#0102, _) ->
|
||||
%% @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 We must also handle here the NPC characters. PartyPos can be used for that, and more info in unknown values maybe too?
|
||||
handle(16#0105, Data) ->
|
||||
<< _:32, A:32/little-unsigned-integer, ItemID:8, Action:8, _:8, B:8, C:32/little-unsigned-integer, _/bits >> = Data,
|
||||
log("0105 action ~b item ~b (~b ~b ~b)", [Action, ItemID, A, B, C]),
|
||||
<< _:32, PartyPos:32/little-unsigned-integer, ItemID:8, Action:8, _:8, A:8, B:32/little-unsigned-integer, _/bits >> = Data,
|
||||
log("0105 action ~b item ~b partypos ~b (~b ~b)", [Action, ItemID, PartyPos, A, B]),
|
||||
GID = get(gid),
|
||||
Category = case ItemID of
|
||||
% units would be 8, traps would be 12
|
||||
@ -569,11 +597,11 @@ handle(16#0105, Data) ->
|
||||
_ -> {ok, File} = file:read_file(Filename)
|
||||
end,
|
||||
send(<< 16#01050300: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, A:32/little-unsigned-integer, ItemID, Action, Category, B, C:32/little-unsigned-integer,
|
||||
0:64, GID:32/little-unsigned-integer, PartyPos:32/little-unsigned-integer, ItemID, Action, Category, A, B:32/little-unsigned-integer,
|
||||
File/binary >>);
|
||||
2 -> % unequip item
|
||||
send(<< 16#01050300: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, A:32/little-unsigned-integer, ItemID, Action, Category, B, C:32/little-unsigned-integer >>);
|
||||
0:64, GID:32/little-unsigned-integer, PartyPos:32/little-unsigned-integer, ItemID, Action, Category, A, B:32/little-unsigned-integer >>);
|
||||
5 -> % drop item
|
||||
ignore;
|
||||
_ ->
|
||||
@ -592,6 +620,7 @@ handle(16#010a, Data) ->
|
||||
|
||||
%% @doc Character death, and more, handler. Warp to 4th floor for now.
|
||||
%% @todo Recover from death correctly.
|
||||
%% @todo A is probably PartyPos or LID.
|
||||
handle(16#0110, Data) ->
|
||||
<< _:32, A:32/little-unsigned-integer, B:32/little-unsigned-integer, C:32/little-unsigned-integer >> = Data,
|
||||
case B of
|
||||
@ -599,6 +628,8 @@ handle(16#0110, Data) ->
|
||||
send_0113();
|
||||
3 -> % type change
|
||||
log("changed type to ~b", [C]);
|
||||
4 -> % related to npc death, ignore for now
|
||||
ignore;
|
||||
7 -> % player death: if the player has a scape, use it! otherwise red screen @todo Right now we force revive and don't reset the HP.
|
||||
% @todo send_0115(get(gid), 16#ffffffff, LV=1, EXP=idk, Money=1000), % apparently sent everytime you die...
|
||||
% use scape
|
||||
@ -639,8 +670,15 @@ handle(16#021f, << Uni:32/little-unsigned-integer, _/bits >>) ->
|
||||
% 0220
|
||||
% force reloading the character and data files (hack)
|
||||
{ok, User} = egs_user_model:read(get(gid)),
|
||||
if User#egs_user_model.partypid =:= undefined ->
|
||||
ignore;
|
||||
true ->
|
||||
%% @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)
|
||||
psu_party:stop(User#egs_user_model.partypid)
|
||||
end,
|
||||
Area = User#egs_user_model.area,
|
||||
NewRow = User#egs_user_model{area=Area#psu_area{questid=1120000, zoneid=undefined}},
|
||||
NewRow = User#egs_user_model{partypid=undefined, area=Area#psu_area{questid=1120000, zoneid=undefined}},
|
||||
egs_user_model:write(NewRow),
|
||||
area_load(Area#psu_area.questid, Area#psu_area.zoneid, Area#psu_area.mapid, User#egs_user_model.entryid)
|
||||
end;
|
||||
@ -654,20 +692,32 @@ handle(16#0302, _) ->
|
||||
%% We must take extra precautions to handle different versions of the game correctly.
|
||||
%% Disregard the name sent by the server in later versions of the game. 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 and forces it to talk like in the tutorial mission it seems FromTypeID, FromGID and Name are both 0.
|
||||
handle(16#0304, Data) ->
|
||||
{ok, User} = egs_user_model:read(get(gid)),
|
||||
case get(version) of
|
||||
0 -> % AOTI v2.000
|
||||
<< _:64, Modifiers:128/bits, Message/bits >> = Data;
|
||||
<< FromTypeID:32/unsigned-integer, FromGID:32/little-unsigned-integer, Modifiers:128/bits, Message/bits >> = Data;
|
||||
_ -> % Above
|
||||
<< _:64, Modifiers:128/bits, _:512, Message/bits >> = Data
|
||||
<< FromTypeID:32/unsigned-integer, FromGID:32/little-unsigned-integer, Modifiers:128/bits, _:512, Message/bits >> = Data
|
||||
end,
|
||||
|
||||
UserGID = get(gid),
|
||||
GID = if UserGID =:= FromGID ->
|
||||
UserGID;
|
||||
true ->
|
||||
%% @todo Check that FromGID is an NPC in the UserGID's party; that UserGID is the party leader; that the message is using party chat.
|
||||
FromGID
|
||||
end,
|
||||
|
||||
{ok, User} = egs_user_model:read(GID),
|
||||
|
||||
[LogName|_] = re:split((User#egs_user_model.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}])]]),
|
||||
{ok, List} = egs_user_model:select(all),
|
||||
lists:foreach(fun(X) -> X#egs_user_model.pid ! {psu_chat, get(gid), (User#egs_user_model.character)#characters.name, Modifiers, Message} end, List);
|
||||
lists:foreach(fun(X) -> X#egs_user_model.pid ! {psu_chat, FromTypeID, GID, (User#egs_user_model.character)#characters.name, Modifiers, Message} end, List);
|
||||
|
||||
%% @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.
|
||||
@ -717,17 +767,36 @@ handle(16#0812, _) ->
|
||||
|
||||
%% @doc NPC invite.
|
||||
%% @todo Also happening a 1506 -> 1507? Only on first selection from menu.
|
||||
%% @todo Apparently Unknown is ffffffff.
|
||||
%% @todo Also sent a 101a (NPC:16, PartyPos:16, ffffffff). Not sure about PartyPos.
|
||||
%% @todo Replace 1 by the actual character level.
|
||||
%% @todo PartyPos isn't handled yet, it's always 5.
|
||||
%% @todo Apparently Unknown is always ffffffff.
|
||||
%% @todo Also at the end send a 101a (NPC:16, PartyPos:16, ffffffff). Not sure about PartyPos.
|
||||
%% @todo Probably needs to make the NPC show up if he's invited while in-mission.
|
||||
handle(16#0813, Data) ->
|
||||
GID = get(gid),
|
||||
{ok, User} = egs_user_model:read(GID),
|
||||
%% Create NPC.
|
||||
<< _Unknown:32, NPCid:32/little-unsigned-integer >> = Data,
|
||||
NPC = proplists:get_value(NPCid, ?NPC),
|
||||
log("invited npc ~s", [NPC#psu_npc.name]),
|
||||
PartyPos = 5,
|
||||
send_022c(0, 2),
|
||||
send_1004(NPCid, NPCid, NPC#psu_npc.name, 1 + NPC#psu_npc.level, PartyPos, 0, 0, 0, 0);
|
||||
log("invited npcid ~b", [NPCid]),
|
||||
TmpNPCUser = psu_npc:user_init(NPCid, ((User#egs_user_model.character)#characters.mainlevel)#level.number),
|
||||
%% Create and join party.
|
||||
%% @todo Check if party already exists.
|
||||
{ok, PartyPid} = psu_party:start_link(GID),
|
||||
{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},
|
||||
SentNPCUser = NPCUser#egs_user_model{id=NPCid, character=SentNPCCharacter},
|
||||
%% @todo send_022c(0, 2),
|
||||
send_1004(npc_invite, SentNPCUser, PartyPos),
|
||||
send_101a(NPCid, PartyPos);
|
||||
|
||||
%% @todo Used in the tutorial. Not sure what it does. Give an item (the PA) maybe?
|
||||
handle(16#0a09, Data) ->
|
||||
log("~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 >>);
|
||||
|
||||
%% @doc Item description request.
|
||||
%% @todo Send something other than just "dammy".
|
||||
@ -776,7 +845,6 @@ handle(16#0c0e, _) ->
|
||||
end;
|
||||
|
||||
%% @doc Counter available mission list request handler.
|
||||
%% @todo Temporarily allow rare mission and LL all difficulties to all players.
|
||||
handle(16#0c0f, _) ->
|
||||
{ok, User} = egs_user_model:read(get(gid)),
|
||||
[{quests, _}, {bg, _}, {options, Options}] = proplists:get_value(User#egs_user_model.entryid, ?COUNTERS),
|
||||
@ -1077,10 +1145,11 @@ send(Packet) ->
|
||||
send_010d(User) ->
|
||||
GID = get(gid),
|
||||
CharGID = User#egs_user_model.id,
|
||||
<< _:640, CharBin/bits >> = psu_characters:character_user_to_binary(User#egs_user_model{lid=0}),
|
||||
CharLID = User#egs_user_model.lid,
|
||||
<< _:640, CharBin/bits >> = psu_characters:character_user_to_binary(User),
|
||||
send(<< 16#010d0300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64,
|
||||
1:32/little-unsigned-integer, 0:32, 16#00000300:32, 16#ffff0000:32, 0:32, CharGID:32/little-unsigned-integer,
|
||||
0:192, CharGID:32/little-unsigned-integer, 0:32, 16#ffffffff:32, CharBin/binary >>).
|
||||
0:192, CharGID:32/little-unsigned-integer, CharLID:32/little-unsigned-integer, 16#ffffffff:32, CharBin/binary >>).
|
||||
|
||||
%% @todo Possibly related to 010d. Just send seemingly safe values.
|
||||
send_0111(A, B) ->
|
||||
@ -1125,7 +1194,7 @@ send_0200(ZoneType) ->
|
||||
send_0201(User) ->
|
||||
GID = get(gid),
|
||||
CharGID = User#egs_user_model.id,
|
||||
CharBin = psu_characters:character_user_to_binary(User#egs_user_model{lid=0}),
|
||||
CharBin = psu_characters:character_user_to_binary(User),
|
||||
IsGM = 0,
|
||||
OnlineStatus = 0,
|
||||
GameVersion = 0,
|
||||
@ -1255,10 +1324,10 @@ send_0236() ->
|
||||
send(header(16#0236)).
|
||||
|
||||
%% @doc Send a chat command. Handled differently at v2.0000 and all versions starting somewhere above that.
|
||||
send_0304(FromGID, FromName, Modifiers, Message) ->
|
||||
send_0304(FromTypeID, FromGID, FromName, Modifiers, Message) ->
|
||||
case get(version) of
|
||||
0 -> send(<< 16#03040300:32, 0:288, 16#00001200:32, FromGID:32/little-unsigned-integer, Modifiers:128/bits, Message/bits >>);
|
||||
_ -> send(<< 16#03040300:32, 0:288, 16#00001200:32, FromGID:32/little-unsigned-integer, Modifiers:128/bits, FromName:512/bits, Message/bits >>)
|
||||
0 -> send(<< 16#03040300:32, 0:288, FromTypeID:32/unsigned-integer, FromGID:32/little-unsigned-integer, Modifiers:128/bits, Message/bits >>);
|
||||
_ -> send(<< 16#03040300:32, 0:288, FromTypeID:32/unsigned-integer, FromGID:32/little-unsigned-integer, Modifiers:128/bits, FromName:512/bits, Message/bits >>)
|
||||
end.
|
||||
|
||||
%% @todo Force send a new player location. Used for warps.
|
||||
@ -1271,6 +1340,12 @@ send_0503(#pos{x=PrevX, y=PrevY, z=PrevZ, dir=_}) ->
|
||||
16#1000:16, IntDir:16/little-unsigned-integer, PrevX:32/little-float, PrevY:32/little-float, PrevZ:32/little-float, 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, 1:32/little-unsigned-integer >>).
|
||||
|
||||
%% @todo NPC inventory. Guessing it's only for NPC characters...
|
||||
send_0a04(NPCGID) ->
|
||||
GID = get(gid),
|
||||
{ok, Bin} = file:read_file("p/packet0a04.bin"),
|
||||
send(<< 16#0a040300:32, 0:32, 16#00001d00:32, NPCGID:32/little-unsigned-integer, 0:64, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, Bin/binary >>).
|
||||
|
||||
%% @todo Inventory related. No idea what it does.
|
||||
send_0a05() ->
|
||||
send(header(16#0a05)).
|
||||
@ -1364,23 +1439,38 @@ send_0d05() ->
|
||||
|
||||
%% @todo Add a character (NPC or real) to the party members on the right of the screen.
|
||||
%% @todo NPCid is 65535 for normal characters.
|
||||
%% @todo Apparently the 4 location ids are set to 0 when inviting an NPC in the lobby
|
||||
send_1004(GID, NPCid, Name, Level, PartyPos, QuestID, ZoneID, MapID, EntryID) ->
|
||||
UCS2Name = << << X:8, 0:8 >> || X <- Name >>,
|
||||
PaddingSize = (64 - byte_size(UCS2Name)) * 8,
|
||||
send(<< (header(16#1004))/binary, 0:32, %% first 0:32, should be 0:16, something:16
|
||||
GID:32/little-unsigned-integer, 0:64, UCS2Name/binary, 0:PaddingSize,
|
||||
%% @todo Apparently the 4 location ids are set to 0 when inviting an NPC in the lobby - NPCs have their location set to 0 when in lobby; also odd value before PartyPos related to missions
|
||||
%% @todo Not sure about LID. But seems like it.
|
||||
send_1004(Type, User, PartyPos) ->
|
||||
io:format("~p ~p", [User, PartyPos]),
|
||||
|
||||
[TypeID, LID, SomeFlag] = case Type of
|
||||
npc_mission -> [16#00001d00, PartyPos, 2];
|
||||
npc_invite -> [0, 16#ffffffff, 3];
|
||||
_ -> 1 %% seems to be for players
|
||||
end,
|
||||
|
||||
#egs_user_model{id=GID, character=Character, area={psu_area, QuestID, ZoneID, MapID}, entryid=EntryID} = User,
|
||||
#characters{npcid=NPCid, name=Name, mainlevel=MainLevel} = Character,
|
||||
Level = MainLevel#level.number,
|
||||
send(<< (header(16#1004))/binary, TypeID:32,
|
||||
GID:32/little-unsigned-integer, 0:64, Name/binary,
|
||||
Level:16/little-unsigned-integer, 16#ffff:16,
|
||||
16#0301:16, PartyPos:8, 1, %% 03 before PartyPos, sometimes is 02 too?
|
||||
SomeFlag, 1, PartyPos:8, 1,
|
||||
NPCid:16/little-unsigned-integer, 0:16,
|
||||
%% over 512 it's sometimes just full of 0s
|
||||
|
||||
%% Odd unknown values. PA related? No idea. Values on invite, 0 in-mission.
|
||||
16#00001f08:32, 0:32, 16#07000000:32,
|
||||
16#04e41f08:32, 0:32, 16#01000000:32,
|
||||
16#64e41f08:32, 0:32, 16#02000000:32,
|
||||
16#64e41f08:32, 0:32, 16#03000000:32,
|
||||
16#64e41f08:32, 0:32, 16#12000000:32, 16#24e41f08:32,
|
||||
16#64e41f08:32, 0:32, 16#12000000:32,
|
||||
16#24e41f08:32,
|
||||
|
||||
QuestID:32/little-unsigned-integer, ZoneID:32/little-unsigned-integer, MapID:32/little-unsigned-integer, EntryID:32/little-unsigned-integer,
|
||||
16#ffffffff:32, 0:64, 16#01000000:32, 16#01000000:32, %% different values here too
|
||||
LID:32,
|
||||
0:64,
|
||||
16#01000000:32, 16#01000000:32, %% @todo first is current hp, second is max hp
|
||||
0:608 >>).
|
||||
|
||||
%% @todo Figure out what the packet is.
|
||||
@ -1426,6 +1516,10 @@ send_1015(QuestID) ->
|
||||
send_1016(PartyPos) ->
|
||||
send(<< (header(16#1016))/binary, PartyPos:32/little-unsigned-integer >>).
|
||||
|
||||
%% @todo No idea.
|
||||
send_101a(NPCid, PartyPos) ->
|
||||
send(<< (header(16#101a))/binary, NPCid:16/little-unsigned-integer, PartyPos:16/little-unsigned-integer, 16#ffffffff:32 >>).
|
||||
|
||||
%% @todo Totally unknown.
|
||||
send_1020() ->
|
||||
send(header(16#1020)).
|
||||
@ -1514,6 +1608,11 @@ send_1501() ->
|
||||
send_1512() ->
|
||||
send(<< (header(16#1512))/binary, 0:46080 >>).
|
||||
|
||||
%% @todo NPC related packet, sent when there's an NPC in the area.
|
||||
send_1601() ->
|
||||
{ok, Bin} = file:read_file("p/packet1601.bin"),
|
||||
send(<< (header(16#1601))/binary, Bin/binary >>).
|
||||
|
||||
%% @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.
|
||||
|
||||
37
src/psu/psu_npc.erl
Normal file
37
src/psu/psu_npc.erl
Normal file
@ -0,0 +1,37 @@
|
||||
%% 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/>.
|
||||
|
||||
-module(psu_npc).
|
||||
-compile(export_all).
|
||||
|
||||
-include("include/records.hrl").
|
||||
-include("include/psu/npc.hrl").
|
||||
|
||||
%% @todo Improve the NPC handling. Handle more than Lou.
|
||||
%% @todo Handle stats, experience, based on level.
|
||||
%% @todo Level shouldn't go below 1 or above 200.
|
||||
user_init(NPCid, BaseLevel) ->
|
||||
NPCGID = 16#ff000000 + mnesia:dirty_update_counter(counters, npcgid, 1),
|
||||
Settings = proplists:get_value(NPCid, ?NPC),
|
||||
TmpUCS2Name = << << X:8, 0:8 >> || X <- Settings#psu_npc.name >>,
|
||||
PaddingSize = 8 * (64 - byte_size(TmpUCS2Name)),
|
||||
UCS2Name = << TmpUCS2Name/binary, 0:PaddingSize >>,
|
||||
#psu_npc{race=Race, gender=Gender, class=Class, level=LevelDiff, appearance=Appearance} = Settings,
|
||||
Character = #characters{gid=NPCGID, slot=0, type=npc, npcid=NPCid, name=UCS2Name, race=Race, gender=Gender, class=Class, appearance=Appearance,
|
||||
mainlevel={level, BaseLevel + LevelDiff, 0}, blastbar=0, luck=2, money=0, playtime=0, stats={stats, 0, 0, 0, 0, 0, 0, 0}, se=[], currenthp=100, maxhp=100},
|
||||
#egs_user_model{id=NPCGID, state=online, character=Character, areatype=lobby, area={psu_area, 0, 0, 0}, entryid=0, pos={pos, 0.0, 0.0, 0.0, 0.0}}.
|
||||
122
src/psu/psu_party.erl
Normal file
122
src/psu/psu_party.erl
Normal file
@ -0,0 +1,122 @@
|
||||
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||
%% @copyright 2010 Loïc Hoguin.
|
||||
%% @doc Party gen_server.
|
||||
%%
|
||||
%% 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/>.
|
||||
|
||||
-module(psu_party).
|
||||
-behavior(gen_server).
|
||||
-export([start_link/1, stop/1, join/3, leave/2, get_instance/1, set_instance/2, remove_instance/1, get_npc/1]). %% API.
|
||||
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). %% gen_server.
|
||||
|
||||
-record(state, {free_spots, users, instancepid}).
|
||||
|
||||
%% API
|
||||
|
||||
%% @spec start_link() -> {ok,Pid::pid()}
|
||||
start_link(UserID) ->
|
||||
gen_server:start_link(?MODULE, [UserID], []).
|
||||
|
||||
%% @spec stop() -> stopped
|
||||
stop(PartyPid) ->
|
||||
gen_server:call(PartyPid, stop).
|
||||
|
||||
%% @doc PlayerType is either player or npc.
|
||||
join(PartyPid, PlayerType, UserID) ->
|
||||
gen_server:call(PartyPid, {join, PlayerType, UserID}).
|
||||
|
||||
leave(PartyPid, UserID) ->
|
||||
gen_server:cast(PartyPid, {leave, UserID}).
|
||||
|
||||
get_instance(PartyPid) ->
|
||||
gen_server:call(PartyPid, get_instance).
|
||||
|
||||
set_instance(PartyPid, InstancePid) ->
|
||||
gen_server:cast(PartyPid, {set_instance, InstancePid}).
|
||||
|
||||
remove_instance(PartyPid) ->
|
||||
gen_server:cast(PartyPid, remove_instance).
|
||||
|
||||
%% @doc Returns a list of NPC UserID.
|
||||
get_npc(PartyPid) ->
|
||||
gen_server:call(PartyPid, get_npc).
|
||||
|
||||
%% gen_server
|
||||
|
||||
init([UserID]) ->
|
||||
error_logger:info_report("a psu_party has been started"),
|
||||
{ok, {state, [1,2,3,4,5], [{0, leader, UserID}], undefined}}. %% 0 is party leader
|
||||
|
||||
%% @todo Probably want to broadcast to other players that you joined the party.
|
||||
%% @todo Handle party passwords.
|
||||
handle_call({join, PlayerType, UserID}, _From, State) ->
|
||||
List = case PlayerType of
|
||||
npc -> lists:reverse(State#state.free_spots);
|
||||
_ -> State#state.free_spots
|
||||
end,
|
||||
case List of
|
||||
[] ->
|
||||
{reply, {error, full}, State};
|
||||
[Spot|FreeSpots] ->
|
||||
Users = State#state.users,
|
||||
SavedFreeSpots = case PlayerType of
|
||||
npc -> lists:reverse(FreeSpots);
|
||||
_ -> FreeSpots
|
||||
end,
|
||||
{reply, {ok, Spot}, State#state{free_spots=SavedFreeSpots, users=[{Spot, PlayerType, UserID}|Users]}}
|
||||
end;
|
||||
|
||||
handle_call(get_instance, _From, State) ->
|
||||
{reply, {ok, State#state.instancepid}, State};
|
||||
|
||||
handle_call(get_npc, _From, State) ->
|
||||
List = [{Spot, UserID} || {Spot, PlayerType, UserID} <- State#state.users, PlayerType =:= npc],
|
||||
{reply, {ok, List}, State};
|
||||
|
||||
%% @todo Delete npc users when the party stops.
|
||||
handle_call(stop, _From, State) ->
|
||||
{stop, normal, stopped, State};
|
||||
|
||||
handle_call(_Request, _From, State) ->
|
||||
{reply, ignored, State}.
|
||||
|
||||
%% @todo Probably want to broadcast to other players that you left the party.
|
||||
%% @todo Stop the party when it becomes empty.
|
||||
%% @todo Delete npc users when the leader leaves.
|
||||
%% @todo Give leader to someone else.
|
||||
handle_cast({leave, _UserID}, State) ->
|
||||
%% @todo Do it.
|
||||
{noreply, State};
|
||||
|
||||
%% @todo Probably want to broadcast to other players that an instance started.
|
||||
handle_cast({set_instance, InstancePid}, State) ->
|
||||
{noreply, State#state{instancepid=InstancePid}};
|
||||
|
||||
%% @todo Probably want to broadcast to other players that an instance stopped.
|
||||
handle_cast(remove_instance, State) ->
|
||||
{noreply, State#state{instancepid=undefined}};
|
||||
|
||||
handle_cast(_Msg, State) ->
|
||||
{noreply, State}.
|
||||
|
||||
handle_info(_Info, State) ->
|
||||
{noreply, State}.
|
||||
|
||||
terminate(_Reason, _State) ->
|
||||
ok.
|
||||
|
||||
code_change(_OldVsn, State, _Extra) ->
|
||||
{ok, State}.
|
||||
Loading…
Reference in New Issue
Block a user