/***************************************************************************
* God Wars Mud originally written by KaVir aka Richard Woolcock. *
* Changes done to the code done by Sage aka Walter Howard, this mud is *
* for the public, however if you run this code it means you agree *
* to the license.low, license.gw, and license.merc have fun. :) *
***************************************************************************/
#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"
#include "garou.h"
bool is_garou( CHAR_DATA *ch )
{
if ( IS_NPC(ch) ) return FALSE;
if ( IS_CLASS(ch, CLASS_WEREWOLF) )
return TRUE;
else
return FALSE;
}
void do_gifts( CHAR_DATA *ch, char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char buf [MAX_STRING_LENGTH];
char lin [MAX_STRING_LENGTH];
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_WEREWOLF))
{
send_to_char("Huh?\n\r",ch);
return;
}
if (arg1[0] == '\0' && arg2[0] == '\0')
{
sprintf(lin,"================================================================================");
stc(lin, ch);
stc(" Breed\n\r",ch);
stc(lin, ch);
sprintf(buf," Homid [ %d ] Metis [ %d ] Lupus [ %d ]\n\r",
ch->gifts[HOMID], ch->gifts[METIS], ch->gifts[LUPUS] );
stc(buf, ch);
stc(lin, ch);
stc(" Auspice\n\r",ch);
stc(lin, ch);
sprintf(buf," Ragabash [ %d ] Theurge [ %d ] Philodox [ %d ]\n\r",
ch->gifts[RAGABASH], ch->gifts[THEURGE], ch->gifts[PHILODOX] );
stc(buf, ch);
sprintf(buf," Ahroun [ %d ]\n\r",
ch->gifts[AHROUN] );
stc(buf, ch);
stc(lin, ch);
stc(" Tribe\n\r",ch);
stc(lin, ch);
sprintf(buf," Black Furies [ %d ] Wendigo [ %d ] Children of Gaia [ %d ]\n\r",
ch->gifts[BLACKFURIES], ch->gifts[WENDIGO], ch->gifts[CHILDREN] );
stc(buf, ch);
sprintf(buf," Silver Fangs [ %d ] Uktena [ %d ] Get of Fenris [ %d ]\n\r",
ch->gifts[SILVERFANGS], ch->gifts[UKTENA],ch->gifts[GETOFFENRIS] );
stc(buf, ch);
sprintf(buf," Red Talons [ %d ] Shadow Lords [ %d ] Silent Striders [ %d ]\n\r",
ch->gifts[REDTALONS], ch->gifts[SHADOWLORDS], ch->gifts[SILENTSTRIDERS] );
stc(buf, ch);
sprintf(buf," StarGazers [ %d ]\n\r",
ch->gifts[STARGAZERS]);
stc(buf, ch);
stc(lin, ch);
return;
}
if (arg2[0] == '\0')
{
if ( !str_cmp(arg1, "ragabash" ) )
{
if ( ch->gifts[RAGABASH] == 0 )
{
stc("You have no knowledge of the Gifts of Ragabash.\n\r",ch);
return;
}
if ( ch->gifts[RAGABASH] >= 1 )
{
divide_to_char(ch);
centre_text("The Gifts of Ragabash",ch);
divide_to_char(ch);
centre_text("Blur of the Milky Eye (vanish)",ch);
}
if ( ch->gifts[RAGABASH] >= 2 )
centre_text("Scent of Running Water",ch);
if ( ch->gifts[RAGABASH] >= 3 )
centre_text("Blissful Ignorance",ch);
if ( ch->gifts[RAGABASH] >= 4 )
centre_text("Luna's Blessing",ch);
if ( ch->gifts[RAGABASH] >= 5 )
centre_text("Whelp's Body",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "lupus") )
{
if ( ch->gifts[LUPUS] == 0 )
{
stc("You have no knowledge of the Gifts of Lupus\n\r",ch);
return;
}
if ( ch->gifts[LUPUS] >= 1 )
{
divide_to_char(ch);
centre_text("The Gifts of Lupus",ch);
divide_to_char(ch);
centre_text("Heightened Senses",ch);
}
if ( ch->gifts[LUPUS] >= 2 )
centre_text("Catfeet",ch);
if ( ch->gifts[LUPUS] >= 3 )
centre_text("Gnaw",ch);
if ( ch->gifts[LUPUS] >= 4 )
centre_text("Elemental Gift",ch);
if ( ch->gifts[LUPUS] >= 5 )
centre_text("Song of the Great Beast",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "metis") )
{
if ( ch->gifts[METIS] == 0 )
{
stc("You have no knowledge of the Gifts of Metis.\n\r",ch);
return;
}
if ( ch->gifts[METIS] >= 1 )
{
divide_to_char(ch);
centre_text("The Gifts of Metis",ch);
divide_to_char(ch);
centre_text("Quills",ch);
}
if ( ch->gifts[METIS] >= 2 )
centre_text("Burrow",ch);
if ( ch->gifts[METIS] >= 3 )
centre_text("Nightsight",ch);
if ( ch->gifts[METIS] >= 4 )
centre_text("Wither Limb",ch);
if ( ch->gifts[METIS] >= 5 )
centre_text("Totem Gift",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "theurge") )
{
if ( ch->gifts[THEURGE] == 0 )
{
stc("You have no knowledge of the Theurge Gifts.\n\r",ch);
return;
}
else
{
divide_to_char(ch);
centre_text("The Gifts of Theurge",ch);
divide_to_char(ch);
centre_text("Mother's Touch",ch);
centre_text("(Grasp the Beyond)",ch);
centre_text("Spirit Drain",ch);
centre_text("Feral Lobotomy",ch);
centre_text("The Malleable Spirit",ch);
return;
}
}
if ( !str_cmp(arg1, "Philodox" ) )
{
divide_to_char(ch);
centre_text("The Gifts of Philodox",ch);
divide_to_char(ch);
centre_text("(Resist Pain)",ch);
centre_text("(King of the Beasts)",ch);
centre_text("(Strength of Purpose)",ch);
centre_text("(Weak Arm)",ch);
centre_text("Wall of Granite",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "Ahroun" ) )
{
divide_to_char(ch);
centre_text("The Gifts of Ahroun",ch);
divide_to_char(ch);
centre_text("(Inspiration)",ch);
centre_text("(Razor Claws)",ch);
centre_text("(The Falling Touch)",ch);
centre_text("(Silver Claws)",ch);
centre_text("Clenched Jaw",ch);
centre_text("(Stoking Fury's Furnace)",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp( arg1, "Black Furies" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Black Furies",ch);
divide_to_char(ch);
centre_text("(Coup De Grace)",ch);
centre_text("(Visceral Agony)",ch);
centre_text("Body Wrack",ch);
centre_text("(Wasp Talons)",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp( arg1, "Children of Gaia" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Children of Gaia",ch);
divide_to_char(ch);
centre_text("(Luna's Armor)",ch);
centre_text("Dazzle",ch);
centre_text("Garou Serenity",ch);
centre_text("(Halo of the Sun",ch);
centre_text("The Living Wood",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "Get of Fenris" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Get of Fenris",ch);
divide_to_char(ch);
centre_text("(Halt the Coward's Flight)",ch);
centre_text("Snarl of the Predator",ch);
centre_text("(Might of Thor)",ch);
centre_text("(Venom Blood)",ch);
centre_text("(Fenris' Bite)",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "Red Talons") )
{
divide_to_char(ch);
centre_text("The Gifts of the Red Talons",ch);
divide_to_char(ch);
centre_text("Avalanche",ch);
centre_text("Barrage",ch);
centre_text("Gaia's Vengeance",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp( arg1, "Shadow Lords" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Shadow Lords",ch);
divide_to_char(ch);
centre_text("(Fatal Flaw)",ch);
centre_text("(Aura of Confidence)",ch);
centre_text("Clap of Thunder",ch);
centre_text("(Icy Chill of Despair)",ch);
centre_text("Paralyzing Stare",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp( arg1, "Silent Striders" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Silent Striders",ch);
divide_to_char(ch);
centre_text("(Speed of Thought)",ch);
centre_text("(Speed Beyond Thought)",ch);
centre_text("(Messenger's Speed)",ch);
centre_text("Gate of the Moon",ch);
centre_text("Reach the Umbra",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "Silver Fangs" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Silver Fangs",ch);
divide_to_char(ch);
centre_text("(Awe)",ch);
centre_text("(Silver Claws)",ch);
centre_text("(Mindblock)",ch);
centre_text("Luna's Avenger",ch);
centre_text("Paws of the Newborn Cub",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "Stargazers") )
{
divide_to_char(ch);
centre_text("The Gifts of the StarGazers",ch);
divide_to_char(ch);
centre_text("(Inner Strength)",ch);
centre_text("Merciful Blow",ch);
centre_text("(Preternatural Awareness",ch);
centre_text("(Circular Attack)",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "Uktena" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Uktena",ch);
divide_to_char(ch);
centre_text("Dark Shroud",ch);
centre_text("(Spirit of the Bird)",ch);
centre_text("Call Flame Spirit",ch);
centre_text("Invisibility",ch);
centre_text("(Hand of the Earth Lords)",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "Wendigo" ) )
{
divide_to_char(ch);
centre_text("The Gifts of the Wendigo",ch);
divide_to_char(ch);
centre_text("Camouflage",ch);
centre_text("Cutting Wind",ch);
centre_text("Call the Cannibal Spirit",ch);
centre_text("Heart of Ice",ch);
centre_text("Chill of the Early Frost",ch);
divide_to_char(ch);
return;
}
if ( !str_cmp(arg1, "homid") )
{
if ( ch->gifts[HOMID] == 0 )
{
stc("You have no knowledge of the Gift of Homid.\n\r",ch);
return;
}
if ( ch->gifts[HOMID] >= 1 )
{
divide_to_char(ch);
centre_text("The Gifts of Homid",ch);
divide_to_char(ch);
centre_text("Persuasion",ch);
}
if ( ch->gifts[HOMID] >= 2 )
centre_text("Staredown",ch);
if ( ch->gifts[HOMID] >= 3 )
centre_text("Disquiet",ch);
if ( ch->gifts[HOMID] >= 4 )
centre_text("Reshape Object",ch);
if ( ch->gifts[HOMID] >= 5 )
centre_text("Cocoon",ch);
divide_to_char(ch);
return;
}
else
{
do_gifts(ch, "");
return;
}
return;
}
if (!str_cmp(arg2,"learn"))
{
int improve;
int cost;
int max = 5;
if (!str_cmp(arg1,"homid" )) improve = HOMID;
else if (!str_cmp(arg1,"metis" )) improve = METIS;
else if (!str_cmp(arg1,"lupus" )) improve = LUPUS;
else if (!str_cmp(arg1,"ragabash" )) improve = RAGABASH;
else if (!str_cmp(arg1,"theurge" )) improve = THEURGE;
else if (!str_cmp(arg1,"philodox" )) improve = PHILODOX;
else if (!str_cmp(arg1,"ahroun" )) improve = AHROUN;
else if (!str_cmp(arg1,"black furies" )) improve = BLACKFURIES;
else if (!str_cmp(arg1,"children of gaia" )) improve = CHILDREN;
else if (!str_cmp(arg1,"get of fenris" )) improve = GETOFFENRIS;
else if (!str_cmp(arg1,"red talons" )) improve = REDTALONS;
else if (!str_cmp(arg1,"shadow lords" )) improve = SHADOWLORDS;
else if (!str_cmp(arg1,"silent striders" )) improve = SILENTSTRIDERS;
else if (!str_cmp(arg1,"silver fangs" )) improve = SILVERFANGS;
else if (!str_cmp(arg1,"stargazers" )) improve = STARGAZERS;
else if (!str_cmp(arg1,"uktena" )) improve = UKTENA;
else if (!str_cmp(arg1,"wendigo" )) improve = WENDIGO;
else
{
do_gifts(ch,"");
return;
}
cost = (ch->gifts[improve]+1) * 10;
arg1[0] = UPPER(arg1[0]);
if ( ch->gifts[improve] >= max )
{
sprintf(buf,"You have already gained all of the %s gifts.\n\r", arg1);
send_to_char(buf,ch);
return;
}
if ( cost > ch->practice )
{
sprintf(buf,"It costs you %d primal to learn a new %s gift.\n\r", cost, arg1);
send_to_char(buf,ch);
return;
}
ch->gifts[improve] += 1;
ch->practice -= cost;
sprintf(buf,"You have learned a new %s gift.\n\r", arg1);
send_to_char(buf,ch);
return;
}
else send_to_char("To learn a new gift, type: gifts '<name>' learn.\n\r",ch);
return;
}
/*
* Homid Gifts
* Level One - Persuasion - Like Awe for Vampires. Automatic
* Level Two - Staredown - Mobs flee
* Level Three- Disquiet - Spell effect, -hit\dam in combat for opponent.
* Level Four - Reshape Object- Rename objects
* Level Five - Cocoon - Damage Reduction
*/
/*
* Homid - 2 - Staredown
*/
void do_staredown( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
argument = one_argument( argument, arg );
if ( IS_NPC(ch) ) return;
if ( !IS_CLASS(ch, CLASS_WEREWOLF) )
{
stc("Huh?\n\r",ch);
return;
}
if ( ch->gifts[HOMID] < 2 )
{
stc("You have not learned the Homid gift of Staredown.\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
arg[0] = UPPER(arg[0]);
if ( ch->fighting == NULL )
{
stc("You must be fighting to use the gift of Staredown.\n\r",ch);
return;
}
if ( victim->fighting == NULL )
{
sprintf(buf, "%s is not fighting anyone.", arg);
stc(buf, ch);
return;
}
WAIT_STATE( ch, 16 );
if ( IS_NPC(victim) )
{
if ( ch->gifts[HOMID] < 4 )
{
if ( number_range( 1, 3 ) != 1 )
{
act("You stare deeply into $N's eyes, but nothing happens.",ch,NULL,victim,TO_CHAR);
act("$n stares deeply into your eyes.",ch,NULL,victim,TO_VICT);
act("$n stares deeply into $N's eyes, but nothing happens.",ch,NULL,victim,TO_NOTVICT);
return;
}
}
act("You stare into $N's eyes, and $E flees in terror.",ch,NULL,victim,TO_CHAR);
act("$n stares deeply into your eyes, and you are filled with terror.",ch,NULL,victim,TO_VICT);
act("$n stares deeply into $N's eyes, and $E flees in terror.",ch,NULL,victim,TO_NOTVICT);
do_flee( victim, "" );
return;
}
else
{
if ( ch->gifts[HOMID] < 5 )
{
if ( number_range( 1, 4 ) != 2 )
{
act("You stare deeply into $N's eyes, but nothing happens.",ch,NULL,victim,TO_CHAR);
act("$n stares deeply into your eyes.",ch,NULL,victim,TO_VICT);
act("$n stares deeply into $N's eyes, but nothing happens.",ch,NULL,victim,TO_NOTVICT);
return;
}
}
act("You stare into $N's eyes, and $E flees in terror.",ch,NULL,victim,TO_CHAR);
act("$n stares deeply into your eyes, and you are filled with terror.",ch,NULL,victim,TO_VICT);
act("$n stares deeply into $N's eyes, and $E flees in terror.",ch,NULL,victim,TO_NOTVICT);
do_flee( victim, "" );
return;
}
return;
}
void do_disquiet( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
AFFECT_DATA af;
char arg [MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_WEREWOLF))
{
send_to_char("Huh?\n\r", ch);
return;
}
if ( ch->gifts[HOMID] < 3 )
{
send_to_char("You have not learned the Homid gift of Disquiet.\n\r", ch);
return;
}
if ( ( victim = get_char_room(ch, arg) ) == NULL )
{
stc("They are not here.\n\r",ch);
return;
}
if ( is_safe( ch, victim) ) return;
if ( ch->gnosis[GCURRENT] < 1 )
{
stc("You need one point of gnosis power to use the gift of Disquiet.\n\r",ch);
return;
}
af.duration = ch->gifts[HOMID];
af.location = APPLY_DAMROLL;
af.modifier = -( ch->gifts[HOMID] * 5 );
af.bitvector = 0;
affect_to_char( victim, &af );
af.duration = ch->gifts[HOMID];
af.location = APPLY_HITROLL;
af.modifier = -( ch->gifts[HOMID] * 5 );
af.bitvector = 0;
affect_to_char( victim, &af );
ch->gnosis[CURRENT]--;
act("Your eyes glow a sinister red as you glare at $N.",ch,NULL,victim,TO_CHAR);
act("$n's eyes glow a sinister red as $e glares at you.\n\rYou feel odd.",ch,NULL,victim,TO_VICT);
act("$n's eyes glow a sinister red as $e glares at $N.",ch,NULL,victim,TO_NOTVICT);
return;
}
void do_reshape(CHAR_DATA *ch, char *argument)
{
char arg1[MAX_STRING_LENGTH];
char arg2[MAX_STRING_LENGTH];
OBJ_DATA *obj;
argument=one_argument(argument,arg1);
strcpy(arg2,argument);
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch,CLASS_WEREWOLF))
{
send_to_char("Huh?\n\r",ch);
return;
}
if (ch->gifts[HOMID] < 4)
{
send_to_char("You have not achieved the Homid gift of Reshape Object.\n\r",ch);
return;
}
if (arg1 == NULL || arg2 == NULL)
{
send_to_char("Syntax: Reshape (Item) (Description).\n\r",ch);
return;
}
if ( ( obj = get_obj_carry( ch,arg1 ) ) == NULL )
{
send_to_char("You dont have that item.\n\r",ch);
return;
}
if (strlen(arg2) > 40 || strlen(arg2) < 3)
{
send_to_char("The name should be between 3 and 40 characters.\n\r",ch);
return;
}
free_string(obj->name);
obj->name = str_dup(arg2);
free_string(obj->short_descr);
obj->short_descr=str_dup(arg2);
send_to_char("Ok.\n\r",ch);
return;
}
void do_cocoon( CHAR_DATA *ch, char *argument )
{
if ( IS_NPC(ch) ) return;
if ( !IS_CLASS(ch, CLASS_WEREWOLF) )
{
stc("Huh?\n\r",ch);
return;
}
if ( ch->gifts[HOMID] < 5 )
{
stc("You haven't learned the Homid gift of Cocoon.\n\r",ch);
return;
}
if ( IS_GAR1(ch, WOLF_COCOON) )
{
stc("Your cocoon breaks and falls to the ground.\n\r",ch);
act("$n's cocoon breaks and falls to the ground.",ch,NULL,NULL,TO_ROOM);
REMOVE_BIT(ch->garou1, WOLF_COCOON);
return;
}
if ( ch->gnosis[GCURRENT] < 2 )
{
stc("You do not have enough gnosis to use Cocoon.\n\r",ch);
return;
}
else
{
stc("Your body is surrounded by a thick, opaque epidermis.\n\r",ch);
act("$n's body is surrounded by a thick, opaque epidermis.",ch,NULL,NULL,TO_ROOM);
SET_BIT(ch->garou1, WOLF_COCOON);
ch->gnosis[GCURRENT]--;
return;
}
return;
}
/*
* Metis Gifts
* Level One - Gift of the Porcupine - Quills
* Level Two - Burrow - Like Demon Travel
* Level Three- Eyes of the Cat - Nightsight
* Level Four - Wither Limb - Withers a limb, easier on NPCs
* Level Five - Totem Gift - Random, Special Power. Ooo.
*/
void do_quills( CHAR_DATA *ch, char *argument )
{
if ( IS_NPC(ch) ) return;
if ( !IS_CLASS(ch, CLASS_WEREWOLF) )
{
stc("Huh?\n\r",ch);
return;
}
if ( ch->gifts[METIS] < 1 )
{
stc("You haven't learned the Gift of the Porcupine.\n\r",ch);
return;
}
if ( IS_SET(ch->newbits, NEW_QUILLS) )
{
stc("Your quills soften and twist into fur.\n\r",ch);
act("$n's quills soften and revert back to fur.",ch,NULL,NULL,TO_ROOM);
REMOVE_BIT(ch->newbits, NEW_QUILLS);
return;
}
if ( !IS_SET(ch->newbits, NEW_QUILLS) )
{
stc("Your fur becomes bristly and sharp.\n\r",ch);
act("$n's fur becomes bristly and sharp.",ch,NULL,NULL,TO_ROOM);
SET_BIT(ch->newbits, NEW_QUILLS);
return;
}
return;
}
void do_burrow( CHAR_DATA *ch, char *argument )
{
char arg [MAX_INPUT_LENGTH];
CHAR_DATA *victim;
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if ( !IS_CLASS(ch, CLASS_WEREWOLF) )
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( ch->gifts[METIS] < 2 )
{
send_to_char("You haven't learned the Metis gift of Burrow.\n\r", ch);
return;
}
if ( arg[0] == '\0' )
{
send_to_char("Burrow to who?\n\r", ch);
return;
}
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
send_to_char( "They are not here.\n\r", ch );
return;
}
if ( IS_NPC(victim) )
{
send_to_char( "Not on NPC's.\n\r", ch );
return;
}
if (IS_IMMUNE(victim, IMM_TRAVEL))
{
send_to_char("I don't think they want you to do that.\n\r",ch);
return;
}
if ( victim == ch )
{
send_to_char( "You cannot burrow to yourself.\n\r", ch);
return;
}
if ( victim->level != LEVEL_AVATAR || !IS_CLASS(victim, CLASS_WEREWOLF))
{
send_to_char( "Nothing happens.\n\r", ch );
return;
}
if (victim->in_room == NULL)
{
send_to_char( "Nothing happens.\n\r", ch );
return;
}
send_to_char("You burrow into the ground.\n\r",ch);
act("$n burrows into the ground.",ch,NULL,NULL,TO_ROOM);
char_from_room(ch);
char_to_room( ch, victim->in_room );
do_look(ch,"");
send_to_char("You burrow out of the ground.\n\r",ch);
act("$n burrows out of the ground.",ch,NULL,NULL,TO_ROOM);
return;
}
// Eyes of the Cat - Nightsight. clan.c
void do_wither( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
bool blah = FALSE;
int chance = 0;
argument = one_argument( argument, arg );
if ( IS_NPC(ch) ) return;
if ( !IS_CLASS(ch, CLASS_WEREWOLF) )
{
stc("Huh?\n\r",ch);
return;
}
if ( ch->gifts[METIS] < 4 )
{
stc("You haven't learned the Metis gift of Wither Limb.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 3 )
{
stc("You do not have enough gnosis power stored to use the gift of Wither Limb.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Who's limb do you wish to wither?\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( IS_ARM_R(victim, LOST_ARM) && IS_ARM_L(victim, LOST_ARM) )
{
stc("They have already lost both their arms.\n\r",ch);
return;
}
WAIT_STATE(ch, 32);
ch->gnosis[CURRENT] -= 3;
if ( IS_NPC( victim ) )
{
chance = number_range( 45, 55 );
if ( number_percent( ) > chance )
{
stc("Nothing happened.\n\r",ch);
return;
}
if ( !IS_ARM_R(victim, LOST_ARM) )
blah = FALSE;
else blah = TRUE;
if ( !blah )
{
if (!IS_ARM_R(victim,LOST_ARM))
SET_BIT(victim->loc_hp[3],LOST_ARM);
if (!IS_BLEEDING(victim,BLEEDING_ARM_R))
SET_BIT(victim->loc_hp[6],BLEEDING_ARM_R);
if (IS_BLEEDING(victim,BLEEDING_HAND_R))
REMOVE_BIT(victim->loc_hp[6],BLEEDING_HAND_R);
act("You concentrate deeply and $N's arm starts to wither!",ch,NULL,victim,TO_CHAR);
act("$n's eyes glow dark red as $e gazes at you, and your arm begins withering!",ch,NULL,victim,TO_NOTVICT);
act("$n gazes evilly at $N, and $S arm begins withering!",ch,NULL,victim,TO_VICT);
make_part(victim,"arm");
if (IS_ARM_L(victim,LOST_ARM) && IS_ARM_R(victim,LOST_ARM))
{
if ((obj = get_eq_char( victim, WEAR_ARMS )) != NULL)
take_item(victim,obj);
}
if ((obj = get_eq_char( victim, WEAR_WIELD )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_HANDS )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_WRIST_R )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_FINGER_R )) != NULL)
take_item(victim,obj);
return;
}
else if ( blah )
{
if (!IS_ARM_L(victim,LOST_ARM))
SET_BIT(victim->loc_hp[2],LOST_ARM);
else blah = TRUE;
if (!IS_BLEEDING(victim,BLEEDING_ARM_L))
SET_BIT(victim->loc_hp[6],BLEEDING_ARM_L);
if (IS_BLEEDING(victim,BLEEDING_HAND_L))
REMOVE_BIT(victim->loc_hp[6],BLEEDING_HAND_L);
act("You concentrate deeply and $N's arm starts to wither!",ch,NULL,victim,TO_CHAR);
act("$n's eyes glow dark red as $e gazes at you, and your arm begins withering!",ch,NULL,victim,TO_NOTVICT);
act("$n gazes evilly at $N, and $S arm begins withering!",ch,NULL,victim,TO_VICT);
make_part(victim,"arm");
if (IS_ARM_L(victim,LOST_ARM) && IS_ARM_R(victim,LOST_ARM))
{
if ((obj = get_eq_char( victim, WEAR_ARMS )) != NULL)
take_item(victim,obj);
}
if ((obj = get_eq_char( victim, WEAR_WIELD )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_HANDS )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_WRIST_L )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_FINGER_L )) != NULL)
take_item(victim,obj);
return;
}
}
else if ( !IS_NPC(victim) )
{
chance = 15;
if ( number_percent( ) > chance )
{
act("You gaze intently at $N.\n\rNothing happens.",ch,NULL,victim,TO_CHAR);
act("$n gazes eerily at you.\n\rNothing happens.",ch,NULL,victim,TO_VICT);
act("$n gazes eerily at $N.",ch,NULL,victim,TO_NOTVICT);
return;
}
if ( !IS_ARM_R(victim, LOST_ARM) )
blah = FALSE;
else blah = TRUE;
if ( !blah )
{
if (!IS_ARM_R(victim,LOST_ARM))
SET_BIT(victim->loc_hp[3],LOST_ARM);
if (!IS_BLEEDING(victim,BLEEDING_ARM_R))
SET_BIT(victim->loc_hp[6],BLEEDING_ARM_R);
if (IS_BLEEDING(victim,BLEEDING_HAND_R))
REMOVE_BIT(victim->loc_hp[6],BLEEDING_HAND_R);
act("You concentrate deeply and $N's arm starts to wither!",ch,NULL,victim,TO_CHAR);
act("$n's eyes glow dark red as $e gazes at you, and your arm begins withering!",ch,NULL,victim,TO_NOTVICT);
act("$n gazes evilly at $N, and $S arm begins withering!",ch,NULL,victim,TO_VICT);
make_part(victim,"arm");
if (IS_ARM_L(victim,LOST_ARM) && IS_ARM_R(victim,LOST_ARM))
{
if ((obj = get_eq_char( victim, WEAR_ARMS )) != NULL)
take_item(victim,obj);
}
if ((obj = get_eq_char( victim, WEAR_WIELD )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_HANDS )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_WRIST_R )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_FINGER_R )) != NULL)
take_item(victim,obj);
return;
}
else if ( blah )
{
if (!IS_ARM_L(victim,LOST_ARM))
SET_BIT(victim->loc_hp[2],LOST_ARM);
else blah = TRUE;
if (!IS_BLEEDING(victim,BLEEDING_ARM_L))
SET_BIT(victim->loc_hp[6],BLEEDING_ARM_L);
if (IS_BLEEDING(victim,BLEEDING_HAND_L))
REMOVE_BIT(victim->loc_hp[6],BLEEDING_HAND_L);
act("You concentrate deeply and $N's arm starts to wither!",ch,NULL,victim,TO_CHAR);
act("$n's eyes glow dark red as $e gazes at you, and your arm begins withering!",ch,NULL,victim,TO_NOTVICT);
act("$n gazes evilly at $N, and $S arm begins withering!",ch,NULL,victim,TO_VICT);
make_part(victim,"arm");
if (IS_ARM_L(victim,LOST_ARM) && IS_ARM_R(victim,LOST_ARM))
{
if ((obj = get_eq_char( victim, WEAR_ARMS )) != NULL)
take_item(victim,obj);
}
if ((obj = get_eq_char( victim, WEAR_WIELD )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_HANDS )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_WRIST_L )) != NULL)
take_item(victim,obj);
if ((obj = get_eq_char( victim, WEAR_FINGER_L )) != NULL)
take_item(victim,obj);
return;
}
}
return;
}
/* Lupus Gifts
* Heightened Senses-do_truesight
* Catfeet-Auto
* Gnaw
* Elemental Gift
* Song of the Great Beast
*/
void do_heightened( CHAR_DATA *ch, char *argument )
{
if ( IS_NPC(ch) ) return;
if ( !is_garou(ch) ) return;
if ( ch->gifts[LUPUS] < 1 )
{
stc("You must obtain level one Lupus to use Heightened Senses.\n\r",ch);
return;
}
if ( IS_SET(ch->act, PLR_HOLYLIGHT) )
{
REMOVE_BIT(ch->act, PLR_HOLYLIGHT);
send_to_char( "Your senses return to normal.\n\r", ch );
}
else
{
SET_BIT(ch->act, PLR_HOLYLIGHT);
send_to_char( "Your senses increase to incredible proportions.\n\r", ch);
}
return;
}
void do_gnaw( CHAR_DATA *ch, char *argument )
{
if ( !is_garou(ch) ) return;
if ( ch->gifts[LUPUS] < 3 )
{
stc("You must obtain level three Lupus to use Gnaw.\n\r",ch);
return;
}
stc("You try to gnaw through your restrains.\n\r",ch);
act("$n gnaws at $s restrains.",ch,NULL,NULL,TO_ROOM);
if ( IS_EXTRA(ch, TIED_UP) )
{
act("The ropes restraining you snap.",ch,NULL,NULL,TO_CHAR);
act("The ropes restraining $n snap.",ch,NULL,NULL,TO_ROOM);
REMOVE_BIT(ch->extra, TIED_UP);
}
if (is_affected(ch, gsn_web))
{
act("The webbing entrapping $n breaks away.",ch,NULL,NULL,TO_ROOM);
send_to_char("The webbing entrapping you breaks away.\n\r",ch);
affect_strip(ch, gsn_web);
}
if (IS_AFFECTED(ch, AFF_WEBBED))
{
act("The webbing entrapping $n breaks away.",ch,NULL,NULL,TO_ROOM);
send_to_char("The webbing entrapping you breaks away.\n\r",ch);
REMOVE_BIT(ch->affected_by, AFF_WEBBED);
}
if (IS_AFFECTED(ch, AFF2_TENDRILS))
{
act("The tendrils entrapping $n break away.",ch,NULL,NULL,TO_ROOM);
send_to_char("The tendrils entrapping you break away.\n\r",ch);
REMOVE_BIT(ch->affected_by, AFF2_TENDRILS);
}
return;
}
void do_elementalgift( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
int dam;
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[LUPUS] < 4 )
{
stc("You must obtain level 5 Lupus to use Elemental Gift.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 1 )
{
stc("You must have one point of Gnosis to use this power.\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("You cannot find them here.\n\r",ch);
return;
}
dam = ch->gifts[LUPUS] * 100;
if ( IS_NPC(victim) ) dam *= 3;
if ( IS_CLASS(victim, CLASS_VAMPIRE) ) dam *= 2.3;
act("You call upon the forces of Gaia to annihilate $N.",ch,NULL,victim,TO_CHAR);
act("$n throws back $s head and howls loudly, causing the room to shake.\nThe room turns dark, and a blast of elemental fire consumes you.",ch,NULL,victim,TO_VICT);
act("$n throws back $s head and howls loudly, causing the room to shake.\nThe room turns dark.\nA blast of elemental fire consumes $N!",ch,NULL,victim,TO_NOTVICT);
mage_damage(ch, victim, dam, "elemental blast", MAGEDAM_FIRE);
ch->gnosis[GCURRENT] -= 1;
WAIT_STATE(ch, 16);
return;
}
void do_songbeast( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
AFFECT_DATA af;
if ( !is_garou(ch) ) return;
if ( ch->gifts[LUPUS] < 5 )
{
stc("You must obtain level 5 Lupus to use this power.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 3 )
{
stc("You need 3 points of gnosis to use this power.\n\r",ch);
return;
}
if ( ch->pcdata->followers > 3 )
{
stc("Nothing happens..\n\r",ch);
return;
}
ch->pcdata->followers++;
victim=create_mobile( get_mob_index( MOB_VNUM_GUARDIAN ) );
victim->short_descr = str_dup("A huge, bloodthirsty Dinosaur");
victim->name = str_dup("dinosaur");
victim->long_descr = str_dup("A huge dinosaur towers over you, roaring loudly and looking for prey. ");
victim->level = 500;
victim->hit = 15000;
victim->max_hit = 15000;
victim->hitroll = 250;
victim->damroll = 250;
victim->armor = -1500;
SET_BIT(victim->act, ACT_NOEXP);
act("You howl loudly at the sky.\nThe ground beneath your feet begins to shake.\n Suddenly, A huge dinosaur emerges from the earth below you.",ch,NULL,NULL,TO_CHAR);
act("$n howls loudly at the sky.\nThe ground beneath your feet begins to shake.\n Suddenly, A huge dinosaur bursts from the ground with a loud roar!",ch,NULL,NULL,TO_ROOM);
char_to_room( victim, ch->in_room );
add_follower( victim, ch );
af.duration = 666;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_CHARM;
affect_to_char( victim, &af );
ch->gnosis[GCURRENT] -= 3;
return;
}
/*
* Ahroun Gifts
* 1=razorclaws
*/
void do_razorclaws(CHAR_DATA *ch, char *argument)
{
if (IS_CLASS(ch, CLASS_WEREWOLF))
{
if ( ch->gifts[AHROUN] <= 1 )
{
stc("Huh?\n\r",ch);
return;
}
}
else
return;
if ( !IS_VAMPAFF(ch, VAM_CLAWS) )
{
stc("Your talons aren't even extended!\n\r",ch);
return;
}
if ( IS_GAR1(ch, WOLF_RAZORCLAWS ) )
{
stc("Your claws lose their razor-sharp edge.\n\r",ch);
act("$n's claws lose their razor-sharp edge.",ch,NULL,NULL,TO_ROOM);
REMOVE_BIT(ch->garou1, WOLF_RAZORCLAWS);
}
else
{
send_to_char("You hone your claws to a razor sharpness.\n\r",ch);
act("$n hones $s claws to a razor sharpness.",ch, NULL, NULL, TO_ROOM);
SET_BIT( ch->garou1, WOLF_RAZORCLAWS );
}
return;
}
/* Ragabash
* Vanish
* Scent of Running Water - No hunt\track(auto)
* Blissful Ignorance
* Luna's Blessing
* Whelp Body
*/
void do_blissful( CHAR_DATA *ch, char *argument )
{
if ( !is_garou(ch) ) return;
if ( ch->gifts[RAGABASH] < 3 )
{
stc("You must obtain level three Ragabash to use Blissful Ignorance.\n\r",ch);
return;
}
if ( has_timer(ch) ) return;
if ( IS_GAR1(ch, GAROU_BLISSFUL) )
{
stc("You fade back into view.\n\r",ch);
REMOVE_BIT(ch->garou1, GAROU_BLISSFUL);
return;
}
else
{
stc("You become completely invisible.\n\r",ch);
SET_BIT(ch->garou1, GAROU_BLISSFUL);
return;
}
return;
}
void do_lunasblessing( CHAR_DATA *ch, char *argument )
{
int sn,level;
if ( !is_garou(ch) ) return;
if ( ch->gifts[RAGABASH] < 4 )
{
stc("You must obtain level 4 Ragabash to use Luna's Blessing.\n\r",ch);
return;
}
if ( ( sn = skill_lookup( "lunas blessing" ) ) < 0 ) return;
if ( is_affected(ch,skill_lookup("lunas blessing")) )
{
stc("You already have Luna's Blessing!\n\r",ch);
return;
}
stc("A beam of moonlight shoots out of the sky and surrounds you.\n\r",ch);
act("$n is engulfed by a beam of moonlight from the sky.",ch,NULL,NULL,TO_ROOM);
level = (ch->gifts[RAGABASH]*5);
(*skill_table[sn].spell_fun) ( sn, level, ch, ch );
WAIT_STATE( ch, 12 );
return;
}
void do_whelp( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
int dam;
argument = one_argument( argument, arg );
if ( !is_garou( ch ) ) return;
if ( ch->gifts[RAGABASH] < 5 )
{
stc("You must obtain level 5 Ragabash to use Whelp's Body\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("You cannot find them here.\n\r",ch);
return;
}
if ( victim->level < 3 )
{
stc("You can only use this power on Avatars!\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 6 )
{
stc("You require six points of gnosis to use this power.\n\r",ch);
return;
}
if ( IS_SET(victim->garou1, GAROU_WHELP2)
|| IS_SET(victim->garou1, GAROU_WHELP1) )
{
stc("They are already affected by a Whelp Curse.\n\r",ch);
return;
}
SET_BIT(victim->garou1, GAROU_WHELP2);
act("You lay your hands on $N, and $S body starts to shake and quiver.",ch,NULL,victim,TO_CHAR);
act("$n lays $s hands on you, and you feel your body quiver and weaken.",ch,NULL,victim,TO_VICT);
act("$n lays $s hands on $N, and $N's body starts to shake and quiver.",ch,NULL,victim,TO_NOTVICT);
dam = number_range( 1500, 2500 );
mage_damage(ch, victim, dam, "curse", MAGEDAM_OTHER);
if ( victim->max_hit > 3001 )
victim->max_hit -= 3000;
WAIT_STATE(victim, 8);
WAIT_STATE(ch, 16);
ch->gnosis[GCURRENT] -= 6;
return;
}
/* Theurge
* Mother's Touch
* Grasp the Beyond
* Spirit Drain
* Feral Lobotomy
* The Malleable Spirit
*/
void do_mothers( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[THEURGE] < 1 )
{
stc("You must obtain level 1 Theurge to use Mother's Touch.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to heal?\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("You cannot find them here.\n\r",ch);
return;
}
if ( victim == ch )
{
stc("You cannot use this power on yourself!\n\r",ch);
return;
}
if ( victim->hit >= victim->max_hit )
{
stc("They are already at full health!\n\r",ch);
return;
}
act("You lay your hands on $N, rejuvenating them.",ch,NULL,victim,TO_CHAR);
act("$n lays $s hands on you, and you feel healthier.",ch,NULL,victim,TO_VICT);
act("$n lays $s hands on $N, and $N's wounds begin to close.",ch,NULL,victim,TO_NOTVICT);
victim->hit += ( number_range((ch->gifts[THEURGE]*100),(ch->gifts[THEURGE]*140)));
if ( victim->hit > victim->max_hit )
victim->hit = victim->max_hit;
WAIT_STATE(ch, 12);
return;
}
// grasp the beyond. auto. lets you get shit from shadowplane.
void do_spiritdrain( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int hpgain;
one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( arg[0] == '\0' )
{
send_to_char("Drain the spirit of which corpse?\n\r",ch);
return;
}
obj = get_obj_list( ch, arg, ch->in_room->contents );
if ( obj == NULL )
{
send_to_char( "You can't find it.\n\r", ch );
return;
}
if (obj->item_type != ITEM_CORPSE_NPC)
{
act( "You are unable to drain the energy of $p.", ch, obj, 0, TO_CHAR);
return;
}
else if (obj->chobj != NULL && !IS_NPC(obj->chobj)
&& obj->chobj->pcdata->obj_vnum != 0)
{
act( "You are unable to drain the energy of $p.", ch, obj, 0, TO_CHAR);
return;
}
hpgain = number_range(50,150);
ch->hit += hpgain;
if (ch->hit > ch->max_hit)
ch->hit = ch->max_hit;
act( "You drain the spirit energy out of $p.", ch, obj, NULL, TO_CHAR );
act( "$p is drained of energy by $n.", ch, obj, NULL, TO_ROOM );
extract_obj( obj );
WAIT_STATE(ch, 4);
return;
}
void do_feral( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
int dam;
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[THEURGE] < 4 )
{
stc("You must obtain level 4 Theurge to use Feral Lobotomy.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("They are not here.\n\r",ch);
return;
}
if ( victim->level < 3 )
{
stc("You can only use this power on Avatars!\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 3 )
{
stc("You need three points of gnosis to use this power.\n\r",ch);
return;
}
dam = ch->gifts[THEURGE] * 100;
if ( IS_NPC(victim) )
dam *= 4;
dam = number_range( (dam - 100), (dam+100) );
act("You focus your gnosis power on $N.",ch,NULL,victim,TO_CHAR);
act("$n's claws deliver a power blow of energy to your head.",ch,NULL,victim,TO_VICT);
act("$n's claws slash open $N's forehead.",ch,NULL,victim,TO_NOTVICT);
mage_damage(ch, victim, dam, "mind blast", MAGEDAM_OTHER);
ch->gnosis[GCURRENT] -= 3;
return;
}
void do_malleable( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
char arg[MIL];
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[THEURGE] < 5 )
{
stc("You must obtain level 5 Theurge to use Malleable Spirit\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Which object do you wish to use this on?\n\r",ch);
return;
}
if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
{
stc("You aren't even carrying that object.\n\r",ch);
return;
}
if ( obj->item_type != ITEM_WEAPON )
{
stc("This power can only be used on weapons.\n\r",ch);
return;
}
if ( IS_SET(obj->quest, QUEST_MALLEABLE) )
{
stc("This object has already been modified.\n\r",ch);
return;
}
obj->value[1] += (ch->gifts[THEURGE]*2);
obj->value[2] += (ch->gifts[THEURGE]*2);
act("You manipulate the spirit in $p, increasing it's effectiveness.",ch,obj,NULL,TO_CHAR);
SET_BIT(obj->quest, QUEST_MALLEABLE);
WAIT_STATE(ch, 8);
return;
}
/* Philodox Gifts
* Resist Pain (Auto)
* King of the Beasts (Auto)
* Strength of Purpose (Auto)
* Weak Arm (Auto)
* Wall of Granite
*/
void do_wallofgranite( CHAR_DATA *ch, char *argument )
{
if (!is_garou(ch) ) return;
if ( ch->gifts[PHILODOX] < 5 )
{
stc("You must obtain level 5 Philodox to use Wall of Granite.\n\r",ch);
return;
}
if ( IS_SET(ch->garou1, WW_GRANITE) )
{
stc("Your wall of granite fades away.\n\r",ch);
REMOVE_BIT(ch->garou1, WW_GRANITE);
}
if ( !IS_SET(ch->garou1, WW_GRANITE) )
{
stc("A wall of granite arises around your body to protect you.\n\r",ch);
SET_BIT(ch->garou1, WW_GRANITE);
return;
}
return;
}
/* Ahroun
* Inspiration (Auto)
* Razor Claws (Auto)
* The Falling Touch (Auto)
* Silver Claws (Auto)
* Clenched Jaw
* Stoking Fury's Furnace (Auto)
*/
void do_clenched( CHAR_DATA *ch, char *argument )
{
if ( !is_garou(ch) ) return;
if ( ch->gifts[AHROUN] < 4 )
{
stc("You must obtain level 4 Ahroun to use this power.\n\r",ch);
return;
}
if ( IS_SET(ch->garou1, GAROU_CLENCHED) )
{
stc("You relax your jaw.\n\r",ch);
REMOVE_BIT(ch->garou1, GAROU_CLENCHED);
return;
}
if ( !IS_GAR1(ch, GAROU_CLENCHED) )
{
stc("You prepare to clench your jaw on your opponents.\n\r",ch);
SET_BIT(ch->garou1, GAROU_CLENCHED);
return;
}
return;
}
/* Black Furies
* Heightened Senses
* Coup De Grace (Auto)
* Visceral Agony (Auto)
* Body Wrack
* Wasp Talons (Auto)
*/
void do_bodywrack( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
int dam;
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[BLACKFURIES] < 4 )
{
stc("You must obtain level 4 Black Furies to use Body Wrack.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_room(ch,arg) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 5 )
{
stc("You need five points of gnosis to use this power.\n\r",ch);
return;
}
if ( victim->hit < 1000 )
{
stc("They are almost dead already. It wouldn't be any fun.\n\r",ch);
return;
}
dam = number_range((ch->gifts[BLACKFURIES] * 150),(ch->gifts[BLACKFURIES]*175));
act("You focus a blast of gnosis on $N.",ch,NULL,victim,TO_CHAR);
act("A blast of energy shoots out of $n's claws and wracks your body.",ch,NULL,victim,TO_VICT);
mage_damage(ch,victim,dam,"gnosis warp",MAGEDAM_OTHER);
ch->gnosis[GCURRENT] -= 5;
WAIT_STATE(ch, 16);
return;
}
/* Children of Gaia
* Luna's Armor (Auto)
* Dazzle
* Calm the Beast
* Halo of the Sun
* The Living Wood
*/
void do_dazzle( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[CHILDRENOFGAIA] < 2 )
{
stc("You must obtain level 2 Children of Gaia to use Dazzle.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_room(ch, arg) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( victim->wait > 0 )
{
stc("You failed...\n\r",ch);
return;
}
act("You gaze at $N, dazzling $M with Gaia's Glory.",ch,NULL,victim,TO_CHAR);
act("You catch $n's gaze, and are dazzled by $s glory.",ch,NULL,victim,TO_VICT);
WAIT_STATE(victim, 12);
WAIT_STATE(ch, 8);
return;
}
void do_garouserenity( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
argument = one_argument( argument, arg);
if ( !is_garou(ch) ) return;
if ( ch->gifts[CHILDRENOFGAIA] < 3 )
{
stc("You must obtain the third Children of Gaia gift to use Serenity.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to calm?\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( number_range(1,4) != 3 )
{
stc("You sing a blissful and soothing song.\n\r",ch);
act("$n starts singing a blissful and soothing song.",ch,NULL,victim,TO_VICT);
stc("Nothing seems to happen..\n\r",ch);
WAIT_STATE(ch,12);
return;
}
if ( IS_CLASS(victim, CLASS_VAMPIRE) )
{
if ( victim->pcdata->stats[UNI_RAGE] < 1 )
{
stc("They aren't even raged!\n\r",ch);
return;
}
else
{
stc("You sing a blissful and soothing song.\n\r",ch);
act("$n starts singing a blissful and soothing song.",ch,NULL,victim,TO_VICT);
do_calm(victim,"");
return;
}
WAIT_STATE(ch, 16);
return;
}
else if ( IS_CLASS(victim, CLASS_WEREWOLF) )
{
if ( victim->pcdata->stats[UNI_RAGE] < 100 )
{
stc("They aren't even raged!\n\r",ch);
return;
}
else
{
stc("You sing a blissful and soothing song.\n\r",ch);
act("$n starts singing a blissful and soothing song.",ch,NULL,victim,TO_VICT);
do_unwerewolf(victim,"");
return;
}
WAIT_STATE(ch, 16);
}
else
return;
return;
}
void do_livingwood( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[CHILDRENOFGAIA] < 5 )
{
stc("You must obtain the fifth Children of Gaia gift to use this power.\n\r",ch);
return;
}
if ( ch->in_room->sector_type != SECT_FOREST )
{
stc("You can only use this power in the forest.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this power on?\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( IS_SET(victim->mflags, MAGE_EMBRACED2) || IS_SET(victim->mflags, MAGE_EMBRACED1) )
{
stc("They are already embraced by the earth.\n\r",ch);
return;
}
act("You call upon the forest to entrap your foe.",ch,NULL,NULL,TO_CHAR);
act("$n chants softly.\nThe ground around you begins to rise up, entrapping you.",ch,NULL,victim,TO_VICT);
act("$n begins to chant softly.\nSuddenly, the ground surrounding $N begins to rise up and entrap $M!",ch,NULL,victim,TO_NOTVICT);
SET_BIT(victim->mflags, MAGE_EMBRACED2);
WAIT_STATE(ch, 16);
return;
}
/* Get of Fenris
* Halt the Coward's Flight (Auto)
* Snarl of the PRedator
* MIght of Thor (Auto)
* Venom Blood (Auto)
* Fenris' Bite (Auto)
*/
void do_snarl( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
if ( !is_garou(ch) ) return;
if ( ch->gifts[GETOFFENRIS] < 2 )
{
stc("You must obtain the second gift of Get Of Fenris to use this power.\n\r",ch);
return;
}
if ( ch->fighting == NULL )
{
stc("You must be fighting to use this power.\n\r",ch);
return;
}
victim = ch->fighting;
if ( victim->wait > 0 )
{
stc("You snarl visciously, but nothing seems to happen..\n\r",ch);
return;
}
act("You snarl visciously at $N, sending chills up $S spine..",ch,NULL,victim,TO_CHAR);
act("$n snarls visciously at you.\nYou are scared stiff.",ch,NULL,victim,TO_VICT);
WAIT_STATE(victim,8);
WAIT_STATE(ch, 12);
return;
}
/* Red Talons
* Avalanche
* Quicksand
* Gaia's Vengeance
* ONLY THREE POWERS IN THIS SONUVABITCH.
*/
void do_avalanche( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
CHAR_DATA *mount;
if ( !is_garou(ch) ) return;
if ( ch->gifts[REDTALONS] < 1 )
{
stc("You must obtain the level one Red Talons gift to use Avalanche.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 5 )
{
stc("You must have 5 points of gnosis to use this power.\n\r",ch);
return;
}
stc("You call upon the power of Gaia to unleash an avalanche on your foes.\n\r",ch);
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL ) continue;
if ( vch->in_room != ch->in_room ) continue;
if ( vch->level < 3 ) continue;
if ( !IS_NPC(vch) && vch->pcdata->chobj != NULL ) continue;
if ( is_safe(ch,vch) ) continue;
if ( ch == vch ) continue;
if ( ( mount = ch->mount ) != NULL )
if ( mount == vch ) continue;
act("$n calls upon the power of Gaia to unleash an Avalanche on the area!",ch,NULL,vch,TO_VICT);
mage_damage(ch,vch, number_range(400,500),"avalanche",MAGEDAM_OTHER);
}
ch->gnosis[GCURRENT] -= 5;
WAIT_STATE(ch, 16);
return;
}
void do_barrage( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
CHAR_DATA *mount;
if ( !is_garou(ch) ) return;
if ( ch->gifts[REDTALONS] < 2 )
{
stc("You must obtain the second gift of the Red Talons to use Barrage.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] <= 5 )
{
stc("You must have 5 points of gnosis to use this power.\n\r",ch);
return;
}
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL ) continue;
if ( vch->in_room != ch->in_room ) continue;
if ( vch->level < 3 ) continue;
if ( !IS_NPC(vch) ) continue;
if ( is_safe(ch,vch) ) continue;
if ( ch == vch ) continue;
if ( ( mount = ch->mount ) != NULL )
if ( mount == vch ) continue;
mage_damage(ch,vch, number_range(4000,5000),"elemental barrage",MAGEDAM_OTHER);
}
ch->gnosis[GCURRENT] -= 5;
WAIT_STATE(ch, 16);
return;
}
void do_vengeance( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
CHAR_DATA *mount;
if ( !is_garou(ch) ) return;
if ( ch->gifts[REDTALONS] < 3 )
{
stc("You must obtain the third gift of the Red Talons to use Gaia's Vengeance.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 10 )
{
stc("You need 10 points of gnosis to use this power.\n\r",ch);
return;
}
stc("You stir up the essence of Gaia in the land around you, summoning her vegeance to strike down your foes.\n\r",ch);
act("$n summons the essence of Gaia into $s body, and the room bursts with a blinding white light.",ch,NULL,NULL,TO_ROOM);
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL ) continue;
if ( vch->in_room != ch->in_room ) continue;
if ( vch->level < 3 ) continue;
if ( !IS_NPC(vch) && ch->pcdata->chobj != NULL ) continue;
if ( ch == vch ) continue;
if ( is_safe(ch,vch)) continue;
if ( ( mount = ch->mount ) != NULL )
if ( mount == vch ) continue;
mage_damage(ch,vch, number_range(2000,3000),"vengeance of Gaia",MAGEDAM_OTHER);
}
ch->gnosis[GCURRENT] -= 10;
WAIT_STATE(ch, 24);
return;
}
/* Shadow Lords
* Fatal Flaw (Auto)
* Aura of Confidence (Auto)
* Clap of Thunder
* Icy Chill of Dispair (Auto)
* Strength of the Dominator (Auto)
*/
void do_clapofthunder( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
CHAR_DATA *mount;
if ( !is_garou(ch) ) return;
if ( ch->gifts[SHADOWLORDS] < 3 )
{
stc("You must obtain the third gift of the Shadow Lords to use Clap of Thunder.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 5 )
{
stc("You must have 5 points of gnosis to use this power.\n\r",ch);
return;
}
stc("You clap your hands together, sending forth a shockwave that stuns everyone in the room.\n\r",ch);
act("$n claps $s hands together, sending forth a shockwave that stuns you instantly!",ch,NULL,NULL,TO_ROOM);
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL ) continue;
if ( vch->in_room != ch->in_room ) continue;
if ( vch->level < 3 ) continue;
if ( !IS_NPC(vch) ) continue;
if ( is_safe(ch,vch) ) continue;
if ( ch == vch ) continue;
if ( ( mount = ch->mount ) != NULL )
if ( mount == vch ) continue;
mage_damage(ch,vch,number_range(50,100),"clap of thunder",MAGEDAM_OTHER);
vch->position = POS_STUNNED;
}
ch->gnosis[GCURRENT] -= 5;
WAIT_STATE(ch, 16);
return;
}
/* Silent Striders
* Speed of Thought (Auto)
* Speed beyond Thought (Auto)
* Messenger's Speed (Auto)
* Gate of the Moon
* Reach the Umbra
*/
void do_gatemoon( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
OBJ_DATA *obj;
char arg[MIL];
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[SILENTSTRIDERS] < 4 )
{
stc("You must obtain the fourth Silent Striders gift to use Gate of the Moon.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this power on?\n\r",ch);
return;
}
if ( ( victim = get_char_world(ch,arg) ) == NULL )
{
stc("They aren't anywhere to be found.\n\r",ch);
return;
}
if ( !IS_NPC(victim) && !IS_IMMUNE(victim, IMM_SUMMON) )
{
stc("You can't manage to open a moongate to them.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 2 )
{
stc("You need two points of Gnosis to use this power.\n\r",ch);
return;
}
if (weather_info.sunlight == SUN_LIGHT || weather_info.sunlight == SUN_RISE) {
send_to_char("The moon is not out.\n\r", ch);
return;
}
/*
if ( weather_info.sunlight != SUN_DARK )
{
stc("The moon must be showing in the sky to use this power..\n\r",ch);
return;
}
*/
if ( ( obj = create_object(get_obj_index(OBJ_VNUM_MOONGATE),0)) == NULL )
{
stc("Hrm. Slight problem here. Uhm. Tell Dunkirk the moongate object is missing.\n\r",ch);
return;
}
obj_to_room(obj,ch->in_room);
obj->item_type = ITEM_PORTAL;
obj = create_object(get_obj_index(OBJ_VNUM_MOONGATE),0);
obj->item_type = ITEM_PORTAL;
obj_to_room(obj,victim->in_room);
stc("A shimmering moongate appears before you.\n\r",ch);
stc("A shimmering moongate opens before you.\n\r",victim);
char_from_room(ch);
char_to_room( ch, victim->in_room );
stc("You step out of the moongate.\n\r",ch);
do_look(ch,"auto");
stc("Someone steps out of the moongate..\n\r",victim);
WAIT_STATE(ch, 8);
ch->gnosis[GCURRENT] -= 2;
return;
}
/* Silver Fangs
* Awe (Auto)
* Silver Claws (Auto)
* Mindblock (Auto)
* Luna's Avenger
* Paws of the Newborn Cub
*/
void do_lunasavenger( CHAR_DATA *ch, char *argument )
{
if ( !is_garou(ch) ) return;
if ( ch->gifts[SILVERFANGS] < 4 )
{
stc("You must obtain the fourth gift of the Silver Fangs to use Luna's Avenger.\n\r",ch);
return;
}
if ( IS_SET(ch->garou1, GAROU_AVENGER) )
{
stc("Your body warps and shrinks, losing it's silver composition.\n\r",ch);
REMOVE_BIT(ch->garou1, GAROU_AVENGER);
return;
}
else
{
stc("Your body warps and grows, becoming imbued with silver.\n\r",ch);
SET_BIT(ch->garou1, GAROU_AVENGER);
return;
}
return;
}
void do_paws( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[SILVERFANGS] < 5 )
{
stc("You must obtain the fifth gift of the Silver Fangs to use Paws of the Newborn Cub.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_room(ch,arg) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( ch == victim )
{
stc("It might be a bad idea to use this on yourself..\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 15 )
{
stc("You need 15 points of gnosis to use this power.\n\r",ch);
return;
}
if ( IS_NPC(victim) )
{
stc("This power is useless on beasts..\n\r",ch);
return;
}
if ( IS_SET(victim->garou1, GAROU_PAWS) )
{
stc("They are already afflicted with this disease..\n\r",ch);
return;
}
act("You focus your gnosis power into your hands, and lay them on $N.",ch,NULL,victim,TO_CHAR);
act("$n's hands start to glow violently, and $e reaches out and lays them on you.",ch,NULL,victim,TO_VICT);
act("$n's hands start to glow brightly, and $e reaches out and presses them against $N's forehead.",ch,NULL,victim,TO_NOTVICT);
act("$N's body starts to weaken and shrink!",ch,NULL,victim,TO_CHAR);
act("$N's body starts to weaken and shrink!",ch,NULL,victim,TO_NOTVICT);
stc("Your body starts to weaken and shrink!\n\r",victim);
SET_BIT(victim->garou1, GAROU_PAWS);
ch->gnosis[GCURRENT] -= 15;
WAIT_STATE(ch, 24);
return;
}
/* Stargazers
* Inner Strength (Auto)
* Merciful Blow
* Preternatural Awareness (Auto)
* Circular Attack (Auto)
*/
void do_merciful( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
if ( !is_garou(ch) ) return;
if ( ch->gifts[STARGAZERS] < 2 )
{
stc("You must obtain the second gift of the Stargazers to use Merciful Blow.\n\r",ch);
return;
}
if ( ch->fighting == NULL )
{
stc("You must be fighting to use this power.\n\r",ch);
return;
}
victim = ch->fighting;
if ( ((victim->hit / victim->max_hit)*100) >= 50 )
{
stc("They are far too healthy to be affected by this power.\n\r",ch);
return;
}
if ( number_range(1,8) != 4 )
{
act("You deliver a blow to $N's neck, but nothing happens.",ch,NULL,victim,TO_CHAR);
act("$n delivers a powerful blow to your neck, but shrug it off.",ch,NULL,victim,TO_VICT);
act("$n delivers a powerful blow to $N's neck, but $E shrugs it off.",ch,NULL,victim,TO_NOTVICT);
return;
}
else
{
act("You deliver a blow to $N's neck, and $N falls to the ground.",ch,NULL,victim,TO_CHAR);
act("$n delivers a powerful blow to your neck, and you fall to the ground.",ch,NULL,victim,TO_VICT);
act("$n delivers a powerful blow to $N's neck, and $E falls to the ground.",ch,NULL,victim,TO_NOTVICT);
do_peace(ch,"");
victim->position = POS_STUNNED;
return;
}
return;
}
/* Uktena
* Shroud
* Spirit of the Bird (Auto)
* Call Flame Spirit
* Invisibility
* Hand of the Earth Lords (Auto)
*/
void do_darkshroud( CHAR_DATA *ch, char *argument )
{
if ( !is_garou(ch) ) return;
if ( ch->gifts[UKTENA] < 1 )
{
stc("You must obtain the first gift of the Uktena to use Dark Shroud.\n\r",ch);
return;
}
if ( IS_SET(ch->in_room->room_flags, ROOM_TOTAL_DARKNESS) )
{
stc("You banish the darkness from the room.\n\r",ch);
REMOVE_BIT(ch->in_room->room_flags, ROOM_TOTAL_DARKNESS);
return;
}
if ( IS_SET(ch->in_room->room_flags, ROOM_SAFE) )
{
stc("Not in a safe room!\n\r",ch);
return;
}
stc("You summon a shroud of inky blackness to cover the room.\n\r",ch);
act("$n summons a shroud of inky blackness to cover the room.\n\r",ch,NULL,NULL,TO_ROOM);
SET_BIT(ch->in_room->room_flags, ROOM_TOTAL_DARKNESS);
WAIT_STATE(ch,8);
return;
}
void do_flamespirit( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
int dam;
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[UKTENA] < 3 )
{
stc("You must obtain the third gift of the Uktena to use Call the Flame Spirit.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_room(ch,arg) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( is_safe(ch,victim) ) return;
if ( ch->gnosis[GCURRENT] < 2 )
{
stc("You need two points of gnosis to use this power.\n\r",ch);
return;
}
dam = number_range( (ch->gifts[UKTENA]*100), (ch->gifts[UKTENA]*120) );
if ( IS_CLASS(victim, CLASS_VAMPIRE) )
dam *= number_range(2,3);
act("You summon a spirit of Flames to disintegrate $N.",ch,NULL,victim,TO_CHAR);
act("$n conjures a spirit of flames to smite you.",ch,NULL,victim,TO_VICT);
act("$n conjures a spirit of flames to smite $N!",ch,NULL,victim,TO_NOTVICT);
mage_damage(ch,victim,dam,"flame spirit",MAGEDAM_OTHER);
ch->gnosis[GCURRENT] -= 2;
WAIT_STATE(ch, 16);
return;
}
void do_invisibility( CHAR_DATA *ch, char *argument )
{
if (!is_garou(ch) ) return;
if ( ch->gifts[UKTENA] < 4 )
{
stc("You must obtain the fourth gift of the Uktena to use Invisibility.\n\r",ch);
return;
}
if ( IS_GAR1(ch, GAROU_BLISSFUL) )
{
stc("You fade out of your invisibility.\n\r",ch);
REMOVE_BIT(ch->garou1, GAROU_BLISSFUL);
return;
}
else
{
stc("Your body fades out of existance.\n\r",ch);
SET_BIT(ch->garou1, GAROU_BLISSFUL);
return;
}
return;
}
/* Wendigo
* Camouflage
* Cutting Wind
* Call the Cannibal Spirit
* Heart of Ice
* Chill of the Early Frost
*/
void do_cuttingwind( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
int dam;
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[WENDIGO] < 2 )
{
stc("You must obtain the second gift of the Wendigo to use Cutting Wind.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 2 )
{
stc("You need two points of gnosis to use this power.\n\r",ch);
return;
}
dam = number_range( 1000, 1250 );
if ( IS_NPC(victim) )
dam *= 2;
act("You summon the bitter winds of the Great Wendigo to rip $N.",ch,NULL,victim,TO_CHAR);
act("$n summons the bitter winds of the Great Wendigo to tear you apart.",ch,NULL,victim,TO_VICT);
act("$n summons the bitter winds of the Great Wendigo to tear $N apart.",ch,NULL,victim,TO_NOTVICT);
mage_damage(ch,victim,dam,"blast of wind",MAGEDAM_OTHER);
ch->gnosis[GCURRENT] -= 2;
WAIT_STATE(ch, 24);
return;
}
void do_cannibalspirit( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
CHAR_DATA *mob;
char arg[MIL];
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[WENDIGO] < 3 )
{
stc("You must obtain the third gift of the Wendigo to Call the Cannibal Spirit.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this on?\n\r",ch);
return;
}
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
stc("You cannot find them in this realm.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 15 )
{
stc("You need 15 gnosis points to use this power.\n\r",ch);
return;
}
if ( is_safe(ch,victim) )
{
stc("They are in a holy place.\n\r",ch);
return;
}
if ( victim->level < 3 )
{
stc("They must be an avatar!\n\r",ch);
return;
}
if ( ( mob = create_mobile( get_mob_index( MOB_VNUM_CANNIBAL ) ) ) == NULL )
{
stc("Shit. The Mob is missing. Fuck. Tell someone. Fuck!\n\r",ch);
return;
}
SET_BIT(mob->affected_by, AFF_DETECT_INVIS);
SET_BIT(mob->affected_by, AFF_DETECT_HIDDEN);
SET_BIT(mob->affected_by, AFF_SHADOWSIGHT);
SET_BIT(mob->act, ACT_NOEXP);
char_to_room( mob, ch->in_room );
act("You summon a Great Wendigo avatar to hunt your foe.",ch,NULL,victim,TO_CHAR);
act("$N bows before you and grins evilly.",ch,NULL,mob,TO_CHAR);
act("$N bursts out of the ground and grins evilly.",ch,NULL,mob,TO_CHAR);
char_from_room( mob );
char_to_room( mob, victim->in_room );
stc("The huge beast quickly burrows into the ground and seeks out your foe.\n\r",ch);
stc("A huge werewolf bursts out of the ground and growls verociously.\n\r",victim);
stc("The werewolf turns to you and grins.\n\r",victim);
do_kill(mob,victim->name);
ch->gnosis[GCURRENT] -= 15;
WAIT_STATE(ch, 16);
return;
}
void do_heartofice( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MIL];
int dam;
argument = one_argument( argument, arg );
if ( !is_garou(ch) ) return;
if ( ch->gifts[WENDIGO] < 4 )
{
stc("You must obtain the fourth gift of the Wendigo to use this power.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
stc("Whom do you wish to use this power on?\n\r",ch);
return;
}
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
stc("They aren't here.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 10 )
{
stc("You must have 10 points of gnosis to use this power.\n\r",ch);
return;
}
if ( is_safe(ch,victim) ) return;
if ( victim->level < 3 )
{
stc("They must be an Avatar.\n\r",ch);
return;
}
dam = number_range( 400, 600 );
if ( IS_NPC(victim) ) dam *= 3;
act("You summon the frost of the Wendigo to chill $N.",ch,NULL,victim,TO_CHAR);
act("A cold air fills the room.\nYou are gripped with pain as the cold freezes your body.",ch,NULL,victim,TO_VICT);
mage_damage(ch, victim, dam, "ice blast",MAGEDAM_OTHER);
ch->gnosis[GCURRENT] -= 10;
WAIT_STATE(ch,16);
return;
}
void do_chillfrost( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
CHAR_DATA *mount;
if ( !is_garou(ch) ) return;
if ( ch->gifts[WENDIGO] < 5 )
{
stc("You must obtain the fifth gift of the Wendigo to use this power.\n\r",ch);
return;
}
if ( ch->gnosis[GCURRENT] < 20 )
{
stc("You need 20 points of gnosis to use this power.\n\r",ch);
return;
}
stc("You conjure the very essence of the Great Wendigo to blanket the area.\nThe skies turn white and the air turns bitter cold.\n\r",ch);
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL ) continue;
if ( vch->in_room->area != ch->in_room->area ) continue;
if ( vch->level < 3 ) continue;
if ( !IS_NPC(vch) && vch->pcdata->chobj != NULL ) continue;
if ( is_safe(ch,vch) ) continue;
if ( ch == vch ) continue;
if ( ( mount = ch->mount ) != NULL )
if ( mount == vch ) continue;
stc("The skies turn white and the sun is banished.\nThe room becomes bitterly cold, and your body starts to shiver.\n\r",vch);
mage_damage(ch,vch, number_range(400,500),"chill frost",MAGEDAM_OTHER);
}
ch->gnosis[GCURRENT] -= 20;
WAIT_STATE(ch, 24);
return;
}