ComDriver.c

 /****************************************************************************\
 *									      *
 *			C R E A T O R    O F   L E G E N D S		      *
 *				(AberMud Version 5)			      *
 *									      *
 *  The Creator Of Legends System is (C) Copyright 1989 Alan Cox, All Rights  *
 *  Reserved.		  						      *
 *									      *
 \****************************************************************************/

#include "System.h"
#include "User.h"

Module "Command Driver";
Version "1.16";
Author "----*(A)";

extern USER UserList[];
extern int Current_User;
extern FILE *Log_File;
extern char *RBitNames[],*OBitNames[],*PBitNames[];

/*
 *	1.00	AGC	Created this file
 *	1.03	AGC	Added miscellaneous command defns.
 *	1.04	AGC	Added horrible nasty AGOSII no password hack
 *	1.05	AGC	Added save/load userflag feature
 *	1.06    AGC     Fixed ! for no A/Wiz
 *	1.07	AGC	ANSI prototyping changes for 5.06
 *	1.08	AGC	Added command changes for 5.07
 *	1.09	AGC	Added command changes for 5.08
 *	1.10	AGC	SendUser queues text output for efficiency of comms
 *	1.11	AGC	No SendUser buffering now.. better IPC instead
 *	1.12	AGC	Backouts added to state machine for logins
 *	1.13	AGC	Added missing argument to fix registration bug
 *	1.14	AGC	'!' ovverride is now ':' override as '!' these days is repeat
 *	1.15	AGC	Whoops.. stop deleting nouns on failed logins!!!
 *	1.16	AGC	Strict ANSIfication
 */

/*
 *	Handle a line of input sent by a PLAY program, and decide what to
 *	do with it, by checking the status of the player in the User list
 *
 */

static UFF LoginUFF;	/* Login Routines Use This Buffer */

extern short LineFault[];

void Command_Driver(int us, short state, char *command)
{
	switch(state)
	{
		case AWAIT_NAME:	/* Reply to Name: */

				Name_Got(us,command);
				break;

		case AWAIT_PASSWORD:	/* Reply to Password: */

				Check_Password(us,command,1);
				break;

		case AWAIT_PASSRETRY:	/* Reply to 2nd Password: */

				Check_Password(us,command,0);
				break;

		case AWAIT_COMMAND:	/* Normal command */

				Run_Command(us,command);
				break;

		case AWAIT_EMAIL:
					/* Set email for */
				SetPlayerEmail(us,command);
				break;
				
		case AWAIT_PWSET:	/* Set a password for.... */

				LoginUFF.uff_Flag[9]=0;
				CreatePersona(us,command);
				break;

		case AWAIT_SETSEX:	/* What sex shall I make you */

				SetPlayerSex(us,command);
				break;
		case AWAIT_TEDIT:	/* Editing for tables */

				Tbl_Driver(us,command);
				break;

		case AWAIT_EDLIN:	/* Line editing in table */

				Tbl_EditLine(us,command);
				break;
		case AWAIT_PWVERIFY:	/* Password: on change pw */

				PWVerify((short)us,command);
				break;

		case AWAIT_PWNEW:	/* New password : */

				PWNew((short)us,command);
				break;

		case AWAIT_PWVERNEW:	/* And again to verify */

				PWNewVerify((short)us,command);
				break;
		
		case AWAIT_OE1:		/* Using EditObject/BeObject */

				Objedit_1((short)us,command);
				break;

		case AWAIT_OE2:

				Objedit_2((short)us,command);
				break;

		case AWAIT_OE3:

				Objedit_3((short)us,command);
				break;

		case AWAIT_OE4:

				Objedit_4((short)us,command);
				break;

		case AWAIT_OE5:

				Objedit_5((short)us,command);
				break;

		case AWAIT_OE6:

				Objedit_6((short)us,command);
				break;

		case AWAIT_OE7:

				Objedit_7((short)us,command);
				break;

		case AWAIT_OE8:
				Objedit_8((short)us,command);
				break;
		default:

				Log("User in invalid state(%d)",us);
				break;

	}
}


/*
 *	Send a message to a PLAY program permitting it to resume input
 */

void PermitInput(int u)
{
	if(UserList[u].us_Port==NULL)
		return;	/* User gone */
	SendUser(-2, "");	/* Flush outputs */
	SendNPacket(UserList[u].us_Port,PACKET_INPUT,1,0,0,0);
}

char *UserLastLine;	/* Pointer supplied for snoop */


/*
 *	Send a message to a user, allowing full printf formatting
 */

void BufOut(int u, char *y)
{
	char v;
	if(UserList[u].us_Port==NULL)
		return;
	while(strlen(y)>510)	/* Send in 512 byte blocks */
	{
		v=y[510];
		y[510]=0;
		SendTPacket(UserList[u].us_Port,PACKET_OUTPUT,y);
		y[510]=v;
		y+=510;
	}
	if(SendTPacket(UserList[u].us_Port,PACKET_OUTPUT,y)==-20)
		LineFault[u]=1;
}

void SendUser(int u, char *fmt, ...)
{
	static char x[4096];
	/* char v; */
	va_list va;
	
	UserLastLine=x;
	if(u==-1)
		return;
	if(u==-2)
		return;
		
	va_start(va, fmt);
	vsnprintf(x, 4096, fmt, va);
	va_end(va);
	BufOut(u,x);
}



/*
 *	The player has given a name - decide if it is new or old, and then
 *	set the player up so his/her next input goes to the right place
 *	The AGOSII version of this is hacked about to avoid asking for all
 *	of this un-needed Multi-User type stuff
 */

int Name_Got(int u, char *name)
{
	int ct=0;
	if(strlen(name)>MAXNAME)	/* Name too long */
	{
		SendUser(u,"Sorry that name is too long, try another.\n");
		PermitInput(u);
		return(0);
	}
	if(!strlen(name))		/* No Name - kick off */
	{
		SendTPacket(UserList[u].us_Port,PACKET_CLEAR,
				"");
		*UserList[u].us_Name=0;
		RemoveUser(u);
		return(0);
	}
	while(name[ct])			/* Check for letters only */
	{
		if(isupper(name[ct]))
			name[ct]=tolower(name[ct]);
		if((name[ct]<'a')||(name[ct]>'z'))
		{
			SendUser(u,
		"Sorry your choice of name must consist of letters only.\n");
			PermitInput(u);
			return(0);
		}
		ct++;
	}
/*
 *	We put the name to lowercase with a capital first letter.
 */
	name[0]=toupper(name[0]);
	strcpy(UserList[u].us_Name,name);
	UserList[u].us_State=AWAIT_PASSWORD;
	if(LoadPersona(name,&LoginUFF)==-1)	/* New player ? */
	{
#ifdef AGOS
/*
 *	Nasty hack job number 1
 */
		UserList[u].us_Record=PL_MALE;
		CreatePersona(u,"");
		PermitInput(u);
		return(0);
#else
/*
 *	Wait for new player to decide a sex
 */
#define REGISTER
#ifdef REGISTER
		SendUser(u,"Not registered.\n");
		SendUser(u,"By registering for this game you become a guest member of the computer\n");
		SendUser(u,"society, and the data given will be held for the administration of the\n");
		SendUser(u,"the society, and its security.\n\n");
#endif
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
			"What sex (M/F) shall I make you : ");
		UserList[u].us_State=AWAIT_SETSEX;
		PermitInput(u);
		return(0);
#endif
	}
#ifdef AGOS
/*
 *	The management wish to apologise in advance for this piece of code
 *	however it is short, and it seems to work...
 */
	Check_Password(u,LoginUFF.uff_Password,0);
	PermitInput(u);
	return(0);	/* Shudder */
#else
	SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,"Password: ");
	SendNPacket(UserList[u].us_Port,PACKET_ECHO,1,0,0,0); /* NOECHO */
	PermitInput(u);
	return(0);
#endif
}

/*
 *	The player has typed a password to an old persona. In the case of AGOSII
 *	it only seems that way - the password was typed by the game too
 *	see the routine above.
 */

int Check_Password(int u, char *pwentry, int retflg)
{
	TABLE *t;
	ITEM *place;
	PLAYER *p;
	int r;
/*
 *	Load The Persona Entry For Real
 */
	if((r=LoadPersona(UserList[u].us_Name,&LoginUFF))==-1)
	{
/*
 *	Something odd has happened, or the PURGE utility has been used
 */
		SendUser(u,"Sorry, your persona has just disappeared...\n");
		SendNPacket(UserList[u].us_Port,PACKET_ECHO,0,0,0,0);
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,"Name :");
		UserList[u].us_State=AWAIT_NAME;
		PermitInput(u);
		return(0);
	}
/*
 *	Check the password is correct (on AGOSII the fake password always is)
 */
	if(strncmp(pwentry,LoginUFF.uff_Password,7))
	{
		if(UserList[u].us_State==AWAIT_PASSWORD)
			UserList[u].us_State=AWAIT_PASSRETRY;
		else
		{
/*
 *	Too many tries - go back to asking for name.
 */
			UserList[u].us_State=AWAIT_NAME;
			SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
				"By what name shall I call you: ");
			SendNPacket(UserList[u].us_Port,PACKET_ECHO,0,0,0,0); 
				/* ECHO */
		}
		PermitInput(u);
		return(0);
	}					
/*
 *	Having got the correct password we check if it is an allowable name,
 *	and not already playing etc. This is done AFTER so that you cannot
 *	log in as someone to see if they are playing but invisible like you
 *	can in MUD/MIST etc.
 */
	if(FindInList(WordList,UserList[u].us_Name,WD_NOUN))
	{	
		SendUser(u,
		"Sorry that name could be confused with other things.\n");
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
				"By what name shall I call you: ");
		UserList[u].us_State=AWAIT_NAME;
		SendNPacket(UserList[u].us_Port,PACKET_ECHO,0,0,0,0); /* ECHO */
		PermitInput(u);
		return(0);
	}
	if(FindInList(WordList,UserList[u].us_Name,WD_NOISE)||
		FindInList(WordList,UserList[u].us_Name,WD_PREP)||
		FindInList(WordList,UserList[u].us_Name,WD_ORDIN))
	{	
		SendUser(u,
		"Sorry that name could be confused with other things.\n");
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
				"By what name shall I call you: ");
		UserList[u].us_State=AWAIT_NAME;
		SendNPacket(UserList[u].us_Port,PACKET_ECHO,0,0,0,0); /* ECHO */
		PermitInput(u);
		return(0);
	}
	if(LoginUFF.uff_Score==-1)
	{
		UserList[u].us_Record=LoginUFF.uff_Flags;
		return CreatePersona(u,pwentry);
	}
/*
 *	Create the player
 */
	UserList[u].us_Record=r;
	UserList[u].us_State=AWAIT_COMMAND;	/* Command mode */
	SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,"-}--- ");
/*
 *	Quick ego trip....
 */
	if(stricmp(UserList[u].us_Name,"Anarchy")==0)
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,"----*");
/*	SendUser(u,"Welcome to AberMUD V %s\n",UserList[u].us_Name);	*/
	AddWord(UserList[u].us_Name,(short)(10000+u),WD_NOUN);	/* Add name word */
	UserList[u].us_Item=CreateItem(UserList[u].us_Name,-1,10000+u);
	LockItem(UserList[u].us_Item);	/* Lock for userlist entry */
	MakePlayer(UserList[u].us_Item);
	p=(PLAYER *)FindSub(UserList[u].us_Item,KEY_PLAYER);
	if(!p)
		Error("Login: Player Create Failure");
	p->pl_UserKey=u;
	place=FindMaster(10000,1,1);	/* Look for Adj#1 Noun#1 autostart */
	if(place)
	{
		LinkItem(UserList[u].us_Item,place);
	}
	strncpy(LoginUFF.uff_Password,pwentry,8);
	strncpy(UserList[u].us_Password,pwentry,8);
	p->pl_Size=LoginUFF.uff_Size;
	p->pl_Weight=LoginUFF.uff_Weight;
	p->pl_Strength=LoginUFF.uff_Strength;
	p->pl_Flags=LoginUFF.uff_Flags;
	p->pl_Level=LoginUFF.uff_Level;
	p->pl_Score=LoginUFF.uff_Score;
	UserList[u].us_Item->it_ActorTable=LoginUFF.uff_ActorTable;
	UserList[u].us_Item->it_ActionTable=LoginUFF.uff_ActionTable;
	UserList[u].us_Item->it_Perception=LoginUFF.uff_Perception;
	SetUserFlag(UserList[u].us_Item,0,LoginUFF.uff_Flag[0]);
	SetUserFlag(UserList[u].us_Item,1,LoginUFF.uff_Flag[1]);
	SetUserFlag(UserList[u].us_Item,2,LoginUFF.uff_Flag[2]);
	SetUserFlag(UserList[u].us_Item,3,LoginUFF.uff_Flag[3]);
	SetUserFlag(UserList[u].us_Item,4,LoginUFF.uff_Flag[4]);
	SetUserFlag(UserList[u].us_Item,5,LoginUFF.uff_Flag[5]);
	SetUserFlag(UserList[u].us_Item,6,LoginUFF.uff_Flag[6]);
	SetUserFlag(UserList[u].us_Item,7,LoginUFF.uff_Flag[7]);
	SetUserFlag(UserList[u].us_Item,14,LoginUFF.uff_Flag[8]);
	SetUserFlag(UserList[u].us_Item,15,LoginUFF.uff_Flag[9]);
	DoesAction(UserList[u].us_Item,4,"arrives.\n");
	SendNPacket(UserList[u].us_Port,PACKET_ECHO,0,0,0,0); /* ECHO */
	t=FindTable(102);
	if(t)
		ExecBackground(t,UserList[u].us_Item);
	PermitInput(u);
	return(0);
}

/*
 *	New player specifies a sex
 */

int SetPlayerSex(int u, char *s)
{
	if(*s==0)
	{
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,"By what name shall I call you: ");
		UserList[u].us_State=AWAIT_NAME;
		PermitInput(u);
		return(0);
	}
	if(isupper(*s)) *s=tolower(*s);
	if((*s!='m')&&(*s!='f'))	/* Nothing else ... */
	{
		SendUser(u,"Male or Female (Return to abandon).\n");
		PermitInput(u);
		return(0);
	}
	if(*s=='m')
		UserList[u].us_Record=PL_MALE;
	else
		UserList[u].us_Record=PL_FEMALE;
	UserList[u].us_State=AWAIT_EMAIL;
	SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
		"Email address (Required): ");
	PermitInput(u);
	return(0);
}


int SetPlayerEmail(int u, char *mail)
{
	FILE *f=fopen("register.log","a");
	if(f==NULL)
		Error("Register.log open failed.\n");
	fprintf(f,"Register of %s: EMail is %s\n",UserList[u].us_Name,mail);
	fclose(f);
	SendUser(u,"Thank you. You should be registered shortly.\n");
/*
 *	Prepare to wait for a password
 */
	UserList[u].us_State=AWAIT_PWSET;
	SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
			"Give me a password for this character : ");
	SendNPacket(UserList[u].us_Port,PACKET_ECHO,1,0,0,0); /* NOECHO */
	PermitInput(u);
	return(0);
}

/*
 *	Create a new player
 */

int CreatePersona(int u, char *pw)
{
	ITEM *place;
	PLAYER *p;
	TABLE *t;
	SendNPacket(UserList[u].us_Port,PACKET_ECHO,0,0,0,0);
/*
 *	Verify the legality of the players name
 */
	if(FindInList(WordList,UserList[u].us_Name,WD_NOUN))
	{	
		SendUser(u,
		"Sorry that name could be confused with other things.\n");
		UserList[u].us_State=AWAIT_NAME;
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
				"By what name shall I call you: ");
		PermitInput(u);
		return(0);
	}
	if(FindInList(WordList,UserList[u].us_Name,WD_NOISE)||
		FindInList(WordList,UserList[u].us_Name,WD_PREP)||
	        FindInList(WordList,UserList[u].us_Name,WD_ORDIN))
	{	
		SendUser(u,
		"Sorry that name could be confused with other things.\n");
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,
				"By what name shall I call you: ");
		UserList[u].us_State=AWAIT_NAME;
		PermitInput(u);
		return(0);
	}
/*
 *	Now create the player
 */
	UserList[u].us_State=AWAIT_COMMAND;	/* Command mode */
	strncpy(UserList[u].us_Password,pw,8);
	SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,"-}--- ");
	if(stricmp(UserList[u].us_Name,"Anarchy")==0)
		SendTPacket(UserList[u].us_Port,PACKET_SETPROMPT,"----*");
/*	SendUser(u,"Welcome to AberMUD V %s\n",UserList[u].us_Name);	*/
	AddWord(UserList[u].us_Name,(short)(10000+u),WD_NOUN);	/* Add name word */
	UserList[u].us_Item=CreateItem(UserList[u].us_Name,-1,10000+u);
	LockItem(UserList[u].us_Item);	/* Lock for userlist entry */
	MakePlayer(UserList[u].us_Item);
	p=(PLAYER *)FindSub(UserList[u].us_Item,KEY_PLAYER);
	if(!p)
		Error("Login: Player Create Failure");
	p->pl_UserKey=u;
	place=FindMaster(10000,1,1);
	if(place)
	{
		LinkItem(UserList[u].us_Item,place);
/*		Cmd_Look(UserList[u].us_Item);*/
	}
	p->pl_Size=120;			/* Change these defaults if you want to */
	p->pl_Weight=120;
	p->pl_Strength=60;
	p->pl_Flags=UserList[u].us_Record;	/* We 'Borrow' this field */
	p->pl_Level=1;
	p->pl_Score=0;
	UserList[u].us_Item->it_ActorTable=0;
	UserList[u].us_Item->it_ActionTable=2;
	UserList[u].us_Item->it_Perception=0;
	UserList[u].us_Record=-1;
	SetUserFlag(UserList[u].us_Item,0,0);
	SetUserFlag(UserList[u].us_Item,1,0);
	SetUserFlag(UserList[u].us_Item,2,0);
	SetUserFlag(UserList[u].us_Item,3,0);
	SetUserFlag(UserList[u].us_Item,4,0);
	SetUserFlag(UserList[u].us_Item,5,0);
	SetUserFlag(UserList[u].us_Item,6,0);
	SetUserFlag(UserList[u].us_Item,7,0);
	SetUserFlag(UserList[u].us_Item,15,LoginUFF.uff_Flag[9]);
	DoesAction(UserList[u].us_Item,4,"arrives.\n");
	t=FindTable(101);
	if(t)
		ExecBackground(t,UserList[u].us_Item);
	PermitInput(u);
	return(0);
}

/*
 *	The user has typed in a command to be done
 */
	
int Run_Command(int u, char *cmd)
{
	ITEM *i=UserList[u].us_Item;
	int v;
	char *x;
	TABLE *t;
	WordPtr=cmd;
	if(i==NULL)
		return(0);		/* Do nothing.. person is dead */
	if(setjmp(Oops))		/* Set the error trap */
		goto panic;
	if(strlen(WordPtr)==0)		/* Nothing said */
		goto l2;
/*	printf("User %d Cmd %s\n",u,WordPtr);	*/
	/* Fake seeing the input string for snoopers */
	/* Ought to show prompts I guess but I'm lazy */
	SnoopCheckString(i,cmd);
	SnoopCheckString(i,"\n");
	if(stricmp(cmd,"INIT")==0)
	{
/*
 *	Yes you can fool this check for INIT being done, but if you do
 *	it's on your own head.
 */
		if(FindInList(WordList,"Abort",WD_VERB)==0)
		{
			AddWord("Abort",1,WD_VERB);
			AddWord("AddVerb",2,WD_VERB);
			AddWord("AddNoun",3,WD_VERB);
			AddWord("AddAdj",4,WD_VERB);
			AddWord("AddPrep",5,WD_VERB);
			AddWord("AddPronoun",6,WD_VERB);
			AddWord("AddOrdinate",7,WD_VERB);
			AddWord("II",8,WD_VERB);
			AddWord("ListItems",9,WD_VERB);
			AddWord("SetName",10,WD_VERB);
			AddWord("Set",11,WD_VERB);
			AddWord("Create",12,WD_VERB);
			AddWord("Delete",13,WD_VERB);
			AddWord("BeRoom",14,WD_VERB);
			AddWord("BeObject",15,WD_VERB);
			AddWord("BePlayer",16,WD_VERB);
			AddWord("UnRoom",17,WD_VERB);
			AddWord("UnObject",18,WD_VERB);
			AddWord("UnPlayer",19,WD_VERB);
			AddWord("SaveUniverse",20,WD_VERB);
			AddWord("StatMe",21,WD_VERB);
			AddWord("SetShort",22,WD_VERB);
			AddWord("SetLong",25,WD_VERB);
			AddWord("ShowRoom",23,WD_VERB);
			AddWord("SetRFlag",24,WD_VERB);
			AddWord("Look",26,WD_VERB);
			AddWord("Goto",27,WD_VERB);
			AddWord("Brief",28,WD_VERB);
			AddWord("Verbose",29,WD_VERB);
			AddWord("ShowObject",30,WD_VERB);
			AddWord("SetOFlag",31,WD_VERB);
			AddWord("SetDesc",32,WD_VERB);
			AddWord("Invisible",33,WD_VERB);
			AddWord("Visible",34,WD_VERB);
			AddWord("Say",35,WD_VERB);
			AddWord("Place",36,WD_VERB);
			AddWord("ListWord",37,WD_VERB);
			AddWord("DelVerb",38,WD_VERB);
			AddWord("DelNoun",39,WD_VERB);
			AddWord("DelAdj",40,WD_VERB);
			AddWord("DelPrep",41,WD_VERB);
			AddWord("DelPronoun",42,WD_VERB);
			AddWord("DelOrdinate",43,WD_VERB);
			AddWord("NewExit",44,WD_VERB);
			AddWord("DelExit",45,WD_VERB);
			AddWord("OSize",46,WD_VERB);
			AddWord("OWeight",47,WD_VERB);
			AddWord("ShowPlayer",48,WD_VERB);
			AddWord("SetPFlag",49,WD_VERB);
			AddWord("SetPSize",50,WD_VERB);
			AddWord("SetPWeight",51,WD_VERB);
			AddWord("PSize",50,WD_VERB);
			AddWord("PWeight",51,WD_VERB);
			AddWord("PStrength",52,WD_VERB);
			AddWord("SetPStrength",52,WD_VERB);
			AddWord("SetPLevel",53,WD_VERB);
			AddWord("SetPScore",54,WD_VERB);
			AddWord("PLevel",53,WD_VERB);
			AddWord("PScore",54,WD_VERB);
			AddWord("Users",55,WD_VERB);
			AddWord("ListTables",56,WD_VERB);
			AddWord("DeleteTable",57,WD_VERB);
			AddWord("LoadTable",58,WD_VERB);
			AddWord("EditTable",59,WD_VERB);
			AddWord("NewTable",60,WD_VERB);
			AddWord("Quit",61,WD_VERB);
			AddWord("Chain",62,WD_VERB);
			AddWord("UnChain",63,WD_VERB);
			AddWord("Rename",64,WD_VERB);
			AddWord("SaveTable",65,WD_VERB);
			AddWord("SetActor",66,WD_VERB);
			AddWord("SetAction",67,WD_VERB);
			AddWord("BeContainer",68,WD_VERB);
			AddWord("UnContainer",69,WD_VERB);
			AddWord("SetVolume",70,WD_VERB);
			AddWord("ShowContainer",71,WD_VERB);
			AddWord("MessageExit",72,WD_VERB);
			AddWord("SetCFlag",73,WD_VERB);
			AddWord("SetUFlag",74,WD_VERB);
			AddWord("SetUItem",75,WD_VERB);
			AddWord("ShowUser",76,WD_VERB);
			AddWord("SetPicture",77,WD_VERB);
			AddWord("Share",78,WD_VERB);
			AddWord("UnShare",79,WD_VERB);
			AddWord("Status",80,WD_VERB);
			AddWord("NameFlag",81,WD_VERB);
			AddWord("UnNameFlag",82,WD_VERB);
			AddWord("ListFlag",83,WD_VERB);
			AddWord("DoorPair",84,WD_VERB);
			AddWord("ShowFlag",85,WD_VERB);
			AddWord("SetFlag",86,WD_VERB);
			AddWord("SetPerception",87,WD_VERB);
			AddWord("ShowAllRooms",88,WD_VERB);
			AddWord("ShowAllObjects",89,WD_VERB);
			AddWord("ShowAllPlayers",95,WD_VERB);
			AddWord("EditObject",96,WD_VERB);
/*
 *	Directions
 */
			AddWord("North",100,WD_VERB);
			AddWord("East",101,WD_VERB);
			AddWord("South",102,WD_VERB);
			AddWord("West",103,WD_VERB);
			AddWord("Up",104,WD_VERB);
			AddWord("Down",105,WD_VERB);
			AddWord("NorthEast",106,WD_VERB);
			AddWord("NorthWest",107,WD_VERB);
			AddWord("SouthEast",108,WD_VERB);
			AddWord("SouthWest",109,WD_VERB);
			AddWord("In",110,WD_VERB);
			AddWord("Out",111,WD_VERB);
/*
 *	Second Verb Set
 */
			AddWord("ListClass",150,WD_VERB);
			AddWord("NameClass",151,WD_VERB);
			AddWord("SetClass",152,WD_VERB);
			AddWord("UnsetClass",153,WD_VERB);
			AddWord("TrackFlag",154,WD_VERB);
			AddWord("UnTrackFlag",155,WD_VERB);
			AddWord("ListTrack",156,WD_VERB);
			AddWord("Debugger",157,WD_VERB);
			AddWord("FindItem",158,WD_VERB);
			AddWord("FindFlag",159,WD_VERB);
			AddWord("Exorcise",160,WD_VERB);
/*
 *		New for 5.07
 */
			AddWord("NameTable",161,WD_VERB);
			AddWord("NameRFlag",162,WD_VERB);
			AddWord("NameOFlag",163,WD_VERB);
			AddWord("NamePFlag",164,WD_VERB);
			AddWord("NameCFlag",165,WD_VERB);
			AddWord("ListRFlags",166,WD_VERB);
			AddWord("ListOFlags",167,WD_VERB);
			AddWord("ListPFlags",168,WD_VERB);
			AddWord("ListCFlags",169,WD_VERB);
			AddWord("Which",170,WD_VERB);
/*
 *	5.08 Item table editing features
 */
			AddWord("EditOTable",171,WD_VERB);
			AddWord("EditSTable",172,WD_VERB);
			AddWord("CondExit",173,WD_VERB);
/*
 *	5.21 extensions
 */
			AddWord("EditDTable",174,WD_VERB);
			AddWord("SetSuper",175,WD_VERB);
			AddWord("ShowSuper",176,WD_VERB);
			AddWord("DeleteBSX",177,WD_VERB);
			AddWord("LoadBSX",178,WD_VERB);
			AddWord("ListBSX",179,WD_VERB);
			AddWord("ShowBSX",180,WD_VERB);
/*
 *	Prepositions
 */
			AddWord("in",1,WD_PREP);
			AddWord("to",2,WD_PREP);
			AddWord("with",3,WD_PREP);
			AddWord("at",4,WD_PREP);
/*
 *	5.07 System bit flag default names
 */
			RBitNames[0]=strdup("dark");
			RBitNames[1]=strdup("outside");
			RBitNames[2]=strdup("death");
			RBitNames[3]=strdup("merge");
			RBitNames[4]=strdup("join");
			RBitNames[5]=strdup("dropemsg");
			OBitNames[0]=strdup("flannel");
			OBitNames[1]=strdup("noit");
			OBitNames[2]=strdup("worn");
			OBitNames[3]=strdup("reserved");
			OBitNames[4]=strdup("canget");
			OBitNames[5]=strdup("canwear");
			OBitNames[6]=strdup("light");
			OBitNames[7]=strdup("light0");
			OBitNames[8]=strdup("noseecarry");
			PBitNames[0]=strdup("male");
			PBitNames[1]=strdup("female");
			PBitNames[2]=strdup("brief");
			PBitNames[3]=strdup("blind");
			PBitNames[4]=strdup("deaf");
			SendUser(u,"Initialised...\n");
		}
		else
			SendUser(u,"It already is, bird brain.\n");
		goto l1;
	}
	SetPersona(u);
/*
 *	! can be used if you put in a table 0 entry like any any any done, as
 *	a mistake. !command does the command without checking tables
 */
	if((*WordPtr==':')&&(ArchWizard(i)))
	{
		WordPtr++;
		v=GetVerb();
		goto l4;
	}
/*
 *	'*' cancels the autoverb feature
 */
	if(*WordPtr=='*')
	{
		WordPtr++;
		goto l7;
	}
	if(GetContext((short)u)->pa_Verb>0)	/* AUTOVERB */
		v=GetContext((short)u)->pa_Verb;
	else
l7:		v=GetVerb();
	x=WordPtr;
/*
 *	See if there is a table entry for the player. If so then
 *	do that and be finished.
 */
	if(UserAction(i,v)==1)
		goto l1;
	WordPtr=x;
l4:	switch(v)
	{
/*
 *	Select the correct system command routine
 */
		case -1:SendItem(i,"Sorry, But I don't recognise that verb.\n");
			break;
		case 1: Cmd_Abort(i);break;
		case 2: Cmd_AddVerb(i);break;
		case 3: Cmd_AddNoun(i);break;
		case 4: Cmd_AddAdj(i);break;
		case 5: Cmd_AddPrep(i);break;
		case 6: Cmd_AddPronoun(i);break;
		case 7: Cmd_AddOrdinate(i);break;
		case 8: Cmd_ItemInfo(i);break;
		case 9: Cmd_ListItems(i);break;
		case 10:Cmd_SetName(i);break;
		case 11:Cmd_SetState(i);break;
		case 12:Cmd_NewItem(i);break;
		case 13:Cmd_DelItem(i);break;
		case 14:Cmd_BeRoom(i);break;
		case 15:Cmd_BeObject(i);break;
		case 16:Cmd_BePlayer(i);break;
		case 17:Cmd_UnRoom(i);break;
		case 18:Cmd_UnObject(i);break;
		case 19:Cmd_UnPlayer(i);break;
		case 20:Cmd_SaveUniverse(i);
			PermitInput(u);
			return(1);
		case 21:Cmd_StatMe(i);break;
		case 22:Cmd_SetShort(i);break;
		case 23:Cmd_ShowRoom(i);break;
		case 24:Cmd_SetRFlag(i);break;
		case 25:Cmd_SetLong(i);break;
		case 26:Cmd_Look(i);break;
		case 27:Cmd_Goto(i);break;
		case 28:Cmd_Brief(i);break;
		case 29:Cmd_Verbose(i);break;
		case 30:Cmd_ObjectShow(i);break;
		case 31:Cmd_SetOFlag(i);break;
		case 32:Cmd_SetDesc(i);break;
		case 33:Cmd_Invisible(i);break;
		case 34:Cmd_Visible(i);break;
		case 35:Cmd_Say(i);break;
		case 36:Cmd_Place(i);break;
		case 37:Cmd_ListWord(i);break;
		case 38:Cmd_DelVerb(i);break;
		case 39:Cmd_DelNoun(i);break;
		case 40:Cmd_DelAdj(i);break;
		case 41:Cmd_DelPrep(i);break;
		case 42:Cmd_DelPronoun(i);break;
		case 43:Cmd_DelOrdinate(i);break;
		case 44:Cmd_NewExit(i);break;
		case 45:Cmd_DelExit(i);break;
		case 46:Cmd_SetOSize(i);break;
		case 47:Cmd_SetOWeight(i);break;
		case 48:Cmd_PlayerShow(i);break;
		case 49:Cmd_SetPFlag(i);break;
		case 50:Cmd_SetPSize(i);break;
		case 51:Cmd_SetPWeight(i);break;
		case 52:Cmd_SetPStrength(i);break;
		case 53:Cmd_SetPLevel(i);break;
		case 54:Cmd_SetPScore(i);break;
		case 55:Cmd_Users(i);break;
		case 56:Cmd_ListTables(i);break;
		case 57:Cmd_DeleteTable(i);break;
		case 58:Cmd_AddTable(i);break;
		case 59:Cmd_EditTable(i);break;
		case 60:Cmd_NewTable(i);break;
		case 61:
#ifdef ATTACH		
			if(UserList[u].us_RealPerson)
			{
				SetMe(i);
				Act_UnAlias();
				break;
			}
#endif
			SendTPacket(UserList[u].us_Port,PACKET_CLEAR,
			"Goodbye......\n");
			RemoveUser(u);
			return(1);
		case 62:Cmd_Chain(i);break;
		case 63:Cmd_UnChain(i);break;
		case 64:Cmd_Rename(i);break;
		case 65:Cmd_SaveTable(i);break;
		case 66:Cmd_SetActor(i);break;
		case 67:Cmd_SetAction(i);break;
		case 68:Cmd_BeContainer(i);break;
		case 69:Cmd_UnContainer(i);break;
		case 70:Cmd_SetVolume(i);break;
		case 71:Cmd_ContainerShow(i);break;
		case 72:Cmd_MsgExit(i);break;
		case 73:Cmd_SetCFlag(i);break;
		case 74:Cmd_SetUFlag(i);break;
		case 75:Cmd_SetUItem(i);break;
		case 76:Cmd_UFlagShow(i);break;
		case 77:Cmd_SetPicture(i);break;
		case 78:Cmd_Share(i);break;
		case 79:Cmd_UnShare(i);break;
		case 80:Cmd_Status(i);break;
		case 81:Cmd_NameFlag(i);break;
		case 82:Cmd_UnNameFlag(i);break;
		case 83:Cmd_ListFlags(i);break;
		case 84:Cmd_DoorPair(i);break;
		case 85:Cmd_ShowFlag(i);break;
		case 86:Cmd_SetFlag(i);break;
		case 87:Cmd_SetPerception(i);break;
		case 88:Cmd_ShowAllRooms(i);break;
		case 89:Cmd_ShowAllObjects(i);break;
		case 95:Cmd_ShowAllPlayers(i);break;
		case 96:Cmd_ObjEdit(i);break;
		case 100:Cmd_MoveDirn(i,0);break;
		case 101:Cmd_MoveDirn(i,1);break;
		case 102:Cmd_MoveDirn(i,2);break;
		case 103:Cmd_MoveDirn(i,3);break;
		case 104:Cmd_MoveDirn(i,4);break;
		case 105:Cmd_MoveDirn(i,5);break;
		case 106:Cmd_MoveDirn(i,6);break;
		case 107:Cmd_MoveDirn(i,7);break;
		case 108:Cmd_MoveDirn(i,8);break;
		case 109:Cmd_MoveDirn(i,9);break;
		case 110:Cmd_MoveDirn(i,10);break;
		case 111:Cmd_MoveDirn(i,11);break;
		case 150:Cmd_ListClass(i);break;
		case 151:Cmd_NameClass(i);break;
		case 152:Cmd_SetClass(i);break;
		case 153:Cmd_UnsetClass(i);break;
		case 154:Cmd_TrackFlag(i);break;
		case 155:Cmd_UnTrackFlag(i);break;
		case 156:Cmd_ListTrack(i);break;
		case 157:Cmd_Debugger(i);break;
		case 158:Cmd_FindItem(i);break;
		case 159:Cmd_FindFlag(i);break;
		case 160:Cmd_Exorcise(i);break;
		case 161:Cmd_NameTable(i);break;
		case 162:Cmd_RBitName(i);break;
		case 163:Cmd_OBitName(i);break;
		case 164:Cmd_PBitName(i);break;
    		case 165:Cmd_CBitName(i);break;
		case 166:Cmd_ListRBits(i);break;
		case 167:Cmd_ListOBits(i);break;
		case 168:Cmd_ListPBits(i);break;
		case 169:Cmd_ListCBits(i);break;
		case 170:Cmd_Which(i);break;
		case 171:Cmd_EditOTable(i);break;
		case 172:Cmd_EditSTable(i);break;
		case 173:Cmd_CondExit(i);break;
		case 174:Cmd_EditDTable(i);break;
		case 175:Cmd_SetSuperClass(i);break;
		case 176:Cmd_ShowSuperClass(i);break; 
		case 177:Cmd_DeleteBSX(i);break;
		case 178:Cmd_LoadBSX(i);break;
		case 179:Cmd_ListBSX(i);break;
		case 180:Cmd_ShowBSX(i);break;
		default:SendItem(i,"I don't understand.\n");
			break;
	}
/*
 *	Run the status table
 */
l1:	t=FindTable(100);
	if(t&&UserList[u].us_State==AWAIT_COMMAND)
		ExecBackground(t,UserList[u].us_Item);
panic:;
l2:	PermitInput(u);
	return 0;
}