/***************************************************************************
* 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. *
* *
* Ack 2.2 improvements copyright (C) 1994 by Stephen Dooley *
* *
* 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. *
* *
* _/ _/_/_/ _/ _/ _/ ACK! MUD is modified *
* _/_/ _/ _/ _/ _/ Merc2.0/2.1/2.2 code *
* _/ _/ _/ _/_/ _/ (c)Stephen Zepp 1998 *
* _/_/_/_/ _/ _/ _/ Version #: 4.3 *
* _/ _/ _/_/_/ _/ _/ _/ *
* *
* http://ackmud.nuc.net/ *
* zenithar@ackmud.nuc.net *
* 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. *
***************************************************************************/
#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 "ack.h"
extern bool deathmatch;
/*
* This file should contain:
* o Vamp Spells
* o Vamp skills
*
*/
bool spell_blood_leach( int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
CHAR_DATA *check;
AFFECT_DATA *paf;
AFFECT_DATA af;
/* check for vamps */
if ( !IS_VAMP(ch ) )
{
send_to_char( "Only vampires are evil enough to use this spell!\n\r", ch );
return FALSE;
}
for ( check = first_char; check != NULL; check = check->next )
for ( paf = check->first_affect; paf != NULL; paf = paf->next )
if ( paf->type == sn && paf->caster == ch )
{
send_to_char( "You are already maintaining a blood leach on someone else!\n\r", ch );
return FALSE;
}
act( "You create a blood leach and hurl it at $N!", ch, NULL, victim, TO_CHAR );
act( "$n creates a blood leach and hurls it at $N!", ch, NULL, victim, TO_NOTVICT );
act( "$n creates a blood leach and hurls it at YOU!", ch, NULL, victim, TO_VICT );
if ( saves_spell( level, victim ) || IS_VAMP(victim) || is_affected( victim, sn ) )
{
send_to_char( "The blood leach misses you, and vanishes!\n\r", victim );
send_to_char( "The blood leach misses, and vanishes!\n\r", ch );
act( "The blood leach misses $N, and vanishes!", ch, NULL, victim, TO_NOTVICT );
return TRUE;
}
af.type = sn;
af.duration = number_range( 2, UMAX( 4, level/3 ) );
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = 0;
af.caster = ch;
affect_to_char( victim, &af );
act( "The blood leach hits $N and burrows into $S skin!", ch, NULL, victim, TO_ROOM );
send_to_char( "The blood leach hits you, and burrows into your skin!\n\r", victim );
return TRUE;
}
bool spell_shade( int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
ROOM_INDEX_DATA *room;
ROOM_AFFECT_DATA raf;
room = ch->in_room;
if ( room == NULL )
return FALSE;
if ( IS_SET( room->affected_by, ROOM_BV_SHADE ) )
{
send_to_char( "There is already a shade spell operating here!\n\r", ch );
return FALSE;
}
if ( !IS_OUTSIDE( ch ) )
{
send_to_char( "It might help if you tried this outside...\n\r", ch );
return FALSE;
}
act( "$n throws a dark shadow into the air.", ch, NULL, NULL, TO_ROOM );
send_to_char( "You throw a dark shadow into the air.\n\r", ch );
raf.type = sn;
raf.duration = ( level /8 ) + number_range(1,3);
raf.level = level;
raf.bitvector = ROOM_BV_SHADE;
raf.caster = ch;
affect_to_room( room, &raf );
return TRUE;
}
bool spell_embrace(int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( !IS_VAMP( ch ) )
{
send_to_char( "Better leave that to the REAL Vampyres, you wanna be!!!\n\r", ch );
return FALSE;
}
if ( ch->pcdata->vamp_bloodline == 0 )
{
send_to_char( "@@dRENEGADES@@n can't embrace!!!\n\r", ch );
return FALSE;
}
if ( IS_VAMP( victim ) )
{
send_to_char( "@@NYour @@dchosen@@N has already been @@eEmbraced@@N!!!.\n\r", ch );
return FALSE;
}
if ( IS_WOLF( victim ) )
{
send_to_char( "A sudden awareness comes over you, as you peer into their soul and see a @@bGarou@@N!!!\n\r", ch );
if ( !IS_AWAKE( victim ) )
do_wake( victim, "" );
if ( victim->position < POS_STANDING )
do_stand( victim, "" );
if ( ch->position < POS_STANDING )
do_stand( ch, "" );
multi_hit( ch, victim, TYPE_UNDEFINED );
return FALSE;
}
if( IS_NPC(victim))
{
send_to_char("Fergit it bub!!\n\r", ch);
return FALSE;
}
/* if ( victim->pcdata->clan == 7 )
{
send_to_char( "@@mNO WAY!!!!!@@W They are @@dKindred @@eKillers!!!!!@@N\n\r", ch );
return FALSE;
}
*/
if ( victim->position > POS_SLEEPING )
{
/* failure */
act( "$N is far too alert to let you do that!", ch, NULL, victim, TO_CHAR );
return FALSE;
}
else
{
victim->pcdata->vamp_level = 1;
victim->pcdata->vamp_exp = 0;
victim->pcdata->vamp_skill_num = 0;
victim->pcdata->vamp_skill_max = 2;
if ( victim->pcdata->generation == -1 )
victim->pcdata->generation = ch->pcdata->generation + 2;
else
victim->pcdata->generation = ch->pcdata->generation + 1;
if ( victim->pcdata->generation < 4 )
victim->pcdata->generation = 5;
victim->pcdata->vamp_bloodline = ch->pcdata->vamp_bloodline;
victim->pcdata->bloodlust = -10;
victim->pcdata->bloodlust_max = 20;
SET_BIT( victim->pcdata->pflags, PFLAG_VAMP );
victim->pcdata->condition[COND_FULL] = 20;
victim->pcdata->condition[COND_THIRST] = 20;
victim->pcdata->vamp_pracs = 2;
ch->pcdata->bloodlust_max -= 5;
victim->pcdata->recall_vnum = 9001;
send_to_char( "@@NYou sink your fangs into your helpless victim.\n\r", ch );
send_to_char( "Then, in the final death throes, you bite your own arm and allow the @@eblood@@N\n\r", ch );
send_to_char( "to drip into their mouth, damning them to @@dETERNAL NIGHT@@N!!!\n\r", ch );
send_to_char( "you feel some of your essential @@eblood@@N potential drain into your victim!\n\r", ch );
send_to_char( "@@NYou feel your soul ripped asunder as the Vampyre draws your lifeblood into it's mouth!!\n\r", victim );
send_to_char( "As your last breath escapes you, and you begin to submit to death itself, you suddenly feel\n\r", victim );
send_to_char( "a hot, coppery tasting fluid enter your mouth. As the strength of the @@dKindred@@N begins to fill\n\r", victim );
send_to_char( "your veins, your mind is flooded with the sudden knowledge of damnation and @@dEternal Night@@N!!!\n\r", victim );
send_to_char( "Awakening to a new knowledge of your status as a @@eChosen@@N, you know that upon your\n\r", victim );
send_to_char( "first taste of mortal @@eblood@@N, you shall forever enter the ranks of the @@dKindred@@N!!\n\r", victim );
send_to_char( "A choice awaits you....shall you accept this destiny and feed upon mortals, or shall you\n\r", victim );
send_to_char( "seek @@Wcleansing@@N from this @@dEternal Damnation@@N???\n\r", victim );
victim->pcdata->learned[skill_lookup( "feed" )] = 90 ;
}
return TRUE;
}
void do_family( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
DESCRIPTOR_DATA *d;
bool found;
sh_int index;
if ( ch->level < 85 )
if ( !IS_VAMP( ch ) )
{
send_to_char( "Huh?\n\r", ch );
return;
}
if ( get_trust( ch ) == 85 )
{
for ( index = 0; index <= 4 ; index++ )
{
switch ( index )
{
case 0 : sprintf( buf, "\n\r@@WNOT SET@@N\n\r" ); break;
case 1 : sprintf( buf, "\n\r@@WNOT SET@@N\n\r" ); break;
case 2 : sprintf( buf, "\n\r@@WNOT SET@@N\n\r" ); break;
case 3 : sprintf( buf, "\n\r@@WNOT SET@@N\n\r" ); break;
case 4 : sprintf( buf, "\n\r@@WNOT SET@@N\n\r" ); break;
}
send_to_char( buf, ch );
found = FALSE;
for ( d = first_desc; d!=NULL; d = d->next )
{
if ( d->connected == CON_PLAYING
&& ( victim = d->character ) != NULL
&& !IS_NPC(victim)
&& victim->in_room != NULL )
{
if ( IS_VAMP( victim ) && ( victim->pcdata->vamp_bloodline == index ) )
{
found = TRUE;
}
else
continue;
sprintf( buf, "%-15s @@NGen: @@r%d @@NRank: @@d%d@@N @@NBloodlust: @@e%d@@N/@@e%d@@N %-15s\n\r",
victim->name, victim->pcdata->generation, victim->pcdata->vamp_level, victim->pcdata->bloodlust, victim->pcdata->bloodlust_max, victim->in_room->name );
send_to_char( buf, ch );
}
}
if ( !found )
send_to_char( "@@NNo @@dKindred@@N Family members were found.\n\r", ch );
}
}
else
{
sprintf( buf, "@@WMembers of the @@dKindred @@NFamily %s\n\r", get_family_name( ch ) );
send_to_char( buf, ch );
found = FALSE;
for ( d = first_desc; d!=NULL; d = d->next )
{
if ( d->connected == CON_PLAYING
&& ( victim = d->character ) != NULL
&& !IS_NPC(victim)
&& victim->in_room != NULL
&& IS_VAMP( victim )
&& !IS_IMMORTAL( victim ) )
{
if ( victim->pcdata->vamp_bloodline != ch->pcdata->vamp_bloodline )
continue;
found = TRUE;
sprintf( buf, "%-15s @@NGeneration: @@r%d @@NRank: @@d%d@@N\n\r",
victim->name, victim->pcdata->generation, victim->pcdata->vamp_level );
send_to_char( buf, ch );
}
}
if ( !found )
send_to_char( "@@NNo other @@dKindred @@N Family members were found.\n\r", ch );
}
return;
}
void do_instruct( CHAR_DATA *ch, char *argument )
{
char arg[MAX_STRING_LENGTH];
CHAR_DATA *victim;
int sn;
char buf[MAX_STRING_LENGTH];
if ( !IS_NPC(ch) && ch->pcdata->learned[gsn_instruct] == 0 )
{
send_to_char( "You are not trained in this skill!\n\r", ch );
return;
}
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Instruct who?\n\r", ch );
return;
}
victim = get_char_room( ch, arg );
if ( victim == NULL )
{
send_to_char( "Couldn't find the target.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "Oh yeah, that would help a lot!\n\r", ch );
return;
}
if ( !IS_VAMP( victim ) )
{
send_to_char( "@@eWHAT????@@N You want to teach @@dKindred@@N skills to someone not @@eCHOSEN@@N? NO WAY!!", ch );
return;
}
/* okay, we know the victim is good, and a vamp..check for skill known, levels, etc. */
one_argument( argument, arg );
sn = skill_lookup( arg );
if ( ch->pcdata->vamp_bloodline != victim->pcdata->vamp_bloodline )
{
send_to_char( "There not a member of your family!!\n\r", ch );
return;
}
if ( ch->pcdata->learned[sn] == 0 || skill_table[sn].flag2 != VAMP )
{
send_to_char( "@@NYou don't know that @@dKindred@@N skill!.\n\r", ch );
return;
}
if ( victim->pcdata->learned[sn] != 0 )
{
send_to_char( "They already know that skill.\n\r", ch );
return;
}
if ( victim->pcdata->vamp_level < skill_table[sn].skill_level[victim->pcdata->vamp_bloodline] )
{
send_to_char("@@NThey are too inexperienced in the ways of the @@dKindred@@N to learn this skill.\n\r", ch );
send_to_char( "@@NYou are to inexperienced in the ways of the @@dKindred@@N to learn this skill.\n\r", victim );
return;
}
if ( victim->pcdata->vamp_skill_num >= victim->pcdata->vamp_skill_max )
{
send_to_char( "They seem unable to grasp the knowledge.\n\r", ch );
send_to_char( "@@NYou are unable to learn any more @@dKindred@@N knowledge at this time.\n\r", victim );
return;
}
/* Okay, the skill is good, the instructor knows it, and the victim doesn't */
victim->pcdata->learned[sn] = 90;
victim->pcdata->vamp_pracs -= 1;
victim->pcdata->vamp_skill_num += 1;
send_to_char( "You have taught them another way of the @@dKindred@@N!!!\n\r", ch );
sprintf( buf, "You are now learned in the way of @@e%s@@N!!!\n\r", skill_table[sn].name );
send_to_char( buf, victim );
return;
}
bool spell_mesmerise( int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
/* check for vamps */
if ( !IS_VAMP(ch ) )
{
send_to_char( "Only vampires are evil enough to use this spell!\n\r", ch );
return FALSE;
}
act( "You stare into $S eyes!", ch, NULL, victim, TO_CHAR );
act( "$n stares into $S eyes!", ch, NULL, victim, TO_NOTVICT );
act( "$n stares into your eyes!", ch, NULL, victim, TO_VICT );
if ( saves_spell( level , victim ) || IS_VAMP(victim) || is_affected( victim, sn ) )
{
return TRUE;
}
send_to_char( " Spell removed for now.\n\r", ch );
return FALSE;
set_stun( victim, level / 1 );
act( "$N seems to be mesmerized!", ch, NULL, victim, TO_ROOM );
send_to_char( "You are mesmerised!\n\r", victim );
return TRUE;
}
bool spell_cloak_darkness( int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
AFFECT_DATA af;
if ( IS_NPC( ch ) )
{
send_to_char( "Not for NPCS!\n\r", ch );
return FALSE;
}
if ( is_affected( ch, sn ) )
return FALSE;
af.type = sn;
af.duration = ch->pcdata->vamp_level;
af.location = 0;
af.modifier = 0;
af.bitvector = 0;
affect_to_char( ch, &af );
return TRUE;
}
bool spell_blood_walk( int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( deathmatch )
{
send_to_char( "Not during a @@eDeath Match@@N!!\n\r", ch );
return FALSE;
}
if ( ( victim = get_char_world( ch, target_name ) ) == NULL
|| victim == ch
|| !IS_NPC( victim )
|| victim->in_room == NULL
|| IS_SET(victim->in_room->room_flags, ROOM_PRIVATE)
|| IS_SET(victim->in_room->room_flags, ROOM_SOLITARY)
|| IS_SET(victim->in_room->room_flags, ROOM_SAFE )
|| IS_SET( victim->act, PLR_NOBLOOD )
|| IS_SET( victim->in_room->room_flags, ROOM_NOBLOODWALK )
|| ( ( get_psuedo_level( victim ) - get_psuedo_level( ch ) ) > 20 ) )
{
send_to_char( "Your @@eblood@@N burns with rage, as your efforts are shaken off.\n\r", ch );
return TRUE;
}
if ( ( time_info.hour < 19 ) && ( time_info.hour > 5 ) )
{
send_to_char( "@@NYou may only @@eblood walk@@N at night!!\n\r", ch );
return FALSE;
}
if ( IS_SET( victim->act, PLR_NOVISIT ) )
{
send_to_char( "You cannot sense your target's @@eblood@@N!\n\r", ch );
return TRUE;
}
if ( IS_SET( victim->in_room->room_flags, ROOM_NOBLOODWALK ) )
{
send_to_char( "You cannot sense your target's @@eblood@@N!\n\r", ch );
return FALSE;
}
if ( IS_SET( victim->act, PLR_NOBLOOD ) )
{
send_to_char( "You cannot sense your target's @@eblood@@N!\n\r", ch );
return FALSE;
}
act( "$n fades into the darkness.", ch, NULL, NULL, TO_ROOM );
char_from_room( ch );
char_to_room( ch, victim->in_room );
act( "$n steps forth from the shadows.", ch, NULL, NULL, TO_ROOM );
send_to_char( "@@NYou feel yourself drawn to the @@eblood@@N within your victim!\n\r", ch );
do_look( ch, "auto" );
return TRUE;
}
bool spell_blood_sign(int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
MARK_DATA *mark;
char buf[MSL];
char *costring;
if ( IS_NPC( ch )
|| ( !IS_VAMP( ch ) ) )
return FALSE;
GET_FREE( mark, mark_free );
mark->room_vnum = ch->in_room->vnum;
mark->message = str_dup( target_name );
switch ( ( int )ch->pcdata->vamp_level / 4 )
{
case 0 : costring = "@@a"; break;
case 1 : costring = "@@c"; break;
case 2 : costring = "@@R"; break;
case 3 : costring = "@@m"; break;
case 4 : costring = "@@e"; break;
default : costring = "@@m"; break;
}
sprintf( buf, "%s%s @@W: %s", costring, ch->name, get_family_name( ch ) );
mark->author = str_dup( buf );
mark->duration = ( ( MAX_VAMP_LEVEL ) - ch->pcdata->generation ) * ( ch->pcdata->vamp_level ) *10;
mark->type = VAMP;
mark_to_room( ch->in_room->vnum, mark );
return TRUE;
}
bool spell_blood_sense(int sn, int level, CHAR_DATA *ch, void *vo, OBJ_DATA *obj )
{
MARK_LIST_MEMBER *mark_list;
if ( IS_NPC( ch )
|| ( !IS_VAMP( ch ) ) )
{
send_to_char( "Huh?\n\r", ch );
return FALSE;
}
if ( ch->in_room->first_mark_list == NULL )
{
send_to_char( "You do not sense any @@eBloodSign@@N here.\n\r", ch );
return FALSE;
}
for ( mark_list = ch->in_room->first_mark_list ; mark_list != NULL; mark_list = mark_list->next )
{
char buf[MSL];
if ( mark_list->mark->type != VAMP )
continue;
sprintf( buf, "%s : %s\n\r", mark_list->mark->author, mark_list->mark->message );
send_to_char( buf, ch );
}
return TRUE;
}