/***************************************************************************
 *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
 *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
 *                                                                         *
 *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
 *  Chastain, Michael Quan, and Mitchell Tse.                              *
 *                                                                         *
 *  In order to use any part of this Merc Diku Mud, you must comply with   *
 *  both the original Diku license in 'license.doc' as well the Merc       *
 *  license in 'license.txt'.  In particular, you may not remove either of *
 *  these copyright notices.                                               *
 *                                                                         *
 *  Much time and thought has gone into this software and you are          *
 *  benefitting.  We hope that you share your changes too.  What goes      *
 *  around, comes around.                                                  *
 ***************************************************************************/

/*********************************************
 * WarWizard :  Concept   - Xrakisis         *
 *              Developed - Kurama           *
 *********************************************/

#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"


void do_conjure (CHAR_DATA *ch, char *argument)
{

  char arg [MIL];
  char arg2[MIL];
  char buf [MSL];

  argument = one_argument( argument, arg  );
  argument = one_argument( argument, arg2 );

  if (IS_NPC(ch)) return;

  if( !IS_CLASS(ch, CLASS_WIZARD) )
  {
    send_to_char("Huh.\n\r",ch);
    return;
  }

  if (arg[0] == '\0' && arg2[0] == '\0')
  {
           stc("|<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>|\n\r",ch);
           stc("|                            Magics                            |\n\r",ch);
           stc("|                                                              |\n\r",ch);
   sprintf(buf,"|                Addative : [ %s%s%s%s%s%s%s ]                        |\n\r", 
    ch->pcdata->powers[WIZ_ADD] > 0 ? "#G*#n" : " ",
    ch->pcdata->powers[WIZ_ADD] > 1 ? "#G*#n" : " ",
    ch->pcdata->powers[WIZ_ADD] > 2 ? "#G*#n" : " ",
    ch->pcdata->powers[WIZ_ADD] > 3 ? "#G*#n" : " ",
    ch->pcdata->powers[WIZ_ADD] > 4 ? "#G*#n" : " ",
    ch->pcdata->powers[WIZ_ADD] > 5 ? "#G*#n" : " ",
    ch->pcdata->powers[WIZ_ADD] > 6 ? "#G*#n" : " ");
    stc(buf,ch);
           stc("|                                                              |\n\r",ch);
   sprintf(buf,"|             Subtractive : [ %s%s%s%s%s%s%s ]                        |\n\r",
    ch->pcdata->powers[WIZ_SUB] > 0 ? "#R*#n" : " ",
    ch->pcdata->powers[WIZ_SUB] > 1 ? "#R*#n" : " ",
    ch->pcdata->powers[WIZ_SUB] > 2 ? "#R*#n" : " ",
    ch->pcdata->powers[WIZ_SUB] > 3 ? "#R*#n" : " ",
    ch->pcdata->powers[WIZ_SUB] > 4 ? "#R*#n" : " ",
    ch->pcdata->powers[WIZ_SUB] > 5 ? "#R*#n" : " ",
    ch->pcdata->powers[WIZ_SUB] > 6 ? "#R*#n" : " ");
    stc(buf,ch);
           stc("|                                                              |\n\r",ch);
           stc("|<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>|\n\r",ch);
    return;
  }
  if (arg2[0] == '\0')
    {
      if (!str_cmp(arg,"addative"))
      {
         stc("Addative : The power of creation.\n\r\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] < 1) stc("You have gained no powers.\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] > 0) stc("1: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] > 1) stc("2: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] > 2) stc("3: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] > 3) stc("4: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] > 4) stc("5: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] > 5) stc("6: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_ADD] > 6) stc("7: TBA\n\r",ch);
         return;
      }
      else if (!str_cmp(arg,"subtractive"))
      {
         stc("Subtractive : The power of destruction.\n\r\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] < 1) stc("You have gained no powers.\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] > 0) stc("1: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] > 1) stc("2: Slow: The power to make your opponents move slower thus hitting you less.\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] > 2) stc("3: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] > 3) stc("4: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] > 4) stc("5: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] > 5) stc("6: TBA\n\r",ch);
         if (ch->pcdata->powers[WIZ_SUB] > 6) stc("7: TBA\n\r",ch);
         return;
      } 
      else
      {
      sprintf(buf,"Addative : [ %s%s%s%s%s%s%s ]   Subtractive: [ %s%s%s%s%s%s%s ]\n\r",
      ch->pcdata->powers[WIZ_ADD] > 0 ? "#G*#n" : " ",
      ch->pcdata->powers[WIZ_ADD] > 1 ? "#G*#n" : " ",
      ch->pcdata->powers[WIZ_ADD] > 2 ? "#G*#n" : " ",
      ch->pcdata->powers[WIZ_ADD] > 3 ? "#G*#n" : " ",
      ch->pcdata->powers[WIZ_ADD] > 4 ? "#G*#n" : " ",
      ch->pcdata->powers[WIZ_ADD] > 5 ? "#G*#n" : " ",
      ch->pcdata->powers[WIZ_ADD] > 6 ? "#G*#n" : " ",
      ch->pcdata->powers[WIZ_SUB] > 0 ? "#R*#n" : " ",
      ch->pcdata->powers[WIZ_SUB] > 1 ? "#R*#n" : " ",
      ch->pcdata->powers[WIZ_SUB] > 2 ? "#R*#n" : " ",
      ch->pcdata->powers[WIZ_SUB] > 3 ? "#R*#n" : " ",
      ch->pcdata->powers[WIZ_SUB] > 4 ? "#R*#n" : " ",
      ch->pcdata->powers[WIZ_SUB] > 5 ? "#R*#n" : " ",
      ch->pcdata->powers[WIZ_SUB] > 6 ? "#R*#n" : " ");
      stc(buf,ch);
      return;
     }
    }
    
    if (!str_cmp(arg2,"power"))
    {
        int improve;
        int cost;
        int max;

             if (!str_cmp(arg,"addative"      )) {improve = WIZ_ADD;   max=7;}
        else if (!str_cmp(arg,"subtractive"   )) {improve = WIZ_SUB;   max=7;}
        else
        {
            send_to_char("Magics: Addative , Subtractive.\n\r",ch);
            return;
        }
        cost = (ch->pcdata->powers[improve]+1) * 30;
        arg[0] = UPPER(arg[0]);
        if ( ch->pcdata->powers[improve] >= max )
        {
            sprintf(buf,"You have already gained all the powers of %s magic.\n\r", arg);
            send_to_char(buf,ch);
            return;
        }
        if ( cost > ch->practice )
        {
            sprintf(buf,"It costs you %d primal to improve your %s magic.\n\r", cost, arg);
            send_to_char(buf,ch);
             return;
        }
        ch->pcdata->powers[improve] += 1;
        ch->practice -= cost;
        sprintf(buf,"You gain power in %s magic.\n\r", arg);
        send_to_char(buf,ch);
    }
    else stc("To gain power: Conjure <Addative/Subtractive> power.\n\r",ch);
    return;
}

void do_slow( CHAR_DATA *ch, char *argument )
{
    CHAR_DATA *victim;
    char arg [MIL];
    char buf [MSL];

    argument = one_argument( argument, arg );

    if (IS_NPC(ch)) return;

    if ( !IS_CLASS(ch, CLASS_WIZARD) )
    {
	send_to_char("Huh?\n\r",ch);
	return;
    }
    if (ch->pcdata->powers[WIZ_SUB] < 2)
    {
       stc("You have not gained the subtractive power 'Slow'.\n\r",ch);
       return;
    }
    if ( ( ( victim = ch->fighting ) == NULL ) && ( arg[0] == '\0' ) )
    {
        send_to_char( "Cast Slow on whom?\n\r", ch );
        return;
    }    
    if ( arg[0] != '\0' )
    {
        if ( ( victim = get_char_room( ch, arg ) ) == NULL )
        {
           send_to_char( "They aren't here.\n\r", ch );
           return;
        }
    }

    if ( is_safe(ch,victim) )
       return;

    if ( ch->mana < 10000 )
    {
	send_to_char( "You don't have enough magical energy.\n\r", ch );
	return;
    }

    SET_TIMER(victim, TIMER_SLOW, 3);
//    SET_BIT(victim->extra, EXTRA_SLOW);
    sprintf(buf,"$n places his hand on your head and you suddenly feel extremely slow\n\r");
    act(buf,ch,NULL,victim,TO_VICT); 
    sprintf(buf,"You harness your subtractive power to slow down $N\n\r");
    act(buf,ch,NULL,victim,TO_CHAR);
}