void do_pray( CHAR_DATA * ch, char * argument ) {
if ( !IS_GOOD( ch ) ) {
send_to_char( AT_BLUE, "Thalador forgives some of your sins.\n\r", ch );
ch->alignment += 10;
} else if ( !IS_NPC( ch ) && ch->pcdata->learned[ gsn_prayer ] < number_percent() ) {
send_to_char( AT_BLUE, "Thalador smiles upon you, and sends you a gold coin.\n\r", ch );
ch->money.gold += 1;
} else if ( !is_affected( ch, gsn_prayer ) ) {
AFFECT_DATA af;
af.duration = ch->level / 3;
af.level = ch->level;
af.type = gsn_prayer;
af.bitvector = 0;
af.location = APPLY_HIT;
af.modifier = number_range( ch->level, ch->level * 2 );
affect_to_char( ch, &af );
af.location = APPLY_MANA;
af.modifier = number_range( ch->level / 2, ch->level );
affect_to_char( ch, &af );
af.location = APPLY_INT;
af.modifier = ( ( ch->level - 1 ) / 50 ) + 1;
affect_to_char( ch, &af );
af.location = APPLY_DEX;
affect_to_char( ch, &af );
send_to_char( AT_BLUE, "Thalador places his blessing upon you.\n\r", ch );
update_skpell( ch, gsn_prayer );
} else {
send_to_char( AT_BLUE, "Thalador frowns at your greed.\n\r", ch );
ch->alignment -= 10;
}
send_to_char( AT_GREY, "You fall to the ground, unconscious.\n\r", ch );
act( AT_GREY, "$n falls to the ground, unconscious.", ch, NULL, NULL, TO_ROOM );
STUN_CHAR( ch, 4, STUN_COMMAND );
return;
}
void do_forge(CHAR_DATA * ch, char *argument)
{
char arg[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char buf[MAX_INPUT_LENGTH];
OBJ_DATA *obj, *hammer;
int wear, lvl;
long group1 =
ITEM_ANTI_HUMAN + ITEM_ANTI_DROW + ITEM_ANTI_ELF + ITEM_ANTI_ELDER;
long group2 =
ITEM_ANTI_OGRE + ITEM_ANTI_TROLL + ITEM_ANTI_DEMON +
ITEM_ANTI_MINOTAUR;
long group3 = ITEM_ANTI_DWARF + ITEM_ANTI_HALFLING + ITEM_ANTI_SHADOW;
long group4 = ITEM_ANTI_ILLITHID + ITEM_ANTI_GHOUL;
long group5 = ITEM_ANTI_PIXIE;
long group6 = ITEM_ANTI_LIZARDMAN;
long antirace = 0;
wear = 0;
if (ch->race != RACE_DWARF) {
send_to_char(AT_GREY, "You aren't a dwarf!\n\r", ch);
return;
}
if (argument[0] == '\0') {
send_to_char(AT_WHITE, "Syntax: Forge <obj> <race> <lvl>\n\r",
ch);
send_to_char(AT_WHITE, " obj = ring necklace armor helm\n\r",
ch);
send_to_char(AT_WHITE,
" mask leggings boots gauntlets\n\r", ch);
send_to_char(AT_WHITE, " gauntlets armplates shield\n\r",
ch);
send_to_char(AT_WHITE, " belt bracer anklet weapon\n\r",
ch);
send_to_char(AT_WHITE,
" race= any valid race. HELP FORGE RACES\n\r",
ch);
send_to_char(AT_WHITE, " to see race groupings.\n\r",
ch);
sprintf(buf, " lvl = minimum 30, maximum %d.\n\r", ch->level);
send_to_char(AT_WHITE, buf, ch);
send_to_char(AT_WHITE,
" BASE cost to make item is: 100 gold * lvl\n\r",
ch);
return;
}
if (ch->in_room->vnum != ROOM_VNUM_SMITHY) {
send_to_char(AT_GREY, "You cannot forge equipment here.\n\r",
ch);
return;
}
for (hammer = ch->carrying; hammer; hammer = hammer->next) {
if (hammer->pIndexData->vnum == OBJ_VNUM_SMITHY_HAMMER
&& hammer->wear_loc == WEAR_HOLD)
break;
}
if (!hammer) {
send_to_char(AT_GREY,
"You must hold a smithy hammer to forge something.\n\r",
ch);
return;
}
argument = one_argument(argument, arg);
argument = one_argument(argument, arg2);
if (!str_prefix(arg, "ring"))
wear = ITEM_WEAR_FINGER;
if (!str_prefix(arg, "necklace"))
wear = ITEM_WEAR_NECK;
if (!str_prefix(arg, "armor"))
wear = ITEM_WEAR_BODY;
if (!str_prefix(arg, "helm"))
wear = ITEM_WEAR_HEAD;
if (!str_prefix(arg, "mask"))
wear = ITEM_WEAR_FACE;
if (!str_prefix(arg, "leggings"))
wear = ITEM_WEAR_LEGS;
if (!str_prefix(arg, "boots"))
wear = ITEM_WEAR_FEET;
if (!str_prefix(arg, "gauntlets"))
wear = ITEM_WEAR_HANDS;
if (!str_prefix(arg, "armplates"))
wear = ITEM_WEAR_ARMS;
if (!str_prefix(arg, "shield"))
wear = ITEM_WEAR_SHIELD;
if (!str_prefix(arg, "belt"))
wear = ITEM_WEAR_WAIST;
if (!str_prefix(arg, "bracer"))
wear = ITEM_WEAR_WRIST;
if (!str_prefix(arg, "anklet"))
wear = ITEM_WEAR_ANKLE;
if (!str_prefix(arg, "weapon"))
wear = ITEM_WIELD;
if (!str_prefix(arg2, "elf")
|| !str_prefix(arg2, "drow")
|| !str_prefix(arg2, "elder")
|| !str_prefix(arg2, "human"))
antirace = group2 + group3 + group4 + group5 + group6;
if (!str_prefix(arg2, "ogre")
|| !str_prefix(arg2, "demon")
|| !str_prefix(arg2, "troll")
|| !str_prefix(arg2, "minotaur"))
antirace = group1 + group3 + group4 + group5 + group6;
if (!str_prefix(arg2, "dwarf")
|| !str_prefix(arg2, "halfling")
|| !str_prefix(arg2, "shadow"))
antirace = group1 + group2 + group4 + group5 + group6;
if (!str_prefix(arg2, "illithid")
|| !str_prefix(arg2, "ghoul"))
antirace = group1 + group2 + group3 + group5 + group6;
if (!str_prefix(arg2, "pixie"))
antirace = group1 + group2 + group3 + group4 + group6;
if (!str_prefix(arg2, "lizardman"))
antirace = group1 + group2 + group3 + group4 + group5;
if (is_number(argument))
lvl = atoi(argument);
else
lvl = 0;
if (wear && antirace && (lvl < 30 || lvl > ch->level)) {
sprintf(buf, "Illegal level. Valid levels are 30 to %d.\n\r",
ch->level);
send_to_char(AT_GREY, buf, ch);
return;
}
if (wear && antirace == 0) {
send_to_char(AT_GREY,
"Illegal race. Help RACE for valid race list.\n\r",
ch);
return;
}
if (wear) {
#ifdef NEW_MONEY
if ((ch->money.gold + (ch->money.silver / SILVER_PER_GOLD) +
(ch->money.copper / COPPER_PER_GOLD)) < (lvl * 100)) {
#else
if (ch->gold < lvl * 10000) {
#endif
send_to_char(AT_GREY,
"You do not have enough money to create the base item of this level.\n\r",
ch);
return;
} else if (wear == ITEM_WIELD)
obj =
create_object(get_obj_index(OBJ_VNUM_TO_FORGE_W),
lvl);
else
obj =
create_object(get_obj_index(OBJ_VNUM_TO_FORGE_A),
lvl);
#ifdef NEW_MONEY
obj->cost.silver = obj->cost.copper = 0;
obj->cost.gold = lvl * 100;
#else
obj->cost = lvl * 10000;
#endif
obj->weight = lvl * 0.15;
obj->level = lvl;
obj->anti_race_flags = antirace;
if (obj->level >= 101)
obj->extra_flags += ITEM_NO_DAMAGE;
obj->wear_flags += wear;
forge_obj(ch, obj);
} else
do_forge(ch, "");
return;
}
void do_spit(CHAR_DATA * ch, char *argument)
{
AFFECT_DATA af;
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
int dam;
if (ch->race != RACE_LIZARDMAN) {
send_to_char(AT_GREY, "Huh?\n\r", ch);
return;
}
if (ch->race_wait > 0)
return;
if (!ch->fighting) {
send_to_char(C_DEFAULT, "You aren't fighting anyone.\n\r", ch);
return;
}
one_argument(argument, arg);
victim = ch->fighting;
if (arg[0] != '\0')
if (!(victim = get_char_room(ch, arg))) {
send_to_char(C_DEFAULT, "They aren't here.\n\r", ch);
return;
}
dam = ch->level + number_range(ch->level, ch->level * 4);
damage(ch, victim, dam, gsn_spit);
ch->race_wait = 36;
if (!victim || victim->position == POS_DEAD || !victim->in_room
|| victim->in_room != ch->in_room)
return;
if (number_percent() < 25) {
int location = number_range(0, 1);
switch (location) {
case 0:
if (victim->race != RACE_ILLITHID) {
act(AT_DGREEN, "You spit right in $S eyes!", ch,
NULL, victim, TO_CHAR);
act(AT_DGREEN, "$n spit into $N's eyes!", ch,
NULL, victim, TO_NOTVICT);
act(AT_DGREEN, "$n spit into your eyes!", ch,
NULL, victim, TO_VICT);
if (!IS_AFFECTED(victim, AFF_BLIND)) {
send_to_char(AT_WHITE,
"You are blinded!",
victim);
act(AT_WHITE, "$n is blinded!", victim,
NULL, NULL, TO_ROOM);
af.type = gsn_spit;
af.level = ch->level;
af.duration = 0;
af.location = APPLY_HITROLL;
af.modifier = -10;
af.bitvector = AFF_BLIND;
affect_to_char(victim, &af);
af.location = APPLY_AC;
af.modifier = 50;
affect_to_char(victim, &af);
}
}
break;
case 1:
act(AT_DGREEN, "You spit right in $S mouth!", ch, NULL,
victim, TO_CHAR);
act(AT_DGREEN, "$n spit into $N's mouth! Gross!", ch,
NULL, victim, TO_NOTVICT);
act(AT_DGREEN, "$n spit into your mouth!", ch, NULL,
victim, TO_VICT);
send_to_char(AT_WHITE,
"The acidic spit burns your mouth and throat.\n\r",
victim);
STUN_CHAR(victim, 2, STUN_MAGIC);
break;
}
}
if (!saves_spell(ch->level, victim) && victim->race != RACE_GHOUL) {
af.type = gsn_poison;
af.level = ch->level;
af.duration = 2;
af.location = APPLY_STR;
af.modifier = -3;
af.bitvector = 0;
affect_join(victim, &af);
}
return;
}
void do_headbutt(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
int timer = 24;
int mod;
int dmg;
if (ch->race != RACE_MINOTAUR) {
send_to_char(AT_GREY,
"Wham! Ouch! You sure are no minotaur\n\r", ch);
return;
}
if (ch->race_wait > 0)
return;
if (!ch->fighting) {
send_to_char(C_DEFAULT, "You aren't fighting anyone.\n\r", ch);
return;
}
one_argument(argument, arg);
victim = ch->fighting;
if (arg[0] != '\0')
if (!(victim = get_char_room(ch, arg))) {
send_to_char(C_DEFAULT, "They aren't here.\n\r", ch);
return;
}
switch (prime_class(ch)) {
case CLASS_MAGE:
case CLASS_CLERIC:
timer = 240;
break;
case CLASS_THIEF:
timer = 180;
break;
case CLASS_WARRIOR:
timer = 120;
break;
case CLASS_PSIONICIST:
case CLASS_DRUID:
timer = 240;
break;
case CLASS_RANGER:
case CLASS_PALADIN:
case CLASS_BARD:
case CLASS_VAMPIRE:
timer = 180;
break;
case CLASS_NECROMANCER:
timer = 240;
break;
case CLASS_WEREWOLF:
timer = 180;
break;
}
mod = ch->level / 5;
mod = UMAX(1, mod);
timer = timer / mod;
timer = (timer < 24) ? 24 : timer;
ch->race_wait = timer;
act(AT_YELLOW, "You slam your head into $N's!", ch, NULL, victim,
TO_CHAR);
act(AT_YELLOW, "$n slams his head into yours!", ch, NULL, victim,
TO_VICT);
act(AT_YELLOW, "$n slams his head into $N's!", ch, NULL, victim,
TO_NOTVICT);
dmg = number_range(ch->level, ch->level * 5);
damage(ch, victim, dmg, gsn_headbutt);
STUN_CHAR(ch, 2, STUN_MAGIC);
if (victim->position == POS_DEAD || ch->in_room != victim->in_room)
return;
if (number_percent() < 15 && victim->position != POS_STUNNED) {
act(AT_WHITE, "$N reels from the blow...", ch, NULL, victim,
TO_CHAR);
act(AT_WHITE, "$N reels from the blow...", ch, NULL, victim,
TO_NOTVICT);
act(AT_WHITE, "You real from the blow and feel disoriented.",
ch, NULL, victim, TO_VICT);
STUN_CHAR(victim, 2, STUN_TOTAL);
victim->position = POS_STUNNED;
}
return;
}