/*
C. Regis Wilson, t_pascal@oxy.edu
5/27/92   Spoofer.  Had to be done, I suppose!!

$generic_programmer:spoof any any any

@prop $help.spoof {"Spoof will send a message to the command line, exactly as typed.  However, players can use @spoof to check who is sending spoof messages.","","To send a message with prepositions, you must put your spoof line in quotes."}
*/

set_task_perms(player);
for x in ((player.location).contents)
  if ($object_utils:isa(x,$player))
    if (x.spoof)
      x:tell(player.name,"(",player,")**:",argstr);
     else
       x:tell(dobjstr);
     endif
   endif
endfor
return(0);


/*
5/27/92  Anti spoofer for above.  Sets $player.spoof to tell if the would like to see messages
which are spoofed.

@property $player.spoof 0

$player:@spoof any any any

@prop $help.@spoof {"Usage: @spoof [on|off]","","@spoof with no arguments will tell you your spoof guard status.  Turn it on or off with the options.  Spoofs will be marked by the player and number who spoofed."}
*/
if (args)
  typ = args[1];
  if (index(typ,"off"))
    player.spoof = 0;
  else
    player.spoof = (typ) ? 1 | 0;
  endif
endif
player:tell("Your spoof guard is ",(player.spoof) ? "on" | "off",".");
return(0);