/* bzflag
 * Copyright (c) 1993-2010 Tim Riker
 *
 * This package is free software;  you can redistribute it and/or
 * modify it under the terms of the license found in the file
 * named COPYING that should have accompanied this file.
 *
 * THIS PACKAGE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

// TimeLimit.cpp : bzfs plugin to change/set the match duration
//

#include "bzfsAPI.h"
#include <sstream>
#include "bzregex.h"

BZ_GET_PLUGIN_VERSION

#define TIMELIMIT_VER "1.0.4"
#define MAX_TIMES 20

class TimeLimit : public bz_EventHandler, public bz_CustomSlashCommandHandler
{

		public:
				  virtual void process ( bz_EventData *eventData );
				  virtual bool handle ( int playerID, bzApiString, bzApiString, bzAPIStringList*);

		protected:

		private:

};


// variable to save the original -time value
float saveTimeLimit = 0;

// list to hold the available match durations
bzAPIStringList* timeList = bz_newStringList();

TimeLimit timeLimit;

// Displays the available match durations
void showMatchDurations(int playerID)
{
   bz_sendTextMessagef (BZ_SERVER, playerID, "Not a valid match duration, valid match durations are : ");
   for (unsigned i=0; i < timeList->size(); i++) 
      bz_sendTextMessagef (BZ_SERVER, playerID, "* %s minute(s)",timeList->get(i).c_str());
}


// Checks if the regex matches the string or not
bool isValidCmdLine(const char * regex, const char * commandLine)
{
   int result;	
   regex_t preg;

   result = regcomp(&preg, regex, REG_ICASE | REG_NOSUB | REG_EXTENDED);
   result = regexec(&preg, commandLine, 0, NULL, 0);
   regfree(&preg);

   if (result == 0 ) 
       return true;

   return false;
}


// Checks if it's a valid match duration or not
bool isValidTime ( float timelimit )
{

 if ( timeList->size() == 0 ) return true;

 for (unsigned i=0; i < timeList->size(); i++) {
    if ( atof(timeList->get(i).c_str()) == timelimit ) {
      return true;
    }
 }

 return false;
}


void TimeLimit::process ( bz_EventData *eventData )
{

  switch(eventData->eventType)
  {
    case bz_ePlayerJoinEvent: {
	    bzAPIIntList *playerList = bz_newIntList();
	    bz_getPlayerIndexList (playerList);

	    // if it's the first player that joins , then reset the time to default
	    if ( playerList->size() == 1 && bz_isTimeManualStart() && !bz_isCountDownActive()  && !bz_isCountDownInProgress()) {
	      bz_setTimeLimit(saveTimeLimit);
	    }
    }
     break;

	//reset the time to default at gameover
    case bz_eGameEndEvent: {
	    bz_setTimeLimit(saveTimeLimit);
    }
     break;

    default: {
	        // do nothing
    } 
  }

}


std::string convertIntToString(const int integer) 
{
  std::ostringstream ostr;
 
  ostr << integer;

  return ostr.str(); 
}


void parseCommand ( const char* commandLine )
{
  if (isValidCmdLine("^[0-9]+-[0-9]+$",commandLine)) {
    
    bzAPIStringList* range = bz_newStringList();

    range->tokenize(commandLine, "-", 2, false);

    for ( int i=atoi(range->get(0).c_str()); i <= atoi(range->get(1).c_str()); i++) {
       timeList->push_back(convertIntToString(i));
    }

  } else if ( isValidCmdLine("^[[:digit:]+,]+$",commandLine))
           timeList->tokenize(commandLine, ",", MAX_TIMES, false); 
}


bool TimeLimit::handle ( int playerID, bzApiString cmd, bzApiString, bzAPIStringList* cmdParams )
{

  if (strcasecmp (cmd.c_str(), "timelimit")) {
	return false;
  }

  // Check permissions
  if (! bz_hasPerm(playerID,"TIMELIMIT")) {
	bz_sendTextMessagef (BZ_SERVER, playerID, "You do not have permission to run the timelimit command"); 
	return true;
  }

  // If the server is not configured for manual countdown the timelimit
  // command can't be used
  if (! bz_isTimeManualStart()) {
    bz_sendTextMessagef (BZ_SERVER, playerID, "This server was not configured for manual clock countdowns");
    return true;
  }

  if (cmdParams->get(0).c_str()[0] == '\0') {
    bz_sendTextMessagef (BZ_SERVER, playerID, "Usage : /timelimit <minutes>|show|reset");
    return true;
  }

  // displaying the current timelimit
  if (strcasecmp(cmdParams->get(0).c_str(),"show") == 0 ) {
    bz_sendTextMessagef (BZ_SERVER, playerID,"Match duration is set to %.0f minute(s)",(bz_getTimeLimit() / 60));
    return true;
  }

  // check if there is already a countdown in progress or if a match is
  // already in progress
  if ( bz_isCountDownInProgress() ) {
    bz_sendTextMessagef (BZ_SERVER, playerID, "There is a countdown already in progress, match duration can't be changed now");
    return true;
  } else if ( bz_isCountDownActive() ) {
    bz_sendTextMessagef (BZ_SERVER, playerID, "A game is already in progress, match duration can't be changed now");
    return true;
    }  

  bz_PlayerRecord *playerRecord;
  playerRecord = bz_getPlayerByIndex(playerID);

  // resets the timer to the default
  if (strcasecmp(cmdParams->get(0).c_str(),"reset") == 0 ) {
    bz_setTimeLimit(saveTimeLimit);
    bz_sendTextMessagef (BZ_SERVER, BZ_ALLUSERS, "Match duration reset to %.0f minute(s) by %s",(bz_getTimeLimit() / 60),playerRecord->callsign.c_str());
    return true;
  }

  unsigned i, nonumber=0;

  for (i=0; i < strlen(cmdParams->get(0).c_str()); i++) {
     if (isdigit(cmdParams->get(0).c_str()[i]) == 0) nonumber=1;
  }

  if (nonumber == 0 ) {
    float limit = atof(cmdParams->get(0).c_str());
	// Don't allow timelimit being equal or lower then 0
	if (limit > 0 ) {

	  if (! isValidTime(limit)) {
			  
        showMatchDurations(playerID);
		return true;
      }

      bz_setTimeLimit(limit * 60);
      bz_sendTextMessagef (BZ_SERVER, BZ_ALLUSERS, "Match duration set to %.0f minute(s) by %s",(bz_getTimeLimit() / 60),playerRecord->callsign.c_str());
    } else {
          bz_sendTextMessagef (BZ_SERVER, playerID, "Match duration can't be equal or lower then 0");
	  	  return true;
      }
  } else { 
        bz_sendTextMessagef (BZ_SERVER, playerID, "Not a correct value");
	    return true;
    }	       

  return true;

}



BZF_PLUGIN_CALL int bz_Load ( const char* commandLine )
{

  parseCommand(commandLine);

  saveTimeLimit = bz_getTimeLimit();

  bz_registerCustomSlashCommand ("timelimit", &timeLimit); 
  bz_registerEvent(bz_ePlayerJoinEvent, &timeLimit);
  bz_registerEvent(bz_eGameEndEvent, &timeLimit);

  bz_debugMessage(1,"TimeLimit plugin loaded");

  return 0;

}


BZF_PLUGIN_CALL int bz_Unload ( void )
{

  // set default timelimit back before unloading
  //bz_setTimeLimit(saveTimeLimit);

  bz_removeCustomSlashCommand ("timelimit");
  bz_removeEvent (bz_ePlayerJoinEvent, &timeLimit);  
  bz_removeEvent(bz_eGameEndEvent, &timeLimit);  

  bz_debugMessage(1,"TimeLimit plugin unloaded");

  // set default timelimit back before unloading
  bz_setTimeLimit(saveTimeLimit);

  return 0;
}

// Local Variables: ***
// mode:C++ ***
// tab-width: 8 ***
// c-basic-offset: 2 ***
// indent-tabs-mode: t ***
// End: ***
// ex: shiftwidth=2 tabstop=8