From 71c2f729208cecb039e2bd753a50b55c2788f2d0 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 2 Jan 2019 01:46:34 +0100 Subject: Bounties? Somehow, Dialyzer does not see the type issues with src/bounty/bnt_join_battle.erl, but there are btl_character and rst_character mix-ups. --- src/bounty/bnt_grant_land.erl | 58 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 src/bounty/bnt_grant_land.erl (limited to 'src/bounty/bnt_grant_land.erl') diff --git a/src/bounty/bnt_grant_land.erl b/src/bounty/bnt_grant_land.erl new file mode 100644 index 0000000..1a8a62e --- /dev/null +++ b/src/bounty/bnt_grant_land.erl @@ -0,0 +1,58 @@ +-module(bnt_grant_land). + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +-export([attempt/1]). + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +-spec attempt (ataxia_id:type()) -> map_map:type(). +attempt (OwnerID) -> + Map = map_map:default(OwnerID), + + {ok, MapID} = + ataxia_client:add + ( + map_db, + ataxia_security:allow_only(ataxia_security:any()), + ataxia_security:allow_only(ataxia_security:user_from_id(OwnerID)), + Map + ), + + MapSummary = shr_map_summary:new(MapID, <<"Untitled Map">>), + + PlayerUpdateQueryOp = + ataxic:update_value + ( + ataxic:update_field + ( + shr_player:get_map_summaries_field(), + ataxic:apply_function + ( + lists, + append, + [ataxic:constant([MapSummary]), ataxic:current_value()] + ) + ) + ), + + ok = + ataxia_client:update + ( + player_db, + ataxia_security:admin(), + PlayerUpdateQueryOp, + OwnerID + ), + + Map. -- cgit v1.2.3-70-g09d2