egs_quests_db: Initial zone file support. Handle 1 set + script and text files.
This commit is contained in:
Loïc Hoguin
parent
401ffe5194
commit
3b05e4dfe3
@ -18,7 +18,7 @@
|
||||
%% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
-module(egs_files).
|
||||
-export([load_counter_pack/2, load_quest_xnr/1, load_script_bin/1, load_table_rel/1,
|
||||
-export([load_counter_pack/2, load_quest_xnr/1, load_script_bin/1, load_set_rel/4, load_table_rel/1,
|
||||
load_text_bin/1, load_unit_title_table_rel/2, nbl_pack/1, nbl_padded_size/1]).
|
||||
|
||||
%% @doc Build a counter's pack file, options and return them along with the background value.
|
||||
@ -215,6 +215,161 @@ load_script_bin(ScriptFilename) ->
|
||||
{ok, ParseTree} = egs_script_parser:parse(Tokens),
|
||||
egs_script_compiler:compile(ParseTree).
|
||||
|
||||
%% @doc Load a set configuration file and return a set_r*.rel binary.
|
||||
load_set_rel(ConfFilename, AreaID, Maps, FilePos) ->
|
||||
{ok, Settings} = file:consult(ConfFilename),
|
||||
NbMaps = length(Maps),
|
||||
AreaPtr = FilePos + 16,
|
||||
MapsPtr = FilePos + 24,
|
||||
{MapsBin, Ptrs} = load_set_rel_maps(Settings, Maps, MapsPtr, MapsPtr + NbMaps * 12),
|
||||
Ptrs2 = [FilePos + 20|Ptrs],
|
||||
Size = byte_size(MapsBin) + 24,
|
||||
{<< $N, $X, $R, 0, Size:32/little, AreaPtr:32/little, 0:32,
|
||||
AreaID:16/little, NbMaps:16/little, MapsPtr:32/little,
|
||||
MapsBin/binary >>, Ptrs2}.
|
||||
|
||||
load_set_rel_maps(Settings, Maps, MapsPos, GroupsPos) ->
|
||||
load_set_rel_maps(Settings, Maps, MapsPos, GroupsPos, [], [], []).
|
||||
load_set_rel_maps(_Settings, [], _MapsPos, _GroupsPos, Ptrs, GroupsAcc, MapsAcc) ->
|
||||
ObjectsBin = iolist_to_binary(lists:reverse(GroupsAcc)),
|
||||
MapsBin = iolist_to_binary(lists:reverse(MapsAcc)),
|
||||
{<< MapsBin/binary, ObjectsBin/binary >>, lists:sort(Ptrs)};
|
||||
load_set_rel_maps(Settings, [MapID|Tail], MapsPos, GroupsPos, Ptrs, GroupsAcc, MapsAcc) ->
|
||||
Map = proplists:get_value({map, MapID}, Settings),
|
||||
NbGroups = length(Map),
|
||||
{GroupsBin, Ptrs2} = load_set_rel_groups(Map, GroupsPos, GroupsPos + NbGroups * 40, Ptrs),
|
||||
MapBin = << MapID:16/little, NbGroups:16/little, GroupsPos:32/little, 0:32 >>,
|
||||
load_set_rel_maps(Settings, Tail, MapsPos + 12, GroupsPos + byte_size(GroupsBin), [MapsPos + 4|Ptrs2], [GroupsBin|GroupsAcc], [MapBin|MapsAcc]).
|
||||
|
||||
%% @todo 0:144, 16#ffff:16 0:32 can have some values.
|
||||
load_set_rel_groups(Groups, GroupsPos, ObjectsPos, Ptrs) ->
|
||||
load_set_rel_groups(Groups, GroupsPos, ObjectsPos, Ptrs, 0, [], []).
|
||||
load_set_rel_groups([], _GroupsPos, _ObjectsPos, Ptrs, _N, ObjectsAcc, GroupsAcc) ->
|
||||
ObjectsBin = iolist_to_binary(lists:reverse(ObjectsAcc)),
|
||||
GroupsBin = iolist_to_binary(lists:reverse(GroupsAcc)),
|
||||
{<< GroupsBin/binary, ObjectsBin/binary >>, Ptrs};
|
||||
load_set_rel_groups([Group|Tail], GroupsPos, ObjectsPos, Ptrs, N, ObjectsAcc, GroupsAcc) ->
|
||||
NbObjects = length(Group),
|
||||
{ObjectsBin, Ptrs2} = load_set_rel_objects(Group, ObjectsPos, ObjectsPos + NbObjects * 52, Ptrs),
|
||||
GroupBin = << 16#ffffffff:32, 0:144, 16#ffff:16, 0:32, N:32/little, 0:16, NbObjects:16/little, ObjectsPos:32/little >>,
|
||||
load_set_rel_groups(Tail, GroupsPos + 40, ObjectsPos + byte_size(ObjectsBin), [GroupsPos + 36|Ptrs2], N + 1, [ObjectsBin|ObjectsAcc], [GroupBin|GroupsAcc]).
|
||||
|
||||
load_set_rel_objects(Objects, StdPos, ParamsPos, Ptrs) ->
|
||||
load_set_rel_objects(Objects, StdPos, ParamsPos, Ptrs, [], []).
|
||||
load_set_rel_objects([], _StdPos, _ParamsPos, Ptrs, StdAcc, ParamsAcc) ->
|
||||
StdBin = iolist_to_binary(lists:reverse(StdAcc)),
|
||||
ParamsBin = iolist_to_binary(lists:reverse(ParamsAcc)),
|
||||
{<< StdBin/binary, ParamsBin/binary >>, Ptrs};
|
||||
load_set_rel_objects([{ObjType, ObjPos, ObjRot, ObjParams}|Tail], StdPos, ParamsPos, Ptrs, StdAcc, ParamsAcc) ->
|
||||
ParamsBin = load_set_rel_object_params(ObjType, ObjParams),
|
||||
ParamsSize = byte_size(ParamsBin),
|
||||
{ClassID, TypeID} = load_set_rel_object_id(ObjType),
|
||||
{PosX, PosY, PosZ} = ObjPos,
|
||||
{RotX, RotY, RotZ} = ObjRot,
|
||||
StdBin = << 16#ffffffff:32, ClassID:32/little, 16#ffffffff:32, 16#ffff:16, TypeID:16/little, 0:32,
|
||||
PosX:32/little-float, PosY:32/little-float, PosZ:32/little-float,
|
||||
RotX:32/little-float, RotY:32/little-float, RotZ:32/little-float,
|
||||
ParamsSize:32/little, ParamsPos:32/little >>,
|
||||
load_set_rel_objects(Tail, StdPos + 52, ParamsPos + ParamsSize, [StdPos + 48|Ptrs], [StdBin|StdAcc], [ParamsBin|ParamsAcc]).
|
||||
|
||||
load_set_rel_object_id(static_model) -> {4, 4};
|
||||
load_set_rel_object_id(invisible_block) -> {1, 10};
|
||||
load_set_rel_object_id(npc) -> {2, 18};
|
||||
load_set_rel_object_id(door) -> {5, 20};
|
||||
load_set_rel_object_id(entrance) -> {2, 26};
|
||||
load_set_rel_object_id(exit) -> {6, 27};
|
||||
load_set_rel_object_id(label) -> {2, 53};
|
||||
load_set_rel_object_id(chair) -> {2, 56};
|
||||
load_set_rel_object_id(uni_cube) -> {0, 60};
|
||||
load_set_rel_object_id(pp_cube) -> {0, 62};
|
||||
load_set_rel_object_id({raw, ClassID, TypeID}) -> {ClassID, TypeID}.
|
||||
|
||||
load_set_rel_object_params(static_model, Params) ->
|
||||
Model = proplists:get_value(model, Params),
|
||||
Size = proplists:get_value(size, Params, 1.0),
|
||||
<< Model:32/little, Size:32/little-float, 16#0000ff00:32,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32 >>;
|
||||
load_set_rel_object_params(invisible_block, Params) ->
|
||||
{Width, Height, Depth} = proplists:get_value(dimension, Params),
|
||||
<< Width:32/little-float, Height:32/little-float, Depth:32/little-float, 16#ffff0000:32,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, %% First ffffffff can be events required to enable (each being a 16-bit integer).
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32 >>; %% First ffffffff can be events required to disable.
|
||||
load_set_rel_object_params(npc, Params) ->
|
||||
Model = proplists:get_value(model, Params),
|
||||
ID = proplists:get_value(id, Params),
|
||||
{CanTalk, TalkRadius} = case proplists:get_value(talk_radius, Params) of undefined -> {0, 0.0}; T -> {1, T} end,
|
||||
{CanWalk, WalkRadius} = case proplists:get_value(walk_radius, Params) of undefined -> {0, 0.0}; W -> {1, W} end,
|
||||
<< Model:16/little, ID:16/little, TalkRadius:32/little-float, WalkRadius:32/little-float,
|
||||
CanWalk:8, 0:24, CanTalk:8, 0:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32 >>;
|
||||
%% @todo The byte right after the first ffff can take the value 1.
|
||||
%% @todo The 2 bytes starting the many ffffffff at the end can take an unknown value.
|
||||
load_set_rel_object_params(door, Params) ->
|
||||
Model = proplists:get_value(model, Params),
|
||||
Variant = proplists:get_value(variant, Params, 255),
|
||||
IsClosed = case proplists:get_value(closed, Params, false) of true -> 1; false -> 0 end,
|
||||
<< Model:32/little, IsClosed:8, 0:8, 16#ffff:16, 0:16, Variant:8, 0:8,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32 >>;
|
||||
%% @todo 16#2041 is unknown (10.0 float). Other unknown values following can be non-0. Probably entrance and camera movements.
|
||||
load_set_rel_object_params(entrance, Params) ->
|
||||
EntryID = proplists:get_value(entryid, Params),
|
||||
<< EntryID:16/little, 0:32, 16#2041:16, 0:1088 >>;
|
||||
%% @todo The 2 bytes after CameraMovZ can have unknown values.
|
||||
load_set_rel_object_params(exit, Params) ->
|
||||
EntryID = proplists:get_value(entryid, Params),
|
||||
Animation = proplists:get_value(animation, Params),
|
||||
AnimationID = case Animation of stop -> 0; walk -> 1; run -> 2 end,
|
||||
{ExitBoxRad, ExitBoxW, ExitBoxH, ExitBoxD} = proplists:get_value(exit_box, Params),
|
||||
{ExitMovX, ExitMovY, ExitMovZ} = proplists:get_value(exit_movement, Params),
|
||||
{CameraBoxRad, CameraBoxW, CameraBoxH, CameraBoxD} = proplists:get_value(camera_box, Params),
|
||||
{CameraMovX, CameraMovY, CameraMovZ} = proplists:get_value(camera_movement, Params),
|
||||
CommonBin = << ExitBoxRad:32/little-float, ExitBoxW:32/little-float, ExitBoxH:32/little-float, ExitBoxD:32/little-float,
|
||||
ExitMovX:32/little-float, ExitMovY:32/little-float, ExitMovZ:32/little-float, 0:192,
|
||||
CameraBoxRad:32/little-float, CameraBoxW:32/little-float, CameraBoxH:32/little-float, CameraBoxD:32/little-float,
|
||||
CameraMovX:32/little-float, CameraMovY:32/little-float, CameraMovZ:32/little-float,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32 >>,
|
||||
case proplists:get_value(type, Params) of
|
||||
counter ->
|
||||
CounterID = proplists:get_value(counterid, Params),
|
||||
<< CounterID:16/little, 1:16/little, 0:16, AnimationID:8, 1:8, EntryID:8, 0:16, 1:8, CommonBin/binary >>;
|
||||
map ->
|
||||
<< EntryID:16/little, 0:32, AnimationID:8, 1:8, 255:8, 0:16, 1:8, CommonBin/binary >>
|
||||
end;
|
||||
%% @todo Not sure about the box. It's probably wrong.
|
||||
%% @todo Can only have up to 10 different label ids.
|
||||
load_set_rel_object_params(label, Params) ->
|
||||
LabelID = proplists:get_value(labelid, Params),
|
||||
{Rad, X, Y, Z} = proplists:get_value(box, Params),
|
||||
<< Rad:32/little-float, X:32/little-float, Y:32/little-float, Z:32/little-float, LabelID:8, 1:8, 0:16,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32 >>;
|
||||
%% @todo Many unknown values...
|
||||
load_set_rel_object_params(chair, Params) ->
|
||||
ID = proplists:get_value(id, Params),
|
||||
ActionRadius = 1.0,
|
||||
UnknownA = -20.0,
|
||||
UnknownB = 30.0,
|
||||
UnknownC = 110.0,
|
||||
UnknownD = -6.0,
|
||||
StandUpMoveDistance = 13.0, %% If not big enough, can't stand up. 13.0 sounds good for all chairs so far.
|
||||
UnknownE = 94.0,
|
||||
<< ID:32/little, ActionRadius:32/little-float, 0, 1, 1, 0, UnknownA:32/little-float, UnknownB:32/little-float,
|
||||
UnknownC:32/little-float, 0:32, UnknownD:32/little-float, StandUpMoveDistance:32/little-float, UnknownE:32/little-float >>;
|
||||
%% @todo First ffff sometimes is 0, find out why.
|
||||
load_set_rel_object_params(uni_cube, Params) ->
|
||||
I = proplists:get_value(i, Params),
|
||||
EntryID = proplists:get_value(entryid, Params),
|
||||
<< I:8, EntryID:16/little, 0:8,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32,
|
||||
16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32, 16#ffffffff:32 >>;
|
||||
%% @todo First ffff can be that same old unknown type of value.
|
||||
%% @todo First byte set to 1 = hidden?
|
||||
load_set_rel_object_params(pp_cube, _Params) ->
|
||||
<< 0:32, 16#ffffffff:32, 16#ffffffff:32 >>;
|
||||
%% @doc Raw binary, used for testing.
|
||||
load_set_rel_object_params({raw, _ClassID, _TypeID}, ParamsBin) ->
|
||||
ParamsBin.
|
||||
%% @todo ghosts: NbGhosts:32, Width:32/float, Unknown:32/float
|
||||
|
||||
%% @doc Load a counter configuration file and return a table.rel binary along with its pointers array.
|
||||
load_table_rel(ConfFilename) ->
|
||||
{ok, Settings} = file:consult(ConfFilename),
|
||||
|
||||
@ -262,7 +262,7 @@ event({counter_enter, CounterID, FromZoneID, FromMapID, FromEntryID}, State=#sta
|
||||
User = OldUser#egs_user_model{areatype=counter, area={psu_area, 16#7fffffff, 0, 0}, entryid=0, prev_area=FromArea, prev_entryid=FromEntryID},
|
||||
egs_user_model:write(User),
|
||||
QuestData = egs_quests_db:quest(0),
|
||||
ZoneFile = "data/lobby/counter.zone.nbl",
|
||||
{ok, ZoneData} = file:read_file("data/lobby/counter.zone.nbl"),
|
||||
%% broadcast unspawn to other people
|
||||
{ok, UnspawnList} = egs_user_model:select({neighbors, OldUser}),
|
||||
lists:foreach(fun(Other) -> Other#egs_user_model.pid ! {egs, player_unspawn, User} end, UnspawnList),
|
||||
@ -272,7 +272,7 @@ event({counter_enter, CounterID, FromZoneID, FromMapID, FromEntryID}, State=#sta
|
||||
psu_proto:send_0a05(State),
|
||||
psu_proto:send_010d(User#egs_user_model{lid=0}, State),
|
||||
psu_proto:send_0200(0, mission, State),
|
||||
psu_proto:send_020f(ZoneFile, 0, 255, State),
|
||||
psu_proto:send_020f(ZoneData, 0, 255, State),
|
||||
State2 = State#state{areanb=State#state.areanb + 1},
|
||||
psu_proto:send_0205(User#egs_user_model{lid=0}, 0, State2),
|
||||
psu_proto:send_100e(CounterID, "Counter", State2),
|
||||
|
||||
@ -19,9 +19,11 @@
|
||||
|
||||
-module(egs_quests_db).
|
||||
-behavior(gen_server).
|
||||
-export([start_link/0, stop/0, quest/1, reload/0]). %% API.
|
||||
-export([start_link/0, stop/0, quest/1, zone/2, reload/0]). %% API.
|
||||
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). %% gen_server.
|
||||
|
||||
-record(state, {quests_bin=[], zones_bin=[]}).
|
||||
|
||||
%% Use the module name for the server's name.
|
||||
-define(SERVER, ?MODULE).
|
||||
|
||||
@ -39,6 +41,10 @@ stop() ->
|
||||
quest(QuestID) ->
|
||||
gen_server:call(?SERVER, {quest, QuestID}).
|
||||
|
||||
%% @spec zone(QuestID, ZoneID) -> binary()
|
||||
zone(QuestID, ZoneID) ->
|
||||
gen_server:call(?SERVER, {zone, QuestID, ZoneID}).
|
||||
|
||||
%% @spec reload() -> ok
|
||||
reload() ->
|
||||
gen_server:cast(?SERVER, reload).
|
||||
@ -46,12 +52,15 @@ reload() ->
|
||||
%% gen_server.
|
||||
|
||||
init([]) ->
|
||||
{ok, []}.
|
||||
{ok, #state{}}.
|
||||
|
||||
%% @doc Possible keys: quest.
|
||||
handle_call({Key, QuestID}, _From, State) ->
|
||||
{Quest, State2} = get_quest(QuestID, State),
|
||||
{reply, proplists:get_value(Key, Quest), State2};
|
||||
handle_call({quest, QuestID}, _From, State=#state{quests_bin=Cache}) ->
|
||||
{Quest, Cache2} = get_quest(QuestID, Cache),
|
||||
{reply, Quest, State#state{quests_bin=Cache2}};
|
||||
|
||||
handle_call({zone, QuestID, ZoneID}, _From, State=#state{zones_bin=Cache}) ->
|
||||
{Zone, Cache2} = get_zone(QuestID, ZoneID, Cache),
|
||||
{reply, Zone, State#state{zones_bin=Cache2}};
|
||||
|
||||
handle_call(stop, _From, State) ->
|
||||
{stop, normal, stopped, State};
|
||||
@ -60,7 +69,7 @@ handle_call(_Request, _From, State) ->
|
||||
{reply, ignored, State}.
|
||||
|
||||
handle_cast(reload, _State) ->
|
||||
{noreply, []};
|
||||
{noreply, #state{}};
|
||||
|
||||
handle_cast(_Msg, State) ->
|
||||
{noreply, State}.
|
||||
@ -96,11 +105,41 @@ get_quest(QuestID, Cache) ->
|
||||
UnitTitleBinFiles ++ [{data, "unit_title_table.rel", UnitTitleTableRelData, UnitTitleTableRelPtrs}]
|
||||
end,
|
||||
QuestNbl = egs_files:nbl_pack([{files, Files2}]),
|
||||
Quest = [{quest, QuestNbl}],
|
||||
Cache2 = [{QuestID, Quest}|Cache],
|
||||
{Quest, Cache2};
|
||||
Quest ->
|
||||
{Quest, Cache}
|
||||
Cache2 = [{QuestID, QuestNbl}|Cache],
|
||||
{QuestNbl, Cache2};
|
||||
QuestNbl ->
|
||||
{QuestNbl, Cache}
|
||||
end.
|
||||
|
||||
%% @doc Return a zone information either from the cache or from the configuration files.
|
||||
%% @todo FilePos, text.bin, other sets, enemies.
|
||||
get_zone(QuestID, ZoneID, Cache) ->
|
||||
case proplists:get_value({QuestID, ZoneID}, Cache) of
|
||||
undefined ->
|
||||
Dir = io_lib:format("priv/quests/~b/", [QuestID]),
|
||||
ZoneDir = Dir ++ io_lib:format("zone-~b/", [ZoneID]),
|
||||
{ok, QuestSettings} = file:consult(Dir ++ "quest.conf"),
|
||||
Zones = proplists:get_value(zones, QuestSettings),
|
||||
Zone = proplists:get_value(ZoneID, Zones),
|
||||
AreaID = proplists:get_value(areaid, Zone),
|
||||
Maps = proplists:get_value(maps, Zone),
|
||||
FilePos = 0, %% @todo
|
||||
{Set0, SetPtrs} = egs_files:load_set_rel(ZoneDir ++ io_lib:format("set_r~b.conf", [0]), AreaID, Maps, FilePos),
|
||||
ScriptBin = egs_files:load_script_bin(ZoneDir ++ "script.es"),
|
||||
ScriptBinSize = byte_size(ScriptBin),
|
||||
ScriptBin2 = egs_prs:compress(ScriptBin),
|
||||
ScriptBinSize2 = byte_size(ScriptBin2),
|
||||
ScriptBin3 = << ScriptBinSize:32/little, ScriptBinSize2:32/little, 0:32, 1:32/little, 0:96, ScriptBin2/binary >>,
|
||||
TextBin = egs_files:load_text_bin(ZoneDir ++ "text.bin.en_US.txt"),
|
||||
ZoneNbl = egs_files:nbl_pack([{files, [
|
||||
{data, "set_r0.rel", Set0, SetPtrs},
|
||||
{data, "script.bin", ScriptBin3, []},
|
||||
{data, "text.bin", TextBin, []}
|
||||
]}]),
|
||||
Cache2 = [{{QuestID, ZoneID}, ZoneNbl}|Cache],
|
||||
{ZoneNbl, Cache2};
|
||||
ZoneNbl ->
|
||||
{ZoneNbl, Cache}
|
||||
end.
|
||||
|
||||
load_unit_title_bin_files(Dir, ConfFilename) ->
|
||||
|
||||
@ -22,38 +22,103 @@
|
||||
|
||||
%% @doc Compile a script parsed using egs_script_lexer and egs_script_parser.
|
||||
compile(ParseTree) ->
|
||||
RootBin = root(ParseTree),
|
||||
FooterPos = byte_size(RootBin),
|
||||
FooterSize = 0, %% @todo
|
||||
<< $T, $S, $B, $2, FooterPos:32/little, FooterSize:32/little, RootBin/binary >>.
|
||||
{RootBin, Funcs} = root(ParseTree),
|
||||
FuncsPos = byte_size(RootBin),
|
||||
FuncsBin = funcs(Funcs),
|
||||
FuncsSize = byte_size(FuncsBin),
|
||||
<< $T, $S, $B, $2, FuncsPos:32/little, FuncsSize:32/little, RootBin/binary, FuncsBin/binary >>.
|
||||
|
||||
root(Routines) ->
|
||||
root(Routines, 0, []).
|
||||
root(nil, _Pos, Acc) ->
|
||||
iolist_to_binary(lists:reverse(Acc));
|
||||
root({Routine, Next}, Pos, Acc) ->
|
||||
Bin = routine(Routine),
|
||||
root(Routines, 0, [], []).
|
||||
root(nil, _Pos, Funcs, Acc) ->
|
||||
{iolist_to_binary(lists:reverse(Acc)), Funcs};
|
||||
root({{external, Name}, Next}, Pos, Funcs, Acc) ->
|
||||
root(Next, Pos, [Name|Funcs], Acc);
|
||||
root({Routine, Next}, Pos, Funcs, Acc) ->
|
||||
{Bin, Funcs2} = routine(Routine, Funcs),
|
||||
Pos2 = case Next of nil -> 0; _ -> Pos + byte_size(Bin) + 4 end,
|
||||
root(Next, Pos2, [<< Pos2:32/little, Bin/binary >>|Acc]).
|
||||
root(Next, Pos2, Funcs2, [<< Pos2:32/little, Bin/binary >>|Acc]).
|
||||
|
||||
routine({Type, Name, Instructions}) ->
|
||||
TypeBin = case Type of event -> << $E, $V, $E, $N, $T, $. >>; function -> << >> end,
|
||||
routine({Type, Name, Instrs}, Funcs) ->
|
||||
{TypeBin, Funcs2} = case Type of
|
||||
event -> {<< $E, $V, $E, $N, $T, $. >>, Funcs};
|
||||
function -> {<< >>, [Name|Funcs]}
|
||||
end,
|
||||
NameBin = list_to_binary(Name),
|
||||
Padding = 8 * (32 - byte_size(TypeBin) - byte_size(NameBin)),
|
||||
InstrsBin = instructions(Instructions),
|
||||
{_Inc, InstrsBin, VarsList} = instructions(Instrs, Funcs),
|
||||
InstrsSize = byte_size(InstrsBin) + 4,
|
||||
VarsBin = << 76:32/little, 0:32/little >>, %% @todo 0 vars for now.
|
||||
<< TypeBin/binary, NameBin/binary, 0:Padding,
|
||||
InstrsSize:32/little, VarsBin/binary, InstrsBin/binary, 0:32 >>.
|
||||
NbVars = length(VarsList),
|
||||
VarsBin = iolist_to_binary([<< VarN:32/little, VarPos:32/little >> || {VarN, VarPos} <- VarsList]),
|
||||
{<< TypeBin/binary, NameBin/binary, 0:Padding, InstrsSize:32/little,
|
||||
76:32/little, NbVars:32/little, InstrsBin/binary, 0:32, VarsBin/binary >>, Funcs2}.
|
||||
|
||||
instructions(Instrs) ->
|
||||
instructions(Instrs, []).
|
||||
instructions(nil, Acc) ->
|
||||
instructions(Instrs, Funcs) ->
|
||||
instructions(Instrs, Funcs, 0, [], []).
|
||||
instructions(Instrs, Funcs, Pos) ->
|
||||
instructions(Instrs, Funcs, Pos, [], []).
|
||||
instructions(nil, _Funcs, Pos, Acc, VarsAcc) ->
|
||||
{Pos, iolist_to_binary(lists:reverse(Acc)), lists:reverse(lists:flatten(VarsAcc))};
|
||||
instructions({Instr, Next}, Funcs, Pos, Acc, VarsAcc) ->
|
||||
{Inc, Bin, Vars} = instruction(Instr, Funcs, Pos),
|
||||
instructions(Next, Funcs, Pos + Inc, [Bin|Acc], [Vars|VarsAcc]).
|
||||
|
||||
instruction({call, Name}, Funcs, Pos) ->
|
||||
N = find_func(Name, Funcs),
|
||||
{2, << 96:32/little, 16#ffffffff:32 >>, [{N, Pos + 1}]};
|
||||
instruction({'case', Tests}, Funcs, Pos) ->
|
||||
{Pos2, Bin, Vars} = case_tests(Tests, Funcs, Pos),
|
||||
{Pos2 - Pos, Bin, Vars};
|
||||
instruction({push, N}, _Funcs, _Pos) when is_integer(N) ->
|
||||
{2, << 2:32/little, N:32/little >>, []};
|
||||
instruction({push, Str}, _Funcs, _Pos) when is_list(Str) ->
|
||||
L = length(Str),
|
||||
L2 = L + 4 - L rem 4,
|
||||
L3 = L2 div 4,
|
||||
Padding = 8 * (L2 - L),
|
||||
StrBin = list_to_binary(Str),
|
||||
{3 + L3, << 70:32/little, L3:32/little, StrBin/binary, 0:Padding >>, []};
|
||||
instruction({subcall, Name}, Funcs, Pos) ->
|
||||
N = find_func(Name, Funcs),
|
||||
{2, << 76:32/little, 16#ffffffff:32 >>, [{N, Pos + 1}]};
|
||||
instruction({syscall, N}, _Funcs, _Pos) ->
|
||||
{2, << 97:32/little, N:32/little >>, []}.
|
||||
|
||||
case_tests(Tests, Funcs, Pos) ->
|
||||
case_tests(Tests, Funcs, Pos, [], []).
|
||||
case_tests(nil, _Funcs, Pos, Acc, VarsAcc) ->
|
||||
{Pos, case_tests_end(lists:reverse(Acc)), VarsAcc};
|
||||
case_tests({{case_default, Instrs}, Next}, Funcs, Pos, Acc, VarsAcc) ->
|
||||
{Pos2, InstrsBin, VarsList} = instructions(Instrs, Funcs, Pos),
|
||||
case_tests(Next, Funcs, Pos2, [InstrsBin|Acc], [VarsList|VarsAcc]);
|
||||
case_tests({{case_test, N, Instrs}, Next}, Funcs, Pos, Acc, VarsAcc) ->
|
||||
{Pos2, InstrsBin, VarsList} = instructions(Instrs, Funcs, Pos + 7),
|
||||
Jump = Pos2 - Pos - 4,
|
||||
TestBin = << 2:32/little, N:32/little, 29:32/little, 18:32/little,
|
||||
45:32/little, Jump:32/little, 27:32/little, InstrsBin/binary >>,
|
||||
case_tests(Next, Funcs, Pos2, [TestBin|Acc], [VarsList|VarsAcc]).
|
||||
|
||||
case_tests_end(Tests) ->
|
||||
case_tests_end(Tests, []).
|
||||
case_tests_end([], Acc) ->
|
||||
iolist_to_binary(lists:reverse(Acc));
|
||||
instructions({Instr, Next}, Acc) ->
|
||||
instructions(Next, [instruction(Instr)|Acc]).
|
||||
case_tests_end([TestBin|Tail], Acc) ->
|
||||
TailBin = iolist_to_binary(Tail),
|
||||
Jump = byte_size(TailBin) div 4 + 2 * length(Tail),
|
||||
case_tests_end(Tail, [<< TestBin/binary, 44:32/little, Jump:32/little >>|Acc]).
|
||||
|
||||
instruction({push, N}) when is_integer(N) ->
|
||||
<< 2:32/little, N:32/little >>;
|
||||
instruction({syscall, N}) when is_integer(N) ->
|
||||
<< 97:32/little, N:32/little >>.
|
||||
funcs(Funcs) ->
|
||||
funcs(Funcs, []).
|
||||
funcs([], Acc) ->
|
||||
iolist_to_binary(Acc);
|
||||
funcs([Name|Tail], Acc) ->
|
||||
NameBin = list_to_binary(Name),
|
||||
Padding = 8 * (32 - byte_size(NameBin)),
|
||||
funcs(Tail, [<< NameBin/binary, 0:Padding >>|Acc]).
|
||||
|
||||
find_func(Name, Funcs) ->
|
||||
find_func(Name, lists:reverse(Funcs), 0).
|
||||
find_func(Name, [Func|_Tail], N) when Name =:= Func ->
|
||||
N;
|
||||
find_func(Name, [_Func|Tail], N) ->
|
||||
find_func(Name, Tail, N + 1).
|
||||
|
||||
@ -34,17 +34,56 @@ Rules.
|
||||
end;
|
||||
KeyWord -> {KeyWord, TokenLine}
|
||||
end}.
|
||||
-> : {token,{'->', TokenLine}}.
|
||||
[}{,] : {token, {list_to_atom(TokenChars), TokenLine}}.
|
||||
"(\\\^.|\\.|[^"])*" : %% Strip quotes.
|
||||
S = lists:sublist(TokenChars, 2, TokenLen - 2),
|
||||
{token, {string, TokenLine, string_gen(S)}}.
|
||||
-> : {token, {'->', TokenLine}}.
|
||||
[}{,;] : {token, {list_to_atom(TokenChars), TokenLine}}.
|
||||
\.{WS} : {end_token, {dot, TokenLine}}.
|
||||
{WS}+ : skip_token.
|
||||
|
||||
Erlang code.
|
||||
|
||||
reserved_word("call") -> call;
|
||||
reserved_word("case") -> 'case';
|
||||
reserved_word("default") -> default;
|
||||
reserved_word("end") -> 'end';
|
||||
reserved_word("event") -> event;
|
||||
reserved_word("external") -> external;
|
||||
reserved_word("function") -> function;
|
||||
reserved_word("push") -> push;
|
||||
reserved_word("subcall") -> subcall;
|
||||
reserved_word(_) -> false.
|
||||
|
||||
syscall("play_music") -> 253;
|
||||
syscall(_) -> false.
|
||||
syscall("disable_gamepad") -> 158;
|
||||
syscall("enable_gamepad") -> 159;
|
||||
syscall("play_music") -> 253;
|
||||
syscall("set_value_flag") -> 285;
|
||||
syscall(_) -> false.
|
||||
|
||||
string_gen([$\\|Cs]) ->
|
||||
string_escape(Cs);
|
||||
string_gen([C|Cs]) ->
|
||||
[C|string_gen(Cs)];
|
||||
string_gen([]) ->
|
||||
[].
|
||||
|
||||
string_escape([O1,O2,O3|S]) when O1 >= $0, O1 =< $7, O2 >= $0, O2 =< $7, O3 >= $0, O3 =< $7 ->
|
||||
[(O1*8 + O2)*8 + O3 - 73*$0|string_gen(S)];
|
||||
string_escape([$^,C|Cs]) ->
|
||||
[C band 31|string_gen(Cs)];
|
||||
string_escape([C|Cs]) when C >= $\000, C =< $\s ->
|
||||
string_gen(Cs);
|
||||
string_escape([C|Cs]) ->
|
||||
[escape_char(C)|string_gen(Cs)].
|
||||
|
||||
escape_char($n) -> $\n; %% \n = LF
|
||||
escape_char($r) -> $\r; %% \r = CR
|
||||
escape_char($t) -> $\t; %% \t = TAB
|
||||
escape_char($v) -> $\v; %% \v = VT
|
||||
escape_char($b) -> $\b; %% \b = BS
|
||||
escape_char($f) -> $\f; %% \f = FF
|
||||
escape_char($e) -> $\e; %% \e = ESC
|
||||
escape_char($s) -> $\s; %% \s = SPC
|
||||
escape_char($d) -> $\d; %% \d = DEL
|
||||
escape_char(C) -> C.
|
||||
|
||||
@ -17,21 +17,32 @@
|
||||
%% You should have received a copy of the GNU Affero General Public License
|
||||
%% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Nonterminals declarations declaration instructions instruction.
|
||||
Terminals integer name event function push syscall '->' ',' dot.
|
||||
Nonterminals declarations declaration instructions instruction case_tests case_test case_default.
|
||||
Terminals integer name string call case default end event external function push subcall syscall '->' ',' ';' dot.
|
||||
Rootsymbol declarations.
|
||||
|
||||
declarations -> declaration declarations : {'$1', '$2'}.
|
||||
declarations -> '$empty' : nil.
|
||||
declarations -> '$empty' : nil.
|
||||
|
||||
declaration -> event name '->' instructions dot : {event, unwrap('$2'), '$4'}.
|
||||
declaration -> event name '->' instructions dot : {event, unwrap('$2'), '$4'}.
|
||||
declaration -> external string dot : {external, unwrap('$2')}.
|
||||
declaration -> function name '->' instructions dot : {function, unwrap('$2'), '$4'}.
|
||||
|
||||
instructions -> instruction ',' instructions : {'$1', '$3'}.
|
||||
instructions -> instruction : {'$1', nil}.
|
||||
instructions -> instruction : {'$1', nil}.
|
||||
|
||||
instruction -> push integer : {push, unwrap('$2')}.
|
||||
instruction -> syscall : {syscall, unwrap('$1')}.
|
||||
instruction -> call string : {call, unwrap('$2')}.
|
||||
instruction -> 'case' case_tests 'end' : {'case', '$2'}.
|
||||
instruction -> push integer : {push, unwrap('$2')}.
|
||||
instruction -> push string : {push, unwrap('$2')}.
|
||||
instruction -> subcall string : {subcall, unwrap('$2')}.
|
||||
instruction -> syscall : {syscall, unwrap('$1')}.
|
||||
|
||||
case_tests -> case_test ';' case_tests : {'$1', '$3'}.
|
||||
case_tests -> case_test ';' case_default : {'$1', {'$3', nil}}.
|
||||
case_tests -> case_test : {'$1', nil}.
|
||||
case_test -> integer '->' instructions : {case_test, unwrap('$1'), '$3'}.
|
||||
case_default -> default '->' instructions : {case_default, '$3'}.
|
||||
|
||||
Erlang code.
|
||||
|
||||
|
||||
@ -49,7 +49,7 @@ area_load(QuestID, ZoneID, MapID, EntryID, State) ->
|
||||
QuestData = case QuestFile of
|
||||
nofile -> egs_quests_db:quest(QuestID);
|
||||
undefined -> undefined;
|
||||
Filename -> {ok, D} = file:read_file(Filename), D
|
||||
QFilename -> {ok, QD} = file:read_file(QFilename), QD
|
||||
end,
|
||||
[IsStart, RealZoneID, RealMapID, RealEntryID, NbSetsInQuest] = case AreaType of
|
||||
mission ->
|
||||
@ -67,6 +67,11 @@ area_load(QuestID, ZoneID, MapID, EntryID, State) ->
|
||||
[false, ZoneID, MapID, EntryID, ignored]
|
||||
end,
|
||||
[{file, ZoneFile}|ZoneSetInfo] = proplists:get_value([QuestID, RealZoneID], ?ZONES, [{file, undefined}]),
|
||||
ZoneData = case ZoneFile of
|
||||
nofile -> egs_quests_db:zone(QuestID, ZoneID);
|
||||
undefined -> undefined;
|
||||
ZFilename -> {ok, ZD} = file:read_file(ZFilename), ZD
|
||||
end,
|
||||
NbSetsInZone = case ZoneSetInfo of [] -> 1; [{sets, TmpNbSetsInZone}] -> TmpNbSetsInZone end,
|
||||
if AreaType =:= myroom ->
|
||||
AreaName = "Your Room";
|
||||
@ -83,13 +88,13 @@ area_load(QuestID, ZoneID, MapID, EntryID, State) ->
|
||||
User = OldUser#egs_user_model{instancepid=InstancePid, areatype=AreaType, area={psu_area, QuestID, RealZoneID, RealMapID}, entryid=RealEntryID},
|
||||
egs_user_model:write(User),
|
||||
RealSetID = if SetID > NbSetsInZone - 1 -> NbSetsInZone - 1; true -> SetID end,
|
||||
area_load(AreaType, IsStart, RealSetID, OldUser, User, QuestData, ZoneFile, AreaName, State).
|
||||
area_load(AreaType, IsStart, RealSetID, OldUser, User, QuestData, ZoneData, AreaName, State).
|
||||
|
||||
area_load(AreaType, IsStart, SetID, OldUser, User, QuestData, ZoneFile, AreaName, State) ->
|
||||
area_load(AreaType, IsStart, SetID, OldUser, User, QuestData, ZoneData, AreaName, State) ->
|
||||
#psu_area{questid=OldQuestID, zoneid=OldZoneID} = OldUser#egs_user_model.area,
|
||||
#psu_area{questid=QuestID, zoneid=ZoneID, mapid=_MapID} = User#egs_user_model.area,
|
||||
QuestChange = if OldQuestID /= QuestID, QuestData /= undefined -> true; true -> false end,
|
||||
if ZoneFile =:= undefined ->
|
||||
if ZoneData =:= undefined ->
|
||||
ZoneChange = false;
|
||||
true ->
|
||||
ZoneChange = if OldQuestID =:= QuestID, OldZoneID =:= ZoneID -> false; true -> true end
|
||||
@ -124,7 +129,7 @@ area_load(AreaType, IsStart, SetID, OldUser, User, QuestData, ZoneFile, AreaName
|
||||
end,
|
||||
psu_proto:send_010d(User#egs_user_model{lid=0}, State),
|
||||
psu_proto:send_0200(ZoneID, AreaType, State),
|
||||
psu_proto:send_020f(ZoneFile, SetID, SeasonID, State);
|
||||
psu_proto:send_020f(ZoneData, SetID, SeasonID, State);
|
||||
true -> ignore
|
||||
end,
|
||||
State2 = State#state{areanb=State#state.areanb + 1},
|
||||
|
||||
@ -1312,10 +1312,9 @@ send_020e(QuestData, #state{socket=Socket}) ->
|
||||
packet_send(Socket, << 16#020e0300:32, 16#ffff:16, 0:272, Size:32/little, 0:32, QuestData/binary, 0:32 >>).
|
||||
|
||||
%% @doc Send the zone file to be loaded.
|
||||
send_020f(Filename, SetID, SeasonID, #state{socket=Socket}) ->
|
||||
{ok, File} = file:read_file(Filename),
|
||||
Size = byte_size(File),
|
||||
packet_send(Socket, << 16#020f0300:32, 16#ffff:16, 0:272, SetID, SeasonID, 0:16, Size:32/little, File/binary >>).
|
||||
send_020f(ZoneData, SetID, SeasonID, #state{socket=Socket}) ->
|
||||
Size = byte_size(ZoneData),
|
||||
packet_send(Socket, << 16#020f0300:32, 16#ffff:16, 0:272, SetID, SeasonID, 0:16, Size:32/little, ZoneData/binary >>).
|
||||
|
||||
%% @doc Send the current UNIX time.
|
||||
send_0210(#state{socket=Socket, gid=DestGID, lid=DestLID}) ->
|
||||
|
||||
Loading…
Reference in New Issue
Block a user