anchor.diff:  	MyBucket = <<"npc">>,
   	Id = rutil:auto_increment("npc"),
   	BinId = erlang:term_to_binary(Id),
  -	Obj1 = riakc_obj:new(MyBucket, BinId, "default"),
  +	NewNpc = get_new_npc(),
  +	Obj1 = riakc_obj:new(MyBucket, BinId, NewNpc),
   	riakc_pb_socket:put(Pid, Obj1),
   	NewState = {Pid, [Id | Npcs]},
   	{reply, {ok, Id}, NewState};
   
  -handle_call({add, Id}, From, State) ->
  +handle_call({remove, Id}, From, State) ->
  +	{Pid, Npcs} = State,
  +	NewState = {Pid, lists:delete(Id , Npcs)},
  +	MyBucket = <<"npc">>,
  +	BinId = erlang:term_to_binary(Id),
  +	riakc_pb_socket:delete(Pid, MyBucket, BinId),
  +	{reply, {ok, Id}, NewState};
  +
  +handle_call({online, Id}, From, State) ->
   	{Pid, Npcs} = State,
   	MyBucket = <<"npc">>,
   	BinId = erlang:term_to_binary(Id),
   	{ok, Fetched} = riakc_pb_socket:get(Pid, MyBucket, BinId),	%% check if key existing "BinId"
   	NewState = {Pid, [Id | Npcs]},
   	{reply, ok, NewState};
  +
  +handle_call({offline, Id}, From, State) ->
  +	{Pid, Npcs} = State,
  +	NewState = {Pid, lists:delete(Id , Npcs)},
  +	{reply, {ok, Id}, NewState};
   
   handle_call({is_on, Id}, From, State) ->
   	{Pid, Npcs} = State,
  
positive.code: -export([handle_call/3]).
  
  -export([add/0]).
  -export([add/1]).
  -export([is_on/1]).
  -export([lookup/1]).
  -export([remove/1]).
  -export([run/0]).
  -export([run/1]).
  
  
negative.code: 	{ok, Fetched1} = riakc_pb_socket:get(Pid, MyBucket, BinId),
  	Val1 = binary_to_term(riakc_obj:get_value(Fetched1)),
  	{reply, {ok, Val1}, State};
  
  handle_call({run, IntervalMSec}, From, State) ->
  	{Pid, Npcs} = State,
  