anchor.diff:  	send(<< (header(16#1500))/binary, Name/binary, RaceBin:8, GenderBin:8, ClassBin:8, 0:3112, 16#010401:24, Slot:8, 0:64 >>).
   
   %% @todo Send an empty partner card list.
  -
   send_1501() ->
   	send(<< (header(16#1501))/binary, 0:32 >>).
   
   %% @todo Send an empty blacklist.
  -
   send_1512() ->
   	send(<< (header(16#1512))/binary, 0:46080 >>).
   
  
positive.code: 
  %% @doc Process the new connections.
  %%      Send an hello packet, authenticate the user and send him to character select.
  
  process() ->
  	case egs_proto:packet_recv(get(socket), 5000) of
  		{ok, Orig} ->
  
negative.code: 	?MODULE:accept(LSocket, MPid).
  
  %% @doc Initialize the client process by saving the socket to the process dictionary.
  process_init(CSocket, MPid) ->
  	link(MPid),
  	put(socket, CSocket),
  