#include <mudlib.h>
#include <daemons.h>

inherit DAEMON;
inherit REF_D;

#define SYNTAX "Syntax: ref [<ref_name>;]<variable>\n"

int cmd_ref( string a )
{
  string ref_name;
  mixed var, tmp;

  if( !a ) { notify_fail( SYNTAX ); return 0; } 
  seteuid( geteuid( previous_object() ) );

  if( sscanf( a, "%s;%s", ref_name, var ) < 2 )
  {
    ref_name = "default";
    var = a;
  }
  tmp = resolv_ref( var );
  if( var == tmp ) var = resolv_str( var );
  else var = tmp;

  write( wrap( "Reference \"" + ref_name + "\" set to " + identify( var ) ) );
  set_ref( ref_name, var );
  return 1;
}

int help()
{
  write( SYNTAX +
    "Effect: Sets reference <ref_name> to variable <variable>\n"+
    "NB The reference is stored in the player object using query() and set()\n"+
    "   as a mapping pair   ref[<ref_name>] == <variable>   where\n"+
    "   <ref_name> is a string and <variable> is any type of variable.\n"+
  "" );
}