/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
/***************************************************************************
* God Wars Mud improvements copyright (C) 1994, 1995, 1996 by Richard *
* Woolcock. This mud is NOT to be copied in whole or in part, or to be *
* run without the permission of Richard Woolcock. Nobody else has *
* permission to authorise the use of this code. *
***************************************************************************/
#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
char * const dir_name [] =
{
"#rnorth#n", "#geast#n", "#bsouth#n", "#ywest#n", "#pup#n", "#Cdown#n"
};
const int rev_dir [] =
{
2, 3, 0, 1, 5, 4
};
const sh_int movement_loss [SECT_MAX] =
{
1, 2, 2, 3, 4, 6, 4, 1, 6, 10, 6
};
/*
* Local functions.
*/
int find_door args( ( CHAR_DATA *ch, char *arg ) );
bool has_key args( ( CHAR_DATA *ch, int key ) );
int count_imms args( ( CHAR_DATA *ch ) );
bool check_track args( ( CHAR_DATA *ch, int direction ) );
void add_tracks args( ( CHAR_DATA *ch, int direction ) );
void show_page args( ( CHAR_DATA *ch, OBJ_DATA *book, int pnum, bool pagefalse ) );
void show_runes args( ( CHAR_DATA *ch, OBJ_DATA *page, bool endline ) );
bool are_runes args( ( OBJ_DATA *page ) );
void move_char( CHAR_DATA *ch, int door )
{
CHAR_DATA *fch;
CHAR_DATA *fch_next;
CHAR_DATA *mount;
ROOM_INDEX_DATA *in_room;
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
DESCRIPTOR_DATA *d;
char buf [MAX_STRING_LENGTH];
char poly [MAX_STRING_LENGTH];
char mount2 [MAX_INPUT_LENGTH];
char leave [20];
int revdoor;
if ( door < 0 || door > 5 )
{
bug( "Do_move: bad door %d.", door );
return;
}
if (ch->embraced != ARE_NONE)
{
send_to_char( "You are unable to break your embrace.\n\r", ch );
return;
}
in_room = ch->in_room;
if ( ( pexit = in_room->exit[door] ) == NULL
|| ( to_room = pexit->to_room ) == NULL )
{
send_to_char( "Alas, you cannot go that way.\n\r", ch );
return;
}
if ( IS_SET(pexit->exit_info, EX_WALL_WATER) )
{
send_to_char("You are unable to pass the wall of water.\n\r",ch);
return;
}
if ( IS_SET(pexit->exit_info, EX_WALL_GRANITE) )
{
send_to_char("You are unable to pass the wall of granite.\n\r",ch);
return;
}
if ( IS_SET(pexit->exit_info, EX_WALL_FLAME) )
{
int sn, spelltype;
int ch_hp = ch->hit;
send_to_char("You step through the wall of searing flames!\n\r",ch);
act("$n gingerly steps through the wall of searing flames!",ch,NULL,NULL,TO_ROOM);
if ( ( sn = skill_lookup("fire breath") ) >= 0 )
{
spelltype = skill_table[sn].target;
(*skill_table[sn].spell_fun) ( sn, 25, ch, ch );
}
if (ch == NULL || ch->position == POS_DEAD) return;
if (ch->hit < ch_hp)
{
act("$n's flesh smolders as $e passes through the wall of searing flames!",ch,NULL,NULL,TO_ROOM);
send_to_char("Your flesh smolders as you pass through the wall of searing flames!\n\r",ch);
if (number_percent() <= 5) SET_BIT(ch->affected_by, AFF_FLAMING);
}
}
if ( IS_SET(pexit->exit_info, EX_WARD_GHOULS) && IS_GHOUL(ch) )
{
send_to_char("Something prevents you from moving that way.\n\r",ch);
return;
}
if ( IS_SET(pexit->exit_info, EX_WARD_LUPINES) && IS_WEREWOLF(ch) )
{
send_to_char("Something prevents you from moving that way.\n\r",ch);
return;
}
if ( IS_SET(pexit->exit_info, EX_WARD_KINDRED) && IS_VAMPIRE(ch) )
{
send_to_char("Something prevents you from moving that way.\n\r",ch);
return;
}
if ( IS_SET(pexit->exit_info, EX_WARD_SPIRITS) && IS_SPIRIT(ch) )
{
send_to_char("Something prevents you from moving that way.\n\r",ch);
return;
}
if ( IS_SET(pexit->exit_info, EX_CLOSED)
&& pexit->keyword != NULL
&& !IS_AFFECTED(ch, AFF_PASS_DOOR)
&& !IS_AFFECTED(ch, AFF_ETHEREAL)
&& !IS_AFFECTED(ch, AFF_SHADOWPLANE) )
{
int eff_str = get_curr_str(ch) * 3;
if (!IS_NPC(ch) && (IS_VAMPIRE(ch) || IS_GHOUL(ch)) &&
get_disc(ch,DISC_POTENCE) > 0)
eff_str += (get_disc(ch,DISC_POTENCE) * 10);
if (eff_str >= 100)
{
act( "You smash open the $d.", ch, NULL, pexit->keyword, TO_CHAR );
act( "$n smashes open the $d.", ch, NULL, pexit->keyword, TO_ROOM );
REMOVE_BIT(pexit->exit_info, EX_CLOSED);
}
else
{
act( "The $d is closed.", ch, NULL, pexit->keyword, TO_CHAR );
return;
}
}
if ( IS_AFFECTED(ch, AFF_CHARM)
&& ch->master != NULL
&& in_room == ch->master->in_room )
{
send_to_char( "What? And leave your beloved master?\n\r", ch );
return;
}
if (IS_NPC(ch) && (mount=ch->mount) != NULL && IS_SET(ch->mounted,IS_MOUNT))
{
send_to_char( "You better wait for instructions from your rider.\n\r", ch );
return;
}
if ( room_is_private( to_room ) )
{
send_to_char( "That room is private right now.\n\r", ch );
return;
}
if ( (IS_LEG_L(ch,BROKEN_LEG) || IS_LEG_L(ch,LOST_LEG)) &&
(IS_LEG_R(ch,BROKEN_LEG) || IS_LEG_R(ch,LOST_LEG)) &&
(IS_ARM_L(ch,BROKEN_ARM) || IS_ARM_L(ch,LOST_ARM) ||
get_eq_char(ch, WEAR_HOLD) != NULL) &&
(IS_ARM_R(ch,BROKEN_ARM) || IS_ARM_R(ch,LOST_ARM) ||
get_eq_char(ch, WEAR_WIELD) != NULL))
{
send_to_char( "You need at least one free arm to drag yourself with.\n\r", ch );
return;
}
else if ( IS_BODY(ch,BROKEN_SPINE) &&
(IS_ARM_L(ch,BROKEN_ARM) || IS_ARM_L(ch,LOST_ARM) ||
get_eq_char(ch, WEAR_HOLD) != NULL) &&
(IS_ARM_R(ch,BROKEN_ARM) || IS_ARM_R(ch,LOST_ARM) ||
get_eq_char(ch, WEAR_WIELD) != NULL))
{
send_to_char( "You cannot move with a broken spine.\n\r", ch );
return;
}
if ( !IS_NPC(ch) )
{
int move = 0;
if ( in_room->sector_type == SECT_AIR
|| to_room->sector_type == SECT_AIR )
{
if ( !IS_AFFECTED(ch, AFF_FLYING) &&
((!IS_NPC(ch) && !IS_VAMPAFF(ch, VAM_FLYING)) &&
(!IS_NPC(ch) && !IS_MOD(ch, MOD_UNFOLDED)) &&
(!IS_NPC(ch) && !IS_DEMAFF(ch,DEM_UNFOLDED)))
&& !((mount=ch->mount) != NULL && IS_SET(ch->mounted,IS_RIDING) &&
IS_AFFECTED(mount, AFF_FLYING) ) )
{
send_to_char( "You can't fly.\n\r", ch );
return;
}
}
if ( in_room->sector_type == SECT_WATER_NOSWIM
|| to_room->sector_type == SECT_WATER_NOSWIM )
{
OBJ_DATA *obj;
bool found;
/*
* Look for a boat.
*/
found = FALSE;
if ( !IS_NPC(ch))
{
if (IS_WEREWOLF(ch) && get_tribe(ch, TRIBE_STARGAZERS) > 0)
found = TRUE;
else if (IS_WEREWOLF(ch) && get_tribe(ch, TRIBE_UKTENA) > 1)
found = TRUE;
else if ( IS_VAMPAFF(ch, VAM_FLYING) )
found = TRUE;
else if ( IS_MOD(ch, MOD_UNFOLDED) )
found = TRUE;
else if ( IS_MOD(ch, MOD_FINS) )
found = TRUE;
else if ( IS_DEMAFF(ch, DEM_UNFOLDED) )
found = TRUE;
else if ( IS_POLYAFF(ch, POLY_SERPENT) )
found = TRUE;
else if (IS_VAMPIRE(ch))
{
send_to_char( "You are unable to cross running water.\n\r", ch );
return;
}
}
if ( IS_AFFECTED(ch, AFF_FLYING) )
found = TRUE;
else if ( IS_AFFECTED(ch, AFF_SHADOWPLANE) )
found = TRUE;
else if ( IS_POLYAFF(ch, POLY_FISH) )
found = TRUE;
else if ((mount=ch->mount) != NULL && IS_SET(ch->mounted, IS_RIDING)
&& IS_AFFECTED(mount, AFF_FLYING))
found = TRUE;
if ( !found )
{
for ( obj = ch->carrying; obj != NULL; obj = obj->next_content )
{
if ( obj->item_type == ITEM_BOAT )
{
found = TRUE;
break;
}
}
if ( !found )
{
send_to_char( "You need a boat to go there.\n\r", ch );
return;
}
}
}
else if ( !IS_AFFECTED(ch, AFF_FLYING) && IS_POLYAFF(ch, POLY_FISH) )
{
bool from_ok = FALSE;
bool to_ok = FALSE;
if ( in_room->sector_type == SECT_WATER_NOSWIM ) from_ok = TRUE;
if ( in_room->sector_type == SECT_WATER_SWIM ) from_ok = TRUE;
if ( to_room->sector_type == SECT_WATER_NOSWIM ) to_ok = TRUE;
if ( to_room->sector_type == SECT_WATER_SWIM ) to_ok = TRUE;
if ( !from_ok || !to_ok )
{
send_to_char("You cannot cross land.\n\r",ch);
return;
}
}
if (IS_HERO(ch))
move = 0;
else
move = movement_loss[UMIN(SECT_MAX-1, in_room->sector_type)]
+ movement_loss[UMIN(SECT_MAX-1, to_room->sector_type)];
if (IS_SET(ch->mounted, IS_RIDING) && ch->move < move)
{
send_to_char( "You are too exhausted.\n\r", ch );
return;
}
WAIT_STATE( ch, 1 );
if (!IS_SET(ch->mounted, IS_RIDING)) ch->move -= move;
}
/* Check for mount message - KaVir */
if ( (mount = ch->mount) != NULL && ch->mounted == IS_RIDING )
{
if (IS_NPC(mount))
sprintf(mount2," on %s.",mount->short_descr);
else
sprintf(mount2," on %s.",mount->name);
}
else
sprintf(mount2,".");
if ( IS_NPC(ch) && ch->pIndexData->vnum == MOB_VNUM_EYE )
strcpy(leave,"rolls");
else if ( !IS_NPC(ch) && IS_EXTRA(ch,EXTRA_OSWITCH) && ch->pcdata->obj_vnum == OBJ_VNUM_SPILT_BLOOD )
strcpy(leave,"pours");
else if ( IS_HEAD(ch,LOST_HEAD) || IS_EXTRA(ch,EXTRA_OSWITCH) )
strcpy(leave,"rolls");
else if ( IS_AFFECTED(ch,AFF_ETHEREAL) )
strcpy(leave,"floats");
else if ( !IS_NPC(ch) &&
((IS_DEMAFF(ch,DEM_UNFOLDED) && IS_DEMON(ch)) ||
IS_MOD(ch, MOD_UNFOLDED)) &&
(in_room->sector_type == SECT_AIR ||
to_room->sector_type == SECT_AIR ||
in_room->sector_type == SECT_WATER_NOSWIM ||
to_room->sector_type == SECT_WATER_NOSWIM) )
strcpy(leave,"flies");
else if ( in_room->sector_type == SECT_WATER_NOSWIM ||
to_room->sector_type == SECT_WATER_NOSWIM )
strcpy(leave,"swims");
else if ( IS_SET(ch->polyaff,POLY_SERPENT) )
strcpy(leave,"slithers");
else if ( IS_SET(ch->polyaff,POLY_WOLF) )
strcpy(leave,"stalks");
else if ( IS_SET(ch->polyaff,POLY_FROG) )
strcpy(leave,"hops");
else if ( IS_SET(ch->polyaff,POLY_FISH) )
strcpy(leave,"swims");
else if ( in_room->sector_type == SECT_WATER_SWIM ||
to_room->sector_type == SECT_WATER_SWIM )
strcpy(leave,"wades");
else if ( IS_SET(ch->polyaff,POLY_ZULO) )
{
if ( IS_DEMON(ch) )
strcpy(leave,"charges");
else
strcpy(leave,"strides");
}
else if ( IS_BODY(ch,BROKEN_SPINE) )
strcpy(leave,"drags $mself");
else if ( IS_LEG_L(ch,LOST_LEG) && IS_LEG_R(ch,LOST_LEG) )
strcpy(leave,"drags $mself");
else if ( (IS_LEG_L(ch,BROKEN_LEG) || IS_LEG_L(ch,LOST_LEG) || IS_LEG_L(ch,LOST_FOOT)) &&
(IS_LEG_R(ch,BROKEN_LEG) || IS_LEG_R(ch,LOST_LEG) || IS_LEG_R(ch,LOST_FOOT)) )
strcpy(leave,"crawls");
else if ( ch->hit < (ch->max_hit/4) )
strcpy(leave,"crawls");
else if ( (IS_LEG_R(ch,LOST_LEG) || IS_LEG_R(ch,LOST_FOOT)) &&
(!IS_LEG_L(ch,BROKEN_LEG) && !IS_LEG_L(ch,LOST_LEG) &&
!IS_LEG_L(ch,LOST_FOOT)) )
strcpy(leave,"hops");
else if ( (IS_LEG_L(ch,LOST_LEG) || IS_LEG_L(ch,LOST_FOOT)) &&
(!IS_LEG_R(ch,BROKEN_LEG) && !IS_LEG_R(ch,LOST_LEG) &&
!IS_LEG_R(ch,LOST_FOOT)) )
strcpy(leave,"hops");
else if ( (IS_LEG_L(ch,BROKEN_LEG) || IS_LEG_L(ch,LOST_FOOT)) &&
(!IS_LEG_R(ch,BROKEN_LEG) && !IS_LEG_R(ch,LOST_LEG) &&
!IS_LEG_R(ch,LOST_FOOT)) )
strcpy(leave,"limps");
else if ( (IS_LEG_R(ch,BROKEN_LEG) || IS_LEG_R(ch,LOST_FOOT)) &&
(!IS_LEG_L(ch,BROKEN_LEG) && !IS_LEG_L(ch,LOST_LEG) &&
!IS_LEG_L(ch,LOST_FOOT)) )
strcpy(leave,"limps");
else if ( ch->hit < (ch->max_hit/3) )
strcpy(leave,"limps");
else if ( ch->hit < (ch->max_hit/2) )
strcpy(leave,"staggers");
else if ( !IS_NPC(ch) )
{
if (ch->pcdata->condition[COND_DRUNK] > 10)
strcpy(leave,"staggers");
else
strcpy(leave,"walks");
}
else
strcpy(leave,"walks");
if (ch->stance[0] != -1) do_stance(ch,"");
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
if ( ( victim = d->character ) == NULL )
continue;
if ( ch->in_room == NULL || victim->in_room == NULL ) continue;
if ( ch == victim || ch->in_room != victim->in_room) continue;
if ( d->connected != CON_PLAYING || !can_see( ch, victim ) )
continue;
if ( !IS_NPC(ch) && !IS_AFFECTED(ch, AFF_SNEAK) && IS_AFFECTED(ch,AFF_POLYMORPH)
&& ( IS_NPC(ch) || !IS_SET(ch->act, PLR_WIZINVIS) )
&& can_see(victim,ch))
{
if (((mount = ch->mount) != NULL && ch->mounted == IS_RIDING &&
IS_AFFECTED(mount,AFF_FLYING)) || IS_AFFECTED(ch,AFF_FLYING) ||
(!IS_NPC(ch) && IS_VAMPAFF(ch,VAM_FLYING)) )
sprintf(poly,"%s flies $T%s",ch->morph,mount2);
else if ( (mount = ch->mount) != NULL && ch->mounted == IS_RIDING )
sprintf(poly,"%s rides $T%s",ch->morph,mount2);
else
sprintf(poly,"%s %s $T%s",ch->morph,leave,mount2);
act( poly, victim, NULL, dir_name[door], TO_CHAR );
}
else if ( !IS_AFFECTED(ch, AFF_SNEAK)
&& ( IS_NPC(ch) || !IS_SET(ch->act, PLR_WIZINVIS) )
&& can_see(victim,ch))
{
if (((mount = ch->mount) != NULL && ch->mounted == IS_RIDING &&
IS_AFFECTED(mount,AFF_FLYING)) || IS_AFFECTED(ch,AFF_FLYING) ||
(!IS_NPC(ch) && IS_VAMPAFF(ch,VAM_FLYING)) )
sprintf(poly,"$n flies %s%s",dir_name[door],mount2);
else if ( (mount = ch->mount) != NULL && ch->mounted == IS_RIDING )
sprintf(poly,"$n rides %s%s",dir_name[door],mount2);
else
sprintf(poly,"$n %s %s%s",leave,dir_name[door],mount2);
act( poly, ch, NULL, victim, TO_VICT );
}
}
char_from_room( ch );
char_to_room( ch, to_room );
if ( door == 0 ) {revdoor = 2;sprintf(buf,"the south");}
else if ( door == 1 ) {revdoor = 3;sprintf(buf,"the west");}
else if ( door == 2 ) {revdoor = 0;sprintf(buf,"the north");}
else if ( door == 3 ) {revdoor = 1;sprintf(buf,"the east");}
else if ( door == 4 ) {revdoor = 5;sprintf(buf,"below");}
else {revdoor = 4;sprintf(buf,"above");}
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
if ( ( victim = d->character ) == NULL )
continue;
if ( ch->in_room == NULL || victim->in_room == NULL ) continue;
if ( ch == victim || ch->in_room != victim->in_room) continue;
if ( d->connected != CON_PLAYING || !can_see( ch, victim ) )
continue;
if ( !IS_NPC(ch) && !IS_AFFECTED(ch, AFF_SNEAK) && IS_AFFECTED(ch,AFF_POLYMORPH)
&& ( IS_NPC(ch) || !IS_SET(ch->act, PLR_WIZINVIS) ) && can_see(victim,ch))
{
if (((mount = ch->mount) != NULL && ch->mounted == IS_RIDING &&
IS_AFFECTED(mount,AFF_FLYING)) || IS_AFFECTED(ch,AFF_FLYING) ||
(!IS_NPC(ch) && IS_VAMPAFF(ch,VAM_FLYING)) )
sprintf(poly,"%s flies in from %s%s",ch->morph,buf,mount2);
else if ( (mount = ch->mount) != NULL && ch->mounted == IS_RIDING )
sprintf(poly,"%s rides in from %s%s",ch->morph,buf,mount2);
else
sprintf(poly,"%s %s in from %s%s",ch->morph,leave,buf,mount2);
act( poly, ch, NULL, victim, TO_VICT );
}
else if ( !IS_AFFECTED(ch, AFF_SNEAK) && can_see(victim,ch)
&& ( IS_NPC(ch) || !IS_SET(ch->act, PLR_WIZINVIS) ) )
{
if (((mount = ch->mount) != NULL && ch->mounted == IS_RIDING &&
IS_AFFECTED(mount,AFF_FLYING)) || IS_AFFECTED(ch,AFF_FLYING) ||
(!IS_NPC(ch) && IS_VAMPAFF(ch,VAM_FLYING)) )
sprintf( poly, "$n flies in from %s%s",buf,mount2);
else if ( (mount = ch->mount) != NULL && ch->mounted == IS_RIDING )
sprintf(poly,"$n rides in from %s%s",buf,mount2);
else
sprintf( poly, "$n %s in from %s%s",leave,buf,mount2);
act( poly, ch, NULL, victim, TO_VICT );
}
}
do_look( ch, "auto" );
for ( fch = in_room->people; fch != NULL; fch = fch_next )
{
fch_next = fch->next_in_room;
if ( (mount = fch->mount) != NULL && mount == ch && IS_SET(fch->mounted,IS_MOUNT))
{
act( "$N digs $S heels into you.", fch, NULL, ch, TO_CHAR );
char_from_room(fch);
char_to_room(fch,ch->in_room);
}
if ( fch->master == ch && fch->position == POS_STANDING
&& fch->in_room != ch->in_room
&& !IS_VAMPAFF(fch, VAM_EARTHMELDED)
&& !IS_EXTRA(fch, EXTRA_OSWITCH)
&& !IS_HEAD(fch, LOST_HEAD))
{
act( "You follow $N.", fch, NULL, ch, TO_CHAR );
move_char( fch, door );
}
}
room_text(ch,">ENTER<");
return;
}
void do_north( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *in_room;
if (IS_AFFECTED(ch, AFF_WEBBED))
{
send_to_char("You are unable to move with all this sticky webbing on.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_SHADOW))
{
send_to_char("You are unable to move with these tendrils of darkness entrapping you.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_JAIL))
{
send_to_char("You are unable to move with these bands of water entrapping you.\n\r",ch);
return;
}
in_room = ch->in_room;
move_char( ch, DIR_NORTH );
if (!IS_NPC(ch) && ch->in_room != in_room)
{
ROOM_INDEX_DATA *old_room;
old_room = ch->in_room;
char_from_room(ch);
char_to_room(ch, in_room);
add_tracks( ch, DIR_NORTH );
char_from_room(ch);
char_to_room(ch, old_room);
}
/*
if (!IS_NPC(ch) && ch->in_room != in_room) add_tracks( ch, DIR_SOUTH );
*/
return;
}
void do_east( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *in_room;
if (IS_AFFECTED(ch, AFF_WEBBED))
{
send_to_char("You are unable to move with all this sticky webbing on.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_SHADOW))
{
send_to_char("You are unable to move with these tendrils of darkness entrapping you.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_JAIL))
{
send_to_char("You are unable to move with these bands of water entrapping you.\n\r",ch);
return;
}
in_room = ch->in_room;
move_char( ch, DIR_EAST );
if (!IS_NPC(ch) && ch->in_room != in_room)
{
ROOM_INDEX_DATA *old_room;
old_room = ch->in_room;
char_from_room(ch);
char_to_room(ch, in_room);
add_tracks( ch, DIR_EAST );
char_from_room(ch);
char_to_room(ch, old_room);
}
/*
if (!IS_NPC(ch) && ch->in_room != in_room) add_tracks( ch, DIR_WEST );
*/
return;
}
void do_south( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *in_room;
if (IS_AFFECTED(ch, AFF_WEBBED))
{
send_to_char("You are unable to move with all this sticky webbing on.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_SHADOW))
{
send_to_char("You are unable to move with these tendrils of darkness entrapping you.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_JAIL))
{
send_to_char("You are unable to move with these bands of water entrapping you.\n\r",ch);
return;
}
in_room = ch->in_room;
move_char( ch, DIR_SOUTH );
if (!IS_NPC(ch) && ch->in_room != in_room)
{
ROOM_INDEX_DATA *old_room;
old_room = ch->in_room;
char_from_room(ch);
char_to_room(ch, in_room);
add_tracks( ch, DIR_SOUTH );
char_from_room(ch);
char_to_room(ch, old_room);
}
/*
if (!IS_NPC(ch) && ch->in_room != in_room) add_tracks( ch, DIR_NORTH );
*/
return;
}
void do_west( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *in_room;
if (IS_AFFECTED(ch, AFF_WEBBED))
{
send_to_char("You are unable to move with all this sticky webbing on.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_SHADOW))
{
send_to_char("You are unable to move with these tendrils of darkness entrapping you.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_JAIL))
{
send_to_char("You are unable to move with these bands of water entrapping you.\n\r",ch);
return;
}
in_room = ch->in_room;
move_char( ch, DIR_WEST );
if (!IS_NPC(ch) && ch->in_room != in_room)
{
ROOM_INDEX_DATA *old_room;
old_room = ch->in_room;
char_from_room(ch);
char_to_room(ch, in_room);
add_tracks( ch, DIR_WEST );
char_from_room(ch);
char_to_room(ch, old_room);
}
/*
if (!IS_NPC(ch) && ch->in_room != in_room) add_tracks( ch, DIR_EAST );
*/
return;
}
void do_up( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *in_room;
if (IS_AFFECTED(ch, AFF_WEBBED))
{
send_to_char("You are unable to move with all this sticky webbing on.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_SHADOW))
{
send_to_char("You are unable to move with these tendrils of darkness entrapping you.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_JAIL))
{
send_to_char("You are unable to move with these bands of water entrapping you.\n\r",ch);
return;
}
in_room = ch->in_room;
move_char( ch, DIR_UP );
if (!IS_NPC(ch) && ch->in_room != in_room)
{
ROOM_INDEX_DATA *old_room;
old_room = ch->in_room;
char_from_room(ch);
char_to_room(ch, in_room);
add_tracks( ch, DIR_UP );
char_from_room(ch);
char_to_room(ch, old_room);
}
/*
if (!IS_NPC(ch) && ch->in_room != in_room) add_tracks( ch, DIR_DOWN );
*/
return;
}
void do_down( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *in_room;
if (IS_AFFECTED(ch, AFF_WEBBED))
{
send_to_char("You are unable to move with all this sticky webbing on.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_SHADOW))
{
send_to_char("You are unable to move with these tendrils of darkness entrapping you.\n\r",ch);
return;
}
else if (IS_AFFECTED(ch, AFF_JAIL))
{
send_to_char("You are unable to move with these bands of water entrapping you.\n\r",ch);
return;
}
in_room = ch->in_room;
move_char( ch, DIR_DOWN );
if (!IS_NPC(ch) && ch->in_room != in_room)
{
ROOM_INDEX_DATA *old_room;
old_room = ch->in_room;
char_from_room(ch);
char_to_room(ch, in_room);
add_tracks( ch, DIR_DOWN );
char_from_room(ch);
char_to_room(ch, old_room);
}
/*
if (!IS_NPC(ch) && ch->in_room != in_room) add_tracks( ch, DIR_UP );
*/
return;
}
int find_door( CHAR_DATA *ch, char *arg )
{
EXIT_DATA *pexit;
int door;
if ( !str_cmp( arg, "n" ) || !str_cmp( arg, "north" ) ) door = 0;
else if ( !str_cmp( arg, "e" ) || !str_cmp( arg, "east" ) ) door = 1;
else if ( !str_cmp( arg, "s" ) || !str_cmp( arg, "south" ) ) door = 2;
else if ( !str_cmp( arg, "w" ) || !str_cmp( arg, "west" ) ) door = 3;
else if ( !str_cmp( arg, "u" ) || !str_cmp( arg, "up" ) ) door = 4;
else if ( !str_cmp( arg, "d" ) || !str_cmp( arg, "down" ) ) door = 5;
else
{
for ( door = 0; door <= 5; door++ )
{
if ( ( pexit = ch->in_room->exit[door] ) != NULL
&& IS_SET(pexit->exit_info, EX_ISDOOR)
&& pexit->keyword != NULL
&& is_name( arg, pexit->keyword ) )
return door;
}
act( "I see no $T here.", ch, NULL, arg, TO_CHAR );
return -1;
}
if ( ( pexit = ch->in_room->exit[door] ) == NULL )
{
act( "I see no door $T here.", ch, NULL, arg, TO_CHAR );
return -1;
}
if ( !IS_SET(pexit->exit_info, EX_ISDOOR) )
{
send_to_char( "You can't do that.\n\r", ch );
return -1;
}
return door;
}
/* Designed for the portal spell, but can also have other uses...KaVir
* V0 = Where the portal will take you.
* V1 = Number of uses (0 is infinate).
* V2 = if 2, cannot be entered.
* V3 = The room the portal is currently in.
*/
void do_enter( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *pRoomIndex;
ROOM_INDEX_DATA *location;
char arg[MAX_INPUT_LENGTH];
char poly [MAX_INPUT_LENGTH];
OBJ_DATA *obj;
OBJ_DATA *portal;
OBJ_DATA *portal_next;
CHAR_DATA *mount;
bool found;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Enter what?\n\r", ch );
return;
}
obj = get_obj_list( ch, arg, ch->in_room->contents );
if ( obj == NULL )
{
act( "I see no $T here.", ch, NULL, arg, TO_CHAR );
return;
}
if ( obj->item_type != ITEM_PORTAL )
{
act( "You cannot enter that.", ch, NULL, arg, TO_CHAR );
return;
}
if (IS_AFFECTED(ch, AFF_SHADOWPLANE) &&
!IS_SET(obj->extra_flags, ITEM_SHADOWPLANE) )
{
send_to_char( "You are too insubstantual.\n\r", ch );
return;
}
else if (!IS_AFFECTED(ch, AFF_SHADOWPLANE) &&
IS_SET(obj->extra_flags, ITEM_SHADOWPLANE) )
{
send_to_char( "It is too insubstantual.\n\r", ch );
return;
}
if ( obj->value[2] == 2 || obj->value[2] == 3 )
{
act( "It seems to be closed.", ch, NULL, arg, TO_CHAR );
return;
}
pRoomIndex = get_room_index(obj->value[0]);
location = ch->in_room;
if ( pRoomIndex == NULL )
{
act( "You are unable to enter.", ch, NULL, arg, TO_CHAR );
return;
}
act( "You step into $p.", ch, obj, NULL, TO_CHAR );
if ( !IS_NPC(ch) && IS_AFFECTED(ch,AFF_POLYMORPH) )
sprintf(poly,"%s steps into $p.",ch->morph);
else
sprintf(poly,"$n steps into $p.");
act( poly, ch, obj, NULL, TO_ROOM );
char_from_room(ch);
char_to_room(ch,pRoomIndex);
if ( !IS_NPC(ch) && IS_AFFECTED(ch,AFF_POLYMORPH) )
sprintf(poly,"%s steps out of $p.",ch->morph);
else
sprintf(poly,"$n steps out of $p.");
act( poly, ch, obj, NULL, TO_ROOM );
char_from_room(ch);
char_to_room(ch,location);
/* Leave this out for now, as it doesn't seem to work properly. KaVir
if ((obj->value[2] == 1) && (CAN_WEAR(obj,ITEM_TAKE)))
{
obj->value[2] = 2;
REMOVE_BIT(obj->wear_flags, ITEM_TAKE);
}
*/
if (obj->value[1] != 0)
{
obj->value[1] = obj->value[1] - 1;
if (obj->value[1] < 1)
{
act( "$p vanishes.", ch, obj, NULL, TO_CHAR );
act( "$p vanishes.", ch, obj, NULL, TO_ROOM );
/*
extract_obj(obj);
*/
obj->timer = 1;
}
}
char_from_room(ch);
char_to_room(ch,pRoomIndex);
found = FALSE;
for ( portal = ch->in_room->contents; portal != NULL; portal = portal_next )
{
portal_next = portal->next_content;
if ( ( obj->value[0] == portal->value[3] )
&& (obj->value[3] == portal->value[0]) )
{
found = TRUE;
/* Leave this out for now, as it doesn't seem to work properly. KaVir
if ((portal->value[2] == 2) && (!CAN_WEAR(obj,ITEM_TAKE)))
{
portal->value[2] = 1;
SET_BIT(obj->wear_flags, ITEM_TAKE);
}
*/
if (IS_AFFECTED(ch, AFF_SHADOWPLANE) &&
!IS_SET(portal->extra_flags, ITEM_SHADOWPLANE) )
{
REMOVE_BIT(ch->affected_by, AFF_SHADOWPLANE);
break;
}
else if (!IS_AFFECTED(ch, AFF_SHADOWPLANE) &&
IS_SET(portal->extra_flags, ITEM_SHADOWPLANE) )
{
SET_BIT(ch->affected_by, AFF_SHADOWPLANE);
break;
}
if (portal->value[1] != 0)
{
portal->value[1] = portal->value[1] - 1;
if (portal->value[1] < 1)
{
act( "$p vanishes.", ch, portal, NULL, TO_CHAR );
act( "$p vanishes.", ch, portal, NULL, TO_ROOM );
/*
extract_obj(portal);
*/
portal->timer = 1;
}
}
}
}
do_look(ch,"auto");
if ( ( mount = ch->mount ) == NULL ) return;
char_from_room( mount );
char_to_room( mount, ch->in_room );
return;
}
void do_open( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int door;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Open what?\n\r", ch );
return;
}
if ( ( obj = get_obj_here( ch, arg ) ) != NULL )
{
/* 'open object' */
if ( obj->item_type != ITEM_CONTAINER && obj->item_type != ITEM_BOOK)
{ send_to_char( "That's not a container.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_CLOSED) )
{ send_to_char( "It's already open.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_CLOSEABLE) && obj->item_type != ITEM_BOOK)
{ send_to_char( "You can't do that.\n\r", ch ); return; }
if ( IS_SET(obj->value[1], CONT_LOCKED) )
{ send_to_char( "It's locked.\n\r", ch ); return; }
REMOVE_BIT(obj->value[1], CONT_CLOSED);
send_to_char( "Ok.\n\r", ch );
act( "$n opens $p.", ch, obj, NULL, TO_ROOM );
return;
}
if ( ( door = find_door( ch, arg ) ) >= 0 )
{
/* 'open door' */
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
EXIT_DATA *pexit_rev;
pexit = ch->in_room->exit[door];
if ( !IS_SET(pexit->exit_info, EX_CLOSED) )
{ send_to_char( "It's already open.\n\r", ch ); return; }
if ( IS_SET(pexit->exit_info, EX_LOCKED) )
{ send_to_char( "It's locked.\n\r", ch ); return; }
REMOVE_BIT(pexit->exit_info, EX_CLOSED);
act( "$n opens the $d.", ch, NULL, pexit->keyword, TO_ROOM );
send_to_char( "Ok.\n\r", ch );
/* open the other side */
if ( ( to_room = pexit->to_room ) != NULL
&& ( pexit_rev = to_room->exit[rev_dir[door]] ) != NULL
&& pexit_rev->to_room == ch->in_room )
{
CHAR_DATA *rch;
REMOVE_BIT( pexit_rev->exit_info, EX_CLOSED );
for ( rch = to_room->people; rch != NULL; rch = rch->next_in_room )
act( "The $d opens.", rch, NULL, pexit_rev->keyword, TO_CHAR );
}
}
return;
}
void do_close( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int door;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Close what?\n\r", ch );
return;
}
if ( ( obj = get_obj_here( ch, arg ) ) != NULL )
{
/* 'close object' */
if ( obj->item_type != ITEM_CONTAINER && obj->item_type != ITEM_BOOK)
{ send_to_char( "That's not a container.\n\r", ch ); return; }
if ( IS_SET(obj->value[1], CONT_CLOSED) )
{ send_to_char( "It's already closed.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_CLOSEABLE) && obj->item_type != ITEM_BOOK )
{ send_to_char( "You can't do that.\n\r", ch ); return; }
SET_BIT(obj->value[1], CONT_CLOSED);
if (obj->item_type == ITEM_BOOK) obj->value[2] = 0;
send_to_char( "Ok.\n\r", ch );
act( "$n closes $p.", ch, obj, NULL, TO_ROOM );
return;
}
if ( ( door = find_door( ch, arg ) ) >= 0 )
{
/* 'close door' */
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
EXIT_DATA *pexit_rev;
pexit = ch->in_room->exit[door];
if ( IS_SET(pexit->exit_info, EX_CLOSED) )
{ send_to_char( "It's already closed.\n\r", ch ); return; }
SET_BIT(pexit->exit_info, EX_CLOSED);
act( "$n closes the $d.", ch, NULL, pexit->keyword, TO_ROOM );
send_to_char( "Ok.\n\r", ch );
/* close the other side */
if ( ( to_room = pexit->to_room ) != NULL
&& ( pexit_rev = to_room->exit[rev_dir[door]] ) != 0
&& pexit_rev->to_room == ch->in_room )
{
CHAR_DATA *rch;
SET_BIT( pexit_rev->exit_info, EX_CLOSED );
for ( rch = to_room->people; rch != NULL; rch = rch->next_in_room )
act( "The $d closes.", rch, NULL, pexit_rev->keyword, TO_CHAR );
}
}
return;
}
void do_turn( CHAR_DATA *ch, char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int value = 0;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if ( arg1[0] == '\0' || arg2[0] == '\0' )
{
send_to_char( "Syntax: Turn <book> <forward/back>.\n\r", ch );
return;
}
if (is_number(arg2)) value = atoi(arg2);
if ( ( obj = get_obj_here( ch, arg1 ) ) == NULL )
{
send_to_char("You don't have that book.\n\r",ch);
return;
}
if ( obj->item_type != ITEM_BOOK)
{ send_to_char( "That's not a book.\n\r", ch ); return; }
if ( IS_SET(obj->value[1], CONT_CLOSED) )
{ send_to_char( "First you should open it.\n\r", ch ); return; }
if (!str_cmp(arg2,"f") || !str_cmp(arg2,"forward"))
{
if (obj->value[2] >= obj->value[3])
{
send_to_char("But you are already at the end of the book.\n\r",ch);
return;
}
obj->value[2] += 1;
act( "You flip forward a page in $p.", ch, obj, NULL, TO_CHAR );
act( "$n flips forward a page in $p.", ch, obj, NULL, TO_ROOM );
}
else if (!str_cmp(arg2,"b") || !str_cmp(arg2,"backward"))
{
if (obj->value[2] <= 0)
{
send_to_char("But you are already at the beginning of the book.\n\r",ch);
return;
}
obj->value[2] -= 1;
act( "You flip backward a page in $p.", ch, obj, NULL, TO_CHAR );
act( "$n flips backward a page in $p.", ch, obj, NULL, TO_ROOM );
}
else if (is_number(arg2) && value >= 0 && value <= obj->value[3])
{
if (value == obj->value[2])
{
act("$p is already open at that page.",ch,obj,NULL,TO_CHAR);
return;
}
else if (value < obj->value[2])
{
act( "You flip backwards through $p.", ch, obj, NULL, TO_CHAR );
act( "$n flips backwards through $p.", ch, obj, NULL, TO_ROOM );
}
else
{
act( "You flip forwards through $p.", ch, obj, NULL, TO_CHAR );
act( "$n flips forwards through $p.", ch, obj, NULL, TO_ROOM );
}
obj->value[2] = value;
}
else
send_to_char("Do you wish to turn forward or backward a page?\n\r",ch);
return;
}
void do_read( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
OBJ_DATA *obj;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "What do you wish to read?\n\r", ch );
return;
}
if ( ( obj = get_obj_here( ch, arg ) ) == NULL )
{
send_to_char("You don't have that book.\n\r",ch);
return;
}
if ( obj->item_type == ITEM_PAGE)
{
if (!str_cmp(obj->victpoweruse,"(null)"))
sprintf(buf,"Untitled page.\n\r");
else
sprintf(buf,"%s.\n\r",obj->victpoweruse);
buf[0] = UPPER(buf[0]);
send_to_char(buf,ch);
if (obj->chpoweruse == NULL || obj->chpoweruse == '\0' ||
!str_cmp(obj->chpoweruse,"(null)"))
{
if (!are_runes(obj))
send_to_char("This page is blank.\n\r",ch);
else if (IS_AFFECTED(ch, AFF_DETECT_MAGIC) &&
!IS_SET(obj->quest, QUEST_MASTER_RUNE) &&
!IS_SET(obj->spectype, ADV_STARTED))
show_runes(ch, obj, FALSE);
else
send_to_char("This page is blank.\n\r",ch);
return;
}
send_to_char("--------------------------------------------------------------------------------\n\r",ch);
send_to_char(obj->chpoweruse,ch);
send_to_char("\n\r--------------------------------------------------------------------------------\n\r",ch);
if (IS_AFFECTED(ch, AFF_DETECT_MAGIC) &&
!IS_SET(obj->spectype, ADV_STARTED) &&
!IS_SET(obj->quest, QUEST_MASTER_RUNE )) show_runes(ch, obj, TRUE);
return;
}
if ( obj->item_type != ITEM_BOOK)
{ send_to_char( "That's not a book.\n\r", ch ); return; }
if ( IS_SET(obj->value[1], CONT_CLOSED) )
{
if (!str_cmp(obj->victpoweruse,"(null)"))
sprintf(buf,"The book is untitled.\n\r");
else
sprintf(buf,"The book is titled '%s'.\n\r",obj->victpoweruse);
buf[0] = UPPER(buf[0]);
send_to_char(buf,ch);
return;
}
if (obj->value[2] == 0)
{
int page;
send_to_char("Index page.\n\r",ch);
if (obj->value[3] <= 0)
{
send_to_char("<No pages>\n\r",ch);
return;
}
for ( page = 1; page <= obj->value[3]; page ++ )
{
sprintf(buf,"Page %d:",page);
send_to_char(buf,ch);
show_page(ch,obj,page,TRUE);
}
}
else
{
sprintf(buf,"Page %d:",obj->value[2]);
send_to_char(buf,ch);
show_page(ch,obj,obj->value[2],FALSE);
}
return;
}
void do_write( CHAR_DATA *ch, char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char arg3[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
OBJ_DATA *obj;
OBJ_DATA *object;
CHAR_DATA *mobile;
smash_tilde( argument );
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
strcpy( arg3, argument );
if (IS_NPC(ch)) return;
if ( arg1[0] == '\0' || arg2[0] == '\0' || arg3[0] == '\0' )
{
send_to_char("Syntax: Write <page> <title/line> <text>.\n\r",ch);
return;
}
if ( ( ( ( obj = get_eq_char(ch, WEAR_HOLD) ) != NULL) &&
( obj->item_type != ITEM_TOOL || !IS_SET(obj->value[0],TOOL_PEN) ) )
|| obj == NULL)
{
if ( ( ( ( obj = get_eq_char(ch, WEAR_WIELD) ) != NULL) &&
( obj->item_type != ITEM_TOOL || !IS_SET(obj->value[0],TOOL_PEN) ) )
|| obj == NULL)
{
send_to_char("You are not holding a pen.\n\r",ch);
return;
}
}
if ( ( obj = get_obj_carry( ch, arg1) ) == NULL )
{
send_to_char("You are not carrying that item.\n\r",ch);
return;
}
if ( obj->item_type != ITEM_PAGE && obj->item_type != ITEM_BOOK )
{
send_to_char("You cannot write on that.\n\r",ch);
return;
}
if (!str_cmp( arg2,"title"))
{
free_string( obj->victpoweruse );
obj->victpoweruse = str_dup( arg3 );
send_to_char("Ok.\n\r",ch);
act("$n writes something on $p.",ch,obj,NULL,TO_ROOM);
return;
}
else if (str_cmp( arg2,"line"))
{
send_to_char("You can write a TITLE or a LINE.\n\r",ch);
return;
}
else if ( obj->item_type == ITEM_BOOK )
{
send_to_char("You can only write a title on the book.\n\r",ch);
return;
}
if (obj->chpoweruse != NULL) strcpy(buf,obj->chpoweruse);
else return;
if (!str_cmp(buf,"(null)"))
{
arg3[0] = UPPER(arg3[0]);
free_string( obj->chpoweruse );
obj->chpoweruse = str_dup( arg3 );
send_to_char("Ok.\n\r",ch);
act("$n writes something on $p.",ch,obj,NULL,TO_ROOM);
if (!IS_MAGE(ch) && !IS_IMMORTAL(ch) && !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_FAILED);
else if (!str_cmp(arg3,"start.damage.spell") && obj->spectype == 0)
{SET_BIT(obj->spectype, ADV_STARTED);
SET_BIT(obj->spectype, ADV_DAMAGE);}
else if (!str_cmp(arg3,"start.affect.spell") && obj->spectype == 0)
{SET_BIT(obj->spectype, ADV_STARTED);
SET_BIT(obj->spectype, ADV_AFFECT);}
else if (!str_cmp(arg3,"start.action.spell") && obj->spectype == 0)
{SET_BIT(obj->spectype, ADV_STARTED);
SET_BIT(obj->spectype, ADV_ACTION);}
else if (!str_cmp(arg3,"start.spell") && obj->spectype == 0)
SET_BIT(obj->spectype, ADV_STARTED);
else if (!IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_FAILED);
return;
}
if (obj->chpoweruse != NULL && buf[0] != '\0')
{
if (strlen(buf)+strlen(arg3) >= MAX_STRING_LENGTH-4)
{
send_to_char("Line too long.\n\r",ch);
return;
}
else
{
free_string( obj->chpoweruse );
strcat( buf, "\n\r" );
strcat( buf, arg3 );
obj->chpoweruse = str_dup( buf );
argument = one_argument( argument, arg1 );
strcpy( arg2, argument );
if (!IS_MAGE(ch) && !IS_IMMORTAL(ch) && !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_FAILED);
else if (!str_cmp(arg1,"start.damage.spell") && obj->spectype == 0)
{SET_BIT(obj->spectype, ADV_STARTED);
SET_BIT(obj->spectype, ADV_DAMAGE);}
else if (!str_cmp(arg1,"start.affect.spell") && obj->spectype == 0)
{SET_BIT(obj->spectype, ADV_STARTED);
SET_BIT(obj->spectype, ADV_AFFECT);}
else if (!str_cmp(arg1,"start.action.spell") && obj->spectype == 0)
{SET_BIT(obj->spectype, ADV_STARTED);
SET_BIT(obj->spectype, ADV_ACTION);}
else if (!str_cmp(arg1,"start.spell") && obj->spectype == 0)
SET_BIT(obj->spectype, ADV_STARTED);
else if (!str_cmp(arg1,"end.spell")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( IS_SET( obj->spectype, ADV_APPLY )
&& !IS_SET( obj->spectype, ADV_FAILED )
&& ch->class != CLASS_MAGE )
SET_BIT( obj->spectype, ADV_FAILED );
SET_BIT(obj->spectype, ADV_FINISHED);
obj->toughness = ch->pcdata->runes[0];
obj->points += 1;
}
else if (!str_cmp(arg1,"damage.spell")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_DAMAGE)
&& !IS_SET(obj->spectype, ADV_AFFECT)
&& !IS_SET(obj->spectype, ADV_ACTION)
&& !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_DAMAGE);
else if (!str_cmp(arg1,"affect.spell")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_DAMAGE)
&& !IS_SET(obj->spectype, ADV_AFFECT)
&& !IS_SET(obj->spectype, ADV_ACTION)
&& !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_AFFECT);
else if (!str_cmp(arg1,"action.spell")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_DAMAGE)
&& !IS_SET(obj->spectype, ADV_AFFECT)
&& !IS_SET(obj->spectype, ADV_ACTION)
&& !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_AFFECT);
else if (!str_cmp(arg1,"area.affect")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_AREA_AFFECT)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{SET_BIT(obj->spectype, ADV_AREA_AFFECT);obj->points += 100;}
else if (!str_cmp(arg1,"victim.target")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_VICTIM_TARGET)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{SET_BIT(obj->spectype, ADV_VICTIM_TARGET);obj->points += 5;}
else if (!str_cmp(arg1,"object.target")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_OBJECT_TARGET)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{SET_BIT(obj->spectype, ADV_OBJECT_TARGET);obj->points += 5;}
else if (!str_cmp(arg1,"global.target")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_GLOBAL_TARGET)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{SET_BIT(obj->spectype, ADV_GLOBAL_TARGET);obj->points += 50;}
else if (!str_cmp(arg1,"next.page")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_NEXT_PAGE)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{SET_BIT(obj->spectype, ADV_NEXT_PAGE);obj->points += 5;}
else if (!str_cmp(arg1,"parameter:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_PARAMETER)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' )
SET_BIT(obj->spectype, ADV_FAILED);
else
{
SET_BIT(obj->spectype, ADV_PARAMETER);
free_string(obj->chpoweron);
obj->chpoweron = str_dup(arg2);
}
}
else if (!str_cmp(arg1,"spell.first")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_SPELL_FIRST)
&& !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_SPELL_FIRST);
else if (!str_cmp(arg1,"not.caster")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_NOT_CASTER)
&& !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_NOT_CASTER);
else if (!str_cmp(arg1,"no.players")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_NO_PLAYERS)
&& !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_NO_PLAYERS);
else if (!str_cmp(arg1,"second.victim")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_SECOND_VICTIM)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{SET_BIT(obj->spectype, ADV_SECOND_VICTIM);obj->points += 5;}
else if (!str_cmp(arg1,"second.object")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_SECOND_OBJECT)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{SET_BIT(obj->spectype, ADV_SECOND_OBJECT);obj->points += 5;}
else if (!str_cmp(arg1,"reversed")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_REVERSED)
&& !IS_SET(obj->spectype, ADV_AGGDAM)
&& !IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_REVERSED);
else if (!str_cmp(arg1,"aggravated")
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_AGGDAM)
&& !IS_SET(obj->spectype, ADV_REVERSED)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
SET_BIT(obj->spectype, ADV_AGGDAM);
obj->points += 100;
}
else if (!str_cmp(arg1,"min.damage:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_DAMAGE)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' || !is_number(arg2) ||
atoi(arg2) < 0 || atoi(arg2) > 500)
SET_BIT(obj->spectype, ADV_FAILED);
else {obj->value[1] = atoi(arg2);obj->points += (atoi(arg2)*0.5);}
}
else if (!str_cmp(arg1,"max.damage:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_DAMAGE)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' || !is_number(arg2) ||
atoi(arg2) < 0 || atoi(arg2) > 1000)
SET_BIT(obj->spectype, ADV_FAILED);
else {obj->value[2] = atoi(arg2);obj->points += (atoi(arg2)*0.5);}
}
else if (!str_cmp(arg1,"move")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_ACTION)
&& obj->value[1] == ACTION_NONE
&& !IS_SET(obj->spectype, ADV_FINISHED))
{obj->value[1] = ACTION_MOVE;obj->points += 500;}
else if (!str_cmp(arg1,"mob:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_ACTION)
&& obj->value[1] == ACTION_NONE
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
obj->value[1] = ACTION_MOB;
if ( arg2[0] == '\0' ||
( mobile = get_char_world2( ch, arg2 ) ) == NULL)
SET_BIT(obj->spectype, ADV_FAILED);
else {obj->value[2] = mobile->pIndexData->vnum;obj->points += 500;}
}
else if (!str_cmp(arg1,"object:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_ACTION)
&& obj->value[1] == ACTION_NONE
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
obj->value[1] = ACTION_OBJECT;
if ( arg2[0] == '\0' ||
( object = get_obj_world2( ch, arg2 ) ) == NULL)
SET_BIT(obj->spectype, ADV_FAILED);
else if (IS_SET(object->quest, QUEST_ARTIFACT))
SET_BIT(object->spectype, ADV_FAILED);
else if (IS_SET(object->quest, QUEST_RELIC))
SET_BIT(object->spectype, ADV_FAILED);
else if (strlen(object->questowner) > 2)
SET_BIT(object->spectype, ADV_FAILED);
else {obj->value[2] = object->pIndexData->vnum;obj->points += 500;}
}
else if (!str_cmp(arg1,"apply:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_AFFECT)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( !IS_SET( obj->spectype, ADV_APPLY ) )
SET_BIT( obj->spectype, ADV_APPLY );
if ( arg2[0] == '\0' )
SET_BIT(obj->spectype, ADV_FAILED);
else if ((!str_cmp(arg2,"strength") || !str_cmp(arg2,"str")) &&
!IS_SET(obj->value[1], ADV_STR))
SET_BIT(obj->value[1], ADV_STR);
else if ((!str_cmp(arg2,"dexterity") || !str_cmp(arg2,"dex")) &&
!IS_SET(obj->value[1], ADV_DEX))
SET_BIT(obj->value[1], ADV_DEX);
else if ((!str_cmp(arg2,"intelligence") || !str_cmp(arg2,"int")) &&
!IS_SET(obj->value[1], ADV_INT))
SET_BIT(obj->value[1], ADV_INT);
else if ((!str_cmp(arg2,"wisdom") || !str_cmp(arg2,"wis")) &&
!IS_SET(obj->value[1], ADV_WIS))
SET_BIT(obj->value[1], ADV_WIS);
else if ((!str_cmp(arg2,"constitution") || !str_cmp(arg2,"con")) &&
!IS_SET(obj->value[1], ADV_CON))
SET_BIT(obj->value[1], ADV_CON);
else if (!str_cmp(arg2,"mana") &&
!IS_SET(obj->value[1], ADV_MANA))
SET_BIT(obj->value[1], ADV_MANA);
else if ((!str_cmp(arg2,"hp") || !str_cmp(arg2,"hits") ||
!str_cmp(arg2,"hitpoints")) &&
!IS_SET(obj->value[1], ADV_HIT))
SET_BIT(obj->value[1], ADV_HIT);
else if ((!str_cmp(arg2,"move") || !str_cmp(arg2,"movement")) &&
!IS_SET(obj->value[1], ADV_MOVE))
SET_BIT(obj->value[1], ADV_MOVE);
else if ((!str_cmp(arg2,"ac") || !str_cmp(arg2,"armour") ||
!str_cmp(arg2,"armor")) &&
!IS_SET(obj->value[1], ADV_AC))
SET_BIT(obj->value[1], ADV_AC);
else if ((!str_cmp(arg2,"hr") || !str_cmp(arg2,"hit") ||
!str_cmp(arg2,"hitroll")) &&
!IS_SET(obj->value[1], ADV_HITROLL))
SET_BIT(obj->value[1], ADV_HITROLL);
else if ((!str_cmp(arg2,"dr") || !str_cmp(arg2,"dam") ||
!str_cmp(arg2,"damroll")) &&
!IS_SET(obj->value[1], ADV_DAMROLL))
SET_BIT(obj->value[1], ADV_DAMROLL);
else if ((!str_cmp(arg2,"save") || !str_cmp(arg2,"save.spell") ||
!str_cmp(arg2,"save_spell")) &&
!IS_SET(obj->value[1], ADV_SAVING_SPELL))
SET_BIT(obj->value[1], ADV_SAVING_SPELL);
else {SET_BIT(obj->spectype, ADV_FAILED);return;}
obj->points += 25;
}
else if (!str_cmp(arg1,"affect:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_AFFECT)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' )
SET_BIT(obj->spectype, ADV_FAILED);
else if ((!str_cmp(arg2,"blind") || !str_cmp(arg2,"blindness")) &&
!IS_SET(obj->value[3], AFF_BLIND))
SET_BIT(obj->value[3], AFF_BLIND);
else if ((!str_cmp(arg2,"invis") || !str_cmp(arg2,"invisible")
|| !str_cmp(arg2,"invisibility")) &&
!IS_SET(obj->value[3], AFF_BLIND))
SET_BIT(obj->value[3], AFF_BLIND);
else if (!str_cmp(arg2,"detect.evil") &&
!IS_SET(obj->value[3], AFF_DETECT_EVIL))
SET_BIT(obj->value[3], AFF_DETECT_EVIL);
else if ((!str_cmp(arg2,"detect.invis") || !str_cmp(arg2,"detect.invisible")
|| !str_cmp(arg2,"detect.invisibility")) &&
!IS_SET(obj->value[3], AFF_DETECT_INVIS))
SET_BIT(obj->value[3], AFF_DETECT_INVIS);
else if (!str_cmp(arg2,"detect.magic") &&
!IS_SET(obj->value[3], AFF_DETECT_MAGIC))
SET_BIT(obj->value[3], AFF_DETECT_MAGIC);
else if (!str_cmp(arg2,"detect.hidden") &&
!IS_SET(obj->value[3], AFF_DETECT_HIDDEN))
SET_BIT(obj->value[3], AFF_DETECT_HIDDEN);
else if ((!str_cmp(arg2,"umbra")) &&
!IS_SET(obj->value[3], AFF_SHADOWPLANE))
SET_BIT(obj->value[3], AFF_SHADOWPLANE);
else if ((!str_cmp(arg2,"sanct") ||
!str_cmp(arg2,"sanctuary")) &&
!IS_SET(obj->value[3], AFF_SANCTUARY))
SET_BIT(obj->value[3], AFF_SANCTUARY);
else if (!str_cmp(arg2,"faerie.fire") &&
!IS_SET(obj->value[3], AFF_FAERIE_FIRE))
SET_BIT(obj->value[3], AFF_FAERIE_FIRE);
else if ((!str_cmp(arg2,"infravision") ||
!str_cmp(arg2,"infrared") || !str_cmp(arg2,"infra")) &&
!IS_SET(obj->value[3], AFF_SANCTUARY))
SET_BIT(obj->value[3], AFF_SANCTUARY);
else if (!str_cmp(arg2,"curse") &&
!IS_SET(obj->value[3], AFF_CURSE))
SET_BIT(obj->value[3], AFF_CURSE);
else if ((!str_cmp(arg2,"flaming") || !str_cmp(arg2,"burning"))
&& !IS_SET(obj->value[3], AFF_FLAMING))
SET_BIT(obj->value[3], AFF_FLAMING);
else if (!str_cmp(arg2,"poison") &&
!IS_SET(obj->value[3], AFF_POISON))
SET_BIT(obj->value[3], AFF_POISON);
else if ((!str_cmp(arg2,"protect") || !str_cmp(arg2,"protection"))
&& !IS_SET(obj->value[3], AFF_PROTECT))
SET_BIT(obj->value[3], AFF_PROTECT);
else if (!str_cmp(arg2,"ethereal") &&
!IS_SET(obj->value[3], AFF_ETHEREAL))
SET_BIT(obj->value[3], AFF_ETHEREAL);
else if (!str_cmp(arg2,"sneak") &&
!IS_SET(obj->value[3], AFF_SNEAK))
SET_BIT(obj->value[3], AFF_SNEAK);
else if (!str_cmp(arg2,"hide") &&
!IS_SET(obj->value[3], AFF_HIDE))
SET_BIT(obj->value[3], AFF_HIDE);
else if (!str_cmp(arg2,"sleep") &&
!IS_SET(obj->value[3], AFF_SLEEP))
SET_BIT(obj->value[3], AFF_SLEEP);
else if (!str_cmp(arg2,"charm") &&
!IS_SET(obj->value[3], AFF_CHARM))
SET_BIT(obj->value[3], AFF_CHARM);
else if ((!str_cmp(arg2,"fly") || !str_cmp(arg2,"flying"))
&& !IS_SET(obj->value[3], AFF_FLYING))
SET_BIT(obj->value[3], AFF_FLYING);
else if ((!str_cmp(arg2,"passdoor") || !str_cmp(arg2,"pass.door"))
&& !IS_SET(obj->value[3], AFF_PASS_DOOR))
SET_BIT(obj->value[3], AFF_PASS_DOOR);
else if ((!str_cmp(arg2,"shadowsight") ||
!str_cmp(arg2,"shadow.sight") ||
!str_cmp(arg2,"umbral.vision") ||
!str_cmp(arg2,"umbra.vision")) &&
!IS_SET(obj->value[3], AFF_SHADOWSIGHT))
SET_BIT(obj->value[3], AFF_SHADOWSIGHT);
else if ((!str_cmp(arg2,"web") || !str_cmp(arg2,"webbed"))
&& !IS_SET(obj->value[3], AFF_WEBBED))
SET_BIT(obj->value[3], AFF_WEBBED);
else if (!str_cmp(arg2,"contraception") &&
!IS_SET(obj->value[3], AFF_CONTRACEPTION))
SET_BIT(obj->value[3], AFF_CONTRACEPTION);
else if (!str_cmp(arg2,"aura.no.magic") &&
!IS_SET(obj->value[3], AFF_AURA_NO_MAGIC))
{
SET_BIT(obj->value[3], AFF_AURA_NO_MAGIC);
obj->points += 75;
}
else if (!str_cmp(arg2,"true.sight") &&
!IS_SET(obj->value[3], AFF_TRUE_SIGHT))
{
SET_BIT(obj->value[3], AFF_TRUE_SIGHT);
obj->points += 75;
}
else if (!str_cmp(arg2,"tendrils") &&
!IS_SET(obj->value[3], AFF_SHADOW))
SET_BIT(obj->value[3], AFF_SHADOW);
else if (!str_cmp(arg2,"rot") &&
!IS_SET(obj->value[3], AFF_ROT))
{
SET_BIT(obj->value[3], AFF_ROT);
obj->points += 15;
}
else if (!str_cmp(arg2,"fear") &&
!IS_SET(obj->value[3], AFF_FEAR))
{
SET_BIT(obj->value[3], AFF_FEAR);
obj->points += 15;
}
else if (!str_cmp(arg2,"jail.water") &&
!IS_SET(obj->value[3], AFF_JAIL))
SET_BIT(obj->value[3], AFF_JAIL);
else {SET_BIT(obj->spectype, ADV_FAILED);return;}
obj->points += 25;
}
else if (!str_cmp(arg1,"bonus:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_AFFECT)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' || !is_number(arg2) ||
atoi(arg2) < 0 || atoi(arg2) > 100)
SET_BIT(obj->spectype, ADV_FAILED);
else {obj->value[2] = atoi(arg2);obj->points += (atoi(arg2)*15);}
}
else if (!str_cmp(arg1,"duration:")
&& IS_SET(obj->spectype, ADV_STARTED)
&& IS_SET(obj->spectype, ADV_AFFECT)
&& obj->level == 0
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' || !is_number(arg2) ||
atoi(arg2) < 1 || atoi(arg2) > 60)
SET_BIT(obj->spectype, ADV_FAILED);
else {obj->level = atoi(arg2);obj->points += (atoi(arg2)*10);}
}
else if ((!str_cmp(arg1,"message.one:") || !str_cmp(arg1,"message.1:"))
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_MESSAGE_1)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' )
SET_BIT(obj->spectype, ADV_FAILED);
else
{
SET_BIT(obj->spectype, ADV_MESSAGE_1);
free_string(obj->chpoweroff);
obj->chpoweroff = str_dup(arg2);
}
}
else if ((!str_cmp(arg1,"message.two:") || !str_cmp(arg1,"message.2:"))
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_MESSAGE_2)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' )
SET_BIT(obj->spectype, ADV_FAILED);
else
{
SET_BIT(obj->spectype, ADV_MESSAGE_2);
free_string(obj->victpoweron);
obj->victpoweron = str_dup(arg2);
}
}
else if ((!str_cmp(arg1,"message.three:") || !str_cmp(arg1,"message.3:"))
&& IS_SET(obj->spectype, ADV_STARTED)
&& !IS_SET(obj->spectype, ADV_MESSAGE_3)
&& !IS_SET(obj->spectype, ADV_FINISHED))
{
if ( arg2[0] == '\0' )
SET_BIT(obj->spectype, ADV_FAILED);
else
{
SET_BIT(obj->spectype, ADV_MESSAGE_3);
free_string(obj->victpoweroff);
obj->victpoweroff = str_dup(arg2);
}
}
else if (!IS_SET(obj->spectype, ADV_FINISHED))
SET_BIT(obj->spectype, ADV_FAILED);
}
}
else return;
act("$n writes something on $p.",ch,obj,NULL,TO_ROOM);
send_to_char("Ok.\n\r",ch);
return;
}
void show_page( CHAR_DATA *ch, OBJ_DATA *book, int pnum, bool pagefalse )
{
OBJ_DATA *page;
OBJ_DATA *page_next;
char buf[MAX_STRING_LENGTH];
bool found = FALSE;
for ( page = book->contains; page != NULL; page = page_next )
{
page_next = page->next_content;
if (page->value[0] == pnum)
{
found = TRUE;
if (!str_cmp(page->victpoweruse,"(null)"))
sprintf(buf,"Untitled page.\n\r");
else
sprintf(buf,"%s.\n\r",page->victpoweruse);
buf[0] = UPPER(buf[0]);
send_to_char(buf,ch);
if (!pagefalse)
{
if (page->chpoweruse == NULL || page->chpoweruse == '\0' ||
!str_cmp(page->chpoweruse,"(null)"))
{
if (!are_runes(page))
send_to_char("This page is blank.\n\r",ch);
else if (IS_AFFECTED(ch, AFF_DETECT_MAGIC) &&
!IS_SET(page->quest, QUEST_MASTER_RUNE) &&
!IS_SET(page->spectype, ADV_STARTED))
show_runes(ch, page, FALSE);
else
send_to_char("This page is blank.\n\r",ch);
return;
}
send_to_char("--------------------------------------------------------------------------------\n\r",ch);
send_to_char(page->chpoweruse,ch);
send_to_char("\n\r--------------------------------------------------------------------------------\n\r",ch);
if (IS_AFFECTED(ch, AFF_DETECT_MAGIC) &&
!IS_SET(page->quest, QUEST_MASTER_RUNE) &&
!IS_SET(page->spectype, ADV_STARTED))
show_runes(ch, page, TRUE);
}
}
}
if (!found)
send_to_char("This page has been torn out.\n\r",ch);
return;
}
void show_runes( CHAR_DATA *ch, OBJ_DATA *page, bool endline )
{
if (page->value[1] + page->value[2] + page->value[3] < 1) return;
send_to_char("This page contains the following symbols:\n\r",ch);
send_to_char("Runes:",ch);
if (page->value[1] > 0)
{
if (IS_SET(page->value[1], RUNE_FIRE )) send_to_char(" Fire", ch);
if (IS_SET(page->value[1], RUNE_AIR )) send_to_char(" Air", ch);
if (IS_SET(page->value[1], RUNE_EARTH )) send_to_char(" Earth", ch);
if (IS_SET(page->value[1], RUNE_WATER )) send_to_char(" Water", ch);
if (IS_SET(page->value[1], RUNE_DARK )) send_to_char(" Dark", ch);
if (IS_SET(page->value[1], RUNE_LIGHT )) send_to_char(" Light", ch);
if (IS_SET(page->value[1], RUNE_LIFE )) send_to_char(" Life", ch);
if (IS_SET(page->value[1], RUNE_DEATH )) send_to_char(" Death", ch);
if (IS_SET(page->value[1], RUNE_MIND )) send_to_char(" Mind", ch);
if (IS_SET(page->value[1], RUNE_SPIRIT)) send_to_char(" Spirit",ch);
}
else send_to_char(" None",ch);
send_to_char(".\n\r",ch);
send_to_char("Glyphs:",ch);
if (page->value[2] > 0)
{
if (IS_SET(page->value[2], GLYPH_CREATION)) send_to_char(" Creation", ch);
if (IS_SET(page->value[2], GLYPH_DESTRUCTION)) send_to_char(" Destruction", ch);
if (IS_SET(page->value[2], GLYPH_SUMMONING)) send_to_char(" Summoning",ch);
if (IS_SET(page->value[2], GLYPH_TRANSFORMATION)) send_to_char(" Transformation",ch);
if (IS_SET(page->value[2], GLYPH_TRANSPORTATION)) send_to_char(" Transportation", ch);
if (IS_SET(page->value[2], GLYPH_ENHANCEMENT)) send_to_char(" Enhancement",ch);
if (IS_SET(page->value[2], GLYPH_REDUCTION )) send_to_char(" Reduction", ch);
if (IS_SET(page->value[2], GLYPH_CONTROL)) send_to_char(" Control",ch);
if (IS_SET(page->value[2], GLYPH_PROTECTION)) send_to_char(" Protection",ch);
if (IS_SET(page->value[2], GLYPH_INFORMATION)) send_to_char(" Information",ch);
}
else send_to_char(" None",ch);
send_to_char(".\n\r",ch);
send_to_char("Sigils:",ch);
if (page->value[3] > 0)
{
if (IS_SET(page->value[3], SIGIL_SELF )) send_to_char(" Self", ch);
if (IS_SET(page->value[3], SIGIL_TARGETING )) send_to_char(" Targeting", ch);
if (IS_SET(page->value[3], SIGIL_AREA )) send_to_char(" Area", ch);
if (IS_SET(page->value[3], SIGIL_OBJECT )) send_to_char(" Object", ch);
}
else send_to_char(" None",ch);
send_to_char(".\n\r",ch);
if (endline) send_to_char("--------------------------------------------------------------------------------\n\r",ch);
return;
}
bool are_runes( OBJ_DATA *page )
{
if (page->value[1] + page->value[2] + page->value[3] < 1) return FALSE;
return TRUE;
}
bool has_key( CHAR_DATA *ch, int key )
{
OBJ_DATA *obj;
for ( obj = ch->carrying; obj != NULL; obj = obj->next_content )
{
if ( obj->pIndexData->vnum == key )
return TRUE;
}
return FALSE;
}
void do_lock( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int door;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Lock what?\n\r", ch );
return;
}
if ( ( obj = get_obj_here( ch, arg ) ) != NULL )
{
/* 'lock object' */
if ( obj->item_type != ITEM_CONTAINER )
{ send_to_char( "That's not a container.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_CLOSED) )
{ send_to_char( "It's not closed.\n\r", ch ); return; }
if ( obj->value[2] < 0 )
{ send_to_char( "It can't be locked.\n\r", ch ); return; }
if ( !has_key( ch, obj->value[2] ) )
{ send_to_char( "You lack the key.\n\r", ch ); return; }
if ( IS_SET(obj->value[1], CONT_LOCKED) )
{ send_to_char( "It's already locked.\n\r", ch ); return; }
SET_BIT(obj->value[1], CONT_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( "$n locks $p.", ch, obj, NULL, TO_ROOM );
return;
}
if ( ( door = find_door( ch, arg ) ) >= 0 )
{
/* 'lock door' */
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
EXIT_DATA *pexit_rev;
pexit = ch->in_room->exit[door];
if ( !IS_SET(pexit->exit_info, EX_CLOSED) )
{ send_to_char( "It's not closed.\n\r", ch ); return; }
if ( pexit->key < 0 )
{ send_to_char( "It can't be locked.\n\r", ch ); return; }
if ( !has_key( ch, pexit->key) )
{ send_to_char( "You lack the key.\n\r", ch ); return; }
if ( IS_SET(pexit->exit_info, EX_LOCKED) )
{ send_to_char( "It's already locked.\n\r", ch ); return; }
SET_BIT(pexit->exit_info, EX_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( "$n locks the $d.", ch, NULL, pexit->keyword, TO_ROOM );
/* lock the other side */
if ( ( to_room = pexit->to_room ) != NULL
&& ( pexit_rev = to_room->exit[rev_dir[door]] ) != 0
&& pexit_rev->to_room == ch->in_room )
{
SET_BIT( pexit_rev->exit_info, EX_LOCKED );
}
}
return;
}
void do_unlock( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int door;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Unlock what?\n\r", ch );
return;
}
if ( ( obj = get_obj_here( ch, arg ) ) != NULL )
{
/* 'unlock object' */
if ( obj->item_type != ITEM_CONTAINER )
{ send_to_char( "That's not a container.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_CLOSED) )
{ send_to_char( "It's not closed.\n\r", ch ); return; }
if ( obj->value[2] < 0 )
{ send_to_char( "It can't be unlocked.\n\r", ch ); return; }
if ( !has_key( ch, obj->value[2] ) )
{ send_to_char( "You lack the key.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_LOCKED) )
{ send_to_char( "It's already unlocked.\n\r", ch ); return; }
REMOVE_BIT(obj->value[1], CONT_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( "$n unlocks $p.", ch, obj, NULL, TO_ROOM );
return;
}
if ( ( door = find_door( ch, arg ) ) >= 0 )
{
/* 'unlock door' */
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
EXIT_DATA *pexit_rev;
pexit = ch->in_room->exit[door];
if ( !IS_SET(pexit->exit_info, EX_CLOSED) )
{ send_to_char( "It's not closed.\n\r", ch ); return; }
if ( pexit->key < 0 )
{ send_to_char( "It can't be unlocked.\n\r", ch ); return; }
if ( !has_key( ch, pexit->key) )
{ send_to_char( "You lack the key.\n\r", ch ); return; }
if ( !IS_SET(pexit->exit_info, EX_LOCKED) )
{ send_to_char( "It's already unlocked.\n\r", ch ); return; }
REMOVE_BIT(pexit->exit_info, EX_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( "$n unlocks the $d.", ch, NULL, pexit->keyword, TO_ROOM );
/* unlock the other side */
if ( ( to_room = pexit->to_room ) != NULL
&& ( pexit_rev = to_room->exit[rev_dir[door]] ) != NULL
&& pexit_rev->to_room == ch->in_room )
{
REMOVE_BIT( pexit_rev->exit_info, EX_LOCKED );
}
}
return;
}
void do_pick( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *gch;
OBJ_DATA *obj;
int door;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Pick what?\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_pick_lock].beats );
/* look for guards */
for ( gch = ch->in_room->people; gch; gch = gch->next_in_room )
{
if ( IS_NPC(gch) && IS_AWAKE(gch) )
{
if (IS_EXTRA(ch, EXTRA_AWE))
{
act( "$N steps aside to let you reach the lock.",ch, NULL, gch, TO_CHAR );
act( "$N steps aside to let $n reach the lock.",ch, NULL, gch, TO_NOTVICT );
act( "You step aside to let $n reach the lock. Isn't $e awesome?",ch, NULL, gch, TO_VICT );
}
else
{
act( "$N is standing too close to the lock.",ch, NULL, gch, TO_CHAR );
return;
}
}
}
if ( !IS_NPC(ch) && number_percent( ) > ch->pcdata->learned[gsn_pick_lock] )
{
send_to_char( "You failed.\n\r", ch);
return;
}
if ( ( obj = get_obj_here( ch, arg ) ) != NULL )
{
/* 'pick object' */
if ( obj->item_type != ITEM_CONTAINER )
{ send_to_char( "That's not a container.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_CLOSED) )
{ send_to_char( "It's not closed.\n\r", ch ); return; }
if ( obj->value[2] < 0 )
{ send_to_char( "It can't be unlocked.\n\r", ch ); return; }
if ( !IS_SET(obj->value[1], CONT_LOCKED) )
{ send_to_char( "It's already unlocked.\n\r", ch ); return; }
if ( IS_SET(obj->value[1], CONT_PICKPROOF) )
{ send_to_char( "You failed.\n\r", ch ); return; }
REMOVE_BIT(obj->value[1], CONT_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( "$n picks $p.", ch, obj, NULL, TO_ROOM );
return;
}
if ( ( door = find_door( ch, arg ) ) >= 0 )
{
/* 'pick door' */
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
EXIT_DATA *pexit_rev;
pexit = ch->in_room->exit[door];
if ( !IS_SET(pexit->exit_info, EX_CLOSED) )
{ send_to_char( "It's not closed.\n\r", ch ); return; }
if ( pexit->key < 0 )
{ send_to_char( "It can't be picked.\n\r", ch ); return; }
if ( !IS_SET(pexit->exit_info, EX_LOCKED) )
{ send_to_char( "It's already unlocked.\n\r", ch ); return; }
if ( IS_SET(pexit->exit_info, EX_PICKPROOF) )
{ send_to_char( "You failed.\n\r", ch ); return; }
REMOVE_BIT(pexit->exit_info, EX_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( "$n picks the $d.", ch, NULL, pexit->keyword, TO_ROOM );
/* pick the other side */
if ( ( to_room = pexit->to_room ) != NULL
&& ( pexit_rev = to_room->exit[rev_dir[door]] ) != NULL
&& pexit_rev->to_room == ch->in_room )
{
REMOVE_BIT( pexit_rev->exit_info, EX_LOCKED );
}
}
return;
}
void do_stand( CHAR_DATA *ch, char *argument )
{
switch ( ch->position )
{
case POS_SLEEPING:
if ( IS_AFFECTED(ch, AFF_SLEEP) )
{ send_to_char( "You can't wake up!\n\r", ch ); return; }
send_to_char( "You wake and stand up.\n\r", ch );
act( "$n wakes and stands up.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_STANDING;
break;
case POS_RESTING:
case POS_SITTING:
send_to_char( "You stand up.\n\r", ch );
act( "$n stands up.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_STANDING;
break;
case POS_MEDITATING:
if (!IS_NPC(ch) && ch->pcdata->exercise[EXE_TYPE] > 0)
{
send_to_char( "You clamber back to your feet.\n\r", ch );
act( "$n clambers back to $s feet.", ch, NULL, NULL, TO_ROOM );
}
else
{
send_to_char( "You uncross your legs and stand up.\n\r", ch );
act( "$n uncrosses $s legs and stands up.", ch, NULL, NULL, TO_ROOM );
}
ch->position = POS_STANDING;
break;
case POS_STANDING:
send_to_char( "You are already standing.\n\r", ch );
break;
case POS_FIGHTING:
send_to_char( "You are already fighting!\n\r", ch );
break;
}
if (ch->sat != NULL && !CAN_SIT(ch))
{
act("You get off $p.",ch,ch->sat,NULL,TO_CHAR);
act("$n gets off $p.",ch,ch->sat,NULL,TO_ROOM);
ch->sat->sat = NULL;
ch->sat = NULL;
}
return;
}
void do_rest( CHAR_DATA *ch, char *argument )
{
switch ( ch->position )
{
case POS_SLEEPING:
send_to_char( "You are already sleeping.\n\r", ch );
break;
case POS_RESTING:
send_to_char( "You are already resting.\n\r", ch );
break;
case POS_MEDITATING:
case POS_SITTING:
case POS_STANDING:
send_to_char( "You rest.\n\r", ch );
act( "$n rests.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_RESTING;
break;
case POS_FIGHTING:
send_to_char( "You are already fighting!\n\r", ch );
break;
}
return;
}
void do_sit( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
bool sit_obj = FALSE;
one_argument( argument, arg );
switch ( ch->position )
{
case POS_SLEEPING:
send_to_char( "You are already sleeping.\n\r", ch );
break;
case POS_RESTING:
send_to_char( "You sit up.\n\r", ch );
act( "$n sits up.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_SITTING;
break;
case POS_MEDITATING:
send_to_char( "You are already meditating.\n\r", ch );
break;
case POS_SITTING:
send_to_char( "You are already sitting.\n\r", ch );
break;
case POS_STANDING:
if ( arg[0] == '\0' )
{
send_to_char( "You sit down.\n\r", ch );
act( "$n sits down.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_SITTING;
}
else sit_obj = TRUE;
break;
case POS_FIGHTING:
send_to_char( "You are already fighting!\n\r", ch );
break;
}
if ( !sit_obj ) return;
/* Furniture value 0: 1 means you can sit on it.
*/
if ( ( obj = get_obj_here( ch, arg ) ) == NULL )
{
send_to_char( "You cannot see that here.\n\r", ch );
return;
}
if ( obj->item_type != ITEM_FURNITURE || obj->value[0] != 1 ||
CAN_WEAR(obj, ITEM_TAKE) || obj->in_room == NULL )
{
send_to_char( "You cannot sit on that.\n\r", ch );
return;
}
if ( ch->sat != NULL )
{
send_to_char( "But you are already sitting down!\n\r", ch );
return;
}
if ( obj->sat != NULL )
{
send_to_char( "There is already someone sat on it.\n\r", ch );
return;
}
ch->sat = obj;
obj->sat = ch;
ch->position = POS_SITTING;
act("You sit down on $p.",ch,obj,NULL,TO_CHAR);
act("$n sits down on $p.",ch,obj,NULL,TO_ROOM);
return;
}
void do_meditate( CHAR_DATA *ch, char *argument )
{
if (IS_NPC(ch) || !IS_MAGE(ch))
{
send_to_char("You are unable to attain the correct state of mind.\n\r",ch);
return;
}
switch ( ch->position )
{
case POS_SLEEPING:
send_to_char( "You are already sleeping.\n\r", ch );
break;
case POS_RESTING:
send_to_char( "You are already resting.\n\r", ch );
break;
case POS_MEDITATING:
send_to_char( "You are already meditating.\n\r", ch );
break;
case POS_SITTING:
send_to_char( "You cross your legs and start meditating.\n\r", ch );
act( "$n crosses $s legs and starts meditating.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_MEDITATING;
break;
case POS_STANDING:
send_to_char( "You sit down, cross your legs and start meditating.\n\r", ch );
act( "$n sits down, crosses $s legs and starts meditating.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_MEDITATING;
break;
case POS_FIGHTING:
send_to_char( "You are already fighting!\n\r", ch );
break;
}
return;
}
void do_sleep( CHAR_DATA *ch, char *argument )
{
switch ( ch->position )
{
case POS_SLEEPING:
send_to_char( "You are already sleeping.\n\r", ch );
break;
case POS_SITTING:
case POS_MEDITATING:
case POS_RESTING:
case POS_STANDING:
send_to_char( "You sleep.\n\r", ch );
act( "$n sleeps.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_SLEEPING;
break;
case POS_FIGHTING:
send_to_char( "You are already fighting!\n\r", ch );
break;
}
return;
}
void do_wake( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{ do_stand( ch, argument ); return; }
if ( !IS_AWAKE(ch) )
{ send_to_char( "You are asleep yourself!\n\r", ch ); return; }
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{ send_to_char( "They aren't here.\n\r", ch ); return; }
if ( IS_AWAKE(victim) )
{ act( "$N is already awake.", ch, NULL, victim, TO_CHAR ); return; }
if ( IS_AFFECTED(victim, AFF_SLEEP) )
{ act( "You can't wake $M!", ch, NULL, victim, TO_CHAR ); return; }
if (victim->position < POS_SLEEPING)
{ act( "$E doesn't respond!", ch, NULL, victim, TO_CHAR ); return; }
act( "You wake $M.", ch, NULL, victim, TO_CHAR );
act( "$n wakes you.", ch, NULL, victim, TO_VICT );
victim->position = POS_RESTING;
if (victim->sat != NULL && !CAN_SIT(victim))
{
victim->sat->sat = NULL;
victim->sat = NULL;
}
return;
}
void do_sneak( CHAR_DATA *ch, char *argument )
{
AFFECT_DATA af;
send_to_char( "You attempt to move silently.\n\r", ch );
affect_strip( ch, gsn_sneak );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_sneak] )
{
af.type = gsn_sneak;
af.duration = ch->level;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_SNEAK;
affect_to_char( ch, &af );
}
WAIT_STATE(ch, 12);
return;
}
void do_hide( CHAR_DATA *ch, char *argument )
{
send_to_char( "You attempt to hide.\n\r", ch );
if ( IS_AFFECTED(ch, AFF_HIDE) )
REMOVE_BIT(ch->affected_by, AFF_HIDE);
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_hide] )
SET_BIT(ch->affected_by, AFF_HIDE);
return;
}
/*
* Contributed by Alander.
*/
void do_visible( CHAR_DATA *ch, char *argument )
{
affect_strip ( ch, gsn_invis );
affect_strip ( ch, gsn_mass_invis );
affect_strip ( ch, gsn_sneak );
REMOVE_BIT ( ch->affected_by, AFF_HIDE );
REMOVE_BIT ( ch->affected_by, AFF_INVISIBLE );
REMOVE_BIT ( ch->affected_by, AFF_SNEAK );
REMOVE_BIT ( ch->vampaff, VAM_OBFUSCATE );
send_to_char( "Ok.\n\r", ch );
return;
}
void do_unpolymorph( CHAR_DATA *ch, char *argument )
{
if (!is_affected(ch, gsn_polymorph) )
{
send_to_char("But you are not polymorphed!\n\r",ch);
return;
}
act("$n's body begins to distort.",ch,NULL,NULL,TO_ROOM);
affect_strip ( ch, gsn_polymorph );
act("$n resumes $s normal form.",ch,NULL,NULL,TO_ROOM);
send_to_char( "You resume your normal form.\n\r", ch );
return;
}
DO_COM( do_recall )
{
// CHAR_DATA *victim;
CHAR_DATA *mount;
ROOM_INDEX_DATA *location;
if (IS_NPC(ch) && strlen(ch->lord) < 2 && ch->level < 1000)
{
send_to_char( "Huh?\n\r", ch );
return;
}
act( "A look of concentration crosses $n's face.", ch, NULL, NULL, TO_ROOM );
if ( ( location = get_room_index( ch->home ) ) == NULL )
{
send_to_char( "You are completely lost.\n\r", ch );
return;
}
if ( ch->in_room == location )
return;
if ( IS_SET( ch->in_room->room_flags, ROOM_NO_RECALL ) )
{
STC( "You are unable to recall to your haven.\n\r", ch );
return;
}
if ( IS_AFFECTED( ch, AFF_CURSE ) )
{
if ( IS_DEMON( ch ) )
{
if ( number_percent( ) >= number_percent( )
&& number_percent( ) <= number_range( 25, 75 ) )
{
STC( "You failed.\n\r", ch );
return;
}
}
else
{
STC( "You are unable to recall to your haven.\n\r", ch );
return;
}
}
/*
if ( ( victim = ch->fighting ) != NULL )
{
if ( number_bits( 1 ) == 0 )
{
WAIT_STATE( ch, 4 );
STC( "You failed.\n\r", ch );
return;
}
STC( "You recall from combat!\n\r", ch );
stop_fighting( ch, TRUE );
}
*/
act( "$n disappears.", ch, NULL, NULL, TO_ROOM );
char_from_room( ch );
char_to_room( ch, location );
act( "$n appears in the room.", ch, NULL, NULL, TO_ROOM );
do_look( ch, "auto" );
if ( ( mount = ch->mount ) == NULL ) return;
char_from_room( mount );
char_to_room( mount, ch->in_room );
return;
}
void do_home( CHAR_DATA *ch, char *argument )
{
char arg [MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if ( IS_NPC(ch) ) return;
if ( arg[0] == '\0' || str_cmp(arg,"here") )
{
send_to_char( "If you wish this to be your home, you must type 'home here'.\n\r", ch );
return;
}
if ( ch->in_room->vnum == ch->home )
{
send_to_char( "But this is already your home!\n\r", ch );
return;
}
if ( IS_SET(ch->in_room->room_flags, ROOM_NO_RECALL) ||
IS_SET(ch->in_room->room_flags, ROOM_SAFE) )
{
send_to_char( "You are unable to make this room your home.\n\r", ch );
return;
}
ch->home = ch->in_room->vnum;
send_to_char( "This room is now your home.\n\r", ch );
return;
}
void do_escape( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
ROOM_INDEX_DATA *location;
if (IS_NPC(ch) || !IS_HERO(ch))
return;
if ( ch->position >= POS_SLEEPING )
{
send_to_char( "You can only do this if you are dying.\n\r", ch );
return;
}
if ( ( location = get_room_index( ROOM_VNUM_TEMPLE ) ) == NULL )
{
send_to_char( "You are completely lost.\n\r", ch );
return;
}
if ( ch->in_room == location )
return;
ch->move = 0;
ch->mana = 0;
act( "$n fades out of existance.", ch, NULL, NULL, TO_ROOM );
char_from_room( ch );
char_to_room( ch, location );
act( "$n fades into existance.", ch, NULL, NULL, TO_ROOM );
do_look( ch, "auto" );
sprintf(buf,"%s has escaped defenceless from a fight.",ch->name);
do_info(ch,buf);
return;
}
DO_COM( do_train )
{
char arg1[MIL];
char arg2[MIL];
char buf[MSL];
sh_int value = 1;
sh_int i = 0;
int cost = 0;
int amount = 0;
bool message = FALSE;
if ( IS_NPC( ch ) ) return;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
/* Information on what they can actually buy */
if ( arg1[0] == '\0' )
{
send_to_char( "You can train the following:\n\r", ch );
send_to_char( "Stats:", ch );
if ( ch->pcdata->perm_str < 18 )
{ send_to_char( " Str", ch ); message = TRUE; }
if ( ch->pcdata->perm_int < 18 )
{ send_to_char( " Int", ch ); message = TRUE; }
if ( ch->pcdata->perm_wis < 18 )
{ send_to_char( " Wis", ch ); message = TRUE; }
if ( ch->pcdata->perm_dex < 18 )
{ send_to_char( " Dex", ch ); message = TRUE; }
if ( ch->pcdata->perm_con < 18 )
{ send_to_char( " Con", ch ); message = TRUE; }
if ( !message )
send_to_char( "None left to train", ch );
message = FALSE;
send_to_char( ".\n\r", ch );
if ( ch->level == 2 )
send_to_char( "Become an Avatar - 1000 exp.\n\r", ch );
if ( ch->level > 2 && ch->race < 1 && ch->class == CLASS_NONE
&& !IS_IMMORTAL( ch ) )
send_to_char( "Become Mortal - no cost.\n\r", ch );
if ( ch->max_hit < CAP_HP )
send_to_char( "Hp - Can train upto 1000 at a time.\n\r", ch );
if ( ch->max_mana < CAP_MANA )
send_to_char( "Mana - Can train upto 1000 at a time.\n\r", ch );
if ( ch->max_move < CAP_MOVE )
send_to_char( "Move - Can train upto 1000 at a time.\n\r", ch );
if ( ch->practice < 100 )
send_to_char( "Primal - Can train upto 50 at a time.\n\r", ch );
send_to_char( "Immunities:", ch );
if ( !IS_IMMUNE( ch, IMM_CHARM ) )
{ send_to_char( " Charm", ch ); message = TRUE; }
if ( !IS_IMMUNE( ch, IMM_SLEEP ) )
{ send_to_char( " Sleep", ch ); message = TRUE; }
if ( !IS_IMMUNE( ch, IMM_STEAL ) )
{ send_to_char( " Steal", ch ); message = TRUE; }
if ( !message )
send_to_char( "None left to train", ch );
message = FALSE;
send_to_char( ".\n\r", ch );
return;
}
/* Let players see the cost of what they are buying */
if ( !str_cmp( arg1, "cost" ) || !str_cmp( arg1, "costs" ) )
{
if ( ch->pcdata->perm_str < 18
|| ch->pcdata->perm_dex < 18
|| ch->pcdata->perm_int < 18
|| ch->pcdata->perm_wis < 18
|| ch->pcdata->perm_con < 18 )
send_to_char( "Stats : 200 each.\n\r", ch );
if ( ch->max_hit < CAP_HP )
{
sprintf( buf, "1 extra point of hp will cost you %d exp.\n\r",
ch->max_hit - ( get_curr_str( ch ) + get_curr_con( ch ) ) );
send_to_char( buf, ch );
}
if ( ch->max_mana < CAP_MANA )
{
sprintf( buf, "1 extra point of mana will cost you %d exp.\n\r",
ch->max_mana - ( get_curr_wis( ch ) + get_curr_int( ch ) ) );
send_to_char( buf, ch );
}
if ( ch->max_move < CAP_MOVE )
{
sprintf( buf, "1 extra point of move will cost you %d exp.\n\r",
ch->max_move - ( get_curr_dex( ch ) + get_curr_con( ch ) ) );
send_to_char( buf, ch );
}
if ( ch->practice < 100 )
{
sprintf( buf, "1 extra point of primal will cost you %d exp.\n\r",
( 1 + ch->practice ) * 500 );
send_to_char( buf, ch );
}
sprintf( buf, "Immunities : %d exp.\n\r",
count_imms( ch ) );
send_to_char( buf, ch );
return;
}
if ( ch->level == 2 && !str_cmp( arg1, "avatar" ) )
{
if ( ch->exp < 1000 )
{
send_to_char( "You require 1000 exp to become an avatar.\n\r", ch );
return;
}
ch->exp -= 1000;
ch->level = 3;
send_to_char( "You become an Avatar!\n\r", ch );
sprintf( buf, "%s has become an avatar!", ch->name );
do_info( ch, buf );
return;
}
if ( ch->level > 2 && ch->race < 1 && ch->class == CLASS_NONE
&& !str_cmp( arg1, "mortal" ) && !IS_IMMORTAL( ch ) )
{
send_to_char( "You become mortal again!\n\r", ch );
ch->level = 2;
ch->trust = 0;
return;
}
cost = 200;
if ( ch->pcdata->perm_str < 18 && !str_cmp( arg1, "str" ) )
{
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->pcdata->perm_str++;
send_to_char( "You become stronger.\n\r", ch );
return;
}
if ( ch->pcdata->perm_int < 18 && !str_cmp( arg1, "int" ) )
{
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->pcdata->perm_int++;
send_to_char( "You become more intelligent.\n\r", ch );
return;
}
if ( ch->pcdata->perm_wis < 18 && !str_cmp( arg1, "wis" ) )
{
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->pcdata->perm_wis++;
send_to_char( "You become wiser.\n\r", ch );
return;
}
if ( ch->pcdata->perm_dex < 18 && !str_cmp( arg1, "dex" ) )
{
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->pcdata->perm_dex++;
send_to_char( "You become more dexterious.\n\r", ch );
return;
}
if ( ch->pcdata->perm_con < 18 && !str_cmp( arg1, "con" ) )
{
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->pcdata->perm_con++;
send_to_char( "Your constitution increases.\n\r", ch );
return;
}
value = is_number( arg2 ) ? atoi( arg2 ) : 1;
if ( ch->practice < 100 && !str_cmp( arg1, "primal" ) )
{
if ( value < 0 || value > 50 )
{
send_to_char( "Training value range is 1 to 50.\n\r", ch );
return;
}
if ( ( ch->practice + value ) > 100 )
{
sprintf( buf, "You can only train another %d points of Primal.\n\r",
100 - ch->practice );
send_to_char( buf, ch );
return;
}
amount = ch->practice;
cost = 0;
for ( i = 0 ; i < value ; i++ )
{
cost += ( amount + 1 ) * 500;
amount++;
}
if ( cost < 1 ) cost = 1;
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->practice += value;
sprintf( buf, "You gain %d points of Primal.\n\r", value );
send_to_char( buf, ch );
return;
}
if ( ch->max_hit < CAP_HP && !str_cmp( arg1, "hp" ) )
{
if ( value < 0 || value > 1000 )
{
send_to_char( "Training value range is 1 to 1000.\n\r", ch );
return;
}
if ( ( ch->max_hit + value ) > CAP_HP )
{
sprintf( buf, "You can only train another %d Hit Points.\n\r",
CAP_HP - ch->max_hit );
send_to_char( buf, ch );
return;
}
amount = ch->max_hit;
cost = 0;
for ( i = 0 ; i < value ; i++ )
{
cost += amount - ( get_curr_str( ch ) + get_curr_con( ch ) );
amount++;
}
if ( cost < 1 ) cost = 1;
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->max_hit += value;
sprintf( buf, "You gain %d Hit Points.\n\r", value );
send_to_char( buf, ch );
return;
}
if ( ch->max_mana < CAP_MANA && !str_cmp( arg1, "mana" ) )
{
if ( value < 0 || value > 1000 )
{
send_to_char( "Training value range is 1 to 1000.\n\r", ch );
return;
}
if ( ( ch->max_mana + value ) > CAP_MANA )
{
sprintf( buf, "You can only train another %d points of Mana.\n\r",
CAP_MANA - ch->max_mana );
send_to_char( buf, ch );
return;
}
amount = ch->max_mana;
cost = 0;
for ( i = 0 ; i < value ; i++ )
{
cost += amount - ( get_curr_wis( ch ) + get_curr_int( ch ) );
amount++;
}
if ( cost < 1 ) cost = 1;
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->max_mana += value;
sprintf( buf, "You gain %d points of Mana.\n\r", value );
send_to_char( buf, ch );
return;
}
if ( ch->max_move < CAP_MOVE && !str_cmp( arg1, "move" ) )
{
if ( value < 0 || value > 1000 )
{
send_to_char( "Training value range is 1 to 1000.\n\r", ch );
return;
}
if ( ( ch->max_move + value ) > CAP_MOVE )
{
sprintf( buf, "You can only train another %d points of Movement.\n\r",
CAP_MOVE - ch->max_move );
send_to_char( buf, ch );
return;
}
amount = ch->max_move;
cost = 0;
for ( i = 0 ; i < value ; i++ )
{
cost += amount - ( get_curr_dex( ch ) + get_curr_con( ch ) );
amount++;
}
if ( cost < 1 ) cost = 1;
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
ch->max_move += value;
sprintf( buf, "You gain %d points of Movement.\n\r", value );
send_to_char( buf, ch );
return;
}
if ( ( !str_cmp( arg1, "sleep" ) && !IS_IMMUNE( ch, IMM_SLEEP ) )
|| ( !str_cmp( arg1, "charm" ) && !IS_IMMUNE( ch, IMM_CHARM ) )
|| ( !str_cmp( arg1, "steal" ) && !IS_IMMUNE( ch, IMM_STEAL ) ) )
{
cost = count_imms( ch );
if ( cost < 1 ) cost = 1;
if ( ch->exp < cost )
{
sprintf( buf, "That will cost you %d exp, you only have %d exp.\n\r",
cost, ch->exp );
send_to_char( buf, ch );
return;
}
ch->exp -= cost;
if ( !str_cmp( arg1, "sleep" ) )
{
SET_BIT( ch->immune, IMM_SLEEP );
send_to_char( "You are now immune to sleep spells.\n\r", ch );
return;
}
if ( !str_cmp( arg1, "charm" ) )
{
SET_BIT( ch->immune, IMM_CHARM );
send_to_char( "You are now immune to charm spells.\n\r", ch );
return;
}
if ( !str_cmp( arg1, "steal" ) )
{
SET_BIT( ch->immune, IMM_STEAL );
send_to_char( "You are now immune to being stolen from.\n\r", ch );
return;
}
}
do_train( ch, "" );
return;
}
void do_mount( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Mount what?\n\r", ch );
return;
}
if (IS_AFFECTED(ch, AFF_POLYMORPH) && !IS_VAMPAFF(ch, VAM_DISGUISED))
{
send_to_char( "You cannot ride in this form.\n\r",ch );
return;
}
if (IS_POLYAFF(ch, POLY_ZULO))
{
send_to_char( "You cannot ride in this form.\n\r",ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r",ch );
return;
}
if ( ch == victim )
{
send_to_char( "You cannot ride on your own back!\n\r",ch );
return;
}
if ( ch->mounted > 0 )
{
send_to_char( "You are already riding.\n\r",ch );
return;
}
if ( !IS_NPC(victim) || victim->mounted > 0 || (IS_NPC(victim) && !IS_SET(victim->act, ACT_MOUNT) ) )
{
send_to_char( "You cannot mount them.\n\r",ch );
return;
}
if ( victim->position < POS_STANDING )
{
if ( victim->position < POS_SLEEPING )
act( "$N is too badly hurt for that.", ch, NULL, victim, TO_CHAR );
else if ( victim->position == POS_SLEEPING )
act( "First you better wake $m up.", ch, NULL, victim, TO_CHAR );
else if ( victim->position == POS_RESTING )
act( "First $e better stand up.", ch, NULL, victim, TO_CHAR );
else if ( victim->position == POS_MEDITATING )
act( "First $e better stand up.", ch, NULL, victim, TO_CHAR );
else if ( victim->position == POS_SITTING )
act( "First $e better stand up.", ch, NULL, victim, TO_CHAR );
else if ( victim->position == POS_SLEEPING )
act( "First you better wake $m up.", ch, NULL, victim, TO_CHAR );
else if ( victim->position == POS_FIGHTING )
act( "Not while $e's fighting.", ch, NULL, victim, TO_CHAR );
return;
}
if (ch->stance[0] != -1) do_stance(ch,"");
ch->mounted = IS_RIDING;
victim->mounted = IS_MOUNT;
ch->mount = victim;
victim->mount = ch;
act( "You clamber onto $N's back.", ch, NULL, victim, TO_CHAR );
act( "$n clambers onto $N's back.", ch, NULL, victim, TO_ROOM );
return;
}
void do_dismount( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
if ( ch->mounted == 0 )
{
send_to_char( "But you are not riding!\n\r",ch );
return;
}
if ( (victim = ch->mount) == NULL )
{
send_to_char( "But you are not riding!\n\r",ch );
return;
}
act( "You clamber off $N's back.", ch, NULL, victim, TO_CHAR );
act( "$n clambers off $N's back.", ch, NULL, victim, TO_ROOM );
ch->mounted = IS_ON_FOOT;
victim->mounted = IS_ON_FOOT;
ch->mount = NULL;
victim->mount = NULL;
return;
}
void do_tie( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg [MAX_INPUT_LENGTH];
char buf [MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if (victim == ch)
{
send_to_char( "You cannot tie yourself up!\n\r", ch );
return;
}
if (IS_EXTRA(victim,TIED_UP))
{
send_to_char( "But they are already tied up!\n\r", ch );
return;
}
if (!IS_IMMUNE(victim, IMM_VAMPIRE))
{
if (is_safe(ch,victim)) return;
if (victim->position > POS_STUNNED || victim->hit > 0)
{
send_to_char( "You can only tie up a defenceless person.\n\r", ch );
return;
}
}
act("You quickly tie up $N.",ch,NULL,victim,TO_CHAR);
act("$n quickly ties up $N.",ch,NULL,victim,TO_ROOM);
send_to_char("You have been tied up!\n\r",victim);
SET_BIT(victim->extra,TIED_UP);
sprintf(buf,"%s has been tied up by %s.",victim->name,ch->name);
do_info(ch,buf);
return;
}
void do_untie( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg [MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if (!IS_EXTRA(victim,TIED_UP))
{
send_to_char( "But they are not tied up!\n\r", ch );
return;
}
if (victim == ch)
{
send_to_char( "You cannot untie yourself!\n\r", ch );
return;
}
act("You quickly untie $N.",ch,NULL,victim,TO_CHAR);
act("$n quickly unties $N.",ch,NULL,victim,TO_NOTVICT);
act("$n quickly unties you.",ch,NULL,victim,TO_VICT);
REMOVE_BIT(victim->extra,TIED_UP);
return;
}
void do_gag( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg [MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if (victim == ch && !IS_EXTRA(victim,GAGGED) && IS_EXTRA(victim,TIED_UP))
{
send_to_char( "You cannot gag yourself!\n\r", ch );
return;
}
if (!IS_EXTRA(victim,TIED_UP) && !IS_EXTRA(victim,GAGGED))
{
send_to_char( "You can only gag someone who is tied up!\n\r", ch );
return;
}
if (!IS_EXTRA(victim,GAGGED))
{
act("You place a gag over $N's mouth.",ch,NULL,victim,TO_CHAR);
act("$n places a gag over $N's mouth.",ch,NULL,victim,TO_NOTVICT);
act("$n places a gag over your mouth.",ch,NULL,victim,TO_VICT);
SET_BIT(victim->extra,GAGGED);
return;
}
if (ch == victim)
{
act("You remove the gag from your mouth.",ch,NULL,victim,TO_CHAR);
act("$n removes the gag from $s mouth.",ch,NULL,victim,TO_ROOM);
REMOVE_BIT(victim->extra,GAGGED);
return;
}
act("You remove the gag from $N's mouth.",ch,NULL,victim,TO_CHAR);
act("$n removes the gag from $N's mouth.",ch,NULL,victim,TO_NOTVICT);
act("$n removes the gag from your mouth.",ch,NULL,victim,TO_VICT);
REMOVE_BIT(victim->extra,GAGGED);
return;
}
void do_blindfold( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg [MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if (victim == ch && !IS_EXTRA(victim,BLINDFOLDED) && IS_EXTRA(victim,TIED_UP))
{
send_to_char( "You cannot blindfold yourself!\n\r", ch );
return;
}
if (!IS_EXTRA(victim,TIED_UP) && !IS_EXTRA(victim,BLINDFOLDED))
{
send_to_char( "You can only blindfold someone who is tied up!\n\r", ch );
return;
}
if (!IS_EXTRA(victim,BLINDFOLDED))
{
act("You place a blindfold over $N's eyes.",ch,NULL,victim,TO_CHAR);
act("$n places a blindfold over $N's eyes.",ch,NULL,victim,TO_NOTVICT);
act("$n places a blindfold over your eyes.",ch,NULL,victim,TO_VICT);
SET_BIT(victim->extra,BLINDFOLDED);
return;
}
if (ch == victim)
{
act("You remove the blindfold from your eyes.",ch,NULL,victim,TO_CHAR);
act("$n removes the blindfold from $s eyes.",ch,NULL,victim,TO_ROOM);
REMOVE_BIT(victim->extra,BLINDFOLDED);
return;
}
act("You remove the blindfold from $N's eyes.",ch,NULL,victim,TO_CHAR);
act("$n removes the blindfold from $N's eyes.",ch,NULL,victim,TO_NOTVICT);
act("$n removes the blindfold from your eyes.",ch,NULL,victim,TO_VICT);
REMOVE_BIT(victim->extra,BLINDFOLDED);
return;
}
int count_imms( CHAR_DATA *ch )
{
int count = 0;
if ( IS_IMMUNE(ch, IMM_SLASH) ) count += 1;
if ( IS_IMMUNE(ch, IMM_STAB) ) count += 1;
if ( IS_IMMUNE(ch, IMM_SMASH) ) count += 1;
if ( IS_IMMUNE(ch, IMM_ANIMAL) ) count += 1;
if ( IS_IMMUNE(ch, IMM_MISC) ) count += 1;
if ( IS_IMMUNE(ch, IMM_CHARM) ) count += 1;
if ( IS_IMMUNE(ch, IMM_HEAT) ) count += 1;
if ( IS_IMMUNE(ch, IMM_COLD) ) count += 1;
if ( IS_IMMUNE(ch, IMM_LIGHTNING) ) count += 1;
if ( IS_IMMUNE(ch, IMM_ACID) ) count += 1;
if ( IS_IMMUNE(ch, IMM_SLEEP) ) count += 1;
if ( IS_IMMUNE(ch, IMM_DRAIN) ) count += 1;
if ( IS_IMMUNE(ch, IMM_VOODOO) ) count += 1;
if ( IS_IMMUNE(ch, IMM_HURL) ) count += 1;
if ( IS_IMMUNE(ch, IMM_BACKSTAB) ) count += 1;
if ( IS_IMMUNE(ch, IMM_KICK) ) count += 1;
if ( IS_IMMUNE(ch, IMM_DISARM) ) count += 1;
if ( IS_IMMUNE(ch, IMM_STEAL) ) count += 1;
return ( ( count * 10000 ) + 10000 );
}
DO_COM( do_track )
{
bool found = FALSE;
if (IS_SET(world_affects, WORLD_RAIN))
{
send_to_char("Its impossible to find any tracks with all this rain.\n\r",ch);
return;
}
if (!IS_NPC(ch) && number_percent() > ch->pcdata->learned[gsn_track])
{
send_to_char("You cannot sense any trails from this room.\n\r",ch);
WAIT_STATE(ch,12);
return;
}
if (check_track(ch,0)) found = TRUE;
if (check_track(ch,1)) found = TRUE;
if (check_track(ch,2)) found = TRUE;
if (check_track(ch,3)) found = TRUE;
if (check_track(ch,4)) found = TRUE;
if (found == FALSE)
{
send_to_char("You cannot sense any trails from this room.\n\r",ch);
return;
}
act("$n carefully examines the ground for tracks.",ch,NULL,NULL,TO_ROOM);
WAIT_STATE(ch,12);
return;
}
void add_tracks( CHAR_DATA *ch, int direction )
{
int loop;
if (IS_NPC(ch)) return;
if (get_auspice(ch, AUSPICE_RAGABASH) > 0) return;
if (IS_ITEMAFF(ch, ITEMA_STALKER)) return;
if ( IS_IMMORTAL( ch ) ) return;
for ( loop = 0; loop <= 4; loop++ )
{
if (ch->in_room->track[loop] != NULL && !str_cmp(ch->in_room->track[loop],ch->name))
{
FILL_STRING( ch->in_room->track[loop], "" );
}
}
if (strlen(ch->in_room->track[0]) < 2)
{
FILL_STRING( ch->in_room->track[0], ch->name );
ch->in_room->track_dir[0] = direction;
}
else if (strlen(ch->in_room->track[1]) < 2)
{
FILL_STRING( ch->in_room->track[1], ch->name );
ch->in_room->track_dir[1] = direction;
}
else if (strlen(ch->in_room->track[2]) < 2)
{
FILL_STRING( ch->in_room->track[2], ch->name );
ch->in_room->track_dir[2] = direction;
}
else if (strlen(ch->in_room->track[3]) < 2)
{
FILL_STRING( ch->in_room->track[3], ch->name );
ch->in_room->track_dir[3] = direction;
}
else if (strlen(ch->in_room->track[4]) < 2)
{
FILL_STRING( ch->in_room->track[4], ch->name );
ch->in_room->track_dir[4] = direction;
}
else
{
FILL_STRING( ch->in_room->track[0], ch->in_room->track[1] );
ch->in_room->track_dir[0] = ch->in_room->track_dir[1];
FILL_STRING( ch->in_room->track[1], ch->in_room->track[2] );
ch->in_room->track_dir[1] = ch->in_room->track_dir[2];
FILL_STRING( ch->in_room->track[2], ch->in_room->track[3] );
ch->in_room->track_dir[2] = ch->in_room->track_dir[3];
FILL_STRING( ch->in_room->track[3], ch->in_room->track[4] );
ch->in_room->track_dir[3] = ch->in_room->track_dir[4];
FILL_STRING( ch->in_room->track[4], ch->name );
ch->in_room->track_dir[4] = direction;
}
return;
}
bool check_track( CHAR_DATA *ch, int direction )
{
char buf [MAX_INPUT_LENGTH];
int door;
if (strlen(ch->in_room->track[direction]) < 2) return FALSE;
if (!str_cmp(ch->in_room->track[direction],ch->name)) return FALSE;
door = ch->in_room->track_dir[direction];
sprintf(buf,"You sense the trail of %s leading $T from here.",ch->in_room->track[direction]);
act( buf, ch, NULL, dir_name[door], TO_CHAR );
return TRUE;
}
void check_hunt( CHAR_DATA *ch )
{
CHAR_DATA *victim;
bool found = FALSE;
int direction = 0;
ROOM_INDEX_DATA *in_room;
in_room = ch->in_room;
if (!IS_NPC(ch) && number_percent() > ch->pcdata->learned[gsn_track])
{
send_to_char("You cannot sense any trails from this room.\n\r",ch);
free_string(ch->hunting);
ch->hunting = str_dup( "" );
return;
}
if (check_track(ch,0)) {found = TRUE;direction = ch->in_room->track_dir[0];}
else if (check_track(ch,1)) {found = TRUE;direction = ch->in_room->track_dir[1];}
else if (check_track(ch,2)) {found = TRUE;direction = ch->in_room->track_dir[2];}
else if (check_track(ch,3)) {found = TRUE;direction = ch->in_room->track_dir[3];}
else if (check_track(ch,4)) {found = TRUE;direction = ch->in_room->track_dir[4];}
else if ( ( victim = get_char_room( ch, ch->hunting ) ) == NULL )
{
send_to_char("You cannot sense any trails from this room.\n\r",ch);
free_string(ch->hunting);
ch->hunting = str_dup( "" );
return;
}
if (strlen(ch->hunting) < 2) return;
if ( ( victim = get_char_room( ch, ch->hunting ) ) != NULL ) return;
act("$n carefully examines the ground for tracks.",ch,NULL,NULL,TO_ROOM);
move_char(ch,direction);
if (in_room == ch->in_room || victim != NULL)
{
free_string(ch->hunting);
ch->hunting = str_dup( "" );
}
return;
}
void do_pour( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if (!IS_VAMPIRE(ch) || !IS_AFFECTED(ch, AFF_POLYMORPH) ||
!IS_EXTRA(ch, EXTRA_OSWITCH) || ch->pcdata->obj_vnum !=
OBJ_VNUM_SPILT_BLOOD)
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( ( obj = ch->pcdata->chobj ) == NULL )
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( obj->chobj == NULL || obj->chobj != ch )
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( obj->in_room == NULL )
{
send_to_char("You are unable to move.\n\r",ch);
return;
}
if (!str_cmp(arg,"n") || !str_cmp(arg,"north")) do_north(ch,"");
else if (!str_cmp(arg,"s") || !str_cmp(arg,"south")) do_south(ch,"");
else if (!str_cmp(arg,"e") || !str_cmp(arg,"east" )) do_east(ch,"");
else if (!str_cmp(arg,"w") || !str_cmp(arg,"west" )) do_west(ch,"");
else if (!str_cmp(arg,"u") || !str_cmp(arg,"up" ))
{
send_to_char("You cannot pour up.\n\r",ch);
return;
}
else if (!str_cmp(arg,"d") || !str_cmp(arg,"down" )) do_down(ch,"");
else
{
send_to_char("Do you wish to roll north, south, east, west, down?\n\r",ch);
return;
}
obj_from_room(obj);
obj_to_room(obj,ch->in_room);
return;
}
void do_roll( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if (!IS_SET(ch->act,PLR_DEMON) && !IS_SET(ch->act,PLR_CHAMPION))
{
send_to_char("Huh?\n\r",ch);
return;
}
if (!IS_SET(ch->pcdata->disc[O_POWERS], DEM_MOVE))
{
send_to_char("You haven't been granted the gift of movement.\n\r",ch);
return;
}
if ( ( obj = ch->pcdata->chobj ) == NULL )
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( obj->chobj == NULL || obj->chobj != ch )
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( obj->in_room == NULL )
{
send_to_char("You are unable to move.\n\r",ch);
return;
}
if (!str_cmp(arg,"n") || !str_cmp(arg,"north")) do_north(ch,"");
else if (!str_cmp(arg,"s") || !str_cmp(arg,"south")) do_south(ch,"");
else if (!str_cmp(arg,"e") || !str_cmp(arg,"east" )) do_east(ch,"");
else if (!str_cmp(arg,"w") || !str_cmp(arg,"west" )) do_west(ch,"");
else if (!str_cmp(arg,"u") || !str_cmp(arg,"up" )) do_up(ch,"");
else if (!str_cmp(arg,"d") || !str_cmp(arg,"down" )) do_down(ch,"");
else
{
send_to_char("Do you wish to roll north, south, east, west, up or down?\n\r",ch);
return;
}
obj_from_room(obj);
obj_to_room(obj,ch->in_room);
return;
}
void do_leap( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
OBJ_DATA *container;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if (!IS_SET(ch->act,PLR_DEMON) && !IS_SET(ch->act,PLR_CHAMPION))
{
send_to_char("Huh?\n\r",ch);
return;
}
if (!IS_SET(ch->pcdata->disc[O_POWERS], DEM_LEAP))
{
send_to_char("You haven't been granted the gift of leaping.\n\r",ch);
return;
}
if ( ( obj = ch->pcdata->chobj ) == NULL )
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( obj->chobj == NULL || obj->chobj != ch )
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( obj->in_room != NULL && arg[0] == '\0' )
{
send_to_char("Where do you want to leap?\n\r",ch);
return;
}
if ( obj->in_room != NULL )
{
if ( ( victim = get_char_room( ch, arg ) ) != NULL )
{
act("$p leaps into your hands.",victim,obj,NULL,TO_CHAR);
act("$p leaps into $n's hands.",victim,obj,NULL,TO_ROOM);
obj_from_room(obj);
obj_to_char(obj,victim);
return;
}
else if ( ( container = get_obj_room( ch, arg ) ) != NULL )
{
if (container->item_type != ITEM_CONTAINER &&
container->item_type != ITEM_CORPSE_NPC &&
container->item_type != ITEM_CORPSE_PC)
{
send_to_char("You cannot leap into that sort of object.\n\r",ch);
return;
}
act("$p leap into $P.",ch,obj,container,TO_CHAR);
act("$p leaps into $P.",ch,obj,container,TO_ROOM);
obj_from_room(obj);
obj_to_obj(obj,container);
return;
}
else send_to_char( "Nothing here by that name.\n\r",ch );
return;
}
if ( obj->carried_by != NULL )
{
act("$p leaps from your hands.",obj->carried_by,obj,NULL,TO_CHAR);
act("$p leaps from $n's hands.",obj->carried_by,obj,NULL,TO_ROOM);
obj_from_char(obj);
obj_to_room(obj,ch->in_room);
return;
}
else if ( (container = obj->in_obj) != NULL && container->in_room != NULL )
{
obj_from_obj(obj);
obj_to_room(obj,container->in_room);
char_from_room(ch);
char_to_room(ch,container->in_room);
act("$p leap from $P.",ch,obj,container,TO_CHAR);
act("$p leaps from $P.",ch,obj,container,TO_ROOM);
return;
}
if (obj->in_room != NULL)
send_to_char("You seem unable to leap anywhere.\n\r",ch);
else
send_to_char("You seem to be stuck!\n\r",ch);
return;
}