/* -*- LPC -*- */
/*
* $Locker: $
* $Id: creator.c,v 1.6 2001/06/16 05:09:29 presto Exp $
* $Log: creator.c,v $
* Revision 1.6 2001/06/16 05:09:29 presto
* Fixed warning. (Added dummy 'object' argument to query_object_type)
*
* Revision 1.5 2001/03/23 23:08:20 ceres
* Added go_invis param
*
* Revision 1.4 1999/02/10 04:14:12 ceres
* Modified to get creator news from the login handler
*
* Revision 1.3 1998/10/30 09:10:15 pinkfish
* Fix up the name variable to be a method call.
*
* Revision 1.2 1998/04/13 11:37:08 pinkfish
* Removed all the swap stuff fomr the creator object and
* generly cut it back :)
*
* Revision 1.1 1998/01/06 04:54:05 ceres
* Initial revision
*
*/
/* this is the creator player object */
/**
* This is the creator player object. It gives the creators the
* bonus extra commands needed by happy creators.
* @author Pinkfish
* @see /global/player.c
*/
#include <login_handler.h>
inherit "/global/wiz_file_comm";
#define ECHO_ALLOWED
/** @ignore yes */
void move_player_to_start(string bong, int new_pl, string c_name, string ident, int go_invis) {
if(!sscanf(file_name(previous_object()), "/secure/login#%*s") &&
!sscanf(file_name(previous_object()), "/secure/nlogin#%*s"))
return 0;
#ifndef NEW_DRIVER
//enable_wizard();
#endif
::move_player_to_start(bong, new_pl, c_name, ident, go_invis);
write(LOGIN_HANDLER->get_message("/doc/CREATORNEWS"));
if(query_invis()) {
tell_object(this_object(), "===> You are currently INVISIBLE! <===\n");
}
} /* move_player_to_start() */
/**
* This method tells us if the object is a creator or not.
* @return 1 if the object is a creator, 0 if not.
*/
int query_creator() { return 1; }
/** @ignore yes */
string query_object_type(object) {
if ( master()->query_senior( query_name() ) )
return "S";
return "C";
} /* query_object_type() */
/**
* This method is used by the snoop efun to allow creator to see
* what other players are doing.
* @param bing the message to receive
*/
void receive_snoop(string bing) {
tell_object(this_object(), "] "+bing);
} /* receive_snoop() */
