/*
SillyMUD Distribution V1.1b (c) 1993 SillyMUD Developement
See license.doc for distribution terms. SillyMUD is based on DIKUMUD
*/
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include "protos.h"
/* external vars */
extern struct room_data *world;
extern struct char_data *character_list;
extern struct descriptor_data *descriptor_list;
extern struct index_data *obj_index;
extern struct time_info_data time_info;
extern struct index_data *mob_index;
extern struct weather_data weather_info;
extern int top_of_world;
extern struct int_app_type int_app[26];
extern struct title_type titles[4][ABS_MAX_LVL];
extern char *dirs[];
extern int gSeason; /* what season is it ? */
/* extern procedures */
/* Bjs Shit Begin */
#define Bandits_Path 2180
#define BASIL_GATEKEEPER_MAX_LEVEL 10
#define Fountain_Level 20
#define CMD_SAY 17
#define CMD_ASAY 169
int ghost(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
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 druid_protector(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
static int b=1; /* use this as a switch, to avoid double challenges */
if (cmd) {
if (cmd<=6 && cmd>=1 && IS_PC(ch)) {
if (b) {
b = 0;
send_to_char("Basil Great Druid looks at you\n\r", ch);
if ((ch->in_room == Bandits_Path ) && (cmd == 1)) {
if ((BASIL_GATEKEEPER_MAX_LEVEL < GetMaxLevel(ch)) &&
(GetMaxLevel(ch) < LOW_IMMORTAL)) {
if (!check_soundproof(ch)) {
act("Basil the Great Druid tells you 'Begone Unbelievers!'",
TRUE, ch, 0, 0, TO_CHAR);
}
act("Basil Great Druid grins evilly.", TRUE, ch, 0, 0, TO_CHAR);
return(TRUE);
}
}
} else {
b = 1;
}
return(FALSE);
} /* cmd 1 - 6 */
return(FALSE);
} else {
if (ch->specials.fighting) {
if ((GET_POS(ch) < POSITION_FIGHTING) &&
(GET_POS(ch) > POSITION_STUNNED)){
StandUp(ch);
} else {
FighterMove(ch);
}
return(FALSE);
}
}
return(FALSE);
} /* end druid_protector */
int Magic_Fountain(struct char_data *ch, int cmd, char *arg, struct room_data *rp, int type)
{
char buf[MAX_INPUT_LENGTH];
extern int drink_aff[][3];
extern struct weather_data weather_info;
void name_to_drinkcon(struct obj_data *obj,int type);
void name_from_drinkcon(struct obj_data *obj);
if (cmd==11) { /* drink */
only_argument(arg,buf);
if (str_cmp(buf, "fountain") && str_cmp(buf, "water")) {
return(FALSE);
}
send_to_char("You drink from the fountain\n\r", ch);
act("$n drinks from the fountain", FALSE, ch, 0, 0, TO_ROOM);
if(GET_COND(ch,THIRST)>20) {
act("You do not feel thirsty.",FALSE,ch,0,0,TO_CHAR);
return(TRUE);
}
if(GET_COND(ch,FULL)>20) {
act("You do are full.",FALSE,ch,0,0,TO_CHAR);
return(TRUE);
}
GET_COND(ch,THIRST) = 24;
GET_COND(ch,FULL)+=1;
switch (number(0, 40)) {
/* Lets try and make 1-10 Good, 11-26 Bad, 27-40 Nothing */
case 1:
cast_refresh(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 2:
cast_stone_skin(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 3:
cast_cure_serious(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 4:
cast_cure_light(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 5:
cast_armor(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 6:
cast_bless(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 7:
cast_invisibility(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 8:
cast_strength(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 9:
cast_remove_poison(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 10:
cast_true_seeing(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
/* Time for the nasty Spells */
case 11:
cast_dispel_magic(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 12:
cast_teleport(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 13:
cast_web(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 14:
cast_curse(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 15:
cast_blindness(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 16:
cast_weakness(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 17:
cast_poison(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 18:
cast_cause_light(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 19:
cast_cause_critic(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 20:
cast_dispel_magic(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 21:
cast_magic_missile(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 22:
cast_faerie_fire(Fountain_Level, ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 23:
cast_flamestrike(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 24:
cast_burning_hands(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 25:
cast_acid_blast(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 26:
cast_energy_drain(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
/* And of course nothing */
default:
send_to_char("The fluid tastes like dry sand in your mouth.\n\r", ch);
break;
}
return(TRUE);
}
/* All commands except fill and drink */
return(FALSE);
}
/* Bjs Shit End */
int DruidAttackSpells(struct char_data *ch, struct char_data *vict, int level)
{
switch(level) {
case 1:
case 2:
case 3:
case 4:
case 5:
case 6:
case 7:
act("$n utters the words 'yow!'", 1, ch, 0, 0, TO_ROOM);
cast_cause_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
break;
case 8:
case 9:
case 10:
case 11:
case 12:
case 13:
if (!IS_SET(vict->M_immune, AFF_POISON) &&
!IS_AFFECTED(vict, AFF_POISON)){
act("$n utters the words 'yuk'", 1, ch, 0, 0, TO_ROOM);
cast_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
} else {
act("$n utters the words 'ouch'", 1, ch, 0, 0, TO_ROOM);
cast_cause_serious(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
}
break;
case 14:
case 15:
case 16:
case 17:
case 18:
case 19:
case 20:
case 21:
act("$n utters the words 'OUCH!'", 1, ch, 0, 0, TO_ROOM);
cast_cause_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
case 22:
case 23:
case 24:
case 25:
case 26:
case 27:
case 28:
case 29:
case 30:
case 31:
case 32:
case 33:
case 34:
case 35:
case 36:
case 37:
case 38:
case 39:
case 40:
case 41:
case 42:
case 43:
case 44:
if (!IS_SET(vict->M_immune, IMM_FIRE)) {
act("$n utters the words 'fwoosh'", 1, ch, 0, 0, TO_ROOM);
cast_firestorm(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(FALSE);
} else {
act("$n utters the words 'OUCH!'", 1, ch, 0, 0, TO_ROOM);
cast_cause_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
}
break;
default:
act("$n utters the words 'kazappapapapa'", 1, ch, 0, 0, TO_ROOM);
cast_chain_lightn(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
break;
}
}
int Summoner(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
extern struct descriptor_data *descriptor_list;
struct descriptor_data *d;
struct char_data *targ=0;
struct char_list *i;
char buf[128];
extern char EasySummon;
if (cmd || !AWAKE(ch))
return(FALSE);
if (check_soundproof(ch)) return(FALSE);
if (ch->specials.fighting) return(FALSE);
if (check_nomagic(ch, 0, 0))
return(TRUE);
/*
** wait till at 75% of hitpoints.
*/
if (GET_HIT(ch) > ((GET_MAX_HIT(ch)*3)/4)) {
/*
** check for hatreds
*/
if (IS_SET(ch->hatefield, HATE_CHAR)) {
if (ch->hates.clist) {
for (i = ch->hates.clist; i; i = i->next) {
if (i->op_ch) { /* if there is a char_ptr */
targ = i->op_ch;
if (IS_PC(targ)) {
sprintf(buf, "You hate %s\n\r", targ);
send_to_char(buf, ch);
break;
}
} else { /* look up the char_ptr */
for (d=descriptor_list; d; d = d->next) {
if (d->character && i->name && (strcmp(GET_NAME(d->character), i->name)==0)) {
targ = d->character;
break;
}
}
}
}
}
}
if (targ) {
act("$n utters the words 'Your ass is mine!'.",
1, ch, 0, 0, TO_ROOM);
if (EasySummon == 1) {
spell_summon(GetMaxLevel(ch), ch, targ, 0);
} else {
if (GetMaxLevel(ch) < 32) {
if (number(0,10)) {
do_say(ch, "Curses! Foiled again!\n\r", 0);
return(0);
}
}
spell_astral_walk(GetMaxLevel(ch), ch, targ, 0);
}
if (targ->in_room == ch->in_room) {
if (NumCharmedFollowersInRoom(ch) > 0) {
sprintf(buf, "followers kill %s", GET_NAME(targ));
do_order(ch, buf, 0);
}
hit(ch, targ, 0);
}
return(FALSE);
} else {
return(FALSE);
}
} else {
return(FALSE);
}
}
int monk(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
if (cmd || !AWAKE(ch))
return(FALSE);
if (ch->specials.fighting) {
MonkMove(ch);
}
return(FALSE);
}
typedef struct T1000_data {
int state;
struct char_data *vict;
} T1000_data;
#if 0
#define T1000_SEARCHING 0
#define T1000_HUNTING 1
int T1000( struct char_data *ch, char *line, int cmd, struct char_data *mob, int type)
{
int count;
struct descriptor_data *i;
extern struct descriptor_data *descriptor_list;
if (ch->specials.hunting == 0)
ch->generic = T1000_SEARCHING;
switch(ch->generic) {
case T1000_SEARCHING: {
count = number(0,200);
for (i = descriptor_list; count>0; i= i->next) {
if (!i) {
i = descriptor_list;
}
}
if (i) {
ch->specials.hunting = i->character;
ch->generic = T1000_HUNTING;
}
}
case T1000_HUNTING: {
if (ch->in_room == ch->specials.hunting->in_room) {
} else {
}
}
}
}
#endif
void invert(char *arg1, char *arg2)
{
register int i = 0;
register int len = strlen(arg1) - 1;
while(i <= len) {
*(arg2 + i) = *(arg1 + (len - i));
i++;
}
*(arg2 + i) = '\0';
}
int jive_box(struct char_data *ch, int cmd, char *arg, struct obj_data *obj, int type)
{
char buf[255], buf2[255], buf3[255], tmp[255];
if (type != PULSE_COMMAND)
return(FALSE);
switch(cmd) {
case 17:
case 169: invert(arg, buf);
do_say(ch, buf, cmd);
return(TRUE);
break;
case 19: half_chop(arg, tmp, buf);
invert(buf, buf2);
sprintf(buf3, "%s %s", tmp, buf);
do_tell(ch, buf3, cmd);
return(TRUE);
break;
case 18: invert(arg, buf);
do_shout(ch, buf, cmd);
return(TRUE);
break;
default: return(FALSE);
}
}
int magic_user(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
struct char_data *vict;
byte lspell;
char buf[200];
if (cmd || !AWAKE(ch) || IS_AFFECTED(ch, AFF_PARALYSIS))
return(FALSE);
if (!ch->specials.fighting && !IS_PC(ch)) {
SET_BIT(ch->player.class, CLASS_MAGIC_USER);
if (GetMaxLevel(ch) < 25)
return FALSE;
else {
if (!ch->desc) {
if (Summoner(ch, cmd, arg, mob, type))
return(TRUE);
else {
if (NumCharmedFollowersInRoom(ch) < 5 && IS_SET(ch->hatefield, HATE_CHAR)) {
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum7(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
}
}
}
return;
}
}
if (!ch->specials.fighting)
return;
if (!IS_PC(ch)) {
if ((GET_POS(ch) > POSITION_STUNNED) &&
(GET_POS(ch) < POSITION_FIGHTING)) {
if (GET_HIT(ch) > GET_HIT(ch->specials.fighting)/2)
StandUp(ch);
else {
StandUp(ch);
do_flee(ch, "\0", 0);
}
return(TRUE);
}
}
if (check_soundproof(ch)) return(FALSE);
if (check_nomagic(ch, 0, 0))
return(FALSE);
/* 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 (!IS_PC(ch)) {
lspell+= GetMaxLevel(ch)/5; /* weight it towards the upper levels of
the mage's range */
}
lspell = MIN(GetMaxLevel(ch), lspell);
/*
** check your own problems:
*/
if (lspell < 1)
lspell = 1;
if (IS_AFFECTED(ch, AFF_BLIND) && (lspell > 15)) {
act("$n utters the words 'Let me see the light!'.",
TRUE, ch, 0, 0, TO_ROOM);
cast_cure_blind(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return TRUE;
}
if (IS_AFFECTED(ch, AFF_BLIND))
return(FALSE);
if ((IS_AFFECTED(vict, AFF_SANCTUARY)) && (lspell > 10) &&
(GetMaxLevel(ch) > (GetMaxLevel(vict)))) {
act("$n utters the words 'Use MagicAway Instant Magic Remover'.",
1, ch, 0, 0, TO_ROOM);
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(FALSE);
}
if ((IS_AFFECTED(vict, AFF_FIRESHIELD)) && (lspell > 10) &&
(GetMaxLevel(ch) > (GetMaxLevel(vict)))) {
act("$n utters the words 'Use MagicAway Instant Magic Remover'.",
1, ch, 0, 0, TO_ROOM);
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(FALSE);
}
if (!IS_PC(ch)) {
if ((GET_HIT(ch) < (GET_MAX_HIT(ch) / 4)) && (lspell > 28) &&
!IS_SET(ch->specials.act, ACT_AGGRESSIVE)) {
act("$n checks $s watch.", TRUE, ch, 0, 0, TO_ROOM);
act("$n utters the words 'Oh my, would you just LOOK at the time!'",
1, ch, 0, 0, TO_ROOM);
vict = FindMobDiffZoneSameRace(ch);
if (vict) {
spell_teleport_wo_error(GetMaxLevel(ch), ch, vict, 0);
return(TRUE);
}
cast_teleport(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return(FALSE);
}
}
if (!IS_PC(ch)) {
if ((GET_HIT(ch) < (GET_MAX_HIT(ch) / 4)) && (lspell > 15) &&
(!IS_SET(ch->specials.act, ACT_AGGRESSIVE))) {
act("$n utters the words 'Woah! I'm outta here!'",
1, ch, 0, 0, TO_ROOM);
cast_teleport(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return(FALSE);
}
}
if (GET_HIT(ch) > (GET_MAX_HIT(ch) / 2) &&
!IS_SET(ch->specials.act, ACT_AGGRESSIVE) &&
GetMaxLevel(vict) < GetMaxLevel(ch) && (number(0,1))) {
/*
** Non-damaging case:
*/
if (((lspell>8) && (lspell<50)) && (number(0,6)==0)) {
act("$n utters the words 'Icky Sticky!'.", 1, ch, 0, 0, TO_ROOM);
cast_web(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
if (((lspell>5) && (lspell<10)) && (number(0,6)==0)) {
act("$n utters the words 'You wimp'.", 1, ch, 0, 0, TO_ROOM);
cast_weakness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
if (((lspell>5) && (lspell<10)) && (number(0,7)==0)) {
act("$n utters the words 'Bippety boppity Boom'.",1,ch,0,0,TO_ROOM);
cast_armor(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return TRUE;
}
if (((lspell>12) && (lspell<20)) && (number(0,7)==0)) {
act("$n utters the words '&#%^^@%*#'.", 1, ch, 0, 0, TO_ROOM);
cast_curse(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
if (((lspell>10) && (lspell < 20)) && (number(0,5)==0)) {
act("$n utters the words 'yabba dabba do'.", 1, ch, 0, 0, TO_ROOM);
cast_blindness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return TRUE;
}
if (((lspell>8) && (lspell < 40)) && (number(0,5)==0) &&
(vict->specials.fighting != ch)) {
act("$n utters the words 'You are getting sleepy'.",
1, ch, 0, 0, TO_ROOM);
cast_charm_monster(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
if (IS_AFFECTED(vict, AFF_CHARM)) {
char buf[200];
if (!vict->specials.fighting) {
sprintf(buf, "%s kill %s",
GET_NAME(vict), GET_NAME(ch->specials.fighting));
do_order(ch, buf, 0);
} else {
sprintf(buf, "%s remove all", GET_NAME(vict));
do_order(ch, buf, 0);
}
}
}
/*
** The really nifty case:
*/
switch(lspell) {
case 1:
case 2:
case 3:
case 4:
case 5:
case 6:
case 7:
case 8:
case 9:
case 10:
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum1(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
break;
case 11:
case 12:
case 13:
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum2(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
break;
case 14:
case 15:
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum3(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
break;
case 16:
case 17:
case 18:
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum4(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
break;
case 19:
case 20:
case 21:
case 22:
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum5(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
break;
case 23:
case 24:
case 25:
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum6(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
break;
case 26:
default:
act("$n utters the words 'Here boy!'.", 1, ch, 0, 0, TO_ROOM);
cast_mon_sum7(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
do_order(ch, "followers guard on", 0);
return(TRUE);
break;
}
} else {
/*
*/
switch (lspell) {
case 1:
case 2:
act("$n utters the words 'bang! bang! pow!'.", 1, ch, 0, 0, TO_ROOM);
cast_magic_missile(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 3:
case 4:
case 5:
act("$n utters the words 'ZZZZzzzzzzTTTT'.", 1, ch, 0, 0, TO_ROOM);
cast_shocking_grasp(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 6:
case 7:
case 8:
if (ch->attackers <= 2) {
act("$n utters the words 'Icky Sticky!'.", 1, ch, 0, 0, TO_ROOM);
cast_web(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
} else {
act("$n utters the words 'Fwoosh!'.", 1, ch, 0, 0, TO_ROOM);
cast_burning_hands(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
case 9:
case 10:
act("$n utters the words 'SPOOGE!'.", 1, ch, 0, 0, TO_ROOM);
cast_acid_blast(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 11:
case 12:
case 13:
if (ch->attackers <= 2) {
act("$n utters the words 'KAZAP!'.", 1, ch, 0, 0, TO_ROOM);
cast_lightning_bolt(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
} else {
act("$n utters the words 'Ice Ice Baby!'.", 1, ch, 0, 0, TO_ROOM);
cast_ice_storm(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
case 14:
case 15:
act("$n utters the words 'Ciao!'.", 1, ch, 0, 0, TO_ROOM);
cast_teleport(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 16:
case 17:
case 18:
case 19:
case 20:
case 21:
case 22:
case 23:
case 24:
case 25:
case 26:
case 27:
case 28:
case 29:
if (ch->attackers <= 2) {
act("$n utters the words 'Look! A rainbow!'.", 1, ch, 0, 0, TO_ROOM);
cast_colour_spray(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
} else {
act("$n utters the words 'Get the sensation!'.", 1, ch, 0, 0, TO_ROOM);
cast_cone_of_cold(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
case 30:
case 31:
case 32:
case 33:
case 34:
case 35:
case 36:
case 37:
act("$n utters the words 'Hasta la vista, Baby'.", 1, ch,0,0,TO_ROOM);
cast_fireball(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 38:
case 39:
case 40:
case 41:
if (IS_EVIL(ch)) {
act("$n utters the words 'slllrrrrrrpppp'.", 1, ch, 0, 0, TO_ROOM);
cast_energy_drain(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
default:
if (ch->attackers <= 2) {
act("$n utters the words 'frag'.", 1, ch,0,0,TO_ROOM);
cast_meteor_swarm(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
} else {
act("$n utters the words 'Hasta la vista, Baby'.", 1, ch,0,0,TO_ROOM);
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 *mob, int type)
{
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 (check_soundproof(ch)) return(FALSE);
if (check_nomagic(ch, 0, 0))
return(FALSE);
if (!ch->specials.fighting) {
if (GET_HIT(ch) < GET_MAX_HIT(ch)-10) {
if ((lspell = GetMaxLevel(ch)) >= 20) {
act("$n utters the words 'What a Rush!'.", 1, ch,0,0,TO_ROOM);
cast_heal(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
} else if (lspell > 12) {
act("$n utters the words 'Woah! I feel GOOD! Heh.'.", 1, ch,0,0,TO_ROOM);
cast_cure_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
} else if (lspell > 8) {
act("$n utters the words 'I feel much better now!'.", 1, ch,0,0,TO_ROOM);
cast_cure_serious(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
} else {
act("$n utters the words 'I feel good!'.", 1, ch,0,0,TO_ROOM);
cast_cure_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
}
}
}
/* Find a dude to to evil things upon ! */
if ((vict = FindAHatee(ch))==NULL)
vict = FindVictim(ch);
if (!vict)
vict = ch->specials.fighting;
if (!vict) return(FALSE);
/*
gen number from 0 to level
*/
lspell = number(0,GetMaxLevel(ch));
lspell+= GetMaxLevel(ch)/5;
lspell = MIN(GetMaxLevel(ch), lspell);
if (lspell < 1)
lspell = 1;
if ((GET_HIT(ch) < (GET_MAX_HIT(ch) / 4)) && (lspell > 31) &&
(!IS_SET(ch->specials.act, ACT_AGGRESSIVE))) {
act("$n utters the words 'Woah! I'm outta here!'",
1, ch, 0, 0, TO_ROOM);
vict = FindMobDiffZoneSameRace(ch);
if (vict) {
cast_astral_walk(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(TRUE);
}
cast_teleport(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return(FALSE);
}
/*
first -- hit a foe, or help yourself?
*/
if (ch->points.hit < (ch->points.max_hit / 2))
healperc = 7;
else if (ch->points.hit < (ch->points.max_hit / 4))
healperc = 5;
else if (ch->points.hit < (ch->points.max_hit / 8))
healperc=3;
if (number(1,healperc+2)>3) {
/* do harm */
/* call lightning */
if (OUTSIDE(ch) && (weather_info.sky>=SKY_RAINING) && (lspell >= 15) &&
(number(0,5)==0)) {
act("$n whistles.",1,ch,0,0,TO_ROOM);
act("$n utters the words 'Here Lightning!'.",1,ch,0,0,TO_ROOM);
cast_call_lightning(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(TRUE);
}
switch(lspell) {
case 1:
case 2:
case 3:
act("$n utters the words 'Moo ha ha!'.",1,ch,0,0,TO_ROOM);
cast_cause_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 4:
case 5:
case 6:
act("$n utters the words 'Hocus Pocus!'.",1,ch,0,0,TO_ROOM);
cast_blindness(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 7:
act("$n utters the words 'Va-Voom!'.",1,ch,0,0,TO_ROOM);
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 8:
act("$n utters the words 'Urgle Blurg'.",1,ch,0,0,TO_ROOM);
cast_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 9:
case 10:
act("$n utters the words 'Take That!'.",1,ch,0,0,TO_ROOM);
cast_cause_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 11:
act("$n utters the words 'Burn Baby Burn'.",1,ch,0,0,TO_ROOM);
cast_flamestrike(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
case 13:
case 14:
case 15:
case 16:
{
if (!IS_SET(vict->M_immune, IMM_FIRE)) {
act("$n utters the words 'Burn Baby Burn'.",1,ch,0,0,TO_ROOM);
cast_flamestrike(GetMaxLevel(ch),ch,"",SPELL_TYPE_SPELL,vict,0);
} else if (IS_AFFECTED(vict, AFF_SANCTUARY) &&
( GetMaxLevel(ch) > GetMaxLevel(vict))) {
act("$n utters the words 'Va-Voom!'.",1,ch,0,0,TO_ROOM);
cast_dispel_magic(GetMaxLevel(ch),ch,"",SPELL_TYPE_SPELL,vict,0);
} else {
act("$n utters the words 'Take That!'.",1,ch,0,0,TO_ROOM);
cast_cause_critic(GetMaxLevel(ch),ch,"",SPELL_TYPE_SPELL, vict, 0);
}
break;
}
case 17:
case 18:
case 19:
default:
act("$n utters the words 'Hurts, doesn't it??'.",1,ch,0,0,TO_ROOM);
cast_harm(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
break;
}
return(TRUE);
} else {
/* do heal */
if (IS_AFFECTED(ch, AFF_BLIND) && (lspell >= 4) & (number(0,3)==0)) {
act("$n utters the words 'Praise <Deity Name>, I can SEE!'.", 1, ch,0,0,TO_ROOM);
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)) {
act("$n utters the words 'I'm rubber, you're glue.", 1, ch,0,0,TO_ROOM);
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)) {
act("$n utters the words 'Praise <Deity Name> I don't feel sick no more!'.", 1, ch,0,0,TO_ROOM);
cast_remove_poison(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return(TRUE);
}
switch(lspell) {
case 1:
case 2:
act("$n utters the words 'Abrazak'.",1,ch,0,0,TO_ROOM);
cast_armor(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 3:
case 4:
case 5:
act("$n utters the words 'I feel good!'.", 1, ch,0,0,TO_ROOM);
cast_cure_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 6:
case 7:
case 8:
case 9:
case 10:
act("$n utters the words 'I feel much better now!'.", 1, ch,0,0,TO_ROOM);
cast_cure_serious(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 11:
case 12:
case 13:
case 14:
case 15:
case 16:
act("$n utters the words 'Woah! I feel GOOD! Heh.'.", 1, ch,0,0,TO_ROOM);
cast_cure_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
case 17:
case 18: /* heal */
act("$n utters the words 'What a Rush!'.", 1, ch,0,0,TO_ROOM);
cast_heal(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
default:
act("$n utters the words 'Oooh, pretty!'.", 1, ch,0,0,TO_ROOM);
cast_sanctuary(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
break;
}
return(TRUE);
}
}
/* NEW NIFTY SHRUNKEN LEARNING PROCS COMPLIMENTS OF KIKU! 9/26/93 */
int ninja_master(struct char_data *ch, int cmd, char *arg,
struct char_data *mob, int type)
{
return(Teacher(ch, cmd, arg, mob, type, TAUGHT_BY_NINJA, "ninja master"));
}
int ettin(struct char_data *ch, int cmd, char *arg, struct char_data *mob,
int type)
{
return(Teacher(ch, cmd, arg, mob, type, TAUGHT_BY_ETTIN, "Jones"));
}
int sailor(struct char_data *ch, int cmd, char *arg, struct char_data *mob,
int type)
{
return(Teacher(ch, cmd, arg, mob, type, TAUGHT_BY_SAILOR, "sailor"));
}
int loremaster(struct char_data *ch, int cmd, char *arg, struct char_data *mob,
int type)
{
return(Teacher(ch, cmd, arg, mob, type, TAUGHT_BY_LORE, "loremaster"));
}
int hunter(struct char_data *ch, int cmd, char *arg, struct char_data *mob,
int type)
{
return(Teacher(ch, cmd, arg, mob, type, TAUGHT_BY_HUNTER, "hunter"));
}
/* */
/* nifty new teacher proc compliments of Kiku, 9/26/93 */
int Teacher(struct char_data *ch, int cmd, char *arg, struct char_data *mob,
int type, int teacher, char *say_str)
{
char buf[256];
int number, i, charge, percent;
extern char *spells[];
extern struct skill_data skill_info[MAX_SPL_LIST];
if (!AWAKE(ch))
return(FALSE);
if (!cmd) {
if (ch->specials.fighting) {
return(fighter(ch, cmd, arg, ch, 0));
}
return(FALSE);
}
if (!ch->skills) return(FALSE);
if (check_soundproof(ch)) return(FALSE);
switch(teacher) {
case TAUGHT_BY_MONK:
case TAUGHT_BY_NINJA:
case TAUGHT_BY_SAILOR:
case TAUGHT_BY_LORE:
case TAUGHT_BY_HUNTER:
case TAUGHT_BY_ETTIN:
break;
default:
sprintf(buf,"Teacher() attempted to be called with %d(mob#) as teacher.",
teacher);
log(buf);
return(FALSE);
break;
}
for(; *arg==' '; arg++); /* ditch spaces */
if ((cmd==164)||(cmd==170)) {
if (!arg || (strlen(arg) == 0)) {
send_to_char("You can practice any of these skills:\n\r", ch);
for(i=0; *spells[i] != '\n'; i++) {
if (skill_info[i+1].taught_by & teacher) {
sprintf(buf, "%-30s %s\n\r", spells[i],
how_good(ch->skills[i+1].learned));
send_to_char(buf, ch);
}
}
return(TRUE);
} else {
number = old_search_block(arg,0,strlen(arg),spells,FALSE);
sprintf(buf, "The %s says ",say_str);
send_to_char (buf,ch);
if (number == -1) {
send_to_char("'I do not know of this skill.'\n\r", ch);
return(TRUE);
}
charge = GetMaxLevel(ch) * 100;
if(DoIHateYou(ch))
charge *= 2;
}
if (!(skill_info[number].taught_by & teacher)) {
send_to_char("'I do not know of this skill.'\n\r",ch);
return(TRUE);
}
for(i=0,charge=0;i<MAX_RACE_INTRINSIC;i++) {
if(GET_RACE(ch) == skill_info[number].race_intrinsic[i])
charge = TRUE;
}
if(!charge) {
if (!IS_SET(ch->player.class, skill_info[number].class_use)) {
send_to_char("'You do not possess the necessary training for this skill.'\n\r",ch);
return(TRUE);
}
}
if (ch->skills[number].learned >= 95) {
send_to_char("'You are a master of this art, I can teach you no more.'\n\r",ch);
ch->skills[number].learned = 95;
return(TRUE);
}
/* skill specific stuff */
if ((number == SKILL_DUAL_WIELD)&&(ch->skills[SKILL_DODGE].learned < 80)
&&(ch->skills[SKILL_BACKSTAB].learned < 80)) {
send_to_char("'Your dodge or backstab skill must be at least rank good.'\n\r",ch);
return(TRUE);
}
for (i=0;i<MAX_RACE_DENY;i++) {
if (GET_RACE(ch) == skill_info[number].race_deny[i]) {
send_to_char("'Those of your race are unable to learn this skill.'\n\r",ch);
return(TRUE);
}
}
/* warning warning... this is new... */
if (ch->skills[number].learned >= skill_info[number].percent) {
send_to_char("'You must learn from practice and experience now.'\n\r",
ch);
return(TRUE);
}
if (ch->specials.spells_to_learn <= 0) {
send_to_char("'You must first get some practices.'\n\r",ch);
return(TRUE);
}
if (GET_GOLD(ch) < charge){
send_to_char("'Ah, but you do not have enough money to pay.'\n\r",ch);
return(TRUE);
}
sprintf(buf,"\'That will be %d coins.'\n\rThe %s says ",
charge,say_str);
send_to_char(buf,ch);
GET_GOLD(ch) -= charge;
send_to_char("'We will now begin practicing.'\n\r",ch);
ch->specials.spells_to_learn--;
percent = ch->skills[number].learned +
int_app[GET_INT(ch)].learn;
ch->skills[number].learned = MIN(95, percent);
/* these things take time ya know... */
WAIT_STATE(ch, PULSE_VIOLENCE*1);
if (ch->skills[number].learned >= 95) {
send_to_char("'You are now a master of this art.'\n\r", ch);
return(TRUE);
}
} else {
return(FALSE);
}
}
int RepairGuy( struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
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 (IS_NPC(ch)) {
if(cmd == 72) {
arg=one_argument(arg,obj_name);
if (!*obj_name)
return(FALSE);
if (!(obj = get_obj_in_list_vis(ch, obj_name, ch->carrying)))
return(FALSE);
arg=one_argument(arg, vict_name);
if(!*vict_name)
return(FALSE);
if (!(vict = get_char_room_vis(ch, vict_name)))
return(FALSE);
if (!IS_NPC(vict))
return(FALSE);
if (mob_index[vict->nr].func == rep_guy) {
send_to_char("Nah, you really wouldn't want to do that.",ch);
return(TRUE);
}
} else
return(FALSE);
}
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(TRUE);
}
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 && obj->obj_flags.value[1] > 0) {
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(DoIHateYou(ch))
cost *= 2;
if (cost > GET_GOLD(ch)) {
if (check_soundproof(ch)) {
act("$N shakes $S head.\n\r",
TRUE, ch, 0, vict, TO_ROOM);
act("$N shakes $S head.\n\r",
TRUE, ch, 0, vict, TO_CHAR);
} else {
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;
if(DoIHateYou(ch)) {
act("$N decides $S doesn't like you.", FALSE, ch, 0, vict,TO_CHAR);
send_to_char("You are charged double!\n\r",ch);
}
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;
}
if (check_soundproof(ch)) {
act("$N smiles broadly.",TRUE,ch,0,vict,TO_ROOM);
act("$N smiles broadly.",TRUE,ch,0,vict,TO_CHAR);
} else {
act("$N says 'All fixed.'",TRUE,ch,0,vict,TO_ROOM);
act("$N says 'All fixed.'",TRUE,ch,0,vict,TO_CHAR);
}
}
} else {
if (check_soundproof(ch)) {
act("$N shrugs.",
TRUE,ch,0,vict,TO_ROOM);
act("$N shrugs.",
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 {
if (GetMaxLevel(vict) < 25 || (ITEM_TYPE(obj)!=ITEM_WEAPON)) {
if (check_soundproof(ch)) {
act("$N shakes $S head.\n\r",
TRUE, ch, 0, vict, TO_ROOM);
act("$N shakes $S head.\n\r",
TRUE, ch, 0, vict, TO_CHAR);
} else {
if (ITEM_TYPE(obj) != ITEM_ARMOR) {
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);
} else {
act("$N says 'I can't fix that...'", TRUE, ch, 0, vict, TO_CHAR);
act("$N says 'I can't fix that...'", TRUE, ch, 0, vict, TO_ROOM);
}
}
} else {
struct obj_data *new;
/* weapon repair. expensive! */
cost = obj->obj_flags.cost;
new = read_object(obj->item_number, REAL);
if (obj->obj_flags.value[2])
cost /= obj->obj_flags.value[2];
cost *= (new->obj_flags.value[2] - obj->obj_flags.value[2]);
if (cost > GET_GOLD(ch)) {
if (check_soundproof(ch)) {
act("$N shakes $S head.\n\r",
TRUE, ch, 0, vict, TO_ROOM);
act("$N shakes $S head.\n\r",
TRUE, ch, 0, vict, TO_CHAR);
} else {
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);
extract_obj(new);
}
} 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 weapon */
act("$N fiddles with $p.",TRUE,ch,obj,vict,TO_ROOM);
act("$N fiddles with $p.",TRUE,ch,obj,vict,TO_CHAR);
obj->obj_flags.value[2] = new->obj_flags.value[2];
extract_obj(new);
if (check_soundproof(ch)) {
act("$N smiles broadly.",TRUE,ch,0,vict,TO_ROOM);
act("$N smiles broadly.",TRUE,ch,0,vict,TO_CHAR);
} else {
act("$N says 'All fixed.'",TRUE,ch,0,vict,TO_ROOM);
act("$N says 'All fixed.'",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(fighter(ch, cmd, arg,mob,type));
}
}
int Samah( struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
char *p, buf[256];
struct char_data *Sammy; /* Samah's own referent pointer */
struct char_data *t, *t2, *t3;
int purge_nr;
struct room_data *rp;
rp = real_roomp(ch->in_room);
if (!rp) return(FALSE);
if (cmd) {
if (GET_RACE(ch) == RACE_SARTAN || GET_RACE(ch) == RACE_PATRYN ||
GetMaxLevel(ch) == LOKI)
return(FALSE);
Sammy = (struct char_data *)FindMobInRoomWithFunction(ch->in_room, Samah);
for (;*arg==' ';arg++); /* skip whitespace */
strcpy(buf, arg);
if (cmd == 207) { /* recite */
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
p = (char *)strtok(buf, " ");
if (strncmp("recall", p, strlen(p))==0) {
act("$n says 'And just where do you think you're going, Mensch?", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
}
} else if (cmd == 84) { /* cast */
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
/* we use strlen(p)-1 because if we use the full length, there is
the obligatory ' at the end. We must ignore this ', and get
on with our lives */
p = (char *)strtok(buf, " ");
if (strncmp("'word of recall'", p, strlen(p)-1)==0) {
act("$n says 'And just where do you think you're going, Mensch?", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (strncmp("'astral walk'", p, strlen(p)-1)==0) {
act("$n says 'Do you think you can astral walk in and out of here like the ", FALSE, Sammy, 0, 0, TO_ROOM);
act("wind,...Mensch?'", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (strncmp("'teleport'", p, strlen(p)-1)==0) {
act("$n says 'And just where do you think you're going, Mensch?", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (strncmp("'polymorph'", p, strlen(p)-1)==0) {
act("$n says 'I like you the way you are...Mensch.", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
}
} else if (cmd == 17 || cmd == 169) { /* say */
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
act("$n says 'Mensch should be seen, and not heard'", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (cmd == 40 || cmd == 214 || cmd == 177) { /* emote */
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
act("$n says 'Cease your childish pantonimes, Mensch.'", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (cmd == 19 || cmd == 18 || cmd == 83) { /* say, shout whisp */
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
act("$n says 'Speak only when spoken to, Mensch.'", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (cmd == 86) { /* ask */
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
act("$n says 'Your ignorance is too immense to be rectified at this time. Mensch.'", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (cmd == 87 || cmd == 46) { /* order, force */
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
act("$n says 'I'll be the only one giving orders here, Mensch'", FALSE, Sammy, 0, 0, TO_ROOM);
return(TRUE);
} else if (cmd == 151) {
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
act("$n says 'Cease this cowardly behavior, Mensch'", FALSE, Sammy, 0, ch, TO_ROOM);
return(TRUE);
} else if (cmd == 63) {
act("$n glares at you", FALSE, Sammy, 0, ch, TO_VICT);
act("$n glares at $N", FALSE, Sammy, 0, ch, TO_NOTVICT);
act("$n says 'Pay attention when I am speaking, Mensch'", FALSE, Sammy, 0, ch, TO_ROOM);
return(TRUE);
}
} else {
if (ch->specials.fighting) {
} else {
/*
check for followers in the room
*/
for (t = rp->people; t; t= t->next_in_room) {
if (IS_NPC(t) && !IS_PC(t) && t->master && t != ch &&
t->master != ch) {
break;
}
}
if (t) {
act("$n says 'What is $N doing here?'", FALSE, ch, 0, t, TO_ROOM);
act("$n makes a magical gesture", FALSE, ch, 0, 0, TO_ROOM);
purge_nr = t->nr;
for (t2 = rp->people; t2; t2 = t3) {
t3 = t2->next_in_room;
if (t2->nr == purge_nr && !IS_PC(t2)) {
act("$N, looking very surprised, quickly fades out of existence.", FALSE, ch, 0, t2, TO_ROOM);
extract_char(t2);
}
}
} else {
/*
check for polymorphs in the room
*/
for (t = rp->people; t; t= t->next_in_room) {
if (IS_NPC(t) && IS_PC(t)) { /* ah.. polymorphed :-) */
/*
I would like to digress at this point, and state that
I feel that George Bush is an incompetent fool.
Thank you.
*/
act("$n glares at $N", FALSE, ch, 0, t, TO_NOTVICT);
act("$n glares at you", FALSE, ch, 0, t, TO_VICT);
act("$n says 'Seek not to disguise your true form from me...Mensch.", FALSE, ch, 0, t, TO_ROOM);
act("$n traces a small rune in the air", FALSE, ch, 0, 0, TO_ROOM);
act("$n has forced you to return to your original form!", FALSE, ch, 0, t, TO_VICT);
do_return(t, "", 1);
return(TRUE);
}
}
}
}
}
return(FALSE);
}
#if EGO
int BitterBlade(struct char_data *ch, int cmd, char *arg,struct obj_data *tobj, int type)
{
extern struct str_app_type str_app[];
struct obj_data *obj, *blade;
struct char_data *joe, *holder;
struct char_data *lowjoe = 0;
char arg1[128];
if (type != PULSE_COMMAND)
return(FALSE);
if (IS_IMMORTAL(ch)) return(FALSE);
if (!real_roomp(ch->in_room)) return(FALSE);
for (obj = real_roomp(ch->in_room)->contents;
obj ; obj = obj->next_content) {
if (obj_index[obj->item_number].func == BitterBlade) {
/* I am on the floor */
for (joe = real_roomp(ch->in_room)->people; joe ;
joe = joe->next_in_room) {
if ((GET_ALIGNMENT(joe) <= -400) && (!IS_IMMORTAL(joe))) {
if (lowjoe) {
if (GET_ALIGNMENT(joe) < GET_ALIGNMENT(lowjoe)){
lowjoe = joe;
}
} else lowjoe = joe;
}
}
if (lowjoe) {
if (CAN_GET_OBJ(lowjoe, obj)) {
obj_from_room(obj);
obj_to_char(obj,lowjoe);
send_to_char("A Black Blade leaps in to your hands!\n\r",
lowjoe);
act("A black blade jumps from the floor and leaps in to $n's hands!",FALSE, lowjoe, 0, 0, TO_ROOM);
if (!EgoBladeSave(lowjoe)) {
if (!lowjoe->equipment[WIELD]) {
send_to_char("The blade forces you to wield it!\n\r", lowjoe);
wear(lowjoe, obj, 12);
return(FALSE);
} else {
send_to_char("You can feel the blade attempt to make you wield it!\n\r", lowjoe);
return(FALSE);
}
}
}
}
}
}
for (holder = real_roomp(ch->in_room)->people; holder ;
holder = holder->next_in_room) {
for (obj = holder->carrying; obj ; obj = obj->next_content) {
if ((obj_index[obj->item_number].func) &&
(obj_index[obj->item_number].func != board)){
/*held*/
if (holder->equipment[WIELD]) {
if ((!EgoBladeSave(holder)) && (!EgoBladeSave(holder))) {
send_to_char("The black blade gets pissed off that you are wielding another weapon!!\n\r", holder);
act("The blade knocks $p out of your hands!!",FALSE, holder, holder->equipment[WIELD], 0, TO_CHAR);
blade = unequip_char(holder,WIELD);
if (blade) obj_to_room(blade,holder->in_room);
if (!holder->equipment[WIELD]) {
send_to_char("The blade forces you to wield it!\n\r", holder);
wear(holder, obj, 12);
return(FALSE);
}
}
}
if (!EgoBladeSave(holder)) {
if (!EgoBladeSave(holder)) {
if (!holder->equipment[WIELD]) {
send_to_char("The blade forces you to wield it!\n\r", holder);
wear(holder, obj, 12);
return(FALSE);
}
}
}
if (affected_by_spell(holder,SPELL_CHARM_PERSON)) {
affect_from_char(holder,SPELL_CHARM_PERSON);
send_to_char("Due to the black blade, you feel less enthused about your master.\n\r",holder);
}
}
}
if (holder->equipment[WIELD]) {
if ((obj_index[holder->equipment[WIELD]->item_number].func)
&& (obj_index[holder->equipment[WIELD]->item_number].func != board)){
/*YES! I am being held!*/
obj = holder->equipment[WIELD];
if (affected_by_spell(holder,SPELL_CHARM_PERSON)) {
affect_from_char(holder,SPELL_CHARM_PERSON);
send_to_char("Due to the blade, you feel less enthused about your master.\n\r",holder);
}
if (holder->specials.fighting) {
send_to_char("The black blade almost sings in your hand!!\n\r"
, holder);
act("You can hear $n's black blade almost sing with joy!",FALSE, holder, 0, 0, TO_ROOM);
if ((holder == ch) && (cmd == 151)) {
if (EgoBladeSave(ch) && EgoBladeSave(ch)) {
send_to_char("You can feel the black blade attempt to stay in the fight!\n\r", ch);
return(FALSE);
} else {
send_to_char("The black blade laughs at your attempt to flee from a fight!!\n\r", ch);
send_to_char("The black blade gives you a little warning...\n\r", ch);
send_to_char("The black blade twists around and smacks you!\n\r", ch);
act("Wow! $n's black blade just whipped around and smacked $m one!",FALSE, ch, 0, 0, TO_ROOM);
GET_HIT(ch) -= 25;
if (GET_HIT(ch) < 0) {
GET_HIT(ch) = 0;
GET_POS(ch) = POSITION_STUNNED;
}
return(TRUE);
}
}
}
if ((cmd == 66) && (holder == ch)) {
one_argument(arg, arg1);
if (strcmp(arg1,"all") == 0) {
if (!EgoBladeSave(ch)) {
send_to_char("The black blade laughs at your attempt to remove it!\n\r", ch);
send_to_char("The black blade gives you a little warning...\n\r", ch);
send_to_char("The black blade twists around and smacks you hard!\n\r", ch);
act("Wow! $n's black blade just whipped around and smacked $m one!",FALSE, ch, 0, 0, TO_ROOM);
GET_HIT(ch) -= 25;
if (GET_HIT(ch) < 0) {
GET_HIT(ch) = 0;
GET_POS(ch) = POSITION_STUNNED;
}
return(TRUE);
} else {
send_to_char("You can feel the black blade attempt to stay wielded!\n\r", ch);
return(FALSE);
}
} else {
if (isname(arg1,obj->name)) {
if (!EgoBladeSave(ch)) {
send_to_char("The black blade laughs at your attempt to remove it!\n\r", ch);
send_to_char("The black blade gives you a little warning...\n\r", ch);
send_to_char("The black blade twists around and smacks you hard!\n\r", ch);
act("Wow! $n's black blade just whipped around and smacked $m one!",FALSE, ch, 0, 0, TO_ROOM);
GET_HIT(ch) -= 25;
if (GET_HIT(ch) < 0) {
GET_HIT(ch) = 0;
GET_POS(ch) = POSITION_STUNNED;
}
return(TRUE);
} else {
send_to_char("You can feel the black blade attempt to stay wielded!\n\r", ch);
return(FALSE);
}
}
}
}
for (joe = real_roomp(holder->in_room)->people; joe ;
joe = joe->next_in_room) {
if ((GET_ALIGNMENT(joe) >= 500) &&
(IS_MOB(joe)) && (CAN_SEE(holder,joe)) && (holder != joe)) {
if (lowjoe) {
if (GET_ALIGNMENT(joe) > GET_ALIGNMENT(lowjoe)){
lowjoe = joe;
}
} else lowjoe = joe;
}
}
if (lowjoe) {
if (!EgoBladeSave(holder)) {
if (GET_POS(holder) != POSITION_STANDING) {
send_to_char("The black blade yanks you to your feet!\n\r", ch);
GET_POS(holder) = POSITION_STANDING;
}
send_to_char("The black blade leaps out of control!!\n\r", holder);
act("A black blade jumps for $n's neck!",FALSE, lowjoe, 0, 0, TO_ROOM);
do_hit(holder,lowjoe->player.name, 0);
return(TRUE);
} else {
return(FALSE);
}
}
if ((cmd == 70) && (holder == ch)) {
send_to_char("The black blade almost sings in your hand!!\n\r", ch);
act("You can hear $n's black blade almost sing with joy!",FALSE, ch, 0, 0, TO_ROOM);
return(FALSE);
}
}
}
}
return(FALSE);
}
#endif
#define GIVE 72
#define GAIN 243
int MakeQuest(struct char_data *ch, struct char_data *gm, int Class, char *arg, int cmd)
{
char obj_name[50], vict_name[50];
struct char_data *vict;
struct obj_data *obj;
bool quest;
extern struct QuestItem QuestList[4][IMMORTAL];
#if EASY_LEVELS
if (GET_LEVEL(ch, Class) > 0) { /* for now.. so as not to give it away */
if (cmd == GAIN) {
GainLevel(ch, Class);
return(TRUE);
}
return(FALSE);
}
#endif
if (cmd == GIVE) {
arg=one_argument(arg,obj_name);
arg=one_argument(arg, vict_name);
if (!(obj = get_obj_in_list_vis(ch, obj_name, ch->carrying))) {
send_to_char("You do not seem to have anything like that.\n\r", ch);
return(FALSE);
}
if (!(vict = get_char_room_vis(ch, vict_name))) {
send_to_char("No one by that name around here.\n\r", ch);
return;
}
if (vict == gm) {
if (obj_index[obj->item_number].virtual == QuestList[Class][GET_LEVEL(ch, Class)].item) {
act("$n graciously takes your gift of $p", FALSE, gm, obj, ch, TO_VICT);
obj_from_char(obj);
extract_obj(obj);
GainLevel(ch, Class);
return(TRUE);
} else {
act("$n shakes $s head", FALSE, gm, 0, 0, TO_ROOM);
act("$n says 'That is not the item which i desire'", FALSE, gm, 0, 0, TO_ROOM);
return(FALSE);
}
} else {
return(FALSE);
}
} else if (cmd == GAIN) {
quest=FALSE;
if (GET_EXP(ch)<
titles[Class][GET_LEVEL(ch, Class)+1].exp) {
send_to_char("You are not yet ready to gain\n\r", ch);
return(FALSE);
}
if (GET_LEVEL(ch, Class) < 10) {
GainLevel(ch, Class);
return(TRUE);
} else if (GET_LEVEL(ch, Class) < 41) {
if(!(GET_LEVEL(ch, Class)%5)) /* quest every 5th level */
quest = TRUE; /* from 10th to 40th level */
} else
quest = TRUE; /* quest every level from 40th to 50th */
if(quest) {
if (QuestList[Class][GET_LEVEL(ch, Class)].item) {
act("$n shakes $s head", FALSE, gm, 0, 0, TO_ROOM);
act("$n tells you 'First you must prove your mastery of knowledge'",
FALSE, gm, 0, ch, TO_VICT);
act("$n tells you 'Give to me the item that answers this riddle'",
FALSE, gm, 0, ch, TO_VICT);
act("$n tells you 'And you shall have your level'\n\r",
FALSE, gm, 0, ch, TO_VICT);
send_to_char(QuestList[Class][GET_LEVEL(ch, Class)].where, ch);
send_to_char("\n\rGood luck", ch);
/*
fix to handle limited items:
Dunno how it will turn out.. but hopefully it should be ok.
*/
if (obj_index[real_object(QuestList[Class][GET_LEVEL(ch, Class)].item)].number > 5 && GET_LEVEL(ch, Class) < 40)
obj_index[real_object(QuestList[Class][GET_LEVEL(ch, Class)].item)].number = 0;
return(FALSE);
}
} else {
GainLevel(ch, Class);
return(TRUE);
}
} else { /* command is neither gain nor give */
return(FALSE);
}
}
int AbyssGateKeeper( struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
if (cmd || !AWAKE(ch))
return(FALSE);
if (!cmd) {
if (ch->specials.fighting) {
fighter(ch, cmd, arg,mob,type);
}
} else if (cmd == 5) {
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 creeping_death( struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
struct char_data *t, *next;
struct room_data *rp;
struct obj_data *co, *o;
if (cmd) return(FALSE);
if (check_peaceful(ch,0)) {
act("$n dissapates, you breath a sigh of relief", FALSE, ch,
0, 0, TO_ROOM);
extract_char(ch);
return(TRUE);
}
if (ch->specials.fighting) { /* kill */
t = ch->specials.fighting;
if (t->in_room == ch->in_room) {
act("$N is engulfed by $n!", FALSE, ch, 0, t, TO_NOTVICT);
act("You are engulfed by $n, and are quickly disassembled", FALSE,
ch, 0, t, TO_VICT);
act("$N is quickly reduced to a bloody pile of bones by $n", FALSE,
ch, 0, t, TO_NOTVICT);
GET_HIT(ch) -= GET_HIT(t);
die(t);
/* find the corpse and destroy it */
rp = real_roomp(ch->in_room);
if (!rp) return(FALSE);
for (co = rp->contents; co; co = co->next_content) {
if (IS_CORPSE(co)) { /* assume 1st corpse is victim's */
while (co->contains) {
o = co->contains;
obj_from_obj(o);
obj_to_room(o, ch->in_room);
}
extract_obj(co); /* remove the corpse */
}
}
}
if (GET_HIT(ch) < 0) {
act("$n dissapates, you breath a sigh of relief", FALSE, ch,
0, 0, TO_ROOM);
GET_HIT(ch) = 1;
ch->points.max_hit = 10;
REMOVE_BIT(ch->specials.act, ACT_SPEC);
extract_char(ch);
return(TRUE);
}
return(TRUE);
}
/* the generic is the direction of travel */
if (number(0,1)==0) { /* move */
if (!ValidMove(ch, ch->generic)) {
act("$n dissapates, you breath a sigh of relief", FALSE, ch,
0, 0, TO_ROOM);
GET_HIT(ch) = 1;
ch->points.max_hit = 10;
REMOVE_BIT(ch->specials.act, ACT_SPEC);
return(FALSE);
} else {
do_move(ch, "\0", ch->generic);
return(FALSE);
}
} else {
/* make everyone with any brains flee */
for (t = real_roomp(ch->in_room)->people; t; t = next) {
next = t->next_in_room;
if (t != ch) {
if (!saves_spell(t, SAVING_PETRI)) {
do_flee(t, "\0", 0);
}
}
}
/* find someone in the room to flay */
for (t = real_roomp(ch->in_room)->people; t; t = next) {
next = t->next_in_room;
if (!IS_IMMORTAL(t) && t != ch && number(0,2)==0) {
act("$N is engulfed by $n!", FALSE, ch, 0, t, TO_NOTVICT);
act("You are engulfed by $n, and are quickly disassembled", FALSE,
ch, 0, t, TO_VICT);
act("$N is quickly reduced to a bloody pile of bones by $n", FALSE,
ch, 0, t, TO_NOTVICT);
GET_HIT(ch) -= GET_HIT(t);
die(t);
/* find the corpse and destroy it */
rp = real_roomp(ch->in_room);
if (!rp) return(FALSE);
for (co = rp->contents; co; co = co->next_content) {
if (IS_CORPSE(co)) { /* assume 1st corpse is victim's */
while (co->contains) {
o = co->contains;
obj_from_obj(o);
obj_to_room(o, ch->in_room);
}
extract_obj(co); /* remove the corpse */
}
}
if (GET_HIT(ch) < 0) {
act("$n dissapates, you breath a sigh of relief", FALSE, ch,
0, 0, TO_ROOM);
GET_HIT(ch) = 1;
ch->points.max_hit = 10;
REMOVE_BIT(ch->specials.act, ACT_SPEC);
extract_char(ch);
return(TRUE);
}
break; /* end the loop */
}
}
}
}
#if 0
/*
shanty town kids
*/
int shanty_town_kids( struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
if (!AWAKE(ch)) return(FALSE);
/*
harrass low levellers.
*/
if (cmd >= 1 && cmd <= 6) {
if (GetMaxLevel(ch) <= 5 && number(0,2)==0) {
act("A street kid sticks out a foot and trips you as you try to leave",
FALSE, ch, 0, 0, TO_CHAR);
act("A street kid sticks out a foot and trips $n",
FALSE, ch, 0, 0, TO_ROOM);
GET_POS(ch) = POSITION_SITTING;
act("The street kid laughs at you", FALSE,ch, 0, 0, TO_CHAR);
act("The street kid laughs at $n", FALSE,ch, 0, 0, TO_ROOM);
}
}
/*
steal from mid-levellers
*/
/*
backstab high levellers
*/
if (cmd) {
}
if (ch->specials.fighting) {
act("$N runs between $n's legs", FALSE, ch->specials.fighting, 0, ch, TO_ROOM);
act("$N runs between your legs", FALSE, ch->specials.fighting, 0, ch, TO_CHAR);
vict = ch->specials.fighting;
stop_fighting(ch);
stop_fighting(vict);
}
}
#endif
void Submit(struct char_data *ch, struct char_data *t)
{
char buf[200];
switch(number(1,5)) {
case 1:
sprintf(buf, "bow %s", GET_NAME(t));
command_interpreter(ch, buf);
break;
case 2:
sprintf(buf, "smile %s", GET_NAME(t));
command_interpreter(ch, buf);
break;
case 3:
sprintf(buf, "wink %s", GET_NAME(t));
command_interpreter(ch, buf);
break;
case 4:
sprintf(buf, "wave %s", GET_NAME(t));
command_interpreter(ch, buf);
break;
default:
act("$n nods $s head at you", 0, ch, 0, t, TO_VICT);
act("$n nods $s head at $N", 0, ch, 0, t, TO_NOTVICT);
break;
}
}
void SayHello(struct char_data *ch, struct char_data *t)
{
char buf[200];
switch(number(1,10)) {
case 1:
do_say(ch, "Greetings, adventurer",0);
break;
case 2:
if (t->player.sex == SEX_FEMALE)
do_say(ch, "Good day, milady",0);
else
do_say(ch, "Good day, lord", 0);
break;
case 3:
if (t->player.sex == SEX_FEMALE)
do_say(ch, "Pleasant Journey, Mistress",0);
else
do_say(ch, "Pleasant Journey, Master", 0);
break;
case 4:
if (t->player.sex == SEX_FEMALE)
sprintf(buf, "Make way! Make way for the lady %s!", GET_NAME(t));
else
sprintf(buf, "Make way! Make way for the lord %s!", GET_NAME(t));
do_say(ch, buf, 0);
break;
case 5:
do_say(ch, "May the prophet smile upon you",0);
break;
case 6:
do_say(ch, "It is a pleasure to see you again.",0);
break;
case 7:
do_say(ch, "You are always welcome here, great one",0);
break;
case 8:
do_say(ch, "My lord bids you greetings",0);
break;
case 9:
if (time_info.hours > 6 && time_info.hours < 12)
sprintf(buf, "Good morning, %s", GET_NAME(t));
else if (time_info.hours >=12 && time_info.hours < 20)
sprintf(buf, "Good afternoon, %s", GET_NAME(t));
else if (time_info.hours >= 20 && time_info.hours <= 24)
sprintf(buf, "Good evening, %s", GET_NAME(t));
else
sprintf(buf, "Up for a midnight stroll, %s?\n", GET_NAME(t));
do_say(ch, buf, 0);
break;
case 10:{
char buf2[80];
if (time_info.hours < 6)
strcpy(buf2,"evening");
else if (time_info.hours < 12)
strcpy(buf2, "morning");
else if (time_info.hours < 20)
strcpy(buf2, "afternoon");
else strcpy(buf2, "evening");
switch(weather_info.sky) {
case SKY_CLOUDLESS:
sprintf(buf, "Lovely weather we're having this %s, isn't it, %s.",
buf2, GET_NAME(t));
case SKY_CLOUDY:
sprintf(buf, "Nice %s to go for a walk, %s.", buf2, GET_NAME(t));
break;
case SKY_RAINING:
sprintf(buf, "I hope %s's rain clears up.. don't you %s?", buf2,
GET_NAME(t));
break;
case SKY_LIGHTNING:
sprintf(buf, "How can you be out on such a miserable %s, %s!",
buf2, GET_NAME(t));
break;
default:
sprintf(buf, "Such a pleasant %s, don't you think?", buf2);
break;
}
do_say(ch, buf, 0);
}
break;
}
}
void GreetPeople(struct char_data *ch)
{
struct char_data *tch;
if (!IS_SET(ch->specials.act, ACT_GREET)) {
for (tch=real_roomp(ch->in_room)->people; tch; tch = tch->next_in_room) {
if (!IS_NPC(tch) && !number(0,8)) {
if (tch) {
if (GetMaxLevel(tch) > GetMaxLevel(ch)) {
Submit(ch, tch);
SayHello(ch, tch);
SET_BIT(ch->specials.act, ACT_GREET);
if (IS_AFFECTED2(tch, AFF2_ONE_LIFER)) {
do_say(ch, "What a stud!", 0);
}
break;
} else if (IS_AFFECTED2(tch, AFF2_ONE_LIFER)) {
Submit(ch, tch);
do_say(ch, "What a stud!", 0);
}
}
}
}
} else if (!number(0, 100)) {
REMOVE_BIT(ch->specials.act, ACT_GREET);
}
}
int GenericCityguardHateUndead(struct char_data *ch, int cmd, char *arg, struct char_data *mob,int type)
{
struct char_data *tch, *evil;
int max_evil;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting) {
fighter(ch, cmd, arg, mob, type);
if (!check_soundproof(ch)) {
if (number(0,100) == 0) {
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, 3, type);
return(TRUE);
}
}
max_evil = 0;
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;
if (!check_soundproof(ch))
act("$n screams 'EVIL!!! BANZAI! SPOOON!'",
FALSE, ch, 0, 0, TO_ROOM);
hit(ch, evil, TYPE_UNDEFINED);
return(TRUE);
}
if (!IS_PC(tch)) {
if (tch->specials.fighting) {
if ((GET_ALIGNMENT(tch) < max_evil) &&
(!IS_PC(tch) || !IS_PC(tch->specials.fighting))) {
max_evil = GET_ALIGNMENT(tch);
evil = tch;
}
}
}
}
if (evil && (GET_ALIGNMENT(evil->specials.fighting) >= 0)) {
if (GET_HIT(evil->specials.fighting) > GET_HIT(evil) ||
(evil->specials.fighting->attackers > 3)) {
if (!check_soundproof(ch))
act("$n screams 'PROTECT THE INNOCENT! BANZAI!!! CHARGE!!! SPORK!'",
FALSE, ch, 0, 0, TO_ROOM);
hit(ch, evil, TYPE_UNDEFINED);
return(TRUE);
} else {
if (!check_soundproof(ch))
act("$n yells 'There's no need to fear! $n is here!'",
FALSE, ch, 0, 0, TO_ROOM);
if (!ch->skills)
SpaceForSkills(ch);
if (!ch->skills[SKILL_RESCUE].learned)
ch->skills[SKILL_RESCUE].learned = GetMaxLevel(ch)*3+30;
do_rescue(ch, GET_NAME(evil->specials.fighting), 0);
}
}
GreetPeople(ch);
return(FALSE);
}
int GenericCityguard(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
struct char_data *tch, *evil;
int max_evil;
if (cmd || !AWAKE(ch))
return (FALSE);
if (ch->specials.fighting) {
fighter(ch, cmd, arg,mob,type);
if (!check_soundproof(ch)) {
if (number(0,120) == 0) {
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, 3, type);
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 (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)) {
if (!check_soundproof(ch)) {
act("$n screams 'PROTECT THE INNOCENT! BANZAI!!! CHARGE!!! SPOON!'",
FALSE, ch, 0, 0, TO_ROOM);
}
hit(ch, evil, TYPE_UNDEFINED);
return(TRUE);
}
GreetPeople(ch);
return(FALSE);
}
int PrydainGuard(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
return(GenericCityguardHateUndead(ch,cmd,arg,mob,PRYDAIN));
}
struct breath_victim {
struct char_data *ch;
int yesno; /* 1 0 */
struct breath_victim *next;
};
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) || (ch == MOUNTED(cons))) {
temp->yesno = 0;
} else if ((in_group(first_victim, cons) ||
cons == first_victim->master ||
cons->master == first_victim) &&
(temp->yesno = (2 <= dice(1,5))) ) {
/* group members will get hit 2/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 hit 1/5 times */
temp->yesno = (dice(1,5)<2);
}
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;
struct char_data *tmp;
int victim;
act("$n rears back and inhales",1,ch,0,ch->specials.fighting,TO_ROOM);
victim=0;
for (tmp = real_roomp(ch->in_room)->people; tmp; tmp = tmp->next_in_room) {
if (tmp == ch || IS_IMMORTAL(tmp)) {
continue;
} else {
victim=1;
cast_fear( GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, tmp, 0);
}
}
hitlist = choose_victims(ch, target);
if (func!=NULL && victim && hitlist) {
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 */
}
}
static void (*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[] = {
{ 230, 55, breaths+0 },
{ 233, 55, breaths+4 },
{ 243, 55, breaths+2 },
{ 3670, 30, breaths+2 },
{ 3674, 45, breaths+6 },
{ 3675, 45, breaths+8 },
{ 3676, 30, breaths+6 },
{ 3952, 20, breaths+8 },
{ 5005, 55, breaths+4 },
{ 6112, 55, breaths+4 },
{ 6635, 55, breaths+0 },
{ 6609, 30, breaths+0 },
{ 6642, 45, breaths+2 },
{ 6801, 55, breaths+2 },
{ 6802, 55, breaths+2 },
{ 6824, 55, breaths+0 },
{ 7040, 55, breaths+6 },
{ 9217, 45, breaths+4 },
{ 9418, 45, breaths+2 },
{ 9419, 45, breaths+2 },
{ 15858, 45, breaths+0 },
{ 15879, 30, breaths+0 },
{ 16620, 45, breaths+0 },
{ 16700, 45, breaths+4 },
{ 16738, 75, breaths+6 },
{ 18003, 20, breaths+8 },
{ 20002, 55, breaths+6 },
{ 20017, 55, breaths+6 },
{ 20016, 55, breaths+6 },
{ 20016, 55, breaths+6 },
{ 25009, 30, breaths+6 },
{ 25504, 30, breaths+4 },
{ 27016, 30, breaths+6 },
{ -1 },
};
int BreathWeapon(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
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 (FALSE);
}
int Devil(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
return(magic_user(ch, cmd, arg, mob, type));
}
int Demon(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
return(magic_user(ch, cmd, arg, mob, type));
}
void DruidHeal(struct char_data *ch, int level)
{
if (level > 13) {
act("$n utters the words 'Woah! I feel GOOD! Heh.'.",
1, ch,0,0,TO_ROOM);
cast_cure_critic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
} else if (level > 8) {
act("$n utters the words 'I feel much better now!'.",
1, ch,0,0,TO_ROOM);
cast_cure_serious(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
} else {
act("$n utters the words 'I feel good!'.", 1, ch,0,0,TO_ROOM);
cast_cure_light(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
}
}
int DruidTree(struct char_data *ch)
{
act("$n utters the words 'harumph!'", FALSE, ch, 0, 0, TO_ROOM);
act("$n takes on the form and shape of a huge tree!", FALSE, ch, 0, 0, TO_ROOM);
GET_RACE(ch)=RACE_TREE;
ch->points.max_hit = GetMaxLevel(ch)*10;
ch->points.hit += GetMaxLevel(ch)*5;
free(ch->player.long_descr);
free(ch->player.short_descr);
ch->player.short_descr = (char *)strdup("The druid-tree");
ch->player.long_descr = (char *)strdup("A huge tree stands here");
GET_HIT(ch) = MIN(GET_MAX_HIT(ch), GET_HIT(ch));
ch->mult_att = 6;
ch->specials.damsizedice = 6;
REMOVE_BIT(ch->specials.act, ACT_SPEC);
}
DruidMob(struct char_data *ch)
{
act("$n utters the words 'lagomorph'", FALSE, ch, 0, 0, TO_ROOM);
act("$n takes on the form and shape of a huge lion", FALSE, ch, 0, 0, TO_ROOM);
GET_RACE(ch)=RACE_PREDATOR;
ch->points.max_hit *= 2;
ch->points.hit += GET_HIT(ch)/2;
free(ch->player.long_descr);
free(ch->player.short_descr);
ch->player.short_descr = (char *)strdup("The druid-lion");
ch->player.long_descr = (char *)strdup("A huge lion stands here, his tail twitches menacingly");
GET_HIT(ch) = MIN(GET_MAX_HIT(ch), GET_HIT(ch));
ch->mult_att = 3;
ch->specials.damnodice = 3;
ch->specials.damsizedice = 4;
REMOVE_BIT(ch->specials.act, ACT_SPEC);
}
int DruidChallenger(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
struct room_data *rp;
int level;
struct char_data *vict;
int i;
if (cmd) return(FALSE);
if (!AWAKE(ch)) return(FALSE);
rp = real_roomp(ch->in_room);
if (!rp) return(FALSE);
if (check_soundproof(ch)) return(FALSE);
GreetPeople(ch);
if (check_nomagic(ch, 0, 0))
return(FALSE);
if (GET_POS(ch) < POSITION_FIGHTING &&
GET_POS(ch) > POSITION_SLEEPING) {
StandUp(ch);
return(TRUE);
}
if (number(0,101) > GetMaxLevel(ch)+40) /* they 'failed' */
return(TRUE);
if (!ch->specials.fighting) {
level = number(1, GetMaxLevel(ch));
if (GET_HIT(ch) < GET_MAX_HIT(ch)) {
DruidHeal(ch, level);
return(TRUE);
}
if (!ch->equipment[WIELD]) {
if (GetMaxLevel(ch) > 4) {
act("$n utters the words 'gimme a light'", 1, ch, 0, 0, TO_ROOM);
cast_flame_blade(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
}
return(TRUE);
}
if (!affected_by_spell(ch, SPELL_BARKSKIN) && number(0,1)) {
act("$n utters the words 'woof woof'", 1, ch, 0, 0, TO_ROOM);
cast_barkskin(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, ch, 0);
return(TRUE);
}
if (ch->in_room == 501) {
if ((vict = FindAHatee(ch))==NULL) {
vict = FindVictim(ch);
if (vict)
do_hit(ch, GET_NAME(vict), 0);
return(FALSE);
}
}
} else {
if ((vict = FindAHatee(ch))==NULL)
vict = FindVictim(ch);
if (!vict)
vict = ch->specials.fighting;
if (!vict) return(FALSE);
level = number(1, GetMaxLevel(ch));
if ((GET_HIT(ch) < GET_MAX_HIT(ch)/2) && number(0,1)) {
DruidHeal(ch, level);
return(TRUE);
}
if (GetMaxLevel(ch) >= 20 && (!IS_AFFECTED(vict, AFF_SILENCE)) &&
!number(0,4)) {
act("$n utters the words 'ssshhhh'", 1, ch, 0, 0, TO_ROOM);
cast_silence(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(FALSE);
}
if (IS_AFFECTED(vict, AFF_FIRESHIELD) || IS_AFFECTED(vict, AFF_SANCTUARY)){
if (GetMaxLevel(ch) >= GetMaxLevel(vict)) {
act("$n utters the words 'use instaway instant magic remover'",
1, ch, 0, 0, TO_ROOM);
cast_dispel_magic(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(TRUE);
}
}
if (IsUndead(vict) && !number(0,2)) {
act("$n utters the words 'see the light!'", 1, ch, 0, 0, TO_ROOM);
cast_sunray(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(FALSE);
}
if (vict->equipment[WIELD] && level > 19 ) {
act("$n utters the words 'frogemoth'", 1, ch, 0, 0, TO_ROOM);
cast_warp_weapon(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL, vict, 0);
return(FALSE);
}
if (level > 23) {
for (i=0;i<MAX_WEAR;i++) {
if (vict->equipment[i]) {
act("$n utters the words 'barbecue?'", 1, ch, 0, 0, TO_ROOM);
cast_warp_weapon(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
}
}
}
if (IS_SET(rp->room_flags, NO_SUM) || IS_SET(rp->room_flags, TUNNEL) ||
IS_SET(rp->room_flags, PRIVATE)) {
DruidAttackSpells(ch, vict, level);
} else { /*summon followers, call lightning */
if (rp->sector_type == SECT_FOREST) {
if (level > 16 && !number(0,5)) {
act("$n utters the words 'briar'", 1, ch, 0, 0, TO_ROOM);
cast_entangle(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
}
if (level >= 8 && !number(0,3)) {
act("$n utters the words 'snap!'", 1, ch, 0, 0, TO_ROOM);
cast_snare(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
vict, 0);
return(FALSE);
}
if (level > 30 && ch->mult_att<6 && !number(0,8)) {
DruidTree(ch);
return(FALSE);
}
if (ch->mult_att < 2 && level > 10 && !number(0,8)) {
DruidMob(ch);
return(FALSE);
}
/* summoning */
if (level > 30 && !number(0,4)) {
act("$n utters the words 'Where is my SERVANT!'", FALSE, ch, 0,
0, TO_ROOM);
cast_fire_servant(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
0, 0);
return(FALSE);
do_order(ch, "followers guard on", 0);
} else {
if (level > 10 && !number(0,5)) {
act("$n whistles", FALSE, ch, 0,
0, TO_ROOM);
cast_animal_summon_1(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
0, 0);
return(FALSE);
}
if (level > 16 && !number(0,5)) {
act("$n whistles loudly", FALSE, ch, 0,
0, TO_ROOM);
cast_animal_summon_2(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
0, 0);
return(FALSE);
}
if (level > 24 && !number(0,5)) {
act("$n whistles extremely loudly", FALSE, ch, 0,
0, TO_ROOM);
cast_animal_summon_3(GetMaxLevel(ch), ch, "", SPELL_TYPE_SPELL,
0, 0);
return(FALSE);
}
}
} else {
if (!IS_SET(rp->room_flags, INDOORS)) {
if (level > 8 && !number(0,3)) {
act("$n utters the words 'let it rain'", FALSE, ch, 0,
0, TO_ROOM);
cast_control_weather(GetMaxLevel(ch), ch, "worse",
SPELL_TYPE_SPELL, 0, 0);
return(FALSE);
}
if (level > 15 && !number(0,2)) {
act("$n utters the words 'here lightning'", FALSE, ch, 0,
0, TO_ROOM);
cast_call_lightning(GetMaxLevel(ch), ch, "",
SPELL_TYPE_SPELL, vict, 0);
return(FALSE);
}
}
}
DruidAttackSpells(ch, vict, level);
}
}
}
int MonkChallenger(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
struct char_data *vict;
if (cmd) return(FALSE);
if (!AWAKE(ch)) return(FALSE);
GreetPeople(ch);
if (!ch->specials.fighting) {
if (ch->in_room == 551) {
if ((vict = FindAHatee(ch))==NULL) {
vict = FindVictim(ch);
if (vict)
do_hit(ch, GET_NAME(vict), 0);
return(FALSE);
}
}
}
MonkMove(ch);
return(1);
}
#if 1
#define NOD 35
#define DRUID_MOB 600
#define MONK_MOB 650
#define FLEE 151
int druid_challenge_prep_room(struct char_data *ch, int cmd, char *arg, struct room_data *rp, int type)
{
struct room_data *me, *chal;
int i, newr;
struct obj_data *o, *obj, *next_o;
struct char_data *mob, *vict, *next_v;
me = real_roomp(ch->in_room);
if (!me) return(FALSE);
chal = real_roomp(ch->in_room+1);
if (!chal) {
send_to_char("The challenge room is gone.. please contact a god\n\r", ch);
return(TRUE);
}
if (cmd == NOD) {
if (!HasClass(ch, CLASS_DRUID)) {
send_to_char("You're no druid.\n\r", ch);
return(FALSE);
}
if (GET_LEVEL(ch, DRUID_LEVEL_IND) < 10) {
send_to_char("You have no business here, kid.\n\r", ch);
return(FALSE);
}
if (GET_EXP(ch) <= titles[DRUID_LEVEL_IND]
[GET_LEVEL(ch, DRUID_LEVEL_IND)+1].exp-100) {
send_to_char("You cannot advance now.\n\r", ch);
return(TRUE);
}
if (chal->river_speed != 0) {
send_to_char("The challenge room is busy.. please wait\n\r", ch);
return(TRUE);
}
for (i=0;i<MAX_WEAR;i++) {
if (ch->equipment[i]) {
o = unequip_char(ch, i);
obj_to_char(o, ch);
}
}
while (ch->carrying)
extract_obj(ch->carrying);
newr = ch->in_room+1;
/* clean out the challenge room */
for (vict = real_roomp(newr)->people; vict; vict = next_v) {
next_v = vict->next_in_room;
if (IS_NPC(vict) && (!IS_SET(vict->specials.act, ACT_POLYSELF)))
extract_char(vict);
}
for (obj = real_roomp(newr)->contents; obj; obj = next_o) {
next_o = obj->next_content;
extract_obj(obj);
}
send_to_char("You are purified and taken into the combat room.\n\r", ch);
act("$n is ushered into the combat room.", FALSE, ch, 0, 0, TO_ROOM);
spell_dispel_magic(IMPLEMENTOR,ch,ch,0);
char_from_room(ch);
char_to_room(ch, newr);
/* load the mob at the same lev as char */
mob = read_mobile(DRUID_MOB+GET_LEVEL(ch, DRUID_LEVEL_IND)-10, VIRTUAL);
if (!mob) {
send_to_char("The fight is called off. go home\n\r", ch);
return(TRUE);
}
char_to_room(mob, ch->in_room);
chal->river_speed = 1;
do_look(ch, "", 0);
REMOVE_BIT(ch->specials.act, PLR_WIMPY);
return(TRUE);
}
return(FALSE);
}
int druid_challenge_room(struct char_data *ch, int cmd, char *arg, struct room_data *rp, int type)
{
struct char_data *i;
struct room_data *me;
int rm;
me = real_roomp(ch->in_room);
if (!me) return(FALSE);
rm = ch->in_room;
if (!me->river_speed) return(FALSE);
if (IS_PC(ch)) {
REMOVE_BIT(ch->specials.act, PLR_WIMPY);
}
if (cmd == FLEE) {
/* this person just lost */
send_to_char("You lose.\n\r",ch);
if (IS_PC(ch)) {
if (IS_NPC(ch)) {
do_return(ch,"",0);
}
GET_EXP(ch) = MIN(titles[DRUID_LEVEL_IND]
[GET_LEVEL(ch, DRUID_LEVEL_IND)].exp,
GET_EXP(ch));
send_to_char("Go home\n\r", ch);
char_from_room(ch);
char_to_room(ch, rm-1);
me->river_speed = 0;
while (me->people)
extract_char(me->people);
return(TRUE);
} else {
if (mob_index[ch->nr].virtual >= DRUID_MOB &&
mob_index[ch->nr].virtual <= DRUID_MOB+40) {
extract_char(ch);
/*
find pc in room;
*/
for (i=me->people;i;i=i->next_in_room)
if (IS_PC(i)) {
if (IS_NPC(i)) {
do_return(i,"",0);
}
GET_EXP(i) = MAX(titles[DRUID_LEVEL_IND]
[GET_LEVEL(i, DRUID_LEVEL_IND)+1].exp+1,
GET_EXP(i));
GainLevel(i, DRUID_LEVEL_IND);
char_from_room(i);
char_to_room(i, rm-1);
if (affected_by_spell(i, SPELL_POISON)) {
affect_from_char(ch, SPELL_POISON);
}
if (affected_by_spell(i, SPELL_HEAT_STUFF)) {
affect_from_char(ch, SPELL_HEAT_STUFF);
}
while (me->people)
extract_char(me->people);
while (me->contents)
extract_obj(me->contents);
me->river_speed = 0;
return(TRUE);
}
return(TRUE);
} else {
return(FALSE);
}
}
}
return(FALSE);
}
int monk_challenge_room(struct char_data *ch, int cmd, char *arg, struct room_data *rp, int type)
{
struct char_data *i;
struct room_data *me;
int rm;
rm = ch->in_room;
me = real_roomp(ch->in_room);
if (!me) return(FALSE);
if (!me->river_speed) return(FALSE);
if (IS_PC(ch)) {
REMOVE_BIT(ch->specials.act, PLR_WIMPY);
}
if (cmd == FLEE) {
if (ch->specials.fighting) {
if (GetMaxLevel(ch->specials.fighting) >
GetMaxLevel(ch)) {
char_from_room(ch);
char_to_room(ch, rm-1);
me->river_speed = 0;
return(TRUE);
}
}
/* this person just lost */
send_to_char("You lose.\n\r",ch);
if (IS_PC(ch)) {
if (IS_NPC(ch)) {
do_return(ch,"",0);
}
GET_EXP(ch) = MIN(titles[MONK_LEVEL_IND]
[GET_LEVEL(ch, MONK_LEVEL_IND)].exp,
GET_EXP(ch));
send_to_char("Go home.\n\r", ch);
char_from_room(ch);
char_to_room(ch, rm-1);
me->river_speed = 0;
return(TRUE);
} else {
if (mob_index[ch->nr].virtual >= MONK_MOB &&
mob_index[ch->nr].virtual <= MONK_MOB+40) {
if (ch->specials.fighting) {
if (GetMaxLevel(ch)+2 <
GetMaxLevel(ch->specials.fighting)) {
send_to_char("Who the hell are you?\n\r", ch->specials.fighting);
send_to_char("Go home.\n\r", ch->specials.fighting);
char_from_room(ch->specials.fighting);
char_to_room(ch->specials.fighting, rm-1);
me->river_speed = 0;
return(TRUE);
}
}
extract_char(ch);
/*
find pc in room;
*/
for (i=me->people;i;i=i->next_in_room)
if (IS_PC(i)) {
if (IS_NPC(i)) {
do_return(i,"",0);
}
if (IS_IMMORTAL(i))
return;
if (HasClass(i, CLASS_MONK)) {
GET_EXP(i) = MAX(titles[MONK_LEVEL_IND]
[GET_LEVEL(i, MONK_LEVEL_IND)+1].exp+1,
GET_EXP(i));
GainLevel(i, MONK_LEVEL_IND);
}
char_from_room(i);
char_to_room(i, rm-1);
while (me->people)
extract_char(me->people);
while (me->contents)
extract_obj(me->contents);
me->river_speed = 0;
return(TRUE);
}
return(TRUE);
} else {
return(FALSE);
}
}
}
return(FALSE);
}
int monk_challenge_prep_room(struct char_data *ch, int cmd, char *arg, struct room_data *rp, int type)
{
struct room_data *me, *chal;
int i, newr;
struct obj_data *o, *obj, *next_o;
struct char_data *mob, *vict, *next_v;
me = real_roomp(ch->in_room);
if (!me) return(FALSE);
chal = real_roomp(ch->in_room+1);
if (!chal) {
send_to_char("The challenge room is gone.. please contact a god.\n\r", ch);
return(TRUE);
}
if (cmd == NOD) {
if (!HasClass(ch, CLASS_MONK)) {
send_to_char("You're no monk.\n\r", ch);
return(FALSE);
}
if (GET_LEVEL(ch, MONK_LEVEL_IND) < 10) {
send_to_char("You have no business here, kid.\n\r", ch);
return(FALSE);
}
if (GET_EXP(ch) <= titles[MONK_LEVEL_IND]
[GET_LEVEL(ch, MONK_LEVEL_IND)+1].exp-100) {
send_to_char("You cannot advance now.\n\r", ch);
return(TRUE);
}
if (chal->river_speed != 0) {
send_to_char("The challenge room is busy.. please wait.\n\r", ch);
return(TRUE);
}
for (i=0;i<MAX_WEAR;i++) {
if (ch->equipment[i]) {
o = unequip_char(ch, i);
obj_to_char(o, ch);
}
}
while (ch->carrying)
extract_obj(ch->carrying);
newr = ch->in_room+1;
for (vict = real_roomp(newr)->people; vict; vict = next_v) {
next_v = vict->next_in_room;
if (IS_NPC(vict) && (!IS_SET(vict->specials.act, ACT_POLYSELF)))
extract_char(vict);
}
for (obj = real_roomp(newr)->contents; obj; obj = next_o) {
next_o = obj->next_content;
extract_obj(obj);
}
send_to_char("You are purified and taken into the combat room.\n\r", ch);
spell_dispel_magic(IMPLEMENTOR,ch,ch,0);
act("$n is ushered into the combat room.", FALSE, ch, 0, 0, TO_ROOM);
char_from_room(ch);
char_to_room(ch, newr);
/* load the mob at the same lev as char */
mob = read_mobile(MONK_MOB+GET_LEVEL(ch, MONK_LEVEL_IND)-10, VIRTUAL);
if (!mob) {
send_to_char("The fight is called off. Go home.\n\r", ch);
return(TRUE);
}
char_to_room(mob, ch->in_room);
chal->river_speed = 1;
do_look(ch, "", 0);
REMOVE_BIT(ch->specials.act, PLR_WIMPY);
return(TRUE);
}
return(FALSE);
}
#endif
/************************************************************************/
#if 0
/*
glass teleport ring
*/
int glass_teleport_ring(struct char_data *ch, int cmd, char *arg, struct obj_data *obj, int type)
{
}
#endif
#define ENTER 7
int portal(struct char_data *ch, int cmd, char *arg, struct obj_data *obj, int type)
{
struct obj_data *port;
char obj_name[50];
if (type == PULSE_COMMAND) {
if (cmd != ENTER) return(FALSE);
arg=one_argument(arg,obj_name);
if (!(port = get_obj_in_list_vis(ch, obj_name, real_roomp(ch->in_room)->contents))) {
return(FALSE);
}
if (port != obj)
return(FALSE);
if (port->obj_flags.value[1] <= 0 ||
port->obj_flags.value[1] > 32000) {
send_to_char("The portal leads nowhere\n\r", ch);
return;
}
act("$n enters $p, and vanishes!", FALSE, ch, port, 0, TO_ROOM);
act("You enter $p, and you are transported elsewhere", FALSE, ch, port, 0, TO_CHAR);
char_from_room(ch);
char_to_room(ch, port->obj_flags.value[1]);
do_look(ch, "", 0);
act("$n appears from thin air!", FALSE, ch, 0, 0, TO_ROOM);
} else {
obj->obj_flags.value[0]--;
if (obj->obj_flags.value[0] == 0) {
if ((obj->in_room != NOWHERE) &&(real_roomp(obj->in_room)->people)) {
act("$p vanishes in a cloud of smoke!",
FALSE, real_roomp(obj->in_room)->people, obj, 0, TO_ROOM);
act("$p vanishes in a cloud of smoke!",
FALSE, real_roomp(obj->in_room)->people, obj, 0, TO_CHAR);
}
extract_obj(obj);
}
}
}
int scraps(struct char_data *ch, int cmd, char *arg, struct obj_data *obj, int type)
{
if (type == PULSE_COMMAND) {
return(FALSE);
} else {
if (obj->obj_flags.value[0])
obj->obj_flags.value[0]--;
if (obj->obj_flags.value[0] == 0 && obj->in_room) {
if ((obj->in_room != NOWHERE) &&(real_roomp(obj->in_room)->people)) {
act("$p disintegrates into atomic particles!",
FALSE, real_roomp(obj->in_room)->people, obj, 0, TO_ROOM);
act("$p disintegrates into atomic particles!",
FALSE, real_roomp(obj->in_room)->people, obj, 0, TO_CHAR);
}
extract_obj(obj);
}
}
}
#define ATTACK_ROOM 3004
int attack_rats(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
int dir;
if(type == PULSE_COMMAND)
return(FALSE);
if(type == EVENT_WINTER) {
ch->generic = ATTACK_ROOM+number(0,26);
AddHatred(ch,OP_RACE,RACE_HUMAN); /* so they'll attack beggars, etc */
}
if(type == EVENT_SPRING)
ch->generic = 0;
if (ch->generic == 0)
return(FALSE);
dir = choose_exit_global(ch->in_room, ch->generic, MAX_ROOMS);
if( dir < 0) {
ch->generic = 0; /* assume we found it.. start wandering */
return(FALSE); /* We Can't Go Anywhere. */
}
go_direction(ch, dir);
}
#define WHO_TO_HUNT 6112 /* green dragon */
#define WHERE_TO_SIT 3007 /* tavern */
#define WHO_TO_CALL 3063 /* mercenary */
int DragonHunterLeader(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
register struct char_data *i, *j;
int found = FALSE, dir, count;
char buf[255];
/* if(type == PULSE_COMMAND) {
if(cmd == 19)
if(!strncasecmp(arg, "biff", 4)) {
do_follow(ch, arg, cmd);
do_group(mob, GET_NAME(ch), 0);
return(TRUE);
}
return(FALSE);
}*/
if(type == PULSE_TICK) {
if(ch->specials.position == POSITION_SITTING) {
ch->generic = 0;
switch(number(1, 10)) {
case 1: do_emote(ch, "mumbles something about in his day the tavern being a popular hangout.", 0);
break;
case 2: do_say(ch, "I really miss the good old days of fighting dragons all day.", 0);
do_say(ch, "I really should do it more often to keep in shape.", 0);
break;
default: break;
}
return(TRUE);
}
if(ch->specials.position == POSITION_STANDING) {
if(ch->generic <= 20) {
ch->generic++;
return(FALSE);
}
else if(ch->generic == 21) {
for(i = character_list; i; i = i->next)
if(IS_MOB(i) && (mob_index[i->nr].virtual == WHO_TO_HUNT)) {
found = TRUE;
break;
}
if(!found) {
ch->generic = 25;
do_say(ch, "Ack! The dragon is dead! I'm going back to the bar!", 0);
}
else {
do_say(ch, "Ok, Follow me and let's go kill ourselves a dragon!", 0);
ch->generic = 23;
count = 1;
for(i = real_roomp(ch->in_room)->people; i; i = i->next_in_room) {
if(IS_MOB(i) && (mob_index[i->nr].virtual == WHO_TO_CALL)) {
(*mob_index[i->nr].func)(i, 0, "", ch, EVENT_FOLLOW);
sprintf(buf, "%d.%s", count, GET_NAME(i));
do_group(ch, buf, 0);
count++;
}
else if((i->master) && (i->master == ch) && (GetMaxLevel(i) > 10)) {
sprintf(buf, "%s", GET_NAME(i));
do_group(ch, buf, 0);
}
else if((i->master) && (i->master == ch)) {
sprintf(buf, "%s You're too little! Get Lost!", GET_NAME(i));
do_tell(ch, buf, 0);
}
}
}
if(!IS_AFFECTED(ch, AFF_GROUP))
SET_BIT(ch->specials.affected_by, AFF_GROUP);
spell_fly_group(40, ch, 0, 0);
return(FALSE);
}
else if(ch->generic == 23) {
for(i = character_list; i; i = i->next)
if(IS_MOB(i) && (mob_index[i->nr].virtual == WHO_TO_HUNT)) {
found = TRUE;
break;
}
if(!found) {
ch->generic = 25;
do_say(ch, "Ack! The dragon is dead! I'm going back to the bar!", 0);
}
else {
dir = choose_exit_global(ch->in_room, i->in_room, MAX_ROOMS);
if(dir<0) /* can't go anywhere, wait... */
return(FALSE);
go_direction(ch, dir);
if(ch->in_room == i->in_room) { /* we're here! */
do_shout(ch, "The dragon must die!", 0);
for(j = real_roomp(ch->in_room)->people; j; j = j->next_in_room)
if(IS_MOB(j) && (mob_index[j->nr].virtual == WHO_TO_CALL))
(*mob_index[j->nr].func)(j, 0, "", i, EVENT_ATTACK);
ch->generic = 24;
hit(ch, i, TYPE_UNDEFINED);
}
return(FALSE);
}
}
else if(ch->generic == 24) {
do_say(ch, "Guess it's back to the bar for me! I need a drink!", 0);
ch->generic = 25;
}
else if(ch->generic == 25) {
dir = choose_exit_global(ch->in_room, WHERE_TO_SIT, MAX_ROOMS);
if(dir<0) /* no place to go, wait */
return(FALSE);
go_direction(ch, dir);
if(ch->in_room == WHERE_TO_SIT) {
do_say(ch, "Ahhh, time for a drink!", 0);
for(i = real_roomp(ch->in_room)->people; i; i = i->next_in_room)
if(IS_MOB(i) && (mob_index[i->nr].virtual == WHO_TO_CALL))
(*mob_index[i->nr].func)(i, 0, "", i, EVENT_FOLLOW);
do_sit(ch, "", 0);
do_say(ch, "Bartender, how about a drink?", 0);
ch->generic = 0;
}
}
}
}
if(type == EVENT_WEEK) { /* months are TOO long */
if(ch->specials.position != POSITION_SITTING)
return(FALSE); /* We're doing something else, ignore */
for(i = character_list; i; i = i->next)
if(IS_MOB(i) && (mob_index[i->nr].virtual == WHO_TO_HUNT)) {
found = TRUE;
break;
}
if(!found)
return(FALSE); /* No Dragon in the game, ignore */
for(i = character_list; i; i = i->next)
if(IS_MOB(i) && (mob_index[i->nr].virtual == WHO_TO_CALL)) {
(*mob_index[i->nr].func)(i, 0, "", ch, EVENT_GATHER);
}
do_shout(ch, "All who want to hunt a dragon, come to me!", 0);
do_stand(ch, "", 0);
}
return(FALSE);
}
int HuntingMercenary(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
int dir;
if(type == PULSE_COMMAND)
return(FALSE);
if(type == PULSE_TICK) {
if(ch->generic == 1) { /* Going to room */
if(!IS_SET(ch->specials.act, ACT_SENTINEL) )
SET_BIT(ch->specials.act, ACT_SENTINEL);
dir = choose_exit_global(ch->in_room, WHERE_TO_SIT, MAX_ROOMS);
if(dir<0)
return(FALSE);
go_direction(ch, dir);
if(ch->in_room == WHERE_TO_SIT)
ch->generic = 0;
}
return(FALSE);
}
if(type == EVENT_GATHER) {
ch->generic = 1;
return(FALSE);
}
if(type == EVENT_ATTACK) {
hit(ch, mob, TYPE_UNDEFINED);
return(FALSE);
}
if(type == EVENT_FOLLOW) {
if(ch == mob) {
if(IS_SET(ch->specials.act, ACT_SENTINEL))
REMOVE_BIT(ch->specials.act, ACT_SENTINEL);
ch->generic = 0;
stop_follower(ch);
} else {
if (ch->master) {
stop_follower(ch);
}
if (!circle_follow(ch, mob))
add_follower(ch, mob);
}
}
return(FALSE);
}
long jackpot = 25;
int SlotMachine(struct char_data *ch, int cmd, char *arg, struct obj_data *obj, int type)
{
int c, i[3], ind;
char buf[255];
if(cmd != 224)
return(FALSE);
if(GET_GOLD(ch) < 25) {
send_to_char("You don't have enough gold!\n\r", ch);
return(TRUE);
}
if(jackpot == 0)
jackpot = 25; /* always at LEAST have 25 in there */
GET_GOLD(ch) -= 25;
jackpot += 25;
for(c = 0; c <= 2; c++) {
i[c] = number(1, 28);
switch(i[c]) {
case 1:
case 2:
case 3:
case 4:
case 5:
case 6:
case 7: i[c] = 0;
sprintf(buf, "Slot %d: Lemon\n\r", c);
send_to_char(buf, ch);
break;
case 8:
case 9:
case 10:
case 11:
case 12:
case 13:
case 14: i[c] = 1;
sprintf(buf, "Slot %d: Orange\n\r", c);
send_to_char(buf, ch);
break;
case 15:
case 16:
case 17:
case 18:
case 19:
case 20: i[c] = 2;
sprintf(buf, "Slot %d: Banana\n\r", c);
send_to_char(buf, ch);
break;
case 21:
case 22:
case 23:
case 24:
case 25: i[c] = 3;
sprintf(buf, "Slot %d: Peach\n\r", c);
send_to_char(buf, ch);
break;
case 26:
case 27: i[c] = 4;
sprintf(buf, "Slot %d: Bar\n\r", c);
send_to_char(buf, ch);
break;
case 28: i[c] = 5;
sprintf(buf, "Slot %d: Gold\n\r", c);
send_to_char(buf, ch);
break;
}
}
if((i[0] == i[1]) && (i[1] == i[2])) {
send_to_char("You've won!\n\r", ch); /* Ok, they've won, now how much? */
switch(i[0]) {
case 0: ind = 25; /* Give them back what they put in */
break;
case 1: ind = 100;
break;
case 2: ind = 200;
break;
case 3: ind = 500;
break;
case 4: ind = 1000;
break;
case 5: ind = jackpot; /* Wow! We've won big! */
act("Sirens start sounding and lights start flashing everywhere!", FALSE, ch, 0, 0, TO_ROOM);
break;
}
if(ind > jackpot)
ind = jackpot; /* Can only win as much as there is */
sprintf(buf, "You have won %d coins!\n\r", ind);
send_to_char(buf, ch);
GET_GOLD(ch) += ind;
jackpot -= ind;
return(TRUE);
}
send_to_char("Sorry, you didn't win.\n\r", ch);
return(TRUE);
}
#define AST_MOB_NUM 2715
#define ASTRAL_START 8100
#define ASTRAL_END 8224
int astral_portal(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
int destination[20];
char buf[50];
int j;
struct char_data *portal;
int door,going_to,try;
struct room_direction_data *exitp;
struct room_data *rp;
destination[0]=152; /* mob 2715 */
destination[1]=303; /* mob 2716 */
destination[2]=1474; /* ... */
destination[3]=1633;
destination[4]=4109;
destination[5]=5000;
destination[6]=5126;
destination[7]=5221;
destination[8]=6513;
destination[9]=7069;
destination[10]=6601;
destination[11]=9359;
destination[12]=13809;
destination[13]=16925;
destination[14]=20031;
destination[15]=27431;
destination[16]=21210;
destination[17]=25041; /* mob 2732 */
destination[18]=25000; /* mob 2733 */
destination[19]=13407; /* mob 2734 */
destination[20]=15826; /* mob 2735 */
destination[21]=6871; /* mob 2736 */
/* To add another color pool, create another mobile (2737, etc) and add */
/* another destination. */
if(cmd==7) { /* enter */
one_argument(arg,buf);
if(*buf) {
if((str_cmp("pool",buf)) || (str_cmp("color",buf))) {
if(portal=get_char_room("color pool",ch->in_room)) {
j=destination[mob_index[portal->nr].virtual-AST_MOB_NUM];
if(j > 0 && j < 32000) {
send_to_char("\n\r",ch);
send_to_char("You attempt to enter the pool, and it gives.\n\r",ch);
send_to_char("You press on further and the pool surrounds you, like some soft membrane.\n\r",ch);
send_to_char("There is a slight wrenching sensation, and then the color disappears.\n\r",ch);
send_to_char("\n\r",ch);
char_from_room(ch);
char_to_room(ch,j);
do_look(ch, "", 0);
}
}
}
} else return(FALSE);
} else if(type == PULSE_TICK) { /* hey, let's wander! */
if (GET_POS(ch) != POSITION_STANDING)
return;
if(ch->in_room < ASTRAL_START || ch->in_room > ASTRAL_END) {
do_say(ch, "Woah! How the fuck did I get here??", 0);
do_emote(ch, "vanishes in a puff of smoke.", 0);
char_from_room(ch);
char_to_room(ch, (ASTRAL_START + number(0,124)));
do_emote(ch, "arrives with a Bamf!", 0);
}
if(!number(0,15)) {
try = 0;
while(1) {
if(try > 8)
break;
try++;
door = number(0,5);
exitp = EXIT(ch, door);
if (!exit_ok(exitp, &rp)) continue;
going_to = exitp->to_room;
if(going_to < 0 || going_to < ASTRAL_START ||
going_to > ASTRAL_END) continue;
/* hey, is there another pool in the room I am going to? */
if(portal=get_char_room("color pool",going_to))
continue;
go_direction(ch, door);
break;
}
}
} else
return(FALSE);
return(FALSE);
}
extern int gevent;
extern float shop_multiplier;
int DwarvenMiners(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
char buf[255];
void do_emote(struct char_data *ch, char *arg, int cmd);
void do_stand(struct char_data *ch, char *arg, int cmd);
void do_sit(struct char_data *ch, char *arg, int cmd);
if(type == PULSE_COMMAND)
return(FALSE);
if(type == EVENT_END_STRIKE) {
if(ch->specials.position == POSITION_SITTING) {
do_emote(ch, "is off strike.", 0);
do_stand(ch, "", 0);
ch->specials.default_pos = POSITION_STANDING;
ch->player.long_descr = (char *) realloc(ch->player.long_descr,
sizeof(char) * 50);
strcpy(ch->player.long_descr, "A dwarven mine-worker is here, working the mines.\n\r");
if(gevent != 0)
gevent = 0;
shop_multiplier = 0;
}
}
if(type == EVENT_DWARVES_STRIKE) {
if(ch->specials.position == POSITION_STANDING) {
do_emote(ch, "is on strike.", 0);
do_sit(ch, "", 0);
ch->specials.default_pos = POSITION_SITTING;
ch->player.long_descr = (char *) realloc(ch->player.long_descr,
sizeof(char) * 55);
strcpy(ch->player.long_descr, "A dwarven mine-worker is sitting here on-strike\n\r");
}
ch->generic = 30;
return(FALSE);
}
if(type == PULSE_TICK) {
if(gevent != DWARVES_STRIKE) {
ch->generic = 0;
return(FALSE);
}
ch->generic++;
if(ch->generic == 30) { /* strike over, back to work */
PulseMobiles(EVENT_END_STRIKE);
if(ch->specials.position == POSITION_SITTING) {
do_emote(ch, "is off strike.", 0);
do_stand(ch, "", 0);
ch->specials.default_pos = POSITION_STANDING;
ch->player.long_descr = (char *) realloc(ch->player.long_descr,
sizeof(char) * 65);
strcpy(ch->player.long_descr, "A dwarven mine-worker is here, working the mines.\n\r");
}
ch->generic = 0;
gevent = 0;
shop_multiplier = 0;
}
return(FALSE);
}
if((type == EVENT_BIRTH) && (gevent != DWARVES_STRIKE))
return(FALSE);
if(type == EVENT_BIRTH) {
if(ch->specials.position == POSITION_STANDING) {
do_emote(ch, "is on strike.", 0);
do_sit(ch, "", 0);
ch->specials.default_pos = POSITION_SITTING;
ch->player.long_descr = (char *) realloc(ch->player.long_descr,
sizeof(char) * 55);
strcpy(ch->player.long_descr, "A dwarven mine-worker is sitting here on-strike\n\r");
}
ch->generic = 30;
return(FALSE);
}
if(type == EVENT_WEEK) {
if(gevent != 0)
return(FALSE); /* something else happening? FORGET IT! */
if(number(1,6) != 5)
return(FALSE); /* 1 in 6 chance of striking this week */
PulseMobiles(EVENT_DWARVES_STRIKE);
gevent = DWARVES_STRIKE;
switch(number(1,5)) { /*severity*/
case 1: shop_multiplier = 0.25;
break;
case 2: shop_multiplier = 0.5;
break;
case 3: shop_multiplier = 0.75;
break;
case 4: shop_multiplier = 1.0; /* youch! */
break;
case 5: shop_multiplier = 1.5; /* heh ;-) */
break;
}
return(FALSE);
}
}
/* From the appendages of Gecko... (now you know who to blame =) */
int real_rabbit(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
struct char_data *i;
if (cmd || !AWAKE(ch) || ch->specials.fighting)
return FALSE;
for (i = real_roomp(ch->in_room)->people; i; i = i->next_in_room)
if (IS_NPC(i) && (mob_index[i->nr].virtual == 6005) && !number(0,3)) {
do_emote(ch, "sees the damn fox and runs like hell.", 0);
do_flee(ch, "\0", 0);
return TRUE;
}
if (!number(0,5)) {
do_emote(ch, "nibbles on some grass.", 0);
return TRUE;
}
return FALSE;
}
int real_fox(struct char_data *ch, int cmd, char *arg, struct char_data *mob, int type)
{
struct char_data *i;
struct obj_data *j, *k, *next;
if (cmd || !AWAKE(ch) || ch->specials.fighting)
return FALSE;
if (ch->generic) {
ch->generic--;
return TRUE;
}
for (j = real_roomp(ch->in_room)->contents; j; j = j->next_content) {
if (GET_ITEM_TYPE(j) == ITEM_CONTAINER &&
j->obj_flags.value[3] &&
!strcmp(j->name, "corpse rabbit")) {
do_emote(ch, "gorges on the corpse of a rabbit.", 0);
for(k = j->contains; k; k = next) {
next = k->next_content;
obj_from_obj(k);
obj_to_room(k, ch->in_room);
}
extract_obj(j);
ch->generic = 10;
return(TRUE);
}
}
for (i = real_roomp(ch->in_room)->people; i; i = i->next_in_room)
if (IS_NPC(i) && (mob_index[i->nr].virtual == 6001) && !number(0,3)) {
do_emote(ch, "yips and starts to make dinner.", 0);
hit(ch, i, TYPE_UNDEFINED);
return TRUE;
}
return FALSE;
}
/*
holy hand-grenade of antioch code
*/
int antioch_grenade(struct char_data *ch, int cmd, char *arg, struct obj_data *obj, int type)
{
if (type == PULSE_TICK) {
if (obj->obj_flags.value[0])
obj->obj_flags.value[0] -= 1;
}
if (type != PULSE_COMMAND)
return(0);
if (cmd == CMD_SAY || cmd == CMD_ASAY) {
while (*arg == ' ')
arg++;
if (!strcmp(arg, "one")) {
obj->obj_flags.value[0] = 4;
} else if (!strcmp(arg, "two")) {
if (obj->obj_flags.value[0] >= 3 && (obj->obj_flags.value[0] <= 4))
obj->obj_flags.value[0] = 15;
} else if (!strcmp(arg, "five")) {
if (obj->obj_flags.value[0] >= 14 && obj->obj_flags.value[0] <= 15)
obj->obj_flags.value[0] = 35;
else
obj->obj_flags.value[0] = 0;
} else if (!strcmp(arg, "three")) {
if (obj->obj_flags.value[0] >= 14)
obj->obj_flags.value[0] += 10;
} else {
return(0);
}
}
return(0);
}