Sancaros/egs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

psu_proto: Move send_0a0a to psu_proto without reviewing it.

Browse Source
This commit is contained in:
Loïc Hoguin 2011-02-27 00:01:25 +01:00
parent 18429b8d76
commit 3f1d1d2fb0
2 changed files with 32 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/psu/psu_game.erl
View File

@ -27,7 +27,7 @@
char_load(User, Client) ->
psu_proto:send_0d01(User#users.character, Client),
%% 0246
send_0a0a((User#users.character)#characters.inventory),
psu_proto:send_0a0a((User#users.character)#characters.inventory, Client),
psu_proto:send_1006(5, 0, Client), %% @todo The 0 here is PartyPos, save it in User.
psu_proto:send_1005(User#users.character, Client),
psu_proto:send_1006(12, Client),
@ -130,33 +130,3 @@ npc_load(Leader, [{PartyPos, NPCGID}|NPCList], Client) ->
%% @todo Consolidate the receive and send functions better.
send(Packet) ->
psu_proto:packet_send(get(socket), Packet).
%% @todo Handle more than just goggles.
send_0a0a(Inventory) ->
{ok, << _:68608/bits, Rest/bits >>} = file:read_file("p/packet0a0a.bin"),
GID = get(gid),
NbItems = length(Inventory),
ItemVariables = build_0a0a_item_variables(Inventory, 1, []),
ItemConstants = build_0a0a_item_constants(Inventory, []),
send(<< 16#0a0a0300:32, 16#ffff:16, 0:144, 16#00011300:32, GID:32/little, 0:64, NbItems:8, 0:8, 6:8, 0:72, 0:192, 0:2304, ItemVariables/binary, ItemConstants/binary, 0:13824, Rest/binary >>).
build_0a0a_item_variables([], _N, Acc) ->
Bin = iolist_to_binary(lists:reverse(Acc)),
Padding = 17280 - 8 * byte_size(Bin),
<< Bin/binary, 0:Padding >>;
build_0a0a_item_variables([{ItemID, Variables}|Tail], N, Acc) ->
build_0a0a_item_variables(Tail, N + 1, [psu_proto:build_item_variables(ItemID, N, Variables)|Acc]).
build_0a0a_item_constants([], Acc) ->
Bin = iolist_to_binary(lists:reverse(Acc)),
Padding = 34560 - 8 * byte_size(Bin),
<< Bin/binary, 0:Padding >>;
build_0a0a_item_constants([{ItemID, _Variables}|Tail], Acc) ->
#psu_item{name=Name, rarity=Rarity, sell_price=SellPrice, data=Data} = egs_items_db:read(ItemID),
UCS2Name = << << X:8, 0:8 >> || X <- Name >>,
NamePadding = 8 * (46 - byte_size(UCS2Name)),
<< Category:8, _:24 >> = << ItemID:32 >>,
DataBin = psu_proto:build_item_constants(Data),
RarityInt = Rarity - 1,
Bin = << UCS2Name/binary, 0:NamePadding, RarityInt:8, Category:8, SellPrice:32/little, DataBin/binary >>,
build_0a0a_item_constants(Tail, [Bin|Acc]).

31
src/psu/psu_proto.erl
View File

@ -1486,6 +1486,37 @@ send_0a06(CharUser, #client{socket=Socket, gid=DestGID, lid=DestLID}) ->
Bin2 = iolist_to_binary([ << 16#ffffffff:32 >> || _N <- Blanks]),
packet_send(Socket, << 16#0a060300:32, DestLID:16/little, 0:48, DestGID:32/little, 0:64, 16#00011300:32, DestGID:32/little, 0:64, Bin/binary, Bin2/binary >>).
%% @todo Handle more than just goggles.
%% @todo This packet hasn't been reviewed at all yet.
send_0a0a(Inventory, #client{socket=Socket, gid=DestGID}) ->
{ok, << _:68608/bits, Rest/bits >>} = file:read_file("p/packet0a0a.bin"),
NbItems = length(Inventory),
ItemVariables = build_0a0a_item_variables(Inventory, 1, []),
ItemConstants = build_0a0a_item_constants(Inventory, []),
packet_send(Socket, << 16#0a0a0300:32, 16#ffff:16, 0:144, 16#00011300:32, DestGID:32/little, 0:64,
NbItems:8, 0:8, 6:8, 0:72, 0:192, 0:2304, ItemVariables/binary, ItemConstants/binary, 0:13824, Rest/binary >>).
build_0a0a_item_variables([], _N, Acc) ->
Bin = iolist_to_binary(lists:reverse(Acc)),
Padding = 17280 - 8 * byte_size(Bin),
<< Bin/binary, 0:Padding >>;
build_0a0a_item_variables([{ItemID, Variables}|Tail], N, Acc) ->
build_0a0a_item_variables(Tail, N + 1, [psu_proto:build_item_variables(ItemID, N, Variables)|Acc]).
build_0a0a_item_constants([], Acc) ->
Bin = iolist_to_binary(lists:reverse(Acc)),
Padding = 34560 - 8 * byte_size(Bin),
<< Bin/binary, 0:Padding >>;
build_0a0a_item_constants([{ItemID, _Variables}|Tail], Acc) ->
#psu_item{name=Name, rarity=Rarity, sell_price=SellPrice, data=Data} = egs_items_db:read(ItemID),
UCS2Name = << << X:8, 0:8 >> || X <- Name >>,
NamePadding = 8 * (46 - byte_size(UCS2Name)),
<< Category:8, _:24 >> = << ItemID:32 >>,
DataBin = psu_proto:build_item_constants(Data),
RarityInt = Rarity - 1,
Bin = << UCS2Name/binary, 0:NamePadding, RarityInt:8, Category:8, SellPrice:32/little, DataBin/binary >>,
build_0a0a_item_constants(Tail, [Bin|Acc]).
%% @doc Send an item's description.
send_0a11(ItemID, ItemDesc, #client{socket=Socket, gid=DestGID, lid=DestLID}) ->
Length = 1 + byte_size(ItemDesc) div 2,