#if defined(macintosh)

#include <types.h>

#else

#include <sys/types.h>

#include <sys/time.h>

#endif

#include <stdio.h>

#include <string.h>

#include <stdlib.h>

#include <ctype.h>

#include <time.h>

#include "merc.h"



DECLARE_DO_FUN(do_look     );

int	arena;



/*=======================================================================*

 * function: do_challenge                                                *

 * purpose: sends initial arena match query                              *

 * written by: Doug Araya (whiplash@tft.nacs.net) 6-10-96                *

 *=======================================================================*/

void do_challenge(CHAR_DATA *ch, char *argument)

{

  CHAR_DATA *victim; 

  char buf[MAX_STRING_LENGTH]; 

  DESCRIPTOR_DATA *d;





/* == First make all invalid checks == */

 if(IS_NPC(ch))

  return; 



 if( arena == FIGHT_START )

  {

  send_to_char("Sorry, some one else has already started a challenge, please try later.\n\r",ch);

  return;

  }



 if( arena == FIGHT_BUSY )

  {

  send_to_char("Sorry, there is a fight in progress, please wait a few moments.\n\r",ch);

  return; 

  }



 if( arena == FIGHT_LOCK )

  {

  send_to_char("Sorry, the arena is currently locked from use.\n\r",ch);

  return;

  }



 if(IS_SET(ch->act,PLR_CHALLENGED))

  {

  send_to_char("You have already been challenged, either AGREE or DECLINE first.\n\r",ch);

  return; 

  }



 if(ch->hit < ch->max_hit)

  {

  send_to_char("You must be fully healed to fight in the arena.\n\r",ch);

  return;

  }





 if(argument[0] == '\0')

  {

  send_to_char("You must specify whom you wish to challenge.\n\r",ch);

  return;

  }



 if((victim = get_char_world(ch,argument)) == NULL)

  {

  send_to_char("They are not playing.\n\r",ch);

  return;

  }







 if(IS_NPC(victim) || IS_IMMORTAL(victim) || victim == ch )

  {

  send_to_char("You cannot challenge NPC's or yourself.\n\r",ch);

  return;

  }





 if(IS_SET(victim->act,PLR_CHALLENGER))

  {

  send_to_char("They have already challenged someone else.\n\r",ch);

  return;

  }



 if(victim->fighting != NULL )

  {

  send_to_char("That person is engaged in battle right now.\n\r",ch); 

  return; 

  }



 if(victim->hit < victim->max_hit)

  {

  send_to_char("That player is not healthy enough to fight right now.\n\r",ch);

  return;

  }





 if ( victim->desc == NULL )

  {

  send_to_char("That player is linkdead at the moment, try them later.\n\r",ch);

  return;

  }





/* == Now for the challenge == */

 ch->challenged = victim;

 SET_BIT(ch->act,PLR_CHALLENGER);

 victim->challenger = ch;

 SET_BIT(victim->act,PLR_CHALLENGED);

 arena = FIGHT_START;

 send_to_char("Challenge has been sent\n\r",ch);

 act("$n has challenged you to a death match.",ch,NULL,victim,TO_VICT);

 sprintf(buf,"[Arena] %s has challenged %s to a duel.\n\r",

         ch->name, victim->name);

 for ( d = descriptor_list; d; d = d->next )

  {

    if( d->connected == CON_PLAYING)

     {

	ADD_COLOUR(ch,buf,L_RED);

        send_to_char( buf, d->character );

     }

  }

 sprintf(buf,"type: AGREE %s to meet the challenge.\n\r",ch->name);

 send_to_char(buf,victim);

 sprintf(buf,"type: DECLINE %s to chicken out.\n\r",ch->name); 

 send_to_char(buf,victim);

 return;

}



/*=======================================================================*

 * function: do_accept                                                   *

 * purpose: to accept the arena match, and move the players to the arena *

 * written by: Doug Araya (whiplash@tft.nacs.net) 6-10-96                *

 *=======================================================================*/

void do_agree(CHAR_DATA *ch, char *argument)

{



 float odd1, odd2;

 float lvl1, lvl2;

 DESCRIPTOR_DATA *d;

 CHAR_DATA *victim; 

 char buf1[MAX_STRING_LENGTH]; 

 char buf2[MAX_STRING_LENGTH];

 char buf3[MAX_STRING_LENGTH];

 int char_room; 

 int vict_room; 



 /*== the room VNUM's for our arena.are ==*/

 /* we use 1051 thru 1066 for a 4x4 arena */

 char_room = number_range(50,68);

 vict_room = number_range(50,68);



/* == first make all invalid checks == */

 if(IS_NPC(ch))

 return;



 if( !IS_SET(ch->act,PLR_CHALLENGED) )

  {

  send_to_char("You have not been challenged.\n\r",ch);

  return;

  }



 if( arena == FIGHT_BUSY )

  {

  send_to_char("Sorry, there is a fight in progress, please wait a few moments.\n\r",ch);

  return;

  }



 if( arena == FIGHT_LOCK )

  {

  send_to_char("Sorry, the arena is currently locked from use.\n\r",ch);

  return;

  }



 if(argument[0]=='\0')

  {

  send_to_char("You must specify whose challenge you wish to accept.\n\r",ch);

  return;

  }



 if((victim = get_char_world(ch,argument)) == NULL)

  {

  send_to_char("They aren't logged in!\n\r",ch);

  return;

  }



 if(victim == ch)

  {

  send_to_char("You haven't challenged yourself!\n\r",ch);

  return;

  }



 if(!IS_SET(victim->act,PLR_CHALLENGER) || victim != ch->challenger )

  {

  send_to_char("That player hasn't challenged you!\n\r",ch); 

  return; 

  }



/* == now get to business == */

send_to_char("You have accepted the challenge!\n\r",ch);

act("$n accepts your challenge!",ch,NULL,victim,TO_VICT);

/* == announce the upcoming event == */

lvl1 = ch->hit;

lvl2 = victim->hit;

odd1 = ( lvl1 / lvl2 );

odd2 = ( lvl2 / lvl1 );

sprintf(buf1,

"[Arena] %s (%d wins) (%d losses) Payoff odds %f\n\r",

 victim->name,victim->pcdata->awins,victim->pcdata->alosses, odd1 );

sprintf(buf2,

"[Arena] %s (%d wins) (%d losses) Payoff odds %f\n\r", 

 ch->name,ch->pcdata->awins,ch->pcdata->alosses, odd2 ); 

strcpy(buf3,

"[Arena] To wager on the fight, type: bet (amount) (player name)\n\r");

for ( d = descriptor_list; d; d = d->next )

  {

     if( d->connected == CON_PLAYING)

     {

	ADD_COLOUR(ch,buf1,L_RED);

	ADD_COLOUR(ch,buf2,L_RED);

	ADD_COLOUR(ch,buf3,L_RED);

        send_to_char( buf1, d->character );

        send_to_char( buf2, d->character );

        send_to_char( buf3, d->character );

        d->character->gladiator = NULL;

     }

  }

/* == now move them both to an arena for the fun == */

send_to_char("You make your way into the arena.\n\r",ch);

char_from_room(ch); 

char_to_room(ch,get_room_index(char_room));

do_look(ch, "auto");

send_to_char("You make your way to the arena.\n\r",victim); 

char_from_room(victim); 

char_to_room(victim,get_room_index(vict_room)); 

do_look(victim, "auto");

arena = FIGHT_BUSY; 

return; 

}



/*=======================================================================*

 * function: do_decline                                                  *

 * purpose: to chicken out from a sent arena challenge                   *

 * written by: Doug Araya (whiplash@tft.nacs.net) 6-10-96                *

 *=======================================================================*/

void do_decline(CHAR_DATA *ch, char *argument )

{

  CHAR_DATA *victim; 

  char buf[MAX_STRING_LENGTH];

  DESCRIPTOR_DATA *d;





/*== make all invalid checks == */

  if(IS_NPC(ch))

   return;



 if( !IS_SET(ch->act,PLR_CHALLENGED) )

  {

  send_to_char("You have not been challenged.\n\r",ch);

  return;

  }



 if(argument[0]=='\0')

  {

  send_to_char("You must specify whose challenge you wish to decline.\n\r",ch);

  return;

  }

  

 if((victim = get_char_world(ch,argument)) == NULL)

  {

  send_to_char("They aren't logged in!\n\r",ch);

  return;

  }



 if(!IS_SET(victim->act,PLR_CHALLENGER) || victim != ch->challenger )

  {

  send_to_char("That player hasn't challenged you.\n\r",ch);

  return;

  }



 if(victim == ch)

 return; 



/*== now actually decline == */

victim->challenged = NULL;

REMOVE_BIT(victim->act,PLR_CHALLENGER); 

ch->challenger = NULL;

REMOVE_BIT(ch->act,PLR_CHALLENGED);

arena = FIGHT_OPEN;

send_to_char("Challenge declined!\n\r",ch);

act("$n has declined your challenge.",ch,NULL,victim,TO_VICT);

sprintf(buf,"[Arena] %s has declined %s's challenge.\n\r",

        ch->name, victim->name);

 for ( d = descriptor_list; d; d = d->next )

  {

     if( d->connected == CON_PLAYING)

     {

	ADD_COLOUR(ch,buf,L_RED);

        send_to_char( buf, d->character );

     }

  }



return;

}



/*======================================================================*

 * function: do_bet                                                     *

 * purpose: to allow players to wager on the outcome of arena battles   *

 * written by: Doug Araya (whiplash@tft.nacs.net) 6-10-96               *

 *======================================================================*/

void do_bet(CHAR_DATA *ch, char *argument)

 {

 char arg[MAX_INPUT_LENGTH]; 

 char buf[MAX_STRING_LENGTH]; 

 CHAR_DATA *fighter; 

 int wager; 



 argument = one_argument(argument, arg); 



 if(argument[0] == '\0' || !is_number(arg))

  {

  send_to_char("Syntax: BET [amount] [player]\n\r",ch); 

  return;

  }



 if(ch->gladiator != NULL)

  {

  send_to_char("You have already placed a bet on this fight.\n\r",ch);

  return;

  }



/*== disable the actual fighters from betting ==*/

 if(IS_SET(ch->act,PLR_CHALLENGER) || IS_SET(ch->act,PLR_CHALLENGED))

  {

  send_to_char("You can't bet on this battle.\n\r",ch); 

  return; 

  }



 fighter = get_char_world(ch,argument);



/*== make sure the choice is valid ==*/



 if( fighter == NULL )

  {

  send_to_char("That player is not logged in.\n\r",ch);

  return;

  }



 if( IS_NPC(fighter) )

  {

  send_to_char("Why bet on a mob? They aren't fighting...\n\r",ch);

  return;

  }



 if( !IS_SET(fighter->in_room->room_flags,ROOM_ARENA) )

  {

  send_to_char("That player is not in the arena.\n\r",ch); 

  return; 

  }



/*== do away with the negative number trickery ==*/

 if(!str_prefix("-",arg))

  {

  send_to_char("Error: Invalid argument!\n\r",ch); 

  return; 

  }



 wager   = atoi(arg);



 if(wager > 5000 || wager < 1)

  {

  send_to_char("Wager range is between 1 and 50\n\r",ch);

  return; 

  }



/*== make sure they have the cash ==*/

 if(wager > ch->exp)

  {

  send_to_char("You don't have that much qps to wager!\n\r",ch); 

  return; 

  }



/*== now set the info ==*/

ch->gladiator = fighter;

ch->pcdata->plr_wager = wager;

sprintf(buf,"You have placed a %d exp wager on %s\n\r",

        wager,fighter->name);

send_to_char(buf,ch);

return; 

}