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

game: Better weapon equip handling. Mostly temporary though.

Browse Source
This commit is contained in:
Loïc Hoguin 2010-06-19 22:04:42 +02:00
parent 95bf192071
commit 10eb51f7c4
10 changed files with 37 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
p/packet0105_1.bin
View File

Binary file not shown.

BIN
p/packet0105_armor.bin Normal file
View File

Binary file not shown.

BIN
p/packet0105_dagger.bin Normal file
View File

Binary file not shown.

BIN
p/packet0105_mgun.bin Normal file
View File

Binary file not shown.

BIN
p/packet0105_rcsm.bin Normal file
View File

Binary file not shown.

BIN
p/packet0105_saber.bin Normal file
View File

Binary file not shown.

BIN
p/packet0105_sword.bin Normal file
View File

Binary file not shown.

BIN
p/packet0105_twindaggers.bin Normal file
View File

Binary file not shown.

BIN
p/packet0105_twinguns.bin Normal file
View File

Binary file not shown.

47
src/egs_game.erl
View File

@ -557,23 +557,50 @@ handle(16#0102, _, _, _, _) ->
%% @todo Currently use a separate file for the data sent for the weapons.
handle(16#0105, CSocket, GID, _, Orig) ->
<< _:384, A:32/little-unsigned-integer, ItemID:8, Action:8, B:16, C:32/little-unsigned-integer, _/bits >> = Orig,
<< _:384, A:32/little-unsigned-integer, ItemID:8, Action:8, _:8, B:8, C:32/little-unsigned-integer, _/bits >> = Orig,
log(GID, "0105 action ~b item ~b (~b ~b ~b)", [Action, ItemID, A, B, C]),
Category = case ItemID of
% units would be 8, traps would be 12
19 -> 2; % armor
Y when Y =:= 5; Y =:= 6; Y =:= 7 -> 0; % clothes
_ -> 1 % weapons
end,
case Action of
1 -> % equip weapon
log(GID, "0105 - equip weapon"),
{ok, File} = file:read_file("p/packet0105_1.bin"),
1 -> % equip item
Filename = case ItemID of
% weapons
16 -> "p/packet0105_sword.bin";
13 -> "p/packet0105_twindaggers.bin";
15 -> "p/packet0105_dagger.bin";
9 -> "p/packet0105_rcsm.bin";
14 -> "p/packet0105_saber.bin";
8 -> "p/packet0105_mgun.bin";
X when X =:= 17; X =:= 18 ->
"p/packet0105_twinguns.bin";
% armor
19 -> "p/packet0105_armor.bin";
% clothes
X when X =:= 5; X =:= 6; X =:= 7 ->
none;
_ -> % default: do nothing
none
end,
case Filename of
none -> File = << >>;
_ -> {ok, File} = file:read_file(Filename)
end,
Packet = << 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, B:16/little-unsigned-integer, C: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,
File/binary >>,
egs_proto:packet_send(CSocket, Packet);
2 -> % unequip weapon
log(GID, "0105 - unequip weapon"),
2 -> % unequip item
Packet = << 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, B:16/little-unsigned-integer, C: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 >>,
egs_proto:packet_send(CSocket, Packet);
5 -> % drop item
ignore;
_ ->
log(GID, "0105 - ignored action ~b", [Action]),
ignored
ignore
end;
%% @doc Shop listing request. Currently return the normal item shop for everything.