/* ************************************************************************
*  file: act.offensive.c , Implementation of commands.    Part of DIKUMUD *
*  Usage : Offensive commands.                                            *
*  Copyright (C) 1990, 1991 - see 'license.doc' for complete information. *
************************************************************************* */

#include <stdio.h>
#include <string.h>

#include "structs.h"
#include "utility.h"
#include "comm.h"
#include "interpreter.h"
#include "handler.h"
#include "db.h"
#include "limits.h"
#include "constants.h"
#include "spells.h"
#include "fight.h"
#include "act.h"
#include "ansi.h"

/* extern variables */

void do_hit(struct char_data *ch, char *argument, int cmd)
{
   char arg[MAX_STRING_LENGTH];
   struct char_data *victim;

   one_argument(argument, arg);

   if (*arg) {
      victim = get_char_room_vis(ch, arg);
      if (victim) {
         if (victim == ch) {
            send_to_char("You hit yourself..OUCH!.\n\r", ch);
            act("$n hits $mself, and says OUCH!", FALSE, ch, 0, victim, TO_ROOM);
         } else {
            if (IS_AFFECTED(ch, AFF_CHARM) && (ch->master == victim)) {
               act("$N is just such a good friend, you simply can't hit $M.",
                 FALSE, ch,0,victim,TO_CHAR);
               return;
            }
            if ((GET_POS(ch)==POSITION_STANDING) &&
                (victim != ch->specials.fighting)) {
               hit(ch, victim, TYPE_UNDEFINED);
               WAIT_STATE(ch, PULSE_VIOLENCE); /* HVORFOR DET?? */
            } else {
               send_to_char("You do the best you can!\n\r",ch);
            }
         }
      } else {
         send_to_char("They aren't here.\n\r", ch);
      }
   } else {
      send_to_char("Hit who?\n\r", ch);
   }
}



void do_kill(struct char_data *ch, char *argument, int cmd)
{
   char arg[MAX_STRING_LENGTH];
   struct char_data *victim;

   if ((GET_LEVEL(ch) < IMO_LEV3) || IS_NPC(ch)) {
      do_hit(ch, argument, 0);
    return;
   }

   one_argument(argument, arg);

   if (!*arg)
   {
      send_to_char("Kill who?\n\r", ch);
   }
   else
   {
      if (!(victim = get_char_room_vis(ch, arg)))
         send_to_char("They aren't here.\n\r", ch);
      else
         if (ch == victim)
                  send_to_char("Your mother would be so sad.. :(\n\r", ch);
         else {
            act("You chop $M to pieces! Ah! The blood!", FALSE, ch, 0, victim, TO_CHAR);
            act("$N chops you to pieces!", FALSE, victim, 0, ch, TO_CHAR);
            act("$n brutally slays $N", FALSE, ch, 0, victim, TO_NOTVICT);
	    if (!IS_NPC(victim))
		REMOVE_BIT(victim->specials.act, PLR_PKILLER);
            raw_kill(victim);
         }
   }
}



void do_backstab(struct char_data *ch, char *argument, int cmd)
{
   struct char_data *victim;
   char name[256];
   signed char percent;

   one_argument(argument, name);

   if (!(victim = get_char_room_vis(ch, name))) {
      send_to_char("Backstab who?\n\r", ch);
      return;
   }

   if (victim == ch) {
      send_to_char("How can you sneak up on yourself?\n\r", ch);
      return;
   }

   if (!ch->equipment[WIELD]) {
      send_to_char("You need to wield a weapon, to make it a succes.\n\r",ch);
      return;
   }

   if (ch->equipment[WIELD]->obj_flags.value[3] != 11) {
      send_to_char("Only piercing weapons can be used for backstabbing.\n\r",ch);
      return;
   }

   if (victim->specials.fighting) {
      send_to_char("You can't backstab a fighting person, too alert!\n\r", ch);
      return;
   }

   percent=number(1,101); /* 101% is a complete failure */

   if (AWAKE(victim) && (percent > ch->skills[SKILL_BACKSTAB].learned))
      DAMAGE(ch, victim, 0, SKILL_BACKSTAB);
   else
      hit(ch,victim,SKILL_BACKSTAB);
   WAIT_STATE(ch, PULSE_VIOLENCE*3);
}



void do_order(struct char_data *ch, char *argument, int cmd)
{
  char name[100], message[256];
   char buf[256];
   bool found = FALSE;
   int org_room;
   struct char_data *victim;
   struct follow_type *k;

   MUZZLECHECK();
   half_chop(argument, name, message);

   if (!*name || !*message)
      send_to_char("Order who to do what?\n\r", ch);
   else if (!(victim = get_char_room_vis(ch, name)) &&
            str_cmp("follower", name) && str_cmp("followers", name))
         send_to_char("That person isn't here.\n\r", ch);
   else if (ch == victim)
      send_to_char("You obviously suffer from skitzofrenia.\n\r", ch);

   else {
      if (IS_AFFECTED(ch, AFF_CHARM)) {
         send_to_char("Your superior would not aprove of you giving orders.\n\r",ch);
         return;
      }

      if (victim) {
         sprintf(buf, "$N orders you to '%s'", message);
         act(buf, FALSE, victim, 0, ch, TO_CHAR);
         act("$n gives $N an order.", FALSE, ch, 0, victim, TO_ROOM);

         if ( (victim->master!=ch) || !IS_AFFECTED(victim, AFF_CHARM) )
            act("$n has an indifferent look.", FALSE, victim, 0, 0, TO_ROOM);
         else {
            send_to_char("Ok.\n\r", ch);
            command_interpreter(victim, message);
         }
      } else {  /* This is order "followers" */
         sprintf(buf, "$n issues the order '%s'.", message);
         act(buf, FALSE, ch, 0, victim, TO_ROOM);

         org_room = ch->in_room;

         for (k = ch->followers; k; k = k->next) {
            if (org_room == k->follower->in_room)
               if (IS_AFFECTED(k->follower, AFF_CHARM)) {
                  found = TRUE;
                  command_interpreter(k->follower, message);
               }
         }
         if (found)
            send_to_char("Ok.\n\r", ch);
         else
            send_to_char("Nobody here are loyal subjects of yours!\n\r", ch);
      }
   }
}



void do_flee(struct char_data *ch, char *argument, int cmd)
{
   int i, attempt, lose, die;
   char buf[128];
   struct char_data *victim;

   void gain_exp(struct char_data *ch, int gain);
   int special(struct char_data *ch, int cmd, char *arg);

   if (!(victim = ch->specials.fighting)) {
      for(i=0; i<6; i++) {
         attempt = number(0, 5);  /* Select a random direction */
         if (CAN_GO(ch, attempt) &&
         !IS_SET(world[EXIT(ch, attempt)->to_room].room_flags, DEATH)) {
	   ansi_act("$n panics, and attempts to flee.", 
		    TRUE, ch, 0, 0, TO_ROOM,CLR_ACTION);
            if ((die = do_simple_move(ch, attempt, FALSE))== 1) {
               /* The escape has succeeded */
	      ansi_act("You flee head over heels.", 
		       FALSE, ch, 0, 0, TO_CHAR, CLR_ACTION);
            } else {
	      if (!die) ansi_act("$n tries to flee, but is too exhausted!", 
				 TRUE, ch, 0, 0, TO_ROOM,CLR_ACTION);
               return;
            }
         }
      } /* for */
      /* No exits was found */
      ansi(CLR_DAM, ch);
      send_to_char("PANIC! You couldn't escape!\n\r", ch);
      ansi(END, ch);
      return;
   }

   for(i=0; i<6; i++) {
      attempt = number(0, 5);  /* Select a random direction */
      if (CAN_GO(ch, attempt) &&
         !IS_SET(world[EXIT(ch, attempt)->to_room].room_flags, DEATH)) {
	 ansi_act("$n panics, and attempts to flee.", TRUE, ch, 0, 0, TO_ROOM,CLR_ACTION);
         if ((die = do_simple_move(ch, attempt, FALSE))== 1) { 
              /* The escape has succeded */
            if (IS_NPC(victim)) {
              lose = GET_EXP(victim)/3;
      	      lose += (lose*MINV(8, (GET_LEVEL(victim) - GET_LEVEL(ch))))>>3;
            } else
              lose = 0;
            if (lose > 0 && !IS_NPC(ch) && GET_LEVEL(ch) > 5){
               gain_exp(ch, -1*lose); 
               sprintf(buf, "You lose %d experience points!", lose); 
               ansi_act(buf, TRUE, ch, 0, 0, TO_CHAR, CLR_DAM);
            }
	    ansi_act("You flee head over heels.\n\r", 
		     FALSE, ch, 0, 0, TO_CHAR, CLR_ACTION);

            /* Insert later when using huntig system        */
            /* ch->specials.fighting->specials.hunting = ch */

            if (ch->specials.fighting->specials.fighting == ch)
               stop_fighting(ch->specials.fighting);
            stop_fighting(ch);
            return;
         } else {
            if (!die) act("$n tries to flee, but is too exhausted!", TRUE, ch, 0, 0, TO_ROOM);
            return;
         }
      }
   } /* for */

   /* No exits was found */
   send_to_char("PANIC! You couldn't escape!\n\r", ch);
}



void do_bash(struct char_data *ch, char *argument, int cmd)
{
   struct char_data *victim;
   char name[256];
   signed char percent;

   one_argument(argument, name);

   if (ch->skills[SKILL_BASH].learned == 0) {
      send_to_char("You better leave all the martial arts to someone else.\n\r", ch);
      return;
   }

   if (!(victim = get_char_room_vis(ch, name))) {
      if (ch->specials.fighting) {
         victim = ch->specials.fighting;
      } else {
         send_to_char("Bash who?\n\r", ch);
         return;
      }
   }


   if (victim == ch) {
      send_to_char("Aren't we funny today...\n\r", ch);
      return;
   }

   if (!ch->equipment[WIELD]) {
      send_to_char("You need to wield a weapon, to make it a success.\n\r",ch);
      return;
   }

   percent=number(1,101); /* 101% is a complete failure */

   if (percent > ch->skills[SKILL_BASH].learned) {
      DAMAGE(ch, victim, 0, SKILL_BASH);
      GET_POS(ch) = POSITION_SITTING;
   } else {
      DAMAGE(ch, victim, 1, SKILL_BASH);
      GET_POS(victim) = POSITION_SITTING;
      WAIT_STATE(victim, PULSE_VIOLENCE*2);
   }
   WAIT_STATE(ch, PULSE_VIOLENCE*2);
}



void do_rescue(struct char_data *ch, char *argument, int cmd)
{
   struct char_data *victim, *tmp_ch;
   int percent;
   char victim_name[MAX_INPUT_LENGTH+128];

   one_argument(argument, victim_name);

   if (!(victim = get_char_room_vis(ch, victim_name))) {
      send_to_char("Who do you want to rescue?\n\r", ch);
      return;
   }

   if (victim == ch) {
      send_to_char("What about fleeing instead?\n\r", ch);
      return;
   }

   if (ch->specials.fighting == victim) {
      send_to_char("How can you rescue someone you are trying to kill?\n\r",ch);
      return;
   }

   for (tmp_ch=world[ch->in_room].people; tmp_ch &&
       (tmp_ch->specials.fighting != victim); tmp_ch=tmp_ch->next_in_room)  ;

   if (!tmp_ch) {
      act("But nobody is fighting $M?", FALSE, ch, 0, victim, TO_CHAR);
      return;
   }


   if (ch->skills[SKILL_RESCUE].learned == 0)
      send_to_char("But you don't know how do this!", ch);
   else {
      percent=number(1,101); /* 101% is a complete failure */
      if (percent > ch->skills[SKILL_RESCUE].learned) {
         send_to_char("You fail the rescue.\n\r", ch);
         return;
      }

      send_to_char("Banzai! To the rescue...\n\r", ch);
      act("You are rescued by $N, you are confused!", FALSE, victim, 0, ch, TO_CHAR);
      act("$n heroically rescues $N.", FALSE, ch, 0, victim, TO_NOTVICT);

      if (victim->specials.fighting == tmp_ch)
         stop_fighting(victim);
      if (tmp_ch->specials.fighting)
         stop_fighting(tmp_ch);
      if (ch->specials.fighting)
         stop_fighting(ch);

      set_fighting(ch, tmp_ch);
      set_fighting(tmp_ch, ch);

      WAIT_STATE(victim, 2*PULSE_VIOLENCE);
   }

}



void do_kick(struct char_data *ch, char *argument, int cmd)
{
   struct char_data *victim;
   char name[256];
   signed char percent;


   if (ch->skills[SKILL_KICK].learned == 0) {
      send_to_char("You better leave all the martial arts to fighters.\n\r", ch);
      return;
   }

   one_argument(argument, name);

   if (!(victim = get_char_room_vis(ch, name))) {
      if (ch->specials.fighting) {
         victim = ch->specials.fighting;
      } else {
         send_to_char("Kick who?\n\r", ch);
         return;
      }
   }

   if (victim == ch) {
      send_to_char("Aren't we funny today...\n\r", ch);
      return;
   }

   percent=((10-(GET_AC(victim)/10))<<1) + number(1,101); /* 101% is a complete failure */

   if (percent > ch->skills[SKILL_KICK].learned) {
      DAMAGE(ch, victim, 0, SKILL_KICK);
   } else {
      DAMAGE(ch, victim, GET_LEVEL(ch)>>1, SKILL_KICK);
   }
   WAIT_STATE(ch, PULSE_VIOLENCE*3);
}

void do_breath(struct char_data *ch, char *arg, int cmd)
{
   char name[100], message[256];
   char buffer[MAX_STRING_LENGTH];
   struct char_data *victim;
   int percent;
   int cost = 3;
   
   if (IS_NPC(ch)) {
     send_to_char("This used to crash the mud you dough-head!\n\r",ch);
     return;
   }
   if ((ch->specials.fighting) && (pulse%PULSE_VIOLENCE)) {
     sprintf(buffer, "breath %s", arg);
     WAIT_STATE(ch, PULSE_VIOLENCE - pulse%PULSE_VIOLENCE);
     write_to_head_q(buffer, &ch->desc->input);
     return; /* we'll be back at the beginning of first combat round */
   }
   if ((GET_CLASS(ch) != CLASS_DRAGONW) && (GET_LEVEL(ch) < IMO_LEV2)) {
      act("You fail to imitate a dragon successfully.", FALSE, ch, 0, 0, TO_CHAR);
      act("$n exhales loudly, in a futile attempt to imitate a dragon", FALSE, ch, 0, 0, TO_ROOM);
      return;
   }
   if (GET_MOVE(ch) < cost)
      send_to_char("You're just too tired for that kind of thing\n\r", ch);
   arg = one_argument(arg, name);
   if (*name) /* if the name exists get next arg */
     arg = one_argument(arg, message);
   if (!(*name && *message)) {
     if (!*name) {
       send_to_char("Breath what on who?\n\r", ch);
       return;
     } else {
       if (str_cmp("gas",name)) { /* only gas is area affect */
	 send_to_char("Breath what on who?\n\r", ch);
	 return;
       }
       if (IS_AFFECTED(ch, AFF_CHARM) && ch->master &&
	   (ch->master->in_room == ch->in_room)) {
	 act("$N is just such a good friend, you simply can't hurt $M.",
	     FALSE, ch,0,ch->master,TO_CHAR);
	 return;
       }
       percent = number(0,101);
       if ((!str_cmp("gas",name))&&(percent < ch->skills[SPELL_GAS_BREATH].learned)) {
	 send_to_char("You inhale mightily...!\n\r",ch);
	 WAIT_STATE(ch, PULSE_VIOLENCE*3);
	 GET_MOVE(ch) -= cost;
	 cast_gas_breath( GET_LEVEL(ch), ch, "", SPELL_TYPE_SPELL, 0, 0 );
	 return;
       }
     }
   } else {
     victim = get_char_room_vis(ch, message);
     if (victim) {
       if (victim == ch) {
	 send_to_char("Even dragon-kin aren't that dumb..\n\r", ch);
       } else {
	 if (IS_AFFECTED(ch, AFF_CHARM) && (ch->master == victim)) {
	   act("$N is just such a good friend, you simply can't hurt $M.",
	       FALSE, ch,0,victim,TO_CHAR);
	   return;
	 }
	 if (GET_POS(ch)>=POSITION_FIGHTING)  {
	   percent = number(0,101);
	   if ((!str_cmp("gas",name))&&(percent < ch->skills[SPELL_GAS_BREATH].learned)) {
	     send_to_char("You inhale mightily...!\n\r",ch);
	     cast_gas_breath( GET_LEVEL(ch), ch, "", SPELL_TYPE_SPELL, victim, 0 );
	     WAIT_STATE(ch, PULSE_VIOLENCE*3);
	     if (GET_LEVEL(ch) < IMO_LEV2)
	       GET_MOVE(ch) -= cost;
	     return;
	   }
	   if ((!str_cmp("frost",name))&&(percent < ch->skills[SPELL_FROST_BREATH].learned)) {
	     send_to_char("You inhale mightily...!\n\r",ch);
	     cast_frost_breath( GET_LEVEL(ch), ch, "", SPELL_TYPE_SPELL, victim, 0 );
	     WAIT_STATE(ch, PULSE_VIOLENCE*3);
	     if (GET_LEVEL(ch) < IMO_LEV2)
	       GET_MOVE(ch) -= cost;
	     return;
	   }
	   if ((!str_cmp("acid",name))&&(percent < ch->skills[SPELL_ACID_BREATH].learned)) {
	     send_to_char("You inhale mightily...!\n\r",ch);
	     cast_acid_breath( GET_LEVEL(ch), ch, "", SPELL_TYPE_SPELL, victim, 0 );
	     WAIT_STATE(ch, PULSE_VIOLENCE*3);
	     if (GET_LEVEL(ch) < IMO_LEV2)
	       GET_MOVE(ch) -= cost;
	     return;
	   }
	   if ((!str_cmp("lightning",name))&&(percent < ch->skills[SPELL_LIGHTNING_BREATH].learned)) {
	     send_to_char("You inhale mightily...!\n\r",ch);
	     cast_lightning_breath( GET_LEVEL(ch), ch, "", SPELL_TYPE_SPELL, victim, 0 );
	     WAIT_STATE(ch, PULSE_VIOLENCE*3);
	     if (GET_LEVEL(ch) < IMO_LEV2)
	       GET_MOVE(ch) -= cost;
	     return;
	   }
	   if ((!str_cmp("fire",name))&&(percent < ch->skills[SPELL_FIRE_BREATH].learned)) {
	     send_to_char("You inhale mightily...!\n\r",ch);
	     cast_fire_breath( GET_LEVEL(ch), ch, "", SPELL_TYPE_SPELL, victim, 0 );
	     WAIT_STATE(ch, PULSE_VIOLENCE*3);
	     if (GET_LEVEL(ch) < IMO_LEV2)
	       GET_MOVE(ch) -= cost;
	     return;
	   }
	   send_to_char("Nothing much seems to happen...\n\r",ch);
	 }
       }
     } else
       send_to_char("No such person around.\n\r",ch);
   }
 }