anchor.diff:  
   supervisor() ->
   	receive
  -		{link, Pid} ->
  -			link(Pid);
   		{'EXIT', Pid, _} ->
   			supervisor_close(Pid);
   		_ ->
  
positive.code: supervisor_close(Pid) ->
  	try
  		User = egs_db:users_select_by_pid(Pid),
  		log(User#users.gid, "quit"),
  		lists:foreach(fun(Other) -> Other#users.pid ! {psu_player_unspawn, User} end, egs_db:users_select_others_in_area(User)),
  		egs_db:users_delete(User#users.gid)
  	catch _:_ ->
  		ignore
  	end.
  
negative.code: 	case ssl:transport_accept(LSocket, 5000) of
  		{ok, CSocket} ->
  			ssl:ssl_accept(CSocket),
  			Pid = spawn(?MODULE, process_init, [CSocket, SPid]),
  			ssl:controlling_process(CSocket, Pid);
  		_ ->
  			reload
  	end,
  