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

egs_game: Initial, probably buggy, implementation of npc_shop_buy.

Browse Source
This commit is contained in:
Loïc Hoguin 2010-09-30 00:32:32 +02:00
parent 1189753858
commit a79ad78309
5 changed files with 125 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
include/records.hrl
View File

@ -111,14 +111,14 @@
maxhp=100,
stats={stats, 1000, 2000, 3000, 4000, 5000, 6000, 7000},
se=[],
money=1000,
money=1000000,
blastbar=0,
luck=3,
playtime=0,
appearance,
onlinestatus=0,
options={options, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0},
inventory
inventory=[]
}). % also: shortcuts partnercards blacklist npcs flags...
%% @doc Table containing all mission objects.

34
src/egs_char_select.erl
View File

@ -77,32 +77,18 @@ event({char_select_enter, Slot, _BackToPreviousField}, State=#state{gid=GID}) ->
Class = psu_characters:class_binary_to_atom(ClassBin),
Appearance = psu_appearance:binary_to_tuple(Race, AppearanceBin),
Options = psu_characters:options_binary_to_tuple(OptionsBin),
Character = #characters{slot=Slot, name=Name, race=Race, gender=Gender, class=Class, appearance=Appearance, options=Options, % TODO: temporary set the slot here, won't be needed later
inventory= [{16#11010000, #psu_special_item_variables{}}, {16#11020000, #psu_special_item_variables{}}, {16#11020100, #psu_special_item_variables{}}, {16#11020200, #psu_special_item_variables{}},
{16#03010000, #psu_consumable_item_variables{quantity=10}},
{16#03020000, #psu_consumable_item_variables{quantity=3}},
{16#03010900, #psu_consumable_item_variables{quantity=1}},
{16#0c020900, #psu_trap_item_variables{quantity=10}},
{16#0c020a00, #psu_trap_item_variables{quantity=10}},
{16#0c020b00, #psu_trap_item_variables{quantity=10}},
{16#09061000, #psu_clothing_item_variables{color=0}},
{16#09061000, #psu_clothing_item_variables{color=1}},
{16#09061000, #psu_clothing_item_variables{color=2}},
{16#09061000, #psu_clothing_item_variables{color=3}},
{16#09061000, #psu_clothing_item_variables{color=4}},
{16#09061000, #psu_clothing_item_variables{color=5}},
{16#09061000, #psu_clothing_item_variables{color=6}},
{16#09061000, #psu_clothing_item_variables{color=7}},
{16#09061000, #psu_clothing_item_variables{color=8}},
{16#09061000, #psu_clothing_item_variables{color=9}},
{16#0a060c00, #psu_parts_item_variables{}},
{16#0a060d00, #psu_parts_item_variables{}},
{16#01010900, #psu_striking_weapon_item_variables{current_pp=99, max_pp=100, element=#psu_element{type=1, percent=50}}},
{16#01010a00, #psu_striking_weapon_item_variables{current_pp=99, max_pp=100, element=#psu_element{type=2, percent=50}}},
{16#01010b00, #psu_striking_weapon_item_variables{current_pp=99, max_pp=100, element=#psu_element{type=3, percent=50}}}]},
Character = #characters{slot=Slot, name=Name, race=Race, gender=Gender, class=Class, appearance=Appearance, options=Options}, % TODO: temporary set the slot here, won't be needed later
User2 = User#egs_user_model{state=online, character=Character, area=#psu_area{questid=1100000, zoneid=0, mapid=4}, entryid=5},
egs_user_model:write(User2),
psu_game:char_load(User2),
egs_user_model:item_add(GID, 16#11010000, #psu_special_item_variables{}),
egs_user_model:item_add(GID, 16#11020000, #psu_special_item_variables{}),
egs_user_model:item_add(GID, 16#11020100, #psu_special_item_variables{}),
egs_user_model:item_add(GID, 16#11020200, #psu_special_item_variables{}),
egs_user_model:item_add(GID, 16#01010900, #psu_striking_weapon_item_variables{current_pp=99, max_pp=100, element=#psu_element{type=1, percent=50}}),
egs_user_model:item_add(GID, 16#01010a00, #psu_striking_weapon_item_variables{current_pp=99, max_pp=100, element=#psu_element{type=2, percent=50}}),
egs_user_model:item_add(GID, 16#01010b00, #psu_striking_weapon_item_variables{current_pp=99, max_pp=100, element=#psu_element{type=3, percent=50}}),
{ok, User3} = egs_user_model:read(GID),
psu_game:char_load(User3),
{ok, egs_game, State}.
%% Internal.

37
src/egs_game.erl
View File

@ -525,9 +525,40 @@ event({npc_invite, NPCid}, #state{gid=GID}) ->
psu_game:send_101a(NPCid, PartyPos);
%% @todo Should be 0115(money) 010a03(confirm sale).
%% @todo We probably need to save the ShopID somewhere since it isn't given back here.
event({npc_shop_buy, ShopItemIndex, QuantityOrColor}, _State) ->
log("npc shop buy itemindex ~p quantity/color+1 ~p", [ShopItemIndex, QuantityOrColor]);
event({npc_shop_buy, ShopItemIndex, QuantityOrColor}, State=#state{gid=GID}) ->
ShopID = egs_user_model:shop_get(GID),
ItemID = lists:nth(ShopItemIndex + 1, proplists:get_value(ShopID, ?SHOPS)),
log("npc shop ~p buy itemid ~8.16.0b quantity/color+1 ~p", [ShopID, ItemID, QuantityOrColor]),
#psu_item{name=Name, rarity=Rarity, buy_price=BuyPrice, sell_price=SellPrice, data=Constants} = proplists:get_value(ItemID, ?ITEMS),
Variables = case element(1, Constants) of
psu_clothing_item ->
if QuantityOrColor >= 1, QuantityOrColor =< 10 ->
#psu_clothing_item_variables{color=QuantityOrColor - 1}
end;
psu_consumable_item ->
#psu_consumable_item_variables{quantity=QuantityOrColor};
psu_parts_item ->
#psu_parts_item_variables{};
psu_special_item ->
#psu_special_item_variables{};
psu_striking_weapon_item ->
#psu_striking_weapon_item{pp=PP, shop_element=Element} = Constants,
#psu_striking_weapon_item_variables{current_pp=PP, max_pp=PP, element=Element};
psu_trap_item ->
#psu_trap_item_variables{quantity=QuantityOrColor}
end,
egs_user_model:money_add(GID, -1 * BuyPrice),
ItemUUID = egs_user_model:item_add(GID, ItemID, Variables),
{ok, User} = egs_user_model:read(GID),
psu_proto:send_0115(User#egs_user_model{lid=0}, State), %% @todo This one is apparently broadcast to everyone in the same zone.
%% @todo Following command isn't done 100% properly.
UCS2Name = << << X:8, 0:8 >> || X <- Name >>,
NamePadding = 8 * (46 - byte_size(UCS2Name)),
<< Category:8, _:24 >> = << ItemID:32 >>,
RarityInt = Rarity - 1,
psu_game:send(<< 16#010a0300:32, 0:64, GID:32/little, 0:64, 16#00011300:32, GID:32/little, 0:64,
GID:32/little, 0:32, 2:16/little, 0:16, (psu_game:build_item_variables(ItemID, ItemUUID, Variables))/binary,
UCS2Name/binary, 0:NamePadding, RarityInt:8, Category:8, SellPrice:32/little, (psu_game:build_item_constants(Constants))/binary >>);
%% @todo Currently send the normal items shop for all shops, differentiate.
event({npc_shop_enter, ShopID}, #state{gid=GID}) ->

64
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, item_nth/2, item_qty_add/3, shop_enter/2, shop_leave/1]). %% API.
-export([start_link/0, stop/0, count/0, read/1, select/1, write/1, delete/1, key_auth/3, login_auth/2, item_nth/2, item_add/3, item_qty_add/3, shop_enter/2, shop_leave/1, shop_get/1, money_add/2]). %% 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.
@ -78,6 +78,9 @@ login_auth(Username, Password) ->
item_nth(GID, ItemIndex) ->
gen_server:call(?SERVER, {item_nth, GID, ItemIndex}).
item_add(GID, ItemID, Variables) ->
gen_server:call(?SERVER, {item_add, GID, ItemID, Variables}).
item_qty_add(GID, ItemIndex, QuantityDiff) ->
gen_server:cast(?SERVER, {item_qty_add, GID, ItemIndex, QuantityDiff}).
@ -87,6 +90,12 @@ shop_enter(GID, ShopID) ->
shop_leave(GID) ->
gen_server:cast(?SERVER, {shop_leave, GID}).
shop_get(GID) ->
gen_server:call(?SERVER, {shop_get, GID}).
money_add(GID, MoneyDiff) ->
gen_server:cast(?SERVER, {money_add, GID, MoneyDiff}).
%% gen_server
init([]) ->
@ -151,6 +160,47 @@ handle_call({item_nth, GID, ItemIndex}, _From, State) ->
{atomic, [User]} = mnesia:transaction(fun() -> mnesia:read({?TABLE, GID}) end),
{reply, lists:nth(ItemIndex + 1, (User#egs_user_model.character)#characters.inventory), State};
handle_call({item_add, GID, ItemID, Variables}, _From, State) ->
{atomic, [User]} = mnesia:transaction(fun() -> mnesia:read({?TABLE, GID}) end),
Character = User#egs_user_model.character,
Inventory = Character#characters.inventory,
Inventory2 = case Variables of
#psu_consumable_item_variables{quantity=Quantity} ->
#psu_item{data=#psu_consumable_item{max_quantity=MaxQuantity}} = proplists:get_value(ItemID, ?ITEMS),
{ItemID, #psu_consumable_item_variables{quantity=Quantity2}} = case lists:keyfind(ItemID, 1, Inventory) of
false -> New = true, {ItemID, #psu_consumable_item_variables{quantity=0}};
Tuple -> New = false, Tuple
end,
Quantity3 = Quantity + Quantity2,
if Quantity3 =< MaxQuantity ->
lists:keystore(ItemID, 1, Inventory, {ItemID, #psu_consumable_item_variables{quantity=Quantity3}})
end;
#psu_trap_item_variables{quantity=Quantity} ->
#psu_item{data=#psu_trap_item{max_quantity=MaxQuantity}} = proplists:get_value(ItemID, ?ITEMS),
{ItemID, #psu_trap_item_variables{quantity=Quantity2}} = case lists:keyfind(ItemID, 1, Inventory) of
false -> New = true, {ItemID, #psu_trap_item_variables{quantity=0}};
Tuple -> New = false, Tuple
end,
Quantity3 = Quantity + Quantity2,
if Quantity3 =< MaxQuantity ->
lists:keystore(ItemID, 1, Inventory, {ItemID, #psu_trap_item_variables{quantity=Quantity3}})
end;
_ ->
New = true,
if length(Inventory) < 60 ->
Inventory ++ [{ItemID, Variables}]
end
end,
Character2 = Character#characters{inventory=Inventory2},
mnesia:transaction(fun() -> mnesia:write(User#egs_user_model{character=Character2}) end),
if New =:= false -> {reply, 16#ffffffff, State};
true -> {reply, 1000 + mnesia:dirty_update_counter(counters, items, 1), State}
end;
handle_call({shop_get, GID}, _From, State) ->
{atomic, [User]} = mnesia:transaction(fun() -> mnesia:read({?TABLE, GID}) end),
{reply, User#egs_user_model.shopid, State};
handle_call(stop, _From, State) ->
{stop, normal, stopped, State};
@ -213,6 +263,18 @@ handle_cast({shop_leave, GID}, State) ->
end),
{noreply, State};
handle_cast({money_add, GID, MoneyDiff}, State) ->
mnesia:transaction(fun() ->
[User] = mnesia:wread({?TABLE, GID}),
Character = User#egs_user_model.character,
Money = Character#characters.money + MoneyDiff,
if Money >= 0 ->
Character2 = Character#characters{money=Money},
mnesia:write(User#egs_user_model{character=Character2})
end
end),
{noreply, State};
handle_cast(_Msg, State) ->
{noreply, State}.

41
src/psu/psu_game.erl
View File

@ -402,37 +402,33 @@ send_0a0a(Inventory) ->
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 >>).
%% @todo That ItemUUID have to be handled properly.
build_0a0a_item_variables([], 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], Acc) ->
build_0a0a_item_variables(Tail, [build_item_variables(ItemID, 0, Variables)|Acc]).
build_0a0a_item_variables([{ItemID, #psu_clothing_item_variables{color=ColorNb}}|Tail], Acc) ->
build_item_variables(ItemID, ItemUUID, #psu_clothing_item_variables{color=ColorNb}) ->
#psu_item{rarity=Rarity, data=#psu_clothing_item{colors=ColorsBin}} = proplists:get_value(ItemID, ?ITEMS),
ItemIndex = 0,
RarityInt = Rarity - 1,
ColorInt = if ColorNb < 5 -> ColorNb; true -> 16#10 + ColorNb - 5 end,
Bits = ColorNb * 8,
<< _Before:Bits, ColorA:4, ColorB:4, _After/bits >> = ColorsBin,
Bin = << 0:32, ItemIndex:32/little, ItemID:32, 0:88, RarityInt:8, ColorA:8, ColorB:8, ColorInt:8, 0:72 >>,
build_0a0a_item_variables(Tail, [Bin|Acc]);
build_0a0a_item_variables([{ItemID, #psu_consumable_item_variables{quantity=Quantity}}|Tail], Acc) ->
<< 0:32, ItemUUID:32/little, ItemID:32, 0:88, RarityInt:8, ColorA:8, ColorB:8, ColorInt:8, 0:72 >>;
build_item_variables(ItemID, ItemUUID, #psu_consumable_item_variables{quantity=Quantity}) ->
#psu_item{rarity=Rarity, data=#psu_consumable_item{max_quantity=MaxQuantity, action=Action}} = proplists:get_value(ItemID, ?ITEMS),
ItemIndex = 0,
RarityInt = Rarity - 1,
Bin = << 0:32, ItemIndex:32/little, ItemID:32, Quantity:32/little, MaxQuantity:32/little, 0:24, RarityInt:8, Action:8, 0:88 >>,
build_0a0a_item_variables(Tail, [Bin|Acc]);
build_0a0a_item_variables([{ItemID, #psu_parts_item_variables{}}|Tail], Acc) ->
<< 0:32, ItemUUID:32/little, ItemID:32, Quantity:32/little, MaxQuantity:32/little, 0:24, RarityInt:8, Action:8, 0:88 >>;
build_item_variables(ItemID, ItemUUID, #psu_parts_item_variables{}) ->
#psu_item{rarity=Rarity} = proplists:get_value(ItemID, ?ITEMS),
ItemIndex = 0,
RarityInt = Rarity - 1,
Bin = << 0:32, ItemIndex:32/little, ItemID:32, 0:88, RarityInt:8, 0:96 >>,
build_0a0a_item_variables(Tail, [Bin|Acc]);
<< 0:32, ItemUUID:32/little, ItemID:32, 0:88, RarityInt:8, 0:96 >>;
%% @todo Handle rank, rarity and hands properly.
build_0a0a_item_variables([{ItemID, Variables}|Tail], Acc) when element(1, Variables) =:= psu_striking_weapon_item_variables ->
build_item_variables(ItemID, ItemUUID, Variables) when element(1, Variables) =:= psu_striking_weapon_item_variables ->
#psu_striking_weapon_item_variables{is_active=IsActive, slot=Slot, current_pp=CurrentPP, max_pp=MaxPP,
element=#psu_element{type=EleType, percent=ElePercent}, pa=#psu_pa{type=PAType, level=PALevel}} = Variables,
ItemIndex = 0,
Rank = 4,
Grind = 0,
Rarity = 14, %% Rarity - 1
@ -442,25 +438,20 @@ build_0a0a_item_variables([{ItemID, Variables}|Tail], Acc) when element(1, Varia
both -> << 16#0000:16 >>;
_ -> error
end,
Bin = << IsActive:8, Slot:8, 0:16, ItemIndex:32/little, ItemID:32, 0:32, CurrentPP:16/little, MaxPP:16/little, 0:16, %% @todo What's this 0:16?
Grind:4, Rank:4, Rarity:8, EleType:8, ElePercent:8, HandBin/binary, WeaponType:8, PAType:8, PALevel:8, 0:40 >>,
build_0a0a_item_variables(Tail, [Bin|Acc]);
build_0a0a_item_variables([{ItemID, #psu_special_item_variables{}}|Tail], Acc) ->
ItemIndex = 0,
<< IsActive:8, Slot:8, 0:16, ItemUUID:32/little, ItemID:32, 0:32, CurrentPP:16/little, MaxPP:16/little, 0:16, %% @todo What's this 0:16?
Grind:4, Rank:4, Rarity:8, EleType:8, ElePercent:8, HandBin/binary, WeaponType:8, PAType:8, PALevel:8, 0:40 >>;
build_item_variables(ItemID, ItemUUID, #psu_special_item_variables{}) ->
Action = case ItemID of
16#11010000 -> << 16#12020100:32 >>;
16#11020000 -> << 16#15000000:32 >>;
16#11020100 -> << 0:32 >>;
16#11020200 -> << 0:32 >>
end,
Bin = << 0:32, ItemIndex:32/little, ItemID:32, 0:24, 16#80:8, 0:56, 16#80:8, 0:32, Action/binary, 0:32 >>,
build_0a0a_item_variables(Tail, [Bin|Acc]);
build_0a0a_item_variables([{ItemID, #psu_trap_item_variables{quantity=Quantity}}|Tail], Acc) ->
<< 0:32, ItemUUID:32/little, ItemID:32, 0:24, 16#80:8, 0:56, 16#80:8, 0:32, Action/binary, 0:32 >>;
build_item_variables(ItemID, ItemUUID, #psu_trap_item_variables{quantity=Quantity}) ->
#psu_item{rarity=Rarity, data=#psu_trap_item{max_quantity=MaxQuantity}} = proplists:get_value(ItemID, ?ITEMS),
ItemIndex = 0,
RarityInt = Rarity - 1,
Bin = << 0:32, ItemIndex:32/little, ItemID:32, Quantity:32/little, MaxQuantity:32/little, 0:24, RarityInt:8, 0:96 >>,
build_0a0a_item_variables(Tail, [Bin|Acc]).
<< 0:32, ItemUUID:32/little, ItemID:32, Quantity:32/little, MaxQuantity:32/little, 0:24, RarityInt:8, 0:96 >>.
build_0a0a_item_constants([], Acc) ->
Bin = iolist_to_binary(lists:reverse(Acc)),