Took out all #include lines from the extern.h, and changed them to forward declaratio...

[irc/gameservirc.git] / gameserv / gameserv.cpp

#include "aClient.h"
#include "config.h"
#include "extern.h"
#include "player.h"
#include "pouch.h"
#include "flags.h"
#include "level.h"
#include "sockhelp.h"
#include "item.h"
#include "script.h"
#include "toplist.h"

#include <algorithm>
#include <cctype>
#include <fstream>
#include <stdlib.h>
#include <list>
#include <iterator>

using namespace std;

#if defined(HAVE_CRYPT_H)

#include <crypt.h>

#elif defined(HAVE_UNISTD_H)

#include <unistd.h> 

#endif

Monster dragon;				// The current dragon
Level levels[LEVELS];			// The newest way to store monsters
list<item*> Items;                      // The master list of items
list<tavernItem> tavern;                // The list of items available at the tavern
list<item*> store;                      // The list of items available at the store
toplist myToplist;          // List of the top 10 players

// Database functions
int save_gs_dbase();
int load_gs_dbase();
int load_items();
int load_tavern();
int load_store();
int load_dragon();
int save_dragon();

item *findItemByID(int id);
item *findStoreItemByID(int id);
tavernItem *findTavernItemByID(int id);

// String functions
#ifndef HAVE_STRTOK
char *strtok(char *str, const char *delim);
#endif

int stricmp(const char *s1, const char *s2);
int strnicmp(const char *s1, const char *s2, size_t len);
// String Functions

/********** Password functions **********/

bool passcmp(const char *encrypted, char *plaintext); // Compares an encrypted pass with a plain text one

bool check_password(char *name, char *plaintext); // Finds a password for the given name, and checks it with passcmp against the plaintext password given.

/********** Password functions **********/


/********** GameServ Booleans **********/

bool shuttingdown;
bool timedOut(Player *p);
void updateTS(Player *p);
void timeOutEvent(Player *p);

bool is_playing(char *u); // True if the given nickname in the clients list is playing.
bool is_playing(aClient *user);

bool is_fighting(char *u); // True if the given nick in the clients list is fighting anything.
bool is_fighting(aClient *user);

bool player_fight(char *u); // True if the player is fighting another player.
bool player_fight(aClient *user);

bool master_fight(char *u); // True if the player is fighting their master.
bool master_fight(aClient *user);

bool dragon_fight(char *u); // True if the player is fighting the dragon.
bool dragon_fight(aClient *user);

bool alphaNumeric(const char *str); // Returns true if all of the characters in str are alphanumeric non-special chars
/********** GameServ Booleans **********/

void display_help(char *u, char *file = NULL);
void display_monster(char *u);
void display_players(char *u);
void display_players(aClient *user);
long int chartoint(char ch);
int isstringnum(char *num);
long int pow (int x, int y);
long int stringtoint(char *number);

char *spaces(int len, char *seperator);
void refresh(Player *p);
void refreshall();
void rollover(Player *p);
void rolloverall();

void updateTS(Player *p);
void reset(Player *p);
bool load_masters();
bool load_monsters();
bool load_levels();
void delete_monsters();

void do_admin(char *u);
void do_attack(char *u);
void do_bank(char *u);
void do_check(char *u);
void do_equip(char *u);
void do_fight(char *u);
void do_heal(char *u);
void do_help(char *u);
void do_identify(char *u);
void do_inventory(char *u);
void do_refresh(char *u);
void do_register(char *u);
void do_list(char *u);
void do_logout(char *u);
void do_master(char *u);
void do_dragon(char *u);
void do_play(char *u);
void do_quitg(char *u);
void do_reset(char *u);
void do_run(char *u);
void do_set(char *u);
void do_stats(char *u);
void do_store(char *u);
void do_tavern(char *u);
void do_use(char *u);
void see_master(char *u);

void logout(aClient *user);
void showstats(const char *u, const char *nick);
void showTavern(aClient *user);
void showinventory(Player *from, aClient *to);
void showBankBalance(const char *u);
void end_turn(aClient *user);

#define WNA 16

int hpbonus[11] = {10, 15, 20, 30, 50, 75, 125, 185, 250, 350, 550};
int strbonus[11] = {5, 7, 10, 12, 20, 35, 50, 75, 110, 150, 200};
int defbonus[11] = {2, 3, 5, 10, 15, 22, 35, 60, 80, 120, 150};

void gameserv(char *source, char *buf)
{
  char *cmd, z;
  cmd = strtok(buf, " ");
  
#ifndef P10
  source++; // Get rid of that : at the beginning of a :Nick privmsg Gameserv :text
#endif
  
  z = cmd[0];
  if (z == ':')
	cmd++;    // Get rid of that : at the beginning of the :text  (command)
  
#ifdef DEBUGMODE
  log("Source: %s  Command: %s", source, cmd);
#endif
  
  if (strnicmp(cmd, "\1PING", 6) == 0)
    {
	  char *ts;
	  ts = strtok(NULL, "\1");
	  notice(s_GameServ, source, "\1PING %s\1", ts);
    }
  else if (stricmp(cmd, "\1VERSION\1") == 0)
	{
	  notice(s_GameServ, source, "\1VERSION %s %s\1", PACKAGE, VERSION);
    }
  else if (stricmp(cmd, "SEARCH") == 0)
	{
	  cmd = strtok(NULL, " ");
	  
	  if (!cmd)
	    notice(s_GameServ, source, "SYNTAX: /msg %S SEARCH FOREST");
	  else
	    do_forest(source);
	  
    }
  else if (stricmp(cmd, "ADMIN") == 0)
	{
	  do_admin(source);
    }
  else if (stricmp(cmd, "ATTACK") == 0)
	{
	  do_attack(source);
    }
  else if (stricmp(cmd, "BANK") == 0)
	{
	  do_bank(source);
    }
  else if (stricmp(cmd, "CHECK") == 0)
	{
	  do_check(source);
    }
  else if (stricmp(cmd, "DRAGON") == 0)
	{
	  do_dragon(source);
    }
  else if (stricmp(cmd, "EQUIP") == 0)
	{
      do_equip(source);
    }
  else if (stricmp(cmd, "FIGHT") == 0)
	{
	  do_fight(source);
    }
  else if (stricmp(cmd, "HEAL") == 0)
	{
	  do_heal(source);
    }
  else if (stricmp(cmd, "HELP") == 0)
	{
	  do_help(source);
    }
  else if (stricmp(cmd, "IDENTIFY") == 0)
	{
	  do_identify(source);
    }
  else if (stricmp(cmd, "INVENTORY") == 0)
	{
	  do_inventory(source);
    }
  else if (stricmp(cmd, "LIST") == 0)
	{
	  do_list(source);
    }
  else if (stricmp(cmd, "LOGOUT") == 0)
	{
	  do_logout(source);
    }
  else if (stricmp(cmd, "MASTER") == 0)
	{
	  do_master(source);
    }
  else if (stricmp(cmd, "NEWS") == 0)
	{
	  do_news(source);
    }
  else if (stricmp(cmd, "REGISTER") == 0)
	{
	  do_register(source);
    }
  else if (stricmp(cmd, "REFRESH") == 0)
	{
	  do_refresh(source);
    }
  else if (stricmp(cmd, "RESET") == 0)
	{
	  do_reset(source);
    }
  else if (stricmp(cmd, "RUN") == 0)
	{
	  do_run(source);
    }
  else if (stricmp(cmd, "SET") == 0)
	{
	  do_set(source);
    }
  else if (stricmp(cmd, "STATS") == 0)
	{
	  do_stats(source);
    }
  else if (stricmp(cmd, "STORE") == 0)
	{
	  do_store(source);
    }
  else if (stricmp(cmd, "TAVERN") == 0)
	{
	  do_tavern(source);
    }
  else if (stricmp(cmd, "USE") == 0)
	{
	  do_use(source);
    }
  else if (stricmp(cmd, "SHUTDOWN") == 0)
	{
	  aClient *user;
	  
	  if (!(user = find(source)))
		{
		  notice(s_GameServ, source, "Error: aClient not found. Contact a %S admin");
		  log("Error: aClient not found: %s", source);
		}
	  else if (!isAdmin(user))
		{
		  notice(s_GameServ, source, "You must be a %S admin to use this command!");
		}
	  else
		{
		  save_gs_dbase();
#ifdef P10
		  raw("[] SQ %s 0 :leaving: %s used the Shutdown command.", servername, user->getRealNick());
#else
		  raw("SQUIT %s :leaving: %s used the Shutdown command.", servername, source);
#endif
		  shuttingdown = true;
		}
    }
  else if (stricmp(cmd, "SAVE") == 0)
	{
	  aClient *user;
	  
	  if (!(user = find(source)))
		{
		  notice(s_GameServ, source, "Error: aClient not found. Contact a %S admin");
		  log("Error: aClient not found: %s", source);
		}
	  else if (!isAdmin(user))
		{
		  notice(s_GameServ, source, "You must be a %S admin to use this command!");
		}
	  else
        {
		  save_gs_dbase();
        }
    }
  else if (stricmp(cmd, "LOAD") == 0)
	{
	  aClient *user;
	  
	  if (!(user = find(source)))
		{
		  notice(s_GameServ, source, "Error: aClient not found. Contact a %S admin");
		  log("Error: aClient not found: %s", source);
		}
	  else if (!isAdmin(user))
		{
		  notice(s_GameServ, source, "You must be a %S admin to use this command!");
		}
	  else
        {
		  char *cmd2 = strtok(NULL, " ");
		  if (!cmd2)
			{
			  notice(s_GameServ, source, "Loading player data from %s", playerdata);
			  load_gs_dbase();
			}
		  else if (stricmp(cmd2, "MONSTERS") == 0)
			{
			  notice(s_GameServ, source, "Loading monster data");
			  load_monsters();
			}
		  else if (stricmp(cmd2, "SCRIPTS") == 0)
			{
			  // Testing scripts for now
			  script scr;
			  notice(s_GameServ, source, "Loading scripts");

			  if (scr.loadScript("test.txt"))
				scr.executeScript(user->stats);
			}
		  else
			{
			  display_help(source, cmd);
			}
		}
	}
#ifdef DEBUGMODE
  else if (stricmp(cmd, "RAW") == 0)
	{
	  aClient *user;
	  
	  if (!(user = find(source)))
		{
		  notice(s_GameServ, source, "Error: aClient not found. Contact a %S admin");
		  log("Error: aClient not found: %s", source);
		}
	  else if (!isAdmin(user))
		{
		  notice(s_GameServ, source, "You must be a %S admin to use this command!");
		}
	  else
        {
		  char *rest = strtok(NULL, "");
		  raw("%s", rest);
		}
    }
  else if (stricmp(cmd, "RANDOM") == 0)
	{
	  char *rstr = strtok(NULL, "");
	  range trange;
	  trange.setRange(rstr);
	  notice(s_GameServ, source, "Random number in that range: %d", trange.random());
	}
#endif
  else
	{
	  aClient *user;
	  if ((user = find(source)))
		{
		  if (isIgnore(user))
			{
#ifdef DEBUGMODE
			  log("Ignoring %s.", user->getNick());
#endif
			}
		  else
			{
			  notice(s_GameServ, source, "Unknown command \002%s\002. Type /msg %S \002HELP\002 to get a list of commands.", cmd);
			}
		}
    }

#ifndef P10
  source--;  // Bring the ':' back so we don't leak memory
#endif
  if (z == ':')
	cmd--;     // Same thing :)
}

int stricmp(const char *s1, const char *s2)
{
    register int c;

    while ((c = tolower(*s1)) == tolower(*s2)) {
        if (c == 0)
            return 0;
        s1++;
        s2++;
    }
    if (c < tolower(*s2))
        return -1;
    return 1;
}

void showstats(const char *u, const char *nick)
{
    aClient *sender = find(u);
	Player *p;
    char *buf;
    buf = new char[50];
    char *space;


    if (!(p = findplayer(nick)))
	  {
        notice(s_GameServ, u, "%s not found", nick);
	  }
    else
	  {
        notice(s_GameServ, sender->getNick(), "Stats for %s:", p->getName().c_str());
		
        sprintf(buf, "Experience: %ld", p->getExp());
        space = spaces(strlen(buf), " ");
        notice(s_GameServ, sender->getNick(), "%s%sLevel: %d",  buf, space,
			   p->getLevel());
        delete [] space;
		
        sprintf(buf, "Gold: %ld", p->getGold());
        space = spaces(strlen(buf), " ");
        notice(s_GameServ, sender->getNick(), "%s%sGold in Bank: %ld", buf, space, p->getBank());
        delete [] space;
		
        notice(s_GameServ, sender->getNick(), "Hit Points: %d of %d", p->getHP(),
			   p->getMaxHP());
		
        sprintf(buf, "Strength: %d", p->getStrength());
        space = spaces(strlen(buf), " ");
        notice(s_GameServ, sender->getNick(), "%s%sDefense: %d",
			   buf, space, p->getDefense());
        delete [] space;
		
        sprintf(buf, "Armor: %s", (p->getArmor() ? p->getArmor()->getName().c_str() : "Nothing"));
        space = spaces(strlen(buf), " ");
		
        notice(s_GameServ, sender->getNick(), "%s%sWeapon: %s", buf, space,
			   (p->getWeapon() ? p->getWeapon()->getName().c_str() : "Fists"));
		
        delete [] space;
		
        sprintf(buf, "Forest Fights: %d", p->getForestFights());
        space = spaces(strlen(buf), " ");
        notice(s_GameServ, sender->getNick(), "%s%sPlayer Fights: %d", buf, space, p->getPlayerFights());
        delete [] space;
		if (p->getClient() == sender || isAdmin(sender))
		  {
			showinventory(p, sender);
		  }
	  }

    delete [] buf;
}

char *spaces(int len, char *seperator)
{
    char *final;
    final = new char[30];
    int y;
    strcpy(final, seperator);
    for (y = 0; y < 30 - len; y++)
        strcat(final, seperator);
    return final;
}

void raw(const char *fmt, ...)
{
    va_list args;
    char *input;
    const char *t = fmt;
    input = new char[1024];
    va_start(args, fmt);
    memset(input, 0, sizeof(input)); // Initialize to NULL
    for (; *t; t++)
    {
	if (*t == '%')
	{
	    switch(*++t) {
		case 'd': sprintf(input, "%s%d", input, va_arg(args, int)); break;
		case 's': sprintf(input, "%s%s", input, va_arg(args, char *)); break;
		case 'S': sprintf(input, "%s%s", input, s_GameServ); break;
		case 'l':
		   if (*++t == 'd')
			  sprintf(input, "%s%ld", input, va_arg(args, long int)); break;
	    }
	}
	else
	{
	    sprintf(input, "%s%c", input, *t);
	}

    }
    #ifdef DEBUGMODE
	log("Input: %s", input);
    #endif

    sprintf(input, "%s%s", input, "\r\n");
    sock_puts(sock, input);
    delete [] input;
    va_end(args);
}
/* Send a NOTICE from the given source to the given nick. */

void notice(const char *source, const char *dest, const char *fmt, ...)
{
    if (fmt[0] == '\0')
	return;

    char *commanduse;
    commanduse = new char[16];

    #ifdef P10
	if (isUsePrivmsg())
	    strcpy(commanduse, "P");
	else
	    strcpy(commanduse, "O");
    #else

	if (isUsePrivmsg())
	    strcpy(commanduse, "PRIVMSG");
	else
	    strcpy(commanduse, "NOTICE");
    #endif

    va_list args;
    char *input;
    const char *t = fmt;
    input = new char[1024];
    va_start(args, fmt);
    if (dest[0] == ':')
    {
    	dest++;

      #if !defined(P10)
	sprintf(input, ":%s %s %s :", source, commanduse, dest);
      #else
	sprintf(input, "%s %s %s :", gsnum, commanduse, dest);
      #endif

	dest--;
    }
    else
    {
      #if !defined(P10)
	sprintf(input, ":%s %s %s :", source, commanduse, dest);
      #else
	sprintf(input, "%s %s %s :", gsnum, commanduse, dest);
      #endif
    }

    for (; *t; t++)
    {
	if (*t == '%')
	{
	    switch(*++t) {
		case 'd': sprintf(input, "%s%d", input, va_arg(args, int)); break; 
		case 's': sprintf(input, "%s%s", input, va_arg(args, char *)); break;
		case 'S': sprintf(input, "%s%s", input, s_GameServ); break;
	        case 'c': sprintf(input, "%s%c", input, va_arg(args, int)); break;
		case 'l':
		   if (*++t == 'd')
			  sprintf(input, "%s%ld", input, va_arg(args, long int)); break;
	    }
	}
	else
	{
	    sprintf(input, "%s%c", input, *t);
	}

    }
    #ifdef DEBUGMODE
	log("Input: %s", input);
    #endif
    sprintf(input, "%s%s", input, "\r\n");
    sock_puts(sock, input);
    delete [] commanduse;
    delete [] input;
va_end(args);
}


int strnicmp(const char *s1, const char *s2, size_t len)
{
    register int c;

    if (!len)
        return 0;
    while ((c = tolower(*s1)) == tolower(*s2) && len > 0) {
        if (c == 0 || --len == 0)
            return 0;
        s1++;
        s2++;
    }
    if (c < tolower(*s2))
        return -1;
    return 1;
}

#ifndef HAVE_STRTOK
char *strtok(char *str, const char *delim)
{
    static char *current = NULL;
    char *ret;

    if (str)
        current = str;
    if (!current)
        return NULL;
    current += strspn(current, delim);
    ret = *current ? current : NULL;
    current += strcspn(current, delim);
    if (!*current)
        current = NULL;
    else
        *current++ = 0;
    return ret;
}
#endif

void do_check(char *u)
{
    int days, hours, minutes, seconds;
    long complete;
    complete = (lastrefresh + refreshperiod) - time(NULL);
    days = complete / 86400;
    hours = (complete % 86400) / 3600;
    minutes = (complete % 86400) % 3600 / 60;
    seconds = (complete % 86400) % 3600 % 60;

    notice(s_GameServ, u, "Time left to next refresh: %dd %dh %dm %ds", 
	   days, hours, minutes, seconds);

    if (isRolloverForestFights())
      {
	complete = (lastrollover + rolloverperiod) - time(NULL);
	
	days = complete / 86400;
	hours = (complete % 86400) / 3600;
	minutes = (complete % 86400) % 3600 / 60;
	seconds = (complete % 86400) % 3600 % 60;
	
	notice(s_GameServ, u, "Time left to next rollover: %dd %dh %dm %ds",
	       days, hours, minutes, seconds);
      }
}

void do_list(char *u)
{
  aClient *user;
  Player *p;
  char *cmd = strtok(NULL, " ");
  
  if (!(user = find(u)))
    {
	  log("Fatal Error: Couldn't find %s in the client list", u);
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s. Command LIST", user->getNick());
#endif
	  return;
    }
  
  list<Player*>::iterator iter;
  bool header = false;

  for (unsigned long x = 0; x < U_TABLE_SIZE; x++)
	{
	  iter = players[x].begin();
	  if (!players[x].empty())
		{
		  while(iter != players[x].end())
			{
			  p = (*iter);
			  if (cmd || is_playing(p->getClient()))
				{
				  if (!header)
					{
					  notice(s_GameServ, u, "Players:");
					  header = true;
					}
#ifdef P10
				  notice(s_GameServ, u, "IRC: %s     Game: %s", (p->getClient() ? p->getClient()->getRealNick() : "Not Playing"), 
						 p->getName().c_str());
#else
				  notice(s_GameServ, u, "IRC: %s     Game: %s", (p->getClient() ? p->getClient()->getNick() : "Not Playing"), 
						 p->getName().c_str());
#endif
				}
			  iter++;
			}
		}
	}
  if (!header)
	notice(s_GameServ, u, "No one is playing");
  else
	notice(s_GameServ, u, "End of List"); 
}

void do_set(char *u)
{
  aClient *user;
  Player *p;
  char *name = strtok(NULL, " ");
  char *cmd = strtok(NULL, " ");
  char *cmd2;
  
  if (!(user = find(u)))
    {
      notice(s_GameServ, u, "Fatal error. Cannot find aClient. "\
			 "Buf: %s LOGOUT", u);
      return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
      log("Ignoring %s.", user->getNick());
#endif
      return;
    }
  else if (!name || !cmd)
    {
      notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] {PASSWORD|BANK BALANCE|PLAYER FIGHTS|FOREST FIGHTS|GOLD|STRENGTH|DEFENSE|HP|MAXHP|EXP|LEVEL|ALIVE|SEEN MASTER} {STRING|NUMBER|TRUE|FALSE}");
      return;
    }
  else if (!(p = findplayer(name)))
    {
      // Back the pointers up... they didn't send a name probably
      cmd2 = cmd;
      cmd = name;
      p = user->stats;
	  
      if (!is_playing(user))
		{
		  notice(s_GameServ, u, "You must be playing to set things for yourself!");
		  return;
		}
    }
  else
    {
      cmd2 = strtok(NULL, " ");
    }
  if (!cmd2)
	{
	  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] {PASSWORD|BANK BALANCE|PLAYER FIGHTS|FOREST FIGHTS|GOLD|STRENGTH|DEFENSE|HP|MAXHP|EXP|LEVEL|ALIVE|SEEN MASTER} {STRING|NUMBER|TRUE|FALSE}");
	  return;
	}
  
  // Regardless of the previous if/else, if it got here, we know we have the cmd pointer at the right spot.
  if (stricmp(cmd, "PASSWORD") == 0)
    {
      // Person is looking to change their password
      // If they're an admin, or it's theirself, allow it
      // cmd2 is pointing to the password now
      if (isAdmin(user) || user == p->getClient())
		{
		  p->setPassword(cmd2);
		  notice(s_GameServ, u, "Password successfully changed");
		}
      else if (user != p->getClient() && !isAdmin(user))
		{
		  notice(s_GameServ, u, "You must be a %S admin to set other peoples' passwords.");
		  return;
		}
    }
  else if (stricmp(cmd, "BANK") == 0 || stricmp(cmd, "BALANCE") == 0)
    {
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;
		}
	  else if (stricmp(cmd, "BANK") == 0)
		{
		  cmd2 = strtok(NULL, " "); // Need an extra parameter for set bank balance
		}
	  if (!cmd2)
		{
		  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] [BANK] BALANCE <NUMBER>");
		  return;
		}
	  
	  p->setBank(stringtoint(cmd2));
	  
	  notice(s_GameServ, u, "Bank balance changed to %ld!", p->getBank());
    }
  else if (stricmp(cmd, "PLAYER") == 0)
    {
      if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;
		}
      else if (stricmp(cmd2, "FIGHTS") != 0)
		{
		  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] PLAYER FIGHTS <NUMBER>");
		  return;
		}
      else
		{
		  cmd2 = strtok(NULL, " ");
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] PLAYER FIGHTS <NUMBER>");
			  return;
			}
		  p->setPlayerFights(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "Player fights changed to %d!", p->getPlayerFights());
		}	  
    }
  else if (stricmp(cmd, "FOREST") == 0)
    {
      if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;
		}
      else if (stricmp(cmd2, "FIGHTS") != 0)
		{
		  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] FOREST FIGHTS <number>");
		  return;
		}
      else
		{
		  cmd2 = strtok(NULL, " ");
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] FOREST FIGHTS <NUMBER>");
			  return;
			}
		  
		  p->setForestFights(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "Forest fights changed to %d!", p->getForestFights());
		}	  
    }
  else if (stricmp(cmd, "GOLD") == 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] GOLD <NUMBER>");
			  return;
			}
		  p->setGold(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "Gold set to %ld", p->getGold());
		  return;
		}
	}
  else if (stricmp(cmd, "STRENGTH") == 0 && stricmp(cmd2, "POTIONS") != 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;	  
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] STRENGTH <NUMBER>");
			  return;
			}
		  
		  p->setStrength(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "Strength set to %d", p->getStrength());
		  return;
		}
	}
  else if (stricmp(cmd, "DEFENSE") == 0 && stricmp(cmd2, "POTIONS") != 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;	  
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] DEFENSE <NUMBER>");
			  return;
			}
		  
		  p->setDefense(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "Defense set to %d", p->getDefense());
		  return;
		}
	}
  else if (stricmp(cmd, "HP") == 0 && stricmp(cmd2, "POTIONS") != 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;	  
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] HP <NUMBER>");
			  return;
			}

		  // Make sure it's easy for an admin to set the hp
		  if (p->getMaxHP() < stringtoint(cmd2))
			p->setMaxHP(stringtoint(cmd2));
		  
		  p->setHP(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "HP set to %d", p->getHP());
		  return;
		}
	}
  else if (stricmp(cmd, "MAXHP") == 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;	  
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] MAXHP <NUMBER>");
			  return;
			}
		  p->setMaxHP(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "MaxHP set to %d", p->getMaxHP());
		  return;
		}
	}
  else if (stricmp(cmd, "EXPERIENCE") == 0 || stricmp(cmd, "EXP") == 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;	  
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] {EXPERIENCE|EXP} <NUMBER>");
			  return;
			}
		  
		  p->setExp(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "Exp set to %ld", p->getExp());
		  return;
		}
	}
  else if (stricmp(cmd, "LEVEL") == 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;	  
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] LEVEL <NUMBER>");
			  return;
			}
		  p->setLevel(stringtoint(cmd2));
		  
		  notice(s_GameServ, u, "Level set to %d", p->getLevel());
		  return;
		}
	}
  else if (stricmp(cmd, "ALIVE") == 0)
	{
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;
		}
	  else
		{
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] ALIVE TRUE|FALSE");
			  return;
			}
		  else if (stricmp(cmd2, "TRUE") == 0)
			{
			  notice(s_GameServ, u, "%s has been Resurrected!", p->getName().c_str());
			  setAlive(p);
			}
		  else
			{
			  notice(s_GameServ, u, "%s is now dead!", p->getName().c_str());
			  clearAlive(p);
			}
		}
	}
  else if (stricmp(cmd, "SEEN") == 0)
    {
      if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "Admins Only!");
		  return;
		}
      else if (stricmp(cmd2, "MASTER") != 0)
		{
		  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] SEEN MASTER {TRUE|FALSE}");
		  return;
		}
      else
		{
		  cmd2 = strtok(NULL, " ");
		  if (!cmd2)
			{
			  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NICK] SEEN MASTER {TRUE|FALSE}");
			  return;
			}
		  else if (stricmp(cmd2, "TRUE") == 0)
			{
			  notice(s_GameServ, u, "%s has seen their master now.", p->getName().c_str());
			  p->addFlag(FLAG_MASTER);
			}
		  else
			{
			  notice(s_GameServ, u, "%s has not seen their master now.", p->getName().c_str());
			  p->remFlag(FLAG_MASTER);
			}
		}	  
    }
  else
	{
	  notice(s_GameServ, u, "Unknown command: SET %s", cmd);
	  notice(s_GameServ, u, "SYNTAX: /msg %S SET [NAME] {PASSWORD|BANK BALANCE|PLAYER FIGHTS|FOREST FIGHTS|GOLD|STRENGTH|DEFENSE|HP|MAXHP|EXP|LEVEL|ALIVE|SEEN MASTER} {STRING|NUMBER|TRUE|FALSE}");
	  return;
	}
}

void do_logout(char *u)
{
  aClient *user;
  Player *p;
  char *name = strtok(NULL, " ");
  
  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal error. Cannot find aClient. "\
			 "Buf: %s LOGOUT", u);
	  log("Could not find aClient Buf: %s LOGOUT", 
		  u);
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  
  if (name)
    {
	  if (!isAdmin(user))
		{
		  notice(s_GameServ, u, "You must be a %S admin to use this command!");
		}
	  else if (!(p = findplayer(name)))
		{
		  notice(s_GameServ, u, "Couldn't find a player named %s", name);
		}
	  else
		{
		  notice(s_GameServ, u, "Logging out %s", p->getName().c_str());
		  logout(p->getClient());
		}
    }
  else if (!name)
    {
	  if (!is_playing(user))
		{
		  notice(s_GameServ, u, "You're not logged in!");
		}
	  else if (is_fighting(user))
		{
		  notice(s_GameServ, u, "You can't logout while fighting!");
		}
	  else
		{
		  notice(s_GameServ, u, "You have left the fields. You have lived to kill another day!");
		  logout(user);
		}
    }
}

void logout(aClient *user)
{
  if (user != NULL)
    {
	  if (user->stats != NULL)
		{
		
		  list<Player*>::iterator iter;
		  unsigned long hv = iHASH((unsigned char *) user->stats->getName().c_str());
		  iter = find(players[hv].begin(), players[hv].end(), user->stats);
		  
		  if (iter == players[hv].end())
			{
			  notice(s_GameServ, user->getNick(), "Fatal error. Contact "\
					 "%S Admin. Cannot find you in the players list. This should NEVER happen");
			  log("Error on logout(). Can't find %s in the players list",
#ifdef P10 
				  user->getRealNick()
#else 
				  user->getNick()
#endif
				  );
			  user->stats = NULL;
			  
			  return;
			}
		  user->stats->delMonster();
		  user->stats->delMaster();
		  user->stats->delBattle();
		  clearDragonFight(user->stats);
		  clearYourTurn(user->stats);
		  clearPlaying(user);
		  
		  user->stats->setClient(NULL);
		  
		  
		  if (player_fight(user))
			{
			  clearYourTurn(user->stats->getBattle()->stats);
			  user->stats->getBattle()->stats->delBattle();
			}
		  
#ifdef DEBUGMODE
		  log("Logged out player %s",
#ifdef P10 
			  user->getRealNick()
#else 
			  user->getNick()
#endif 
			  );
#endif
		}
	}
  if (user)
	user->stats = NULL;
}

void do_register(char *u)
{
  char *password, *name;
  aClient *user;
  Player *p;
  name = strtok(NULL, " ");
  password = strtok(NULL, " ");
  
  if (!name)
    {
	  notice(s_GameServ, u, "SYNTAX: /msg %S REGISTER NAME PASSWORD");
    }
  else if (stricmp(name, s_GameServ) == 0)
    {
	  notice(s_GameServ, u, "You can't use %S as a name!");
    }
  else if (!password)
    {
	  notice(s_GameServ, u, "SYNTAX: /msg %S REGISTER NAME PASSWORD");
    }
  else if (strlen(name) > maxnicklen)
	{
	  notice(s_GameServ, u, "Name too long. Maximum length: %d", maxnicklen);
	}
  else if (!alphaNumeric(name))
	{
	  notice(s_GameServ, u, "That is not a valid name. Please use only AlphaNumeric (A-Z, 0-9) characters!");
	}
  else if ((p = findplayer(name)))
    {
	  notice(s_GameServ, u, "%s is already registered!", name);
	  notice(s_GameServ, u, "Choose another name!");
    }
  else if (!(user = find(u)))
    {
	  log("Fatal Error: Couldn't find %s in the clients list", u);
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
    }
  else
    {
	  if (!is_playing(user))
        {
		  item *tempItem;
		  unsigned long hv = iHASH((unsigned char *) name);

		  // First create the Player
		  user->stats = new Player();

		  // Set the backwards pointer
		  user->stats->setClient(user);

		  // Set the player's password
		  user->stats->setPassword(password);

		  // Set the player's name
		  user->stats->setName(name);

		  // Make sure they have a proper time stamp
		  updateTS(user->stats);

		  // Update the last login time
		  user->stats->lastlogin = time(NULL);
		  
		  // Send notification of success
		  notice(s_GameServ, u, "Player %s registered with password %s.", user->stats->getName().c_str(), password);
		  notice(s_GameServ, u, "Write this password down. If you lose it, there is no way to retrieve it!");

		  // Log the new player
		  log("Nickname %s registered player %s.", u, user->stats->getName().c_str());

		  // Log the player in
		  setPlaying(user);

		  // Start the player at the beginning
		  reset(user->stats);
		  
		  // Add the stick and clothes
		  tempItem = findItemByID(3001);
		  user->stats->inventory->addItem((*Items.begin()))->use(user->stats); // Add the stick
		  user->stats->inventory->addItem(tempItem)->use(user->stats); // Add Clothes

		  // Add the player to the list
		  players[hv].push_back(user->stats);

		  // Attempt to add the player to the top list
		  // The class takes care of pruning the user out if they don't deserve to be in the list
		  myToplist.insertPlayer(user->stats);
		}
	  else
		{
		  notice(s_GameServ, u, "Already registered. Contact a %S admin for help.");
		}
    }
}

void do_identify(char *u)
{
  char *password, *name;
  aClient *user;
  Player *p;
  name = strtok(NULL, " ");
  password = strtok(NULL, " ");
  if (!password || !name)
    {
	  notice(s_GameServ, u, "SYNTAX: /msg %S IDENTIFY NAME PASSWORD");
    }
  else if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal error. Cannot find aClient. Buf: %s", strtok(NULL, ""));
	  log("Error: aClient not found: %s", u);
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!(p = findplayer(name)))
	{
	  notice(s_GameServ, u, "Player %s not found", name);
	}
  else if (is_playing(user))
    {
	  notice(s_GameServ, u, "You are already playing!");
    }
  else if (is_playing(p->getClient()) && !isAdmin(user))
    {
	  notice(s_GameServ, u, "That player has already identified.");
    }
  else if (!check_password(name, password) && !isAdmin(user))
    {
	  notice(s_GameServ, u, "Password incorrect");
    }
  else
	{
	  list<Player*>::iterator iter;
	  unsigned long hv = iHASH((unsigned char *) p->getName().c_str());

	  iter = find(players[hv].begin(), players[hv].end(), p);

	  if (iter == players[hv].end())
		{
		  notice(s_GameServ, u, "Fatal error. Contact %S Admin. Buf: %s", 
				 strtok(NULL, ""));
		  return;
		}
	  // Make sure the other user is logged out
	  logout(p->getClient());
	  
	  user->stats = p;
	  p->setClient(user);
	  updateTS(p);
		
		
#ifdef DEBUGMODE
	    log("Player %s IRC: %s Identified", user->stats->getName().c_str(), 
			user->getNick());
#endif
		//Set the playing flag
		setPlaying(user);
		
		// Update the last login time
		user->stats->lastlogin = time(NULL);

		notice(s_GameServ, u, "Password Accepted. Identified.");
		showNews(u, todaysnews);
    }
}

void do_stats(char *u)
{
  char *nick;
  aClient *user;
  
  nick = strtok(NULL, " ");
  
  if (!(user = find(u)))
    {
	  log("Fatal Error: %s not found in client list", u);
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!nick)
    {
	  if (!is_playing(user))
		{
		  notice(s_GameServ, u, "You're not playing, so you have no stats!");
		  return;
		}
	  else
		{
		  if (!is_fighting(user))
			updateTS(user->stats);
		  showstats(u, user->stats->getName().c_str());
		}
    }
  else
	showstats(u, nick);
}

bool load_masters()
{
  ifstream infile(masterdata);
  char *buf;
  int l = 0;
  buf = new char[1024];
  
  if (infile.fail())
    {
	  log("Error opening %s", masterdata);
	  return false;
    }
  
#ifdef DEBUGMODE
  log("Loading masters from %s", masterdata);
#endif
  
  for (l = 0; l < LEVELS - 1; l++)
    {
	  infile.getline(buf, 1024, '\n');
	  
	  log("%s", buf);
	  if (buf[0] == '#' || buf[0] == '\n' || buf[0] == '\r')
		{
		  l--;
		  continue;
		}
	  else if (buf[0] == '^')
	    break;
	  
	  Monster *master = &levels[l].master;
	  
	  char *name, *weapon, *strength, *gold, *exp, *maxhp, *death;
	  
	  
	  name = strtok(buf, "~");
	  weapon = strtok(NULL, "~");
	  strength = strtok(NULL, "~");
	  gold = strtok(NULL, "~");
	  exp = strtok(NULL, "~");
	  maxhp = strtok(NULL, "~");
	  death = strtok(NULL, "~");
	
	  master->name = name;
	  master->weapon = weapon;
	  master->strength = stringtoint(strength);
	  master->gold = stringtoint(gold);
	  master->exp = stringtoint(exp);
	  master->maxhp = stringtoint(maxhp);
	  master->hp = master->maxhp;
	  master->death = death;
    }

  delete []buf;
  
  if (l < LEVELS - 1)  // We didn't load a master for every level - check data/masters.dat
	return false;
  else
	return true;
}

void delete_monsters()
{
  for (int x = 0; x < LEVELS; x++)
	levels[x].monsters.clear();
}

void display_monster(char *u)
{
  if (is_playing(u))
    {
	  aClient *user = find(u);
	  Player *ni = user->stats;
	  
	  notice(s_GameServ, u, "Your Hitpoints: \ 2%d\ 2", ni->getHP());
	  notice(s_GameServ, u, "%s's Hitpoints: \ 2%d\ 2", ni->getMonster()->name.c_str(), ni->getMonster()->hp);
	  notice(s_GameServ, u, "Here are your commands:");
	  notice(s_GameServ, u, "/msg %S attack");
	  notice(s_GameServ, u, "/msg %S run");
	  notice(s_GameServ, u, "What will you do?");
    }
}

void display_players(char *u)
{
  aClient *user;
  if (!(user = find(u)))
    {
	  log("Fatal error in display_players(): Couldn't find %s", u);
    }
  else
	display_players(user);
}

void display_players(aClient *user)
{
  char *u = user->getNick();
  if (is_playing(user) && player_fight(user))
    {
	  aClient *battle = user->stats->getBattle();
	  notice(s_GameServ, u, "Your Hitpoints: \ 2%d\ 2", user->stats->getHP());
	  notice(s_GameServ, u, "%s's Hitpoints: \ 2%d\ 2", battle->stats->getName().c_str(), battle->stats->getHP());
	  notice(s_GameServ, u, "Here are your commands:");
	  notice(s_GameServ, u, "/msg %S attack");
	  notice(s_GameServ, u, "/msg %S run");
	  notice(s_GameServ, u, "What will you do?");
    }
}


bool is_playing(char *u)
{
  aClient *user;
  if (!(user = find(u)))
	return false;
  else
	return is_playing(user);
}

bool is_playing(aClient *user)
{
  if (!user)
    {
	  return false;
    }
  else if (!user->stats)
	{
	  return false;
	}
  else if (!FL_is_playing(user))
    {
	  return false;
    }
  else if (user->stats->getClient() != user)
    {
	  return false;
    }
  else
	return true;
}

bool is_fighting(char *u)
{
  aClient *user;
  
  if (!(user = find(u)))
	return false;
  else
	return is_fighting(user);
}

bool is_fighting(aClient *user)
{
  if (!is_playing(user))
	return false;
  else
	return player_fight(user) || master_fight(user) || user->stats->getMonster() != NULL;
}

bool player_fight(char *u)
{
  aClient *user;
  
  if (!(user = find(u)))
	return false;
  else 
	return player_fight(user);
}

bool player_fight(aClient *user)
{
  if (!is_playing(user))
	return false;
  else if (is_playing(user->stats->getBattle()))
    {
	  return true;
    }
  return false;
}

bool master_fight(char *u)
{
  aClient *user;
  
  if (!(user = find(u)))
	return false;
  else
	return master_fight(user);
}

bool master_fight(aClient *user)
{
  if (!is_playing(user))
	return false;
  else
	return user->stats->getMaster() != NULL;
}

bool dragon_fight(char *u)
{
  aClient *user;
  if (!(user = find(u)))
	return false;
  else
	return dragon_fight(user);
}

bool dragon_fight(aClient *user)
{
  if (!is_playing(user))
	return false;
  else
	return (isDragonFight(user->stats));
}

bool alphaNumeric(const char *str)
{
  int len = strlen(str);
  for (int x = 0; x < len; x++)
	{
	  if (!((int(str[x]) >= 65 && int(str[x]) <= 90) || (int(str[x]) >= 97 && int(str[x]) <= 122) || (int(str[x]) >= 48 && int(str[x]) <= 57) || int(str[x]) == 95))
		return false;
	}
  return true;
}

void do_fight(char *u)
{
  aClient *ni;
  Player *battle;
  
  char *nick = strtok(NULL, " ");
  
  if (!nick)
    {
	  notice(s_GameServ, u, "SYNTAX: /msg %S FIGHT PLAYER");
	  return;
    }
  else if (!(ni = find(u)))
    {
	  notice(s_GameServ, u, "Fatal error. Contact a(n) %S admin. buf: %s", strtok(NULL, ""));
	  return;
    }
  else if (isIgnore(ni))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", ni->getNick());
#endif
	  return;
    }
  else if (!is_playing(ni))
    {
	  notice(s_GameServ, u, "You are not playing!");
	  return;
    }
  
  updateTS(ni->stats);
  
  if (ni->stats->getPlayerFights() <= 0)
    {
	  ni->stats->setPlayerFights(0); // just to be safe
	  notice(s_GameServ, u, "You are out of player fights for the "\
			 "day. You have to wait until tomorrow!");
    }
  else if (!(battle = findplayer(nick)))
    {
	  notice(s_GameServ, u, "Player %s not found!", nick);
    }
  else if (!isAlive(ni->stats))
    {
	  notice(s_GameServ, u, "You are dead. Wait until tomorrow to fight others!");
    }
  else if (!is_playing(battle->getClient()))
    {
	  notice(s_GameServ, u, "You can't attack %s while they aren't playing!", nick);
    }
  
  /* offline fighting not available yet
	 else if (!(fight = finduser(nick)))
	 {
	 ni->stats->battle = battle;
	 battle->battle = ni;
	 setYourTurn(ni->stats);
	 clearYourTurn(battle->stats);
	 
	 notice(s_GameServ, u, "You decide to fight %s while they're "\
	 "not in the realm!",
	 battle->stats->name.c_str());
	 display_players(u);
	 }
  */
  else if (stricmp(ni->stats->getName().c_str(), battle->getName().c_str()) == 0)
    {
	  notice(s_GameServ, u, "Are you trying to commit suicide!?");
    }
  else if (!isAlive(battle))
    {
	  notice(s_GameServ, u, "They are dead. Cannot fight dead players!");
    }
  else if (player_fight(battle->getClient()))
    {
	  notice(s_GameServ, u, "%s is fighting %s already!", battle->getName().c_str(), battle->getBattle()->stats->getName().c_str());
    }
  else if (master_fight(battle->getClient()))
    {
	  notice(s_GameServ, u, "%s is fighting their master!", battle->getName().c_str());
    }
  else if (is_fighting(battle->getClient()))
    {
	  notice(s_GameServ, u, "%s is fighting %s already!", battle->getName().c_str(), battle->getMonster()->name.c_str());
    }
  else if (!isAdmin(ni) && isFairFights() && (ni->stats->getStrength()/2 - battle->getDefense()) > battle->getHP())
    {
	  notice(s_GameServ, u, "Fair fighting is enabled, and you're too strong for %s!", battle->getName().c_str());
    } 
  else if (ni->stats->getLevel() - battle->getLevel() > maxbfightdistance)
    {
	  // You can't fight someone below you by more than X level(s)
	  // level 12 can fight level (12 - X) but not < (12 - X)
	  notice(s_GameServ, u, "You may not fight %s. You're too strong!", 
			 battle->getName().c_str());
    }
  else if (battle->getLevel() - ni->stats->getLevel() > maxafightdistance)
    {
	  // You can't fight someone above you by more than X level(S)
	  // level 1 can fight level (1 + X), but not > (1 + X)
	  notice(s_GameServ, u, "%s, do you really have a death wish? Try the forest you "\
			 "weakling!", ni->stats->getName().c_str());
    }
  else
	{
	  // Set your battle pointer to the other player
	  ni->stats->setBattle(battle->getClient());
	  
	  // Set the other player's battle pointer to you
	  battle->setBattle(ni);
	  	  
	  // The initiator gets the first move (perhaps this should be 50/50)
	  setYourTurn(ni->stats);
	  clearYourTurn(battle);
	  
	  // Initiate Battle sequence!
	  ni->stats->subtractPlayerFights(1);
	  
	  notice(s_GameServ, u, "You challenge %s to an online duel!", battle->getName().c_str());
	  notice(s_GameServ, c_Forest, "%s walks up and hits %s in the face! Let's see who will bite the dust.",
			 ni->stats->getName().c_str(), battle->getName().c_str()); /* DrLnet - Modified by Kain*/
	  
	  notice(s_GameServ, battle->getClient()->getNick(), "%s has challenged you to an online duel!", ni->stats->getName().c_str());
	  notice(s_GameServ, battle->getClient()->getNick(), "%s gets to go first "\
			 "because they initiated!", ni->stats->getName().c_str());
	  notice(s_GameServ, battle->getClient()->getNick(), "Please wait while %s decides what to do.", ni->stats->getName().c_str());
	  display_players(ni);
	}
}

void do_equip(char *u)
{
  aClient *user;
  pouch *p;
  itemContainer *equip;
  int id;

  char *item = strtok(NULL, " ");

  if (!item || int(item[0]) < 48 || int(item[0] > 57))
    {
      notice(s_GameServ, u, "SYNTAX: EQUIP ####");
      notice(s_GameServ, u, "Type /msg %S HELP EQUIP for more information.");
      return;
    }
  else if (!(user = find(u)))
    {
      notice(s_GameServ, u, "Fatal error in do_equip. Contact a(n) %S Admin");
      return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
      log("Ignoring %s.", user->getNick());
#endif
      return;
    }
  else if (!is_playing(user))
    {
      notice(s_GameServ, u, "You must be playing to equip weapons and armor!");
      return;
    }
  id = stringtoint(item);
  if (!is_fighting(user))
	updateTS(user->stats);
  p = user->stats->inventory;


	if (!(equip = p->Find(id)))
      {
		if (!p->isEmpty())
		  {
			notice(s_GameServ, u, "You aren't carrying that item!");
		  }
		showinventory(user->stats, user);
      }
    else if (equip->getItem()->getType() != ARMOR && equip->getItem()->getType() != WEAPON)
      {
		notice(s_GameServ, u, "You can't use %s like that. Try /msg %S use", equip->getItem()->getName().c_str());
      }
    else
      {
		// Use the item
		notice(s_GameServ, u, "You equip %s.", equip->getItem()->getName().c_str());
		equip->use(user->stats);
      }
}

void do_use(char *u)
{
  aClient *user;
  pouch *p;
  
  char *item = strtok(NULL, " ");
  char *numuse = strtok(NULL, " ");
  int id, num;
  itemContainer *used;
  
  if (!item || int(item[0]) < 48 || int(item[0]) > 57 || (numuse && (int(numuse[0]) < 48 || int(numuse[0]) > 57)))
    {
	  notice(s_GameServ, u, "SYNTAX: USE ####");
	  notice(s_GameServ, u, "Type /msg %S HELP USE for more information.");
	  return;
    }
  else if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal Error in do_use. Contact a(n) %S Admin");
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!is_playing(user))
    {
	  notice(s_GameServ, u, "You must be playing to use items!");
	  return;
    }
  id = stringtoint(item);
  
  if (!numuse)
	{
	  num = 1;
	}
  else
	{
	  num = stringtoint(numuse);
	}
  
  updateTS(user->stats);
  p = user->stats->inventory;
  

  if (!(used = p->Find(id)))
	{
	  if (!p->isEmpty())
		{
		  notice(s_GameServ, u, "You aren't carrying that item!");
		}
	  showinventory(user->stats, user);
	}
  else if (used->getItem()->getType() != POTION)
	{
	  notice(s_GameServ, u, "You can't use %s like that. Try /msg %S equip", used->getItem()->getName().c_str());
	}
  else
	{
	  // Use the item(s)
	  if (num <= 1 || is_fighting(user))
		{
		  notice(s_GameServ, u, "You used %s.", used->getItem()->getName().c_str());
		  used->use(user->stats);
		  if (used->getUses() <= 0)
			{
			  p->deleteItem(used->getItem());
			}
		  end_turn(user);
		}
	  else if (num > 1)
		{
		  int count;
		  const char *name = used->getItem()->getName().c_str();
		  for (count = 0; count < num; count++)
			{
			  if (!(used = p->Find(id)))
				{
				  break;
				}
			  else
				{
				  used->use(user->stats);
				  if (used->getUses() == 0)
					{
					  p->deleteItem(used->getItem());
					}
				}
			}
		  notice(s_GameServ, u, "You used %d %s's", count, name);
		}
	}
}
void do_run(char *u)
{
  aClient *user;
  Player *p, *p2 = NULL;
  
  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Couldn't find you. Error. Contact a %S admin");
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!is_playing(user))
    {
	  notice(s_GameServ, u, "You must be playing to run!");
	  return;
    }
  
  updateTS(user->stats);
  p = user->stats;
  
  if (p->getBattle())
	p2 = p->getBattle()->stats;
  
  if (!is_fighting(user))
	notice(s_GameServ, u, "You run in place... try fighting next time.");
  else if (!player_fight(user) && !master_fight(user) && !dragon_fight(user))
    {
	  notice(s_GameServ, u, "You run away from \ 2%s\ 2 like a little baby!", p->getMonster()->name.c_str());
	  p->delMonster();
    }
  else if (player_fight(user) && isYourTurn(p))
    {
	  notice(s_GameServ, u, "You run away from \ 2%s\ 2 like a little baby!", p2->getName().c_str());
	  notice(s_GameServ, p->getBattle()->getNick(), "\ 2%s\ 2 ran away from you like a little baby!", p->getName().c_str());
	  addNews(todaysnews, "%s ran away from %s like a little baby!!", p->getName().c_str(), p2->getName().c_str()); /* DrLnet - edited by Kain */
	  p2->delBattle();
	  p->delBattle();
	}
  else if (player_fight(user) && !isYourTurn(p))
    {
	  notice(s_GameServ, u, "It is not your turn. Please wait until \ 2%s\ 2 decides what to do.", p2->getName().c_str());
    }
  else if (master_fight(user))
    {
	  notice(s_GameServ, u, "You cannot run from \ 2%s\ 2! FIGHT!", p->getMaster()->name.c_str());
    }
  else if (dragon_fight(user))
	{
	  notice(s_GameServ, u, "You cannot run from %s! FIGHT!", dragon.name.c_str());
	}
}

void end_turn(aClient *user)
{
  char *nick, *u = user->getNick();
  Monster *fight;
  aClient *battle;
  int mhit;
  
  nick = new char[strlen(user->getNick()) + 1];
  
  if (!user || !is_playing(user) || !is_fighting(user))
	goto endturn;
  
  if (!player_fight(user) && !master_fight(user))
	fight = user->stats->getMonster();
  else
	fight = user->stats->getMaster();
  battle = user->stats->getBattle();
  
  if (!player_fight(user))
    {
	  // Opponent's Hit
	  mhit = (fight->strength / 2) + (rand() % (fight->strength / 2)) - (user->stats->getDefense());
    }
  else
    {
	  // Opponent's Hit
	  mhit = (battle->stats->getStrength() / 2) + (rand() % (battle->stats->getStrength() / 2)) - user->stats->getDefense();
    }
  if (!player_fight(user))
    {
	  
	  if (mhit > 0)
        {
		  notice(s_GameServ, u, "\1f%s\1f attacks with their \1f%s\1f for \ 2%d\ 2 damage!",
				 fight->name.c_str(), fight->weapon.c_str(), mhit);
        }
	  else if (mhit <= 0)
		notice(s_GameServ, u, "%s completely misses you!", fight->name.c_str());
	  
	  if (mhit >= user->stats->getHP())
        {
		  if (!master_fight(user))
            {
			  notice(s_GameServ, u, "You have been \ 2\1fkilled\1f\ 2 by %s!", fight->name.c_str());
			  notice(s_GameServ, u, "You lose all gold on hand and lose 10 percent "\
					 "of your experience!");
			  user->stats->setGold(0);
			  user->stats->subtractExp((long int)(user->stats->getExp() * .10));
			  user->stats->setHP(0);
			  user->stats->delMonster();
			  clearAlive(user->stats);
			  goto endturn;
            }
		  else
            {
			  notice(s_GameServ, u, "%s has bested you! You will have to wait "\
					 "until tomorrow to try again", user->stats->getMaster()->name.c_str());
			  user->stats->delMonster();
			  user->stats->delMaster();
			  goto endturn;
            }
        }
	  else
        {
		  if (mhit > 0)
			user->stats->subtractHP(mhit);
		  display_monster(u);
		  goto endturn;
        }
    }
  else
    {
	  clearYourTurn(user->stats);
	  setYourTurn(battle->stats);
	  display_players(battle);
    }
 endturn:
  delete []nick;
}

void do_heal(char *u)
{
  aClient *ni;
  char *amount = strtok(NULL, " ");
  int price, num;
  
  if (!amount)
    {
	  notice(s_GameServ, u, "SYNTAX: /msg %S HEAL {ALL | #}");
	  return;
    }
  else if (!(ni = find(u)))
    {
	notice(s_GameServ, u, "Fatal error. Contact a(n) %S admin. buf: %s", strtok(NULL, ""));
	return;
    }
    else if (isIgnore(ni))
    {
	#ifdef DEBUGMODE
	    log("Ignoring %s.", ni->getNick());
	#endif
	return;
    }
    else if (!is_playing(ni))
    {
	notice(s_GameServ, u, "You aren't playing!");
	return;
    }
    else if (!isAlive(ni->stats))
    {
	notice(s_GameServ, u, "You are dead. Wait until tomorrow for healing.");
	return;
    }
    else if (is_fighting(ni))
    {
	notice(s_GameServ, u, "You can't heal in battle!");
	return;
    }
    else if (ni->stats->getHP() >= ni->stats->getMaxHP())
    {
        notice(s_GameServ, u, "You don't need healing!");
	return;
    }

    updateTS(ni->stats);
    if (stricmp(amount, "ALL") == 0)
    {
        price = ni->stats->getLevel() * 3;
        if (ni->stats->getGold() < (ni->stats->getMaxHP() - ni->stats->getHP()) * price)
        {
            notice(s_GameServ, u, "Healing \ 2%d\ 2 points for \ 2%d\ 2 gold per point.",
                     (long int)ni->stats->getGold()/price, price);
            ni->stats->addHP(ni->stats->getGold() / price);
            ni->stats->setGold(ni->stats->getGold() % price);
        }
        else
        {
            notice(s_GameServ, u, "Healing all possible points at \ 2%d\ 2 gold "\
			"per point.", price);
            notice(s_GameServ, u, "\ 2%d\ 2 points healed for \ 2%ld\ 2 gold. HP at MAX!",
                     (ni->stats->getMaxHP() - ni->stats->getHP()), 
		     (price * (ni->stats->getMaxHP() - ni->stats->getHP())) );
            ni->stats->subtractGold(price * (ni->stats->getMaxHP() - ni->stats->getHP()));
            ni->stats->healall();
        }
    }
    else if (isstringnum(amount))
    {
        num = stringtoint(amount);
        price = ni->stats->getLevel() * 3;
        if (ni->stats->getGold() < price * num)
        {
            notice(s_GameServ, u, "You only have enough gold to heal \ 2%d\ 2 points!",
                     (long int)ni->stats->getGold()/price);
        }
        else if (num <= ni->stats->getMaxHP() - ni->stats->getHP())
        {
            notice(s_GameServ, u, "Healing \ 2%d\ 2 points at \ 2%d\ 2 gold per point.",
                     num, price);
            ni->stats->addHP(num);
            ni->stats->subtractGold(num * price);
        }
        else if (num > ni->stats->getMaxHP() - ni->stats->getHP())
        {
            notice(s_GameServ, u, "Healing all possible points at \ 2%d\ 2 gold "\
			"per point.", price);
            notice(s_GameServ, u, "\ 2%d\ 2 points healed. HP at MAX!",
                     (ni->stats->getMaxHP() - ni->stats->getHP()));
            ni->stats->subtractGold(price * (ni->stats->getMaxHP() - ni->stats->getHP()));
            ni->stats->healall();
        }
    }
    else if (amount[0] == '-')
        notice(s_GameServ, u, "You trying to cheat?");
    else
	notice(s_GameServ, u, "SYNTAX: /msg %S HEAL {ALL | #}");
}

int isstringnum(char *num)
{
    unsigned int x;
    for (x = 0; x < strlen(num); x++)
    {
        if ((int)num[x] < 48 || (int)num[x] > 57)
            return 0;
    }
return 1;
}

long int stringtoint(char *number)
{
    return atol(number);
}

long int pow(int x, int y)
{
  long int value = 0;
  int count = 0;
  value += x;
  
  if (x != 0 && y != 0)
    {
	  for (count = 1; count <= y - 1; count++)
		value *= x;
    }
  else
	{
	  return 1;
	}
  return value;
}

long int chartoint(char ch)
{
  if (int(ch) >= 48 && int(ch) <= 57)
	return int(ch) - 48;
  else
	return 0;
}

int save_gs_dbase()
{
  list<Player*>::iterator iter;
  Player *it;
  ofstream outfile;
  
  outfile.open(playerdata);
  
  if (!outfile)
    {
	  log("Error opening %s", playerdata);
	  return 0;
    }
  
  for (unsigned long x = 0; x < U_TABLE_SIZE; x++)
	{
	  for(iter = players[x].begin(); iter != players[x].end(); iter++)
		{
		  it = (*iter);
		  clearYourTurn(it);
		  item *w, *a;
		  w = it->getWeapon();
		  a = it->getArmor();
		  
		  outfile << it->getName().c_str() << ' ' << it->getLevel() << ' ' << it->getExp() << ' ' << it->getGold() << ' ' << it->getBank() << ' '<< it->getHP() << ' ' << it->getMaxHP() << ' ' << it->getStrength() << ' ' << it->getDefense() << ' ' << it->getForestFights() << ' ' << it->getPlayerFights() <<  ' ' << it->getFlags() << ' ' << it->getPassword().c_str() << ' ' << it->lastlogin << ' ' << (w ? w->getID() : 0) << ' ' << (a ? a->getID() : 0);
		  
		  // Traverse the list and write out each item ID and how many uses are left
		  if (!it->inventory->isEmpty())
			{
			  list<itemContainer> *myitems;
			  list<itemContainer>::iterator item_iter;
			  myitems = it->inventory->getItems();
			  
			  for(item_iter = myitems->begin();item_iter != myitems->end();item_iter++)
				{
				  outfile << ' ' << (*item_iter).getItem()->getID() << ' ' << (*item_iter).getUses();
				}
			}
		  outfile << endl;
		}
	}
  outfile.close();
  return 1;
}

int load_dragon()
{
    ifstream infile;
    char *buf;

    infile.open(dragondata);

    if (infile.fail())
    {
	infile.clear();
	log ("Error opening %s. Trying initialdragon.dat", dragondata);
	infile.open("data/initialdragon.dat");
	if (infile.fail())
        {
	    log ("Error opening data/initialdragon.dat");
	    return 0;
	}
    }

    buf = new char[1024];

    infile.getline(buf, 1024, '\n');
    infile.close(); // Done with the file... we have what we want

    dragon.name = strtok(buf, "~");
    dragon.weapon = strtok(NULL, "~");
    dragon.gold = 0;
    dragon.exp = 0;
    dragon.strength = stringtoint(strtok(NULL, "~"));
    dragon.hp = stringtoint(strtok(NULL, "~"));
    dragon.defense = stringtoint(strtok(NULL, "~"));
    dragon.death = strtok(NULL, "");

    log ("loaded dragon: %s", dragon.name.c_str());

    delete []buf;

return save_dragon();  // Save the dragon file and return the status code :)
}

int save_dragon()
{
    ofstream outfile;

    outfile.open(dragondata);

    if (outfile.fail())
    {
	log ("Error opening %s. Exiting.", dragondata);
	return 0;
    }

    outfile << dragon.name.c_str() << '~' << dragon.weapon.c_str() << '~' 
		<< dragon.strength << '~' << dragon.hp << '~' 
		<< dragon.defense << '~' << dragon.death.c_str() << "\n^"
		<< endl;

outfile.close();

return 1;
}

int load_store()
{
  ifstream infile;
  char *buf;
  item *tempItem;
  buf = new char[1024];
  long id;
  
  infile.open(storeitemdata);
  
  if (infile.fail())
    {
      log("Error opening %s", storeitemdata);
      return 0;
    }
  
  while (infile.getline(buf, 1024, '\n'))
    {
      try
	{
	  if (buf[0] != '#' && buf[0] != '\n' && buf[0] != '\0')
	    {
	      item *tempItem2;
	      id = stringtoint(strtok(buf, ""));
	      tempItem2 = findItemByID(id);
	      if (tempItem2 == NULL)
		{
		  log("Invalid ID in %s", storeitemdata);
		  return 0;
		}

	      tempItem = tempItem2;
	      store.push_back(tempItem);
	    }
	}
      catch (char *str)
	{
	  log("Exception loading store: %s", str);
	  delete []buf;
	  return 0;
	}
    }
  delete []buf;
  return 1;
}
int load_tavern()
{
  ifstream infile;
  char *buf;
  tavernItem tempItem;
  buf = new char[1024];
  long id, level;

  infile.open(tavernitemdata);
  if (infile.fail())
    {
      log("Error opening %s", tavernitemdata);
      return 0;
    }

  while (infile.getline(buf, 1024, '\n'))
    {
      try
	{
	  if (buf[0] != '#' && buf[0] != '\n' && buf[0] != '\0')
	    {
	      item *tempItem2;
	      id = stringtoint(strtok(buf, "~"));
	      level = stringtoint(strtok(NULL, ""));
	      tempItem2 = findItemByID(id);
	      if (tempItem2 == NULL)
		{
		  log("Invalid ID in %s", tavernitemdata);
		  return 0;
		}
	      tempItem.setItem(tempItem2);
	      tempItem.setLevel(level);
	      tavern.push_back(tempItem);
	    }
	}
      catch (char *str)
	{
	  log("Exception loading tavern: %s", str);
	  delete []buf;
	  return 0;
	}
    }
  delete []buf;
  return 1;
}
int load_items()
{
  ifstream infile;
  char *buf;
  item *tempItem;
  
  buf = new char[1024];
  
  infile.open(itemdata);
  
  if (infile.fail())
    {
      log("Error opening %s", itemdata);
      return 0;
    }
  
  while (infile.getline(buf, 1024, '\n'))
    {
      if (buf[0] == '^')
		break;
      try
		{
		  if (buf[0] != '#' && buf[0] != '\n' && buf[0] != '\0')
			{
			  switch(buf[0])
				{
				case '1':
				  tempItem = new weapon();
				  break;
				case '2':
				  tempItem = new armor();
				  break;
				case '3':
				  tempItem = new potion();
				  break;
				default:
				  log("Invalid Item Type %c in %s", buf[0], itemdata);
				  delete []buf;
				  return 0;
				  break;
				}
			  if(tempItem->setData(buf))
				{
				  Items.push_back(tempItem);
				}
			}
		}
      catch (char *str)
		{
		  log("Exception loading items: %s", str);
		  delete []buf;
		  return 0;
		}
    }
  delete []buf;
  return 1;
}

int load_gs_dbase()
{
  ifstream infile;
  Player *p;
  char *tempname, *buf, *password;
  int tempnum;
  buf = new char[100000];
  
  infile.open(playerdata);
  
  if (infile.fail())
    {
	  log("Error opening %s", playerdata);
	  return 0;
    }
  
  
  for (int x = 0; x < U_TABLE_SIZE; x++)
    {
	  list<Player*>::iterator iter;
	  
	  for (iter = players[x].begin(); iter != players[x].end(); iter++)
		{
		  logout((*iter)->getClient());
		  delete (*iter);
		}
	  players[x].clear();
    }
  
  while (infile.getline(buf, 100000, '\n'))
	{
	  tempname = strtok(buf, " ");
	  p = new Player(tempname);
	  
	  p->setLevel(stringtoint(strtok(NULL, " ")));
	  p->setExp(stringtoint(strtok(NULL, " ")));
	  p->setGold(stringtoint(strtok(NULL, " ")));
	  p->setBank(stringtoint(strtok(NULL, " ")));
	  tempnum = stringtoint(strtok(NULL, " "));
	  p->setMaxHP(stringtoint(strtok(NULL, " ")));
	  p->setHP(tempnum);
	  p->setStrength(stringtoint(strtok(NULL, " ")));
	  p->setDefense(stringtoint(strtok(NULL, " ")));
	  p->setForestFights(stringtoint(strtok(NULL, " ")));
	  p->setPlayerFights(stringtoint(strtok(NULL, " ")));
	  p->setFlags(stringtoint(strtok(NULL, " ")));
  
  
	  
	  password = strtok(NULL, " ");
	  p->setRawPassword(password);
	  tempname = strtok(NULL, " ");
	  
	  if (tempname)
		p->lastlogin = stringtoint(tempname);
	  else
		p->lastlogin = time(NULL);
	  
	  tempname = strtok(NULL, " ");
	  tempnum = stringtoint(tempname);
	  item *tempitem;
	  if (tempnum != 0)
		{
		  tempitem = findItemByID(tempnum);
		  p->setWeapon(*tempitem);
		}
	  
	  tempname = strtok(NULL, " ");
	  tempnum = stringtoint(tempname);
	  
	  if (tempnum != 0)
		{
		  tempitem = findItemByID(tempnum);
		  p->setArmor(*tempitem);
		}
	  
	  
	  unsigned long hv = iHASH((unsigned char *) p->getName().c_str());
	  
	  p->setClient(NULL);
	  
	  for (tempname = strtok(NULL, " "); tempname != NULL; tempname = strtok(NULL, " "))
		{
		  long int id, uses;
		  list<item*>::iterator item_iter;
		  id = stringtoint(tempname);
		  tempname = strtok(NULL, " ");
		  uses = stringtoint(tempname);
		  
		  item_iter = Items.begin();
		  while (item_iter != Items.end())
			{
			  if ((*item_iter)->getID() == id)
				{
				  // Don't sort every time you add an item or it eats CPU
				  p->inventory->addItemNoChecks((*item_iter))->setUses(uses);
				}
			  item_iter++;
			}
		}
	  p->inventory->sort();
	  players[hv].push_back(p);
	}

  delete [] buf;
  infile.close();
  return 1;
}

bool passcmp(const char *encrypted, char *plaintext)
{
  char salt[3];
  char *plaintext2, *plainToencrypt;
  bool same = false;
  
  plaintext2 = new char[strlen(encrypted) + strlen(plaintext)]; // Extra
  strcpy(plaintext2, plaintext);
  
  salt[0] = encrypted[0];
  salt[1] = encrypted[1];
  salt[3] = '\0';
  
  plainToencrypt = crypt(plaintext2, salt);
  
  same = (strcmp((const char *)encrypted, plainToencrypt) == 0 ? true : false);
  
  delete []plaintext2;
  
  return same;
}

bool check_password(char *name, char *plaintext)
{
  Player *p;
  
  if (!(p = findplayer(name)))
    return false;
  else
    {
      return passcmp(p->getPassword().c_str(), plaintext);
    }
}

void do_store(char *u)
{
  list<item*>::iterator item_iterator;
  item *tempItem;
  char *cmd = strtok(NULL, " ");
  char *num = strtok(NULL, " ");
  char *space;
  int id;
  aClient *user;
  Player *p;
  
  
  if (!cmd || !num)
    {
      notice(s_GameServ, u, "SYNTAX: STORE LIST {ARMOR | WEAPONS}");
      notice(s_GameServ, u, "        \ 2STORE SELL NUMBER\ 2");
      notice(s_GameServ, u, "        \ 2STORE BUY \1fNUMBER\1f\ 2");
      return;
    }
  else if (!(user = find(u)))
    {
      log("Fatal Error: could not find %s in client list", u);
      return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
      log("Ignoring %s.", user->getNick());
#endif
      return;
    }
  else if (!is_playing(user))
    {
      notice(s_GameServ, u, "You must be playing to use the store!");
      return;
    }
  else if (is_fighting(user))
    {
      notice(s_GameServ, u, "You can't go to the store while fighting!");
      return;
    }
  else if (!isAlive(user->stats))
    {
      notice(s_GameServ, u, "You are dead. Wait until tomorrow to purchase weapons and armor!");
      return;
    }
  updateTS(user->stats);
  
  if (stricmp(cmd, "LIST") == 0)
    {
      if (stricmp(num, "WEAPONS") == 0)
		{
		  notice(s_GameServ, u, "Welcome to Kain's Armory");
		  notice(s_GameServ, u, "Here are the weapons we have available for the killing, sire:");
		  for (item_iterator = store.begin(); item_iterator != store.end(); ++item_iterator)
            {
			  if ((*item_iterator)->getType() == WEAPON)
				{
				  space = spaces(strlen((*item_iterator)->getName().c_str()), ".");
				  notice(s_GameServ, u, "%s%ld. %s%s%ld", ((*item_iterator)->getID() < 10 ? " " : ""), (*item_iterator)->getID(), (*item_iterator)->getName().c_str(), space, (*item_iterator)->price());
				  free(space);
				}
			}
		  notice(s_GameServ, u, "To purchase a weapon, type /msg %S STORE BUY \ 2#\ 2.");
		  notice(s_GameServ, u, "Where # is the weapon number from the menu above.");
		  
		}
      else if (stricmp(num, "ARMOR") == 0)
		{
		  notice(s_GameServ, u, "Welcome to Kain's Armory");
		  notice(s_GameServ, u, "I hope you enjoy the fine armor we have available for your protection:");
		  for (item_iterator = store.begin(); item_iterator != store.end(); ++item_iterator)
            {
			  if ((*item_iterator)->getType() == ARMOR)
				{
				  space = spaces(strlen((*item_iterator)->getName().c_str()), ".");
				  notice(s_GameServ, u, "%s%ld. %s%s%d",((*item_iterator)->getID() < 10 ? " " : ""), (*item_iterator)->getID(), (*item_iterator)->getName().c_str(), space, (*item_iterator)->price());
				  free(space);
				}
            }
		  
		  notice(s_GameServ, u, "To purchase armor, type /msg %S store buy #");
		  notice(s_GameServ, u, "Where # is the armor number from the menu above.");
		}
      
    } 
  else if (stricmp(cmd, "BUY") == 0) 
    {
      p = user->stats;
      if (!num)
		{
		  notice(s_GameServ, u, "SYNTAX: \ 2STORE BUY \1f#\1f\ 2");
		  return;
		}
      else
		{
		  id = stringtoint(num);
		}
	  
      if (!isstringnum(num))
		{
		  notice(s_GameServ, u, "SYNTAX: \ 2STORE BUY \1f#\1f\ 2");
		  return;
		}
      else if (!(tempItem = findStoreItemByID(id)))
		{
		  notice(s_GameServ, u, "Sorry, we don't carry that item!");
		  return;
		}
      else if (p->getGold() < tempItem->price())
		{
		  notice(s_GameServ, u, "You can't afford to buy %s", tempItem->getName().c_str());
		  return;
		}
      else if (p->inventory->addItem(tempItem))
		{
		  notice(s_GameServ, u, "You have purchased %s! Thanks for the gold!", tempItem->getName().c_str());
		  p->subtractGold(tempItem->price());
		  notice(s_GameServ, u, "Don't forget to type /msg %S equip %ld", tempItem->getID());
		}
	  else
		{
		  notice(s_GameServ, u, "You can't carry any more!");
		}
    }
  else if (stricmp(cmd, "SELL" ) == 0)
    {
      itemContainer *tempContainer;
      p = user->stats;
      id = stringtoint(num);
      if (!isstringnum(num))
		{
		  notice(s_GameServ, u, "SYNTAX: /msg %S store sell #");
		  return;
		}
      else if (!(tempContainer = p->inventory->Find(id)))
		{
		  notice(s_GameServ, u, "You're not carrying that!");
		  return;
		}
      else if (p->getGold() >= 2000000000)
		{
		  notice(s_GameServ, u, "You have enough gold. Just hang on to it for now.");
		}
      else 
		{
		  tempItem = tempContainer->getItem();
		  
		  notice(s_GameServ, u, "Thank you for your business! We gave you %ld gold for %s!", (tempItem->price() / 2), tempItem->getName().c_str());
		  p->addGold((tempItem->price() / 2));
		  p->inventory->deleteItem(tempItem);
		  if (tempItem == p->getWeapon())
			{
			  notice(s_GameServ, u, "Since you equipped %s, you're going to have to reequip something", tempItem->getName().c_str());
			  tempItem->undo(p);
			  p->clearWeapon();
			}
		  else if (tempItem == p->getArmor())
			{
			  tempItem->undo(p);
			  notice(s_GameServ, u, "Since you equipped %s, you're going to have to reequip something", tempItem->getName().c_str());
			  p->clearArmor();
			}
		}
    }
  else
    {
      notice(s_GameServ, u, "SYNTAX: STORE LIST {ARMOR | WEAPONS}");
      notice(s_GameServ, u, "        \ 2STORE SELL #\ 2");
      notice(s_GameServ, u, "        \ 2STORE BUY \1f#\1f\ 2");
      return;
    }
}
void do_inventory(char *u)
{
  aClient *user;
  
  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal Error. Contact a %S admin!");
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!is_playing(user))
    {
	  notice(s_GameServ, u, "You must be playing to check your inventory!");
	  return;
    }
  if (!is_fighting(user))
	updateTS(user->stats);
  showinventory(user->stats, user);
}

void showinventory(Player *from, aClient *to)
{
  char *nick;
  if (!to || !from)
	{
	  return;
	}

  nick = to->getNick();
  
  if (from->inventory->isEmpty())
	{
	  notice(s_GameServ, nick, "You aren't carrying anything");
	  return;
	}
  
  list <itemContainer> *items;
  items = from->inventory->getItems();
  
  list <itemContainer>::iterator item_iter, item_iter2;
  item_iter = items->begin();
  
  notice(s_GameServ, nick, "Inventory for %s:", from->getName().c_str());
  long count;
  while (item_iter != items->end())
	{
	  // Display a list of counted items so as not to show an extra line for duplicate items
	  count = 0;
	  item_iter2 = item_iter;
	  while (item_iter != items->end() && (*item_iter) == (*item_iter2))
	    {
	      if ((*item_iter) == (*item_iter2))
			{
			  ++count;
			}
	      else
			{
			  break;
			}
  	      ++item_iter;
	    }
	  notice(s_GameServ, nick, "%ld.) %s (%ld)", (*item_iter2).getItem()->getID(), (*item_iter2).getItem()->getName().c_str(), count);
	}
}

void do_tavern(char *u)
{
  char *cmd = strtok(NULL, " ");

  aClient *user;
  Player *p;
  
  if (!(user = find(u)))
    {
      notice(s_GameServ, u, "Fatal Error. See a %S admin for help");
      return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
      log("Ignoring %s.", user->getNick());
#endif
      return;
    }
  else if (!is_playing(user))
    {
      notice(s_GameServ, u, "You must be playing to go to the Tavern");
      return;
    }
  else if (is_fighting(user))
    {
      notice(s_GameServ, u, "You cannot go to the Tavern during a fight!");
      return;
    }
  
  updateTS(user->stats);
  p = user->stats;
  
  if (!cmd)
    {
      notice(s_GameServ, u, "Welcome to Boot Liquors Mystic Apothecary and General Store");
      notice(s_GameServ, u, "Your commands:");
      notice(s_GameServ, u, "/msg %S TAVERN {LIST | BUY} [NUMBER]");
      notice(s_GameServ, u, "What'll it be?");
    }
  else if (stricmp(cmd, "LIST") == 0)
    {
      notice(s_GameServ, u, "Here is a list of what we have to offer:");
      showTavern(user);
      notice(s_GameServ, u, "To buy an item, type /msg %S TAVERN BUY #");
    }
  else if (stricmp(cmd, "BUY") == 0)
    {
	  int amt = 1;
      char *chid = strtok(NULL, " ");
	  char *amount = strtok(NULL, " ");

	  if (amount)
		amt = stringtoint(amount);
      
      if (!chid)
		{
		  notice(s_GameServ, u, "SYNTAX: TAVERN BUY # [#]");
		  notice(s_GameServ, u, "Example: /msg %S TAVERN BUY 6001");
		  notice(s_GameServ, u, "Example: /msg %S TAVERN BUY 6001 10");
		  return;
		}
      long id = stringtoint(chid);
      tavernItem *tempItem;
      
      if (!(tempItem = findTavernItemByID(id)) || user->stats->getLevel() < tempItem->getLevel())
		{
		  notice(s_GameServ, u, "Invalid Choice!");
		  notice(s_GameServ, u, "Here is a list of what we have to offer:");
		  showTavern(user);
		  notice(s_GameServ, u, "To buy an item, type /msg %S TAVERN BUY #");
		  return;
		}
      else if (!amount && user->stats->getGold() < tempItem->getItem()->price())
		{
		  notice(s_GameServ, u, "You don't have enough gold!");
		  notice(s_GameServ, u, "Here is a list of what we have to offer:");
		  showTavern(user);
		  notice(s_GameServ, u, "To buy an item, type /msg %S TAVERN BUY #");
		}
	  else if (user->stats->getGold() < amt * tempItem->getItem()->price())
		{
		  notice(s_GameServ, u, "You don't have enough gold!");
		  notice(s_GameServ, u, "Here is a list of what we have to offer:");
		  showTavern(user);
		  notice(s_GameServ, u, "To buy an item, type /msg %S TAVERN BUY # [#]");
		}
	  else
		{
		  if (amount)
			{
			  int amt = stringtoint(amount);
			  if (amt < 0 || amount[0] == '-')
				{
				  notice(s_GameServ, u, "You trying to steal from me?");
				}
			  else if (user->stats->inventory->addItem(tempItem->getItem(), amt) == NULL)
				{
				  notice(s_GameServ, u, "You can't carry that many!");
				}
			  else
				{
				  notice(s_GameServ, u, "%d %s's coming right up!", amt, tempItem->getItem()->getName().c_str());
				  user->stats->subtractGold(tempItem->getItem()->price() * amt);
				}
			}
		  else
			{
			  if (user->stats->inventory->addItem(tempItem->getItem()) == NULL)
				{
				  notice(s_GameServ, u, "You can't carry any more!");
				}
			  else
				{
				  notice(s_GameServ, u, "One %s coming right up!", tempItem->getItem()->getName().c_str());
				  user->stats->subtractGold(tempItem->getItem()->price());
				}
			}
		}
    }
  else
    {
      notice(s_GameServ, u, "Improper Syntax.");
      notice(s_GameServ, u, "Type /msg %S HELP TAVERN for help");
    }
  return;
}

void do_bank(char *u)
{
  char *cmd = strtok(NULL, " ");
  char *amount = strtok(NULL, " ");
  char *nick = strtok(NULL, " ");
  
  aClient *user;
  Player *p;
  
  if (!cmd || (!amount && stricmp(cmd, "BALANCE") != 0) || (stricmp(cmd, "TRANSFER") == 0 && !nick))
    {
	  notice(s_GameServ, u, "BANK {WITHDRAW | DEPOSIT} {ALL | AMOUNT}");
	  notice (s_GameServ, u, "BANK BALANCE");
	  return;
    }
  else if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal Error. Couldn't find your aClient. Contact a(n) %S "\
			 " admin for help");
	  log("Fatal Error. Couldn't find %s while executing do_bank()", u);
	  return; 
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!is_playing(user))
    {
	  notice(s_GameServ, u, "You must be playing to use the bank!");
	  return;
    }
  else if (is_fighting(user))
    {
	  notice(s_GameServ, u, "You can't go to the bank during a fight!");
	  return;
    }
  updateTS(user->stats);
  if (stricmp(cmd, "BALANCE") == 0)
    {
	  showBankBalance(u);
	  return;
    }
  else if (!isAlive(user->stats))
    {
	  notice(s_GameServ, u, "You are dead. We don't accept gold from dead folk! Wait 'til tomorrow!");
	  return;
    }
  else if (!isstringnum(amount) && stricmp(amount, "ALL") != 0)
    {
	  notice(s_GameServ, u, "I don't know how to convert alphabet letters into currency, sire!");
	  return;
    }
  if (stringtoint(amount) < 0)
    {
	  notice(s_GameServ, u, "Sorry. This bank is not licensed "\
			 "to handle such sums of cash, noble Lord.");
	  return;
    }
  p = user->stats;
  
  if (stricmp(cmd, "DEPOSIT") == 0)
    {
	  if (p->getBank() == 2000000000)
        {
		  notice(s_GameServ, u, "Your bank account is full, sire!");
		  return;
        }
	  else if (stricmp(amount, "ALL") == 0)
        {
		  if (2000000000 - p->getBank() < p->getGold())
            {
			  notice(s_GameServ, u, "You don't have enough room for all of your gold.");
			  notice(s_GameServ, u, "Depositing %ld gold into your account", (2000000000 - p->getBank()));
			  p->subtractGold((2000000000 - p->getBank()));
			  p->setBank(2000000000);
			  showBankBalance(u);
            }
		  else
            {
			  notice(s_GameServ, u, "Depositing %ld gold into your account!", p->getGold());
			  p->addBank(p->getGold());
			  p->setGold(0);
			  showBankBalance(u);
            }
        }
	  else if (stringtoint(amount) > p->getGold())
        {
		  notice(s_GameServ, u, "Sire, you only have %ld gold!", p->getGold());
		  showBankBalance(u);
		  return;
        }
	  else
        {
		  if (2000000000 - p->getBank() < stringtoint(amount))
            {
			  notice(s_GameServ, u, "You don't have room in your account for that much.");
			  notice(s_GameServ, u, "Capping off your account with %ld gold!", (2000000000 - p->getBank()));
			  p->subtractGold((2000000000 - p->getBank()));
			  p->setBank(2000000000);
			  showBankBalance(u);
            }
		  else
            {
			  notice(s_GameServ, u, "Depositing %d gold into your account!", stringtoint(amount));
			  p->addBank(stringtoint(amount));
			  p->subtractGold(stringtoint(amount));
			  showBankBalance(u);
            }
        }
    }
  else if (stricmp(cmd, "WITHDRAW") == 0)
    {
	  if (p->getGold() == 2000000000)
        {
		  notice(s_GameServ, u, "You cannot carry any more gold, sire!");
		  showBankBalance(u);
		  return;
        }
	  else if (stricmp(amount, "ALL") == 0)
        {
		  if (2000000000 - p->getGold() < p->getBank())
            {
			  notice(s_GameServ, u, "You don't have enough room to carry all that gold.");
			  notice(s_GameServ, u, "Withdrawing %ld gold from your account", (2000000000 - p->getGold()));
			  p->subtractBank((2000000000 - p->getGold()));
			  p->setGold(2000000000);
			  showBankBalance(u);
            }
		  else
            {
			  notice(s_GameServ, u, "Withdrawing %ld gold from your account!", p->getBank());
			  p->addGold(p->getBank());
			  p->setBank(0);
			  showBankBalance(u);
            }
        }
	  else if (stringtoint(amount) > p->getBank())
        {
		  notice(s_GameServ, u, "Sire, you only have %ld gold in the bank!", p->getBank());
		  showBankBalance(u);
		  return;
        }
	  else
        {
		  if (2000000000 - p->getGold() < stringtoint(amount))
            {
			  notice(s_GameServ, u, "You don't enough have room to carry that much gold!");
			  notice(s_GameServ, u, "You fill your pockets with %ld gold!",
					 (2000000000 - p->getGold()));
			  p->subtractBank((2000000000 - p->getGold()));
			  p->setGold(2000000000);
			  showBankBalance(u);
            }
		  else
            {
			  notice(s_GameServ, u, "Withdrawing %d gold from your account!", stringtoint(amount));
			  p->addGold(stringtoint(amount));
			  p->subtractBank(stringtoint(amount));
			  showBankBalance(u);
            }
        }
    } 
}

void do_dragon(char *u)
{
  aClient *user;
  
  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal error. Contact a(n) %S admin. buf: %s", strtok(NULL, ""));
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!is_playing(user))
    {
	  notice(s_GameServ, u, "You must be playing to fight the dragon!");
	  return;
    }
  else if (is_fighting(user))
    {
	  notice(s_GameServ, u, "You are already in a fight. How will you fight the almighty dragon!?");
	  return;
    }
  else if (!isAlive(user->stats))
    {
	  notice(s_GameServ, u, "You're dead. Wait until tomorrow to see your master!");
	  return;
    }
  else if (user->stats->getLevel() < LEVELS)
    {
	  notice(s_GameServ, u, "You fool! Only those strong enough "\
			 "to vanquish any foe should DARE fight the dragon!");
	  notice(s_GameServ, u, "To put it in terms you can understand: "\
			 "You are too weak. You must be Level %d!", REALLEVELS);
	  return;
    }
  
  updateTS(user->stats);
  
  Player *p = user->stats;
  setMaster(p);
  notice(s_GameServ, u, "You approach the dragon's lair cautiously.");
  notice(s_GameServ, u, "The stench of sulfer fills the air as a "\
		 "deep, red fog rolls in. The air is filled with the "\
		 "heated mist of deadly fire from beyond the cave "\
		 "entrance.");
  notice(s_GameServ, u, "You adjust your %s, tighten your grip on "\
		 "your %s, and venture into the hot, dark cave. "\
		 "You are surprised at the angle of descent as you climb "\
		 "lower and lower, deeper into the dragon's den.", 
		 (p->getArmor() ? p->getArmor()->getName().c_str() : "Fists"), (p->getWeapon() ? p->getWeapon()->getName().c_str() : "Birthday Suit"));
  notice(s_GameServ, u, "You come to the end of the cave to find "\
		 "a tooth. It is a large tooth... bigger than your torso."\
		 " Suddenly the darkness lifts from the gleam of an eye "\
		 " staring into your soul! The eye is large... HUGE!");
  notice(s_GameServ, u, "Just then you notice the eye begin to "\
		 "glare orange! The tooth is moving... but it is still too "\
		 "dark for you to make out.... THE DRAGON! You see it!");
  p->setMonster(&dragon);
  setDragonFight(p);
  display_monster(u);
}

void do_master(char *u)
{
  aClient *user;
  
  
  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal error. Contact a(n) %S admin. buf: %s", strtok(NULL, ""));
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!is_playing(user))
    {
	  notice(s_GameServ, u, "You must be playing to see your master!");
	  return;
    }
  else if (is_fighting(user))
    {
	  notice(s_GameServ, u, "You're in the middle of a fight! Pay attention!");
	  return;
    }
  else if (!isAlive(user->stats))
    {
	  notice(s_GameServ, u, "You're dead. Wait until tomorrow to see your master!");
	  return;
    }
  
  updateTS(user->stats);
  
  char *cmd = strtok(NULL, " ");
  Player *p = user->stats;
  long int need = 0;
  
  if (seenMaster(p))
    {
	  notice(s_GameServ, u, "You have already seen your master today. Wait until tomorrow to try again");
	  return;
    }
  
  if (cmd != NULL)
    {
	  switch(p->getLevel())
		{
	    case 1:
		  need = 200;
		  break;
	    case 2:
		  need = 800;
		  break;
	    case 3:
		  need = 2000;
		  break;
	    case 4:
		  need = 8000;
		  break;
	    case 5:
		  need = 20000;
		  break;
	    case 6:
		  need = 80000;
		  break;
	    case 7:
		  need = 200000;
		  break;
	    case 8:
		  need = 800000;
		  break;
	    case 9:
		  need = 2000000;
		  break;
	    case 10:
		  need = 8000000;
		  break;
	    case 11:
		  need = 20000000;
		  break;
		  
	    case REALLEVELS:
		  need = p->getExp() + 1;
		  notice(s_GameServ, u, "You are at level %d. You are the master. What's left? The DRAGON!", REALLEVELS);
		  return;
		  break;
	    default:
		  need = p->getExp() + 1; // Unknown level... don't let them fight a fake master!
		  break;
		}   
    }
  else
    {
	  notice(s_GameServ, u, "SYNTAX: MASTER {FIGHT | QUESTION}");
	  return;
    }
  
  if (stricmp(cmd, "FIGHT") == 0)
    {
	  if (p->getExp() >= need)
		{
		  setMaster(p);
		  see_master(u);
		}
	  else
	    notice(s_GameServ, u, "You are not worthy of fighting %s! You need %ld more experience.", 
			   levels[p->getLevel() - 1].master.name.c_str(), (need - p->getExp()));
	  return;
    }
  else if (stricmp(cmd, "QUESTION") == 0)
    {
	  if (p->getExp() >= need)
	    notice(s_GameServ, u, "%s looks you up and down and decides you are more ready than you will ever be.", 
			   levels[p->getLevel() - 1].master.name.c_str());
	  else
	    notice(s_GameServ, u, "You pathetic fool! You are no match for %s, %s!", 
			   levels[p->getLevel() - 1].master.name.c_str(), p->getName().c_str());
	  
	  return;
    }
  else
    {
	  notice(s_GameServ, u, "SYNTAX: MASTER {FIGHT | QUESTION}");
    }
}

void see_master(char *u)
{
  aClient *user;

  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Fatal error. Contact a(n) %S admin. buf: %s", strtok(NULL, ""));
	  return;	
    }
  
  if (!is_fighting(user) && is_playing(user))
    {
	  Player *p = user->stats;
  	  p->setMyMaster(&levels[p->getLevel() - 1].master);
	  p->setMonster(&levels[p->getLevel() - 1].master);
	  display_monster(u);  // Since master is the same structure, use this function
    }
}

void showTavern(aClient *user)
{
  Player *p;
  list<tavernItem>::iterator item_iterator;
  item *tempItem;
  
  p = user->stats;
  
  if (!p)
    return;
  
  item_iterator = tavern.begin();
  if (tavern.empty())
    {
      notice(s_GameServ, user->getNick(), "Tavern is empty");
      return;
    }
  
  while (item_iterator != tavern.end())
    {
      if (p->getLevel() < (*item_iterator).getLevel())
		{
		  item_iterator++;
		  continue;
		}
      tempItem = (*item_iterator).getItem();
      notice(s_GameServ, user->getNick(), "%d. %s for %ld gold", tempItem->getID(), tempItem->getName().c_str(), tempItem->price());
      item_iterator++;
    }
}

void showBankBalance(const char *u)
{
  aClient *user;
  Player *p;
  
  if (!(user = find(u)))
	return;
  
  p = user->stats;
  
  if (!p)
	return;
  
  notice(s_GameServ, u, "Account Balance: %ld     Gold On hand: %ld", p->getBank(), p->getGold());
}

void rolloverall()
{
  list<Player*>::iterator iter;
  for (unsigned long x = 0; x < U_TABLE_SIZE; x++)
    {
      for (iter = players[x].begin(); iter != players[x].end(); iter++)
		{
		  rollover((*iter));
		}
    }
}
void refreshall()
{
  list<Player*>::iterator iter;
  for (unsigned long x = 0; x < U_TABLE_SIZE; x++)
    {
      for (iter = players[x].begin(); iter != players[x].end(); iter++)
		{
		  refresh((*iter));
		}
    }
}

void rollover(Player *p)
{
  if (!p)
    return;
  
  p->addForestFights(numrolloverfights);
  
  if (p->getForestFights() > maxforestfights)
    p->setForestFights(maxforestfights);
}

void refresh(Player *p)
{
  if (!p)
	return;

  if (p->getHP() < p->getMaxHP())
	p->healall();
  if (p->getForestFights() < forestfights)
	{
	  p->setForestFights(forestfights);
	}
  
  p->setPlayerFights(3);
  setAlive(p);
  clearMaster(p);
}

void do_refresh(char *u)
{
  char *name = strtok(NULL, " ");
  aClient *user;
  Player *p;
  
  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Error: aClient not found. Contact a %S admin");
	  log("Error: aClient not found: %s", u);
	  return;
    }
  else if (isIgnore(user))
    {
#ifdef DEBUGMODE
	  log("Ignoring %s.", user->getNick());
#endif
	  return;
    }
  else if (!isAdmin(user))
    {
	  notice(s_GameServ, u, "You must be a %S admin to use this command!");
	  return;
    }
  if (!name)
    {
	  notice(s_GameServ, u, "SYNTAX: REFRESH {ALL | NICK}");
	  return;
    }
  else if (stricmp(name, "ALL") == 0)
    {
	  notice(s_GameServ, u, "Refreshing everyone's stats!");
	  refreshall();
    }
  else if ((p = findplayer(name)))
    {
	  notice(s_GameServ, u, "Refreshing %s.", p->getName().c_str());
	  refresh(p);
	}
  else
    {
	  notice(s_GameServ, u, "Player %s not found.", name);
	  return;
    }
}


void resetall()
{
  list<Player*>::iterator iter;
  for (unsigned long x = 0; x < U_TABLE_SIZE; x++)
	{
	  for (iter = players[x].begin(); iter != players[x].end(); iter++)
		{
		  reset((*iter));
		}
	}
}

void reset(Player *p)
{
  item *tempItem;

  if (!p)
	return;
  
  p->reset();
  // Add the stick and clothes
  tempItem = findItemByID(3001);
  p->inventory->addItem((*Items.begin()))->use(p); // Add the stick
  p->inventory->addItem(tempItem)->use(p); // Add Clothes	
}

void updateTS(Player *p)
{
  if (!p)
	return;
  
#ifdef DEBUGMODE
  log("Old timestamp for %s: %ld", p->getName().c_str(), p->lastcommand);
#endif
  p->lastcommand = time(NULL);
#ifdef DEBUGMODE
  log("New timestamp for %s: %ld", p->getName().c_str(), p->lastcommand);
#endif
  PF_cleartimedout(p);
  
}

bool timedOut(Player *p)
{
  if (!p)
	return false;
  else if (p->lastcommand == 0)
	return false;
  else
    {
	  if ((time(NULL) - p->lastcommand) >= maxidletime)
	    return true;
	  
	  return false;
    }
}

void timeOutEvent(Player *p)
{
  if (!p || !is_playing(p->getClient())) // then they're not playing
	return;
  
  char *nick = p->getClient()->getNick();

  if (player_fight(p->getClient()) && isYourTurn(p))
    {
	  // Check to see if they were the idler or if it was the other 
	  // person
	  if (!PF_timedout(p->getBattle()->stats))
		{
		  // This person's last command was given earlier,
		  // so this person is the idler
		  notice(s_GameServ, nick, "You timed out "\
				 "during a fight. You lose your turn!");
		  notice(s_GameServ, p->getBattle()->getNick(),
				 "%s hesitated for too long. Your move.", p->getName().c_str());
		  clearYourTurn(p);
		  setYourTurn(p->getBattle()->stats);
		  
		  // Update the TS for both players to give them another
		  // Chance to wake up, but if the other player doesn't
		  // Attack now, they both get logged out.
		  updateTS(p);
		  PF_settimedout(p);
		  display_players(p->getBattle());
		  return;
		}
	  else
		{
		  notice(s_GameServ, p->getBattle()->getNick(),
				 "You and %s timed out at the same time."\
				 " Don't fight if you're just going to "\
				 "sit there!", p->getName().c_str());
		  notice(s_GameServ, p->getClient()->getNick(),
				 "You and %s timed out at the same time."\
				 " Don't fight if you're just going to "\
				 "sit there!", p->getBattle()->stats->getName().c_str());
		  logout(p->getBattle());
		  logout(p->getClient());
		  clearYourTurn(p);
		  clearYourTurn(p->getBattle()->stats);
		  return;
		}
    }
  else if (!player_fight(p->getClient()))
    {
	  if (isAlive(p) && p->getGold() > 0)
		{
		  // Place fun stuff here :)
		  int randnum = 1 + rand() % 100; // 1-100
#define GSN(s) notice(s_GameServ, nick, s)
#define GSN2(s, f) notice(s_GameServ, nick, s, f)
		  
		  if (randnum < 50)
			{
			  // 35-100% of your gold goes pffft - kain
			  int stolen = (35 + (rand() % 66)) * (p->getGold() / 100);
			  
			  GSN("You stop for a moment to rest on the "\
				  "street corner. All of a sudden, you "\
				  "are ambushed from all sides by a hoarde "\
				  "of knife wielding thugs.");
			  GSN2("The thugs beat you into utter submission "\
				   "and steal %ld gold from you!", stolen);
			  p->subtractGold(stolen);
			}
		  else if (randnum >= 50 && randnum < 75)
			{
			  // 25-65% of your gold goes pffft - kain
			  int stolen = (25 + (rand() % 41)) * (p->getGold() / 100);
			  GSN("While dilly dallying around, you lose "\
				  "your sense of time. Little did you know, "\
				  "but thieves lifted your gold while you "\
				  "weren't watching.");
			  GSN2("Better luck next time... you lose %d gold", stolen);
			  p->subtractGold(stolen);
			}
		  else if (randnum >= 75)
			{
			  // 25-75% of your gold goes pffft - kain
			  int stolen = (25 + (rand() % 51)) * (p->getGold() / 100);
			  GSN("Good grief! A gaggle of gooey green ghostlike "\
				  "goblins grabbed your gold!");
			  GSN2("They stole %d gold from you!", stolen);
			  p->subtractGold(stolen);
			}
		}
	  
	  // Always log out the user
	  logout(p->getClient());
    }
}

void do_reset(char *u)
{
  char *nick = strtok(NULL, " ");
  aClient *user;
  Player *p;
  
  if (!(user = find(u)))
    {
	  notice(s_GameServ, u, "Error: aClient not found. Contact a %S admin");
	  log("Error: aClient not found: %s", u);
	  return;
    }
  else if (!isAdmin(user))
    {
	  notice(s_GameServ, u, "You must be a %S admin to use this command!");
	  return;
    }
  
  if (!nick)
    {
	  notice(s_GameServ, u, "SYNTAX: RESET {ALL | NICK}");
    }
  else if (stricmp(nick, "ALL") == 0)
    {
	  notice(s_GameServ, u, "Resetting everyone's stats!");
	  resetall();
    }
  else if (!(p = findplayer(nick)))
	{
	  notice(s_GameServ, u, "Nick %s not found.", nick);
	}
  else
    {
	  notice(s_GameServ, u, "Resetting %s.", p->getName().c_str());
	  reset(p);
	}
}

void do_help(char *u)
{
  char *cmd = strtok(NULL, " ");
  
  display_help(u, cmd);
}

void display_help(char *u, char *file)
{
  ifstream infile;
  char *buf;
  
  if (!file)
    {
	  infile.open("helpfiles/help");
	  if (infile.fail())
		{
		  log("Error opening helpfiles/help");
		  notice(s_GameServ, u, "Error opening helpfiles/help");
		  return;
		}
	  buf = new char[1024];
	  while(infile.getline(buf, 1024))
		{
		  // Written this way, it will process %S in the helpfiles
		  // Instead of notice(s_GameServ, u, "%s", buf);
		  notice(s_GameServ, u, buf);
		}
	  
	  // Minor recursion
	  aClient *user = find(u);
	  if (user && isAdmin(user))
	    display_help(u, "admin_commands");
    }
  else
    {
	  char *filename;
	  filename = new char[strlen(file) + 11];
	  strcpy(filename, "helpfiles/");
	  strcat(filename, file);
	  
	  for (unsigned int x = 10; x < strlen(filename); x++)
	    filename[x] = tolower(filename[x]);
	  
	  infile.open(filename);
	  delete [] filename;
	  if (infile.fail())
		{
		  notice(s_GameServ, u, "No help for \ 2%s\ 2", file);
		  return;
		}
	  buf = new char[1024];
	  while(infile.getline(buf, 1024))
		{
		  // Written this way, it will process %S in the helpfiles
		  // Instead of notice(s_GameServ, u, "%s", buf);
		  notice(s_GameServ, u, buf);
		}
    }
  infile.close();
  delete [] buf;
}

void do_admin(char *u)
{
  aClient *user;
  char *pass = strtok(NULL, " ");
  
  if (!(user = find(u)))
    {
	  log("Error: aClient not found: %s", u);
	  notice(s_GameServ, u, "Error: aClient not found. Contact %S admin.");
	  return;
    }
  
  if (!pass)
    {
	  notice(s_GameServ, u, "SYNTAX: \ 2ADMIN\ 2 \ 2\1fpassword\1f\ 2");
	  return;
    }
  
  if (isAdmin(user))
    {
	  notice(s_GameServ, u, "You already have administrator privledges.");
	  return;
    }
  else if (strcmp(pass, adminpass) == 0)
    {
	  notice(s_GameServ, u, "Password accepted. You now have administrator privledges.");
	  setAdmin(user);
#ifdef P10
	  log("%s became an administrator.", user->getRealNick());
#else
	  log("%s became an administrator.", user->getNick());
#endif
    }
  else
    {
	  notice(s_GameServ, u, "Invalid password. Remember: case sensitive");
	  return;
    }
}

bool load_levels()
{
  char *filename;
  filename = new char[256];
  
  for (int x = 1; x <= LEVELS; x++)
    {
	  sprintf(filename, "data/levels/level%d.dat", x);
	  if (levels[x - 1].loadLevel(filename) == false)
		{
		  delete []filename;
		  return false;
		}
    }
  
  delete []filename;
  return true;
}

bool load_monsters()
{
  char *filename;
  ifstream infile;
  char *buf;
  buf = new char[2048];
  
  for (int level = 1; level <= LEVELS; level++)
	{
	  filename = new char[256];
	  sprintf(filename, "data/monsters/level%d.dat", level);
	  infile.open(filename);
	  
	  if (!infile)
		{
		  log("Error opening %s", filename);
		  delete []filename;
		  delete []buf;
		  return false;
		}
	  
#ifdef DEBUGMODE
	  log("Loading monsters from %s", filename);
#endif
	  
	  while (infile.getline(buf, 2048))
		{
		  if (buf[0] == '^')
			break;
		  if (buf[0] == '\n' || buf[0] == '\0' || buf[0] == '#')
			continue;
		  Monster *temp;
		  temp = new Monster;
		  
		  temp->name = strtok(buf, "~");
		  temp->weapon = strtok(NULL, "~");
		  temp->death = strtok(NULL, "~");
		  
		  levels[level - 1].monsters.push_back(temp);

		}
	  delete [] filename;
	  infile.close();
	}
  delete [] buf;
  return true;
}

item *findItemByID(int id)
{
  list<item*>::iterator item_iterator;
  
  item_iterator = Items.begin();
  
  while (item_iterator != Items.end())
    {
      if ((*item_iterator)->getID() == id)
		{
		  return (*item_iterator);
		}
      item_iterator++;
    }
  return NULL;
}

item *findStoreItemByID(int id)
{
  list<item*>::iterator item_iterator;
  
  item_iterator = store.begin();
  
  while (item_iterator != store.end())
    {
      if ((*item_iterator)->getID() == id)
		{
		  return (*item_iterator);
		}
      item_iterator++;
    }
  return NULL;
}

tavernItem *findTavernItemByID(int id)
{
  list<tavernItem>::iterator item_iterator;
  
  item_iterator = tavern.begin();
  
  while (item_iterator != tavern.end())
    {
      if ((*item_iterator).getItem()->getID() == id)
		{
		  return &(*item_iterator);
		}
      item_iterator++;
    }
  return NULL;
}