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

egs_game: Properly remove traps from the inventory when set.

Browse Source
This commit is contained in:
Loïc Hoguin 2010-09-28 23:47:10 +02:00
parent 9ca3b903c6
commit d3156361fe
2 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/egs_game.erl
View File

@ -415,11 +415,11 @@ event({item_equip, ItemIndex, TargetGID, TargetLID, A, B}, #state{gid=GID}) ->
ignore
end;
%% @todo Remove the trap set from the inventory.
event({item_set_trap, ItemIndex, TargetGID, TargetLID, A, B}, #state{gid=GID}) ->
{ok, User} = egs_user_model:read(GID),
Inventory = (User#egs_user_model.character)#characters.inventory,
{ItemID, _Variables} = lists:nth(ItemIndex + 1, Inventory),
egs_user_model:item_qty_add(GID, ItemIndex, -1),
<< Category:8, _:24 >> = << ItemID:32 >>,
psu_game:send(<< 16#01050300:32, 0:64, TargetGID:32/little, 0:64, 16#00011300:32, GID:32/little, 0:64,
TargetGID:32/little, TargetLID:32/little, ItemIndex:8, 9:8, Category:8, A:8, B:32/little >>);

27
src/egs_user_model.erl
View File

@ -19,7 +19,7 @@
-module(egs_user_model).
-behavior(gen_server).
-export([start_link/0, stop/0, count/0, read/1, select/1, write/1, delete/1, key_auth/3, login_auth/2]). %% API.
-export([start_link/0, stop/0, count/0, read/1, select/1, write/1, delete/1, key_auth/3, login_auth/2, item_qty_add/3]). %% API.
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). %% gen_server.
%% Use the module name for the server's name and for the table name.
@ -27,6 +27,7 @@
-define(TABLE, ?MODULE).
-include("include/records.hrl").
-include("include/psu/items.hrl").
-include_lib("stdlib/include/qlc.hrl").
%% @spec do(Q) -> Record
@ -74,6 +75,9 @@ key_auth(GID, AuthKey, Socket) ->
login_auth(Username, Password) ->
gen_server:call(?SERVER, {login_auth, Username, Password}).
item_qty_add(GID, ItemIndex, QuantityDiff) ->
gen_server:cast(?SERVER, {item_qty_add, GID, ItemIndex, QuantityDiff}).
%% gen_server
init([]) ->
@ -161,6 +165,27 @@ handle_cast(cleanup, State) ->
end),
{noreply, State};
%% @todo Consumable items.
handle_cast({item_qty_add, GID, ItemIndex, QuantityDiff}, State) ->
{atomic, [User]} = mnesia:transaction(fun() -> mnesia:read({?TABLE, GID}) end),
Character = User#egs_user_model.character,
Inventory = Character#characters.inventory,
{ItemID, Variables} = lists:nth(ItemIndex + 1, Inventory),
case Variables of
#psu_trap_item_variables{quantity=Quantity} ->
#psu_item{data=#psu_trap_item{max_quantity=MaxQuantity}} = proplists:get_value(ItemID, ?ITEMS),
Quantity2 = Quantity + QuantityDiff,
if Quantity2 =:= 0 ->
Inventory2 = string:substr(Inventory, 1, ItemIndex) ++ string:substr(Inventory, ItemIndex + 2);
Quantity2 > 0, Quantity2 =< MaxQuantity ->
Variables2 = Variables#psu_trap_item_variables{quantity=Quantity2},
Inventory2 = string:substr(Inventory, 1, ItemIndex) ++ [{ItemID, Variables2}] ++ string:substr(Inventory, ItemIndex + 2)
end
end,
Character2 = Character#characters{inventory=Inventory2},
mnesia:transaction(fun() -> mnesia:write(User#egs_user_model{character=Character2}) end),
{noreply, State};
handle_cast(_Msg, State) ->
{noreply, State}.