/*
* file: spec_procs.c , Special module. Part of DIKUMUD
* Usage: Procedures handling special procedures for object/room/mobile
* Copyright (C) 1990, 1991 - see 'license.doc' for complete information.
*/
/*
* file: spec_assign.c , Special module. Part of DIKUMUD
* Usage: Procedures assigning function pointers.
* Copyright (C) 1990, 1991 - see 'license.doc' for complete information.
*/
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/types.h>
#include <string.h>
#include <ctype.h>
#include "global.h"
#include "bug.h"
#include "utils.h"
#include "comm.h"
#include "interpreter.h"
#include "handler.h"
#include "db.h"
#include "limits.h"
#include "opinion.h"
#include "hash.h"
#include "spells.h"
#include "constants.h"
#include "spell_parser.h"
#include "board.h"
#include "reception.h"
#define _SPEC_PROCS_C
#include "spec_procs.h"
struct special_proc_entry specials_m[] = {
{1, puff, "puff (Astral Traveller)"},
{3, RepairGuy, "RepairGuy (Blacksmith)"},
{666, zombie_master, "zombie_master (Xenthia)"},
/* {667, mosquito, "mosquito (Mosquito)"}, */
{1201, magic_user, "magic_user (Goblin Shaman)"},
{1204, eli_priest, "eli_priest (Eli)"},
{1206, RangerGuildMaster, "RangerGuildMaster (Grassland Ranger)"},
{1208, RangerGuildMaster, "RangerGuildMaster (Forest Ranger)"},
{1601, RangerGuildMaster, "RangerGuildMaster (Mountain Ranger)"},
{3005, receptionist, "receptionist (Butler)"},
{3006, NudgeNudge, "NudgeNudge (Villager)"},
{3008, fido, "fido (Small Dog)"},
{3012, cleric, "cleric (Yentile)"},
{3013, magic_user, "magic_user (Undrea)"},
{3017, cleric, "cleric (Acolyte)"},
{3020, MageGuildMaster, "MageGuildMaster (Jessica)"},
{3021, ClericGuildMaster, "ClericGuildMaster (Pastue)"},
{3022, ThiefGuildMaster, "ThiefGuildMaster (Tate)"},
{3023, FighterGuildMaster, "FighterGuildMaster (Kark)"},
{3024, replicant, "replicant (Glowing Squirrel)"},
{3043, Ned_Nutsmith, "Ned_Nutsmith (Nedrick)"},
{3044, janitor_eats, "janitor_eats (Barney)"},
{3045, NudgeNudge, "NudgeNudge (Village Girl)"},
{3047, shylar_guard, "shylar_guard (Village Guard)"},
{4006, replicant, "replicant (Glowing Cave Worm)"},
{4622, magic_user, "magic_user (Xytheus)"},
{4623, magic_user, "magic_user (Fallath)"},
{4706, wraith, "wraith (Grimdale)"},
{5016, cityguard, "cityguard (Highstaff Gate Guard)"},
{5017, cityguard, "cityguard (Highstaff Guard)"},
{5027, MageGuildMaster, "MageGuildMaster (Incubad)"},
{5030, BreathWeapon, "BreathWeapon (Immature Dragon)"},
{5031, ThiefGuildMaster, "ThiefGuildMaster (Ahkrain)"},
{5032, FighterGuildMaster, "FighterGuildMaster (Ulrick)"},
{5033, ClericGuildMaster, "ClericGuildMaster (Delaron)"},
{5034, receptionist, "receptionist (Maid)"},
{5052, cityguard, "cityguard (Depository Guard)"},
{5068, cityguard, "cityguard (Halfling Militia)"},
{5069, cityguard, "cityguard (Halfling Captain)"},
{5078, cleric, "cleric (High Priest)"},
{5079, magic_user, "magic_user (Arcane Man)"},
{5080, cityguard, "cityguard (Sector Guard)"},
{5090, cityguard, "cityguard (Highstaff Captain)"},
{5091, cityguard, "cityguard (High Sect Guard)"},
{5436, MageGuildMaster, "MageGuildMaster (Small Man)"},
{5437, ClericGuildMaster, "ClericGuildMaster (Noble Man)"},
{5438, FighterGuildMaster, "FighterGuildMaster (Strong Man)"},
{5439, ThiefGuildMaster, "ThiefGuildMaster (Small Man)"},
{5440, RangerGuildMaster, "RangerGuildMaster (Bearded Man)"},
{6107, FighterGuildMaster, "FighterGuildMaster (Large Man)"},
{6108, ThiefGuildMaster, "ThiefGuildMaster (Small Man)"},
{6109, MageGuildMaster, "MageGuildMaster (Thin Man)"},
{6110, ClericGuildMaster, "ClericGuildMaster (Old Priest)"},
{6111, magic_user, "magic_user (Old Witch)"},
{6132, janitor_eats, "janitor_eats (Hermit)"},
{6201, cleric, "cleric (Black-skinned Lizard)"},
{6209, magic_user, "magic_user (Reddish-skinned Lizard)"},
{6408, cleric, "cleric (Priest of Aklan)"},
{6525, FighterGuildMaster, "FighterGuildMaster (Man)"},
{6526, ClericGuildMaster, "ClericGuildMaster (Man)"},
{6527, ThiefGuildMaster, "ThiefGuildMaster (Man)"},
{6528, MageGuildMaster, "MageGuildMaster (Man)"},
{6529, RangerGuildMaster, "RangerGuildMaster (Man)"},
{6910, magic_user, "magic_user (Isha)"},
{7001, Fighter, "Fighter (Drow Warrior)"},
{7002, cleric, "cleric (Drow Priestess)"},
{7003, magic_user, "magic_user (Drow Mage)"},
{7020, snake, "snake (Drider)"},
{9000, shadow, "shadow (Asgard)"},
{9002, ghoul, "ghoul (Ghoul)"},
{9004, wraith, "wraith (Wraith)"},
{9005, wraith, "wraith (Wight)"},
{10003, cleric, "cleric (High Priestess of Lovitar)"},
{10018, receptionist, "receptionist (Alek)"},
{15004, FighterGuildMaster, "FighterGuildMaster (Big Horn)"},
{15013, RepairGuy, "RepairGuy (Dunkal)"},
{15018, ClericGuildMaster, "ClericGuildMaster (Vail)"},
{15019, ClericGuildMaster, "ClericGuildMaster (Elias)"},
{15020, RangerGuildMaster, "RangerGuildMaster (Cael)"},
{15021, ClericGuildMaster, "ClericGuildMaster (Reever)"},
{15029, MageGuildMaster, "MageGuildMaster (Aahz)"},
{15036, ThiefGuildMaster, "ThiefGuildMaster (Finnly)"},
{15052, FighterGuildMaster, "FighterGuildMaster (Swordsmaster)"},
{15053, ClericGuildMaster, "ClericGuildMaster (Priest)"},
{15054, GenericGuildMaster, "GenericGuildMaster (Ilrand)"},
{20016, cleric, "cleric (Priest Giant)"},
{-1, NULL, "NULL (none)"},
};
struct special_proc_entry specials_o[] = {
{3, fountain, "fountain (Highstaff Fountain)"},
{3005, fountain, "fountain (Shylar Barrel)"},
{3098, board, "board (Wizard's Board)"},
{3099, board, "board (Shylar Board)"},
{5099, board, "board (Highstaff Board)"},
{4734, BerserkerAxe, "BerserkerAxe (Druegar Axe)"},
{-1, NULL, "NULL (none)"},
};
struct special_proc_entry specials_r[] = {
{1014, House, "House (Muidnar's Home)"},
{1020, House, "House (Quixadhal's Home)"},
{1021, House, "House (Dirk's Home)"},
{1025, House, "House (Highlander's Home)"},
{1030, House, "House (Sedna's Home)"},
{3035, pet_shops, "pet_shops (Griffith's Abode, Shylar)"},
{5029, bank, "bank (Highstaff Depository)"},
{5182, pet_shops, "pet_shops (Companion's Place, Highstaff)"},
{-1, NULL, "NULL (none)"},
};
/* The next batch of arrays is for the new spellcasting routines.
* The idea is that we have mobs pick a spell at random that is
* appropriate for their situation (damage-dealing/escape/etc)
* and if it knows the spell, it will try to cast it.
* Obviously, this only works with type 'C' mobs.
*
* To facilitate this, we are constructing several spell lists.
* These lists will fit situatons and personalities.
*
* all_spells is the list of every spell in every casting possibility...
* it would be used for totally chaotic spellcasters.
* opening_combat_spells is the list of spells that are appropriate
* to begin combat with. Some of these cannot
* be cast DURING combat, such a sleep and charm.
* damage_spells is the list of spells which target the victim
* in combat and do direct damage. This excludes spells
* such as blindness, energy drain, and others that weaken
* the target without actually doing damange. It also
* excludes area affects.
*/
struct spell_choice {
int number;
int target; /* targeting control....
* 0 - no target
* 1 - self
* 2 - victim
* 3 - random mob/player in same room
* 4 - random mob/player in world
* 5 - same type of mob as self in world
* 6 - specific named target
*/
char *name; /* if target type is 6, else NULL */
};
struct spell_choice all_spells[] = {
{ SPELL_TELEPORT, 1, NULL },
{ SPELL_TELEPORT, 2, NULL },
{ SPELL_TELEPORT, 3, NULL },
{ SPELL_BLESS, 1, NULL},
{ SPELL_BLESS, 3, NULL},
{ SPELL_BLINDNESS, 2, NULL },
{ SPELL_BLINDNESS, 3, NULL },
{ SPELL_BURNING_HANDS, 0, NULL },
{ SPELL_CALL_LIGHTNING, 2, NULL },
{ SPELL_CHARM_PERSON, 3, NULL },
{ SPELL_CHILL_TOUCH, 2, NULL },
{ SPELL_CLONE, 4, NULL },
{ SPELL_CLONE, 5, NULL },
{ SPELL_COLOUR_SPRAY, 0, NULL },
{ SPELL_CONTROL_WEATHER, 6, "better" },
{ SPELL_CONTROL_WEATHER, 6, "worse" },
{ SPELL_CREATE_FOOD, 0, NULL },
{ SPELL_CURSE, 2, NULL },
{ SPELL_EARTHQUAKE, 0, NULL },
{ SPELL_ENERGY_DRAIN, 2, NULL },
{ SPELL_FIREBALL, 0, NULL },
{ SPELL_HARM, 2, NULL },
{ SPELL_LIGHTNING_BOLT, 2, NULL },
{ SPELL_MAGIC_MISSILE, 2, NULL },
{ SPELL_POISON, 2, NULL },
{ SPELL_SHOCKING_GRASP, 2, NULL },
{ SPELL_CAUSE_LIGHT, 2, NULL },
{ SPELL_CAUSE_CRITICAL, 2, NULL },
{ SPELL_FLAMESTRIKE, 2, NULL },
{ SPELL_WEAKNESS, 2, NULL },
{ SPELL_DISPEL_MAGIC, 2, NULL },
{ SPELL_PARALYSIS, 2, NULL },
{ SPELL_FEAR, 2, NULL },
{ SPELL_ACID_BLAST, 2, NULL },
{ SPELL_CONE_OF_COLD, 0, NULL },
{ SPELL_METEOR_SWARM, 0, NULL },
{ SPELL_ICE_STORM, 0, NULL },
{ SPELL_CAUSE_SERIOUS, 2, NULL }
};
struct spell_choice combat_spells[] = {
{ SPELL_TELEPORT, 1, NULL },
{ SPELL_TELEPORT, 2, NULL },
{ SPELL_BLINDNESS, 2, NULL },
{ SPELL_BURNING_HANDS, 0, NULL },
{ SPELL_CALL_LIGHTNING, 2, NULL },
{ SPELL_CHILL_TOUCH, 2, NULL },
{ SPELL_COLOUR_SPRAY, 0, NULL},
{ SPELL_CURSE, 2, NULL },
{ SPELL_EARTHQUAKE, 0, NULL },
{ SPELL_ENERGY_DRAIN, 2, NULL },
{ SPELL_FIREBALL, 0, NULL },
{ SPELL_HARM, 2, NULL },
{ SPELL_LIGHTNING_BOLT, 2, NULL },
{ SPELL_MAGIC_MISSILE, 2, NULL },
{ SPELL_POISON, 2, NULL },
{ SPELL_SHOCKING_GRASP, 2, NULL },
{ SPELL_CAUSE_LIGHT, 2, NULL },
{ SPELL_CAUSE_CRITICAL, 2, NULL },
{ SPELL_FLAMESTRIKE, 2, NULL },
{ SPELL_WEAKNESS, 2, NULL },
{ SPELL_DISPEL_MAGIC, 2, NULL },
{ SPELL_PARALYSIS, 2, NULL },
{ SPELL_FEAR, 2, NULL },
{ SPELL_ACID_BLAST, 2, NULL },
{ SPELL_CONE_OF_COLD, 0, NULL },
{ SPELL_METEOR_SWARM, 0, NULL },
{ SPELL_ICE_STORM, 0, NULL },
{ SPELL_CAUSE_SERIOUS, 2, NULL }
};
int damage_spells[] = {
};
int weaken_spells[] = {
SPELL_BLINDNESS, SPELL_CHILL_TOUCH, SPELL_CURSE,
SPELL_ENERGY_DRAIN, SPELL_POISON, SPELL_SLEEP,
SPELL_WEAKNESS, SPELL_DISPEL_MAGIC, SPELL_PARALYSIS,
SPELL_FEAR
};
int area_effect_spells[] = {
SPELL_BURNING_HANDS, SPELL_COLOUR_SPRAY, SPELL_EARTHQUAKE,
SPELL_FIREBALL, SPELL_CONE_OF_COLD, SPELL_METEOR_SWARM,
SPELL_ICE_STORM
};
int escape_spells[] = {
SPELL_TELEPORT, SPELL_BLINDNESS, SPELL_WORD_OF_RECALL,
SPELL_PARALYSIS, SPELL_FEAR, SPELL_ASTRAL_WALK,
SPELL_CURE_CRITIC, SPELL_CURE_LIGHT, SPELL_HEAL,
SPELL_CURE_SERIOUS
};
static funcp breaths[] =
{
cast_acid_breath, 0, cast_frost_breath, 0, cast_lightning_breath, 0,
cast_fire_breath, 0,
cast_acid_breath, cast_fire_breath, cast_lightning_breath, 0
};
struct breather breath_monsters[] =
{
{5030, 15, breaths + 6},
{-1},
};
/* predicates for find_path function */
int is_target_room_p(int room, void *tgt_room)
{
return room == (int)tgt_room;
}
int named_object_on_ground(int room, void *c_data)
{
char *name = c_data;
return NULL != get_obj_in_list(name, real_roomp(room)->contents);
}
/* predicates for find_path function */
/*
* Special procedures for rooms
*/
char *how_good(int percent)
{
static char buf[256];
if (percent == 0)
strcpy(buf, " (not learned)");
else if (percent <= 6)
strcpy(buf, " (pitiful)");
else if (percent <= 12)
strcpy(buf, " (awful)");
else if (percent <= 18)
strcpy(buf, " (incredibly bad)");
else if (percent <= 24)
strcpy(buf, " (very bad)");
else if (percent <= 30)
strcpy(buf, " (bad)");
else if (percent <= 36)
strcpy(buf, " (very poor)");
else if (percent <= 42)
strcpy(buf, " (poor)");
else if (percent <= 48)
strcpy(buf, " (below average)");
else if (percent <= 54)
strcpy(buf, " (average)");
else if (percent <= 60)
strcpy(buf, " (better than average)");
else if (percent <= 66)
strcpy(buf, " (fair)");
else if (percent <= 72)
strcpy(buf, " (very fair)");
else if (percent <= 78)
strcpy(buf, " (good)");
else if (percent <= 84)
strcpy(buf, " (very good)");
else if (percent <= 90)
strcpy(buf, " (Superb)");
else
strcpy(buf, " (Master)");
return (buf);
}
int GainLevel(struct char_data *master, struct char_data *ch, int class)
{
char buf[MAX_INPUT_LENGTH];
if(GET_LEVEL(ch, class) < GetMaxLevel(master)-20) {
cprintf(ch, "%s snorts, 'I will not teach such a novice!'\n\r",
NAME(master));
} else if (GET_LEVEL(ch, class) < GetMaxLevel(master) - 10) {
if (GET_EXP(ch) >= titles[class][GET_LEVEL(ch, class) + 1].exp) {
cprintf(ch, "You raise a level\n\r");
advance_level(ch, class);
set_title(ch);
sprintf(buf,
"Congratulations %s! You have earned your %d%s level!",
NAME(ch), GET_LEVEL(ch, class),
ordinal(GET_LEVEL(ch, class)));
do_shout(master, buf, 0);
return TRUE;
} else {
cprintf(ch, "You haven't got enough experience yet!\n\r");
}
} else {
cprintf(ch, "I can teach you nothing more %s.\n\r", NAME(ch));
}
return FALSE;
}
struct char_data *FindMobInRoomWithFunction(int room, int (*func) ())
{
struct char_data *temp_char, *targ;
targ = 0;
if (room > NOWHERE) {
for (temp_char = real_roomp(room)->people; (!targ) && (temp_char);
temp_char = temp_char->next_in_room)
if (IS_MOB(temp_char))
if (mob_index[temp_char->nr].func == func)
targ = temp_char;
} else {
return (0);
}
return (targ);
}
int MageGuildMaster(struct char_data *ch, int cmd, char *arg) {
register int number, i, target= MAGE_LEVEL_IND;
char pagebuf[16384];
struct char_data *master;
if ((cmd != CMD_practice) && (cmd != CMD_gain))
return FALSE;
if(!(master = FindMobInRoomWithFunction(ch->in_room, MageGuildMaster)))
return FALSE;
if (HasClass(ch, CLASS_MAGIC_USER)) {
if (cmd == CMD_gain) {
GainLevel(master, ch, target);
return TRUE;
}
for (; isspace(*arg); arg++);
if (!*arg) {
sprintf(pagebuf, "You have got %d practice sessions left.\n\r",
ch->specials.pracs);
sprintf(pagebuf + strlen(pagebuf), "I can teach you these spells:\n\r");
for(i= 0; i< MAX_SKILLS; i++)
if(CanCastClass(ch, i, target) &&
(spell_info[i].min_level[target] <= GetMaxLevel(master)-10) &&
(spell_info[i].min_level[target] >= GetMaxLevel(master)-20)) {
sprintf(pagebuf + strlen(pagebuf), "[%d] %s %s \n\r",
spell_info[i].min_level[target],
spell_info[i].name, how_good(ch->skills[i].learned));
}
page_string(ch->desc, pagebuf, 1);
return TRUE;
}
if((number= GetSpellByName(arg))== -1) {
cprintf(ch, "I have never heard of this spell...\n\r");
return TRUE;
}
if(spell_info[number].min_level[target] < GetMaxLevel(master)-20) {
cprintf(ch, "It would be beneath me to teach you such drivel!\n\r");
return TRUE;
}
if(GetMaxLevel(master) < spell_info[number].min_level[target]) {
cprintf(ch, "I have not yet mastered that spell.\n\r");
return TRUE;
}
if(GET_LEVEL(ch, target) < spell_info[number].min_level[target]) {
cprintf(ch, "You are yet too frail to attempt this spell.\n\r");
return TRUE;
}
if(!CanCastClass(ch, number, target)) {
cprintf(ch, "You do not know of this spell...\n\r");
return TRUE;
}
if (ch->specials.pracs <= 0) {
cprintf(ch, "You do not seem to be able to practice now.\n\r");
return TRUE;
}
if (ch->skills[number].learned >= 95) {
cprintf(ch, "You know %s as well as I!\n\r", spell_info[number].name);
return TRUE;
}
cprintf(ch, "You Practice for a while...\n\r");
ch->specials.pracs--;
if((ch->skills[number].learned +=
(int_app[GET_INT(ch)].learn + fuzz(1))) >= 95) {
ch->skills[number].learned= 95;
cprintf(ch, "You are now a master of this art!\n\r");
}
} else {
cprintf(ch, "Oh.. i bet you think you're a magic user?\n\r");
return FALSE;
}
return TRUE;
}
int ClericGuildMaster(struct char_data *ch, int cmd, char *arg) {
register int number, i, target= CLERIC_LEVEL_IND;
char pagebuf[16384];
struct char_data *master;
if ((cmd != CMD_practice) && (cmd != CMD_gain))
return FALSE;
if(!(master = FindMobInRoomWithFunction(ch->in_room, ClericGuildMaster)))
return FALSE;
if (HasClass(ch, CLASS_CLERIC)) {
if (cmd == CMD_gain) {
GainLevel(master, ch, target);
return TRUE;
}
for (; isspace(*arg); arg++);
if (!*arg) {
sprintf(pagebuf, "You have got %d practice sessions left.\n\r",
ch->specials.pracs);
sprintf(pagebuf + strlen(pagebuf), "I can show you these prayers:\n\r");
for(i= 0; i< MAX_SKILLS; i++)
if(CanCastClass(ch, i, target) &&
(spell_info[i].min_level[target] <= GetMaxLevel(master)-10) &&
(spell_info[i].min_level[target] >= GetMaxLevel(master)-20)) {
sprintf(pagebuf + strlen(pagebuf), "[%d] %s %s \n\r",
spell_info[i].min_level[target],
spell_info[i].name, how_good(ch->skills[i].learned));
}
page_string(ch->desc, pagebuf, 1);
return TRUE;
}
if((number= GetSpellByName(arg))== -1) {
cprintf(ch, "I know not of this miracle...\n\r");
return TRUE;
}
if(spell_info[number].min_level[target] < GetMaxLevel(master)-20) {
cprintf(ch, "It would be beneath me to teach you such drivel!\n\r");
return TRUE;
}
if(GetMaxLevel(master) < spell_info[number].min_level[target]) {
cprintf(ch, "I have not yet been granted that ability.\n\r");
return TRUE;
}
if(GET_LEVEL(ch, target) < spell_info[number].min_level[target]) {
cprintf(ch, "You are not yet worthy to ask for this blessing.\n\r");
return TRUE;
}
if(!CanCastClass(ch, number, target)) {
cprintf(ch, "You do not know of this prayer...\n\r");
return TRUE;
}
if (ch->specials.pracs <= 0) {
cprintf(ch, "You do not seem to be able to practice now.\n\r");
return TRUE;
}
if (ch->skills[number].learned >= 95) {
cprintf(ch, "You know %s as well as I!\n\r", spell_info[number].name);
return TRUE;
}
cprintf(ch, "You Practice for a while...\n\r");
ch->specials.pracs--;
if((ch->skills[number].learned +=
(int_app[GET_INT(ch)].learn + fuzz(1))) >= 95) {
ch->skills[number].learned= 95;
cprintf(ch, "Your faith is strong in this art!\n\r");
}
} else {
cprintf(ch, "You have no faith.\n\r");
return FALSE;
}
return TRUE;
}
int ThiefGuildMaster(struct char_data *ch, int cmd, char *arg) {
register int number, i, target= THIEF_LEVEL_IND;
char pagebuf[16384];
struct char_data *master;
if ((cmd != CMD_practice) && (cmd != CMD_gain))
return FALSE;
if(!(master = FindMobInRoomWithFunction(ch->in_room, ThiefGuildMaster)))
return FALSE;
if (HasClass(ch, CLASS_THIEF)) {
if (cmd == CMD_gain) {
GainLevel(master, ch, target);
return TRUE;
}
for (; isspace(*arg); arg++);
if (!*arg) {
sprintf(pagebuf, "You have got %d practice sessions left.\n\r",
ch->specials.pracs);
sprintf(pagebuf + strlen(pagebuf), "You can practice any of these skills:\n\r", ch);
for(i= 0; i< MAX_SKILLS; i++)
if(CanUseClass(ch, i, target) &&
(spell_info[i].min_level[target] <= GetMaxLevel(master)-10) &&
(spell_info[i].min_level[target] >= GetMaxLevel(master)-20)) {
sprintf(pagebuf + strlen(pagebuf), "[%d] %s %s \n\r",
spell_info[i].min_level[target],
spell_info[i].name, how_good(ch->skills[i].learned));
}
page_string(ch->desc, pagebuf, 1);
return TRUE;
}
for (; isspace(*arg); arg++);
if((number= GetSkillByName(arg))== -1) {
cprintf(ch, "I have no clue what skill that might be...\n\r");
return FALSE;
}
if(spell_info[number].min_level[target] < GetMaxLevel(master)-20) {
cprintf(ch, "It would be beneath me to teach you such drivel!\n\r");
return TRUE;
}
if(GetMaxLevel(master) < spell_info[number].min_level[target]) {
cprintf(ch, "I have not yet mastered that skill.\n\r");
return TRUE;
}
if(GET_LEVEL(ch, target) < spell_info[number].min_level[target]) {
cprintf(ch, "You are yet too frail to attempt that!\n\r");
return TRUE;
}
if(!CanUseClass(ch, number, target)) {
cprintf(ch, "You do not know of this skill...\n\r");
return TRUE;
}
if (ch->specials.pracs <= 0) {
cprintf(ch, "You do not seem to be able to practice now.\n\r");
return TRUE;
}
if (ch->skills[number].learned >= 95) {
cprintf(ch, "You know %s as well as I!\n\r", spell_info[number].name);
return TRUE;
}
cprintf(ch, "You Practice for a while...\n\r");
ch->specials.pracs--;
if((ch->skills[number].learned +=
(int_app[GET_INT(ch)].learn + fuzz(1))) >= 95) {
ch->skills[number].learned= 95;
cprintf(ch, "You are now a master of this art!\n\r");
}
} else {
cprintf(ch, "I could have you killed for unsanctioned thieving.\n\r", ch);
return FALSE;
}
}
int FighterGuildMaster(struct char_data *ch, int cmd, char *arg) {
register int number, i, target= WARRIOR_LEVEL_IND;
char pagebuf[16384];
struct char_data *master;
if ((cmd != CMD_practice) && (cmd != CMD_gain))
return FALSE;
if(!(master = FindMobInRoomWithFunction(ch->in_room, FighterGuildMaster)))
return FALSE;
if (HasClass(ch, CLASS_WARRIOR)) {
if (cmd == CMD_gain) {
GainLevel(master, ch, target);
return TRUE;
}
for (; isspace(*arg); arg++);
if (!*arg) {
sprintf(pagebuf, "You have got %d practice sessions left.\n\r",
ch->specials.pracs);
sprintf(pagebuf + strlen(pagebuf), "You can practice any of these skills:\n\r", ch);
for(i= 0; i< MAX_SKILLS; i++)
if(CanUseClass(ch, i, target) &&
(spell_info[i].min_level[target] <= GetMaxLevel(master)-10) &&
(spell_info[i].min_level[target] >= GetMaxLevel(master)-20)) {
sprintf(pagebuf + strlen(pagebuf), "[%d] %s %s \n\r",
spell_info[i].min_level[target],
spell_info[i].name, how_good(ch->skills[i].learned));
}
page_string(ch->desc, pagebuf, 1);
return TRUE;
}
for (; isspace(*arg); arg++);
if((number= GetSkillByName(arg))== -1) {
cprintf(ch, "I have no clue what skill that might be...\n\r");
return FALSE;
}
if(spell_info[number].min_level[target] < GetMaxLevel(master)-20) {
cprintf(ch, "It would be beneath me to teach you such drivel!\n\r");
return TRUE;
}
if(GetMaxLevel(master) < spell_info[number].min_level[target]) {
cprintf(ch, "I have not yet mastered that skill.\n\r");
return TRUE;
}
if(GET_LEVEL(ch, target) < spell_info[number].min_level[target]) {
cprintf(ch, "You are yet too frail to attempt that!\n\r");
return TRUE;
}
if(!CanUseClass(ch, number, target)) {
cprintf(ch, "You do not know of this skill...\n\r");
return TRUE;
}
if (ch->specials.pracs <= 0) {
cprintf(ch, "You do not seem to be able to practice now.\n\r");
return TRUE;
}
if (ch->skills[number].learned >= 95) {
cprintf(ch, "You know %s as well as I!\n\r", spell_info[number].name);
return TRUE;
}
cprintf(ch, "You Practice for a while...\n\r");
ch->specials.pracs--;
if((ch->skills[number].learned +=
(int_app[GET_INT(ch)].learn + fuzz(1))) >= 95) {
ch->skills[number].learned= 95;
cprintf(ch, "You are now a master of this art!\n\r");
}
} else {
cprintf(ch, "A wimp like you? A Fighter? Hahahahahaha!\n\r", ch);
return FALSE;
}
}
int RangerGuildMaster(struct char_data *ch, int cmd, char *arg) {
register int number, i, target= RANGER_LEVEL_IND;
int skill_num, spell_num;
char pagebuf[16384];
struct char_data *master;
if ((cmd != CMD_practice) && (cmd != CMD_gain))
return FALSE;
if(!(master = FindMobInRoomWithFunction(ch->in_room, RangerGuildMaster)))
return FALSE;
if (HasClass(ch, CLASS_RANGER)) {
if (cmd == CMD_gain) {
GainLevel(master, ch, target);
return TRUE;
}
for (; isspace(*arg); arg++);
if (!*arg) {
sprintf(pagebuf, "You have got %d practice sessions left.\n\r",
ch->specials.pracs);
sprintf(pagebuf + strlen(pagebuf), "You can practice any of these woodsy skills:\n\r", ch);
for(i= 0; i< MAX_SKILLS; i++)
if(CanUseClass(ch, i, target) &&
(spell_info[i].min_level[target] <= GetMaxLevel(master)-10) &&
(spell_info[i].min_level[target] >= GetMaxLevel(master)-20)) {
sprintf(pagebuf + strlen(pagebuf), "[%d] %s %s \n\r",
spell_info[i].min_level[target],
spell_info[i].name, how_good(ch->skills[i].learned));
}
sprintf(pagebuf + strlen(pagebuf), "Or any of these leaf and twig charms:\n\r", ch);
for(i= 0; i< MAX_SKILLS; i++)
if(CanCastClass(ch, i, target) &&
(spell_info[i].min_level[target] <= GetMaxLevel(master)-10) &&
(spell_info[i].min_level[target] >= GetMaxLevel(master)-20)) {
sprintf(pagebuf + strlen(pagebuf), "[%d] %s %s \n\r",
spell_info[i].min_level[target],
spell_info[i].name, how_good(ch->skills[i].learned));
}
page_string(ch->desc, pagebuf, 1);
return TRUE;
}
for (; isspace(*arg); arg++);
skill_num= GetSkillByName(arg);
spell_num= GetSpellByName(arg);
if(skill_num != -1)
number= skill_num;
else if(spell_num != -1)
number=spell_num;
else {
cprintf(ch, "I have no clue what you are dreaming of...\n\r");
return FALSE;
}
if(spell_info[number].min_level[target] < GetMaxLevel(master)-20) {
cprintf(ch, "It would be beneath me to teach you such drivel!\n\r");
return TRUE;
}
if(GetMaxLevel(master) < spell_info[number].min_level[target]) {
cprintf(ch, "I'm not really very good at that.\n\r");
return TRUE;
}
if(GET_LEVEL(ch, target) < spell_info[number].min_level[target]) {
cprintf(ch, "You are yet too frail to attempt that!\n\r");
return TRUE;
}
if(!CanUseClass(ch, number, target) && !CanCastClass(ch, number, target)) {
cprintf(ch, "You know nothing about that...\n\r");
return TRUE;
}
if (ch->specials.pracs <= 0) {
cprintf(ch, "You do not seem to be able to practice now.\n\r");
return TRUE;
}
if (ch->skills[number].learned >= 95) {
cprintf(ch, "You know %s as well as I!\n\r", spell_info[number].name);
return TRUE;
}
cprintf(ch, "You Practice for a while...\n\r");
ch->specials.pracs--;
if((ch->skills[number].learned +=
(int_app[GET_INT(ch)].learn + fuzz(1))) >= 95) {
ch->skills[number].learned= 95;
cprintf(ch, "You are now a master of this art!\n\r");
}
} else {
cprintf(ch, "You have no respect for the forest!\n\r", ch);
return FALSE;
}
}
int GenericGuildMaster(struct char_data *ch, int cmd, char *arg)
{
int number, number2, i, percent;
char buf[MAX_INPUT_LENGTH];
struct char_data *master;
struct skill_struct {
char skill_name[40];
int skill_numb;
int skill_class;
int skill_lvl;
};
struct skill_struct r_skills[] =
{
{"swimming", SKILL_SWIMMING, CLASS_ALL, 1},
{"bandage", SKILL_BANDAGE, CLASS_ALL, 1},
{"track", SKILL_TRACK, CLASS_WARRIOR | CLASS_MAGIC_USER | CLASS_CLERIC, 3},
{"riding", SKILL_RIDE, CLASS_ALL, 1},
{"read magic", SKILL_READ_MAGIC, CLASS_ALL, 3},
{"endurance", SKILL_ENDURANCE, CLASS_ALL, 3},
{"two handed", SKILL_TWO_HANDED, CLASS_ALL, 5},
{"brew", SKILL_BREW, CLASS_MAGIC_USER | CLASS_CLERIC, 65},
{"scribe", SKILL_SCRIBE, CLASS_MAGIC_USER | CLASS_CLERIC, 65},
{"punch", SKILL_PUNCH, CLASS_CLERIC, 2},
{"barehand", SKILL_BARE_HAND, CLASS_ALL, 1},
{"apraise", SKILL_APRAISE, CLASS_ALL, 2},
{"bartering", SKILL_BARTER, CLASS_MAGIC_USER | CLASS_CLERIC | CLASS_THIEF, 65},
{"spellcraft", SKILL_SPELLCRAFT, CLASS_MAGIC_USER | CLASS_CLERIC, 7},
{"meditation", SKILL_MEDITATION, CLASS_MAGIC_USER | CLASS_CLERIC, 7},
{"\n", -1}
};
char *rl_skills[] =
{
"swimming",
"bandage",
"track",
"riding",
"read magic",
"endurance",
"two handed",
"brew",
"scribe",
"punch",
"barehand",
"apraise",
"bartering",
"spellcraft",
"meditation",
"\n"
};
if ((cmd != 164) && (cmd != 243))
return (FALSE);
master = FindMobInRoomWithFunction(ch->in_room, GenericGuildMaster);
if (!master)
return (FALSE);
if (cmd == 243) {
send_to_char("I cannot train you.. You must find another.\n\r", ch);
return (TRUE);
}
if (!*arg) {
sprintf(buf, "You have got %d practice sessions left.\n\r", ch->specials.pracs);
send_to_char(buf, ch);
send_to_char("You can practice any of these skills:\n\r", ch);
for (i = 0; r_skills[i].skill_name[0] != '\n'; i++) {
if (r_skills[i].skill_lvl <= GetMaxLevel(ch) || IS_IMMORTAL(ch)) {
if ((IS_SET(ch->player.class, r_skills[i].skill_class) &&
GetMaxLevel(ch) >= r_skills[i].skill_lvl) || IS_IMMORTAL(ch)) {
send_to_char(r_skills[i].skill_name, ch);
send_to_char(how_good(ch->skills[r_skills[i].skill_numb].learned), ch);
send_to_char("\n\r", ch);
}
}
}
return (TRUE);
} else {
for (; isspace(*arg); arg++);
number = search_block(arg, rl_skills, FALSE);
if ((number == -1)) {
send_to_char("You do not have ability to practice this skill!\n\r", ch);
return (TRUE);
}
if (ch->specials.pracs <= 0) {
send_to_char("You do not seem to be able to practice now.\n\r", ch);
return (TRUE);
}
if (number != -1) {
if (ch->skills[r_skills[number].skill_numb].learned >= 95) {
send_to_char("You are already learned in this area.\n\r", ch);
return (TRUE);
}
}
if (r_skills[number].skill_lvl > GetMaxLevel(ch) && !IS_IMMORTAL(ch)) {
send_to_char("You do not know of this skill...\n\r", ch);
return (TRUE);
}
send_to_char("You Practice for a while...\n\r", ch);
ch->specials.pracs--;
if (number != -1) {
percent = ch->skills[r_skills[number].skill_numb].learned + int_app[GET_INT(ch)].learn;
ch->skills[r_skills[number].skill_numb].learned = MIN(95, percent);
}
if (number != -1) {
if (ch->skills[r_skills[number].skill_numb].learned >= 95) {
send_to_char("You are now a master in this area.\n\r", ch);
return (TRUE);
}
}
}
}
int dump(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *k;
char buf[100];
struct char_data *tmp_char;
int value = 0;
void do_drop(struct char_data *ch, char *argument, int cmd);
char *fname(char *namelist);
for (k = real_roomp(ch->in_room)->contents; k; k = real_roomp(ch->in_room)->contents) {
sprintf(buf, "The %s vanishes in a puff of smoke.\n\r", fname(k->name));
for (tmp_char = real_roomp(ch->in_room)->people; tmp_char; tmp_char = tmp_char->next_in_room)
if (CAN_SEE_OBJ(tmp_char, k))
send_to_char(buf, tmp_char);
extract_obj(k);
}
if (cmd != 60)
return (FALSE);
do_drop(ch, arg, cmd);
value = 0;
for (k = real_roomp(ch->in_room)->contents; k; k = real_roomp(ch->in_room)->contents) {
sprintf(buf, "The %s vanish in a puff of smoke.\n\r", fname(k->name));
for (tmp_char = real_roomp(ch->in_room)->people; tmp_char;
tmp_char = tmp_char->next_in_room)
if (CAN_SEE_OBJ(tmp_char, k))
send_to_char(buf, tmp_char);
value += (MIN(1000, MAX(k->obj_flags.cost / 4, 1)));
/*
* value += MAX(1, MIN(50, k->obj_flags.cost/10));
*/
extract_obj(k);
}
if (value) {
act("You are awarded for outstanding performance.", FALSE, ch, 0, 0, TO_CHAR);
act("$n has been awarded for being a good citizen.", TRUE, ch, 0, 0, TO_ROOM);
if (GetMaxLevel(ch) < 3)
gain_exp(ch, MIN(100, value));
else
GET_GOLD(ch) += value;
}
}
int mayor(struct char_data *ch, int cmd, char *arg)
{
static char open_path[] =
"W3a3003b33000c111d0d111Oe333333Oe22c222112212111a1S.";
static char close_path[] =
"W3a3003b33000c111d0d111CE333333CE22c222112212111a1S.";
static char *path;
static int index;
static BYTE move = FALSE;
void do_move(struct char_data *ch, char *argument, int cmd);
void do_open(struct char_data *ch, char *argument, int cmd);
void do_lock(struct char_data *ch, char *argument, int cmd);
void do_unlock(struct char_data *ch, char *argument, int cmd);
void do_close(struct char_data *ch, char *argument, int cmd);
if (!move) {
if (time_info.hours == 6) {
move = TRUE;
path = open_path;
index = 0;
} else if (time_info.hours == 20) {
move = TRUE;
path = close_path;
index = 0;
}
}
if (cmd || !move || (GET_POS(ch) < POSITION_SLEEPING) ||
(GET_POS(ch) == POSITION_FIGHTING))
return FALSE;
switch (path[index]) {
case '0':
case '1':
case '2':
case '3':
do_move(ch, "", path[index] - '0' + 1);
break;
case 'W':
GET_POS(ch) = POSITION_STANDING;
act("$n awakens and groans loudly.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 'S':
GET_POS(ch) = POSITION_SLEEPING;
act("$n lies down and instantly falls asleep.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 'a':
act("$n says 'Hello Honey!'", FALSE, ch, 0, 0, TO_ROOM);
act("$n smirks.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 'b':
act("$n says 'What a view! I must get something done about that dump!'",
FALSE, ch, 0, 0, TO_ROOM);
break;
case 'c':
act("$n says 'Vandals! Youngsters nowadays have no respect for anything!'",
FALSE, ch, 0, 0, TO_ROOM);
break;
case 'd':
act("$n says 'Good day, citizens!'", FALSE, ch, 0, 0, TO_ROOM);
break;
case 'e':
act("$n says 'I hereby declare the bazaar open!'", FALSE, ch, 0, 0, TO_ROOM);
break;
case 'E':
act("$n says 'I hereby declare Midgaard closed!'", FALSE, ch, 0, 0, TO_ROOM);
break;
case 'O':
do_unlock(ch, "gate", 0);
do_open(ch, "gate", 0);
break;
case 'C':
do_close(ch, "gate", 0);
do_lock(ch, "gate", 0);
break;
case '.':
move = FALSE;
break;
}
index++;
return FALSE;
}
struct char_data *find_mobile_here_with_spec_proc(int (*fcn) (), int rnumber)
{
struct char_data *temp_char;
for (temp_char = real_roomp(rnumber)->people; temp_char;
temp_char = temp_char->next_in_room)
if (IS_MOB(temp_char) &&
mob_index[temp_char->nr].func == fcn)
return temp_char;
return NULL;
}
/*
* General special procedures for mobiles
*/
/* SOCIAL GENERAL PROCEDURES
*
* If first letter of the command is '!' this will mean that the following
* command will be executed immediately.
*
* "G",n : Sets next line to n
* "g",n : Sets next line relative to n, fx. line+=n
* "m<dir>",n : move to <dir>, <dir> is 0,1,2,3,4 or 5
* "w",n : Wake up and set standing (if possible)
* "c<txt>",n : Look for a person named <txt> in the room
* "o<txt>",n : Look for an object named <txt> in the room
* "r<int>",n : Test if the npc in room number <int>?
* "s",n : Go to sleep, return false if can't go sleep
* "e<txt>",n : echo <txt> to the room, can use $o/$p/$N depending on
* contents of the **thing
* "E<txt>",n : Send <txt> to person pointed to by thing
* "B<txt>",n : Send <txt> to room, except to thing
* "?<num>",n : <num> in [1..99]. A random chance of <num>% success rate.
* Will as usual advance one line upon sucess, and change
* relative n lines upon failure.
* "O<txt>",n : Open <txt> if in sight.
* "C<txt>",n : Close <txt> if in sight.
* "L<txt>",n : Lock <txt> if in sight.
* "U<txt>",n : Unlock <txt> if in sight. */
/* Execute a social command. */
void exec_social(struct char_data *npc, char *cmd, int next_line,
int *cur_line, void **thing)
{
BYTE ok;
if (GET_POS(npc) == POSITION_FIGHTING)
return;
ok = TRUE;
switch (*cmd) {
case 'G':
*cur_line = next_line;
return;
case 'g':
*cur_line += next_line;
return;
case 'e':
act(cmd + 1, FALSE, npc, *thing, *thing, TO_ROOM);
break;
case 'E':
act(cmd + 1, FALSE, npc, 0, *thing, TO_VICT);
break;
case 'B':
act(cmd + 1, FALSE, npc, 0, *thing, TO_NOTVICT);
break;
case 'm':
do_move(npc, "", *(cmd + 1) - '0' + 1);
break;
case 'w':
if (GET_POS(npc) != POSITION_SLEEPING)
ok = FALSE;
else
GET_POS(npc) = POSITION_STANDING;
break;
case 's':
if (GET_POS(npc) <= POSITION_SLEEPING)
ok = FALSE;
else
GET_POS(npc) = POSITION_SLEEPING;
break;
case 'c': /* Find char in room */
*thing = get_char_room_vis(npc, cmd + 1);
ok = (*thing != 0);
break;
case 'o': /* Find object in room */
*thing = get_obj_in_list_vis(npc, cmd + 1, real_roomp(npc->in_room)->contents);
ok = (*thing != 0);
break;
case 'r': /* Test if in a certain room */
ok = (npc->in_room == atoi(cmd + 1));
break;
case 'O': /* Open something */
do_open(npc, cmd + 1, 0);
break;
case 'C': /* Close something */
do_close(npc, cmd + 1, 0);
break;
case 'L': /* Lock something */
do_lock(npc, cmd + 1, 0);
break;
case 'U': /* UnLock something */
do_unlock(npc, cmd + 1, 0);
break;
case '?': /* Test a random number */
if (atoi(cmd + 1) <= number(1, 100))
ok = FALSE;
break;
default:
break;
} /* End Switch */
if (ok)
(*cur_line)++;
else
(*cur_line) += next_line;
}
void npc_steal(struct char_data *ch, struct char_data *victim)
{
int gold;
if (IS_NPC(victim))
return;
if (GetMaxLevel(victim) > MAX_MORT)
return;
if (AWAKE(victim) && (number(0, GetMaxLevel(ch)) == 0)) {
act("You discover that $n has $s hands in your wallet.", FALSE, ch, 0, victim, TO_VICT);
act("$n tries to steal gold from $N.", TRUE, ch, 0, victim, TO_NOTVICT);
} else {
/* Steal some gold coins */
gold = (int)((GET_GOLD(victim) * number(1, 10)) / 100);
if (gold > 0) {
GET_GOLD(ch) += gold;
GET_GOLD(victim) -= gold;
}
}
}
int snake(struct char_data *ch, int cmd, char *arg)
{
if (cmd || !AWAKE(ch))
return (FALSE);
if (GET_POS(ch) != POSITION_FIGHTING)
return FALSE;
if (ch->specials.fighting &&
(ch->specials.fighting->in_room == ch->in_room)) {
act("$n poisons $N!", 1, ch, 0, ch->specials.fighting, TO_NOTVICT);
act("$n poisons you!", 1, ch, 0, ch->specials.fighting, TO_VICT);
cast_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
ch->specials.fighting, 0);
return TRUE;
}
return FALSE;
}
int ninja_master(struct char_data *ch, int cmd, char *arg)
{
char buf[256];
static char *n_skills[] =
{
"track", /* No. 180 */
"disarm", /* No. 245 */
"\n",
};
int percent = 0, number = 0;
int charge, sk_num, mult;
if (!AWAKE(ch))
return (FALSE);
for (; *arg == ' '; arg++); /* ditch spaces */
if ((cmd == 164)) {
/* So far, just track */
if (!arg || (strlen(arg) == 0)) {
sprintf(buf, " track: %s\n\r", how_good(ch->skills[SKILL_TRACK].learned));
send_to_char(buf, ch);
sprintf(buf, " disarm: %s\n\r", how_good(ch->skills[SKILL_DISARM].learned));
send_to_char(buf, ch);
return (TRUE);
} else {
number = old_search_block(arg, 0, strlen(arg), n_skills, FALSE);
send_to_char("The ninja master says ", ch);
if (number == -1) {
send_to_char("'I do not know of this skill.'\n\r", ch);
return (TRUE);
}
charge = GetMaxLevel(ch) * 100;
switch (number) {
case 0:
case 1:
sk_num = SKILL_TRACK;
break;
case 2:
sk_num = SKILL_DISARM;
mult = 1;
if (HasClass(ch, CLASS_MAGIC_USER))
mult = 4;
if (HasClass(ch, CLASS_CLERIC))
mult = 3;
if (HasClass(ch, CLASS_THIEF))
mult = 2;
if (HasClass(ch, CLASS_RANGER))
mult = 0;
if (HasClass(ch, CLASS_DRUID))
mult = 1;
if (HasClass(ch, CLASS_WARRIOR))
mult = 1;
charge *= mult;
break;
default:
sprintf(buf, "Strangeness in ninjamaster (%d)", number);
log(buf);
return;
}
}
if (GET_GOLD(ch) < charge) {
send_to_char
("'Ah, but you do not have enough money to pay.'\n\r", ch);
return (FALSE);
}
if (ch->skills[sk_num].learned >= 95) {
send_to_char
("'You are a master of this art, I can teach you no more.'\n\r", ch);
return (FALSE);
}
if (ch->specials.pracs <= 0) {
send_to_char
("'You must first use the knowledge you already have.\n\r", ch);
return (FALSE);
}
GET_GOLD(ch) -= charge;
send_to_char("'We will now begin.'\n\r", ch);
ch->specials.pracs--;
percent = ch->skills[sk_num].learned +
int_app[GET_INT(ch)].learn;
ch->skills[sk_num].learned = MIN(95, percent);
if (ch->skills[sk_num].learned >= 95) {
send_to_char("'You are now a master of this art.'\n\r", ch);
return (TRUE);
}
} else {
return (FALSE);
}
}
int PaladinGuildGuard(struct char_data *ch, int cmd, char *arg)
{
if (cmd || !AWAKE(ch))
return (FALSE);
if (!cmd) {
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
} else {
StandUp(ch);
}
}
} else if (cmd >= 1 && cmd <= 6) {
if (cmd == 4)
return (FALSE); /* can always go west */
if (!HasObject(ch, PGShield)) {
send_to_char
("The guard shakes his head, and blocks your way.\n\r", ch);
act("The guard shakes his head, and blocks $n's way.",
TRUE, ch, 0, 0, TO_ROOM);
return (TRUE);
}
}
return (FALSE);
}
int AbyssGateKeeper(struct char_data *ch, int cmd, char *arg)
{
if (cmd || !AWAKE(ch))
return (FALSE);
if (!cmd) {
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
} else {
StandUp(ch);
}
}
} else if ((cmd >= 1 && cmd <= 6) && (!IS_IMMORTAL(ch))) {
if ((cmd == 6) || (cmd == 1)) {
send_to_char
("The gatekeeper shakes his head, and blocks your way.\n\r", ch);
act("The guard shakes his head, and blocks $n's way.",
TRUE, ch, 0, 0, TO_ROOM);
return (TRUE);
}
}
return (FALSE);
}
int blink(struct char_data *ch, int cmd, char *arg)
{
if (cmd || !AWAKE(ch))
return (FALSE);
if (GET_HIT(ch) < (int)GET_MAX_HIT(ch) / 3) {
act("$n blinks.", TRUE, ch, 0, 0, TO_ROOM);
cast_teleport(12, ch, "", SPELL_TYPE_SPELL, ch, 0);
return (TRUE);
} else {
return (FALSE);
}
}
int Ned_Nutsmith(struct char_data *ch, int cmd, char *arg)
{
char obj_name[80], vict_name[80], buf[MAX_INPUT_LENGTH];
int cost, ave;
struct char_data *vict;
struct obj_data *obj;
struct obj_data *new_obj;
int (*neddy) (); /* special procedure for this mob/obj */
int Obj;
if (!AWAKE(ch))
return (FALSE);
neddy = Ned_Nutsmith;
cost = 2500;
if (cmd == 72) { /* give */
arg = one_argument(arg, obj_name);
if (!*obj_name) {
send_to_char("Give what?\n\r", ch);
return (FALSE);
}
if (!(obj = get_obj_in_list_vis(ch, obj_name, ch->carrying))) {
send_to_char("Give what?\n\r", ch);
return (FALSE);
}
arg = one_argument(arg, vict_name);
if (!*vict_name) {
send_to_char("To who?\n\r", ch);
return (FALSE);
}
if (!(vict = get_char_room_vis(ch, vict_name))) {
send_to_char("To who?\n\r", ch);
return (FALSE);
}
/* the target is the repairman, or an NPC */
if (IS_PC(vict))
return (FALSE);
if (mob_index[vict->nr].func == neddy) {
act("You give $p to $N.", TRUE, ch, obj, vict, TO_CHAR);
act("$n gives $p to $N.", TRUE, ch, obj, vict, TO_ROOM);
} else {
return (FALSE);
}
act("$N looks at $p.", TRUE, ch, obj, vict, TO_CHAR);
act("$N looks at $p.", TRUE, ch, obj, vict, TO_ROOM);
if (ITEM_TYPE(obj) == ITEM_FOOD) {
act("$N says 'Hmm, let me see here.'", TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'Hmm, let me see here.'", TRUE, ch, 0, vict, TO_CHAR);
if(GET_GOLD(ch) < cost/10) {
act("$N says 'Ahem! I don't work for free!", TRUE, ch, obj, vict, TO_ROOM);
act("$N says 'Ahem! I don't work for free!", TRUE, ch, obj, vict, TO_CHAR);
act("$N says 'It will cost YOU 250 gold for me to even look!",
TRUE, ch, obj, vict, TO_ROOM);
act("$N says 'It will cost YOU 250 gold for me to even look!",
TRUE, ch, obj, vict, TO_CHAR);
return;
}
GET_GOLD(ch) -= cost/10;
sprintf(buf, "You give $N %d coins.", cost/10);
act(buf, TRUE, ch, 0, vict, TO_CHAR);
act("$n gives some money to $N.", TRUE, ch, obj, vict, TO_ROOM);
Obj = ObjVnum(obj);
if (Obj != NUT_NUMBER) {
act("$N says 'Sorry, can't help you!", TRUE, ch, obj, vict, TO_ROOM);
act("$N says 'Sorry, can't help you!", TRUE, ch, obj, vict, TO_CHAR);
act("$N gives the $p back.", TRUE, ch, obj, vict, TO_ROOM);
act("$N gives the $p back.", TRUE, ch, obj, vict, TO_CHAR);
act("$N says 'Thanks for the donation though!'", TRUE, ch, obj, vict, TO_ROOM);
act("$N says 'Thanks for the donation though!'", TRUE, ch, obj, vict, TO_CHAR);
return (TRUE);
}
if (GET_GOLD(ch) < cost) {
act("$N says 'HEY, you trying to stiff me!", TRUE, ch, obj, vict, TO_ROOM);
act("$N says 'HEY, you trying to stiff me!", TRUE, ch, obj, vict, TO_CHAR);
act("$N says 'It will cost YOU 2500 gold to have me do that!",
TRUE, ch, obj, vict, TO_ROOM);
act("$N says 'It will cost YOU 2500 gold to have me do that!",
TRUE, ch, obj, vict, TO_CHAR);
return;
}
GET_GOLD(ch) -= cost;
sprintf(buf, "You give $N %d coins.", cost);
act(buf, TRUE, ch, 0, vict, TO_CHAR);
act("$n gives some more money to $N.", TRUE, ch, obj, vict, TO_ROOM);
extract_obj(obj);
act("$N fiddles with $p.", TRUE, ch, obj, vict, TO_ROOM);
act("$N fiddles with $p.", TRUE, ch, obj, vict, TO_CHAR);
act("$N says 'Well, well, well, a mighty nice nut you have here.'",
TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'Well, well, well, a mighty nice nut you have here.'",
TRUE, ch, 0, vict, TO_CHAR);
act(" KRACK ", TRUE, ch, obj, vict, TO_CHAR);
act(" KRACK ", TRUE, ch, obj, vict, TO_ROOM);
/* load new nut here */
new_obj = read_object(NUT_CRACKED_NUMBER, VIRTUAL);
obj_to_char(new_obj, ch);
act("$N gives you $p.", TRUE, ch, new_obj, vict, TO_CHAR);
act("$N gives $p to $n.", TRUE, ch, new_obj, vict, TO_ROOM);
return (TRUE);
}
} else {
if (cmd)
return FALSE;
return (citizen(ch, cmd, arg));
}
}
int RepairGuy(struct char_data *ch, int cmd, char *arg)
{
char obj_name[80], vict_name[80], buf[MAX_INPUT_LENGTH];
int cost, ave;
struct char_data *vict;
struct obj_data *obj;
int (*rep_guy) (); /* special procedure for this mob/obj */
if (!AWAKE(ch))
return (FALSE);
rep_guy = RepairGuy;
if (cmd == 72) { /* give */
/* determine the correct obj */
arg = one_argument(arg, obj_name);
if (!*obj_name) {
send_to_char("Give what?\n\r", ch);
return (FALSE);
}
if (!(obj = get_obj_in_list_vis(ch, obj_name, ch->carrying))) {
send_to_char("Give what?\n\r", ch);
return (FALSE);
}
arg = one_argument(arg, vict_name);
if (!*vict_name) {
send_to_char("To who?\n\r", ch);
return (FALSE);
}
if (!(vict = get_char_room_vis(ch, vict_name))) {
send_to_char("To who?\n\r", ch);
return (FALSE);
}
/* the target is the repairman, or an NPC */
if (!IS_NPC(vict))
return (FALSE);
if (mob_index[vict->nr].func == rep_guy) {
/* we have the repair guy, and we can give him the stuff */
act("You give $p to $N.", TRUE, ch, obj, vict, TO_CHAR);
act("$n gives $p to $N.", TRUE, ch, obj, vict, TO_ROOM);
} else {
return (FALSE);
}
act("$N looks at $p.", TRUE, ch, obj, vict, TO_CHAR);
act("$N looks at $p.", TRUE, ch, obj, vict, TO_ROOM);
/* make all the correct tests to make sure that everything is kosher */
if (ITEM_TYPE(obj) == ITEM_ARMOR) {
if ((obj->obj_flags.value[1] == 0) &&
(obj->obj_flags.value[0] != 0)) {
obj->obj_flags.value[1] = obj->obj_flags.value[0];
act("$N says 'Well, I can't fix it, but I can make it last a little longer.'",
TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'Well, I can't fix it, but I can make it last a little longer.'",
TRUE, ch, 0, vict, TO_CHAR);
act("$N says 'That armor is old, you might want to get some new stuff I can fix later on.'",
TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'That armor is old, you might want to get some new stuff I can fix later on.'",
TRUE, ch, 0, vict, TO_CHAR);
}
if (obj->obj_flags.value[1] > obj->obj_flags.value[0]) {
/* get the value of the object */
cost = obj->obj_flags.cost;
/* divide by value[1] */
cost /= obj->obj_flags.value[1];
/* then cost = difference between value[0] and [1] */
cost *= (obj->obj_flags.value[1] - obj->obj_flags.value[0]);
if (GetMaxLevel(vict) > 25) /* super repair guy */
cost *= 2;
if (cost > GET_GOLD(ch)) {
act("$N says 'I'm sorry, you don't have enough money.'",
TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'I'm sorry, you don't have enough money.'",
TRUE, ch, 0, vict, TO_CHAR);
} else {
GET_GOLD(ch) -= cost;
sprintf(buf, "You give $N %d coins.", cost);
act(buf, TRUE, ch, 0, vict, TO_CHAR);
act("$n gives some money to $N.", TRUE, ch, obj, vict, TO_ROOM);
/* fix the armor */
act("$N fiddles with $p.", TRUE, ch, obj, vict, TO_ROOM);
act("$N fiddles with $p.", TRUE, ch, obj, vict, TO_CHAR);
if (GetMaxLevel(vict) > 25) {
obj->obj_flags.value[0] = obj->obj_flags.value[1];
} else {
ave = MAX(obj->obj_flags.value[0],
(obj->obj_flags.value[0] +
obj->obj_flags.value[1]) / 2);
obj->obj_flags.value[0] = ave;
obj->obj_flags.value[1] = ave;
}
act("$N says 'All fixed.'", TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'All fixed.'", TRUE, ch, 0, vict, TO_CHAR);
}
} else {
act("$N says 'Your armor looks fine to me.'", TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'Your armor looks fine to me.'", TRUE, ch, 0, vict, TO_CHAR);
}
} else {
act("$N says 'That isn't armor.'", TRUE, ch, 0, vict, TO_ROOM);
act("$N says 'That isn't armor.'", TRUE, ch, 0, vict, TO_CHAR);
}
act("$N gives you $p.", TRUE, ch, obj, vict, TO_CHAR);
act("$N gives $p to $n.", TRUE, ch, obj, vict, TO_ROOM);
return (TRUE);
} else {
if (cmd)
return FALSE;
return (citizen(ch, cmd, arg));
}
}
int citizen(struct char_data *ch, int cmd, char *arg)
{
int lev;
if (cmd || !AWAKE(ch))
return (FALSE);
lev = 3;
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
} else {
StandUp(ch);
}
if (!number(0, 18)) {
do_shout(ch, "Guards! Help me! Please!", 0);
} else {
act("$n shouts 'Guards! Help me! Please!'", TRUE, ch, 0, 0, TO_ROOM);
}
if (ch->specials.fighting)
CallForGuard(ch, ch->specials.fighting, 3);
return (TRUE);
} else {
return (FALSE);
}
}
int shylar_guard(struct char_data *ch, int cmd, char *arg)
{
static struct obj_data *i, *temp, *next_obj;
static struct char_data *tch, *evil;
static int max_evil, lev;
static int dir;
static int home_room = 3001;
static int path_len = 22;
static int the_path[] = {
3001, /* start in the bar */
-1,
-2,
3000, /* taunt eli */
-3,
3003, /* knock on tate's door */
-4,
3011, /* knock on tate */
-5,
3049, /* greet ned */
-6,
3041, /* lick farmer's wife */
-7,
3017, /* french jessica */
-8,
3421, /* check the mansion */
3033, /* steal from pastue's pot */
-9,
3147, /* go past iron gate */
3001, /* go back home to the bar */
-10,
-11
};
static int index;
static BYTE move = FALSE;
static BYTE haslight = FALSE;
static int saying_count = 14;
char *sayings[] = {
"$n says 'Hey baby, wanna see my knightstick?'",
"$n shouts 'You there! Stop loitering!'",
"$n says 'What's all this then?'",
"$n says 'Move along scum! Bloody peasants!'",
"$n asks 'You don't have a doughnut do you?'",
"$n yells 'Hey! Hey! We'll have none of that in THIS town!'",
"$n snickers 'There's plenty of room in the jail for you.'",
"$n drools 'Mmmmm.. Doughnut...'",
"$n drools 'A nice frosty mug of Duff's Beer! Mmmmm... Duff's...'",
"$n exclaims 'D'oh!'",
"$n chants 'Must KILL for Dread Quixadhal...'",
"$n screams 'Slow that wagon down!'",
"$n yawns and looks really bored.",
"$n squishes a bug with his heel and grins.",
NULL
};
static int spook_count = 7;
char *spooky[] = {
"$n shudders and says 'Damn I hate those creepy things!'",
"$n shivers and says 'Those dead things give me the creeps!'",
"$n backs away and says 'Keep your dead away from me!'",
"$n glares and says 'Will you LIE DOWN and be DEAD? Geez!'",
"$n whimpers and cries 'Get away! I'm allergic to walking dead!'",
"$n cries out 'Ahhh! Save me Eli! Dead Uncle Joe is coming for me!'",
"$n exclaims 'Go back! Back to the land of Mordor! errrr... or something.'",
NULL
};
if(cmd || (GET_POS(ch) < POSITION_SLEEPING))
return FALSE;
if(AWAKE(ch)) {
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
} else {
StandUp(ch);
}
if (number(0, 20) > 15) {
do_shout(ch, "Help me Eli! I don't get paid enough for THIS!!!", 0);
} else {
act("$n shouts 'Help me Eli! I don't get paid enough for THIS!!!'", TRUE, ch, 0, 0, TO_ROOM);
}
if (ch->specials.fighting)
CallForGuard(ch, ch->specials.fighting, 4);
return (TRUE);
} else {
if(!haslight) {
if(IS_DARKOUT(ch->in_room))
do_grab(ch, "torch", 0);
} else {
if(IS_LIGHTOUT(ch->in_room))
do_remove(ch, "torch", 0);
}
max_evil = 1000;
evil = 0;
for(tch= real_roomp(ch->in_room)->people; tch; tch= tch->next_in_room) {
if ((IS_NPC(tch)) && (IsUndead(tch)) && CAN_SEE(ch, tch)) {
act(spooky[number(0, spook_count-1)], FALSE, ch, 0, 0, TO_ROOM);
break;
}
if(tch->specials.fighting) {
if ((GET_ALIGNMENT(tch) < max_evil) &&
(IS_NPC(tch) || IS_NPC(tch->specials.fighting))) {
max_evil = GET_ALIGNMENT(tch);
evil = tch;
}
}
}
if (!check_peaceful(ch, "") && evil &&
((GetMaxLevel(evil) >= 4) || IS_NPC(evil)) &&
(GET_ALIGNMENT(evil->specials.fighting) >= 0)) {
act("$n screams 'Get out of my town you bastard!!!'",
FALSE, ch, 0, 0, TO_ROOM);
hit(ch, evil, TYPE_UNDEFINED);
return (TRUE);
}
for (i = real_roomp(ch->in_room)->contents; i; i = i->next_content) {
if (IS_SET(i->obj_flags.wear_flags, ITEM_TAKE)) {
act("$n picks up something and puts it in his pocket.", FALSE, ch, 0, 0, TO_ROOM);
obj_from_room(i);
obj_to_char(i, ch);
return (TRUE);
}
}
}
}
if (!move) {
switch(time_info.hours) {
case 6:
case 12:
case 18:
case 21:
move = TRUE;
index = 0;
break;
}
}
if(!move) return FALSE;
if(!index) {
if(ch->in_room != home_room) {
if(GET_POS(ch) < POSITION_STANDING)
GET_POS(ch) = POSITION_STANDING;
if (0 <= (dir = find_path(ch->in_room,
is_target_room_p, home_room, -200))) {
go_direction(ch, dir);
return TRUE;
} else {
act("$n whimpers 'Help me! I'm lost!.'", FALSE, ch, 0, 0, TO_ROOM);
mobile_wander(ch);
return FALSE;
}
} else {
GET_POS(ch) = POSITION_STANDING;
act("$n awakens and looks around blearily.", FALSE, ch, 0, 0, TO_ROOM);
index++;
return TRUE;
}
} else {
if(the_path[index] < 0) { /* do special-emote */
switch(-the_path[index]) {
case 1:
act("$n mumbles to Buck 'Strong coffee and a shot of anything.'", FALSE, ch, 0, 0, TO_ROOM);
act("$n groans and blinks at the room.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 2:
act("$n drinks his \"coffee\" and perks up.", FALSE, ch, 0, 0, TO_ROOM);
act("$n says 'Thanks Buck! Put it on my tab.'", FALSE, ch, 0, 0, TO_ROOM);
break;
case 3:
act("$n says 'Eli, Why don't you get a REAL job?'", FALSE, ch, 0, 0, TO_ROOM);
act("$n shakes his head.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 4:
act("$n bellows 'Open up in there Tate! I know you're up to something!'", FALSE, ch, 0, 0, TO_ROOM);
act("$n bangs on Tate's door until it nearly breaks down.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 5:
act("$n grabs Tate by the collar and shakes him.", FALSE, ch, 0, 0, TO_ROOM);
act("$n says 'Tate! One day I'll catch you and your thieves...'", FALSE, ch, 0, 0, TO_ROOM);
act("WHAM! $n slams Tate up against the wall.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 6:
act("$n snickers 'Hey there Ned! You still playing with your nuts?'", FALSE, ch, 0, 0, TO_ROOM);
break;
case 7:
act("$n says 'I'm glad your husband is out in the fields Maam.'", FALSE, ch, 0, 0, TO_ROOM);
act("$n licks the Farmer's Wife.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 8:
act("$n murmers 'Let me show you some REAL magic Jessica.'", FALSE, ch, 0, 0, TO_ROOM);
act("$n frenches Jessica and makes a charmed longstaff.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 9:
act("$n mumbles a prayer to Dread Quixadhal.", FALSE, ch, 0, 0, TO_ROOM);
act("$n slips a few coins from the Donation Pot.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 10:
act("$n exclaims 'Another hard day's work done!'", FALSE, ch, 0, 0, TO_ROOM);
act("$n orders several firebreathers and begins to down them.", FALSE, ch, 0, 0, TO_ROOM);
break;
case 11:
act("$n yawns mightily and passes out at the bar.", FALSE, ch, 0, 0, TO_ROOM);
GET_POS(ch) = POSITION_SLEEPING;
move= FALSE;
index= 0;
return TRUE;
}
index++;
return TRUE;
} else { /* go to room number */
if(number(0,99) > 55) {
if(ch->in_room != the_path[index]) {
if (0 <= (dir = find_path(ch->in_room,
is_target_room_p, the_path[index], -200))) {
go_direction(ch, dir);
return TRUE;
} else {
act("$n whimpers 'Help me! I'm lost!.'", FALSE, ch, 0, 0, TO_ROOM);
mobile_wander(ch);
return FALSE;
}
} else {
index++;
}
} else if(number(0,99) > 50) { /* random emote */
act(sayings[number(0,saying_count-1)], FALSE, ch, 0, 0, TO_ROOM);
}
}
}
return FALSE;
}
int ghoul(struct char_data *ch, int cmd, char *arg)
{
struct char_data *tar;
void cast_paralyze(BYTE level, struct char_data *ch, char *arg, int type,
struct char_data *tar_ch, struct obj_data *tar_obj);
if (cmd || !AWAKE(ch))
return (FALSE);
tar = ch->specials.fighting;
if (tar && (tar->in_room == ch->in_room)) {
if ((!IS_AFFECTED(tar, AFF_PROTECT_EVIL)) && (!IS_AFFECTED(tar, AFF_SANCTUARY))) {
act("$n touches $N!", 1, ch, 0, tar, TO_NOTVICT);
act("$n touches you!", 1, ch, 0, tar, TO_VICT);
if (!IS_AFFECTED(tar, AFF_PARALYSIS)) {
cast_paralyze(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, tar, 0);
return TRUE;
}
}
}
return FALSE;
}
int WizardGuard(struct char_data *ch, int cmd, char *arg)
{
struct char_data *tch, *evil;
int max_evil;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
} else {
StandUp(ch);
}
CallForGuard(ch, ch->specials.fighting, 9);
}
max_evil = 1000;
evil = 0;
for (tch = real_roomp(ch->in_room)->people; tch; tch = tch->next_in_room) {
if (tch->specials.fighting) {
if ((GET_ALIGNMENT(tch) < max_evil) &&
(IS_NPC(tch) || IS_NPC(tch->specials.fighting))) {
max_evil = GET_ALIGNMENT(tch);
evil = tch;
}
}
}
if (evil && (GET_ALIGNMENT(evil->specials.fighting) >= 0) &&
!check_peaceful(ch, "")) {
act("$n screams 'DEATH!!!!!!!!'",
FALSE, ch, 0, 0, TO_ROOM);
hit(ch, evil, TYPE_UNDEFINED);
return (TRUE);
}
return (FALSE);
}
int vampire(struct char_data *ch, int cmd, char *arg)
{
void cast_energy_drain(BYTE level, struct char_data *ch, char *arg, int type,
struct char_data *tar_ch, struct obj_data *tar_obj);
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting && (ch->specials.fighting->in_room == ch->in_room)) {
act("$n touches $N!", 1, ch, 0, ch->specials.fighting, TO_NOTVICT);
act("$n touches you!", 1, ch, 0, ch->specials.fighting, TO_VICT);
cast_energy_drain(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
if (ch->specials.fighting && (ch->specials.fighting->in_room == ch->in_room)) {
cast_energy_drain(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
}
return TRUE;
}
return FALSE;
}
int wraith(struct char_data *ch, int cmd, char *arg)
{
void cast_energy_drain(BYTE level, struct char_data *ch, char *arg, int type,
struct char_data *tar_ch, struct obj_data *tar_obj);
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting && (ch->specials.fighting->in_room == ch->in_room)) {
act("$n touches $N!", 1, ch, 0, ch->specials.fighting, TO_NOTVICT);
act("$n touches you!", 1, ch, 0, ch->specials.fighting, TO_VICT);
cast_energy_drain(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
return TRUE;
}
return FALSE;
}
int shadow(struct char_data *ch, int cmd, char *arg)
{
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting && (ch->specials.fighting->in_room == ch->in_room)) {
act("$n touches $N!", 1, ch, 0, ch->specials.fighting, TO_NOTVICT);
act("$n touches you!", 1, ch, 0, ch->specials.fighting, TO_VICT);
cast_chill_touch(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
if (ch->specials.fighting) {
cast_weakness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
if (number(1, 5) == 3)
cast_energy_drain(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
}
return TRUE;
}
return FALSE;
}
int geyser(struct char_data *ch, int cmd, char *arg)
{
if (cmd || !AWAKE(ch))
return (FALSE);
if (number(0, 3) == 0) {
act("You erupt.", 1, ch, 0, 0, TO_CHAR);
cast_geyser(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, 0, 0);
return (TRUE);
}
}
int green_slime(struct char_data *ch, int cmd, char *arg)
{
struct char_data *cons;
void cast_green_slime(BYTE level, struct char_data *ch, char *arg, int type,
struct char_data *tar_ch, struct obj_data *tar_obj);
if (cmd || !AWAKE(ch))
return (FALSE);
for (cons = real_roomp(ch->in_room)->people; cons; cons = cons->next_in_room)
if ((!IS_NPC(cons)) && (GetMaxLevel(cons) < LOW_IMMORTAL))
cast_green_slime(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, cons, 0);
}
struct breath_victim *choose_victims(struct char_data *ch,
struct char_data *first_victim)
{
/* this is goofy, dopey extraordinaire */
struct char_data *cons;
struct breath_victim *head = NULL, *temp = NULL;
for (cons = real_roomp(ch->in_room)->people; cons; cons = cons->next_in_room) {
temp = (void *)malloc(sizeof(*temp));
temp->ch = cons;
temp->next = head;
head = temp;
if (first_victim == cons) {
temp->yesno = 1;
} else if (ch == cons) {
temp->yesno = 0;
} else if ((in_group(first_victim, cons) ||
cons == first_victim->master ||
cons->master == first_victim) &&
(temp->yesno = (3 != dice(1, 5)))) {
/* group members will get hit 4/5 times */
} else if (cons->specials.fighting == ch) {
/* people fighting the dragon get hit 4/5 times */
temp->yesno = (3 != dice(1, 5));
} else /* bystanders get his 2/5 times */
temp->yesno = (dice(1, 5) < 3);
}
return head;
}
void free_victims(struct breath_victim *head)
{
struct breath_victim *temp;
while (head) {
temp = head->next;
free(head);
head = temp;
}
}
int breath_weapon(struct char_data *ch, struct char_data *target,
int mana_cost, void (*func) ())
{
struct breath_victim *hitlist, *scan;
int victim;
hitlist = choose_victims(ch, target);
act("$n rears back and inhales", 1, ch, 0, ch->specials.fighting, TO_ROOM);
victim = 0;
for (scan = hitlist; scan; scan = scan->next) {
if (!scan->yesno ||
IS_IMMORTAL(scan->ch) ||
scan->ch->in_room != ch->in_room /* this should not happen */
)
continue;
victim = 1;
cast_fear(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, scan->ch, 0);
}
if (func != NULL && victim) {
act("$n Breathes...", 1, ch, 0, ch->specials.fighting, TO_ROOM);
for (scan = hitlist; scan; scan = scan->next) {
if (!scan->yesno ||
IS_IMMORTAL(scan->ch) ||
scan->ch->in_room != ch->in_room /* this could happen if
* someone fled, I guess */
)
continue;
func(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, scan->ch, 0);
}
GET_MANA(ch) -= mana_cost;
} else {
act("$n Breathes...coughs and sputters...",
1, ch, 0, ch->specials.fighting, TO_ROOM);
do_flee(ch, "", 0);
}
free_victims(hitlist);
}
int use_breath_weapon(struct char_data *ch, struct char_data *target,
int cost, void (*func) ())
{
if (GET_MANA(ch) >= 0) {
breath_weapon(ch, target, cost, func);
} else if ((GET_HIT(ch) < GET_MAX_HIT(ch) / 2) &&
(GET_MANA(ch) >= -cost)) {
breath_weapon(ch, target, cost, func);
} else if ((GET_HIT(ch) < GET_MAX_HIT(ch) / 4) &&
(GET_MANA(ch) >= -2 * cost)) {
breath_weapon(ch, target, cost, func);
} else if (GET_MANA(ch) <= -3 * cost) {
breath_weapon(ch, target, 0, NULL); /* sputter */
}
}
int BreathWeapon(struct char_data *ch, int cmd, char *arg)
{
char buf[MAX_STRING_LENGTH];
struct breather *scan;
int count;
if (cmd)
return FALSE;
if (ch->specials.fighting &&
(ch->specials.fighting->in_room == ch->in_room)) {
for (scan = breath_monsters;
scan->vnum >= 0 && scan->vnum != mob_index[ch->nr].virtual;
scan++);
if (scan->vnum < 0) {
sprintf(buf, "monster %s tries to breath, but isn't listed.",
ch->player.short_descr);
log(buf);
return FALSE;
}
for (count = 0; scan->breaths[count]; count++);
if (count < 1) {
sprintf(buf, "monster %s has no breath weapons",
ch->player.short_descr);
log(buf);
return FALSE;
}
use_breath_weapon(ch, ch->specials.fighting, scan->cost,
scan->breaths[dice(1, count) - 1]);
}
return TRUE;
}
int DracoLich(struct char_data *ch, int cmd, char *arg)
{
return FALSE;
}
int Drow(struct char_data *ch, int cmd, char *arg)
{
return FALSE;
}
int Leader(struct char_data *ch, int cmd, char *arg)
{
return FALSE;
}
int thief(struct char_data *ch, int cmd, char *arg)
{
struct char_data *cons;
if (cmd || !AWAKE(ch))
return (FALSE);
if (GET_POS(ch) != POSITION_STANDING)
return FALSE;
for (cons = real_roomp(ch->in_room)->people; cons; cons = cons->next_in_room)
if ((!IS_NPC(cons)) && (GetMaxLevel(cons) < LOW_IMMORTAL) && (number(1, 5) == 1))
npc_steal(ch, cons);
return TRUE;
}
int magic_user(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
BYTE lspell;
if (cmd || !AWAKE(ch))
return (FALSE);
if (!ch->specials.fighting)
return FALSE;
if ((GET_POS(ch) > POSITION_STUNNED) &&
(GET_POS(ch) < POSITION_FIGHTING)) {
StandUp(ch);
return (TRUE);
}
/* Find a dude to to evil things upon ! */
vict = FindVictim(ch);
if (!vict)
vict = ch->specials.fighting;
if (!vict)
return (FALSE);
lspell = number(0, GetMaxLevel(ch)); /* gen number from 0 to level */
if (lspell < 1)
lspell = 1;
if (IS_AFFECTED(ch, AFF_BLIND) && (lspell > 10)) {
say_spell(ch, SPELL_CURE_BLIND);
cast_cure_blind(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return TRUE;
}
if (IS_AFFECTED(ch, AFF_BLIND))
return (FALSE);
if ((vict != ch->specials.fighting) && (lspell > 13) && (number(0, 7) == 0)) {
say_spell(ch, SPELL_SLEEP);
cast_sleep(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
if ((lspell > 5) && (number(0, 6) == 0)) {
say_spell(ch, SPELL_WEAKNESS);
cast_weakness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
if ((lspell > 5) && (number(0, 7) == 0)) {
say_spell(ch, SPELL_ARMOR);
cast_armor(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return TRUE;
}
if ((lspell > 12) && (number(0, 7) == 0)) {
say_spell(ch, SPELL_CURSE);
cast_curse(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
if ((lspell > 7) && (number(0, 5) == 0)) {
say_spell(ch, SPELL_BLINDNESS);
cast_blindness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
switch (lspell) {
case 1:
case 2:
case 3:
case 4:
say_spell(ch, SPELL_MAGIC_MISSILE);
cast_magic_missile(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 5:
say_spell(ch, SPELL_SHOCKING_GRASP);
cast_shocking_grasp(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 6:
case 7:
case 8:
case 9:
case 10:
say_spell(ch, SPELL_LIGHTNING_BOLT);
cast_lightning_bolt(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 11:
say_spell(ch, SPELL_DISPEL_MAGIC);
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 12:
case 13:
case 14:
say_spell(ch, SPELL_COLOUR_SPRAY);
cast_colour_spray(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 15:
case 16:
say_spell(ch, SPELL_FIREBALL);
cast_fireball(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 17:
case 18:
case 19:
if (IS_EVIL(ch)) {
say_spell(ch, SPELL_ENERGY_DRAIN);
cast_energy_drain(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
default:
say_spell(ch, SPELL_FIREBALL);
cast_fireball(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
return TRUE;
}
int cleric(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
BYTE lspell, healperc = 0;
if (cmd || !AWAKE(ch))
return (FALSE);
if (GET_POS(ch) != POSITION_FIGHTING) {
if ((GET_POS(ch) < POSITION_STANDING) && (GET_POS(ch) > POSITION_STUNNED)) {
StandUp(ch);
}
return FALSE;
}
if (!ch->specials.fighting)
return FALSE;
/* Find a dude to to evil things upon ! */
vict = FindVictim(ch);
if (!vict)
vict = ch->specials.fighting;
if (!vict)
return (FALSE);
/*
* gen number from 0 to level
*/
lspell = number(1, GetMaxLevel(ch));
if (ch->points.hit < (ch->points.max_hit / 8))
healperc = 7;
else if (ch->points.hit < (ch->points.max_hit / 4))
healperc = 5;
if (ch->points.hit < (ch->points.max_hit / 2))
healperc = 3;
else if (number(1, healperc + 1) < 3) {
if (OUTSIDE(ch) &&
(weather_info.sky >= SKY_RAINING) &&
(lspell >= 15) &&
(number(0, 3) == 0)) {
say_spell(ch, SPELL_CALL_LIGHTNING);
cast_call_lightning(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return (TRUE);
}
switch (lspell) {
case 1:
case 2:
case 3:
say_spell(ch, SPELL_CAUSE_LIGHT);
cast_cause_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 4:
case 5:
case 6:
say_spell(ch, SPELL_BLINDNESS);
cast_blindness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 7:
say_spell(ch, SPELL_DISPEL_MAGIC);
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 8:
say_spell(ch, SPELL_POISON);
cast_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 9:
case 10:
say_spell(ch, SPELL_CAUSE_CRITICAL);
cast_cause_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 11:
say_spell(ch, SPELL_FLAMESTRIKE);
cast_flamestrike(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 12:
say_spell(ch, SPELL_CURSE);
cast_curse(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 13:
case 14:
case 15:
case 16:
{
if ((GET_ALIGNMENT(vict) <= 0) && (GET_ALIGNMENT(ch) > 0)) {
say_spell(ch, SPELL_DISPEL_EVIL);
cast_dispel_evil(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
} else if ((GET_ALIGNMENT(vict) >= 0) && (GET_ALIGNMENT(ch) < 0)) {
say_spell(ch, SPELL_DISPEL_GOOD);
cast_dispel_good(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
} else {
if (!IS_SET(vict->M_immune, IMM_FIRE)) {
say_spell(ch, SPELL_FLAMESTRIKE);
cast_flamestrike(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
} else if (IS_AFFECTED(vict, AFF_SANCTUARY)) {
say_spell(ch, SPELL_DISPEL_MAGIC);
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
} else {
say_spell(ch, SPELL_CAUSE_CRITICAL);
cast_cause_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
}
}
break;
}
case 17:
case 18:
case 19:
default:
say_spell(ch, SPELL_HARM);
cast_harm(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
return (TRUE);
} else {
if (IS_AFFECTED(ch, AFF_BLIND) && (lspell >= 4) & (number(0, 3) == 0)) {
say_spell(ch, SPELL_CURE_BLIND);
cast_cure_blind(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return (TRUE);
}
if (IS_AFFECTED(ch, AFF_CURSE) && (lspell >= 6) && (number(0, 6) == 0)) {
say_spell(ch, SPELL_REMOVE_CURSE);
cast_remove_curse(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return (TRUE);
}
if (IS_AFFECTED(ch, AFF_POISON) && (lspell >= 5) && (number(0, 6) == 0)) {
say_spell(ch, SPELL_REMOVE_POISON);
cast_remove_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return (TRUE);
}
switch (lspell) {
case 1:
case 2:
case 3:
case 4:
say_spell(ch, SPELL_ARMOR);
cast_armor(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 5:
case 6:
case 7:
case 8:
say_spell(ch, SPELL_CURE_LIGHT);
cast_cure_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 9:
case 10:
case 11:
case 12:
case 13:
case 14:
case 15:
case 16:
say_spell(ch, SPELL_CURE_CRITIC);
cast_cure_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 17:
case 18: /* heal */
say_spell(ch, SPELL_HEAL);
cast_heal(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
default:
say_spell(ch, SPELL_SANCTUARY);
cast_sanctuary(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
}
return (TRUE);
}
}
/*
* Special procedures for mobiles
*/
int guild_guard(struct char_data *ch, int cmd, char *arg)
{
char buf[256], buf2[256];
if (cmd > 6 || cmd < 1)
return FALSE;
strcpy(buf, "The guard humiliates you, and block your way.\n\r");
strcpy(buf2, "The guard humiliates $n, and blocks $s way.");
if ((IS_NPC(ch) && (IS_POLICE(ch))) || (GetMaxLevel(ch) >= DEMIGOD) ||
(IS_AFFECTED(ch, AFF_SNEAK)))
return (FALSE);
/*
** Remove-For-Multi-Class
*/
if ((ch->in_room == 3017) && (cmd == 3)) {
if (!HasClass(ch, CLASS_MAGIC_USER)) {
act(buf2, FALSE, ch, 0, 0, TO_ROOM);
send_to_char(buf, ch);
return TRUE;
}
} else if ((ch->in_room == 3004) && (cmd == 1)) {
if (!HasClass(ch, CLASS_CLERIC)) {
act(buf2, FALSE, ch, 0, 0, TO_ROOM);
send_to_char(buf, ch);
return TRUE;
}
} else if ((ch->in_room == 3027) && (cmd == 2)) {
if (!HasClass(ch, CLASS_THIEF)) {
act(buf2, FALSE, ch, 0, 0, TO_ROOM);
send_to_char(buf, ch);
return TRUE;
}
} else if ((ch->in_room == 3021) && (cmd == 2)) {
if (!HasClass(ch, CLASS_WARRIOR)) {
act(buf2, FALSE, ch, 0, 0, TO_ROOM);
send_to_char(buf, ch);
return TRUE;
}
}
return FALSE;
}
static char *random_puff_message() {
static char *oops[] = {
"Suffer! I will make you all suffer!!!!!",
"Suffer!!!!!! ALL will Suffer Quixadhal's WRATH!!!",
"Any good weapons for sale?",
"I wish there were more victims, err... I mean players!",
"Anyone want a red ring??",
"The Vax is DEAD!!!!",
"Windows 95 SUCKS!!!",
"Bill Gates has been forced to WALK the PLANK!",
"Linux RULES!!!!!",
"The Amiga LIVES!",
"SAVE, and Ye Shall Be SAVED!",
"I hear the Dread Lord is nice when Satan is chilly...",
"Zar! Where are you Zar?",
"Muidnar! Stop teasing the mortals!",
"Dirk is idle again!",
"Sedna, stop trying to code me to steal from players!",
"Damnit Quixadhal! Stop snooping me!",
"He's dead Jim.",
"What? Nobody's DIED recently???",
"Is it me, or does everyone hear an echo.. echo... echo....",
"EEK! Someone's been animating the chicken fajitas again!",
"I shall HEAL you.... No, on second thought I won't.",
NULL };
static int howmany= 22;
return oops[number(1,howmany)-1];
}
int puff(struct char_data *ch, int cmd, char *arg)
{
struct char_data *i, *tmp, *tmp_ch;
char buf[80];
void do_emote(struct char_data *ch, char *argument, int cmd);
void do_shout(struct char_data *ch, char *argument, int cmd);
if (cmd)
return (0);
/*
* PULSE_MOBILE is currently set to 25, which means that this routine
* (and all specials) get called approximately every 6 seconds, at 4
* pulses per second.
*
* Since we don't want puff spamming everyone, a flat 5% chance exists
* that he'll do ANYTHING at all... this works out to him doing something
* on a average of every two minutes.
*/
if(number(0, 99) > 4)
return 1;
switch(number(1,100)) {
case 1 ... 25:
do_shout(ch, random_puff_message(), 0);
break;
case 26 ... 35:
for (i = character_list; i; i = i->next)
if (IS_PC(i) && IS_IMMORTAL(i) && !number(0,2)) {
sprintf(buf, "%s! I need reimbursement!", GET_NAME(i));
do_shout(ch, buf, 0);
return 1;
}
break;
case 36 ... 40:
for (i = character_list; i; i = i->next)
if (IS_PC(i) && !IS_IMMORTAL(i) && !number(0,5)) {
sprintf(buf, "Hiya %s!", GET_NAME(i));
do_shout(ch, buf, 0);
return 1;
}
break;
case 76 ... 85:
for (i = character_list; i; i = i->next)
if (IS_PC(i) && (i->in_room != NOWHERE)) {
sprintf(buf, "%s save", GET_NAME(i));
do_force(ch, buf, 0);
}
break;
case 86 ... 93:
for (i = character_list; i; i = i->next)
if (!IS_IMMORTAL(i) && !number(0, (IS_PC(i)?5:50))) {
switch(GET_SEX(i)) {
case SEX_MALE:
sprintf(buf, "Be at ease brother %s!", fname(GET_NAME(i)));
break;
case SEX_FEMALE:
sprintf(buf, "Be at ease sister %s!", fname(GET_NAME(i)));
break;
default:
sprintf(buf, "Be at ease %s, whatever you are!", fname(GET_NAME(i)));
break;
}
do_shout(ch, buf, 0);
cast_refresh(20, ch, "", SPELL_TYPE_SPELL, i, 0);
return 1;
}
break;
case 94 ... 97:
for (i = character_list; i; i = i->next)
if (!IS_IMMORTAL(i) && !number(0, (IS_PC(i)?5:50))) {
switch(GET_SEX(i)) {
case SEX_MALE:
sprintf(buf, "I shall HEAL you brother %s!", fname(GET_NAME(i)));
break;
case SEX_FEMALE:
sprintf(buf, "I shall HEAL you sister %s!", fname(GET_NAME(i)));
break;
default:
sprintf(buf, "I shall HEAL you %s, whatever you are!", fname(GET_NAME(i)));
break;
}
do_shout(ch, buf, 0);
cast_cure_light(20, ch, "", SPELL_TYPE_SPELL, i, 0);
return 1;
}
break;
case 98 ... 99:
for (i = character_list; i; i = i->next)
if (IS_PC(i) && !IS_IMMORTAL(i) && !number(0,10)) {
sprintf(buf, "%s shout Where is Puff?", GET_NAME(i));
do_force(ch, buf, 0);
do_restore(ch, GET_NAME(i), 0);
return 1;
}
break;
case 100:
for (i = character_list; i; i = i->next)
if (!IS_IMMORTAL(i) && OUTSIDE(i)) {
if (((weather_info.sky == SKY_CLOUDY) && !number(0,20)) ||
((weather_info.sky == SKY_RAINING) && !number(0,10)) ||
((weather_info.sky == SKY_LIGHTNING) && !number(0,5))) {
if (GET_HIT(i) > 10) {
if (saves_spell(i, SAVING_SPELL)) {
GET_HIT(i) -=dice(1,4);
} else {
GET_HIT(i) -=dice(2,4);
}
act("The looming dark clouds above you suddenly rumble and you feel a searing\n\rpain in your chest!", FALSE, i, 0, 0, TO_CHAR);
act("A brilliant flash of light blinds you for a moment. As your vision clears\n\ryou see smoke rising from $N.", FALSE, i, 0, i, TO_ROOM);
update_pos(i);
} else {
act("The looming dark clouds above you suddenly rumble and you feel your hair\n\rstanding on end!", FALSE, i, 0, 0, TO_CHAR);
act("A brilliant flash of light blinds you for a moment. As your vision clears\n\ryou see $N's hair standing on end.", FALSE, i, 0, i, TO_ROOM);
}
if(!number(0,10)) return 1;
}
}
break;
}
return 1;
}
int regenerator(struct char_data *ch, int cmd, char *arg)
{
if (cmd)
return (FALSE);
if (GET_HIT(ch) < GET_MAX_HIT(ch)) {
GET_HIT(ch) += 9;
GET_HIT(ch) = MIN(GET_HIT(ch), GET_MAX_HIT(ch));
act("$n regenerates.", TRUE, ch, 0, 0, TO_ROOM);
return (TRUE);
}
}
int replicant(struct char_data *ch, int cmd, char *arg)
{
struct char_data *mob;
if (cmd)
return FALSE;
if (GET_HIT(ch) < GET_MAX_HIT(ch)) {
act("Drops of $n's blood hits the ground, and springs up into another one!",
TRUE, ch, 0, 0, TO_ROOM);
mob = read_mobile(ch->nr, REAL);
char_to_room(mob, ch->in_room);
act("Two undamaged opponents face you now.", TRUE, ch, 0, 0, TO_ROOM);
GET_HIT(ch) = GET_MAX_HIT(ch);
}
return FALSE;
}
int Tytan(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting) {
return (magic_user(ch, cmd, arg));
} else {
switch (ch->act_ptr) {
case TYT_NONE:
if (vict = FindVictim(ch)) {
ch->act_ptr = TYT_CIT;
SetHunting(ch, vict);
}
break;
case TYT_CIT:
if (ch->specials.hunting) {
if (ch->in_room == ch->specials.hunting->in_room) {
act("Where is the Citadel?", TRUE, ch, 0, 0, TO_ROOM);
ch->act_ptr = TYT_WHAT;
}
} else {
ch->act_ptr = TYT_NONE;
}
break;
case TYT_WHAT:
if (ch->specials.hunting) {
if (ch->in_room == ch->specials.hunting->in_room) {
act("What must we do?", TRUE, ch, 0, 0, TO_ROOM);
ch->act_ptr = TYT_TELL;
}
} else {
ch->act_ptr = TYT_NONE;
}
break;
case TYT_TELL:
if (ch->specials.hunting) {
if (ch->in_room == ch->specials.hunting->in_room) {
act("Tell Us! Command Us!", TRUE, ch, 0, 0, TO_ROOM);
ch->act_ptr = TYT_HIT;
}
} else {
ch->act_ptr = TYT_NONE;
}
break;
case TYT_HIT:
if (ch->specials.hunting) {
if (ch->in_room == ch->specials.hunting->in_room) {
if (!check_peaceful(ch, "")) {
hit(ch, ch->specials.hunting, TYPE_UNDEFINED);
ch->act_ptr = TYT_NONE;
} else {
ch->act_ptr = TYT_CIT;
}
}
} else {
ch->act_ptr = TYT_NONE;
}
break;
default:
ch->act_ptr = TYT_NONE;
}
}
}
int AbbarachDragon(struct char_data *ch, int cmd, char *arg)
{
struct char_data *targ;
if (cmd || !AWAKE(ch))
return (FALSE);
if (!ch->specials.fighting) {
targ = (struct char_data *)FindAnyVictim(ch);
if (targ && !check_peaceful(ch, "")) {
hit(ch, targ, TYPE_UNDEFINED);
act("You have now payed the price of crossing.",
TRUE, ch, 0, 0, TO_ROOM);
return (TRUE);
}
} else {
return (BreathWeapon(ch, cmd, arg));
}
}
int fido(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *i, *temp, *next_obj;
struct char_data *v, *next;
char found = FALSE;
if (cmd || !AWAKE(ch))
return (FALSE);
for (v = character_list; (v && (!found)); v = next) {
next = v->next;
if ((IS_NPC(v)) && (mob_index[v->nr].virtual == 100) &&
(v->in_room == ch->in_room) && CAN_SEE(ch, v)) {
if (v->specials.fighting)
stop_fighting(v);
make_corpse(v);
extract_char(v);
found = TRUE;
}
}
for (i = real_roomp(ch->in_room)->contents; i; i = i->next_content) {
if (GET_ITEM_TYPE(i) == ITEM_CONTAINER && i->obj_flags.value[3]) {
act("$n savagely devours a corpse.", FALSE, ch, 0, 0, TO_ROOM);
for (temp = i->contains; temp; temp = next_obj) {
next_obj = temp->next_content;
obj_from_obj(temp);
obj_to_room(temp, ch->in_room);
}
extract_obj(i);
return (TRUE);
}
}
return (FALSE);
}
int janitor(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *i, *temp, *next_obj;
if (cmd || !AWAKE(ch))
return (FALSE);
for (i = real_roomp(ch->in_room)->contents; i; i = i->next_content) {
if (IS_SET(i->obj_flags.wear_flags, ITEM_TAKE)) {
act("$n picks up some trash.", FALSE, ch, 0, 0, TO_ROOM);
obj_from_room(i);
obj_to_char(i, ch);
return (TRUE);
}
}
return (FALSE);
}
int janitor_eats(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *i, *temp, *next_obj;
if (cmd || !AWAKE(ch))
return (FALSE);
for (i = real_roomp(ch->in_room)->contents; i; i = i->next_content) {
if (IS_SET(i->obj_flags.wear_flags, ITEM_TAKE)) {
act("$n picks up some trash.", FALSE, ch, 0, 0, TO_ROOM);
act("$n nibbles on the new found garbage.", FALSE, ch, 0, 0, TO_ROOM);
extract_obj(i);
return (TRUE);
}
}
return (FALSE);
}
int tormentor(struct char_data *ch, int cmd, char *arg)
{
if (!cmd)
return (FALSE);
if (IS_NPC(ch))
return (FALSE);
if (IS_IMMORTAL(ch))
return (FALSE);
return (TRUE);
}
int Fighter(struct char_data *ch, int cmd, char *arg)
{
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
return (TRUE);
} else
StandUp(ch);
}
return (FALSE);
}
int RustMonster(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
struct obj_data *t_item;
int t_pos;
if (cmd || !AWAKE(ch))
return (FALSE);
/*
* ** find a victim
*/
if (ch->specials.fighting) {
vict = ch->specials.fighting;
} else {
vict = FindVictim(ch);
if (!vict) {
return (FALSE);
}
}
/*
* ** choose an item of armor or a weapon that is metal
* ** since metal isn't defined, we'll just use armor and weapons
*/
/*
* ** choose a weapon first, then if no weapon, choose a shield,
* ** if no shield, choose breast plate, then leg plate, sleeves,
* ** helm
*/
if (vict->equipment[WIELD]) {
t_item = vict->equipment[WIELD];
t_pos = WIELD;
} else if (vict->equipment[WEAR_SHIELD]) {
t_item = vict->equipment[WEAR_SHIELD];
t_pos = WEAR_SHIELD;
} else if (vict->equipment[WEAR_BODY]) {
t_item = vict->equipment[WEAR_BODY];
t_pos = WEAR_BODY;
} else if (vict->equipment[WEAR_LEGS]) {
t_item = vict->equipment[WEAR_LEGS];
t_pos = WEAR_LEGS;
} else if (vict->equipment[WEAR_ARMS]) {
t_item = vict->equipment[WEAR_ARMS];
t_pos = WEAR_ARMS;
} else if (vict->equipment[WEAR_HEAD]) {
t_item = vict->equipment[WEAR_HEAD];
t_pos = WEAR_HEAD;
} else {
return (FALSE);
}
/*
* ** item makes save (or not)
*/
if (DamageOneItem(vict, ACID_DAMAGE, t_item)) {
t_item = unequip_char(vict, t_pos);
if (t_item) {
/*
* ** if it doesn't make save, falls into a pile of scraps
*/
MakeScrap(vict, t_item);
}
}
return (FALSE);
}
int temple_labrynth_liar(struct char_data *ch, int cmd, char *arg)
{
if (cmd || !AWAKE(ch))
return (0);
switch (number(0, 15)) {
case 0:
do_say(ch, "I'd go west if I were you.", 0);
return (1);
case 1:
do_say(ch, "I heard that Addiction is a cute babe.", 0);
return (1);
case 2:
do_say(ch, "Going east will avoid the beast!", 0);
return (1);
case 4:
do_say(ch, "North is the way to go.", 0);
return (1);
case 6:
do_say(ch, "Dont dilly dally go south.", 0);
return (1);
case 8:
do_say(ch, "Great treasure lies ahead", 0);
return (1);
case 10:
do_say(ch, "I wouldn't kill the sentry if I were more than level 9. No way!", 0);
return (1);
case 12:
do_say(ch, "I am a very clever liar.", 0);
return (1);
case 14:
do_say(ch, "Loki is a really great guy!", 0);
return (1);
default:
do_say(ch, "Then again I could be wrong!", 0);
return (1);
}
}
int temple_labrynth_sentry(struct char_data *ch, int cmd, char *arg)
{
struct char_data *tch;
int counter;
void cast_fireball(BYTE level, struct char_data *ch, char *arg, int type,
struct char_data *victim, struct obj_data *tar_obj);
if (cmd || !AWAKE(ch))
return FALSE;
if (GET_POS(ch) != POSITION_FIGHTING)
return FALSE;
if (!ch->specials.fighting)
return FALSE;
/* Find a dude to do very evil things upon ! */
for (tch = real_roomp(ch->in_room)->people; tch; tch = tch->next_in_room) {
if (GetMaxLevel(tch) > 10 && CAN_SEE(ch, tch)) {
act("The sentry snaps out of his trance and ...", 1, ch, 0, 0, TO_ROOM);
do_say(ch, "You will die for your insolence, pig-dog!", 0);
for (counter = 0; counter < 4; counter++)
if (GET_POS(tch) > POSITION_SITTING)
cast_fireball(15, ch, "", SPELL_TYPE_SPELL, tch, 0);
else
return TRUE;
return TRUE;
} else {
act("The sentry looks concerned and continues to push you away",
1, ch, 0, 0, TO_ROOM);
do_say(ch, "Leave me alone. My vows do not permit me to kill you!", 0);
}
}
return TRUE;
}
int Whirlwind(struct char_data *ch, int cmd, char *arg)
{
struct char_data *tmp;
const char *names[] =
{"Quixadhal", "", 0};
int i = 0;
if (ch->in_room == -1)
return (FALSE);
if (cmd == 0 && ch->act_ptr == WW_LOOSE) {
for (tmp = real_roomp(ch->in_room)->people; tmp; tmp = tmp->next_in_room) {
while (names[i]) {
if (!strcmp(GET_NAME(tmp), names[i]) && ch->act_ptr == WW_LOOSE) {
/* start following */
if (circle_follow(ch, tmp))
return (FALSE);
if (ch->master)
stop_follower(ch);
add_follower(ch, tmp);
ch->act_ptr = WW_FOLLOW;
}
i++;
}
}
if (ch->act_ptr == WW_LOOSE && !cmd) {
act("The $n suddenly dissispates into nothingness.", 0, ch, 0, 0, TO_ROOM);
extract_char(ch);
}
}
}
int NudgeNudge(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting) {
return (FALSE);
}
switch (ch->act_ptr) {
case NN_LOOSE:
vict = FindVictim(ch);
if (!vict)
return (FALSE);
if (IS_IMMORTAL(vict) && !IS_SET(vict->specials.act, PLR_STEALTH) &&
(number(0,99)< 50)) {
act("$n falls and grovels in abject terror before you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n falls and grovels in abject terror before $N.", FALSE, ch, 0, vict, TO_ROOM);
return FALSE;
}
/* start following */
if (circle_follow(ch, vict)) {
return (FALSE);
}
if (ch->master)
stop_follower(ch);
add_follower(ch, vict);
ch->act_ptr = NN_FOLLOW;
if (!AWAKE(vict))
do_wake(ch, GET_NAME(vict), 0);
if (ch->player.sex == SEX_MALE) {
do_say(ch, "Good Evenin' Squire!", 0);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
} else if (ch->player.sex == SEX_FEMALE) {
do_say(ch, "Hello, handsome!", 0);
act("$n snuggles up to you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n snuggles up to $N.", FALSE, ch, 0, ch->master, TO_ROOM);
} else {
do_say(ch, "What the fuck? I'm neuter!", 0);
act("$n looks between it's legs and screams!!!", FALSE,ch,0,0,TO_ROOM);
}
break;
case NN_FOLLOW:
if(!ch->master) {
ch->act_ptr = NN_STOP;
break;
}
if(number(0, 20) < 5)
if (!AWAKE(ch->master))
do_wake(ch, GET_NAME(ch->master), 0);
switch (number(0, 20)) {
case 0:
if (ch->player.sex == SEX_MALE) {
do_say(ch, "Is your wife a goer? Know what I mean, eh?", 0);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
} else if (ch->player.sex == SEX_FEMALE) {
do_say(ch, "So, do you have a girlfriend?", 0);
act("$n hugs you.",FALSE,ch,0,0,TO_CHAR);
act("$n hugs $N.",FALSE,ch,0,ch->master,TO_ROOM);
} else {
do_say(ch,"My nads are gone! Help!!",0);
act("$n looks around for something it thinks is missing.",FALSE,ch,0,0,
TO_ROOM);
}
break;
case 1:
if (ch->player.sex == SEX_MALE) {
act("$n winks at you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n winks at you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n winks at $N.", FALSE, ch, 0, ch->master, TO_ROOM);
act("$n winks at $N.", FALSE, ch, 0, ch->master, TO_ROOM);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
do_say(ch, "Say no more! Say no MORE!", 0);
} else if (ch->player.sex == SEX_FEMALE) {
act("$n kisses you.",FALSE,ch,0,0,TO_CHAR);
act("$n hugs you.",FALSE,ch,0,0,TO_CHAR);
act("$n kisses $N.",FALSE,ch,0,ch->master,TO_ROOM);
act("$n hugs $N.",FALSE,ch,0,ch->master,TO_ROOM);
do_say(ch, "You're so handsome. Will you marry me?",0);
} else {
act("$n starts sobbing ridiculously and curses the gods for his fate",
FALSE,ch,0,0,TO_ROOM);
}
break;
case 2:
if (ch->player.sex == SEX_MALE) {
do_say(ch, "You been around, eh?", 0);
do_say(ch, "...I mean you've ..... done it, eh?", 0);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
} else if (ch->player.sex == SEX_FEMALE) {
act("$n giggles, winks at you, and sashays about the room.",
FALSE,ch,0,0,TO_CHAR);
act("$n giggles, winks at $N, and sashays about the room.",
FALSE,ch,0,ch->master,TO_ROOM);
} else {
act("$n looks glassy-eyed.",FALSE,ch,0,0,TO_ROOM);
}
break;
case 3:
if (ch->player.sex == SEX_MALE) {
do_say(ch, "A nod's as good as a wink to a blind bat, eh?", 0);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
act("$n nudges you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n nudges $N.", FALSE, ch, 0, ch->master, TO_ROOM);
} else if (ch->player.sex == SEX_FEMALE) {
do_say(ch,"You're so strong and brave.",0);
act("$n asks you, 'If a dragon held me captive, would you save me?'" ,FALSE,ch,0,0,TO_CHAR);
act("$n asks $N, 'If a dragon held me captive, would you save me?'",FALSE,ch,0,ch->master,TO_ROOM);
} else {
act("$n grumbles something about incompetent mud builders...",FALSE,
ch,0,0,TO_ROOM);
}
break;
case 4:
if (ch->player.sex == SEX_MALE) {
do_say(ch, "You're WICKED, eh! WICKED!", 0);
act("$n winks at you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n winks at you.", FALSE, ch, 0, 0, TO_CHAR);
act("$n winks at $N.", FALSE, ch, 0, ch->master, TO_ROOM);
act("$n winks at $N.", FALSE, ch, 0, ch->master, TO_ROOM);
} else if (ch->player.sex == SEX_FEMALE) {
act("$n blows you a kiss.",FALSE,ch,0,0,TO_CHAR);
act("$n blows $N a kiss.",FALSE,ch,0,ch->master,TO_ROOM);
act("$n giggles and winks at you.",FALSE,ch,0,0,TO_CHAR);
act("$n giggles and winks at $N.",FALSE,ch,0,ch->master,TO_ROOM);
} else {
act("$n looks bewildered.",FALSE,ch,0,0,TO_ROOM);
}
break;
case 5:
if(ch->player.sex == SEX_MALE) {
do_say(ch, "Wink. Wink.", 0);
} else if (ch->player.sex == SEX_FEMALE) {
act("$n says, '$N, I love you!'",FALSE,ch,0,0,TO_CHAR);
act("$n says to $N, '$N, I love you!'",FALSE,ch,0,ch->master,TO_ROOM);
} else {
}
break;
case 6:
if (ch->player.sex == SEX_MALE) {
do_say(ch, "Nudge. Nudge.", 0);
} else if (ch->player.sex == SEX_FEMALE) {
act("$n kisses you passionately.",FALSE,ch,0,0,TO_CHAR);
act("$n kisses $N passionately.",FALSE,ch,0,ch->master,TO_ROOM);
} else {
}
break;
case 7:
case 8:
case 9:
case 10:
ch->act_ptr = NN_STOP;
break;
default:
break;
}
break;
case NN_STOP:
if (ch->player.sex == SEX_MALE) {
do_say(ch, "Evening, Squire", 0);
stop_follower(ch);
} else if (ch->player.sex == SEX_FEMALE) {
do_say(ch,"Whenever you're in town again, look me up!",0);
act("$n blows you a kiss.",FALSE,ch,0,0,TO_CHAR);
act("$n blows $N a kiss.",FALSE,ch,0,ch->master,TO_CHAR);
stop_follower(ch);
} else {
stop_follower(ch);
}
ch->act_ptr = NN_LOOSE;
break;
default:
ch->act_ptr = NN_LOOSE;
break;
}
}
int AGGRESSIVE(struct char_data *ch, int cmd, char *arg)
{
struct char_data *i, *next;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->in_room > -1) {
for (i = real_roomp(ch->in_room)->people; i; i = next) {
next = i->next_in_room;
if (i->nr != ch->nr) {
if (!IS_IMMORTAL(i)) {
hit(ch, i, TYPE_UNDEFINED);
}
}
}
}
}
int cityguard(struct char_data *ch, int cmd, char *arg)
{
struct char_data *tch, *evil, *i;
int max_evil, lev;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
} else {
StandUp(ch);
}
if (number(0, 20) > 15) {
do_shout(ch, "To me, my fellows! I am in need of thy aid!", 0);
} else {
act("$n shouts 'To me, my fellows! I need thy aid!'", TRUE, ch, 0, 0, TO_ROOM);
}
if (ch->specials.fighting)
CallForGuard(ch, ch->specials.fighting, 4);
return (TRUE);
}
max_evil = 1000;
evil = 0;
if (check_peaceful(ch, ""))
return FALSE;
for (tch = real_roomp(ch->in_room)->people; tch; tch = tch->next_in_room) {
if ((IS_NPC(tch)) && (IsUndead(tch)) && CAN_SEE(ch, tch)) {
max_evil = -1000;
evil = tch;
act("$n screams 'Suffer!!! I will make you suffer!'", FALSE, ch, 0, 0, TO_ROOM);
hit(ch, evil, TYPE_UNDEFINED);
return (TRUE);
}
if (tch->specials.fighting) {
if ((GET_ALIGNMENT(tch) < max_evil) &&
(IS_NPC(tch) || IS_NPC(tch->specials.fighting))) {
max_evil = GET_ALIGNMENT(tch);
evil = tch;
}
}
}
if (evil && (GET_ALIGNMENT(evil->specials.fighting) >= 0)) {
act("$n screams 'Suffer!!!!! You will suffer'",
FALSE, ch, 0, 0, TO_ROOM);
hit(ch, evil, TYPE_UNDEFINED);
return (TRUE);
}
return (FALSE);
}
int WarrenGuard(struct char_data *ch, int cmd, char *arg)
{
struct char_data *tch, *good, *i;
int max_good, lev;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting) {
if (GET_POS(ch) == POSITION_FIGHTING) {
FighterMove(ch);
} else {
StandUp(ch);
}
return (TRUE);
}
max_good = -1000;
good = 0;
if (check_peaceful(ch, ""))
return FALSE;
for (tch = real_roomp(ch->in_room)->people; tch; tch = tch->next_in_room) {
if (tch->specials.fighting) {
if ((GET_ALIGNMENT(tch) > max_good) &&
(IS_NPC(tch) || IS_NPC(tch->specials.fighting))) {
max_good = GET_ALIGNMENT(tch);
good = tch;
}
}
}
if (good && (GET_ALIGNMENT(good->specials.fighting) <= 0)) {
act("$n screams 'DEATH TO GOODY-GOODIES!!!!'",
FALSE, ch, 0, 0, TO_ROOM);
hit(ch, good, TYPE_UNDEFINED);
return (TRUE);
}
return (FALSE);
}
int zm_tired(struct char_data *zmaster)
{
return GET_HIT(zmaster) < GET_MAX_HIT(zmaster) / 2 ||
GET_MANA(zmaster) < 40;
}
int zm_stunned_followers(struct char_data *zmaster)
{
struct follow_type *fwr;
for (fwr = zmaster->followers; fwr; fwr = fwr->next)
if (GET_POS(fwr->follower) == POSITION_STUNNED)
return TRUE;
return FALSE;
}
void zm_zap_spell_at(struct char_data *ch, struct char_data *vict,
int maxlevel)
{
if(GET_POS(vict) <= POSITION_DEAD)
return;
switch(number(1, maxlevel)) {
case 1:
case 2:
say_spell(ch, SPELL_SHOCKING_GRASP);
cast_shocking_grasp(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 3:
say_spell(ch, SPELL_MAGIC_MISSILE);
cast_magic_missile(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 4:
case 5:
say_spell(ch, SPELL_CHILL_TOUCH);
cast_chill_touch(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 6:
say_spell(ch, SPELL_WEAKNESS);
cast_weakness(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 7:
say_spell(ch, SPELL_DISPEL_MAGIC);
cast_dispel_magic(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 8:
case 9:
say_spell(ch, SPELL_ACID_BLAST);
cast_acid_blast(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 10:
case 11:
say_spell(ch, SPELL_BLINDNESS);
cast_blindness(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 12:
say_spell(ch, SPELL_FEAR);
cast_fear(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 13:
case 14:
case 15:
case 16:
say_spell(ch, SPELL_LIGHTNING_BOLT);
cast_lightning_bolt(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 17:
say_spell(ch, SPELL_POISON);
cast_poison(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 18:
say_spell(ch, SPELL_PARALYSIS);
cast_paralyze(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
default:
say_spell(ch, SPELL_LIGHTNING_BOLT);
cast_lightning_bolt(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
}
void zm_zap_area_at(struct char_data *ch, int maxlevel)
{
if(!ch->specials.fighting)
return;
if(GET_POS(ch->specials.fighting) <= POSITION_DEAD)
return;
switch(number(0, 3)) {
case 0:
say_spell(ch, SPELL_ICE_STORM);
cast_ice_storm(maxlevel, ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
break;
case 1:
say_spell(ch, SPELL_CONE_OF_COLD);
cast_cone_of_cold(maxlevel, ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
break;
case 2:
say_spell(ch, SPELL_COLOUR_SPRAY);
cast_colour_spray(maxlevel, ch, "", SPELL_TYPE_SPELL, ch->specials.fighting, 0);
break;
case 3:
act("$N flails about blindly and curses the name of $n.", TRUE, ch, 0, ch->specials.fighting, TO_ROOM);
break;
}
}
zm_init_combat(struct char_data * zmaster, struct char_data * target)
{
struct follow_type *fwr;
if(GET_POS(target) <= POSITION_DEAD)
return;
for (fwr = zmaster->followers; fwr; fwr = fwr->next)
if (IS_AFFECTED(fwr->follower, AFF_CHARM) &&
fwr->follower->specials.fighting == NULL &&
fwr->follower->in_room == target->in_room)
if (GET_POS(fwr->follower) == POSITION_STANDING) {
hit(fwr->follower, target, TYPE_UNDEFINED);
} else if (GET_POS(fwr->follower) > POSITION_SLEEPING &&
GET_POS(fwr->follower) < POSITION_FIGHTING) {
do_stand(fwr->follower, "", -1);
}
}
int zm_kill_fidos(struct char_data *zmaster)
{
struct char_data *fido_b;
if(check_peaceful(zmaster, ""))
return FALSE;
fido_b = find_mobile_here_with_spec_proc(fido, zmaster->in_room);
if (fido_b) {
act("$n shrilly screams 'Kill that carrion beast!'", FALSE,
zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, fido_b);
if(GET_POS(fido_b) > POSITION_DEAD) {
say_spell(zmaster, SPELL_MAGIC_MISSILE);
cast_magic_missile(GetMaxLevel(zmaster), zmaster, "", SPELL_TYPE_SPELL, fido_b, 0);
}
return TRUE;
}
return FALSE;
}
int zm_kill_aggressor(struct char_data *zmaster)
{
struct follow_type *fwr;
int maxlevel;
if(check_peaceful(zmaster, ""))
return FALSE;
maxlevel= GetMaxLevel(zmaster);
if (zmaster->specials.fighting && (zmaster->specials.fighting->in_room == zmaster->in_room)) {
act("$n bellows 'Kill the mortal that dares lay hands on me!'", FALSE,
zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, zmaster->specials.fighting);
if(IS_AFFECTED(zmaster, AFF_PARALYSIS)) {
if(number(1, maxlevel) > 5) {
say_spell(zmaster, SPELL_REMOVE_PARALYSIS);
cast_remove_paralysis(maxlevel, zmaster, "", SPELL_TYPE_SPELL, zmaster, 0);
} else
return TRUE;
}
StandUp(zmaster);
if(IS_AFFECTED(zmaster, AFF_BLIND)) {
if(number(1, maxlevel) > 8) {
say_spell(zmaster, SPELL_CURE_BLIND);
cast_cure_blind(maxlevel, zmaster, "", SPELL_TYPE_SPELL, zmaster, 0);
} else {
zm_zap_area_at(zmaster, maxlevel);
return TRUE;
}
}
zm_zap_spell_at(zmaster, zmaster->specials.fighting, maxlevel);
return TRUE;
}
for (fwr = zmaster->followers; fwr; fwr = fwr->next)
if (fwr->follower->specials.fighting &&
(fwr->follower->specials.fighting->in_room == zmaster->in_room) &&
IS_AFFECTED(fwr->follower, AFF_CHARM)) {
act("$n bellows 'Assist your brethren, my loyal servants!'", FALSE,
zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, fwr->follower->specials.fighting);
if((GetMaxLevel(fwr->follower->specials.fighting) <= ((maxlevel= GetMaxLevel(zmaster))/4)) && (fwr->follower->specials.fighting->in_room == zmaster->in_room)) {
zm_zap_spell_at(zmaster, fwr->follower->specials.fighting, maxlevel);
return TRUE;
}
}
return FALSE;
}
int zm_kill_wimps(struct char_data *zmaster)
{
struct char_data *vict = NULL;
int mlev, maxlevel;
if(check_peaceful(zmaster, ""))
return FALSE;
maxlevel= GetMaxLevel(zmaster);
for (vict = real_roomp(zmaster->in_room)->people; vict; vict = vict->next_in_room) {
if(vict->master != zmaster && vict != zmaster && ((mlev= GetMaxLevel(vict)) < maxlevel) && (GET_POS(vict) > POSITION_DEAD) && (number(0,99) < 65)) {
if((real_roomp(vict->in_room)->zone == 10) && IS_PC(vict) && (mlev < 4))
continue;
if(IS_REALLY_HOLY(vict)) {
if(mlev <= (maxlevel-2)) {
act("$n howls 'BEGONE foul creature of Light!'", FALSE,
zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, vict);
say_spell(zmaster, SPELL_LIGHTNING_BOLT);
cast_lightning_bolt(maxlevel, zmaster, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
} else
act("$n glares at $N with unimaginable horror!", TRUE,
zmaster, 0, vict, TO_ROOM);
} else if(IS_HOLY(vict)) {
if(mlev <= ((maxlevel/2)+(maxlevel/4))) {
act("$n screams 'DIE Slave of Goodness!'", FALSE,
zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, vict);
zm_zap_spell_at(zmaster, vict, maxlevel);
return TRUE;
} else
act("$n glares at $N with undisguised hatred.", TRUE,
zmaster, 0, vict, TO_ROOM);
} else if(IS_GOOD(vict)) {
if(mlev <= (maxlevel/2)) {
act("$n taunts 'You shall perish for your good intentions!'", FALSE,
zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, vict);
zm_zap_spell_at(zmaster, vict, maxlevel);
return TRUE;
} else
act("$n glares at $N with contempt.", TRUE,
zmaster, 0, vict, TO_ROOM);
} else if(IS_REALLY_VILE(vict)) {
act("$n nods slightly to $N and continues her work.", TRUE,
zmaster, 0, vict, TO_ROOM);
} else if(IS_VILE(vict)) {
if(mlev <= (maxlevel/8)) {
act("$n exclaims 'Your sacrifice will help me destroy Shylar!'",
FALSE, zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, vict);
return TRUE;
}
} else if(IS_EVIL(vict)) {
if(mlev <= (maxlevel/6)) {
act("$n mocks 'You have not gone far enough into the darkness.'",
FALSE, zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, vict);
return TRUE;
}
} else {
if(mlev <= (maxlevel/4)) {
act("$n snickers 'You will provide me with flesh for my army.'",
FALSE, zmaster, 0, 0, TO_ROOM);
zm_init_combat(zmaster, vict);
return TRUE;
} else
act("$n looks $N over with disgust.", TRUE,
zmaster, 0, vict, TO_ROOM);
}
}
}
return FALSE;
}
int zombie_master(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *temp1;
struct char_data *zmaster;
struct char_data *vict;
char buf[240];
int dir, pick, maxlevel;
zmaster = find_mobile_here_with_spec_proc(zombie_master, ch->in_room);
if (cmd != 0 || ch != zmaster || !AWAKE(ch))
return FALSE;
if(zm_kill_aggressor(zmaster) ||
zm_kill_fidos(zmaster) ||
zm_kill_wimps(zmaster))
return TRUE;
switch (GET_POS(zmaster)) {
case POSITION_RESTING:
if (!zm_tired(zmaster))
do_stand(zmaster, "", -1);
break;
case POSITION_SITTING:
if (!zm_stunned_followers(zmaster)) {
act("$n says 'It took you long enough...'", FALSE,
zmaster, 0, 0, TO_ROOM);
do_stand(zmaster, "", -1);
}
break;
case POSITION_STANDING:
if (zm_tired(zmaster)) {
do_rest(zmaster, "", -1);
return TRUE;
}
temp1 = get_obj_in_list_vis(zmaster, "corpse",
real_roomp(zmaster->in_room)->contents);
if (temp1) {
if (GET_MANA(zmaster) < ZM_MANA) {
if (1 == dice(1, 20))
act("$n says 'So many bodies, so little time' and sighs.",
FALSE, zmaster, 0, 0, TO_ROOM);
} else if(number(0,99) < 75) {
act("$n says 'Come! Join me in eternal Life!' and gestures sharply.",
FALSE, zmaster, 0, 0, TO_ROOM);
GET_MANA(zmaster) -= ZM_MANA;
spell_animate_dead(GetMaxLevel(zmaster), ch, NULL, temp1);
/* assume the new follower is top of the list? */
AddHatred(zmaster->followers->follower, OP_VNUM, ZM_NEMESIS);
SET_BIT(zmaster->followers->follower->specials.act, ACT_GUARDIAN);
SET_BIT(zmaster->followers->follower->specials.act, ACT_USE_ITEM);
SET_BIT(zmaster->followers->follower->specials.affected_by, AFF_FLYING);
} else
act("$n sighs 'Decisions, decisions...'",
FALSE, zmaster, 0, 0, TO_ROOM);
return TRUE;
} else if (zm_stunned_followers(zmaster)) {
do_sit(zmaster, "", -1);
return TRUE;
} else if (1 == dice(1, 20)) {
act("$n searches for bodies.", FALSE, zmaster, 0, 0, TO_ROOM);
return TRUE;
} else if (0 <= (dir = find_path(zmaster->in_room,
named_object_on_ground, "corpse", -200))) {
go_direction(zmaster, dir);
return TRUE;
} else if (1 == dice(1, 5)) {
struct follow_type *pfft;
int x, y;
int top, bottom, zone;
struct follow_type *ack;
struct room_data *rp;
int room;
x= 0;
for (pfft = zmaster->followers; pfft; pfft = pfft->next)
x++;
if(x > 50) {
aprintf("\n\rA loud feminine voice, dripping with malice, suddenly booms out!\n\r'I, Xenthia, have returned to take my revenge upon Eli! He shall regret the\n\rday he spurned me and renounced our love!!!'\n\r\n\rThe wind dies and you hear the shuffling of many feet in the land around you.\n\r\n\r");
for (y= x; y> 5; y--) {
do {
/* zone 10 is Shylar, 11 is Grasslands */
bottom= zone_table[9].top+1;
top= zone_table[10].top;
room= number(bottom, top);
rp= real_roomp(room);
fprintf(stderr, "Selecting zombie %d room... [#%d]\r", y, room);
} while (!rp || IS_SET(rp->room_flags, (NO_MOB|PEACEFUL|PRIVATE)));
fprintf(stderr, "Got zombie %d room... [#%d]\n", y, room);
ack= zmaster->followers;
if(!ack)
break;
zmaster->followers= ack->next;
ack->follower->master = NULL;
REMOVE_BIT(ack->follower->specials.affected_by, AFF_CHARM | AFF_GROUP | AFF_FLYING);
#if 0
stop_follower(ack);
#endif
REMOVE_BIT(ack->follower->specials.act, ACT_GUARDIAN);
SET_BIT(ack->follower->specials.act, ACT_AGGRESSIVE|ACT_ANNOYING);
char_to_room(ack->follower, room);
act("A gash of reddish light opens and $N stumbles through!",
FALSE, ack->follower, 0, ack->follower, TO_ROOM);
free(ack); /* in stop_follower code... sure? */
}
return TRUE;
} else if( x >= 40) {
aprintf("\n\rXenthia shouts, 'Soon Eli! I shall make you PAY for your crimes!'\n\r\n\r");
return TRUE;
} else {
act("$n can't find any bodies.", FALSE, zmaster, 0, 0, TO_ROOM);
return TRUE;
}
} else {
mobile_wander(zmaster);
}
}
return FALSE;
}
int pet_shops(struct char_data *ch, int cmd, char *arg)
{
char buf[MAX_STRING_LENGTH], pet_name[256];
int pet_room;
struct char_data *pet;
pet_room = ch->in_room + 1;
if (cmd == 59) { /* List */
send_to_char("Available pets are:\n\r", ch);
for (pet = real_roomp(pet_room)->people; pet; pet = pet->next_in_room) {
sprintf(buf, "%8d - %s\n\r", 10 * GET_EXP(pet), pet->player.short_descr);
send_to_char(buf, ch);
}
return (TRUE);
} else if (cmd == 56) { /* Buy */
arg = one_argument(arg, buf);
only_argument(arg, pet_name);
/* Pet_Name is for later use when I feel like it */
if (!(pet = get_char_room(buf, pet_room))) {
send_to_char("There is no such pet!\n\r", ch);
return (TRUE);
}
if (GET_GOLD(ch) < (GET_EXP(pet) * 10)) {
send_to_char("You don't have enough gold!\n\r", ch);
return (TRUE);
}
GET_GOLD(ch) -= GET_EXP(pet) * 10;
pet = read_mobile(pet->nr, REAL);
GET_EXP(pet) = 0;
SET_BIT(pet->specials.affected_by, AFF_CHARM);
if (*pet_name) {
sprintf(buf, "%s %s", pet->player.name, pet_name);
free(pet->player.name);
pet->player.name = strdup(buf);
sprintf(buf, "%sA small sign on a chain around the neck says 'My Name is %s'\n\r",
pet->player.description, pet_name);
free(pet->player.description);
pet->player.description = strdup(buf);
}
char_to_room(pet, ch->in_room);
add_follower(pet, ch);
IS_CARRYING_W(pet) = 0;
IS_CARRYING_N(pet) = 0;
send_to_char("May you enjoy your pet.\n\r", ch);
act("$n bought $N as a pet.", FALSE, ch, 0, pet, TO_ROOM);
return (TRUE);
}
/* All commands except list and buy */
return (FALSE);
}
int bank(struct char_data *ch, int cmd, char *arg)
{
static char buf[256];
int money;
money = atoi(arg);
if (!IS_NPC(ch))
save_char(ch, ch->in_room);
/*deposit */
if (cmd == 219) {
if (money > GET_GOLD(ch)) {
send_to_char("You don't have enough for that!\n\r", ch);
return (TRUE);
} else if (money <= 0) {
send_to_char("Go away, you bother me.\n\r", ch);
return (TRUE);
} else {
send_to_char("Thank you.\n\r", ch);
GET_GOLD(ch) = GET_GOLD(ch) - money;
GET_BANK(ch) = GET_BANK(ch) + money;
sprintf(buf, "Your balance is %d.\n\r", GET_BANK(ch));
send_to_char(buf, ch);
if (GET_BANK(ch) > 200000) {
sprintf(buf, "%s has %d coins in the bank.", GET_NAME(ch), GET_BANK(ch));
log(buf);
}
return (TRUE);
}
/*withdraw */
} else if (cmd == 220) {
if (money > GET_BANK(ch)) {
send_to_char("You don't have enough in the bank for that!\n\r", ch);
return (TRUE);
} else if (money <= 0) {
send_to_char("Go away, you bother me.\n\r", ch);
return (TRUE);
} else {
send_to_char("Thank you.\n\r", ch);
GET_GOLD(ch) = GET_GOLD(ch) + money;
GET_BANK(ch) = GET_BANK(ch) - money;
sprintf(buf, "Your balance is %d.\n\r", GET_BANK(ch));
send_to_char(buf, ch);
return (TRUE);
}
} else if (cmd == 221) {
sprintf(buf, "Your balance is %d.\n\r", GET_BANK(ch));
send_to_char(buf, ch);
return (TRUE);
}
return (FALSE);
}
/* Idea of the LockSmith is functionally similar to the Pet Shop */
/* The problem here is that each key must somehow be associated */
/* with a certain player. My idea is that the players name will */
/* appear as the another Extra description keyword, prefixed */
/* by the words 'item_for_' and followed by the player name. */
/* The (keys) must all be stored in a room which is (virtually) */
/* adjacent to the room of the lock smith. */
int pray_for_items(struct char_data *ch, int cmd, char *arg)
{
char buf[256];
int key_room, gold;
BYTE found;
struct obj_data *tmp_obj, *obj;
struct extra_descr_data *ext;
if (cmd != CMD_pray) /* You must pray to get the stuff */
return FALSE;
key_room = 1 + ch->in_room;
strcpy(buf, "item_for_");
strcat(buf, GET_NAME(ch));
gold = 0;
found = FALSE;
for (tmp_obj = real_roomp(key_room)->contents;
tmp_obj;
tmp_obj = tmp_obj->next_content)
for (ext = tmp_obj->ex_description; ext; ext = ext->next)
if (str_cmp(buf, ext->keyword) == 0) {
if (gold == 0) {
gold = 1;
act("$n kneels at the altar and chants a prayer to Quixadhal.",
FALSE, ch, 0, 0, TO_ROOM);
act("You notice a faint light in Odin's eye.",
FALSE, ch, 0, 0, TO_CHAR);
}
obj = read_object(tmp_obj->item_number, REAL);
obj_to_room(obj, ch->in_room);
act("$p slowly fades into existence.", FALSE, ch, obj, 0, TO_ROOM);
act("$p slowly fades into existence.", FALSE, ch, obj, 0, TO_CHAR);
gold += obj->obj_flags.cost;
found = TRUE;
}
if (found) {
GET_GOLD(ch) -= gold;
GET_GOLD(ch) = MAX(0, GET_GOLD(ch));
return TRUE;
}
return FALSE;
}
/*
* Special procedures for objects
*/
int chalice(struct char_data *ch, int cmd, char *arg)
{
/* 222 is the normal chalice, 223 is chalice-on-altar */
struct obj_data *chalice;
char buf1[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH];
static int chl = -1, achl = -1;
if (chl < 1) {
chl = real_object(222);
achl = real_object(223);
}
switch (cmd) {
case 10: /* get */
if (!(chalice = get_obj_in_list_num(chl,
real_roomp(ch->in_room)->contents))
&& CAN_SEE_OBJ(ch, chalice))
if (!(chalice = get_obj_in_list_num(achl,
real_roomp(ch->in_room)->contents)) && CAN_SEE_OBJ(ch, chalice))
return (0);
/* we found a chalice.. now try to get us */
do_get(ch, arg, cmd);
/* if got the altar one, switch her */
if (chalice == get_obj_in_list_num(achl, ch->carrying)) {
extract_obj(chalice);
chalice = read_object(chl, VIRTUAL);
obj_to_char(chalice, ch);
}
return (1);
break;
case 67: /* put */
if (!(chalice = get_obj_in_list_num(chl, ch->carrying)))
return (0);
argument_interpreter(arg, buf1, buf2);
if (!str_cmp(buf1, "chalice") && !str_cmp(buf2, "altar")) {
extract_obj(chalice);
chalice = read_object(achl, VIRTUAL);
obj_to_room(chalice, ch->in_room);
send_to_char("Ok.\n\r", ch);
}
return (1);
break;
case 176: /* pray */
if (!(chalice = get_obj_in_list_num(achl,
real_roomp(ch->in_room)->contents)))
return (0);
do_action(ch, arg, cmd); /* pray */
send_to_char(CHAL_ACT, ch);
extract_obj(chalice);
act("$n is torn out of existence!", TRUE, ch, 0, 0, TO_ROOM);
char_from_room(ch);
char_to_room(ch, 2500); /* before the fiery gates */
do_look(ch, "", 15);
return (1);
break;
default:
return (0);
break;
}
}
int kings_hall(struct char_data *ch, int cmd, char *arg)
{
if (cmd != 176)
return (0);
do_action(ch, arg, 176);
send_to_char("You feel as if some mighty force has been offended.\n\r", ch);
send_to_char(CHAL_ACT, ch);
act("$n is struck by an intense beam of light and vanishes.",
TRUE, ch, 0, 0, TO_ROOM);
char_from_room(ch);
char_to_room(ch, 1420); /* behind the altar */
do_look(ch, "", 15);
return (1);
}
/** Perform breadth first search on rooms from start (in_room) **/
/** until end (tgt_room) is reached. Then return the correct **/
/** direction to take from start to reach end. **/
/* thoth@manatee.cis.ufl.edu
* if dvar<0 then search THROUGH closed but not locked doors,
* for mobiles that know how to open doors.
*/
static void donothing()
{
return;
}
int find_path(int in_room, int (*predicate) (), void *c_data, int depth)
{
struct room_q *tmp_q, *q_head, *q_tail;
/* struct nodes x_room[MAX_ROOMS]; */
int i, tmp_room, count = 0, thru_doors;
static struct hash_header x_room;
struct room_data *herep, *therep;
struct room_direction_data *exitp;
/* If start = destination we are done */
if ((predicate) (in_room, c_data))
return -1;
#if 0
if (top_of_world > MAX_ROOMS) {
log("TRACK Is disabled, too many rooms.\n\rContact Loki soon.\n\r");
return -1;
}
#endif
if (depth < 0) {
thru_doors = TRUE;
depth = -depth;
} else {
thru_doors = FALSE;
}
#if 0
/* zero room array */
for (i = 0; i < top_of_world && i < MAX_ROOMS; i++)
x_room[i].visited = 0;
/* mark start room as vistited */
x_room[in_room].visited = TRUE;
x_room[in_room].ancestor = -1;
#else
if (x_room.buckets) { /* junk left over from a previous track */
destroy_hash_table(&x_room, donothing);
}
init_hash_table(&x_room, sizeof(int), 2048);
hash_enter(&x_room, in_room, (void *)-1);
#endif
/* initialize queue */
q_head = (struct room_q *)malloc(sizeof(struct room_q));
q_tail = q_head;
q_tail->room_nr = in_room;
q_tail->next_q = 0;
while (q_head) {
herep = real_roomp(q_head->room_nr);
/* for each room test all directions */
for (i = 0; i < MAX_NUM_EXITS; i++) {
exitp = herep->dir_option[i];
if (exit_ok(exitp, &therep) && (thru_doors ? GO_OK_SMARTER : GO_OK)) {
/* next room */
tmp_room = herep->dir_option[i]->to_room;
if (!((predicate) (tmp_room, c_data))) {
/* shall we add room to queue ? */
/* count determines total breadth and depth */
if (!hash_find(&x_room, tmp_room) && (count < depth)
&& !IS_SET(RM_FLAGS(tmp_room), DEATH)) {
count++;
/* mark room as visted and put on queue */
tmp_q = (struct room_q *)malloc(sizeof(struct room_q));
tmp_q->room_nr = tmp_room;
tmp_q->next_q = 0;
q_tail->next_q = tmp_q;
q_tail = tmp_q;
/* ancestor for first layer is the direction */
hash_enter(&x_room, tmp_room,
((int)hash_find(&x_room, q_head->room_nr) == -1) ?
(void *)(i + 1) : hash_find(&x_room, q_head->room_nr));
}
} else {
/* have reached our goal so free queue */
tmp_room = q_head->room_nr;
for (; q_head; q_head = tmp_q) {
tmp_q = q_head->next_q;
free(q_head);
}
/* return direction if first layer */
if ((int)hash_find(&x_room, tmp_room) == -1)
return (i);
else /* else return the ancestor */
return (-1 + (int)hash_find(&x_room, tmp_room));
}
}
}
/* free queue head and point to next entry */
tmp_q = q_head->next_q;
free(q_head);
q_head = tmp_q;
}
/* couldn't find path */
return (-1);
}
int choose_exit(int in_room, int tgt_room, int depth)
{
return find_path(in_room, is_target_room_p, (void *)tgt_room, depth);
}
int go_direction(struct char_data *ch, int dir)
{
if (ch->specials.fighting)
return;
if (!IS_SET(EXIT(ch, dir)->exit_info, EX_CLOSED)) {
return do_move(ch, "", dir + 1);
} else if (IsHumanoid(ch) && !IS_SET(EXIT(ch, dir)->exit_info, EX_LOCKED)) {
open_door(ch, dir);
return 0;
}
}
/*
* house routine for saved items.
*/
int House(struct char_data *ch, int cmd, char *arg)
{
struct obj_cost cost;
int i, save_room;
char *tmp_desc;
struct extra_descr_data *ext;
int found = 0;
if (IS_NPC(ch))
return (FALSE);
if (cmd != 92) {
return (FALSE);
} else {
/*
* // Verify that a person can rent here, the name of the character wil
* // be found in the extra description of the room itself, thus leaving
* // the name of the room to be what ever the owner wishes.
*/
found = 0;
for (ext = real_roomp(ch->in_room)->ex_description; ext && !found; ext = ext->next)
if (str_cmp(GET_NAME(ch), ext->keyword) == 0) {
found = 1;
send_to_char("Okay, found your name in the annals.\n\r", ch);
}
if (!found) {
if (strncmp(GET_NAME(ch), real_roomp(ch->in_room)->name, strlen(GET_NAME(ch)))) {
send_to_char("Sorry, you'll have to find your own house.\n\r", ch);
return (FALSE);
} else {
send_to_char("Ah, you own this room.\n\r", ch);
}
}
cost.total_cost = 0; /* Minimum cost */
cost.no_carried = 0;
cost.ok = TRUE; /* Use if any "-1" objects */
add_obj_cost(ch, 0, ch->carrying, &cost);
for (i = 0; i < MAX_WEAR; i++)
add_obj_cost(ch, 0, ch->equipment[i], &cost);
if (!cost.ok) {
return (FALSE);
}
cost.total_cost = 0;
GET_HOME(ch) = ch->in_room;
new_save_equipment(ch, &cost, FALSE);
save_obj(ch, &cost, 1);
save_room = ch->in_room;
extract_char(ch);
ch->in_room = save_room;
save_char(ch, ch->in_room);
return (TRUE);
}
}
int paramedics(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict, *most_hurt;
if (!cmd) {
if (ch->specials.fighting) {
return (cleric(ch, 0, ""));
} else {
if (GET_POS(ch) == POSITION_STANDING) {
/* Find a dude to do good things upon ! */
most_hurt = real_roomp(ch->in_room)->people;
for (vict = real_roomp(ch->in_room)->people; vict;
vict = vict->next_in_room) {
if (((float)GET_HIT(vict) / (float)hit_limit(vict) <
(float)GET_HIT(most_hurt) / (float)hit_limit(most_hurt))
&& (CAN_SEE(ch, vict)))
most_hurt = vict;
}
if (!most_hurt)
return (FALSE); /* nobody here */
if ((float)GET_HIT(most_hurt) / (float)hit_limit(most_hurt) >
0.66) {
if (number(0, 5) == 0) {
act("$n shrugs helplessly in unison.", 1, ch, 0, 0, TO_ROOM);
}
return TRUE; /* not hurt enough */
}
if (number(0, 4) == 0) {
if (most_hurt != ch) {
act("$n looks at $N.", 1, ch, 0, most_hurt, TO_NOTVICT);
act("$n looks at you.", 1, ch, 0, most_hurt, TO_VICT);
}
act("$n utters the words 'judicandus dies' in unison.", 1, ch, 0, 0, TO_ROOM);
cast_cure_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, most_hurt, 0);
return (TRUE);
}
} else { /* I'm asleep or sitting */
return (FALSE);
}
}
}
return (FALSE);
}
int jugglernaut(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
struct obj_data *tmp_obj;
int i, j;
if (cmd)
return (FALSE);
if (GET_POS(ch) == POSITION_STANDING) {
if (random() % 3)
return FALSE;
/* juggle something */
if (IS_CARRYING_N(ch) < 1)
return FALSE;
i = random() % IS_CARRYING_N(ch);
j = 0;
for (tmp_obj = ch->carrying; (tmp_obj) && (j < i); j++) {
tmp_obj = tmp_obj->next_content;
}
if (random() % 6) {
if (random() % 2) {
act("$n tosses $p high into the air and catches it.", TRUE, ch, tmp_obj, NULL, TO_ROOM);
} else {
act("$n sends $p whirling.", TRUE, ch, tmp_obj, NULL, TO_ROOM);
}
} else {
act("$n tosses $p but fumbles it!", TRUE, ch, tmp_obj, NULL, TO_ROOM);
obj_from_char(tmp_obj);
obj_to_room(tmp_obj, ch->in_room);
}
return (TRUE); /* don't move, I dropped something */
} else { /* I'm asleep or sitting */
return FALSE;
}
return (FALSE);
}
int delivery_beast(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *o;
if (cmd)
return (FALSE);
if (time_info.hours == 6) {
do_drop(ch, "all.loaf", 0);
do_drop(ch, "all.biscuit", 0);
} else if (time_info.hours < 2) {
if (number(0, 1)) {
o = read_object(3012, VIRTUAL);
obj_to_char(o, ch);
} else {
o = read_object(3013, VIRTUAL);
obj_to_char(o, ch);
}
} else {
if (GET_POS(ch) > POSITION_SLEEPING) {
do_sleep(ch, "", 0);
}
}
}
int StormGiant(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
if (cmd)
return (FALSE);
if (ch->specials.fighting) {
if ((GET_POS(ch) < POSITION_FIGHTING) &&
(GET_POS(ch) > POSITION_STUNNED)) {
StandUp(ch);
} else {
if (number(0, 5)) {
FighterMove(ch);
} else {
act("$n creates a lightning bolt", TRUE, ch, 0, 0, TO_ROOM);
vict = FindVictim(ch);
if (!vict)
return (FALSE);
cast_lightning_bolt(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
/* do nothing */
}
}
return (FALSE);
}
}
int firenewt(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
if (cmd)
return FALSE;
if (GET_POS(ch) != POSITION_FIGHTING)
return FALSE;
for (vict = real_roomp(ch->in_room)->people; vict; vict = vict->next_in_room)
if ((ch != vict) && (vict->specials.fighting == ch)) {
break;
}
if (!vict)
return FALSE;
return TRUE;
}
int eli_priest(struct char_data *ch, int cmd, char *arg)
{
struct char_data *vict;
int is_evil= FALSE;
int which_spell= SPELL_BLESS;
if (cmd == CMD_register) { /* register */
while (*arg && isspace(*arg))
arg++;
if (!strncmp("me", arg, 2)) {
SET_BIT(ch->specials.new_act, NEW_PLR_KILLOK);
if (IS_SET(ch->specials.new_act, NEW_PLR_TELEPORT))
REMOVE_BIT(ch->specials.new_act, NEW_PLR_TELEPORT);
if (IS_SET(ch->specials.new_act, NEW_PLR_SUMMON))
REMOVE_BIT(ch->specials.new_act, NEW_PLR_SUMMON);
GET_HIT(ch)= 1;
cprintf(ch,
"Eli gets a maniacal grin on his face as he draws forth his holy symbol.\n\r"
"You notice it is a jet black image of a gigantic axe cleaving a tree.\n\r"
"Sparkling emeralds from the leaves, and it looks like ruby red blood seeps\n\r"
"from around the axe. The black metal begins to glow brilliant red as Eli\n\r"
"incants some powerful spell over it.\n\r"
"Suddenly, Eli lunges forward and pushes the holy relic into your forehead!\n\r"
"You hear a searing sound, and feel IMMENSE PAIN... and it feels GOOD!\n\r");
aprintf("Eli shouts, 'Congratulations %s! You have registered to kill other players in the name of Dread Lord Quixadhal!'\n\r", GET_NAME(ch));
} else {
cprintf(ch,
"Registering your character as a player killer is a permenant thing, and\n\r"
"once done, it can never be undone. By entering the command: \"register me\"\n\r"
"you are agreeing to not only kill, but to be killed by other registered\n\r"
"players. No mercy or pity will be shown to you, any losses incurred\n\r"
"by your character will NOT be compensated by ANY of the Gods.\n\r");
}
return (TRUE);
}
if (cmd)
return FALSE;
if (GET_POS(ch) == POSITION_FIGHTING)
return FALSE;
if ((GET_MANA(ch) < 60) && (GET_POS(ch) != POSITION_SLEEPING)) {
act("$n falls to the ground into a deep slumber.", TRUE, ch, 0, 0, TO_ROOM);
GET_POS(ch) = POSITION_SLEEPING;
}
if ((GET_MANA(ch) > 90) && (GET_POS(ch) != POSITION_STANDING)) {
GET_POS(ch) = POSITION_STANDING;
act("$n rises to his feet from a sound sleep.", TRUE, ch, 0, 0, TO_ROOM);
return TRUE;
}
if (GET_POS(ch) == POSITION_SLEEPING)
return FALSE;
for (vict = real_roomp(ch->in_room)->people;
vict; vict = vict->next_in_room) {
if(!IS_IMMORTAL(vict)) {
if (IsUndead(vict)) {
act("$n points at $N and bellows, 'BEGONE Abomination! Flee back to Dread Quixadhal, your dark master!'",
TRUE, ch, 0, vict, TO_ROOM);
say_spell(ch, SPELL_TURN);
cast_turn(40, ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
}
if ((GET_POS(vict) != POSITION_FIGHTING) &&
(GET_POS(vict) != POSITION_SLEEPING) &&
!IS_IMMORTAL(vict)) {
if ((GET_HIT(vict) < 16) &&
(GET_MAX_HIT(vict) != GET_HIT(vict))) {
if (GET_ALIGNMENT(vict) >= 0) {
act("$n says, You are hurt $N, let me heal you.",
TRUE, ch, 0, vict, TO_ROOM);
is_evil= FALSE;
which_spell= SPELL_CURE_LIGHT;
break;
} else {
is_evil= TRUE;
if (number(0, 10) > 5) {
act("$n says, I pity you $N, let me show you the light.",
TRUE, ch, 0, vict, TO_ROOM);
which_spell= SPELL_BLESS;
break;
} else {
act("$n says, You are wicked $N, I shall not help you.",
TRUE, ch, 0, vict, TO_ROOM);
continue;
}
}
} else if ((GET_MOVE(vict) < 25) &&
(GET_MAX_MOVE(vict) != GET_MOVE(vict))) {
if (GET_ALIGNMENT(vict) >= 0) {
act("$n says, You seem tired $N, let me help you.",
TRUE, ch, 0, vict, TO_ROOM);
is_evil= FALSE;
which_spell= SPELL_REFRESH;
break;
} else {
is_evil= TRUE;
if (number(0, 10) > 5) {
act("$n says, I pity you $N, let me show you the light.",
TRUE, ch, 0, vict, TO_ROOM);
which_spell= SPELL_BLESS;
break;
} else {
act("$n says, You are wicked $N, I shall let you suffer.",
TRUE, ch, 0, vict, TO_ROOM);
continue;
}
}
} else if (IS_AFFECTED(vict, AFF_BLIND)) {
if (GET_ALIGNMENT(vict) >= 750) {
act("$n says, You seem to be blind $N, let me cure you.",
TRUE, ch, 0, vict, TO_ROOM);
is_evil= FALSE;
which_spell= SPELL_CURE_BLIND;
break;
} else {
act("$n says, You are not good enough $N, I shall let you suffer.",
FALSE, ch, 0, vict, TO_CHAR);
act("$n says, You are not good enough $N, I shall let you suffer.",
TRUE, ch, 0, vict, TO_ROOM);
continue;
}
} else if (IS_AFFECTED(vict, AFF_POISON)) {
if ((GET_ALIGNMENT(vict) >= 750) ||
((GET_ALIGNMENT(vict) >=300) && (GetMaxLevel(vict) <3))) {
act("$n says, You seem to be sick $N, let me cure you.",
TRUE, ch, 0, vict, TO_ROOM);
is_evil= FALSE;
which_spell= SPELL_REMOVE_POISON;
break;
} else {
act("$n says, You are not good enough $N, I shall let you suffer.",
TRUE, ch, 0, vict, TO_ROOM);
continue;
}
} else if (IS_VILE(vict) && (GetMaxLevel(vict) > 4)) {
act("$n screams, BEGONE foul $N, I shall not suffer your presence!",
TRUE, ch, 0, vict, TO_ROOM);
say_spell(ch, SPELL_FEAR);
cast_fear(40, ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
}
}
if (!vict) {
if (number(0, 10) > 6)
return TRUE;
switch (number(0, 20)) {
case 0:
case 1:
act("$n says, It is so nice to be back in Shylar!",
TRUE, ch, 0, 0, TO_ROOM);
break;
case 2:
case 3:
act("$n says, I heard the lands were getting tough, so I decide to move a church here.",
TRUE, ch, 0, 0, TO_ROOM);
break;
case 4:
case 5:
act("$n says, Have you been to my parish just north of Pastue's?",
TRUE, ch, 0, 0, TO_ROOM);
break;
}
return TRUE;
}
if(is_evil) {
GET_ALIGNMENT(vict) += number(20, 100);
}
switch(which_spell) {
case SPELL_BLESS:
say_spell(ch, SPELL_BLESS);
cast_bless(20, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case SPELL_CURE_LIGHT:
say_spell(ch, SPELL_CURE_LIGHT);
cast_cure_light(20, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case SPELL_REFRESH:
say_spell(ch, SPELL_REFRESH);
cast_refresh(20, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case SPELL_CURE_BLIND:
say_spell(ch, SPELL_CURE_BLIND);
cast_cure_blind(20, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case SPELL_REMOVE_POISON:
say_spell(ch, SPELL_REMOVE_POISON);
cast_remove_poison(20, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
GET_MANA(ch) -= 5;
return TRUE;
}
int fountain(struct char_data *ch, int cmd, char *arg)
{
char buf[MAX_STRING_LENGTH], tmp[MAX_INPUT_LENGTH];
if (cmd != 11)
return (0);
one_argument(arg, tmp);
if (!*tmp || !isname(tmp, "water barrel fountain pool"))
return (0);
if (GET_COND(ch, THIRST) != -1) {
if (GetMaxLevel(ch) > 50) {
GET_COND(ch, THIRST) = -1;
} else {
GET_COND(ch, THIRST) += 8;
GET_COND(ch, THIRST) = MIN(24, GET_COND(ch, THIRST));
sprintf(buf, "$n drinks from the %s.", tmp);
act(buf, TRUE, ch, 0, 0, TO_ROOM);
if (GET_COND(ch, THIRST) == 24) {
send_to_char("You are full!\n", ch);
} else
send_to_char("You drink the cool water.\n", ch);
}
}
if(number(0,99) < 5) {
switch(number(0,40)) {
case 0:
cast_armour(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 1:
cast_bless(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 2:
cast_cure_blind(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 3:
cast_cure_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 4:
cast_cure_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 5:
cast_detect_evil(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 6:
cast_detect_invisibility(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 7:
cast_detect_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 8:
cast_heal(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 9:
cast_invisibility(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 10:
cast_protection_from_evil(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 11:
cast_remove_curse(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 12:
cast_sanctuary(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 13:
cast_strength(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 14:
cast_remove_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 15:
cast_sense_life(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 16:
cast_infravision(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 17:
cast_flying(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 18:
cast_shield(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 19:
cast_cure_serious(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 20:
cast_refresh(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 21:
cast_stone_skin(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 22:
cast_aid(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 23:
cast_teleport(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 24:
cast_blindness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 25:
cast_call_lightning(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 26:
cast_chill_touch(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 27:
cast_lightning_bolt(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 28:
cast_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 29:
cast_shocking_grasp(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 30:
cast_sleep(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 31:
cast_weakness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 32:
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 33:
cast_paralyze(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 34:
cast_fear(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 35:
cast_faerie_fire(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 36:
cast_poly_self(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
default:
break;
}
}
return 1;
}
int mosquito(struct char_data *ch, int cmd, char *arg)
{
struct char_data *tch, *bloody, *i;
int blood, most_blood, lev;
char buf[MAX_STRING_LENGTH];
if (cmd || !AWAKE(ch))
return (FALSE);
if (check_peaceful(ch, ""))
return FALSE;
if (ch->specials.fighting) {
if (GET_POS(ch) != POSITION_FIGHTING) {
StandUp(ch);
}
return TRUE;
}
most_blood = 0;
bloody = 0;
for (tch = real_roomp(ch->in_room)->people; tch; tch = tch->next_in_room) {
if(IS_MOB(tch))
continue;
blood= (MAX(GET_HIT(tch),1) * 100) / MAX(GET_MAX_HIT(tch),1);
if(blood < most_blood) {
most_blood= blood;
bloody= tch;
}
}
if(bloody && number(0,99) < 75) {
if(bloody->in_room == ch->in_room)
if(IS_MORTAL(bloody) && GET_POS(bloody) > POSITION_DEAD) {
act("$n dives at $N!", TRUE, ch, 0, bloody, TO_ROOM);
hit(ch, bloody, TYPE_UNDEFINED);
return TRUE;
} else {
int gold;
if(number(0,99) < 10) {
act("$n howls in a suicide mision at $N!",
TRUE, ch, 0, bloody, TO_ROOM);
send_to_char("\nYou have DIED to a tiny mosquito!\n\r", bloody);
sprintf(buf, "The mighty %s was vanquished by a mosquito!!!\n\rA dead body hits the ground and begins to rot.\n\r", GET_NAME(bloody));
send_to_room(buf, bloody->in_room);
gold= GET_GOLD(bloody);
GET_GOLD(bloody)= 0;
make_corpse(bloody);
zero_rent(bloody);
char_from_room(bloody);
char_to_room(bloody, GET_HOME(bloody));
GET_HIT(bloody) = 1;
GET_POS(bloody) = POSITION_SLEEPING;
GET_GOLD(bloody)= gold;
save_char(bloody, NOWHERE);
sprintf(buf, "A humbled %s appears in a flash of light!\n\r", GET_NAME(bloody));
send_to_room(buf, bloody->in_room);
return FALSE;
} else {
act("$n anticipates the taste of $N's immortal blood!",
TRUE, ch, 0, bloody, TO_ROOM);
return FALSE;
}
}
}
return FALSE;
}
int BerserkerAxe(struct char_data *ch, int cmd, char *arg)
{
int try_remove = 0;
char buf[MAX_STRING_LENGTH], tmp[MAX_INPUT_LENGTH];
struct char_data *victim;
if (cmd == CMD_flee) {
if(IS_IMMORTAL(ch))
return 0;
act("$n looks abashed and then seems taken by a sudden fury!",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "You are suddenly furious at your cowardice... You fight on!\n\r");
return 1;
}
if (cmd == CMD_remove) {
if(IS_IMMORTAL(ch))
return 0;
one_argument(arg, tmp);
if (!*tmp || !isname(tmp, "druegar berserker axe"))
return 0;
act("$n clutches a gigantic axe tightly and glares at you.",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "You cannot bear to relinquish your weapon while you yet live!\n\r");
return 1;
}
if (cmd == CMD_sell) {
if(IS_IMMORTAL(ch))
return 0;
one_argument(arg, tmp);
if (!*tmp || !isname(tmp, "druegar berserker axe"))
return 0;
act("$n clutches a gigantic axe tightly and glares at you.",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "Not for all the gold in the world!\n\r");
return 1;
}
if (cmd == CMD_junk) {
if(IS_IMMORTAL(ch))
return 0;
one_argument(arg, tmp);
if (!*tmp || !isname(tmp, "druegar berserker axe"))
return 0;
act("$n seems nervous and quickly looks over a giant axe.",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "It hurts to even joke about destroying your weapon!\n\r");
return 1;
}
if (cmd == CMD_sleep) {
if(IS_IMMORTAL(ch))
return 0;
act("$n suddenly snaps to attention and begins drooling.",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "No time to sleep! There are too many things to kill!\n\r");
return 1;
}
if (cmd == CMD_rest) {
if(IS_IMMORTAL(ch))
return 0;
act("$n sits down and fidgets.",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "Just for a moment. There are things that must die!\n\r");
return 0;
}
if (cmd == CMD_cast) {
if(IS_IMMORTAL(ch))
return 0;
act("$n sneers, 'A pox on all filthy magi and their weakling spells!'",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "You have no need for weakling tricks! FIGHT!\n\r");
return 1;
}
if(IS_IMMORTAL(ch))
return 0;
if(!AWAKE(ch))
return 0;
if(check_peaceful(ch, ""))
return 0;
if(GET_POS(ch) == POSITION_FIGHTING)
return 0;
if(GET_POS(ch) == POSITION_RESTING) {
if(number(0, 99) < 50) {
act("$n jumps up and stares all around with a savage grin!",
TRUE, ch, 0, ch, TO_ROOM);
cprintf(ch, "You can't stand sitting still any longer!\n\r");
StandUp(ch);
} else {
act("$n fidgets and grumbles about death.",
TRUE, ch, 0, ch, TO_ROOM);
}
}
for (victim = real_roomp(ch->in_room)->people; victim; victim = victim->next_in_room) {
if(ch == victim)
continue;
if(IS_IMMORTAL(victim))
continue;
if(!CheckKill(ch, victim))
continue;
if(GetMaxLevel(victim) > MAX(5, (2* GetMaxLevel(ch))))
continue;
if(IS_NPC(ch))
if(GetMaxLevel(victim) < (GetMaxLevel(ch) / 2))
continue;
if(GET_RACE(victim) == RACE_DWARF)
continue;
if(GET_RACE(victim) == RACE_ELVEN) {
act("$n charges $N, screaming 'DIE Filthy ELF!!!",
TRUE, ch, 0, victim, TO_ROOM);
cprintf(ch, "Puny %s is elven! You must KILL!!!!\n\r",
NAME(victim));
hit(ch, victim, TYPE_UNDEFINED);
return 1;
}
if(number(0, 99) < 50)
break;
}
if(victim) {
if(number(0, 99) < 40) {
act("$n charges $N, screaming 'You MUST DIE!!!",
TRUE, ch, 0, victim, TO_ROOM);
cprintf(ch, "You cannot control your hatred of %s, Arrrghh!\n\r",
NAME(victim));
hit(ch, victim, TYPE_UNDEFINED);
return 1;
} else {
act("$n stares at $N with undisguised contempt.",
TRUE, ch, 0, victim, TO_ROOM);
return 0;
}
}
return 0;
}
/*
* Assignments
*/
/* assign special procedures to mobiles */
void assign_mobiles(void)
{
int i, rnum;
char buf[MAX_STRING_LENGTH];
for (i = 0; specials_m[i].vnum >= 0; i++) {
rnum = real_mobile(specials_m[i].vnum);
if (rnum < 0) {
sprintf(buf, "mobile_assign: Mobile %d not found in database.",
specials_m[i].vnum);
log(buf);
} else {
mob_index[rnum].func = specials_m[i].proc;
/* sprintf(buf, "mobile_assign: Mobile %d assigned function %d.",
specials_m[i].vnum,specials_m[i].proc);
log(buf); */
}
}
boot_the_shops();
assign_the_shopkeepers();
}
/* assign special procedures to objects */
void assign_objects(void)
{
int i, onum;
for (i = 0; specials_o[i].vnum >= 0; i++) {
onum = real_object(specials_o[i].vnum);
if (onum < 0) {
log("negative object index?");
} else {
obj_index[onum].func = specials_o[i].proc;
}
}
InitBoards();
}
/* assign special procedures to rooms */
void assign_rooms(void)
{
int i;
struct room_data *rp;
for (i = 0; specials_r[i].vnum >= 0; i++) {
rp = real_roomp(specials_r[i].vnum);
if (rp == NULL) {
log("assign_rooms: unknown room");
} else
rp->funct = specials_r[i].proc;
}
}
char *name_special_proc(int type, int vnum)
{
register int i;
struct special_proc_entry *spec;
if(vnum<0)
return "Invalid VNUM";
switch(type) {
case SPECIAL_MOB:
spec= specials_m;
break;
case SPECIAL_OBJ:
spec= specials_o;
break;
case SPECIAL_ROOM:
spec= specials_r;
break;
default:
return "Invalid TYPE";
}
for (i= 0; spec[i].vnum >= 0; i++)
if(spec[i].vnum == vnum)
return spec[i].name;
return "Unregistered";
}
/*
* This routine cannot be used until we have mobs that can be assigned
* classes at boot time. When this is installed, a guildmaster can train
* the class he is set to. If he is not given a class, he will be able
* to train generic skills to anyone... I may do away with this for simplicity
* of coding in the future, since the benefits are small versus the added
* conditional checking.
* NOTE: If a guildmaster is given multiple classes, the player MUST
* then type 'prac class skill' or 'gain class'. This would be trivial
* except for generic skills...
*/
void gm_wrong_class(struct char_data *master, struct char_data *vict) {
if(IS_EVIL(master)) {
if(IS_GOOD(vict)) {
cprintf(vict, "%s laughs, 'My knowledge would burn one of your ilk, BEGONE!'\n\r", NAME(master));
} else if(IS_EVIL(vict)) {
cprintf(vict, "%s says, 'I cannot help you. Leave me and seek another's aid.'\n\r", NAME(master));
} else {
cprintf(vict, "%s sneers, 'You are a fool. Go find another fool to teach you!'\n\r", NAME(master));
}
} else if(IS_GOOD(master)) {
if(IS_EVIL(vict)) {
cprintf(vict, "%s cries, 'Repent! I shall never teach one of your kind.'\n\r", NAME(master));
} else if(IS_GOOD(vict)) {
cprintf(vict, "%s says, 'I cannot help you. You follow a different path.'\n\r", NAME(master));
} else {
cprintf(vict, "%s says, 'You can learn nothing here.'\n\r", NAME(master));
}
} else {
cprintf(vict, "%s says, 'I have nothing to teach you.'\n\r", NAME(master));
}
}
void gm_wrong_alignment(struct char_data *master, struct char_data *vict) {
if(IS_REALLY_VILE(master)) {
if(IS_VERY_GOOD(vict)) {
act("$n screams 'How dare you insult my presence, DIE!'", FALSE, master, 0, 0, TO_ROOM);
hit(master, vict, TYPE_UNDEFINED);
} else if(IS_GOOD(vict)) {
cprintf(vict, "%s cackles, 'Leave now, while you still cling to life!'\n\r", NAME(master));
} else {
cprintf(vict, "%s smirks, 'Simpering fool! Begone, ere I feast upon your heart!'\n\r", NAME(master));
}
} else if(IS_EVIL(master)) {
if(IS_GOOD(vict)) {
cprintf(vict, "%s screams, 'BEGONE wretched minion of Light!'\n\r", NAME(master));
} else {
cprintf(vict, "%s sniffs, 'I shall have no traffic with indecisive fools!'\n\r", NAME(master));
}
} else if(IS_REALLY_HOLY(master)) {
if(IS_VERY_EVIL(vict)) {
act("$n cries 'How dare you defile this place, REPENT!'", FALSE, master, 0, 0, TO_ROOM);
hit(master, vict, TYPE_UNDEFINED);
} else if(IS_EVIL(vict)) {
cprintf(vict, "%s says, 'Go away foul wretch! There is nothing for you here.'\n\r", NAME(master));
} else {
cprintf(vict, "%s says, 'I cannot help you until you repent and reject darkness.'\n\r", NAME(master));
}
} else if(IS_GOOD(master)) {
if(IS_EVIL(vict)) {
cprintf(vict, "%s exclaims, 'You cannot learn until you can see the light!'\n\r", NAME(master));
} else {
cprintf(vict, "%s says, 'Only in the light can you find knowledge.'\n\r", NAME(master));
}
} else {
if(!IS_NEUTRAL(vict))
cprintf(vict, "%s says, 'Only in balance can we truely learn anything.'\n\r", NAME(master));
}
}
void gm_gain(struct char_data *master, struct char_data *vict, int target) {
char buf[MAX_STRING_LENGTH];
if(GET_LEVEL(vict, target) < GetMaxLevel(master)-20) {
cprintf(vict, "%s snorts, 'I will not teach such a novice!'\n\r",
NAME(master));
} else if(GET_LEVEL(vict, target) < GetMaxLevel(master)-10) {
GainLevel(master, vict, target);
} else {
cprintf(vict, "I can teach you nothing more %s.\n\r", NAME(vict));
}
}
void gm_prac(struct char_data *master, struct char_data *vict, int target, char *arg) {
register int i, number;
char buf[MAX_STRING_LENGTH];
if (!*arg) {
sprintf(buf, "You have got %d practice sessions left.\n\r",
vict->specials.pracs);
sprintf(buf + strlen(buf), "I can teach you these spells:\n\r");
for(i= 0; i< MAX_SKILLS; i++)
if(CanCastClass(vict, i, target) &&
(spell_info[i].min_level[target] <= GET_LEVEL(master, target)-10) &&
(spell_info[i].min_level[target] >= GET_LEVEL(master, target)-20)) {
sprintf(buf + strlen(buf), "[%d] %s %s \n\r",
spell_info[i].min_level[target],
spell_info[i].name, how_good(vict->skills[i].learned));
}
page_string(vict->desc, buf, 1);
return;
}
if((number= GetSpellByName(arg))== -1) {
cprintf(vict, "I have never heard of this spell...\n\r");
return;
}
if(spell_info[number].min_level[target] < GET_LEVEL(master, target)-20) {
cprintf(vict, "It would be beneath me to teach you such drivel!\n\r");
return;
}
if(GET_LEVEL(master, target)-10 < spell_info[number].min_level[target]) {
cprintf(vict, "I have not yet mastered that spell.\n\r");
return;
}
if(GET_LEVEL(vict, target) < spell_info[number].min_level[target]) {
cprintf(vict, "You are too frail to cast this spell.\n\r");
return;
}
if(vict->specials.pracs <= 0) {
cprintf(vict, "You do not seem to be able to practice now.\n\r");
return;
}
if(vict->skills[number].learned >= 95) {
cprintf(vict, "You know it as well as I!\n\r");
return;
}
cprintf(vict, "You Practice for a while...\n\r");
vict->specials.pracs--;
if((vict->skills[number].learned +=
(int_app[GET_INT(vict)].learn + fuzz(1))) >= 95) {
vict->skills[number].learned= 95;
cprintf(vict, "You are now a master of this art.\n\r");
}
}
int GuildMaster(struct char_data *ch, int cmd, char *arg) {
int number, percent;
char buf[MAX_INPUT_LENGTH];
struct char_data *master;
register int i, myclasses, yourclasses, targetclass;
char *argument;
if (!cmd) { /* actions of the guildmaster himself */
return FALSE;
}
if ((cmd != CMD_practice) && (cmd != CMD_gain))
return FALSE;
if(!(master= FindMobInRoomWithFunction(ch->in_room, GuildMaster)))
return FALSE;
myclasses= HowManyClasses(master);
yourclasses= HowManyClasses(ch);
if(!myclasses) { /* I teach only generic skills */
} else if(myclasses > 1){ /* you might learn more than one class from me */
if(yourclasses > 1) { /* you must specify which class */
if(!arg) {
cprintf(ch, "%s asks, 'But for which class?'\n\r", NAME(master));
return TRUE;
}
argument= one_argument(arg, buf);
targetclass= -1;
for(i= 0; i< ABS_MAX_CLASS; i++)
if(is_abbrev(buf, class_name[i]))
if(targetclass == -1)
targetclass= i;
else
break;
if(targetclass < 0) {
cprintf(ch, "%s exclaims, 'That's not any class I've heard of!'\n\r",
NAME(master));
return TRUE;
}
if(!(HasClass(master, 1<<targetclass))) {
gm_wrong_class(master, ch);
return TRUE;
}
switch(cmd) {
case CMD_gain:
gm_gain(master, ch, targetclass);
break;
case CMD_practice:
while(isspace(*argument))
argument++;
gm_prac(master, ch, targetclass, argument);
break;
default:
return FALSE;
}
return TRUE;
} else if(HasClass(master, ch->player.class)) {
targetclass= ch->player.class;
argument= arg;
switch(cmd) {
case CMD_gain:
gm_gain(master, ch, targetclass);
break;
case CMD_practice:
while(isspace(*argument))
argument++;
gm_prac(master, ch, targetclass, argument);
break;
default:
return FALSE;
}
return TRUE;
} else {
gm_wrong_class(master, ch);
return TRUE;
}
} else { /* you must possess my class */
if(HasClass(ch, master->player.class)) {
targetclass= ch->player.class;
argument= arg;
switch(cmd) {
case CMD_gain:
gm_gain(master, ch, targetclass);
break;
case CMD_practice:
while(isspace(*argument))
argument++;
gm_prac(master, ch, targetclass, argument);
break;
default:
return FALSE;
}
return TRUE;
} else { /* I can teach you nothing */
gm_wrong_class(master, ch);
return TRUE;
}
}
}
void ng_zap_spell(struct char_data *ch, struct char_data *vict, int maxlevel) {
if(!ch || !vict)
return;
if(GET_POS(vict) <= POSITION_DEAD)
return;
switch(number(0, maxlevel/2)) {
case 27 ... 30:
say_spell(ch, SPELL_ENERGY_DRAIN);
cast_energy_drain(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 24 ... 26:
say_spell(ch, SPELL_HARM);
cast_harm(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 22 ... 23:
say_spell(ch, SPELL_PARALYSIS);
cast_paralyze(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 20 ... 21:
say_spell(ch, SPELL_CURSE);
case_curse(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 18 ... 19:
say_spell(ch, SPELL_POISON);
cast_poison(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 16 ... 17:
say_spell(ch, SPELL_CALL_LIGHTNING);
cast_call_lightning(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 15:
say_spell(ch, SPELL_FLAMESTRIKE);
cast_flamestrike(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 14:
say_spell(ch, SPELL_CAUSE_CRITICAL);
cast_cause_critical(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 12 ... 13:
say_spell(ch, SPELL_LIGHTNING_BOLT);
cast_lightning_bolt(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 11:
say_spell(ch, SPELL_FEAR);
cast_fear(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 9 ... 10:
say_spell(ch, SPELL_BLINDNESS);
cast_blindness(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 8:
say_spell(ch, SPELL_DISPEL_MAGIC);
cast_dispel_magic(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 6 ... 7:
say_spell(ch, SPELL_ACID_BLAST);
cast_acid_blast(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 5:
say_spell(ch, SPELL_WEAKNESS);
cast_weakness(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 4:
say_spell(ch, SPELL_CHILL_TOUCH);
cast_chill_touch(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 2 ... 3:
say_spell(ch, SPELL_MAGIC_MISSILE);
cast_magic_missile(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 1:
say_spell(ch, SPELL_SHOCKING_GRASP);
cast_shocking_grasp(maxlevel, ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
default:
act("$N screams 'You won't get away with this $n!'", TRUE, myself, 0, myself->specials.fighting, TO_ROOM);
break;
}
}
void ng_zap_area(struct char_data *myself, int maxlevel) {
if(!myself->specials.fighting)
return;
if(GET_POS(myself->specials.fighting) <= POSITION_DEAD)
return;
switch(number(0, GetMaxLevel(myself)/2)) {
case 20 .. 30:
say_spell(myself, SPELL_METEOR_SWARM);
case_meteor_swarm(maxlevel, myself, "", SPELL_TYPE_SPELL, myself->specials.fighting, 0);
break;
case 18 ... 19:
say_spell(myself, SPELL_FIREBALL);
case_fireball(maxlevel, myself, "", SPELL_TYPE_SPELL, myself->specials.fighting, 0);
break;
case 15 ... 17:
say_spell(myself, SPELL_CONE_OF_COLD);
cast_cone_of_cold(maxlevel, myself, "", SPELL_TYPE_SPELL, myself->specials.fighting, 0);
break;
case 11 ... 14:
say_spell(myself, SPELL_ICE_STORM);
cast_ice_storm(maxlevel, myself, "", SPELL_TYPE_SPELL, myself->specials.fighting, 0);
break;
case 6 ... 10:
say_spell(myself, SPELL_COLOUR_SPRAY);
cast_colour_spray(maxlevel, myself, "", SPELL_TYPE_SPELL, myself->specials.fighting, 0);
break;
case 1 ... 5:
say_spell(myself, SPELL_BURNING_HANDS);
cast_burning_hands(maxlevel, myself, "", SPELL_TYPE_SPELL, myself->specials.fighting, 0);
default:
act("$N flails about blindly and curses the name of $n.", TRUE, myself, 0, myself->specials.fighting, TO_ROOM);
break;
}
}
void ng_followers_assist(struct char_data * myself, struct char_data * target)
{
struct follow_type *fwr;
struct follow_type *other;
int gotem;
if(!myself->followers)
return;
if(GET_POS(target) <= POSITION_DEAD)
return;
for (fwr = myself->followers; fwr; fwr = fwr->next)
if (IS_AFFECTED(fwr->follower, AFF_CHARM) &&
fwr->follower->specials.fighting == NULL &&
fwr->follower->in_room == target->in_room)
if (GET_POS(fwr->follower) == POSITION_STANDING) {
if(number(0,99) < 50)
hit(fwr->follower, target, TYPE_UNDEFINED);
else
if(!(other = target->followers))
if(!(other = target->master))
hit(fwr->follower, target, TYPE_UNDEFINED);
else
if(fwr->follower->in_room == other->in_room)
hit(fwr->follower, other, TYPE_UNDEFINED);
else
hit(fwr->follower, target, TYPE_UNDEFINED);
else {
gotem= 0;
for(other = target->followers; other; other = other->next)
if(other->follower->in_room == fwr->follower->in_room)
if(number(0,99) < 75) {
hit(fwr->follower, other->follower, TYPE_UNDEFINED);
gotem= 1;
}
if(!gotem)
hit(fwr->follower, target, TYPE_UNDEFINED);
}
} else if (GET_POS(fwr->follower) > POSITION_SLEEPING &&
GET_POS(fwr->follower) < POSITION_FIGHTING) {
do_stand(fwr->follower, "", -1);
}
}
int ng_kill_aggressor(struct char_data *myself)
{
struct follow_type *fwr;
int maxlevel, health;
if(check_peaceful(myself, ""))
return FALSE;
maxlevel= GetMaxLevel(myself);
health= MAX(1,GET_HIT(myself))*100 / MAX(1,GET_MAX_HIT(myself));
if (myself->specials.fighting && (myself->specials.fighting->in_room == myself->in_room)) {
ng_followers_assist(myself, myself->specials.fighting);
if(IS_AFFECTED(myself, AFF_PARALYSIS)) {
if(IsMagical(myself)) {
if(health > 50) {
act("$n grunts 'I shall be FREE!'", FALSE, myself, 0, 0, TO_ROOM);
say_spell(myself, SPELL_REMOVE_PARALYSIS);
cast_remove_paralysis(maxlevel, myself, "", SPELL_TYPE_SPELL, myself, 0);
} else {
say_spell(myself, SPELL_TELEPORT);
cast_teleport(maxlevel, myself, "", SPELL_TYPE_SPELL, myself, 0);
}
} else {
act($n bellow 'HELP! My Brethern, Come destroy $N!'", FALSE,
myself, 0, myself->specials.fighting, TO_ROOM);
CallForAGuard(myself, myself->specials.fighting, maxlevel/3);
}
return TRUE;
}
if(IS_AFFECTED(myself, AFF_BLINDNESS)) {
if (GET_POS(myself) < POSITION_FIGHTING)
StandUp(myself);
if(IsMagical(myself)) {
if(health > 50) {
if(number(0, 99) < 40) {
act("$n growls 'I can still SMELL you!'", FALSE, myself, 0, 0, TO_ROOM);
say_spell(myself, SPELL_CURE_BLIND);
cast_cure_blind(maxlevel, myself, "", SPELL_TYPE_SPELL, myself, 0);
} else {
if(IS_EVIL(myself)) {
act("$n screams 'You will DIE for that!'", FALSE, myself, 0, 0, TO_ROOM);
ng_zap_area(myself, maxlevel);
} else {
say_spell(myself, SPELL_TELEPORT);
cast_teleport(maxlevel, myself, "", SPELL_TYPE_SPELL, myself, 0);
}
}
} else {
CallForAGuard(myself, myself->specials.fighting, maxlevel/4);
if(IsFighter(myself))
FighterMove(myself);
}
}
return TRUE;
}
if (GET_POS(myself) < POSITION_FIGHTING) {
StandUp(myself);
return TRUE;
}
if(health < 35) {
if(IsMagical(myself)) {
CallForAGuard(myself, myself->specials.fighting, maxlevel/4);
if(number(0,99) < 40) {
say_spell(myself, SPELL_TELEPORT);
cast_teleport(maxlevel, myself, "", SPELL_TYPE_SPELL, myself->specials.fighting, 0);
} else {
say_spell(myself, SPELL_TELEPORT);
cast_teleport(maxlevel, myself, "", SPELL_TYPE_SPELL, myself, 0);
}
} else {
CallForAGuard(myself, myself->specials.fighting, maxlevel/4);
if(IsFighter(myself))
FighterMove(myself);
}
} else {
if(IsMagical(myself))
ng_zap_spell(myself, myself->specials.fighting, maxlevel);
else if(IsFighter(myself))
FighterMove(myself);
}
return TRUE;
}
/* Okay... now WE are not fighting... are our followers (if any)? */
for (fwr = myself->followers; fwr; fwr = fwr->next)
if (fwr->follower->specials.fighting &&
(fwr->follower->specials.fighting->in_room == myself->in_room) &&
IS_AFFECTED(fwr->follower, AFF_CHARM)) {
act("$n shouts 'HEY! That is my friend! DIE!!!'", FALSE,
myself, 0, 0, TO_ROOM);
ng_followers_assist(myself, fwr->follower->specials.fighting);
if(GetMaxLevel(fwr->follower->specials.fighting) <=
(maxlevel / IsFighter(myself)?1:2)) {
if(IsMagical(myself))
ng_zap_spell(myself, fwr->follower->specials.fighting, maxlevel);
else if(IsFighter(myself))
hit(myself, fwr->follower->specials.fighting, TYPE_UNDEFINED);
return TRUE;
}
}
return FALSE;
}
/* The new guards should be MUCH more intelligent than the older staff.
* I'm hoping to make one single routine that handles both good and
* wicked guards... and that also handles pure fighters along with
* magi and clergy. Pretty ambitious eh?
*/
int new_guards(struct char_data *ch, int cmd, char *arg) {
struct char_data *myself;
if(!ch || ch->in_room == NOWHERE) return FALSE;
if(!(myself = find_mobile_here_with_spec_proc(new_guards, ch->in_room)))
return FALSE;
if(cmd != 0 || ch != myself || !AWAKE(ch))
return FALSE;
if(ng_kill_aggressor(myself)) /* attackers get our FULL attention */
return TRUE;
if(ng_kill_hated(myself)) /* special hated creatures are next on the list */
return TRUE;
if(ng_check_health(myself)) /* otherwise, keep ourselves healthy */
return TRUE;
return ng_random_actions(myself);
}
