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

game: Use pattern match instead of many lines of binding variables in send_0201.

Browse Source
This commit is contained in:
Loïc Hoguin 2010-06-27 20:03:01 +02:00
parent 9d130db310
commit e063590094
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/egs_game.erl
View File

@ -968,12 +968,7 @@ send_0200(CSocket, GID, ZoneType) ->
%% @todo Figure out what the other things are. %% @todo Figure out what the other things are.
send_0201(CSocket, GID, User, Char) -> send_0201(CSocket, GID, User, Char) ->
QuestID = User#users.questid, #users{gid=CharGID, lid=CharLID, questid=QuestID, zoneid=ZoneID, mapid=MapID, entryid=EntryID} = User,
ZoneID = User#users.zoneid,
MapID = User#users.mapid,
EntryID = User#users.entryid,
CharGID = User#users.gid,
CharLID = User#users.lid,
{ok, File} = file:read_file("p/packet0201.bin"), {ok, File} = file:read_file("p/packet0201.bin"),
<< _:96, A:32/bits, _:96, B:32/bits, _:256, D:32/bits, _:2656, After/bits >> = File, << _:96, A:32/bits, _:96, B:32/bits, _:256, D:32/bits, _:2656, After/bits >> = File,
Packet = << 16#02010300:32, 0:32, A/binary, CharGID:32/little-unsigned-integer, 0:64, B/binary, GID:32/little-unsigned-integer, Packet = << 16#02010300:32, 0:32, A/binary, CharGID:32/little-unsigned-integer, 0:64, B/binary, GID:32/little-unsigned-integer,