#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; 


}