anchor.diff:  
   -include("include/records.hrl").
   
  -%% @todo We have a conflict with the global state record. Solve it then rename this to state.
  --record(stateu, {
  +-record(state, {
   	users = [] :: list({GID::integer(), #users{}})
   }).
   
  
positive.code: 			end
  	end,
  	Character2 = Character#characters{inventory=Inventory2},
  	Users2 = lists:keydelete(User#users.gid, 1, State#stateu.users),
  	{reply, ok, State#stateu{users=[{GID, User#users{character=Character2}}|Users2]}};
  
  handle_call({shop_enter, GID, ShopID}, _From, State) ->
  	{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  	Users2 = lists:delete({GID, User}, State#stateu.users),
  	{reply, ok, State#stateu{users=[{GID, User#users{shopid=ShopID}}|Users2]}};
  
  handle_call({shop_leave, GID}, _From, State) ->
  	{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  	Users2 = lists:delete({GID, User}, State#stateu.users),
  	{reply, ok, State#stateu{users=[{GID, User#users{shopid=undefined}}|Users2]}};
  
  handle_call({shop_get, GID}, _From, State) ->
  	{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  	{reply, User#users.shopid, State};
  
  handle_call({money_add, GID, MoneyDiff}, _From, State) ->
  	{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  	Character = User#users.character,
  	Money = Character#characters.money + MoneyDiff,
  	if Money >= 0 ->
  		Character2 = Character#characters{money=Money},
  		Users2 = lists:delete({GID, User}, State#stateu.users),
  		{reply, ok, [{GID, User#users{character=Character2}}|Users2]}
  	end;
  
  
negative.code: 	{reply, ignored, State}.
  
  handle_cast({broadcast, Message, PlayersGID}, State) ->
  	[begin	{GID, #users{pid=Pid}} = lists:keyfind(GID, 1, State#state.users),
  			Pid ! Message
  	 end || GID <- PlayersGID],
  	{noreply, State};
  
  handle_cast({broadcast_all, Message}, State) ->
  	[Pid ! Message || {_GID, #users{pid=Pid}} <- State#state.users],
  	{noreply, State};
  
  handle_cast(_Msg, State) ->
  