anchor.diff:  %% gen_server.
   
   init([]) ->
  -	{ok, #stateu{}}.
  +	{ok, #state{}}.
   
   handle_call({find_by_pid, Pid}, _From, State) ->
  -	[User] = [User || {_GID, User} <- State#stateu.users, User#users.pid =:= Pid],
  +	[User] = [User || {_GID, User} <- State#state.users, User#users.pid =:= Pid],
   	{reply, User, State};
   
   handle_call({set_zone, GID, ZonePid, LID}, _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{zonepid=ZonePid, lid=LID}}|Users2]}};
  +	{GID, User} = lists:keyfind(GID, 1, State#state.users),
  +	Users2 = lists:delete({GID, User}, State#state.users),
  +	{reply, ok, State#state{users=[{GID, User#users{zonepid=ZonePid, lid=LID}}|Users2]}};
   
   handle_call({read, GID}, _From, State) ->
  -	{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  +	{GID, User} = lists:keyfind(GID, 1, State#state.users),
   	{reply, {ok, User}, State};
   
   handle_call({select, UsersGID}, _From, State) ->
   	Users = [begin
  -		{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  +		{GID, User} = lists:keyfind(GID, 1, State#state.users),
   		User
   	 end || GID <- UsersGID],
   	{reply, Users, State};
   
   handle_call({write, User}, _From, State) ->
  -	Users2 = lists:keydelete(User#users.gid, 1, State#stateu.users),
  -	{reply, ok, State#stateu{users=[{User#users.gid, User}|Users2]}};
  +	Users2 = lists:keydelete(User#users.gid, 1, State#state.users),
  +	{reply, ok, State#state{users=[{User#users.gid, User}|Users2]}};
   
   handle_call({delete, GID}, _From, State) ->
  -	Users2 = lists:keydelete(GID, 1, State#stateu.users),
  -	{reply, ok, State#stateu{users=Users2}};
  +	Users2 = lists:keydelete(GID, 1, State#state.users),
  +	{reply, ok, State#state{users=Users2}};
   
   handle_call({item_nth, GID, ItemIndex}, _From, State) ->
  -	{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  +	{GID, User} = lists:keyfind(GID, 1, State#state.users),
   	Item = lists:nth(ItemIndex + 1, (User#users.character)#characters.inventory),
   	{reply, Item, State};
   
   handle_call({item_add, GID, ItemID, Variables}, _From, State) ->
  -	{GID, User} = lists:keyfind(GID, 1, State#stateu.users),
  +	{GID, User} = lists:keyfind(GID, 1, State#state.users),
   	Character = User#users.character,
   	Inventory = Character#characters.inventory,
   	Inventory2 = case Variables of
  
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: 			end
  	end,
  	Character2 = Character#characters{inventory=Inventory2},
  	Users2 = lists:keydelete(User#users.gid, 1, State#state.users),
  	State2 = State#state{users=[{GID, User#users{character=Character2}}|Users2]},
  	case New of
  		false -> {reply, 16#ffffffff, State2};
  		true  -> {reply, length(Inventory2), State2}
  	end;
  
  handle_call({item_qty_add, GID, ItemIndex, QuantityDiff}, _From, State) ->
  	{GID, User} = lists:keyfind(GID, 1, State#state.users),
  	Character = User#users.character,
  	Inventory = Character#characters.inventory,
  	{ItemID, Variables} = lists:nth(ItemIndex + 1, Inventory),
  