/* /secure/sefun/this_agent.c * from the Dead Souls Object Library * if 0 is the arg, returns the current agent, other wise * sets a new agent and returns the old * created by Descartes of Borg 951021 */ private static object Agent; varargs object this_agent(mixed val) { object old_agent; if( !val ) return Agent; old_agent = Agent; if( intp(val) ) Agent = 0; else Agent = val; return old_agent; }