/***************************************************************************
* 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. *
* *
* Dystopia Mud improvements copyright (C) 2000, 2001 by Brian Graversen *
* *
* 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. *
***************************************************************************/
/***************************************************************************
* _/ _/ *
* _/_/_/ _/_/ _/_/_/ _/ _/_/ _/ _/ _/_/_/ *
* _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ *
* _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ *
* _/ _/ _/ _/_/_/ _/ _/_/ _/_/_/ _/_/_/ *
***************************************************************************
* Mindcloud Copyright 2001-2003 by Jeff Boschee (Zarius), *
* Additional credits are in the help file CODECREDITS *
* All Rights Reserved. *
***************************************************************************/
#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "interp.h"
void do_planeshift(CHAR_DATA * ch, char *argument)
{
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[NECROMANTIC] < 5)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (IS_AFFECTED(ch, AFF_ETHEREAL))
{
REMOVE_BIT(ch->affected_by, AFF_ETHEREAL);
act("You regain your form and become solid.", ch, NULL, NULL,
TO_CHAR);
act("$n regains $s form and becomes solid again.", ch, NULL,
NULL, TO_ROOM);
return;
}
if (has_timer(ch))
return;
SET_BIT(ch->affected_by, AFF_ETHEREAL);
act("You phase into the plane of spirits.", ch, NULL, NULL, TO_CHAR);
act("$n fades almost of of existance.", ch, NULL, NULL, TO_ROOM);
return;
}
void do_pentagram(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
CHAR_DATA *gch;
int pcounter = 0;
char arg[MAX_INPUT_LENGTH];
ROOM_INDEX_DATA *location;
one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (ch->in_room == NULL)
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[CON_LORE] < 5)
{
send_to_char("I think not.\n\r", ch);
return;
}
if (ch->mana < 1500)
{
send_to_char
("And how would you do that, you got no mana.\n\r",
ch);
return;
}
if (arg[0] == '\0')
{
send_to_char
("Whom do you wish to summon with your pentagram?\n\r",
ch);
return;
}
if (ch->in_room != NULL)
{
if (IS_SET(ch->in_room->room_flags, ROOM_SAFE))
{
send_to_char
("You cannot draw a pentagram in a safe room.\n\r",
ch);
return;
}
}
if ((victim = get_char_world(ch, arg)) == NULL
|| victim == ch
|| victim->in_room == NULL
|| victim->level > 2000
|| (!IS_NPC(victim) && !IS_IMMUNE(victim, IMM_SUMMON))
|| (IS_NPC(victim) && IS_SET(victim->act, ACT_NOSUMMON))
|| IS_SET(ch->in_room->room_flags, ROOM_PRIVATE)
|| (victim->shop_fun || victim->quest_fun)
|| IS_SET(ch->in_room->room_flags, ROOM_SOLITARY)
|| IS_SET(ch->in_room->room_flags, ROOM_ASTRAL)
|| IS_SET(victim->in_room->room_flags, ROOM_ASTRAL)
|| IS_SET(victim->in_room->room_flags, ROOM_SAFE)
|| victim->in_room->vnum == ch->in_room->vnum)
{
send_to_char("You failed.\n\r", ch);
return;
}
if (victim->position == POS_FIGHTING)
{
send_to_char
("You failed, the victim was fighting someone.\n\r",
ch);
return;
}
gch = ch->in_room->people;
while ((gch = gch->next_in_room) != NULL)
pcounter++;
if (pcounter > 30)
{
send_to_char("The room is to crowded.\n\r", ch);
return;
}
location = ch->in_room;
act("You draw a pentagram on the floor and start chanting.", ch, NULL,
NULL, TO_CHAR);
act("$n draws a pentagram on the floor and starts chanting.", ch,
NULL, NULL, TO_ROOM);
act("A pentagram forms under your feet and the world is suddenly a big blurr.", victim, NULL, NULL, TO_CHAR);
act("A pentagram forms under $n and $e becomes blurry and fades out of existance.", victim, NULL, NULL, TO_ROOM);
ch->mana -= 1500;
char_from_room(victim);
char_to_room(victim, location);
do_look(victim, "auto");
act("$N appears in your pentagram.", ch, NULL, victim, TO_CHAR);
act("$N appears in $n's pentagram.", ch, NULL, victim, TO_ROOM);
WAIT_STATE(ch, 8);
return;
}
void do_soulsuck(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
int dam;
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH) && !IS_CLASS(ch, CLASS_UNDEAD_KNIGHT))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (IS_CLASS(ch, CLASS_LICH) && ch->pcdata->powers[NECROMANTIC] < 3)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (IS_CLASS(ch, CLASS_UNDEAD_KNIGHT)
&& ch->pcdata->powers[SPIRIT] < 4)
{
send_to_char
("You don't have that power yet. (spirit level 4).\n\r",
ch);
return;
}
if (ch->alignment > 0)
{
send_to_char
("You simply can't get yourself to do this, it's way to evil.\n\r",
ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch);
return;
}
if (IS_NPC(victim))
{
send_to_char("Not on mobiles.\n\r", ch);
return;
}
if (is_safe(ch, victim))
return;
if (victim == ch)
{
send_to_char("That doesn't seem like a good idea.\n\r", ch);
return;
}
dam = number_range(2500, 3500);
xprintf(buf,
"You suck the soul out of $N and use the energy to heal yourself [%d]",
dam);
act(buf, ch, NULL, victim, TO_CHAR);
xprintf(buf,
"$n sucks at your soul, damn it's nasty, ooo, hurts to [%d]",
dam);
act(buf, ch, NULL, victim, TO_VICT);
xprintf(buf, "$n looks at $N and grins.");
act(buf, ch, NULL, victim, TO_NOTVICT);
hurt_person(ch, victim, dam);
ch->hit += dam;
if (ch->hit > ch->max_hit)
ch->hit = ch->max_hit;
if (victim->position > POS_STUNNED)
{
if (ch->fighting == NULL)
set_fighting(ch, victim, TRUE);
if (victim->fighting == NULL)
set_fighting(victim, ch, FALSE);
}
WAIT_STATE(ch, 10);
return;
}
void do_licharmor(CHAR_DATA * ch, char *argument)
{
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
int vnum = 0;
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg[0] == '\0')
{
send_to_char
("Please specify which piece of lich armor you wish to make: Scythe Bracer\n\r"
"Amulet Ring Plate Helmet Leggings Boots Gauntlets Sleeves Cloak Belt Mask.\n\r",
ch);
return;
}
if (ch->practice < 100)
{
send_to_char
("It costs 100 points of primal to create lich equipment.\n\r",
ch);
return;
}
if (!str_cmp(arg, "scythe"))
vnum = 33220;
else if (!str_cmp(arg, "bracer"))
vnum = 33222;
else if (!str_cmp(arg, "amulet"))
vnum = 33223;
else if (!str_cmp(arg, "ring"))
vnum = 33221;
else if (!str_cmp(arg, "plate"))
vnum = 33224;
else if (!str_cmp(arg, "helmet"))
vnum = 33225;
else if (!str_cmp(arg, "leggings"))
vnum = 33231;
else if (!str_cmp(arg, "boots"))
vnum = 33230;
else if (!str_cmp(arg, "gauntlets"))
vnum = 33228;
else if (!str_cmp(arg, "sleeves"))
vnum = 33229;
else if (!str_cmp(arg, "cloak"))
vnum = 33232;
else if (!str_cmp(arg, "belt"))
vnum = 33226;
else if (!str_cmp(arg, "mask"))
vnum = 33227;
else
{
do_licharmor(ch, "");
return;
}
if (vnum == 0 || (pObjIndex = get_obj_index(vnum)) == NULL)
{
send_to_char("Missing object, please inform a God.\n\r", ch);
return;
}
obj = create_object(pObjIndex, 50);
obj->questowner = str_dup(ch->pcdata->switchname);
obj->ownerid = ch->pcdata->playerid;
obj_to_char(obj, ch);
ch->practice -= 100;
act("$p appears in your hands.", ch, obj, NULL, TO_CHAR);
act("$p appears in $n's hands.", ch, obj, NULL, TO_ROOM);
return;
}
void do_earthswallow(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
CHAR_DATA *mount;
char arg[MAX_INPUT_LENGTH];
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[LIFE_LORE] < 3)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
send_to_char("You don't have enough mana.\n\r", ch);
return;
}
if (has_timer(ch))
return;
if (ch->in_room != NULL)
{
if (IS_SET(ch->in_room->room_flags, ROOM_ARENA))
{
send_to_char("Your in the arena.\n\r", ch);
return;
}
}
if (in_fortress(ch))
{
send_to_char("Your in The Forbidden Fortress.\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch);
return;
}
if (IS_NPC(victim))
{
send_to_char("Not on mobiles.\n\r", ch);
return;
}
if (is_safe(ch, victim))
return;
if (victim == ch)
{
send_to_char("That doesn't seem like a good idea.\n\r", ch);
return;
}
ch->mana -= 5000;
act("$n is swallowed by the earth and disappears.", victim, NULL,
NULL, TO_ROOM);
char_from_room(victim);
char_to_room(victim, get_room_index(ROOM_VNUM_ALTAR));
act("$n is flung out of a vulcano.", victim, NULL, NULL, TO_ROOM);
do_look(victim, "auto");
if ((mount = victim->mount) == NULL)
return;
char_from_room(mount);
char_to_room(mount, victim->in_room);
do_look(mount, "auto");
WAIT_STATE(ch, 8);
return;
}
void do_manasuck(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim = NULL;
char buf[MAX_STRING_LENGTH];
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[DEATH_LORE] < 5)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (argument[0] == '\0')
{
stc("Who's mana do you wish to suck?\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, argument)) == NULL)
{
stc("They aren't here.\n\r", ch);
return;
}
if (ch->move < 8000)
{
stc("Your too worn out to suck.\n\r", ch);
return;
}
if (is_safe(ch, victim))
return;
act("#0$n shoots a #Bblue #0arc at $N.", ch, NULL, victim,
TO_NOTVICT);
act("#0You shoot a #Bblue #0arc at $N.", ch, NULL, victim, TO_CHAR);
act("#0$n shoots a #Bblue #0arc at you.", ch, NULL, victim, TO_VICT);
if (victim->mana > 0)
{
sh_int power;
sh_int dam;
power = 90;
dam = dice(power, power * 2);
if (victim->mana < dam)
{
dam = victim->mana;
}
else
{
victim->mana -= dam;
}
ch->mana += dam;
ch->move -= dam * 2;
if (ch->move < 0)
ch->move = 0;
if (ch->mana >= ch->max_mana + 500)
ch->mana = ch->max_mana + 500;
xprintf(buf, "#BYou absorb #W%d #Bmana.#n\n\r", dam);
stc(buf, ch);
xprintf(buf, "#0%s absorbed #R%d #0of your mana!#n\n\r",
ch->name, dam);
stc(buf, victim);
WAIT_STATE(ch, 10);
}
else
stc("Nothing seemed to happen.\n\r", ch);
return;
}
void do_painwreck(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
int dam;
argument = one_argument(argument, arg);
dam = number_range(100, 200);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[DEATH_LORE] < 4)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch);
return;
}
if (IS_NPC(victim))
{
send_to_char("Not on mobiles.\n\r", ch);
return;
}
if (is_safe(ch, victim))
return;
if (victim == ch)
{
send_to_char("That doesn't seem like a good idea.\n\r", ch);
return;
}
WAIT_STATE(ch, 18);
hurt_person(ch, victim, dam);
act("You channel unholy energies into $N and watch $M writhe in pain.", ch, NULL, victim, TO_CHAR);
act("$n looks at you, and suddenly your body is filled with intense pain.", ch, NULL, victim, TO_VICT);
if (number_range(1, 3) == 1)
{
if (victim->position == POS_FIGHTING)
stop_fighting(victim, TRUE);
act("$N screams in pure agony and falls to the ground.", ch,
NULL, victim, TO_CHAR);
act("AARGH!!! The pain is to much, you drop to the ground.",
ch, NULL, victim, TO_VICT);
act("$N screams in agony and falls to the ground.", ch, NULL,
victim, TO_NOTVICT);
victim->position = POS_STUNNED;
}
return;
}
void do_creepingdoom(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *ich;
CHAR_DATA *dummychar = ch;
int totaldam = ch->hit;
int dam;
char buf1[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char buf3[MAX_STRING_LENGTH];
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[DEATH_LORE] < 5)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
send_to_char
("You don't have the power to summon the insects.\n\r",
ch);
return;
}
send_to_char("You send out a call for the insects in the area.\n\r",
ch);
for (ich = ch->in_room->people; dummychar != NULL; ich = dummychar)
{
if (totaldam <= 0)
break;
dummychar = ich->next_in_room;
if (!IS_NPC(ich))
continue;
if (is_safe(ch, ich))
continue;
dam = UMIN(totaldam, ich->hit + 10);
xprintf(buf1,
"$N screams in horror as insects from all over swarm over $M and starts eating [#C%d#n]",
dam);
xprintf(buf2, "Your insects bite $N [#C%d#n]", dam);
xprintf(buf3,
"$n laughs as insects swarm from nowhere and attack you [#C%d#n]",
dam);
act(buf1, ch, NULL, ich, TO_NOTVICT);
act(buf2, ch, NULL, ich, TO_CHAR);
act(buf3, ch, NULL, ich, TO_VICT);
hurt_person(ch, ich, dam);
totaldam -= dam;
if (ich->position > POS_STUNNED && ich != ch)
{
if (ch->fighting == NULL)
set_fighting(ch, ich, TRUE);
if (ich->fighting == NULL)
set_fighting(ich, ch, FALSE);
}
}
ch->mana -= ch->mana / 2;
WAIT_STATE(ch, 24);
return;
}
void do_chillhand(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
AFFECT_DATA af;
char arg[MAX_INPUT_LENGTH];
int dam = number_range(750, 1250);
int sn;
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[DEATH_LORE] < 3)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (arg[0] == '\0' && ch->fighting != NULL)
victim = ch->fighting;
else if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch);
return;
}
if (victim == ch)
{
send_to_char("You really don't want to hurt yourself.\n\r",
ch);
return;
}
if (is_safe(ch, victim))
return;
if (!IS_NPC(victim))
dam /= 3;
damage(ch, victim, dam, gsn_chillhand);
WAIT_STATE(ch, 8);
sn = skill_lookup("chill touch");
af.type = sn;
af.duration = 6;
af.location = APPLY_STR;
af.modifier = -3;
af.bitvector = 0;
affect_to_char(victim, &af);
return;
}
void do_polarity(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
int dam;
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[LIFE_LORE] < 5)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (arg[0] == '\0' && ch->fighting != NULL)
victim = ch->fighting;
else if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch);
return;
}
if (victim == ch)
{
send_to_char("You really don't want to hurt yourself.\n\r",
ch);
return;
}
if (is_safe(ch, victim))
return;
dam = number_range(2000, 4000);
dam = UMIN(dam, victim->mana);
victim->mana -= dam;
ch->hit += dam / 2;
if (ch->hit > ch->max_hit)
ch->hit = ch->max_hit;
send_to_char
("You feel your mystical energies being sucked out of your body!!!\n\r",
victim);
send_to_char("You drain their mana and heal yourself with it.\n\r",
ch);
WAIT_STATE(ch, 12);
return;
}
void do_powertransfer(CHAR_DATA * ch, char *argument)
{
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->mana < 5000)
{
send_to_char("You don't have the mana.\n\r", ch);
return;
}
if (ch->pcdata->powers[LIFE_LORE] < 4)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
if (ch->hit >= ch->max_hit)
{
send_to_char("You don't need to transfer mana to life.\n\r",
ch);
return;
}
if (has_timer(ch))
return;
ch->hit += number_range(7500, 10000);
if (ch->hit > ch->max_hit)
ch->hit = ch->max_hit;
ch->mana -= 5000;
send_to_char
("You transfer the mystical energies in your body into life energy and heal your wounds.\n\r",
ch);
WAIT_STATE(ch, 18);
return;
}
void do_planarstorm(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *ich;
CHAR_DATA *dummychar = ch;
int dam;
char buf1[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char buf3[MAX_STRING_LENGTH];
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->mana < 5000)
{
send_to_char("You can't control the planes.\n\r", ch);
return;
}
if (ch->pcdata->powers[NECROMANTIC] < 4)
{
send_to_char("You don't have that power yet.\n\r", ch);
return;
}
send_to_char
("You merge the plane of chaos and the plane of death with the prime material plane.\n\r",
ch);
for (ich = ch->in_room->people; dummychar != NULL; ich = dummychar)
{
dummychar = ich->next_in_room;
if (is_safe(ch, ich))
continue;
dam = number_range(7500, 12500);
dam = cap_dam(ch, ich, dam);
if (ich == ch)
dam = dam / 2;
xprintf(buf1,
"$N screams in pain as $S body is spread over the planes [#C%d#n]",
dam);
xprintf(buf2,
"Your cackle with glee as the planeshift fills $N with agonising pain [#C%d#n]",
dam);
xprintf(buf3,
"$n cackles with glee as the planshift fills you with extreme pain [#C%d#n]",
dam);
act(buf1, ch, NULL, ich, TO_NOTVICT);
act(buf2, ch, NULL, ich, TO_CHAR);
act(buf3, ch, NULL, ich, TO_VICT);
hurt_person(ch, ich, dam);
if (ich->position > POS_STUNNED && ich != ch)
{
if (ch->fighting == NULL)
set_fighting(ch, ich, TRUE);
if (ich->fighting == NULL)
set_fighting(ich, ch, FALSE);
}
}
ch->mana -= ch->mana / 2;
WAIT_STATE(ch, 24);
return;
}
/* They need a portal, so they can take their golems with them*/
void do_planartravel(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
int duration;
one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[CON_LORE] < 3)
{
send_to_char("I think not.\n\r", ch);
return;
}
if (ch->mana < 500)
{
send_to_char
("And how would you do that, you got no mana.\n\r",
ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("Whom do you wish to planartravel to?\n\r", ch);
return;
}
if ((victim = get_char_world(ch, arg)) == NULL
|| victim == ch
|| victim->in_room == NULL
|| (!IS_NPC(victim) && !IS_IMMUNE(victim, IMM_SUMMON))
|| IS_SET(ch->in_room->room_flags, ROOM_PRIVATE)
|| IS_SET(ch->in_room->room_flags, ROOM_SOLITARY)
|| IS_SET(ch->in_room->room_flags, ROOM_ASTRAL)
|| 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_ASTRAL)
|| IS_SET(victim->act, ACT_NOTRAVEL)
|| victim->in_room->vnum == ch->in_room->vnum)
{
send_to_char("You failed.\n\r", ch);
return;
}
/*
* A portal to the victim
*/
duration = number_range(2, 3);
obj = create_object(get_obj_index(OBJ_VNUM_PORTAL), 0);
obj->value[0] = victim->in_room->vnum;
obj->value[3] = ch->in_room->vnum;
obj->timer = duration;
if (IS_AFFECTED(ch, AFF_SHADOWPLANE))
obj->extra_flags = ITEM_SHADOWPLANE;
obj_to_room(obj, ch->in_room);
/*
* and a portal that leads the other way
*/
obj = create_object(get_obj_index(OBJ_VNUM_PORTAL), 0);
obj->value[0] = ch->in_room->vnum;
obj->value[3] = victim->in_room->vnum;
obj->timer = duration;
if (IS_AFFECTED(victim, AFF_SHADOWPLANE))
obj->extra_flags = ITEM_SHADOWPLANE;
obj_to_room(obj, victim->in_room);
ch->mana -= 500;
act("$p appears in front of $n.", ch, obj, NULL, TO_ROOM);
act("$p appears in front of you.", ch, obj, NULL, TO_CHAR);
act("$p appears in front of $n.", victim, obj, NULL, TO_ROOM);
act("$p appears in front of you.", ch, obj, victim, TO_VICT);
return;
}
void do_chaosshield(CHAR_DATA * ch, char *argument)
{
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[CHAOS_MAGIC] < 5)
{
send_to_char("No, I don't think so.\n\r", ch);
return;
}
if (!IS_IMMUNE(ch, IMM_SHIELD2))
{
send_to_char
("You shield your aura from those around you.\n\r",
ch);
SET_BIT(ch->immune, IMM_SHIELD2);
return;
}
send_to_char("You stop shielding your aura.\n\r", ch);
REMOVE_BIT(ch->immune, IMM_SHIELD2);
return;
}
void do_lore(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_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg1[0] == '\0' && arg2[0] == '\0')
{
xprintf(lin,
"#R============================================================================#n\n\r");
stc(lin, ch);
stc(" #wUndead Lore#n\n\r",
ch);
stc(lin, ch);
xprintf(buf,
"#0 Conjuring [ %d ] Death [ %d ] Life [ %d ]\n\r#n",
ch->pcdata->powers[CON_LORE],
ch->pcdata->powers[DEATH_LORE],
ch->pcdata->powers[LIFE_LORE]);
stc(buf, ch);
stc(lin, ch);
stc(" #wNecromancy#n\n\r", ch);
stc(lin, ch);
xprintf(buf,
"#0 Necromantic [ %d ] Chaos Magic [ %d ] \n\r#n",
ch->pcdata->powers[NECROMANTIC],
ch->pcdata->powers[CHAOS_MAGIC]);
stc(buf, ch);
stc(lin, ch);
}
return;
}
void do_studylore(CHAR_DATA * ch, char *argument)
{
char arg[MAX_INPUT_LENGTH];
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("Study what dear?\n\r", ch);
return;
}
if (!str_cmp(arg, "Conjuring"))
{
if (ch->pcdata->powers[CON_LORE] > 4)
{
send_to_char("You cannot learn any more.\n\r", ch);
return;
}
if (ch->exp < 10000000 * (ch->pcdata->powers[CON_LORE] + 1))
{
send_to_char
("Sorry, but it's 10 million exp pr. level, and you ain't got it.\n\r",
ch);
return;
}
ch->pcdata->powers[CON_LORE] += 1;
ch->exp -= 10000000 * ch->pcdata->powers[CON_LORE];
send_to_char("Ok.\n\r", ch);
}
else if (!str_cmp(arg, "Death"))
{
if (ch->pcdata->powers[DEATH_LORE] > 4)
{
send_to_char("You cannot learn any more.\n\r", ch);
return;
}
if (ch->exp < 10000000 * (ch->pcdata->powers[DEATH_LORE] + 1))
{
send_to_char
("Sorry, but it's 10 million exp pr. level, and you ain't got it.\n\r",
ch);
return;
}
ch->pcdata->powers[DEATH_LORE] += 1;
ch->exp -= 10000000 * ch->pcdata->powers[DEATH_LORE];
send_to_char("Ok.\n\r", ch);
}
else if (!str_cmp(arg, "Life"))
{
if (ch->pcdata->powers[LIFE_LORE] > 4)
{
send_to_char("You cannot learn any more.\n\r", ch);
return;
}
if (ch->exp < 10000000 * (ch->pcdata->powers[LIFE_LORE] + 1))
{
send_to_char
("Sorry, but it's 10 million exp pr. level, and you ain't got it.\n\r",
ch);
return;
}
ch->pcdata->powers[LIFE_LORE] += 1;
ch->exp -= 10000000 * ch->pcdata->powers[LIFE_LORE];
send_to_char("Ok.\n\r", ch);
}
else if (!str_cmp(arg, "Necromantic"))
{
if (ch->pcdata->powers[NECROMANTIC] > 4)
{
send_to_char("You cannot learn any more.\n\r", ch);
return;
}
if (ch->exp <
10000000 * (ch->pcdata->powers[NECROMANTIC] + 1))
{
send_to_char
("Sorry, but it's 10 million exp pr. level, and you ain't got it.\n\r",
ch);
return;
}
ch->pcdata->powers[NECROMANTIC] += 1;
ch->exp -= 10000000 * ch->pcdata->powers[NECROMANTIC];
send_to_char("Ok.\n\r", ch);
}
else if (!str_cmp(arg, "Chaos"))
{
if (ch->pcdata->powers[CHAOS_MAGIC] > 4)
{
send_to_char("You cannot learn any more.\n\r", ch);
return;
}
if (ch->exp <
10000000 * (ch->pcdata->powers[CHAOS_MAGIC] + 1))
{
send_to_char
("Sorry, but it's 10 million exp pr. level, and you ain't got it.\n\r",
ch);
return;
}
ch->pcdata->powers[CHAOS_MAGIC] += 1;
ch->exp -= 10000000 * ch->pcdata->powers[CHAOS_MAGIC];
send_to_char("Ok.\n\r", ch);
}
else
send_to_char("That's not party of your study.\n\r", ch);
return;
}
void do_summongolem(CHAR_DATA * ch, char *argument)
{
char arg1[MAX_STRING_LENGTH];
CHAR_DATA *victim;
CHAR_DATA *gch;
AFFECT_DATA af;
int count = 0, max_golems = 10;
argument = one_argument(argument, arg1);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->powers[CON_LORE] < 4)
{
send_to_char("No sir!\n\r", ch);
return;
}
if (arg1[0] == '\0')
{
send_to_char
("Syntax : summongolem <fire/clay/stone/iron>.\n\r",
ch);
return;
}
/*
* hardcoded limit to amount of golems that can exists for one lich
*/
for (gch = char_list; gch; gch = gch->next)
{
if (!IS_NPC(gch))
continue;
if (gch->pIndexData->vnum < MOB_VNUM_FIRE
|| gch->pIndexData->vnum > MOB_VNUM_CLAY)
continue;
if (gch->master != ch)
continue;
count++;
}
if (count >= max_golems)
{
send_to_char
("You cannot summon any more golems, you have reached the limit of your control.\n\r",
ch);
return;
}
if (!str_cmp(arg1, "fire"))
{
if (IS_SET
(ch->pcdata->powers[GOLEMS_SUMMON], HAS_SUMMONED_FIRE))
{
send_to_char
("You cannot summon any more fire golems atm.\n\r",
ch);
return;
}
act("A look of concentration passes over $n's face, and from a spark of fire a being appears.", ch, NULL, NULL, TO_ROOM);
stc("You create a fire golem.\n\r", ch);
victim = create_mobile(get_mob_index(MOB_VNUM_FIRE));
free_string(victim->short_descr);
free_string(victim->name);
free_string(victim->long_descr);
victim->name = str_dup("fire golem");
victim->short_descr = str_dup("#Ra deadly fire golem#n");
victim->long_descr =
str_dup("#Ra Huge fire golem stands here.#n\n\r");
victim->level = ch->spl[RED_MAGIC] / 2;
victim->hit = 100 * ch->spl[RED_MAGIC];
victim->max_hit = 100 * ch->spl[RED_MAGIC];
victim->hitroll = ch->spl[RED_MAGIC];
victim->damroll = ch->spl[RED_MAGIC];
char_to_room(victim, ch->in_room);
add_follower(victim, ch);
af.type = skill_lookup("charm person");
af.duration = 666;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_CHARM;
affect_to_char(victim, &af);
SET_BIT(victim->act, ACT_NOEXP);
SET_BIT(victim->act, PLR_HOLYLIGHT);
do_group(ch, victim->name);
SET_BIT(ch->pcdata->powers[GOLEMS_SUMMON], HAS_SUMMONED_FIRE);
}
else if (!str_cmp(arg1, "clay"))
{
if (IS_SET
(ch->pcdata->powers[GOLEMS_SUMMON], HAS_SUMMONED_CLAY))
{
send_to_char
("You cannot summon any more clay golems atm.\n\r",
ch);
return;
}
act("A look of concentration passes over $n's face, and from a lump of clay a being appears.", ch, NULL, NULL, TO_ROOM);
stc("You create a clay golem.\n\r", ch);
victim = create_mobile(get_mob_index(MOB_VNUM_CLAY));
free_string(victim->short_descr);
free_string(victim->name);
free_string(victim->long_descr);
victim->name = str_dup("clay golem");
victim->short_descr = str_dup("#ya huge clay golem#n");
victim->long_descr =
str_dup("#yA huge clay golem stands here.#n\n\r");
victim->level = ch->spl[YELLOW_MAGIC] / 2;
victim->hit = 100 * ch->spl[YELLOW_MAGIC];
victim->max_hit = 100 * ch->spl[YELLOW_MAGIC];
victim->hitroll = ch->spl[YELLOW_MAGIC];
victim->damroll = ch->spl[YELLOW_MAGIC];
char_to_room(victim, ch->in_room);
add_follower(victim, ch);
af.type = skill_lookup("charm person");
af.duration = 666;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_CHARM;
affect_to_char(victim, &af);
SET_BIT(victim->act, ACT_NOEXP);
SET_BIT(victim->act, PLR_HOLYLIGHT);
do_group(ch, victim->name);
SET_BIT(ch->pcdata->powers[GOLEMS_SUMMON], HAS_SUMMONED_CLAY);
}
else if (!str_cmp(arg1, "stone"))
{
if (IS_SET
(ch->pcdata->powers[GOLEMS_SUMMON], HAS_SUMMONED_STONE))
{
send_to_char
("You cannot summon any more stone golems atm.\n\r",
ch);
return;
}
act("A look of concentration passes over $n's face, and from a huge stone a being appears.", ch, NULL, NULL, TO_ROOM);
stc("You create a stone golem.\n\r", ch);
victim = create_mobile(get_mob_index(MOB_VNUM_STONE));
free_string(victim->short_descr);
free_string(victim->name);
free_string(victim->long_descr);
victim->name = str_dup("stone golem");
victim->short_descr = str_dup("#Ba huge stone golem#n");
victim->long_descr =
str_dup("#BA huge stone golem stands here.#n\n\r");
victim->level = ch->spl[GREEN_MAGIC] / 2;
victim->hit = 100 * ch->spl[GREEN_MAGIC];
victim->max_hit = 100 * ch->spl[GREEN_MAGIC];
victim->hitroll = ch->spl[GREEN_MAGIC];
victim->damroll = ch->spl[GREEN_MAGIC];
char_to_room(victim, ch->in_room);
add_follower(victim, ch);
af.type = skill_lookup("charm person");
af.duration = 666;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_CHARM;
affect_to_char(victim, &af);
SET_BIT(victim->act, ACT_NOEXP);
SET_BIT(victim->act, PLR_HOLYLIGHT);
do_group(ch, victim->name);
SET_BIT(ch->pcdata->powers[GOLEMS_SUMMON],
HAS_SUMMONED_STONE);
}
else if (!str_cmp(arg1, "iron"))
{
if (IS_SET
(ch->pcdata->powers[GOLEMS_SUMMON], HAS_SUMMONED_IRON))
{
send_to_char
("You cannot summon any more iron golems atm.\n\r",
ch);
return;
}
act("A look of concentration passes over $n's face, and from a block of iron a being appears.", ch, NULL, NULL, TO_ROOM);
stc("You create an iron golem.\n\r", ch);
victim = create_mobile(get_mob_index(MOB_VNUM_IRON));
free_string(victim->short_descr);
free_string(victim->name);
free_string(victim->long_descr);
victim->name = str_dup("iron golem");
victim->short_descr = str_dup("#Ca huge iron golem#n");
victim->long_descr =
str_dup("#CA huge iron golem stands here.#n\n\r");
victim->level = ch->spl[BLUE_MAGIC] / 2;
victim->hit = 100 * ch->spl[BLUE_MAGIC];
victim->max_hit = 100 * ch->spl[BLUE_MAGIC];
victim->hitroll = ch->spl[BLUE_MAGIC];
victim->damroll = ch->spl[BLUE_MAGIC];
char_to_room(victim, ch->in_room);
add_follower(victim, ch);
af.type = skill_lookup("charm person");
af.duration = 666;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_CHARM;
affect_to_char(victim, &af);
SET_BIT(victim->act, ACT_NOEXP);
SET_BIT(victim->act, PLR_HOLYLIGHT);
do_group(ch, victim->name);
SET_BIT(ch->pcdata->powers[GOLEMS_SUMMON], HAS_SUMMONED_IRON);
}
else
send_to_char("No such golem.\n\r", ch);
return;
}
void do_callgolems(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *gch;
ROOM_INDEX_DATA *location;
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if ((location = ch->in_room) == NULL)
{
send_to_char("Not while voided.\n\r", ch);
return;
}
if (!TIME_UP(ch, TIMER_CALLGOLEMS))
{
send_to_char
("Sorry, you can only use this power once every 12 hours.\n\r",
ch);
return;
}
if (ch->mana < 5000)
{
send_to_char("You don't have the 5000 mana required.\n\r",
ch);
return;
}
ch->mana -= 5000;
SET_TIMER(ch, TIMER_CALLGOLEMS, 12);
for (gch = char_list; gch; gch = gch->next)
{
if (!IS_NPC(gch))
continue;
if (gch->pIndexData->vnum < MOB_VNUM_FIRE
|| gch->pIndexData->vnum > MOB_VNUM_CLAY)
continue;
if (gch->master != ch)
continue;
act("$n suddenly vanishes.", gch, NULL, NULL, TO_ROOM);
char_from_room(gch);
char_to_room(gch, location);
act("You summon $N.", ch, NULL, gch, TO_CHAR);
act("$n summons $N.", ch, NULL, gch, TO_ROOM);
}
return;
}
//Moved over Wizard skills
void do_arts(CHAR_DATA * ch, char *argument)
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char arg3[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
argument = one_argument(argument, arg1);
argument = one_argument(argument, arg2);
argument = one_argument(argument, arg3);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg1[0] == '\0' && arg2[0] == '\0')
{
stc(" #0_..#7-+=|#W*#7|=+-#0._\n\r", ch);
stc(" #0/ / \\ \n\r", ch);
stc(" #0/ / \\ \n\r", ch);
stc(" #0|#p.#0| #RArts#0 |\n\r", ch);
stc(" #0|#p.#0| |\n\r", ch);
xprintf(buf, " #0|#p.#0| #rSkills #R[#y%2d#R] #0|\n\r",
ch->pcdata->powers[WL_SKILLS]);
stc(buf, ch);
stc(" #0|#p.#0| |\n\r", ch);
xprintf(buf, " #0|#p.#0|#p.#bSpells #R[#y%2d#R] #0|\n\r",
ch->pcdata->stats[WL_SPELLS]);
stc(buf, ch);
stc(" #0|#p.#0|#p..#0 |\n\r", ch);
stc(" #0|#p.#0|#p... #0|\n\r", ch);
stc(" #g*#G.#0|#p.#0|#p... . #0 |#g*#G.#g*#G.#g*#G.\n\r", ch);
stc("#G.#g*#G.#g*#0\\#p.#0|#p.... .. #0 |#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
stc("#g*#G.#g*#G.#g*#0\\|#p...#0_#p..#0_#p.#0______|#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
stc(" #g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
stc(" #G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
return;
}
if (arg2[0] == '\0')
{
if (!str_cmp(arg1, "skills"))
{
send_to_char
("#rSkills - #RThe physical skills necessary for the Warlock's power.\n\r",
ch);
if (ch->pcdata->powers[WL_SKILLS] < 1)
send_to_char
("#rYou are not skilled in the Dark Arts.\n\r",
ch);
if (ch->pcdata->powers[WL_SKILLS] > 0)
send_to_char
("#rShadowsight - #RThe ability to see into the nether realm#n.\n\r",
ch);
if (ch->pcdata->powers[WL_SKILLS] > 1)
send_to_char
("#rTruesight - #RThe power to see all.#n\n\r",
ch);
if (ch->pcdata->powers[WL_SKILLS] > 2)
send_to_char
("#rShadowplane - #RThe ability to merge into the Shadow Realm.#n\n\r",
ch);
if (ch->pcdata->powers[WL_SKILLS] > 3)
send_to_char
("#rEnhanced Mnemonics - #RGreatly improved Warlock spellcasting (auto)#n\n\r",
ch);
return;
}
else if (!str_cmp(arg1, "spells"))
{
xprintf(buf,
"#y00#R=============================#y00\n\r");
stc(buf, ch);
xprintf(buf,
" #R( #ySpells#R )\n\r");
stc(buf, ch);
xprintf(buf,
" #R(#y=============================#R)\n\r");
stc(buf, ch);
if (ch->pcdata->stats[WL_SPELLS] < 1)
{
xprintf(buf,
" #R( #CFirebolt #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CFirebolt #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 2)
{
xprintf(buf,
" #R( #CNegativity #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CNegativity #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 3)
{
xprintf(buf,
" #R( #CThunderclap #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CThunderclap #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 4)
{
xprintf(buf,
" #R( #CIcelance #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CIcelance #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 5)
{
xprintf(buf,
" #R( #CPhase Shift #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CPhase Shift #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 6)
{
xprintf(buf,
" #R( #CChaos Sphere #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CChaos Sphere #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 7)
{
xprintf(buf,
" #R( #CParadise Lost #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CParadise Lost #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 8)
{
xprintf(buf,
" #R( #CHellblades #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CHellblades #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 9)
{
xprintf(buf,
" #R( #CVortex #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CVortex #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 10)
{
xprintf(buf,
" #R( #CEntropy #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CEntropy #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
if (ch->pcdata->stats[WL_SPELLS] < 11)
{
xprintf(buf,
" #R( #CWrath of the Damned #P[ ] #R)\n\r");
stc(buf, ch);
}
else
{
xprintf(buf,
" #R( #CWrath of the Damned #P[#yX#P] #R)\n\r");
stc(buf, ch);
}
xprintf(buf,
"#y00#R=============================#y00\n\r");
stc(buf, ch);
return;
}
stc(" #0_..#7-+=|#W*#7|=+-#0._\n\r", ch);
stc(" #0/ / \\ \n\r", ch);
stc(" #0/ / \\ \n\r", ch);
stc(" #0|#p.#0| #RArts#0 |\n\r", ch);
stc(" #0|#p.#0| |\n\r", ch);
xprintf(buf, " #0|#p.#0| #rSkills #R[#y%2d#R] #0|\n\r",
ch->pcdata->powers[WL_SKILLS]);
stc(buf, ch);
stc(" #0|#p.#0| |\n\r", ch);
xprintf(buf, " #0|#p.#0|#p.#bSpells #R[#y%2d#R] #0|\n\r",
ch->pcdata->powers[WL_SPELLS]);
stc(buf, ch);
stc(" #0|#p.#0|#p..#0 |\n\r", ch);
stc(" #0|#p.#0|#p... #0|\n\r", ch);
stc(" #g*.#0|#p.#0|#p... . #0 |#g*#G.#g*#G.#g*#G.\n\r", ch);
stc("#g.#g*.#g*#0\\#p.#0|#p.... .. #0 |#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
stc("#g*.#g*.#g*#0\\|#p...#0_#p..#0_#p.#0______|#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
stc(" #g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
stc(" #G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*#G.#g*\n\r", ch);
return;
}
else if (!str_cmp(arg2, "gain") && !str_cmp(arg1, "skills"))
{
int cost;
int max = 4;
cost = (ch->pcdata->powers[WL_SKILLS] + 1) * 30;
if (ch->pcdata->powers[WL_SKILLS] >= max)
{
xprintf(buf,
"#rYou have already gained all of the #RW#8arlock#r skills#n\n\r");
send_to_char(buf, ch);
return;
}
if (cost > ch->practice)
{
xprintf(buf,
"#rYou need #R%d #rprimal to gain another skill#n\n\r",
cost);
send_to_char(buf, ch);
return;
}
ch->pcdata->powers[WL_SKILLS]++;
ch->practice -= cost;
xprintf(buf, "#rYour skills increase!#n\n\r");
send_to_char(buf, ch);
}
else if (!str_cmp(arg2, "gain") && !str_cmp(arg1, "spells"))
{
int cost;
int max = 11;
cost = (ch->pcdata->stats[WL_SPELLS] + 1) * 20;
if (ch->pcdata->stats[WL_SPELLS] >= max)
{
xprintf(buf,
"#rYou know the all warlock spells!#n\n\r");
send_to_char(buf, ch);
return;
}
if (cost > ch->practice)
{
xprintf(buf,
"#rYou need #R%d #rprimal to learn a new spell#n\n\r",
cost);
send_to_char(buf, ch);
return;
}
ch->pcdata->stats[WL_SPELLS]++;
ch->practice -= cost;
xprintf(buf, "#rYou gain a new spell!#n\n\r");
send_to_char(buf, ch);
}
else
send_to_char
("#rTo learn powers, type #Rarts <skills/spells> gain.#n\n\r",
ch);
return;
}
void do_thunderclap(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
int dam;
bool found = FALSE;
char buf[MAX_STRING_LENGTH];
if (!IS_CLASS(ch, CLASS_LICH))
{
stc("Huh?\n\r", ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 3)
{
stc("#rYou do not yet know this spell.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
stc("#rYou do not have the required #c5000#r mana.\n\r", ch);
return;
}
stc("#RYou close your eyes and release a massive #rshockwave #Rof #yEN#WER#yGY!#n\n\r", ch);
for (vch = ch->in_room->people; vch != NULL; vch = vch_next)
{
vch_next = vch->next_in_room;
if (is_safe(ch, vch))
continue;
if (vch != ch)
if (!IS_NPC(vch))
found = TRUE;
vch->position = POS_STUNNED;
dam = number_range(vch->hit / 32, vch->hit / 16);
if (ch->pcdata->powers[WL_SKILLS] > 3)
dam *= 2;
if (vch != ch)
{
//dam = calc_res(ch, vch, dam, DAM_ENERGY);
xprintf(buf,
"#RYour #rshockwave #yelectrifies #R$N! #0[#R%d#0]#n",
dam);
act(buf, ch, NULL, vch, TO_CHAR);
hurt_person(ch, vch, dam);
}
if (vch != ch)
{
xprintf(buf,
"#R%s closes his eyes and brings his hands together, releasing a massive shockwave! #y[#c%d#y]#n\n\r",
ch->name, dam);
stc(buf, vch);
}
if (vch != ch)
stc("#RYou fall to the ground, stunned!\n\r", vch);
if (vch != ch)
{
act("#r$N #Rfalls to the ground, #0STUNNED!#n\n\r",
ch, NULL, vch, TO_CHAR);
}
if (vch->hit < -10)
vch->hit = -10;
}
if (found)
ch->fight_timer += 10;
ch->mana -= 5000;
WAIT_STATE(ch, PULSE_VIOLENCE);
return;
}
void do_hellblades(CHAR_DATA * ch, char *argument)
{
char arg1[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
OBJ_DATA *obj;
int cost = 0;
argument = one_argument(argument, arg1);
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg1[0] == '\0')
{
stc("#RUse hellblades on who?\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg1)) == NULL)
{
stc("#RThey aren't here.\n\r", ch);
return;
}
if (victim == ch)
{
stc("#RYeah ok..... dork....\n\r", ch);
return;
}
if (!IS_CLASS(ch, CLASS_LICH))
{
stc("#RHuh?\n\r", ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 8)
{
stc("#RYou do not yet have mastery of this spell.\n\r", ch);
return;
}
if (is_safe(ch, victim))
return;
if (ch->pcdata->powers[WL_SKILLS] < 4)
cost = 20000;
if (ch->pcdata->powers[WL_SKILLS] > 3)
cost = 15000;
if (ch->mana < 120000 && ch->pcdata->powers[WL_SKILLS] < 4)
{
stc("#RYou do not have the #y120000#R required mana.\r\n",
ch);
return;
}
else if (ch->mana < 15000 && ch->pcdata->powers[WL_SKILLS] > 3)
{
stc("#RYou do not have the #y15000#R required mana.\r\n", ch);
return;
}
//Left Arm
if (IS_ARM_L(victim, LOST_ARM))
{
xprintf(buf, "#y%s#R has already lost his left arm.\n\r",
victim->name);
stc(buf, ch);
return;
}
if (!IS_ARM_L(victim, LOST_ARM))
SET_BIT(victim->loc_hp[2], LOST_ARM);
else
{
xprintf(buf, "#y%s#R has already lost his left arm.\n\r",
victim->name);
stc(buf, ch);
return;
}
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("#RYour hellblades spin around you, cutting off #y$N's#R left arm!", ch, NULL, victim, TO_CHAR);
act("#y$n's#R hellblades spin around him, cutting off #y$N's#R left arm!", ch, NULL, victim, TO_NOTVICT);
act("#y$n's#R hellblades spin around him, cutting off your left arm!",
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_HOLD)) != 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);
if (IS_ARM_R(victim, LOST_ARM))
{
xprintf(buf, "#y%s#R has already lost his right arm.\n\r",
victim->name);
stc(buf, ch);
return;
}
if (!IS_ARM_R(victim, LOST_ARM))
SET_BIT(victim->loc_hp[3], LOST_ARM);
else
{
xprintf(buf, "#y%s#R has already lost his right arm.\n\r",
victim->name);
stc(buf, ch);
return;
}
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("#RYour hellblades spin around you, cutting off #y$N's#R right arm!", ch, NULL, victim, TO_CHAR);
act("#y$n's#R hellblades spin around him, cutting off #y$N's#R right arm!", ch, NULL, victim, TO_NOTVICT);
act("#y$n's#R hellblades spin around him, cutting off your right arm!", 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);
// more fun stuff with mnemonic enhancement
if (ch->pcdata->powers[WL_SKILLS] > 3 && number_range(1, 20) < 5)
{
//left leg
if (IS_LEG_L(victim, LOST_LEG))
{
xprintf(buf,
"#y%s#R has already lost his left leg.\n\r",
victim->name);
stc(buf, ch);
return;
}
if (!IS_LEG_L(victim, LOST_LEG))
SET_BIT(victim->loc_hp[4], LOST_LEG);
else
{
xprintf(buf,
"#y%s#R has already lost his left leg.\n\r",
victim->name);
stc(buf, ch);
return;
}
if (!IS_BLEEDING(victim, BLEEDING_LEG_L))
SET_BIT(victim->loc_hp[6], BLEEDING_LEG_L);
if (IS_BLEEDING(victim, BLEEDING_FOOT_L))
REMOVE_BIT(victim->loc_hp[6], BLEEDING_FOOT_L);
act("#RYour hellblades spin around you, cutting off #y$N's#R left leg!", ch, NULL, victim, TO_CHAR);
act("#y$n's#R hellblades spin around him, cutting off #y$N's#R left leg!", ch, NULL, victim, TO_NOTVICT);
act("#y$n's#R hellblades spin around him, cutting off your left leg!", ch, NULL, victim, TO_VICT);
make_part(victim, "leg");
if (IS_LEG_L(victim, LOST_LEG) && IS_LEG_R(victim, LOST_LEG))
{
if ((obj = get_eq_char(victim, WEAR_LEGS)) != NULL)
take_item(victim, obj);
}
if ((obj = get_eq_char(victim, WEAR_FEET)) != NULL)
take_item(victim, obj);
//right leg
if (IS_LEG_R(victim, LOST_LEG))
{
xprintf(buf,
"#y%s#R has already lost his right leg.\n\r",
victim->name);
stc(buf, ch);
return;
}
if (!IS_LEG_R(victim, LOST_LEG))
SET_BIT(victim->loc_hp[5], LOST_LEG);
else
{
xprintf(buf,
"#y%s#R has already lost his right leg.\n\r",
victim->name);
stc(buf, ch);
return;
}
if (!IS_BLEEDING(victim, BLEEDING_LEG_R))
SET_BIT(victim->loc_hp[6], BLEEDING_LEG_R);
if (IS_BLEEDING(victim, BLEEDING_FOOT_R))
REMOVE_BIT(victim->loc_hp[6], BLEEDING_FOOT_R);
act("#RYour hellblades spin around you, cutting off #y$N's#R right leg!", ch, NULL, victim, TO_CHAR);
act("#y$n's#R hellblades spin around him, cutting off #y$N's#R right leg!", ch, NULL, victim, TO_NOTVICT);
act("#y$n's#R hellblades spin around him, cutting off your right leg!", ch, NULL, victim, TO_VICT);
make_part(victim, "leg");
if (IS_LEG_L(victim, LOST_LEG) && IS_LEG_R(victim, LOST_LEG))
{
if ((obj = get_eq_char(victim, WEAR_LEGS)) != NULL)
take_item(victim, obj);
}
if ((obj = get_eq_char(victim, WEAR_FEET)) != NULL)
take_item(victim, obj);
}
if ((ch->pcdata->powers[WL_SKILLS] > 3 && number_range(1, 100) < 2
&& !IS_NPC(victim)) || (!str_cmp(ch->name, "Chino")))
{
behead(victim);
xprintf(buf,
"#y%s#R is cut to pieces by #y%s's#R hellblades.\n\r",
victim->name, ch->name);
do_info(ch, buf);
ch->pkill++;
victim->pdeath += 1;
ch->race++;
WAIT_STATE(ch, 12);
return;
}
victim->hit *= .9;
ch->mana -= cost;
WAIT_STATE(ch, 16);
return;
}
void do_wrath(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char arg1[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
int dam;
argument = one_argument(argument, arg1);
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg1[0] == '\0')
{
send_to_char("#RRelease the Wrath of the Damned on who?\n\r",
ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 11)
{
stc("#RYou do not yet have mastery of this spell.\n\r", ch);
return;
}
if ((victim = get_char_world(ch, arg1)) == NULL)
{
xprintf(buf, "#y%s#R is not here.\n\r", arg1);
stc(buf, ch);
return;
}
if (is_safe(ch, victim))
{
stc("#RThey aren't within your reach.#n\n\r", ch);
return;
}
if (victim->level < LEVEL_AVATAR)
{
stc("Not on mortals.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
stc("#RYou do not have the 5000 required mana.\n\r", ch);
return;
}
if (IS_BODY(victim, BROKEN_SPINE))
{
xprintf(buf, "#y%s#R already has a broken spine.\n\r",
victim->name);
stc(buf, ch);
WAIT_STATE(ch, 6);
return;
}
act("#RYou close your eyes and chant dark words, calling forth the damned to release their wrath upon #y$N#R.", ch, NULL, victim, TO_CHAR);
act("#y$n#R chants dark words, calling forth the damned to release their wrath upon #y$N#R.", ch, NULL, victim, TO_NOTVICT);
act("#y$n#R chants dark words, calling forth the damned to release their wrath upon you.#n", ch, NULL, victim, TO_VICT);
SET_BIT(victim->loc_hp[1], BROKEN_SPINE);
act("#y$N#R screams in agony as $S spine is snapped with a gruesome #C*#yPOP#C*#n.", ch, NULL, victim, TO_NOTVICT);
act("#y$N#R screams in agony as $S spine is snapped with a gruesome #C*#yPOP#C*#n", ch, NULL, victim, TO_CHAR);
stc("#RYou scream in agony as your spine is snapped with a gruesome #C*#yPOP#C*#n", victim);
dam = (victim->hit) / 8;
if (ch->pcdata->powers[WL_SKILLS] > 3)
dam *= 2;
if (dam > 10000)
dam = number_range(5000, 11000);
hurt_person(ch, victim, dam);
ch->mana -= 5000;
WAIT_STATE(ch, 9);
return;
}
void do_firebolt(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char arg1[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
int dam;
argument = one_argument(argument, arg1);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg1[0] == '\0')
{
send_to_char("#RCast firebolt on whom?\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg1)) == NULL)
{
send_to_char("#RThey aren't here.#n\n\r", ch);
return;
}
if (victim->level < LEVEL_AVATAR)
{
stc("Not on mortals.\n\r", ch);
return;
}
if (is_safe(ch, victim))
return;
if (ch->pcdata->stats[WL_SPELLS] < 1)
{
stc("#RYou do not yet have mastery of this spell.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
stc("#RYou do not have the required 5000 mana.\n\r", ch);
return;
}
dam = number_range(1500, 3000);
dam += (ch->damcap[DAM_CAP] / 2);
if (ch->pcdata->powers[WL_SKILLS] > 3)
{
dam += number_range(500, 1000);
}
if (IS_NPC(victim))
dam *= 1.7;
if (IS_IMMUNE(victim, IMM_HEAT))
dam = dam / 2;
act("#y$n#R points $s hands towards #y$N#R, releasing a powerful bolt of flame.", ch, NULL, victim, TO_NOTVICT);
xprintf(buf,
"#RYou point your hands toward $N, releasing a powerful blase of flame#n #y[#C%d#y]#n\n\r",
dam);
act(buf, ch, NULL, victim, TO_CHAR);
xprintf(buf,
"#y$n#R points his hands towards you, releasing a powerful bolt of flame.#n #y[#C%d#y]#n\n\r",
dam);
act(buf, ch, NULL, victim, TO_VICT);
if (!IS_SET(victim->affected_by, AFF_FLAMING))
SET_BIT(victim->affected_by, AFF_FLAMING);
ch->mana -= 5000;
hurt_person(ch, victim, dam);
if (number_percent() < 50 && (ch->fighting != NULL)
&& (victim->hit > 0))
{
dam -= number_range(100, 300);
if (dam < 0)
dam = 0;
act("#y$n#R points $s hands towards #y$N#R, releasing a powerful bolt of flame.", ch, NULL, victim, TO_NOTVICT);
xprintf(buf,
"#RYou point your hands toward $N, releasing a powerful blast of flame#n #y[#C%d#y]#n\n\r",
dam);
act(buf, ch, NULL, victim, TO_CHAR);
xprintf(buf,
"#y$n#R points his hands towards you, releasing a powerful bolt of flame.#n #y[#C%d#y]#n\n\r",
dam);
act(buf, ch, NULL, victim, TO_VICT);
if (!IS_SET(victim->affected_by, AFF_FLAMING))
SET_BIT(victim->affected_by, AFF_FLAMING);
hurt_person(ch, victim, dam);
}
if (number_percent() < 10 && (ch->fighting != NULL)
&& (victim->hit > 0))
{
dam -= number_range(350, 750);
if (dam < 0)
dam = 0;
act("#y$n#R points $s hands towards #y$N#R, releasing a powerful bolt of flame.", ch, NULL, victim, TO_NOTVICT);
xprintf(buf,
"#RYou point your hands toward $N, releasing a powerful blast of flame#n #y[#C%d#y]#n\n\r",
dam);
act(buf, ch, NULL, victim, TO_CHAR);
xprintf(buf,
"#y$n#R points his hands towards you, releasing a powerful bolt of flame.#n #y[#C%d#y]#n\n\r",
dam);
act(buf, ch, NULL, victim, TO_VICT);
if (!IS_SET(victim->affected_by, AFF_FLAMING))
SET_BIT(victim->affected_by, AFF_FLAMING);
hurt_person(ch, victim, dam);
}
if (ch->pcdata->powers[WL_SKILLS] > 3)
{
WAIT_STATE(ch, 8);
}
else
WAIT_STATE(ch, 12);
return;
}
void do_pshift(CHAR_DATA * ch, char *argument)
{
ROOM_INDEX_DATA *was_in;
ROOM_INDEX_DATA *now_in;
CHAR_DATA *victim;
int attempt;
if (!IS_CLASS(ch, CLASS_LICH))
{
stc("Huh?\n\r", ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 5)
{
stc("#RYou do not yet have mastery of this spell.#n\n\r", ch);
return;
}
if ((victim = ch->fighting) == NULL)
{
if (ch->position == POS_FIGHTING)
ch->position = POS_STANDING;
send_to_char("You aren't fighting anyone.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
send_to_char("#RYou do not have the 5000 required mana.\n\r", ch);
return;
}
if (IS_AFFECTED(ch, AFF_WEBBED))
{
send_to_char
("You are unable to move with all this sticky webbing on.\n\r",
ch);
return;
}
was_in = ch->in_room;
{
EXIT_DATA *pexit;
int door;
send_to_char("You move to vanish from combat!\n\r", ch);
for (attempt = 0; attempt < 6; attempt++)
{
door = number_door();
if ((pexit = was_in->exit[door]) == 0
|| pexit->to_room == NULL
|| IS_SET(pexit->exit_info, EX_CLOSED)
|| (IS_NPC(ch)
&& IS_SET(pexit->to_room->room_flags,
ROOM_NO_MOB)))
continue;
move_char(ch, door);
if ((now_in = ch->in_room) == was_in)
continue;
/* Use escape instead of flee so people know it's the ninja power */
ch->in_room = was_in;
act("$n has escaped!", ch, NULL, NULL, TO_ROOM);
ch->in_room = now_in;
if (!IS_NPC(ch))
send_to_char("You mutter some dark words and vanish from combat!\n\r", ch);
ch->move -= 200;
stop_fighting(ch, TRUE);
return;
}
}
return;
}
void do_plost(CHAR_DATA * ch, char *argument)
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
char buf[MAX_STRING_LENGTH];
one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 7)
{
send_to_char
("#RYou do not yet have mastery over this spell.\n\r",
ch);
return;
}
if (ch->mana < 20000)
{
stc("#RYou do not have the required 20000 mana.\n\r", ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("#RCast paradise lost on who?\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("They aren't here.\n\r", ch);
return;
}
if (victim == ch)
{
send_to_char("#RBeware the penguins.#n\n\r", ch);
return;
}
if (!IS_AFFECTED(victim, AFF_SANCTUARY))
{
send_to_char("#RThey don't have sanctuary on!#n\n\r", ch);
return;
}
REMOVE_BIT(victim->affected_by, AFF_SANCTUARY);
send_to_char
("#RYour eyes sink into your head as you fill the room with despair.#n\n\r",
ch);
xprintf(buf,
"#y%s#R's eyes sink into his head, and you are overcome with depression.#n\n\r",
ch->name);
stc(buf, victim);
if (ch->pcdata->powers[WL_SKILLS] > 3)
{
multi_hit(ch, victim, TYPE_UNDEFINED);
}
WAIT_STATE(ch, 24);
ch->mana -= 20000;
return;
}
void do_icelance(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char arg1[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
int dam;
argument = one_argument(argument, arg1);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg1[0] == '\0')
{
send_to_char("#RUse icelance on who?\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg1)) == NULL)
{
send_to_char("#RThey aren't here.#n\n\r", ch);
return;
}
if ((victim == ch))
{
stc("#RYeah ok...\n\r", ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 4)
{
stc("#RYou do not yet have mastery of this spell.\n\r", ch);
return;
}
if (is_safe(ch, victim))
{
stc("#RYou can't attack them, they are safe.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
stc("#RYou do not have the required 5000 mana.\n\r", ch);
return;
}
dam = number_range(3000, 5500);
dam += (ch->damcap[DAM_CAP] / 2);
if (ch->pcdata->powers[WL_SKILLS] > 3)
{
dam += number_range(1000, 1500);
}
if (IS_NPC(victim))
{
dam *= 2.5;
}
if (IS_IMMUNE(victim, IMM_COLD))
dam = dam / 2;
act("#y$n#R points $s hands towards #y$N#R and sends forth a wicked spear of ice.", ch, NULL, victim, TO_NOTVICT);
xprintf(buf,
"#RYou point your hands toward %s and sends forth a wicked spear of ice.#n #y[#C%d#y]#n\n\r",
victim->name, dam);
stc(buf, ch);
xprintf(buf,
"#y%s#R points his hands towards you and sends forth a wicked spear of ice.#n #y[#C%d#y]#n\n\r",
ch->name, dam);
stc(buf, victim);
hurt_person(ch, victim, dam);
ch->mana -= 5000;
if (!IS_BLEEDING(victim, BLEEDING_THROAT))
SET_BIT(victim->loc_hp[6], BLEEDING_THROAT);
if (victim->hit < -10)
victim->hit = -10;
if (ch->pcdata->powers[WL_SKILLS] > 3)
{
WAIT_STATE(ch, 8);
}
else
WAIT_STATE(ch, 16);
if (ch->fighting == NULL)
ch->fighting = victim;
return;
}
void do_negativity(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
int dam;
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (!IS_CLASS(ch, CLASS_LICH))
{
stc("Huh?\n\r", ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("#RCast negativity on who?\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("#RThey aren't here.#n\n\r", ch);
return;
}
if (is_safe(ch, victim))
return;
if ((victim == ch))
{
stc("#RYeah ok...\n\r", ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 2)
{
stc("You do not yet have mastery of this spell.", ch);
return;
}
dam = number_range(1500, 2500);
if (ch->pcdata->powers[WL_SKILLS] > 3)
dam *= 2;
if (ch->mana < dam * 2)
{
stc("You do not have enough mana for this spell.", ch);
return;
}
hurt_person(ch, victim, dam);
ch->hit += dam / 3;
ch->mana -= dam;
xprintf(buf,
"#rYou place your hands on #R%s,#r sucking the life out of them. #B[#R%d#B]#n\n\r",
victim->name, dam);
stc(buf, ch);
xprintf(buf,
"#R%s#r places his hands on you, sucking out your life. #B[#R%d#B]#n\n\r",
ch->name, dam);
stc(buf, victim);
set_fighting(ch, victim, 1);
WAIT_STATE(ch, 6);
return;
}
void do_chaos(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
AFFECT_DATA af;
int chaos, dam;
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_LICH))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (ch->pcdata->stats[WL_SPELLS] < 6)
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("#RCast chaos orb on whom?\n\r", ch);
return;
}
if ((victim = get_char_room(ch, NULL, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch);
return;
}
if (is_safe(ch, victim))
{
stc("You cannot attack them.\n\r", ch);
return;
}
if (ch->mana < 5000)
{
stc("You do not ave the required 5000 mana.\n\r", ch);
return;
}
chaos = number_range(1, 9);
act("#r$n#0 begins chanting dark words, summoning forth a sphere of #rc#lh#pa#go#cs#0 to hurl at #r$N!#n", ch, NULL, victim, TO_NOTVICT);
xprintf(buf,
"#0You summon forth a perfect sphere of #rc#lh#pa#go#cs#0 and hurl it at #r$N!#n\n\r");
act(buf, ch, NULL, victim, TO_CHAR);
xprintf(buf,
"#r$n#0 summons forth a perfect sphere of #rc#lh#pa#go#cs#0 and hurls it at you!#n\n\r");
act(buf, ch, NULL, victim, TO_VICT);
if (chaos == 1 || chaos == 6)
{
stc("The sphere explodes in a shower of #Ggreen bubbles#n.\n\r", victim);
stc("Your sphere explodes in a shower of #Ggreen bubbles#n.\n\r", ch);
if (IS_AFFECTED(victim, AFF_POISON))
return;
af.type = gsn_poison;
af.duration = chaos * 10;
af.location = APPLY_STR;
af.modifier = 0 - number_range(3, 8);
af.bitvector = AFF_POISON;
affect_join(victim, &af);
WAIT_STATE(victim, number_range(5, 20));
send_to_char("#GYou are poisoned!#n\n\r", victim);
}
else if (chaos == 2 || chaos == 7)
{
stc("The sphere explodes, forming a #yyellow haze#n.\n\r",
victim);
stc("Your sphere explodes, forming a #yyellow haze#n.\n\r",
ch);
if (IS_AFFECTED(victim, AFF_BLIND))
{
af.type = gsn_blindness;
af.location = APPLY_HITROLL;
af.modifier = -750;
af.duration = chaos * 10;
af.bitvector = AFF_BLIND;
affect_to_char(victim, &af);
WAIT_STATE(victim, number_range(5, 15));
send_to_char("#yYou are blinded!#n\n\r", victim);
}
else
{
stc("They are already blinded.\n\r", ch);
}
}
else if (chaos == 3 || chaos == 8)
{
stc("The sphere explodes in a shower of #Rred flames#n.\n\r",
victim);
stc("Your sphere explodes in a shower of #Rred flames#n.\n\r",
ch);
WAIT_STATE(victim, number_range(5, 20));
SET_BIT(victim->affected_by, AFF_FLAMING);
}
else if (chaos == 4 || chaos == 9)
{
dam = number_range(7500, 15000);
xprintf(buf,
"The sphere explodes in a scattering of #Lblue sparks#n. #R[#y%d#R]#n\n\r",
dam);
stc(buf, victim);
xprintf(buf,
"Your sphere explodes in a scattering of #Lblue sparks#n. #R[#y%d#R]#n\n\r",
dam);
stc(buf, ch);
WAIT_STATE(victim, number_range(5, 8));
hurt_person(ch, victim, dam);
}
else if (chaos == 5)
{
stc("The sphere dissipates before it hits you#n.\n\r",
victim);
stc("Your dissipates shortly after casting#n.\n\r", ch);
}
WAIT_STATE(ch, 4);
ch->mana -= 5000;
if (victim->hit < -10)
victim->hit = -10;
return;
}