/***************************************************************************
* 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. *
***************************************************************************/
#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"
#include "wild.h"
void horn args( ( CHAR_DATA *ch ) );
char * const dir_name [] =
{
"north", "east", "south", "west", "up", "down"
};
const sh_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 drow_hate args( ( CHAR_DATA *ch) );
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;
OBJ_DATA *obj;
EXIT_DATA *pexit;
int xx = ch->x;
int yy = ch->y;
int getroom = ch->room;
DESCRIPTOR_DATA *d;
char buf [MAX_STRING_LENGTH];
char poly [MAX_STRING_LENGTH];
char mount2 [MAX_INPUT_LENGTH];
char leave [20];
int revdoor;
bool bad_wall = FALSE;
if ( door < 0 || door > 5 )
{
bug( "Do_move: bad door %d.", door );
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 (door == DIR_NORTH && ((obj=get_obj_list(ch,"walln",ch->in_room->contents)) != NULL ||
(obj=get_obj_list(ch,"walls",to_room->contents)) != NULL)) bad_wall = TRUE;
if (door== DIR_SOUTH && ((obj=get_obj_list(ch,"walls",ch->in_room->contents)) != NULL ||
(obj=get_obj_list(ch,"walln",to_room->contents)) != NULL)) bad_wall = TRUE;
if (door== DIR_EAST && ((obj=get_obj_list(ch,"walle",ch->in_room->contents)) != NULL ||
(obj=get_obj_list(ch,"wallw",to_room->contents)) != NULL)) bad_wall = TRUE;
if (door== DIR_WEST && ((obj=get_obj_list(ch,"wallw",ch->in_room->contents)) != NULL ||
(obj=get_obj_list(ch,"walle",to_room->contents)) != NULL)) bad_wall = TRUE;
if (door== DIR_UP && ((obj=get_obj_list(ch,"wallu",ch->in_room->contents)) != NULL ||
(obj=get_obj_list(ch,"walld",to_room->contents)) != NULL)) bad_wall = TRUE;
if (door== DIR_DOWN && ((obj=get_obj_list(ch,"walld",ch->in_room->contents)) != NULL ||
(obj=get_obj_list(ch,"wallu",to_room->contents)) != NULL)) bad_wall = TRUE;
if (bad_wall)
{
send_to_char("You are unable to pass the wall.\n\r",ch);
return;
}
if ( CHAR_IN_WILDERNESS(ch) )
// if ( IN_WILDERNESS(in_room->vnum) )
{
bool move_ch = TRUE;
switch ( map_data(ch->x,ch->y) )
{
default:
ch->room = 0;
getroom = 0;
break;
case WILD_HUT:
case WILD_HUT_OWNED:
case WILD_HUT_LOCKED:
case WILD_CABIN:
case WILD_CABIN_OWNED:
case WILD_CABIN_LOCKED:
case WILD_COTTAGE:
case WILD_COTTAGE_OWNED:
case WILD_COTTAGE_LOCKED:
case WILD_HOUSE:
case WILD_HOUSE_OWNED:
case WILD_HOUSE_LOCKED:
case WILD_MINE_STRUCTURE_EMPTY:
case WILD_MINE_STRUCTURE_STONE:
case WILD_MINE_STRUCTURE_IRON:
case WILD_MINE_STRUCTURE_GOLD:
case WILD_MINE_STRUCTURE_OIL:
case WILD_MINE_STONE_1:
case WILD_MINE_STONE_2:
case WILD_MINE_IRON_1:
case WILD_MINE_IRON_2:
case WILD_MINE_GOLD_1:
case WILD_MINE_GOLD_2:
case WILD_MINE_OIL_1:
case WILD_MINE_OIL_2:
case WILD_MINE_EMPTY:
if (ch->room != 0 || door == DIR_NORTH)
move_ch = FALSE;
break;
}
if ( move_ch && (door == DIR_UP || door == DIR_DOWN) )
{
send_to_char( "Alas, you cannot go that way.\n\r", ch );
return;
}
if ( move_ch )
{
switch ( door )
{
default:
/* Do nothing. */
break;
case DIR_NORTH:
if ( ++yy >= WILDERNESS_SIZE )
{
yy = 0;
}
break;
case DIR_SOUTH:
if ( --yy < 0 )
{
yy = WILDERNESS_SIZE-1;
}
break;
case DIR_EAST:
if ( ++xx >= WILDERNESS_SIZE )
{
xx = 0;
}
break;
case DIR_WEST:
if ( --xx < 0 )
{
xx = WILDERNESS_SIZE-1;
}
break;
}
}
else
{
if ( ( getroom = next_home(ch, door) ) < 0 )
{
send_to_char( "Alas, you cannot go that way.\n\r", ch );
return;
}
}
if (move_ch)
{
if (map_data(xx,yy) == WILD_HUT_LOCKED ||
map_data(xx,yy) == WILD_CABIN_LOCKED ||
map_data(xx,yy) == WILD_COTTAGE_LOCKED ||
map_data(xx,yy) == WILD_HOUSE_LOCKED )
{
if (ch->home_x != xx || ch->home_y != yy)
{
send_to_char("You cannot enter that locked building.\n\r",
ch );
return;
}
}
}
if ( ( to_room = next_room( xx, yy, getroom ) ) == NULL )
{
to_room = in_room;
}
}
else switch (door)
{
default:
break;
case DIR_NORTH:
if ( ++yy >= WILDERNESS_SIZE )
{
yy = 0;
}
break;
case DIR_SOUTH:
if ( --yy < 0 )
{
yy = WILDERNESS_SIZE-1;
}
break;
case DIR_EAST:
if ( ++xx >= WILDERNESS_SIZE )
{
xx = 0;
}
break;
case DIR_WEST:
if ( --xx < 0 )
{
xx = WILDERNESS_SIZE-1;
}
break;
}
if ( IS_SET(pexit->exit_info, EX_CLOSED)
&& !IS_AFFECTED(ch, AFF_PASS_DOOR)
&& !IS_AFFECTED(ch, AFF_ETHEREAL)
&& !IS_AFFECTED(ch, AFF_SHADOWPLANE) )
{
if (!IS_NPC(ch) && (IS_CLASS(ch,CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN)
|| IS_CLASS(ch, CLASS_GAIA_WOLF) || IS_CLASS(ch, CLASS_STALKER)) && ch->power[DISC_WERE_BOAR] > 0 && !IS_SET(pexit->exit_info, EX_PRISMATIC_WALL))
{
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_SET(to_room->shinobi, ROOM_SFIRE) && !IS_NPC(ch) && (!IS_CLASS(ch,CLASS_SHINOBI) ||
(IS_CLASS(ch,CLASS_SHINOBI) && ch->pcdata->powers[S_ELEMENT] == S_WATER))){
stc("Its far to hot in that room to enter!\n\r",ch);
return;
}
*/
if (IS_SET(pexit->exit_info, EX_PRISMATIC_WALL) && IS_SET(pexit->exit_info, EX_CLOSED))
{
stc( "The prismatic wall prevents movement through this closed exit.\n\r",ch);
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 ))
{
if ( IS_NPC( ch ) || ch->trust < MAX_LEVEL)
{
send_to_char( "That room is private right now.\n\r", ch );
return;
}
else
send_to_char( "That room is private (Access granted).\n\r", ch);
}
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;
if ( in_room->sector_type == SECT_AIR
|| to_room->sector_type == SECT_AIR )
{
if ( !IS_AFFECTED(ch, AFF_FLYING) &&
(!IS_NPC(ch) && (!IS_CLASS(ch, CLASS_DROW) && !IS_CLASS(ch, CLASS_BLACK_ASSASSIN)
&& !IS_CLASS(ch, CLASS_STALKER) && !IS_CLASS(ch, CLASS_SHADOWBORN)) && !IS_SET(ch->pcdata->powers[1], DPOWER_LEVITATION)) &&
(!IS_NPC(ch) && !IS_VAMPAFF(ch, VAM_FLYING) &&
(!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) && IS_CLASS(ch, CLASS_VAMPIRE))
{
if ( IS_VAMPAFF(ch, VAM_FLYING) )
found = TRUE;
else if ( IS_POLYAFF(ch, POLY_SERPENT) )
found = TRUE;
else if ( IS_AFFECTED(ch, AFF_SHADOWPLANE) )
found = TRUE;
else if ((mount=ch->mount) != NULL && IS_SET(ch->mounted, IS_RIDING)
&& IS_AFFECTED(mount, AFF_FLYING))
found = TRUE;
else
{
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_NPC( ch) && IS_DEMAFF(ch, DEM_UNFOLDED) )
found = TRUE;
else if (!IS_NPC(ch) && (IS_CLASS(ch, CLASS_DROW) || IS_CLASS(ch, CLASS_BLACK_ASSASSIN)
|| IS_CLASS(ch, CLASS_STALKER) || IS_CLASS(ch, CLASS_SHADOWBORN)))
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;
}
}
move = movement_loss[UMIN(SECT_MAX-1, in_room->sector_type)]
+ movement_loss[UMIN(SECT_MAX-1, to_room->sector_type)]
;
if (IS_HERO(ch)) move = 0;
if(ch->move <= 0)
{
send_to_char("You are too Exhausted.\n\r",ch);
return;
}
if (IS_SET(ch->mounted, IS_RIDING) && (ch->move < move || ch->move < 1))
{
send_to_char( "You are too exhausted.\n\r", ch );
return;
}
if (IS_SET(pexit->exit_info, EX_IRON_WALL)
&& !IS_AFFECTED(ch, AFF_PASS_DOOR) )
{
send_to_char("A towering wall of iron blocks your path.\n\r", ch);
act("$n's path is blocked by the wall of iron.", ch, NULL, NULL, TO_ROOM);
return;
}
if (IS_SET(pexit->exit_info, EX_MUSHROOM_WALL))
{
send_to_char("The mushrooms block your path.\n\r", ch);
return;
}
if (IS_SET(pexit->exit_info, EX_ICE_WALL)
&& ch->power[DISC_DAEM_GELU] < 5 )
{
send_to_char("A huge wall of ice blocks your way.\n\r", ch);
return;
}
if (IS_SET(pexit->exit_info, EX_FIRE_WALL)
&& ch->class == 0)
{
act("$n bursts through the wall of fire.", ch, NULL, NULL, TO_ROOM);
send_to_char("You jump through the flames and are unaffected.\n\r", ch);
}
else if (IS_SET(pexit->exit_info, EX_FIRE_WALL)
&& ch->class != 0 && !IS_NPC(ch) && ch->level > 2)
{
act("$n bursts through the wall of fire.", ch, NULL, NULL, TO_ROOM);
send_to_char("You jump through the flames.\n\r", ch);
ch->hit -= dice(6, 50);
stc("The flames sear your flesh.\n\r",ch);
}
if (IS_SET(pexit->exit_info, EX_SWORD_WALL)
&& ch->class == 0)
{
act("$n bursts through the wall of swords.", ch, NULL, NULL, TO_ROOM);
send_to_char("You jump through the swords and are unaffected.\n\r", ch);
}
else if (IS_SET(pexit->exit_info, EX_SWORD_WALL)
&& ch->class != 0 && !IS_NPC(ch) && ch->level > 2)
{
act("$n jumps through the wall of swords.", ch, NULL, NULL, TO_ROOM);
send_to_char("You jump through the swords.\n\r", ch);
send_to_char("Aaaaaaaaarghhhhhhh! That hurt!\n\r", ch);
ch->hit -= dice(6, 70);
}
if (IS_SET(pexit->exit_info, EX_ASH_WALL) )
{
send_to_char("You scream in agony as the wall of ash rips apart your life force.\n\r", ch);
act("$n screams in agony as the wall of ash rips $s life force apart.", ch, NULL, NULL, TO_ROOM);
ch->hit /= 2;
ch->move /= 2;
}
if(IS_SET(pexit->exit_info, EX_SHIN_WALL) && !IS_CLASS(ch,CLASS_SHINOBI)){
stc("The shurikens tear through your flesh!\n\r",ch);
act("$n's flesh is torn by the shuriken wall!",ch,NULL,NULL,TO_ROOM);
ch->hit *= .9;
}
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_HEAD(ch,LOST_HEAD) || IS_EXTRA(ch,EXTRA_OSWITCH) )
sprintf(leave,"rolls");
else if ( IS_AFFECTED(ch,AFF_ETHEREAL) )
sprintf(leave,"floats");
else if ( ch->in_room->sector_type == SECT_WATER_SWIM )
sprintf(leave,"swims");
else if ( IS_SET(ch->polyaff,POLY_SERPENT) )
sprintf(leave,"slithers");
else if ( IS_SET(ch->polyaff,POLY_WOLF) )
sprintf(leave,"stalks");
else if ( IS_SET(ch->polyaff,POLY_FROG) )
sprintf(leave,"hops");
else if ( IS_SET(ch->polyaff,POLY_FISH) )
sprintf(leave,"swims");
else if ( !IS_NPC(ch) && IS_DEMAFF(ch,DEM_UNFOLDED) )
sprintf(leave,"flies");
else if ( IS_BODY(ch,BROKEN_SPINE) )
sprintf(leave,"drags $mself");
else if ( IS_LEG_L(ch,LOST_LEG) && IS_LEG_R(ch,LOST_LEG) )
sprintf(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)) )
sprintf(leave,"crawls");
else if ( ch->hit < (ch->max_hit/4) )
sprintf(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)) )
sprintf(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)) )
sprintf(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)) )
sprintf(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)) )
sprintf(leave,"limps");
else if ( ch->hit < (ch->max_hit/3) )
sprintf(leave,"limps");
else if ( ch->hit < (ch->max_hit/2) )
sprintf(leave,"staggers");
else if ( !IS_NPC(ch) )
{
if (ch->pcdata->condition[COND_DRUNK] > 10)
sprintf(leave,"staggers");
else
sprintf(leave,"walks");
}
else
sprintf(leave,"walks");
if (!IS_NPC(ch) && 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 ( !IS_NPC(ch) && IS_SET(ch->affected_by2, AFF_ENGULF))
{
stc("The surrounding flames flicker and die out.\n\r",victim);
} */
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 );
}
else if( IS_AFFECTED(ch, AFF_SNEAK) &&
!IS_NPC(ch) && !IS_SET(ch->act,PLR_WIZINVIS)
&& IS_CLASS(victim,CLASS_ZOMBIE) && IS_SET(victim->newbits2,NEW2_DEATHSENSE)){
sprintf(poly,"You sense the presence of %s leaving the room.\n\r",ch->pcdata->switchname);
stc(poly,victim);
}
}
ch->x = xx;
ch->y = yy;
ch->room = getroom;
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)
{
act( "You follow $N.", fch, NULL, ch, TO_CHAR );
move_char( fch, door );
}
}
room_text(ch,">ENTER<");
return;
}
/*
void do_humanform( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
if (IS_NPC(ch)) return;
if ( ( obj = ch->pcdata->chobj ) == NULL )
{
send_to_char("You are already in human form.\n\r",ch);
return;
}
ch->pcdata->obj_vnum = 0;
obj->chobj = NULL;
ch->pcdata->chobj = NULL;
REMOVE_BIT(ch->affected_by, AFF_POLYMORPH);
REMOVE_BIT(ch->extra, EXTRA_OSWITCH);
free_string(ch->morph);
ch->morph = str_dup("");
act("$p transforms into $n.",ch,obj,NULL,TO_ROOM);
act("Your reform your human body.",ch,obj,NULL,TO_CHAR);
extract_obj(obj);
if (ch->in_room->vnum == ROOM_VNUM_IN_OBJECT)
{
char_from_room(ch);
char_to_room(ch,get_room_index(ROOM_VNUM_HELL));
}
return;
}
void do_notravel( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
one_argument( argument, arg );
if (IS_NPC(ch)) return;
if (IS_IMMUNE(ch, IMM_TRAVEL))
{
REMOVE_BIT(ch->immune, IMM_TRAVEL);
send_to_char("You can now be the target of travel or burrow.\n\r", ch);
return;
}
else if (!IS_IMMUNE(ch, IMM_TRAVEL))
{
SET_BIT(ch->immune, IMM_TRAVEL);
send_to_char("You can no longer be the target of travel or burrow.\n\r", ch);
return;
}
else
send_to_char( "Excuse you?\n\r", ch );
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;
}
if (IS_EXTRA(ch, PINNEDWALL))
{
send_to_char("Not while pinned to the wall.\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 );
*/
drow_hate(ch);
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;
}
if (IS_EXTRA(ch, PINNEDWALL))
{
send_to_char("Not while pinned to the wall.\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 );
*/
drow_hate(ch);
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;
}
if (IS_EXTRA(ch, PINNEDWALL))
{
send_to_char("Not while pinned to the wall.\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 );
*/
drow_hate(ch);
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;
}
if (IS_EXTRA(ch, PINNEDWALL))
{
send_to_char("Not while pinned to the wall.\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 );
*/
drow_hate(ch);
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;
}
if (IS_EXTRA(ch, PINNEDWALL))
{
send_to_char("Not while pinned to the wall.\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 );
*/
drow_hate(ch);
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;
}
if (IS_EXTRA(ch, PINNEDWALL))
{
send_to_char("Not while pinned to the wall.\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 );
*/
drow_hate(ch);
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;
}
/* random room generation procedure */
ROOM_INDEX_DATA *get_random_room(CHAR_DATA *ch)
{
ROOM_INDEX_DATA *room;
for ( ; ; )
{
room = get_room_index( number_range( 0, 32000 ) );
if ( room != NULL )
if ( !IS_SET(room->room_flags, ROOM_PRIVATE)
&& !IS_SET(room->room_flags, ROOM_SOLITARY)
&& !IS_SET(room->room_flags, ROOM_SAFE) )
break;
}
return room;
}
ROOM_INDEX_DATA *get_rand_room()
{
ROOM_INDEX_DATA *room;
for ( ; ; )
{
room = get_room_index( number_range( 0, 32000 ) );
if ( room != NULL )
if ( !IS_SET(room->room_flags, ROOM_PRIVATE)
&& !IS_SET(room->room_flags, ROOM_SOLITARY)
&& !IS_SET(room->room_flags, ROOM_SAFE)
&& room->vnum > 300)
break;
}
return room;
}
ROOM_INDEX_DATA *get_treemeld_room()
{
ROOM_INDEX_DATA *room;
for ( ; ; )
{
room = get_room_index( number_range( 0, 32000 ) );
if ( room != NULL
&& room->sector_type == SECT_FOREST ) break;
}
return room;
}
ROOM_INDEX_DATA *get_rand_room_by_sect( int sect )
{
ROOM_INDEX_DATA *room;
for ( ; ; )
{
room = get_room_index( number_range( 0, 32000 ) );
if ( room != NULL
&& room->sector_type == sect ) break;
}
return room;
}
/* 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 && obj->item_type != ITEM_WGATE)
{
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->item_type == ITEM_PORTAL) {
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);
}
}
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);
}
}
}
}
do_look(ch,"auto");
if ( ( mount = ch->mount ) == NULL ) return;
char_from_room( mount );
char_to_room( mount, ch->in_room );
return;
}
else
{
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 );
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;
}
}
}
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;
}
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) && ch->level + 5 < gch->level )
{
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:
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;
}
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 )
{
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 are already sitting.\n\r", ch );
break;
case POS_STANDING:
send_to_char( "You sit down.\n\r", ch );
act( "$n sits down.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_SITTING;
break;
case POS_FIGHTING:
send_to_char( "You are already fighting!\n\r", ch );
break;
}
return;
}
void do_meditate( CHAR_DATA *ch, char *argument )
{
// if (IS_NPC(ch) || (!IS_CLASS(ch, CLASS_MAGE) && !IS_CLASS(ch, CLASS_MONK)
// && !IS_CLASS(ch, CLASS_NINJA) && !IS_CLASS(ch, CLASS_DROW) && !IS_CLASS(ch, CLASS_LICH)))
if (IS_NPC(ch) || (!IS_CLASS(ch, CLASS_DROW) && !IS_CLASS(ch, CLASS_BLACK_ASSASSIN)
&& !IS_CLASS(ch, CLASS_STALKER) && !IS_CLASS(ch, CLASS_SHADOWBORN) & !IS_CLASS(ch, CLASS_SHINOBI)))
{
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_healing( CHAR_DATA *ch, char *argument )
{
if (IS_NPC(ch) || (!IS_CLASS(ch, CLASS_UNDEAD_LYCAN) && !IS_CLASS(ch, CLASS_HELL_SPAWN)
&& !IS_CLASS(ch, CLASS_VAMPIRIC_MIST) && !IS_CLASS(ch, CLASS_VAMPIRE)) && ch->power[DISC_VAMP_PROT] < 8)
{
send_to_char("You are unable to assume a state of healing.\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 in a healing position.\n\r", ch );
break;
case POS_SITTING:
send_to_char( "You close your eyes and become completely relaxed.\n\r", ch );
act( "$n closes $m eyes and looks completely relaxed.", ch, NULL, NULL, TO_ROOM );
ch->position = POS_MEDITATING;
break;
case POS_STANDING:
send_to_char( "You close your eyes and become completely relaxed.\n\r", ch );
act( "$n closes $m eyes and looks completely relaxed.", 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_STANDING;
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 );
}
return;
}
void do_hide( CHAR_DATA *ch, char *argument )
{
/* if (!IS_NPC(ch) && (IS_CLASS(ch, CLASS_MONK) || IS_CLASS(ch,
CLASS_NINJA))) {
send_to_char("You cannot use this power.\n\r", ch );
return;}
*/
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 );
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;
}
void do_recall( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
CHAR_DATA *mount;
ROOM_INDEX_DATA *location;
if (IS_NPC(ch)) return;
act( "$n's body flickers with green energy.", ch, NULL, NULL, TO_ROOM );
act( "Your body flickers with green energy.", ch, NULL, NULL, TO_CHAR );
/*
if ( ch->position == POS_FIGHTING)
{
send_to_char( "You can't recall while fighting.\n\r",ch);
return;
}
*/
if (IS_EXTRA(ch, PINNEDWALL))
{
send_to_char("Not while pinned to the wall.\n\r",ch);
return;
}
if ( ( location = get_room_index( ch->home ) ) == NULL )
{
send_to_char( "You are completely lost.\n\r", ch );
return;
}
/*
if ( IS_AFFECTED(ch, AFF_DARKNESS))
{
REMOVE_BIT(ch->affected_by, AFF_DARKNESS);
return;
}
*/
if ( ch->in_room == location )
return;
if ( IS_SET(ch->in_room->room_flags, ROOM_NO_RECALL)
|| IS_AFFECTED(ch, AFF_CURSE) )
{
send_to_char( "You are unable to recall.\n\r", ch );
return;
}
if ( IS_SET(ch->in_room->room_flags, ROOM_NO_CHANT))
{
send_to_char( "You are unable to chant, its a no chant room.\n\r", ch );
return;
}
if ( IS_SET(ch->flag2, AFF_TOTALBLIND) )
{
stc("You are unable to recall.\n\r",ch);
return;
}
if (ch->fight_timer > 0)
{
send_to_char("Not with a fight timer.\n\r", ch);
return;
}
if ( ( victim = ch->fighting ) != NULL )
{
if ( number_bits( 1 ) == 0 )
{
WAIT_STATE( ch, 4 );
sprintf( buf, "You failed!\n\r" );
send_to_char( buf, ch );
return;
}
sprintf( buf, "You recall from combat!\n\r");
send_to_char( buf, 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_newhome( 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 room, 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 != NULL)
{
if (IS_SET(ch->in_room->room_flags, ROOM_ARENA))
{
send_to_char("No silly.\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 #Gdefenceless#n, easy kill for the quick.",ch->pcdata->switchname);
do_info(ch,buf);
if (IS_SET(ch->newbits, NEW_DARKNESS)) {
REMOVE_BIT(ch->newbits, NEW_DARKNESS);
if (ch->in_room != NULL)
if (IS_SET(ch->in_room->room_flags, ROOM_TOTAL_DARKNESS))
REMOVE_BIT(ch->in_room->room_flags, ROOM_TOTAL_DARKNESS);
return;
}
return;
}
int disc_points_needed(CHAR_DATA *ch)
{
int disc;
if (IS_NPC(ch)) return 1;
disc = (ch->power[ch->pcdata->disc_research] + 1) * 10;
if( disc < 1 ) disc = 1;
return disc;
}
void gain_disc_points(CHAR_DATA *ch, int points)
{
if (IS_NPC(ch)) return;
if (ch->pcdata->disc_points == 666) return;
if (ch->pcdata->disc_research == -1) return;
ch->pcdata->disc_points += points;
if (ch->pcdata->disc_points < 0)
{
ch->pcdata->disc_points = 0;
return;
}
if (ch->pcdata->disc_points >=
disc_points_needed(ch) )
{
ch->pcdata->disc_points = 999;
WAIT_STATE(ch, 6);
stc("#4You have finished researching your discipline.\n\r", ch);
stc("You may now use the 'train' command.#n\n\r", ch);
return;
}
}
void do_research(CHAR_DATA *ch, char *argument)
{
int i;
int needed;
int maxlevel;
char buf[MAX_STRING_LENGTH];
maxlevel = 0;
if (IS_CLASS(ch, CLASS_VAMPIRE))
{
if (ch->pcdata->rank == AGE_CHILDE || ch->pcdata->rank == AGE_NEONATE)
maxlevel = 5;
else if (ch->pcdata->rank == AGE_ANCILLA)
maxlevel = 7;
else if (ch->pcdata->rank == AGE_ELDER)
maxlevel = 9;
else
maxlevel = 10;
}
else maxlevel = 10;
if (IS_NPC(ch)) return;
if (!str_cmp(argument, "cancel"))
{
if (ch->pcdata->disc_research == -1)
{
stc("You are not currently researching a discipline.\n\r",ch);
return;
}
stc("You stop your research.\n\r", ch);
ch->pcdata->disc_research = -1;
ch->pcdata->disc_points = 0;
return;
}
if (argument[0] == '\0')
{
stc("What do you wish to research.\n\r", ch);
return;
}
if (ch->pcdata->disc_research != -1)
{
stc("You are already researching a discipline.\n\r", ch);
stc("Type 'research cancel' to stop.\n\r",ch);
return;
}
for ( i = 1 ; i < MAX_DISCIPLINES ; i++)
{
if (discipline[i][0] != '\0'
&& !str_prefix(argument, discipline[i]) )
{
needed = ((ch->power[i] - 5) * 10);
if (ch->power[i] < 0)
{
stc("You don't know any disciplines of that name.\n\r", ch);
return;
}
if ( IS_CLASS(ch, CLASS_VAMPIRE)
&& ch->power[i] >= maxlevel)
{
stc("You need to age more before progressing in this discipline.\n\r",ch);
return;
}
if ( ch->power[i] >= 10 )
{
stc("You have reached full mastery of this discipline.\n\r",ch);
return;
}
sprintf(buf, "You begin your research into %s.\n\r",
discipline[i]);
stc(buf, ch);
ch->pcdata->disc_points = 0;
ch->pcdata->disc_research = i;
return;
}
}
stc("You don't know any disciplines of that name.\n\r", ch);
}
const char * wwgift [MAX_GIFTS] =
{
"",
"Homid", "Metis",
"Lupus", "Ragabash",
"Theurge", "Philodox",
"Galliard", "Ahroun",
"Black Furies", "Bone Gnawers",
"Children of Gaia", "Fianna",
"Get of Fenris", "Glass Walkers",
"Red Talons", "Shadow Lords",
"Silent Striders", "Silver Fangs",
"Stargazers", "Uktena",
"Wendigo"
};
const char * discipline [MAX_DISCIPLINES] =
{
"", "nature",
"celerity", "fortitude",
"obtenebration", "presence",
"quietus", "thaumaturgy",
"auspex", "dominate",
"obfuscate", "potence",
"protean", "serpentis",
"vicissitude", "daimoinon",
"animalism", "arcane",
/* Werewolf */
"bear", "lynx",
"boar", "owl",
"spider", "wolf",
"hawk", "mantis",
"raptor", "luna",
"pain", "congregation",
/* Daemon */
"hellfire", "attack",
"temptation", "morphosis",
"corruption", "geluge",
"discord", "nether",
"immunae", "chimerstry",
"thanatosis", "obeah",
"necromancy", "melpominee",
/* Drow */
"groundhog", "rodent",
"arachnid", "jellyfish",
"chameleon", "bat",
"crustation", "raven",
"pirana"
};
void do_disciplines(CHAR_DATA *ch, char *argument)
{
char buf[MAX_INPUT_LENGTH];
char buf2[MAX_INPUT_LENGTH];
int loop;
int percent = 0, i;
int indent = 0;
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_UNDEAD_LYCAN) && !IS_CLASS(ch, CLASS_HELL_SPAWN)
&& !IS_CLASS(ch, CLASS_VAMPIRIC_MIST) && !IS_CLASS(ch, CLASS_VAMPIRE)
&& !IS_CLASS(ch, CLASS_DEMON) && !IS_CLASS(ch, CLASS_HELLS_SOLDIER)
&& !IS_CLASS(ch, CLASS_SHADOW_FIEND) && !IS_CLASS(ch, CLASS_SHADOW_DRAGON)
&& !IS_CLASS(ch,CLASS_WEREWOLF) && !IS_CLASS(ch, CLASS_UNDEAD_LYCAN)
&& !IS_CLASS(ch, CLASS_GAIA_WOLF) && !IS_CLASS(ch, CLASS_STALKER)
&& !IS_CLASS(ch, CLASS_DROW) && !IS_CLASS(ch, CLASS_SHADOWBORN)
&& !IS_CLASS(ch, CLASS_BLACK_ASSASSIN))
{
send_to_char("Huh.\n\r",ch);
return;
}
if (IS_CLASS(ch,CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN)
|| IS_CLASS(ch, CLASS_GAIA_WOLF) || IS_CLASS(ch, CLASS_STALKER))
sprintf(buf, "---===[ Guardians ]===---");
else
sprintf(buf, "---===[ Disciplines ]===---");
cent_to_char(buf, ch);
send_to_char("\n\r", ch);
for (loop = 1; loop < MAX_DISCIPLINES; loop++)
{
if (discipline[loop][0] != '\0'
&& strlen(discipline[loop]) != 0
&& ch->power[loop] >= 0 )
{
sprintf(buf2, discipline[loop]);
buf2[0] = UPPER(buf2[0]);
sprintf(buf," %-14s: %-2d",
buf2,
ch->power[loop]);
send_to_char(buf,ch);
indent++;
if (indent == 3)
{
stc("\n\r", ch);
indent = 0;
}
}
}
if (indent != 0) stc("\n\r", ch);
/* This tells them if they are currently researching */
if (ch->pcdata->disc_research < 0)
{
send_to_char("\n\r", ch);
divide6_to_char(ch);
return;
}
if (ch->power[ch->pcdata->disc_research] < 0)
{
send_to_char("\n\r", ch);
divide6_to_char(ch);
return;
}
if (ch->pcdata->disc_points == 999)
{
stc("\n\r", ch);
sprintf(buf, "You have finished researching %s.",
discipline[ch->pcdata->disc_research]);
cent_to_char(buf, ch);
stc("\n\r", ch);
divide6_to_char(ch);
return;
}
if (ch->pcdata->disc_research < MAX_DISCIPLINES)
{
send_to_char("\n\r", ch);
sprintf(buf, "You are currently researching %s.",
discipline[ch->pcdata->disc_research]);
cent_to_char(buf, ch);
}
percent = ch->pcdata->disc_points * 40 / disc_points_needed(ch);
sprintf(buf, "-[#1");
for( i = 0 ; i < percent ; i++)
strcat(buf, "*");
for( i = percent ; i < 40 ; i++)
strcat(buf, " ");
strcat(buf, "#n]-");
cent_to_char(buf, ch);
}
void do_relearn(CHAR_DATA *ch,char *argument )
{
char arg1[MAX_STRING_LENGTH];
argument = one_argument( argument, arg1 );
if (IS_NPC(ch)) return;
/*
if ( arg1[0] == '\0' )
{
send_to_char("You are currently resistant to:\n\r",ch);
int immune_counter = 0;
if (IS_IMMUNE(ch,IMM_SLASH))
{
immune_counter+=1;
send_to_char("Slash & Slice.\n",ch);
}
if (IS_IMMUNE(ch,IMM_STAB))
{
immune_counter+=1;
send_to_char("Stab & Pierce.\n",ch);
}
if (IS_IMMUNE(ch,IMM_SMASH))
{
immune_counter+=1;
send_to_char("Pound, Blast & Crush.\n",ch);
}
if (IS_IMMUNE(ch,IMM_ANIMAL))
{
immune_counter+=1;
send_to_char("Claw & Bite.\n",ch);
}
if (IS_IMMUNE(ch,IMM_MISC))
{
immune_counter+=1;
send_to_char("Grep, Whip & Suck.\n",ch);
}
if (immune_counter==0)
send_to_char("None.\n\r",ch);
immune_counter=0;
send_to_char("You are immune to:\n\r",ch);
if (IS_IMMUNE(ch,IMM_CHARM))
{
immune_counter+=1;
send_to_char("Charm.\n",ch);
}
if (IS_IMMUNE(ch,IMM_HEAT))
{
immune_counter+=1;
send_to_char("Heat.\n",ch);
}
if (IS_IMMUNE(ch,IMM_COLD))
{
immune_counter+=1;
send_to_char("Cold.\n",ch);
}
if (IS_IMMUNE(ch,IMM_LIGHTNING))
{
immune_counter+=1;
send_to_char("Lightning.\n",ch);
}
if (IS_IMMUNE(ch,IMM_ACID))
{
immune_counter+=1;
send_to_char("Acid.\n",ch);
}
if (IS_IMMUNE(ch,IMM_DRAIN))
{
immune_counter+=1;
send_to_char("Drain.\n",ch);
}
if (IS_IMMUNE(ch,IMM_VOODOO))
{
immune_counter+=1;
send_to_char("Voodoo.\n",ch);
}
if (IS_IMMUNE(ch,IMM_HURL))
{
immune_counter+=1;
send_to_char("Hurl.\n",ch);
}
if (IS_IMMUNE(ch,IMM_BACKSTAB))
{
immune_counter+=1;
send_to_char("Backstab.\n",ch);
}
if (IS_IMMUNE(ch,IMM_DISARM))
{
immune_counter+=1;
send_to_char("Disarm.\n",ch);
}
if (IS_IMMUNE(ch,IMM_STEAL))
{
immune_counter+=1;
send_to_char("Steal.\n",ch);
}
if (immune_counter==0)
send_to_char("None.\n\r",ch);
return;
}
*/
if (!str_cmp(arg1,"slash") || !str_cmp(arg1,"slice"))
{
if (IS_IMMUNE(ch,IMM_SLASH))
{
REMOVE_BIT(ch->immune, IMM_SLASH);
send_to_char("You forget Slash & Slice resistances.\n\r",ch); return;
}
}
if (!strcmp(arg1,"stab") || !str_cmp(arg1,"pierce"))
{
if (IS_IMMUNE(ch,IMM_STAB))
{
REMOVE_BIT(ch->immune, IMM_STAB);
send_to_char("You forget Stab & Pierce resistances.\n\r",ch); return;
}
}
if (!strcmp(arg1,"smash") || !str_cmp(arg1,"pound") || !str_cmp(arg1,"blast") || !str_cmp(arg1,"crush"))
{
if (IS_IMMUNE(ch,IMM_SMASH))
{
REMOVE_BIT(ch->immune, IMM_SMASH);
send_to_char("You forget Pound, Blast & Crush resistances.\n\r",ch); return;
}
}
if (!strcmp(arg1,"beast") || !str_cmp(arg1,"claw") || !str_cmp(arg1,"bite"))
{
if (IS_IMMUNE(ch,IMM_ANIMAL))
{
REMOVE_BIT(ch->immune, IMM_ANIMAL);
send_to_char("You forget Claw & Bite resistances.\n\r",ch); return;
}
}
if (!strcmp(arg1,"grab") || !str_cmp(arg1,"grep") || !str_cmp(arg1,"whip") || !str_cmp(arg1,"suck"))
{
if (IS_IMMUNE(ch,IMM_MISC))
{
REMOVE_BIT(ch->immune, IMM_MISC);
send_to_char("You forget Grep, Whip & Suck resistances.\n\r",ch); return;
}
}
if (!strcmp(arg1,"charm"))
{
if (IS_IMMUNE(ch,IMM_CHARM))
{
REMOVE_BIT(ch->immune, IMM_CHARM);
send_to_char("You forget Charm immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"heat"))
{
if (IS_IMMUNE(ch,IMM_HEAT))
{
REMOVE_BIT(ch->immune, IMM_HEAT);
send_to_char("You forget Heat immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"cold"))
{
if (IS_IMMUNE(ch,IMM_COLD))
{
REMOVE_BIT(ch->immune, IMM_COLD);
send_to_char("You forget Cold immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"lightning"))
{
if (IS_IMMUNE(ch,IMM_LIGHTNING))
{
REMOVE_BIT(ch->immune, IMM_LIGHTNING);
send_to_char("You forget Lightning immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"acid"))
{
if (IS_IMMUNE(ch,IMM_ACID))
{
REMOVE_BIT(ch->immune, IMM_ACID);
send_to_char("You forget Acid immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"cold"))
{
if (IS_IMMUNE(ch,IMM_COLD))
{
REMOVE_BIT(ch->immune, IMM_COLD);
send_to_char("You forget Cold immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"drain"))
{
if (IS_IMMUNE(ch,IMM_DRAIN))
{
REMOVE_BIT(ch->immune, IMM_DRAIN);
send_to_char("You forget Drain immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"voodoo"))
{
if (IS_IMMUNE(ch,IMM_VOODOO))
{
REMOVE_BIT(ch->immune, IMM_VOODOO);
send_to_char("You forget Voodoo immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"hurl"))
{
if (IS_IMMUNE(ch,IMM_HURL))
{
REMOVE_BIT(ch->immune, IMM_HURL);
send_to_char("You forget Hurl immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"backstab"))
{
if (IS_IMMUNE(ch,IMM_BACKSTAB))
{
REMOVE_BIT(ch->immune, IMM_BACKSTAB);
send_to_char("You forget Backstab immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"kick"))
{
if (IS_IMMUNE(ch,IMM_KICK))
{
REMOVE_BIT(ch->immune, IMM_KICK);
send_to_char("You forget Kick immunity.\n\r",ch); return;
}
}
if (!strcmp(arg1,"disarm"))
{
if (IS_IMMUNE(ch,IMM_DISARM))
{
REMOVE_BIT(ch->immune, IMM_DISARM);
send_to_char("You forget Disarm immunity.\n\r",ch);
return;
}
}
if (!strcmp(arg1,"steal"))
{
if (IS_IMMUNE(ch,IMM_STEAL))
{
REMOVE_BIT(ch->immune, IMM_STEAL);
send_to_char("You forget Steal immunity.\n\r",ch);
return;
}
}
else
{
send_to_char("Command: relearn an already learned immunity/resistance.\n\r", ch);
return;
}
}
void do_trainall( CHAR_DATA *ch, char *argument )
{
char buf[MSL];
char arg1[MSL];
int exp;
int amount = 100000;
int urin;
int urin_counter = 0;
int statcap;
if(IS_NPC(ch)) return;
argument = one_argument( argument, arg1 );
switch( ch->pcdata->upgrade_level )
{
case 0: statcap = 250000; break;
case 1: statcap = 275000; break;
case 2: statcap = 500000; break;
case 3: statcap = 700000; break;
case 4: statcap = 1000000; break;
case 5: statcap = 1250000; break;
default: break;
}
statcap += (ch->pStatus * 10000);
if (!str_cmp(arg1,"hp"))
{
if(ch->pcdata->quest < 1000 && ch->exp < ch->max_hit) {
stc("You don't even have anything to train with.\n\r",ch);
return;
}
if(ch->max_hit >= statcap) {
stc("You can't train any more hp.\n\r",ch);
return;
}
for ( ; ; ) {
for (exp = ch->exp; exp < 2000000000; exp += 100000000) {
if (ch->pcdata->quest < 1000) break;
ch->exp += 100000000;
ch->pcdata->quest -= 1000;
}
for (urin = 0; urin < amount ; urin++) {
if (ch->exp >= UMAX(1, (ch->max_hit + 1)) && ch->max_hit < statcap) {
ch->max_hit++;
ch->exp -= UMAX(1, ch->max_hit);
urin_counter++;
}
}
if (ch->pcdata->quest < 1000 || ch->max_hit >= statcap) {
sprintf(buf,"You gained %d hp.\n\r",urin_counter);
stc(buf,ch);
break;
}
}
return;
}
else if (!str_cmp(arg1,"mana"))
{
if(ch->pcdata->quest < 1000 && ch->exp < ch->max_mana) {
stc("You don't even have anything to train with.\n\r",ch);
return;
}
if(ch->max_mana >= statcap) {
stc("You can't train any more mana.\n\r",ch);
return;
}
for ( ; ; ) {
for (exp = ch->exp; exp < 2000000000; exp += 100000000) {
if (ch->pcdata->quest < 1000) break;
ch->exp += 100000000;
ch->pcdata->quest -= 1000;
}
for (urin = 0; urin < amount ; urin++) {
if (ch->exp >= UMAX(1, (ch->max_mana + 1)) && ch->max_mana < statcap) {
ch->max_mana++;
ch->exp -= UMAX(1, ch->max_mana);
urin_counter++;
}
}
if (ch->pcdata->quest < 1000 || ch->max_mana >= statcap) {
sprintf(buf,"You gained %d mana.\n\r",urin_counter);
stc(buf,ch);
break;
}
}
return;
}
else if (!str_cmp(arg1,"move"))
{
if(ch->pcdata->quest < 1000 && ch->exp < ch->max_move) {
stc("You don't even have anything to train with.\n\r",ch);
return;
}
if(ch->max_move >= statcap) {
stc("You can't train any more move.\n\r",ch);
return;
}
for ( ; ; ) {
for (exp = ch->exp; exp < 2000000000; exp += 100000000) {
if (ch->pcdata->quest < 1000) break;
ch->exp += 100000000;
ch->pcdata->quest -= 1000;
}
for (urin = 0; urin < amount ; urin++) {
if (ch->exp >= UMAX(1, (ch->max_move + 1)) && ch->max_move < statcap) {
ch->max_move++;
ch->exp -= UMAX(1, ch->max_move);
urin_counter++;
}
}
if (ch->pcdata->quest < 1000 || ch->max_move >= statcap) {
sprintf(buf,"You gained %d move.\n\r",urin_counter);
stc(buf,ch);
break;
}
}
return;
}
stc("Syntax: trainall <hp/mana/move>\n\r",ch);
stc("This command puts as many qps as possible into the specified stat.\n\r",ch);
}
void do_train( CHAR_DATA *ch, char *argument )
{
char arg1[MAX_STRING_LENGTH];
char arg2[MAX_STRING_LENGTH];
char buf[MAX_STRING_LENGTH];
sh_int *pAbility;
char *pOutput;
int cost;
int magic;
int immcost;
int primal;
int silver;
int gnosis;
int ancilla;
int methuselah;
int lamagra;
int trueblood;
int elder;
int beast;
int belt1;
int belt2;
int belt3;
int belt4;
int belt5;
int belt6;
int belt7;
int belt8;
int belt9;
int belt10;
int max_stat = 120; // was 25 -xrak
bool last = TRUE;
bool is_ok = FALSE;
int loop;
int pow;
int rank_xp = 50000000 * ch->pRank;
int rank_qp = 15000 * ch->pRank;
int resist_xp = 50000000 * ch->pResist;
int resist_qp = 15000 * ch->pResist;
int legend_xp = 50000000 * ch->pcdata->legend;
int legend_qp = 15000 * ch->pcdata->legend;
int cmax = 200;
int permstat;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
permstat = 100; // was 18 -xrak
if (IS_NPC(ch)) return;
if( !str_cmp( arg1, "rank" ) ) {
if( ch->pRank >= MAX_RANKING ) {
send_to_char( "Already Maximum Rank.\n\r", ch );
return;
}
if( ch->exp < rank_xp ) {
sprintf( buf, "Not enough Experience points, you need %d more.\n\r", ( rank_xp - ch->exp ) );
send_to_char( buf, ch );
return;
}
if( ch->pcdata->quest < rank_qp ) {
sprintf( buf, "Not enough Quest points, you need %d more.\n\r", ( rank_qp - ch->pcdata->quest ) );
send_to_char( buf, ch );
return;
}
ch->pcdata->quest -= rank_qp;
ch->exp -= rank_xp;
ch->pRank++;
sprintf( buf, "%s is now known as %s %s", ch->pcdata->switchname, getCurrRanking( ch, ch->pRank ), ch->pcdata->switchname );
do_info( ch, buf );
return;
}
if( !str_cmp( arg1, "resist" ) ) {
if( ch->pResist >= MAX_RESIST ) {
send_to_char( "You have maximum damage resistance.\n\r", ch );
return;
}
if( ch->exp < resist_xp ) {
sprintf( buf, "Not enough Experience points, you need %d more.\n\r", ( resist_xp - ch->exp ) );
send_to_char( buf, ch );
return;
}
if( ch->pcdata->quest < resist_qp ) {
sprintf( buf, "Not enough Quest points, you need %d more.\n\r", ( resist_qp - ch->pcdata->quest ) );
send_to_char( buf, ch );
return;
}
send_to_char("Resistance Increased.\n\r",ch);
ch->pcdata->quest -= resist_qp;
ch->exp -= resist_xp;
ch->pResist++;
return;
}
if( !str_cmp( arg1, "legend" ) ) {
if( ch->pcdata->legend >= 20 ) {
send_to_char( "You have maximum Legend.\n\r", ch );
return;
}
if( ch->exp < legend_xp ) {
sprintf( buf, "Not enough Experience points, you need %d more.\n\r", ( resist_xp - ch->exp ) );
send_to_char( buf, ch );
return;
}
if( ch->pcdata->quest < legend_qp ) {
sprintf( buf, "Not enough Quest points, you need %d more.\n\r", ( resist_qp - ch->pcdata->quest ) );
send_to_char( buf, ch );
return;
}
send_to_char("Legend Increased.\n\r",ch);
ch->pcdata->quest -= legend_qp;
ch->exp -= legend_xp;
ch->pcdata->legend++;
return;
}
if ((IS_CLASS(ch, CLASS_TANARRI) || IS_CLASS(ch, CLASS_DEVA)
|| IS_CLASS(ch, CLASS_HELL_SPAWN) || IS_CLASS(ch, CLASS_BAATEZU)) && !IS_NPC(ch))
{
if (!str_cmp(arg1,"fodder") && ch->pcdata->tanrank == 0)
{
if (ch->exp < 10000000)
{
send_to_char("You don't have the exp.\n\r",ch);
return;
}
ch->exp -= 10000000;
ch->pcdata->tanrank++;
sprintf( buf, "%s is now fodder in the Blood Wars!",ch->pcdata->switchname );
do_info(ch,buf);
return;
}
if (!str_cmp(arg1,"fighter") && ch->pcdata->tanrank == 1)
{
if (ch->pcdata->powers[TANARRI_POWER_COUNTER] < 3)
{
send_to_char("You still haven't gotten all powers, FODDER!\n\r",ch);
return;
}
if (ch->exp < 20000000)
{
send_to_char("You don't have the exp.\n\r",ch);
return;
}
ch->exp -= 20000000;
ch->pcdata->tanrank++;
sprintf( buf, "%s is now a fighter in the Blood Wars!",ch->pcdata->switchname );
do_info(ch,buf);
return;
}
if (!str_cmp(arg1,"elite") && ch->pcdata->tanrank == 2)
{
if (ch->pcdata->powers[TANARRI_POWER_COUNTER] < 6)
{
send_to_char("You still haven't gotten all powers, FIGHTER!\n\r",ch);
return;
}
if (ch->exp < 40000000)
{
send_to_char("You don't have the exp.\n\r",ch);
return;
}
ch->exp -= 40000000;
ch->pcdata->tanrank++;
sprintf( buf, "%s is now an elite warrior in the Blood Wars!",ch->pcdata->switchname );
do_info(ch,buf);
return;
}
if (!str_cmp(arg1,"captain") && ch->pcdata->tanrank == 3)
{
if (ch->pcdata->powers[TANARRI_POWER_COUNTER] < 9)
{
send_to_char("You still haven't gotten all powers, SOLDIER!\n\r",ch);
return;
}
if (ch->exp < 80000000)
{
send_to_char("You don't have the exp.\n\r",ch);
return;
}
ch->exp -= 80000000;
ch->pcdata->tanrank++;
sprintf( buf, "%s is now a captain in the Blood Wars!",ch->pcdata->switchname );
do_info(ch,buf);
return;
}
if (!str_cmp(arg1,"warlord") && ch->pcdata->tanrank == 4)
{
if (ch->pcdata->powers[TANARRI_POWER_COUNTER] < 12)
{
send_to_char("You still haven't gotten all powers, CAPTAIN!\n\r",ch);
return;
}
if (ch->exp < 160000000)
{
send_to_char("You don't have the exp.\n\r",ch);
return;
}
ch->exp -= 160000000;
ch->pcdata->tanrank++;
sprintf( buf, "%s is now a warlord in the Blood Wars!",ch->pcdata->switchname );
do_info(ch,buf);
return;
}
if (!str_cmp(arg1,"balor") && ch->pcdata->tanrank == 5)
{
if (ch->pcdata->powers[TANARRI_POWER_COUNTER] < 15)
{
send_to_char("You still haven't gotten all powers, MR. WARLORD!\n\r",ch);
return;
}
if (ch->exp < 320000000)
{
send_to_char("You don't have the exp.\n\r",ch);
return;
}
ch->exp -= 320000000;
ch->pcdata->tanrank++;
sprintf( buf, "%s is now a Tanar'ri Balor!",ch->pcdata->switchname );
do_info(ch,buf);
return;
}
}
if (!str_cmp(arg1,"justice"))
{
if ((!IS_CLASS(ch, CLASS_HEAVENS_SOLDIER) && !IS_CLASS(ch, CLASS_TYPHON) && !IS_CLASS(ch, CLASS_BETRAYER)
&& !IS_CLASS(ch, CLASS_ANGEL) && !IS_CLASS(ch, CLASS_SILVER_DRAGON)) || ch->pcdata->powers[ANGEL_JUSTICE] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ANGEL_JUSTICE]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ANGEL_JUSTICE]++;
ch->exp -= ch->pcdata->powers[ANGEL_JUSTICE]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"love"))
{
if ((!IS_CLASS(ch, CLASS_HEAVENS_SOLDIER) && !IS_CLASS(ch, CLASS_TYPHON) && !IS_CLASS(ch, CLASS_BETRAYER)
&& !IS_CLASS(ch, CLASS_ANGEL) && !IS_CLASS(ch, CLASS_SILVER_DRAGON)) || ch->pcdata->powers[ANGEL_LOVE] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ANGEL_LOVE]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ANGEL_LOVE]++;
ch->exp -= ch->pcdata->powers[ANGEL_LOVE]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"harmony"))
{
if ((!IS_CLASS(ch, CLASS_HEAVENS_SOLDIER) && !IS_CLASS(ch, CLASS_TYPHON) && !IS_CLASS(ch, CLASS_BETRAYER)
&& !IS_CLASS(ch, CLASS_ANGEL) && !IS_CLASS(ch, CLASS_SILVER_DRAGON)) || ch->pcdata->powers[ANGEL_HARMONY] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ANGEL_HARMONY]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ANGEL_HARMONY]++;
ch->exp -= ch->pcdata->powers[ANGEL_HARMONY]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"peace"))
{
if( (!IS_CLASS(ch, CLASS_HEAVENS_SOLDIER) && !IS_CLASS(ch, CLASS_TYPHON) && !IS_CLASS(ch, CLASS_BETRAYER)
&& !IS_CLASS(ch, CLASS_ANGEL) && !IS_CLASS(ch, CLASS_SILVER_DRAGON)) || ch->pcdata->powers[ANGEL_PEACE] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ANGEL_PEACE]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ANGEL_PEACE]++;
ch->exp -= ch->pcdata->powers[ANGEL_PEACE]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"earth"))
{
if ((!IS_CLASS(ch, CLASS_GAIA_WOLF) && !IS_CLASS(ch, CLASS_DRUID)
&& !IS_CLASS(ch, CLASS_DEVA) && !IS_CLASS(ch, CLASS_NECROMANCER)
&& !IS_CLASS(ch, CLASS_ELEMENTAL)) || ch->pcdata->powers[ELEMENTAL_EARTH] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ELEMENTAL_EARTH]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ELEMENTAL_EARTH]++;
ch->exp -= ch->pcdata->powers[ELEMENTAL_EARTH]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"air"))
{
if ((!IS_CLASS(ch, CLASS_GAIA_WOLF) && !IS_CLASS(ch, CLASS_DRUID)
&& !IS_CLASS(ch, CLASS_DEVA) && !IS_CLASS(ch, CLASS_NECROMANCER)
&& !IS_CLASS(ch, CLASS_ELEMENTAL)) || ch->pcdata->powers[ELEMENTAL_AIR] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ELEMENTAL_AIR]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ELEMENTAL_AIR]++;
ch->exp -= ch->pcdata->powers[ELEMENTAL_AIR]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"water"))
{
if ((!IS_CLASS(ch, CLASS_GAIA_WOLF) && !IS_CLASS(ch, CLASS_DRUID)
&& !IS_CLASS(ch, CLASS_DEVA) && !IS_CLASS(ch, CLASS_NECROMANCER)
&& !IS_CLASS(ch, CLASS_ELEMENTAL)) || ch->pcdata->powers[ELEMENTAL_WATER] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ELEMENTAL_WATER]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ELEMENTAL_WATER]++;
ch->exp -= ch->pcdata->powers[ELEMENTAL_WATER]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"fire"))
{
if ((!IS_CLASS(ch, CLASS_GAIA_WOLF) && !IS_CLASS(ch, CLASS_DRUID)
&& !IS_CLASS(ch, CLASS_DEVA) && !IS_CLASS(ch, CLASS_NECROMANCER)
&& !IS_CLASS(ch, CLASS_ELEMENTAL)) || ch->pcdata->powers[ELEMENTAL_FIRE] > 4)
{
do_train(ch,"");
return;
}
if (ch->exp < (ch->pcdata->powers[ELEMENTAL_FIRE]+1)*10000000)
{
send_to_char("You don't have enought exp.\n\r",ch);
return;
}
ch->pcdata->powers[ELEMENTAL_FIRE]++;
ch->exp -= ch->pcdata->powers[ELEMENTAL_FIRE]*10000000;
send_to_char("Ok.\n\r",ch);
return;
}
if (!str_cmp(arg1,"primal"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
if (!is_number(arg2) && strcmp(arg2,"all"))
{
send_to_char("Please enter a numeric value.\n\r",ch);
return;
}
if (is_number(arg2))
{
amount = atoi( arg2 );
if (amount < 1 || amount > 5000)
{
send_to_char("Please enter a value between 1 and 500.\n\r",ch);
return;
}
}
else
{
amount = 100000;
}
for (urin = 0; urin < amount ; urin++)
{
if (ch->exp >= (ch->practice + 1) * 500)
{
ch->practice++;
ch->exp -= ch->practice * 500;
urin_counter++;
}
}
if (urin_counter==0)
{
send_to_char( "You need more exp to gain any primal.\n\r", ch );
}
if (urin_counter==1)
{
send_to_char( "You gain 1 primal.\n\r", ch );
}
if (urin_counter>1)
{
sprintf( buf, "You gain %d primal.\n\r", urin_counter );
send_to_char( buf, ch );
}
return;
}
if (!str_cmp(arg1, "purple"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
if (ch->spl[0] >= cmax)
{
send_to_char
("You've reached the class spell level max.\n\r",
ch);
return;
}
if (!is_number(arg2) && strcmp(arg2, "all"))
{
send_to_char
("Please enter a numeric value or use 'all'.\n\r",
ch);
return;
}
if (is_number(arg2))
{
amount = atoi(arg2);
if (amount < 1 || amount > (cmax - ch->spl[0]))
{
sprintf(buf,
"Please enter a value between 1 and %d.\n\r",
cmax - ch->spl[0]);
send_to_char(buf, ch);
return;
}
}
else
amount = 100000;
for (urin = 0; urin < amount; urin++)
{
if (ch->pcdata->quest >= UMAX((ch->spl[0] * 10), 1)
&& ch->spl[0] < cmax)
{
ch->spl[0]++;
ch->pcdata->quest -= ch->spl[0] * 10;
urin_counter++;
}
else
{
send_to_char
("You cannot afford this the upgrade\n\r",
ch);
return;
}
}
if (urin_counter == 0)
send_to_char
("You need more qp to gain any more spell level.\n\r",
ch);
else if (urin_counter == 1)
send_to_char("You gain 1 point of purple.\n\r", ch);
else
{
sprintf(buf,
"You gain %d points of purple spell level.\n\r",
urin_counter);
send_to_char(buf, ch);
}
return;
}
if (!str_cmp(arg1, "blue"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
if (ch->spl[2] >= cmax)
{
send_to_char
("You've reached the class spell level max.\n\r",
ch);
return;
}
if (!is_number(arg2) && strcmp(arg2, "all"))
{
send_to_char
("Please enter a numeric value or use 'all'.\n\r",
ch);
return;
}
if (is_number(arg2))
{
amount = atoi(arg2);
if (amount < 1 || amount > (cmax - ch->spl[2]))
{
sprintf(buf,
"Please enter a value between 1 and %d.\n\r",
cmax - ch->spl[2]);
send_to_char(buf, ch);
return;
}
}
else
amount = 100000;
for (urin = 0; urin < amount; urin++)
{
if (ch->pcdata->quest >= UMAX((ch->spl[2] * 10), 1)
&& ch->spl[2] < cmax)
{
ch->spl[2]++;
ch->pcdata->quest -= ch->spl[2] * 10;
urin_counter++;
}
else
{
send_to_char
("You cannot afford this the upgrade\n\r",
ch);
return;
}
}
if (urin_counter == 0)
send_to_char
("You need more qp to gain any more spell level.\n\r",
ch);
else if (urin_counter == 1)
send_to_char("You gain 1 point of blue.\n\r", ch);
else
{
sprintf(buf,
"You gain %d points of blue spell level.\n\r",
urin_counter);
send_to_char(buf, ch);
}
return;
}
if (!str_cmp(arg1, "red"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
if (ch->spl[1] >= cmax)
{
send_to_char
("You've reached the class spell level max.\n\r",
ch);
return;
}
if (!is_number(arg2) && strcmp(arg2, "all"))
{
send_to_char
("Please enter a numeric value or use 'all'.\n\r",
ch);
return;
}
if (is_number(arg2))
{
amount = atoi(arg2);
if (amount < 1 || amount > (cmax - ch->spl[1]))
{
sprintf(buf,
"Please enter a value between 1 and %d.\n\r",
cmax - ch->spl[2]);
send_to_char(buf, ch);
return;
}
}
else
amount = 100000;
for (urin = 0; urin < amount; urin++)
{
if (ch->pcdata->quest >= UMAX((ch->spl[1] * 10), 1)
&& ch->spl[1] < cmax)
{
ch->spl[1]++;
ch->pcdata->quest -= ch->spl[1] * 10;
urin_counter++;
}
else
{
send_to_char
("You cannot afford this the upgrade\n\r",
ch);
return;
}
}
if (urin_counter == 0)
send_to_char
("You need more qp to gain any more spell level.\n\r",
ch);
else if (urin_counter == 1)
send_to_char("You gain 1 point of red.\n\r", ch);
else
{
sprintf(buf,
"You gain %d points of red spell level.\n\r",
urin_counter);
send_to_char(buf, ch);
}
return;
}
if (!str_cmp(arg1, "green"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
if (ch->spl[3] >= cmax)
{
send_to_char
("You've reached the class spell level max.\n\r",
ch);
return;
}
if (!is_number(arg2) && strcmp(arg2, "all"))
{
send_to_char
("Please enter a numeric value or use 'all'.\n\r",
ch);
return;
}
if (is_number(arg2))
{
amount = atoi(arg2);
if (amount < 1 || amount > (cmax - ch->spl[3]))
{
sprintf(buf,
"Please enter a value between 1 and %d.\n\r",
cmax - ch->spl[3]);
send_to_char(buf, ch);
return;
}
}
else
amount = 100000;
for (urin = 0; urin < amount; urin++)
{
if (ch->pcdata->quest >= UMAX((ch->spl[3] * 10), 1)
&& ch->spl[3] < cmax)
{
ch->spl[3]++;
ch->pcdata->quest -= ch->spl[3] * 10;
urin_counter++;
}
else
{
send_to_char
("You cannot afford this the upgrade\n\r",
ch);
return;
}
}
if (urin_counter == 0)
send_to_char
("You need more qp to gain any more spell level.\n\r",
ch);
else if (urin_counter == 1)
send_to_char("You gain 1 point of green.\n\r", ch);
else
{
sprintf(buf,
"You gain %d points of green spell level.\n\r",
urin_counter);
send_to_char(buf, ch);
}
return;
}
if (!str_cmp(arg1, "yellow"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
if (ch->spl[4] >= cmax)
{
send_to_char
("You've reached the class spell level max.\n\r",
ch);
return;
}
if (!is_number(arg2) && strcmp(arg2, "all"))
{
send_to_char
("Please enter a numeric value or use 'all'.\n\r",
ch);
return;
}
if (is_number(arg2))
{
amount = atoi(arg2);
if (amount < 1 || amount > (cmax - ch->spl[4]))
{
sprintf(buf,
"Please enter a value between 1 and %d.\n\r",
cmax - ch->spl[4]);
send_to_char(buf, ch);
return;
}
}
else
amount = 100000;
for (urin = 0; urin < amount; urin++)
{
if (ch->pcdata->quest >= UMAX((ch->spl[0] * 10), 1)
&& ch->spl[4] < cmax)
{
ch->spl[4]++;
ch->pcdata->quest -= ch->spl[4] * 10;
urin_counter++;
}
else
{
send_to_char
("You cannot afford this the upgrade\n\r",
ch);
return;
}
}
if (urin_counter == 0)
send_to_char
("You need more qp to gain any more spell level.\n\r",
ch);
else if (urin_counter == 1)
send_to_char("You gain 1 point of yellow.\n\r", ch);
else
{
sprintf(buf,
"You gain %d points of yellow spell level.\n\r",
urin_counter);
send_to_char(buf, ch);
}
return;
}
if (!str_cmp(arg1,"hp"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
int statcap = UMIN(300000, 250000 + 10000 * ch->pStatus);
if (ch->max_hit >= statcap)
{
send_to_char("You've reached the statcap.\n\r",ch);
return;
}
if (!is_number(arg2) && strcmp(arg2,"all"))
{
send_to_char("Please enter a numeric value or use 'all'.\n\r",ch);
return;
}
if (is_number(arg2))
{
amount = atoi( arg2 );
if (amount < 1 || amount > 4000)
{
send_to_char("Please enter a value between 1 and 4000.\n\r",ch);
return;
}
}
else amount = 100000;
for (urin = 0; urin < amount ; urin++)
{
if (ch->exp >= UMAX((ch->max_hit + 1), 1) && ch->max_hit < statcap)
{
ch->max_hit++;
ch->exp -= UMAX(ch->max_hit, 1);
urin_counter++;
}
}
if (urin_counter==0)
send_to_char( "You need more exp to gain any hps.\n\r", ch );
else if (urin_counter==1)
send_to_char( "You gain 1 hp.\n\r", ch );
else
{
sprintf( buf, "You gain %d hps.\n\r", urin_counter );
send_to_char( buf, ch );
}
return;
}
if (!str_cmp(arg1,"move"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
int statcap = UMIN(300000, 250000 + 10000 * ch->pStatus);
if (ch->max_move >= statcap)
{
send_to_char("You've reached the statcap.\n\r",ch);
return;
}
if (!is_number(arg2) && strcmp(arg2,"all"))
{
send_to_char("Please enter a numeric value or use 'all'.\n\r",ch);
return;
}
if (is_number(arg2))
{
amount = atoi( arg2 );
if (amount < 1 || amount > 4000)
{
send_to_char("Please enter a value between 1 and 4000.\n\r",ch);
return;
}
}
else amount = 100000;
for (urin = 0; urin < amount ; urin++)
{
if (ch->exp >= UMAX((ch->max_move + 1), 1) && ch->max_move < statcap)
{
ch->max_move++;
ch->exp -= UMAX(1, ch->max_move);
urin_counter++;
}
}
if (urin_counter==0)
send_to_char( "You need more exp to gain more move.\n\r", ch );
else if (urin_counter==1)
send_to_char( "You gain 1 move.\n\r", ch );
else
{
sprintf( buf, "You gain %d move.\n\r", urin_counter );
send_to_char( buf, ch );
}
return;
}
if (!str_cmp(arg1,"mana"))
{
int amount = 0;
int urin = 0;
int urin_counter = 0;
int statcap = UMIN(300000, 250000 + 10000 * ch->pStatus);
if (ch->max_mana >= statcap)
{
send_to_char("You've reached the statcap.\n\r",ch);
return;
}
if (!is_number(arg2) && strcmp(arg2,"all"))
{
send_to_char("Please enter a numeric value or use 'all'.\n\r",ch);
return;
}
if (is_number(arg2))
{
amount = atoi( arg2 );
if (amount < 1 || amount > 4000)
{
send_to_char("Please enter a value between 1 and 4000.\n\r",ch);
return;
}
}
else amount = 100000;
for (urin = 0; urin < amount ; urin++)
{
if (ch->exp >= UMAX((ch->max_mana + 1), 1) && ch->max_mana < statcap)
{
ch->max_mana++;
ch->exp -= UMAX(ch->max_mana, 1);
urin_counter++;
}
}
if (urin_counter==0)
send_to_char( "You need more exp to gain any mana.\n\r", ch );
else if (urin_counter==1)
send_to_char( "You gain 1 mana.\n\r", ch );
else
{
sprintf( buf, "You gain %d mana.\n\r", urin_counter );
send_to_char( buf, ch );
}
return;
}
if (!str_cmp(arg1,"slash") || !str_cmp(arg1,"stab") || !str_cmp(arg1,"smash") || !str_cmp(arg1,"beast") || !str_cmp(arg1,"grab") || !str_cmp(arg1,"charm") || !str_cmp(arg1,"heat")|| !str_cmp(arg1,"cold") || !str_cmp(arg1,"lightning") || !str_cmp(arg1,"acid") || !str_cmp(arg1,"drain") || !str_cmp(arg1,"voodoo") || !str_cmp(arg1,"hurl")|| !str_cmp(arg1,"backstab") || !str_cmp(arg1,"kick") || !str_cmp(arg1,"disarm")|| !str_cmp(arg1,"steal"))
{
int immune_counter = 0;
if (IS_IMMUNE(ch,IMM_SLASH))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_STAB))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_SMASH))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_ANIMAL))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_MISC))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_CHARM))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_HEAT))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_COLD))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_LIGHTNING))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_ACID))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_DRAIN))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_VOODOO))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_HURL))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_BACKSTAB))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_DISARM))
immune_counter+=1;
if (IS_IMMUNE(ch,IMM_STEAL))
immune_counter+=1;
/*if (immune_counter > 10)
{
send_to_char("You already have 10 immunities/resistances.\n\r", ch);
send_to_char("Use relearn to remove an immunity/resistance.\n\r", ch);
return;
}*/
}
if ( IS_NPC(ch) )
return;
if ( arg1[0] == '\0' )
{
sprintf( buf, "You have %d experience points.\n\r", ch->exp );
send_to_char( buf, ch );
sprintf(arg1,"foo");
}
if (!str_cmp(arg1,"str") ) is_ok = TRUE;
else if (!str_cmp(arg1,"int") ) is_ok = TRUE;
else if (!str_cmp(arg1,"wis") ) is_ok = TRUE;
else if (!str_cmp(arg1,"dex") ) is_ok = TRUE;
else if (!str_cmp(arg1,"con") ) is_ok = TRUE;
else if (!str_cmp(arg1,"hp") ) is_ok = TRUE;
else if (!str_cmp(arg1,"mana") ) is_ok = TRUE;
else if (!str_cmp(arg1,"move") ) is_ok = TRUE;
else if (!str_cmp(arg1,"slash") || !str_cmp(arg1,"smash") ||
!str_cmp(arg1,"beast") || !str_cmp(arg1,"grab") ||
!str_cmp(arg1,"heat") || !str_cmp(arg1,"cold") || !str_cmp(arg1,"lightning") ||
!str_cmp(arg1,"acid") || !str_cmp(arg1,"drain") || !str_cmp(arg1,"hurl") ||
!str_cmp(arg1,"backstab") || !str_cmp(arg1,"kick") || !str_cmp(arg1,"disarm") ||
!str_cmp(arg1,"steal") || !str_cmp(arg1,"stab")) is_ok = TRUE;
else if (!str_cmp(arg1,"sunlight") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)))
is_ok = TRUE;
else if (!str_cmp(arg1,"ancilla") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
(ch->pcdata->rank == AGE_NEONATE))
is_ok = TRUE;
else if (!str_cmp(arg1,"ancilla") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
(ch->pcdata->rank == AGE_CHILDE))
is_ok = TRUE;
else if (!str_cmp(arg1,"silver") && (IS_CLASS(ch,CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN)
|| IS_CLASS(ch, CLASS_GAIA_WOLF) || IS_CLASS(ch, CLASS_STALKER)))
is_ok = TRUE;
else if (!str_cmp(arg1,"gnosis") && (IS_CLASS(ch,CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN)
|| IS_CLASS(ch, CLASS_GAIA_WOLF) || IS_CLASS(ch, CLASS_STALKER)))
is_ok = TRUE;
else if (!str_cmp(arg1,"control") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE))
&& ch->beast > 0 )
is_ok = TRUE;
else if (!str_cmp(arg1,"elder") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
(ch->pcdata->rank == AGE_ANCILLA))
is_ok = TRUE;
else if (!str_cmp(arg1,"methuselah") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
(ch->pcdata->rank == AGE_ELDER))
is_ok = TRUE;
else if (!str_cmp(arg1,"lamagra") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
(ch->pcdata->rank == AGE_METHUSELAH))
is_ok = TRUE;
else if (!str_cmp(arg1,"trueblood") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
(ch->pcdata->rank == AGE_LA_MAGRA))
is_ok = TRUE;
else if (!str_cmp(arg1,"magic") && (IS_CLASS(ch, CLASS_DROW) || IS_CLASS(ch, CLASS_BLACK_ASSASSIN)
|| IS_CLASS(ch, CLASS_STALKER) || IS_CLASS(ch, CLASS_SHADOWBORN)))
is_ok = TRUE;
for (loop = 1; loop < MAX_DISCIPLINES; loop++)
{
if ( !str_prefix(arg1, discipline[loop])
&& ch->power[loop] > -1 && str_cmp(arg1, "con") )
{
if (!IS_CREATOR(ch))
{
if (ch->pcdata->disc_research == -1)
{
stc("You haven't started researching a discipline yet.\n\r", ch);
return;
}
if (ch->pcdata->disc_points != 999)
{
stc("You haven't finished researching the discipline yet.\n\r", ch);
return;
}
if (loop != ch->pcdata->disc_research)
{
stc("You have not researched that discipline.\n\r", ch);
return;
}
}
ch->power[loop]+=1;
ch->pcdata->disc_research = -1;
ch->pcdata->disc_points = 0;
if (loop == DISC_DAEM_GELU)
{
if (ch->power[DISC_DAEM_GELU] == 5)
stc("Your skin takes on an icy hardness.\n\r",ch);
}
/* DAEMONIC ATTACK LEVELS 1 to 10 */
if (loop == DISC_DAEM_ATTA)
{
pow = ch->power[DISC_DAEM_ATTA];
if (pow == 2)
{
SET_BIT(ch->pcdata->stats[UNI_AFF], VAM_CLAWS);
send_to_char("You grow a pair of wicked claws.\n\r", ch);
act("$n grows a pair of wicked claws.\n\r", ch, NULL, NULL, TO_ROOM);
}
if (pow == 3)
{
SET_BIT(ch->pcdata->stats[UNI_AFF], VAM_TAIL);
send_to_char("Your spine extends into a long tail.\n\r", ch);
act("$n's spine extends into a long tail.\n\r", ch, NULL, NULL, TO_ROOM);
}
if (pow == 4)
{
horn(ch);
}
if (pow == 5)
{
SET_BIT(ch->pcdata->stats[UNI_GEN], VAM_WINGS);
send_to_char("A pair of leathery wings grow out of your back.\n\r", ch);
act("A pair of leathery wings grow out of $n's back.\n\r", ch, NULL, NULL, TO_ROOM);
}
}
send_to_char("Your mastery of ",ch);
send_to_char(discipline[loop],ch);
send_to_char(" increases.\n\r",ch);
return;
}
}
cost = 200;
immcost = count_imms(ch);
belt1 = 5000000;
belt2 = 10000000;
belt3 = 15000000;
belt4 = 20000000;
belt5 = 25000000;
belt6 = 30000000;
belt7 = 35000000;
belt8 = 40000000;
belt9 = 45000000;
belt10 = 50000000;
primal = (1+ch->practice)*500;
magic = (1+ch->pcdata->stats[DROW_MAGIC])*100;
silver = (1+ch->siltol)*2500;
gnosis = ( 1 + ch->gnosis[GMAXIMUM] ) * 250000;
if ( ch->beast > 25 )
beast = 5;
else if ( ch->beast > 15 )
beast = 10;
else if ( ch->beast > 10 )
beast = 15;
else if ( ch->beast > 2 )
beast = 20;
else
beast = 25;
ancilla =1500000;
elder = 7500000;
methuselah = 15000000;
lamagra = 30000000;
trueblood = 60000000;
if ( !str_cmp( arg1, "str" ) )
{
int cost;
pOutput = "strength";
cost = figure_stat_cost( ch->pcdata->perm_str );
if(ch->pcdata->perm_str >= permstat)
{
send_to_char("Your all maxxed out there\n\r", ch);
return;
}
if( cost > ch->practice )
{
ch_printf(ch,"It costs %d primal to raise your %s by one.\n\r",cost,pOutput );
return;
}
ch->pcdata->perm_str++;
ch->practice -= cost;
ch_printf( ch, "You have raised your %s.\n\r", pOutput );
return;
}
if ( !str_cmp( arg1, "int" ) )
{
int cost;
pOutput = "intelligence";
cost = figure_stat_cost( ch->pcdata->perm_int );
if(ch->pcdata->perm_int >= permstat)
{
send_to_char("Your all maxxed out there\n\r", ch);
return;
}
if( cost > ch->practice )
{
ch_printf(ch,"It costs %d primal to raise your %s by one.\n\r",cost,pOutput );
return;
}
ch->pcdata->perm_int ++;
ch->practice -= cost;
ch_printf( ch, "You have raised your %s.\n\r", pOutput );
return;
}
if ( !str_cmp( arg1, "wis" ) )
{
int cost;
pOutput = "wisdom";
cost = figure_stat_cost( ch->pcdata->perm_wis );
if(ch->pcdata->perm_wis >= permstat)
{
send_to_char("Your all maxxed out there\n\r", ch);
return;
}
if( cost > ch->practice )
{
ch_printf(ch,"It costs %d primal to raise your %s by one.\n\r",cost,pOutput );
return;
}
ch->pcdata->perm_wis ++;
ch->practice -= cost;
ch_printf( ch, "You have raised your %s.\n\r", pOutput );
return;
}
if ( !str_cmp( arg1, "dex" ) )
{
int cost;
pOutput = "dexterity";
cost = figure_stat_cost( ch->pcdata->perm_dex );
if(ch->pcdata->perm_dex >= permstat)
{
send_to_char("Your all maxxed out there\n\r", ch);
return;
}
if( cost > ch->practice )
{
ch_printf(ch,"It costs %d primal to raise your %s by one.\n\r",cost,pOutput );
return;
}
ch->pcdata->perm_dex ++;
ch->practice -= cost;
ch_printf( ch, "You have raised your %s.\n\r", pOutput );
return;
}
if ( !str_cmp( arg1, "con" ) )
{
int cost;
pOutput = "constitution";
cost = figure_stat_cost( ch->pcdata->perm_con );
if(ch->pcdata->perm_con >= permstat)
{
send_to_char("Your all maxxed out there\n\r", ch);
return;
}
if( cost > ch->practice )
{
ch_printf(ch,"It costs %d primal to raise your %s by one.\n\r",cost,pOutput );
return;
}
ch->pcdata->perm_con ++;
ch->practice -= cost;
ch_printf( ch, "You have raised your %s.\n\r", pOutput );
return;
}
if ( !str_cmp( arg1, "str" ) )
{
pAbility = &ch->pcdata->perm_str;
pOutput = "strength";
}
else if ( !str_cmp( arg1, "int" ) )
{
pAbility = &ch->pcdata->perm_int;
pOutput = "intelligence";
}
else if ( !str_cmp( arg1, "wis" ) )
{
pAbility = &ch->pcdata->perm_wis;
pOutput = "wisdom";
}
else if ( !str_cmp( arg1, "dex" ) )
{
pAbility = &ch->pcdata->perm_dex;
pOutput = "dexterity";
}
else if ( !str_cmp( arg1, "con" ) )
{
pAbility = &ch->pcdata->perm_con;
pOutput = "constitution";
}
else if ( !str_cmp( arg1, "avatar") &&
(ch->level == 2))
{
if( ch->max_hit < 2000)
{
stc( "You need 2000 hp to train avatar.\n\r",ch);
return;
}
do_clearstats2(ch,"");
if( ch->max_hit < 2000)
{
stc( "You need 2000 hp to train avatar.\n\r",ch);
return;
}
ch->level = 3;
do_restore(ch,"self");
if (!ragnarok) ch->pcdata->safe_counter = 3;
else ch->pcdata->safe_counter = 3;
act( "You become an avatar!", ch, NULL, NULL, TO_CHAR );
if (IS_SET(ch->pcdata->jflags, JFLAG_SETAVATAR)) avatar_message(ch);
else
{
sprintf( buf, "%s has become an avatar!",ch->pcdata->switchname );
avatar_info(buf);
}
if (!IS_NPC(ch) && IS_VAMPAFF(ch, VAM_MORTAL))
do_mortalvamp(ch,"");
return;
}
else if (!str_cmp(arg1, "magic") && (IS_CLASS(ch, CLASS_DROW) || IS_CLASS(ch, CLASS_BLACK_ASSASSIN)
|| IS_CLASS(ch, CLASS_STALKER) || IS_CLASS(ch, CLASS_SHADOWBORN)))
{
sh_int quiet_pointer=ch->pcdata->stats[DROW_MAGIC];
cost = magic;
pAbility = &quiet_pointer;
pOutput = "drow magic resistance";
}
else if ( !str_cmp( arg1, "silver") && (IS_CLASS(ch,CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN)
|| IS_CLASS(ch, CLASS_GAIA_WOLF) || IS_CLASS(ch, CLASS_STALKER)))
{
sh_int quiet_pointer=ch->siltol; /* dirrent type of int*/
cost = silver;
pAbility = &quiet_pointer;
pOutput = "tolerance to silver";
}
else if ( !str_cmp( arg1, "gnosis") && (IS_CLASS(ch,CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN)
|| IS_CLASS(ch, CLASS_GAIA_WOLF) || IS_CLASS(ch, CLASS_STALKER)))
{
sh_int quiet_pointer = ch->gnosis[GMAXIMUM];
cost = gnosis;
pAbility = &quiet_pointer;
pOutput = "gnosis points";
}
else if ( !str_cmp( arg1, "control") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)))
{
sh_int quiet_pointer = ch->beast;
cost = beast;
pAbility = &quiet_pointer;
pOutput = "control over your beast";
}
else if ( !str_cmp( arg1, "ancilla") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
((ch->pcdata->rank ==AGE_NEONATE) || (ch->pcdata->rank == AGE_CHILDE)))
{
if (ch->exp < ancilla)
{
send_to_char( "You need 1500000 exp to become ancilla!\n\r",ch);
return;
}
ch->exp -= 1500000;
ch->pcdata->rank = AGE_ANCILLA;
sprintf(buf,"%s is now an Ancilla!", ch->name);
do_info(ch,buf);
send_to_char( "You are now an Ancilla.\n\r",ch);
return;
}
else if ( !str_cmp( arg1, "elder") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) &&
(ch->pcdata->rank == AGE_ANCILLA))
{
if (ch->exp < elder)
{
send_to_char("You need 7500000 exp to become an elder.\n\r",ch);
return;
}
ch->exp -= 7500000;
ch->pcdata->rank = AGE_ELDER;
sprintf(buf,"%s is now an Elder!", ch->name);
do_info(ch,buf);
send_to_char( "You are now an Elder!\n\r",ch);
return;
}
else if ( !str_cmp( arg1, "methuselah") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) && (ch->pcdata->rank == AGE_ELDER))
{
if (ch->exp < methuselah)
{
send_to_char( "You need 15000000 exp to become Methuselah!\n\r",ch);
return;
}
ch->exp -= 15000000;
ch->pcdata->rank = AGE_METHUSELAH;
sprintf(buf,"%s is now a Methuselah!", ch->name);
do_info(ch, buf);
send_to_char( "You are now Methuselah!\n\r",ch);
return;
}
else if ( !str_cmp( arg1, "lamagra") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE))
&& (ch->pcdata->rank == AGE_METHUSELAH))
{
if (ch->exp < lamagra)
{
send_to_char( "You need 30000000 exp to become La Magra!\n\r",ch);
return;
}
ch->exp -= 30000000;
ch->pcdata->rank = AGE_LA_MAGRA;
sprintf(buf,"%s is now a La Magra!", ch->name);
do_info(ch, buf);
send_to_char( "You are now La Magra!\n\r",ch);
return;
}
else if ( !str_cmp( arg1, "trueblood") && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) && (ch->pcdata->rank == AGE_LA_MAGRA))
{
if (ch->exp < trueblood)
{
send_to_char( "You need 60000000 exp to become TrueBlood!\n\r",ch);
return;
}
ch->exp -= 60000000;
ch->pcdata->rank = AGE_TRUEBLOOD;
sprintf(buf,"%s is now a TrueBlood!", ch->name);
do_info(ch, buf);
send_to_char( "You are now TrueBlood!\n\r",ch);
return;
}
else if ( !str_cmp( arg1, "sunlight") && !IS_IMMUNE(ch,IMM_SUNLIGHT)
&& (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)))
{
if (ch->exp < 1000000)
{
send_to_char("You dont have enough experience.\n\r",ch);
return;
}
ch->exp = ch->exp - 1000000;
SET_BIT(ch->immune, IMM_SUNLIGHT);
send_to_char("You are now immune to sunlight.\n\r",ch);
return;
}
else if ( !str_cmp( arg1, "slash") && !IS_IMMUNE(ch,IMM_SLASH) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_SLASH);
send_to_char( "You are now more resistant to slashing and slicing weapons.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "stab") && !IS_IMMUNE(ch,IMM_STAB) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_STAB);
send_to_char( "You are now more resistant to stabbing and piercing weapons.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "smash") && !IS_IMMUNE(ch,IMM_SMASH) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_SMASH);
send_to_char( "You are now more resistant to blasting, pounding and crushing weapons.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "beast") && !IS_IMMUNE(ch,IMM_ANIMAL) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_ANIMAL);
send_to_char( "You are now more resistant to claw and bite attacks.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "grab") && !IS_IMMUNE(ch,IMM_MISC) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_MISC);
send_to_char( "You are now more resistant to grepping, sucking and whipping weapons.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "charm") && !IS_IMMUNE(ch,IMM_CHARM) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_CHARM);
send_to_char( "You are now immune to charm spells.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "heat") && !IS_IMMUNE(ch,IMM_HEAT) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_HEAT);
send_to_char( "You are now immune to heat and fire spells.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "cold") && !IS_IMMUNE(ch,IMM_COLD) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_COLD);
send_to_char( "You are now immune to cold spells.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "lightning") && !IS_IMMUNE(ch,IMM_LIGHTNING) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_LIGHTNING);
send_to_char( "You are now immune to lightning and electrical spells.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "acid") && !IS_IMMUNE(ch,IMM_ACID) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_ACID);
send_to_char( "You are now immune to acid spells.\n\r", ch );
return;
}
/*
else if ( !str_cmp( arg1, "sleep") && !IS_IMMUNE(ch,IMM_SLEEP) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_SLEEP);
send_to_char( "You are now immune to the sleep spell.\n\r", ch );
return;
}
*/
else if ( !str_cmp( arg1, "drain") && !IS_IMMUNE(ch,IMM_DRAIN) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_DRAIN);
send_to_char( "You are now immune to the energy drain spell.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "voodoo") && !IS_IMMUNE(ch,IMM_VOODOO) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_VOODOO);
send_to_char( "You are now immune to voodoo magic.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "hurl") && !IS_IMMUNE(ch,IMM_HURL) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_HURL);
send_to_char( "You are now immune to being hurled.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "backstab") && !IS_IMMUNE(ch,IMM_BACKSTAB) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_BACKSTAB);
send_to_char( "You are now immune to being backstabbed.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "kick") && !IS_IMMUNE(ch,IMM_KICK) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_KICK);
send_to_char( "You are now immune to being kicked.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "disarm") && !IS_IMMUNE(ch,IMM_DISARM) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_DISARM);
send_to_char( "You are now immune to being disarmed.\n\r", ch );
return;
}
else if ( !str_cmp( arg1, "steal") && !IS_IMMUNE(ch,IMM_STEAL) )
{
if (ch->exp < immcost)
{
send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
ch->exp = ch->exp - immcost;
SET_BIT(ch->immune, IMM_STEAL);
send_to_char( "You are now immune to being stolen from.\n\r", ch );
return;
}
else if ( !str_cmp(arg1, "tier"))
{ //<--Top Bracket
if (ch->tier >= 10){
send_to_char("You are on the highest tier.\n\r",ch);
return;}
if ( ch->tier == 0)
{
int TKsNeeded = 10 - (ch->tks);
int StatusNeeded = 5 - (ch->pStatus);
int HitNeeded = 25000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #Yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#YOW#7ER#YFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
//Next One below
if ( ch->tier == 1)
{
int TKsNeeded = 20 - (ch->tks);
int StatusNeeded = 10 - (ch->pStatus);
int HitNeeded = 50000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 2)
{
int TKsNeeded = 30 - (ch->tks);
int StatusNeeded = 15 - (ch->pStatus);
int HitNeeded = 75000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 3)
{
int TKsNeeded = 40 - (ch->tks);
int StatusNeeded = 20 - (ch->pStatus);
int HitNeeded = 100000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 4)
{
int TKsNeeded = 50 - (ch->tks);
int StatusNeeded = 25 - (ch->pStatus);
int HitNeeded = 125000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 5)
{
int TKsNeeded = 60 - (ch->tks);
int StatusNeeded = 30 - (ch->pStatus);
int HitNeeded = 150000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 6)
{
int TKsNeeded = 70 - (ch->tks);
int StatusNeeded = 35 - (ch->pStatus);
int HitNeeded = 200000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 7)
{
int TKsNeeded = 80 - (ch->tks);
int StatusNeeded = 40 - (ch->pStatus);
int HitNeeded = 225000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 8)
{
int TKsNeeded = 90 - (ch->tks);
int StatusNeeded = 45 - (ch->pStatus);
int HitNeeded = 275000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
if ( ch->tier == 9)
{
int TKsNeeded = 100 - (ch->tks);
int StatusNeeded = 50 - (ch->pStatus);
int HitNeeded = 300000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
if (TKsNeeded > 0 || StatusNeeded > 0 || HitNeeded > 0)
{
stc("#ROne or more of your tiering requirement have not been met#n\n\r",ch);
return;
}
else
{
ch->tier += 1;
ch->tks = 0;
stc("#CCongratulations #yon gaining a new tier!#n\n\r",ch);
sprintf(buf,"#R%s #Chas just become a more #r-#R=P#yOW#7ER#yFU#RL=#r- #cG#Cod!!#n\n\r",ch->name );
do_info(ch,buf);
return;
}
}
} //<
else
{
sprintf( buf, "#0You can train the following#w:#n\n\r" );
send_to_char( buf, ch );
send_to_char( "#0Stats#w:#W", ch );
if ( ch->pcdata->perm_str < max_stat )
{
sprintf( buf, " #WStr#B(#C%dp#B)", figure_stat_cost(ch->pcdata->perm_str) );
stc( buf, ch );
}
if ( ch->pcdata->perm_int < max_stat )
{
sprintf( buf, " #WInt#B(#C%dp#B)", figure_stat_cost(ch->pcdata->perm_int) );
stc( buf, ch );
}
if ( ch->pcdata->perm_wis < max_stat )
{
sprintf( buf, " #WWis#B(#C%dp#B)", figure_stat_cost(ch->pcdata->perm_wis) );
stc( buf, ch );
}
if ( ch->pcdata->perm_dex < max_stat )
{
sprintf( buf, " #WDex#B(#C%dp#B)", figure_stat_cost(ch->pcdata->perm_dex) );
stc( buf, ch );
}
if ( ch->pcdata->perm_con < max_stat )
{
sprintf( buf, " #WCon#B(#C%dp#B)", figure_stat_cost(ch->pcdata->perm_con) );
stc( buf, ch );
}
if ( ( ch->pcdata->perm_str >= max_stat )
&& ( ch->pcdata->perm_wis >= max_stat )
&& ( ch->pcdata->perm_int >= max_stat )
&& ( ch->pcdata->perm_dex >= max_stat )
&& ( ch->pcdata->perm_con >= max_stat ) )
send_to_char( " #cNone left to train.#n\n\r", ch );
else
send_to_char( "#n.\n\r", ch );
send_to_char("#0Spells#w:#W", ch);
if (ch->spl[0] < cmax)
{
stc(" #PPurple", ch);
}
if (ch->spl[2] < cmax)
{
stc(" #BBlue", ch);
}
if (ch->spl[1] < cmax)
{
stc(" #RRed", ch);
}
if (ch->spl[3] < cmax)
{
stc(" #GGreen", ch);
}
if (ch->spl[4] < cmax)
{
stc(" #YYellow", ch);
}
if ((ch->spl[0] >= cmax)
&& (ch->spl[1] >= cmax)
&& (ch->spl[2] >= cmax)
&& (ch->spl[3] >= cmax) && (ch->spl[4] >= cmax))
send_to_char(" #wNone left to train.#n\n\r", ch);
else
send_to_char("#n.\n\r", ch);
if ( ch->tier == 0)
{
int TKsNeeded = 10 - (ch->tks);
int StatusNeeded = 5 - (ch->pStatus);
int HitNeeded = 25000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier I: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 1)
{
int TKsNeeded = 20 - (ch->tks);
int StatusNeeded = 10 - (ch->pStatus);
int HitNeeded = 50000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier II: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 2)
{
int TKsNeeded = 30 - (ch->tks);
int StatusNeeded = 15 - (ch->pStatus);
int HitNeeded = 75000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier III: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 3)
{
int TKsNeeded = 40 - (ch->tks);
int StatusNeeded = 20 - (ch->pStatus);
int HitNeeded = 100000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier IV: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 4)
{
int TKsNeeded = 50 - (ch->tks);
int StatusNeeded = 25 - (ch->pStatus);
int HitNeeded = 125000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier V: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 5)
{
int TKsNeeded = 60 - (ch->tks);
int StatusNeeded = 30 - (ch->pStatus);
int HitNeeded = 150000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier VI: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 6)
{
int TKsNeeded = 70 - (ch->tks);
int StatusNeeded = 35 - (ch->pStatus);
int HitNeeded = 200000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier VII: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 7)
{
int TKsNeeded = 80 - (ch->tks);
int StatusNeeded = 40 - (ch->pStatus);
int HitNeeded = 225000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier VIII: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 8)
{
int TKsNeeded = 90 - (ch->tks);
int StatusNeeded = 45 - (ch->pStatus);
int HitNeeded = 275000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier IX: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->tier == 9)
{
int TKsNeeded = 100 - (ch->tks);
int StatusNeeded = 50 - (ch->pStatus);
int HitNeeded = 300000 - (ch->max_hit);
if (TKsNeeded < 0) TKsNeeded = 0;
if (StatusNeeded < 0) StatusNeeded = 0;
if (HitNeeded < 0) HitNeeded = 0;
sprintf( buf, "#RTier X: #DYou need #Y%d #Dmore Tier Kills, #Y%d #Dmore Status, and #Y%d #Dmore HP.#n\n\r",
TKsNeeded,
StatusNeeded,
HitNeeded
);
stc(buf,ch);
}
if ( ch->level == 2 && ch->max_hit > 1999)
{
sprintf( buf, "Become an avatar - free.\n\r" );
send_to_char( buf, ch );
}
if ( ch->max_hit < (150000) )
{
sprintf( buf, "Hp - %d exp per point.\n\r",(ch->max_hit+1));
send_to_char( buf, ch );
}
if ( ch->max_mana < (150000) )
{
sprintf( buf, "Mana - %d exp per point.\n\r",(ch->max_mana+1));
send_to_char( buf, ch );
}
if ( ch->max_move < (150000) )
{
sprintf( buf, "Move - %d exp per point.\n\r",(ch->max_move+1));
send_to_char( buf, ch );
}
if ( ch->practice < 999 )
{
sprintf( buf, "Primal - %d exp per point of primal energy.\n\r", (1+ch->practice)*500 );
send_to_char( buf, ch );
}
if (IS_CLASS(ch, CLASS_HEAVENS_SOLDIER) || IS_CLASS(ch, CLASS_TYPHON) || IS_CLASS(ch, CLASS_BETRAYER)
|| IS_CLASS(ch, CLASS_ANGEL) || IS_CLASS(ch, CLASS_SILVER_DRAGON))
{
if (ch->pcdata->powers[ANGEL_JUSTICE] < 5)
{
sprintf(buf,"Angel Justice : %d mill exp\n\r", (ch->pcdata->powers[ANGEL_JUSTICE]+1)*10);
send_to_char(buf,ch);
}
if (ch->pcdata->powers[ANGEL_HARMONY] < 5)
{
sprintf(buf,"Angel Harmony : %d mill exp\n\r", (ch->pcdata->powers[ANGEL_HARMONY]+1)*10);
send_to_char(buf,ch);
}
if (ch->pcdata->powers[ANGEL_PEACE] < 5)
{
sprintf(buf,"Angel Peace : %d mill exp\n\r", (ch->pcdata->powers[ANGEL_PEACE]+1)*10);
send_to_char(buf,ch);
}
if (ch->pcdata->powers[ANGEL_LOVE] < 5)
{
sprintf(buf,"Angel Love : %d mill exp\n\r", (ch->pcdata->powers[ANGEL_LOVE]+1)*10);
send_to_char(buf,ch);
}
}
if (IS_CLASS(ch, CLASS_GAIA_WOLF) || IS_CLASS(ch, CLASS_DRUID)
|| IS_CLASS(ch, CLASS_DEVA) || IS_CLASS(ch, CLASS_NECROMANCER)
|| IS_CLASS(ch, CLASS_ELEMENTAL))
{
if (ch->pcdata->powers[ELEMENTAL_FIRE] < 5)
{
sprintf(buf,"Elemental Fire : %d mill exp\n\r", (ch->pcdata->powers[ELEMENTAL_FIRE]+1)*10);
send_to_char(buf,ch);
}
if (ch->pcdata->powers[ELEMENTAL_EARTH] < 5)
{
sprintf(buf,"Elemental Earth : %d mill exp\n\r", (ch->pcdata->powers[ELEMENTAL_EARTH]+1)*10);
send_to_char(buf,ch);
}
if (ch->pcdata->powers[ELEMENTAL_AIR] < 5)
{
sprintf(buf,"Elemental Air : %d mill exp\n\r", (ch->pcdata->powers[ELEMENTAL_AIR]+1)*10);
send_to_char(buf,ch);
}
if (ch->pcdata->powers[ELEMENTAL_WATER] < 5)
{
sprintf(buf,"Elemental Water : %d mill exp\n\r", (ch->pcdata->powers[ELEMENTAL_WATER]+1)*10);
send_to_char(buf,ch);
}
}
/*if (ch->generation == 3) send_to_char ("Generation : 400 mill exp\n\r",ch);
else if (ch->generation == 4) send_to_char ("Generation : 200 mill exp\n\r",ch);
else if (ch->generation == 5) send_to_char ("Generation : 50 mill exp\n\r",ch);
else if (ch->generation > 5) send_to_char ("Generation : 10 mill exp\n\r",ch);*/
if( ch->pRank < MAX_RANKING ) {
sprintf( buf, "#7R#0ank#n - %d exp and %d quest points.\n\r", rank_xp, rank_qp );
send_to_char( buf, ch );
}
if( ch->pResist < MAX_RESIST ) {
sprintf( buf, "#7R#0esist#n - %d exp and %d quest points.\n\r", resist_xp, resist_qp );
send_to_char( buf, ch );
}
if( ch->pcdata->legend < 20 ) {
sprintf( buf, "#7L#0egend#n - %d exp and %d quest points.\n\r", legend_xp, legend_qp );
send_to_char( buf, ch );
}
if (IS_CLASS(ch, CLASS_TANARRI) || IS_CLASS(ch, CLASS_DEVA)
|| IS_CLASS(ch, CLASS_HELL_SPAWN) || IS_CLASS(ch, CLASS_BAATEZU))
{
if (ch->pcdata->tanrank < TANARRI_FODDER)
send_to_char("Status-> Fodder : 10 mill exp\n\r",ch);
else if (ch->pcdata->tanrank == TANARRI_FODDER)
send_to_char("Status-> Fighter : 20 mill exp\n\r",ch);
else if (ch->pcdata->tanrank == TANARRI_FIGHTER)
send_to_char("Status-> Elite : 40 mill exp\n\r",ch);
else if (ch->pcdata->tanrank == TANARRI_ELITE)
send_to_char("Status-> Captain : 80 mill exp\n\r",ch);
else if (ch->pcdata->tanrank == TANARRI_CAPTAIN)
send_to_char("Status-> Warlord : 160 mill exp\n\r",ch);
else if (ch->pcdata->tanrank == TANARRI_WARLORD)
send_to_char("Status-> Balor : 320 mill exp\n\r",ch);
}
if (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE))
{
if ( ch->pcdata->rank == AGE_CHILDE)
send_to_char("Age: Ancilla\n\r",ch);
else if (ch->pcdata->rank == AGE_NEONATE)
send_to_char("Age: Ancilla\n\r",ch);
else if (ch->pcdata->rank == AGE_ANCILLA)
send_to_char("Age: Elder\n\r",ch);
else if (ch->pcdata->rank == AGE_ELDER)
send_to_char("Age: Methuselah\n\r",ch);
else if (ch->pcdata->rank == AGE_METHUSELAH)
send_to_char("Age: LaMagra\n\r",ch);
else if (ch->pcdata->rank == AGE_LA_MAGRA)
send_to_char("Age: Trueblood\n\r",ch);
}
if ((IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)) && !IS_IMMUNE(ch, IMM_SUNLIGHT))
{
stc("Immunity to Sunlight - 1,000,000 experience.\n\r",ch);
}
if ( ch->siltol < 100 && IS_CLASS(ch, CLASS_WEREWOLF))
{
sprintf( buf, "Silver tolerance - %d exp per point of tolerance.\n\r", silver );
send_to_char( buf, ch );
}
if ( ch->gnosis[GMAXIMUM] < 20 && (IS_CLASS(ch, CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_STALKER)))
{
sprintf( buf, "Gnosis Points - %d exp per point of Gnosis.\n\r", gnosis );
stc( buf, ch );
}
if ( ch->beast > 0 && (IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_HELL_SPAWN)
|| IS_CLASS(ch, CLASS_VAMPIRIC_MIST) || IS_CLASS(ch, CLASS_VAMPIRE)))
{
sprintf( buf, "Beast Control- %d primal per point of Beast.\n\r", beast );
stc( buf, ch );
}
if (ch->pcdata->stats[DROW_MAGIC] < 100 && IS_CLASS(ch, CLASS_DROW) || IS_CLASS(ch, CLASS_STALKER))
{ sprintf( buf, "Magic resistance - %d drow points per point of magic.\n\r", magic );
send_to_char( buf, ch);}
sprintf( buf, "Natural resistances and immunities - %d exp each.\n\r", immcost );
send_to_char( buf, ch );
/* Weapon resistance affects */
send_to_char( "Weapon resistances:", ch );
if ( !IS_IMMUNE(ch, IMM_SLASH) ) send_to_char( " Slash", ch );
if ( !IS_IMMUNE(ch, IMM_STAB) ) send_to_char( " Stab", ch );
if ( !IS_IMMUNE(ch, IMM_SMASH) ) send_to_char( " Smash", ch );
if ( !IS_IMMUNE(ch, IMM_ANIMAL) ) send_to_char( " Beast", ch );
if ( !IS_IMMUNE(ch, IMM_MISC) ) send_to_char( " Grab", ch );
if ( IS_IMMUNE(ch, IMM_SLASH) && IS_IMMUNE(ch, IMM_STAB) &&
IS_IMMUNE(ch, IMM_SMASH) && IS_IMMUNE(ch, IMM_ANIMAL) &&
IS_IMMUNE(ch, IMM_MISC) )
send_to_char( " None left to learn.\n\r", ch );
else
send_to_char( ".\n\r", ch );
/* Spell immunity affects */
send_to_char( "Magical immunities:", ch );
if ( !IS_IMMUNE(ch, IMM_CHARM) ) send_to_char( " Charm", ch );
if ( !IS_IMMUNE(ch, IMM_HEAT) ) send_to_char( " Heat", ch );
if ( !IS_IMMUNE(ch, IMM_COLD) ) send_to_char( " Cold", ch );
if ( !IS_IMMUNE(ch, IMM_LIGHTNING) ) send_to_char( " Lightning", ch );
if ( !IS_IMMUNE(ch, IMM_ACID) ) send_to_char( " Acid", ch );
/* if ( !IS_IMMUNE(ch, IMM_SLEEP) ) send_to_char( " Sleep", ch );*/
if ( !IS_IMMUNE(ch, IMM_DRAIN) ) send_to_char( " Drain", ch );
if ( !IS_IMMUNE(ch, IMM_VOODOO) ) send_to_char( " Voodoo", ch );
if ( IS_IMMUNE(ch, IMM_HEAT) &&
IS_IMMUNE(ch, IMM_COLD) && IS_IMMUNE(ch, IMM_LIGHTNING) &&
IS_IMMUNE(ch, IMM_ACID) &&
IS_IMMUNE(ch, IMM_DRAIN) && IS_IMMUNE(ch, IMM_VOODOO) )
send_to_char( " None left to learn.\n\r", ch );
else
send_to_char( ".\n\r", ch );
/* Skill immunity affects */
send_to_char( "Skill immunities:", ch );
if ( !IS_IMMUNE(ch, IMM_HURL) ) send_to_char( " Hurl", ch );
if ( !IS_IMMUNE(ch, IMM_BACKSTAB) ) send_to_char( " Backstab", ch );
if ( !IS_IMMUNE(ch, IMM_KICK) ) send_to_char( " Kick", ch );
if ( !IS_IMMUNE(ch, IMM_DISARM) ) send_to_char( " Disarm", ch );
if ( !IS_IMMUNE(ch, IMM_STEAL) ) send_to_char( " Steal", ch );
if ( IS_IMMUNE(ch, IMM_HURL) && IS_IMMUNE(ch, IMM_BACKSTAB) &&
IS_IMMUNE(ch, IMM_KICK) && IS_IMMUNE(ch, IMM_DISARM) &&
IS_IMMUNE(ch, IMM_STEAL) )
send_to_char( " None left to learn.\n\r", ch );
else
send_to_char( ".\n\r", ch );
return;
}
if ((*pAbility >= max_stat) && (!str_cmp(arg1, "str")))
{
if (last)
act("Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR);
return;
}
if ( (*pAbility >= max_stat) && (!str_cmp( arg1, "int")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ( (*pAbility >= max_stat) && (!str_cmp( arg1, "wis")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ( (*pAbility >= max_stat) && (!str_cmp( arg1, "dex")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ( (*pAbility >= max_stat) && (!str_cmp( arg1, "con")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ( (*pAbility >= 15000) && (!str_cmp( arg1, "hp")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ( (*pAbility >= 15000) && (!str_cmp( arg1, "mana")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ( (*pAbility >= 15000) && (!str_cmp( arg1, "move")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ( (*pAbility >= 999) && (!str_cmp( arg1, "primal")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if ((*pAbility >= 100) && (!str_cmp(arg1, "magic"))) {
if (last) act("Your $T is already at a maximum.", ch, NULL, pOutput, TO_CHAR);
return;}
if ( (*pAbility >= 20 ) && (!str_cmp( arg1, "gnosis") ))
{
if (last) act( "Your $T is already at maximum.",ch,NULL,pOutput,TO_CHAR);
return;
}
if ( (*pAbility <= 0 ) && (!str_cmp( arg1, "control") ) )
{
if (last) act( "You have already mastered your beast.",ch,NULL,pOutput,TO_CHAR);
return;
}
if ( (*pAbility >= 100) && (!str_cmp( arg1, "silver")))
{
if (last) act( "Your $T is already at maximum.", ch, NULL, pOutput, TO_CHAR );
return;
}
if (!strcmp(arg1, "control"))
{
if (cost > ch->practice)
{
send_to_char("You don't have enough primal.\n\r", ch);
return;
}
else
{
ch->practice-=cost;
ch->exp+=cost;
}
}
if ( cost < 1 ) cost = 1;
if ( cost > ch->pcdata->stats[DROW_POWER] && !str_cmp(arg1, "magic"))
{ if (last) send_to_char( "You don't have enough drow power points.\n\r", ch);
return;}
else if ( cost > ch->exp )
{
if (last) send_to_char( "You don't have enough exp.\n\r", ch );
return;
}
if (!str_cmp(arg1, "magic"))
ch->pcdata->stats[DROW_POWER] -= cost;
else
ch->exp -= cost;
if (!str_cmp( arg1, "silver"))
ch->siltol += 1;
else if (!str_cmp(arg1, "gnosis"))
{
ch->gnosis[GCURRENT]++;
ch->gnosis[GMAXIMUM]++;
}
else if (!str_cmp(arg1, "control")){
ch->beast--;
if( ch->beast < 0 ) ch->beast = 0;
}
else if (!str_cmp(arg1, "magic"))
ch->pcdata->stats[DROW_MAGIC] += 1;
else if ( str_cmp(arg1, "avatar") )
{
*pAbility += 1;
}
if (last)
act( "Your $T increases!", ch, NULL, pOutput, TO_CHAR );
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 ( ( 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) && !IS_IMMORTAL(ch) )
{
send_to_char( "You cannot mount them.\n\r",ch );
return;
}
if( victim->mounted > 0 )
{
send_to_char( "You cannot mount them.\n\r",ch );
return;
}
if( IS_NPC(victim) && !IS_SET(victim->act, ACT_MOUNT) && !IS_IMMORTAL(ch) )
{
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 (!IS_NPC(ch) && 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 (IS_SET(ch->mounted,IS_RIDING))
{
if ((victim = ch->mount) == NULL)
{ ch->mounted = 0;send_to_char("You stop riding the air.\n\r",ch);return;}
}
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];
ROOM_INDEX_DATA *location;
bool found = FALSE;
if (IS_NPC(ch))
return;
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_NPC( victim))
{
send_to_char( "You cannot tie a mob up!\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 (victim->position > POS_STUNNED || victim->hit > 0)
{
send_to_char( "You can only tie up a defenceless person.\n\r", ch );
return;
}
if (victim->in_room != NULL)
{
if (IS_SET(victim->in_room->room_flags, ROOM_ARENA))
{
sprintf(buf,"#C%s #yhas been vanquished from the #Rarena#y by #C%s#n",victim->name,ch->name);
do_info(ch,buf);
victim->pcdata->alosses++;
if ((location = get_room_index(ROOM_VNUM_ALTAR)) == NULL)
return;
char_from_room(victim);
char_to_room(victim, location);
victim->fight_timer = 0;
do_restore(victim, "self");
do_call(victim, "all");
/* Check for winner */
found = FALSE;
for (victim=char_list;victim!=NULL;victim=victim->next)
{
if (IS_NPC(victim)) continue;
if (victim->in_room != NULL &&
victim->in_room->area == ch->in_room->area &&
victim->pcdata->chobj == NULL && victim != ch)
{
found = TRUE;
}
}
if (!found)
{
sprintf(buf,"#C%s #yemerges victorious from the #Rarena#n",ch->name);
ch->pcdata->awins++;
do_info(ch,buf);
if ((location = get_room_index(ROOM_VNUM_ALTAR)) == NULL) return;
char_from_room(ch);
char_to_room(ch, location);
ch->fight_timer = 0;
do_restore(ch, "self");
win_prize(ch);
pulse_arena = PULSE_ARENA;
// if (tourney) update_bets(ch, NULL, TRUE);
}
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);
if (IS_SET(ch->pcdata->jflags, JFLAG_SETTIE))
tie_message(ch, victim);
else
{
sprintf(buf,"#P%s #Yhas been tied up by #R%s#n",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 );
}
void do_track( CHAR_DATA *ch, char *argument )
{
bool found = FALSE;
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);
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);
return;
}
void do_hunt( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
if (strlen(ch->hunting) > 1)
{
free_string(ch->hunting);
ch->hunting = str_dup( "" );
send_to_char( "You stop hunting your prey.\n\r", ch );
}
else send_to_char( "Who do you wish to hunt?\n\r", ch );
return;
}
if (!str_cmp(arg,ch->name))
{
send_to_char("How can you hunt yourself?\n\r",ch);
return;
}
free_string(ch->hunting);
ch->hunting = str_dup(arg);
send_to_char( "Ok.\n\r", ch );
return;
}
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 add_tracks( CHAR_DATA *ch, int direction )
{
int loop;
if (IS_NPC(ch)) return;
if (CHAR_IN_WILDERNESS(ch) ) return;
if ((IS_CLASS(ch, CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_UNDEAD_LYCAN) || IS_CLASS(ch, CLASS_STALKER)) && ch->power[DISC_WERE_LYNX] > 0)
return;
if (IS_ITEMAFF(ch, ITEMA_STALKER)) return;
for ( loop = 0; loop <= 4; loop++ )
{
if (ch->in_room->track[loop] != NULL && !str_cmp(ch->in_room->track[loop],ch->name))
{
free_string(ch->in_room->track[loop]);
ch->in_room->track[loop] = str_dup("");
}
}
if (ch->in_room->track[0] != NULL && strlen(ch->in_room->track[0]) < 2)
{
free_string(ch->in_room->track[0]);
ch->in_room->track[0] = str_dup(ch->pcdata->switchname);
ch->in_room->track_dir[0] = direction;
}
else if (ch->in_room->track[1] != NULL && strlen(ch->in_room->track[1]) < 2)
{
free_string(ch->in_room->track[1]);
ch->in_room->track[1] = str_dup(ch->pcdata->switchname);
ch->in_room->track_dir[1] = direction;
}
else if (ch->in_room->track[2] != NULL && strlen(ch->in_room->track[2]) < 2)
{
free_string(ch->in_room->track[2]);
ch->in_room->track[2] = str_dup(ch->pcdata->switchname);
ch->in_room->track_dir[2] = direction;
}
else if (ch->in_room->track[3] != NULL && strlen(ch->in_room->track[3]) < 2)
{
free_string(ch->in_room->track[3]);
ch->in_room->track[3] = str_dup(ch->pcdata->switchname);
ch->in_room->track_dir[3] = direction;
}
else if (ch->in_room->track[4] != NULL && strlen(ch->in_room->track[4]) < 2)
{
free_string(ch->in_room->track[4]);
ch->in_room->track[4] = str_dup(ch->pcdata->switchname);
ch->in_room->track_dir[4] = direction;
}
else
{
free_string(ch->in_room->track[0]);
ch->in_room->track[0] = str_dup(ch->in_room->track[1]);
ch->in_room->track_dir[0] = ch->in_room->track_dir[1];
free_string(ch->in_room->track[1]);
ch->in_room->track[1] = str_dup(ch->in_room->track[2]);
ch->in_room->track_dir[1] = ch->in_room->track_dir[2];
free_string(ch->in_room->track[2]);
ch->in_room->track[2] = str_dup(ch->in_room->track[3]);
ch->in_room->track_dir[2] = ch->in_room->track_dir[3];
free_string(ch->in_room->track[3]);
ch->in_room->track[3] = str_dup(ch->in_room->track[4]);
ch->in_room->track_dir[3] = ch->in_room->track_dir[4];
free_string(ch->in_room->track[4]);
ch->in_room->track[4] = str_dup(ch->name);
ch->in_room->track_dir[4] = direction;
}
return;
}
bool check_track( CHAR_DATA *ch, int direction )
{
CHAR_DATA *victim;
char buf [MAX_INPUT_LENGTH];
char vict [MAX_INPUT_LENGTH];
int door;
if (ch->hunting != NULL) strcpy(vict,ch->hunting);
else return FALSE;
if (!str_cmp(ch->hunting,vict))
{
if ( ( victim = get_char_room( ch, vict ) ) != NULL )
{
act("You have found $N!",ch,NULL,victim,TO_CHAR);
free_string(ch->hunting);
ch->hunting = str_dup( "" );
return TRUE;
}
}
if (strlen(ch->in_room->track[direction]) < 2) return FALSE;
if (!str_cmp(ch->in_room->track[direction],ch->name)) return FALSE;
if (strlen(ch->hunting) > 1 && str_cmp(ch->in_room->track[direction],ch->hunting)) 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 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_CLASS(ch, CLASS_DEMON) && !IS_CLASS(ch, CLASS_HELLS_SOLDIER) &&
!IS_CLASS(ch, CLASS_SHADOW_DRAGON) && !IS_CLASS(ch, CLASS_SHADOW_FIEND))
{
stc("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" )) 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_CLASS(ch, CLASS_PALADIN))
{
do_paladinleap(ch,arg);
return;
}
if (!IS_CLASS(ch,CLASS_DEMON) && !IS_CLASS(ch, CLASS_HELLS_SOLDIER) &&
!IS_CLASS(ch, CLASS_SHADOW_DRAGON) && !IS_CLASS(ch, CLASS_SHADOW_FIEND))
{
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 && 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;
}
void drow_hate( CHAR_DATA *ch)
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
if (IS_NPC(ch)) return;
if ((!IS_CLASS(ch, CLASS_DROW) && !IS_CLASS(ch, CLASS_BLACK_ASSASSIN)
&& !IS_CLASS(ch, CLASS_STALKER) && !IS_CLASS(ch, CLASS_SHADOWBORN)) || !IS_SET(ch->newbits, NEW_DROWHATE)) return;
if (number_percent() < 2) {
for (vch = char_list; vch != NULL; vch = vch_next)
{
vch_next = vch->next;
if ( ch == vch) continue;
if ( vch->in_room == NULL) continue;
if ( vch->in_room == ch->in_room) {
send_to_char("You scream out in hatred and attack!\n\r", ch );
act("$n screams out in hatred and attacks!",ch,NULL,vch,TO_ROOM);
do_kill(ch,vch->name);
return;}
}
}
return;
}
int figure_stat_cost( const int mStat )
{
int stat = mStat - 13;
if( stat < 10 ) return 10;
else if( stat < 20 ) return 30;
else if( stat < 30 ) return 50;
else if( stat < 40 ) return 70;
else if( stat < 50 ) return 90;
else if( stat < 60 ) return 120;
else if( stat < 70 ) return 150;
else if( stat < 90 ) return 170;
else return 200;
return 200;
}