/*Code to punish dumb morts -- Theodryck */

/*You'll have to set up your own declarations in mer.h */
/*Also need to add do_bolt to the command table in interp.c */

/*Add this to act_wiz.c */
void do_bolt( CHAR_DATA * ch, char * argument )
 {
  CHAR_DATA * victim;
  CHAR_DATA * rch;
  char        arg[MAX_INPUT_LENGTH];
  int         amnt;

 argument = one_argument( argument, arg );

     rch = get_char( ch );

    if ( !authorized( rch, "bolt" ) )
        return;

 if( arg[0] =='\0' )
   {
    send_to_char( "Cast a bolt of energy at who?", ch );
    return;
   }

  if( argument[0] == '\0' )
   {
    send_to_char( "How hard do you want to bolt them?", ch );
    return;
   }

 amnt = atoi( argument );

    if ( !( victim = get_char_world( ch, arg ) ) )
    {
	send_to_char( "They aren't here.\n\r", ch );
	return;
    }

   if( amnt >= victim->hit )
     {
      send_to_char( "That would kill them....", ch );
      return;
     }

  if( victim->fighting )
    {
     send_to_char( "Not while they are fighting", ch );
     return;
    }


           act( "You send a {o{l{cbolt of lightning{x hurling towards $N!",
			ch, NULL, victim, TO_CHAR );
	    act( "$n sends a {o{l{cbolt of lightning{x hurling towards you!",
			ch, NULL, victim, TO_VICT );
	    act( "$n sends a {o{l{cbolt of lightning{x streaking towards $N!",
			ch, NULL, victim, TO_NOTVICT );

	damage( ch, victim, amnt, gsn_bolt, WEAR_NONE, DAM_PIERCE );
	stop_fighting( ch, TRUE ); /* Ahapin added this */

 return;
}