/****************************************************************************
* [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame | \\._.// *
* -----------------------------------------------------------| (0...0) *
* SMAUG 1.0 (C) 1994, 1995, 1996 by Derek Snider | ).:.( *
* -----------------------------------------------------------| {o o} *
* SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus, | / ' ' \ *
* Scryn, Rennard, Swordbearer, Gorog, Grishnakh and Tricops |~'~.VxvxV.~'~*
* ------------------------------------------------------------------------ *
* Merc 2.1 Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* ------------------------------------------------------------------------ *
* Player skills module *
****************************************************************************/
#include <sys/types.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "mud.h"
char * const spell_flag[] =
{ "water", "earth", "air", "astral", "area", "distant", "reverse",
"save_half_dam", "save_negates", "accumulative", "recastable", "noscribe",
"nobrew", "group", "object", "character", "secretskill", "pksensitive" };
char * const spell_saves[] =
{ "none", "poison_death", "wands", "para_petri", "breath", "spell_staff" };
char * const spell_damage[] =
{ "none", "fire", "cold", "electricity", "energy", "acid", "poison", "drain" };
char * const spell_action[] =
{ "none", "create", "destroy", "resist", "suscept", "divinate", "obscure",
"change" };
char * const spell_power[] =
{ "none", "minor", "greater", "major" };
char * const spell_class[] =
{ "none", "lunar", "solar", "travel", "summon", "life", "death", "illusion" };
char * const target_type[] =
{ "ignore", "offensive", "defensive", "self", "objinv" };
void show_char_to_char( CHAR_DATA *list, CHAR_DATA *ch );
void show_list_to_char( OBJ_DATA *list, CHAR_DATA *ch, bool fShort,
bool fShowN );
int ris_save( CHAR_DATA *ch, int chance, int ris );
bool check_illegal_psteal( CHAR_DATA *ch, CHAR_DATA *victim );
/* from magic.c */
void failed_casting( struct skill_type *skill, CHAR_DATA *ch,
CHAR_DATA *victim, OBJ_DATA *obj );
/*
* Dummy function
*/
void skill_notfound( CHAR_DATA *ch, char *argument )
{
record_call("<skill_notfound>");
send_to_char( "Huh?\n\r", ch );
return;
}
int get_ssave( char *name )
{
int x;
record_call("<get_ssave>");
for ( x = 0; x < sizeof(spell_saves) / sizeof(spell_saves[0]); x++ )
if ( !str_cmp( name, spell_saves[x] ) )
return x;
return -1;
}
int get_starget( char *name )
{
int x;
record_call("<get_starget>");
for ( x = 0; x < sizeof(target_type) / sizeof(target_type[0]); x++ )
if ( !str_cmp( name, target_type[x] ) )
return x;
return -1;
}
int get_sflag( char *name )
{
int x;
record_call("<get_sflag>");
for ( x = 0; x < sizeof(spell_flag) / sizeof(spell_flag[0]); x++ )
if ( !str_cmp( name, spell_flag[x] ) )
return x;
return -1;
}
int get_sdamage( char *name )
{
int x;
record_call("<get_sdamage>");
for ( x = 0; x < sizeof(spell_damage) / sizeof(spell_damage[0]); x++ )
if ( !str_cmp( name, spell_damage[x] ) )
return x;
return -1;
}
int get_saction( char *name )
{
int x;
record_call("<get_sanction>");
for ( x = 0; x < sizeof(spell_action) / sizeof(spell_action[0]); x++ )
if ( !str_cmp( name, spell_action[x] ) )
return x;
return -1;
}
int get_spower( char *name )
{
int x;
record_call("<get_spower>");
for ( x = 0; x < sizeof(spell_power) / sizeof(spell_power[0]); x++ )
if ( !str_cmp( name, spell_power[x] ) )
return x;
return -1;
}
int get_sclass( char *name )
{
int x;
record_call("<get_sclass>");
for ( x = 0; x < sizeof(spell_class) / sizeof(spell_class[0]); x++ )
if ( !str_cmp( name, spell_class[x] ) )
return x;
return -1;
}
bool is_legal_kill(CHAR_DATA *ch, CHAR_DATA *vch)
{
record_call("<is_legal_kill>");
if ( IS_NPC(ch) || IS_NPC(vch) )
return TRUE;
if ( !IS_PKILL(ch) || !IS_PKILL(vch) )
return FALSE;
if ( ch->pcdata->clan && ch->pcdata->clan == vch->pcdata->clan )
return FALSE;
return TRUE;
}
extern char *target_name; /* from magic.c */
/*
* Perform a binary search on a section of the skill table
* Each different section of the skill table is sorted alphabetically
* Only match skills player knows -Thoric
*/
bool check_skill( CHAR_DATA *ch, char *command, char *argument )
{
int sn;
int first = gsn_first_skill;
int top = gsn_first_weapon-1;
int mana, blood;
struct timeval time_used;
record_call("<check_skill>");
/* bsearch for the skill */
for (;;)
{
sn = (first + top) >> 1;
if ( LOWER(command[0]) == LOWER(skill_table[sn]->name[0])
&& !str_prefix(command, skill_table[sn]->name)
&& (skill_table[sn]->skill_fun || skill_table[sn]->spell_fun != spell_null)
&& (IS_NPC(ch)
|| (ch->pcdata->learned[sn] > 0
&& ( CAN_USE_SK(ch, skill_table[sn]) ||
CAN_USE_RACE_SK(ch, skill_table[sn]) ))) )
break;
if (first >= top)
return FALSE;
if (strcmp( command, skill_table[sn]->name) < 1)
top = sn - 1;
else
first = sn + 1;
}
if ( !check_pos( ch, skill_table[sn]->minimum_position ) )
return TRUE;
/* Create mobs can fight. --GW */
if ( IS_NPC(ch)
&& (IS_AFFECTED( ch, AFF_CHARM ) || IS_AFFECTED( ch, AFF_POSSESS )) &&
!IS_SET(ch->act, ACT_CREATE_LIFE_MOB) )
{
send_to_char( "For some reason, you seem unable to perform that...\n\r", ch );
act( AT_GREY,"$n wanders around aimlessly.", ch, NULL, NULL, TO_ROOM );
return TRUE;
}
/* check if mana is required */
if ( skill_table[sn]->min_mana )
{
mana = IS_NPC(ch) ? 0 : UMAX(skill_table[sn]->min_mana,
100 / ( 2 + ch->level - SP_MANA(ch, skill_table[sn]) ) );
blood = UMAX(1, (mana+4) / 8); /* NPCs don't have PCDatas. -- Altrag */
if ( IS_VAMPIRE(ch) )
{
if (ch->pcdata->condition[COND_BLOODTHIRST] < blood)
{
send_to_char( "You don't have enough blood power.\n\r", ch );
return TRUE;
}
}
else
if ( !IS_NPC(ch) && ch->mana < mana )
{
send_to_char( "You don't have enough mana.\n\r", ch );
return TRUE;
}
}
else
{
mana = 0;
blood = 0;
}
/*
* Is this a real do-fun, or a really a spell?
*/
if ( !skill_table[sn]->skill_fun )
{
ch_ret retcode = rNONE;
void *vo = NULL;
CHAR_DATA *victim = NULL;
OBJ_DATA *obj = NULL;
target_name = "";
switch ( skill_table[sn]->target )
{
default:
bug( "Check_skill: bad target for sn %d.", sn );
send_to_char( "Something went wrong...\n\r", ch );
return TRUE;
case TAR_IGNORE:
vo = NULL;
if ( argument[0] == '\0' )
{
if ( (victim=who_fighting(ch)) != NULL )
target_name = victim->name;
}
else
target_name = argument;
break;
case TAR_CHAR_OFFENSIVE:
if ( argument[0] == '\0'
&& (victim=who_fighting(ch)) == NULL )
{
ch_printf( ch, "%s who?\n\r", capitalize( skill_table[sn]->name ) );
return TRUE;
}
else
if ( argument[0] != '\0'
&& (victim=get_char_room(ch, argument)) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return TRUE;
}
if ( is_safe( ch, victim ) )
return TRUE;
vo = (void *) victim;
break;
case TAR_CHAR_DEFENSIVE:
if ( argument[0] != '\0'
&& (victim=get_char_room(ch, argument)) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return TRUE;
}
if ( !victim )
victim = ch;
vo = (void *) victim;
break;
case TAR_CHAR_SELF:
vo = (void *) ch;
break;
case TAR_OBJ_INV:
if ( (obj=get_obj_carry(ch, argument)) == NULL )
{
send_to_char( "You can't find that.\n\r", ch );
return TRUE;
}
vo = (void *) obj;
break;
}
/* waitstate */
WAIT_STATE( ch, skill_table[sn]->beats );
/* check for failure */
if ( (number_percent( ) + skill_table[sn]->difficulty * 5)
> (IS_NPC(ch) ? 75 : ch->pcdata->learned[sn]) )
{
failed_casting( skill_table[sn], ch, vo, obj );
learn_from_failure( ch, sn );
if ( mana )
{
if ( IS_VAMPIRE(ch) )
gain_condition( ch, COND_BLOODTHIRST, - blood/2 );
else
ch->mana -= mana/2;
}
return TRUE;
}
if ( mana )
{
if ( IS_VAMPIRE(ch) )
gain_condition( ch, COND_BLOODTHIRST, - blood );
else
ch->mana -= mana;
}
start_timer(&time_used);
retcode = (*skill_table[sn]->spell_fun) ( sn, ch->level, ch, vo );
end_timer(&time_used);
update_userec(&time_used, &skill_table[sn]->userec);
if ( retcode == rCHAR_DIED || retcode == rERROR )
return TRUE;
if ( char_died(ch) )
return TRUE;
if ( retcode == rSPELL_FAILED )
{
learn_from_failure( ch, sn );
retcode = rNONE;
}
else
learn_from_success( ch, sn );
if ( skill_table[sn]->target == TAR_CHAR_OFFENSIVE
&& victim != ch
&& !char_died(victim) )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
for ( vch = ch->in_room->first_person; vch; vch = vch_next )
{
vch_next = vch->next_in_room;
if ( victim == vch && !victim->fighting && victim->master != ch )
{
retcode = multi_hit( victim, ch, TYPE_UNDEFINED );
break;
}
}
}
return TRUE;
}
if ( mana )
{
if ( IS_VAMPIRE(ch) )
gain_condition( ch, COND_BLOODTHIRST, - blood );
else
ch->mana -= mana;
}
if ( !IS_NPC(ch) )
{
ch->pcdata->prev_cmd = ch->pcdata->last_cmd; /* haus, for automapping */
ch->pcdata->last_cmd = skill_table[sn]->skill_fun;
}
start_timer(&time_used);
(*skill_table[sn]->skill_fun) ( ch, argument );
end_timer(&time_used);
update_userec(&time_used, &skill_table[sn]->userec);
tail_chain( );
return TRUE;
}
/*
* Lookup a skills information
* High god command
*/
void do_slookup( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
int sn;
int iClass;
int iRace;
SKILLTYPE *skill = NULL;
one_argument( argument, arg );
record_call("<do_slookup>");
if ( arg[0] == '\0' )
{
send_to_char( "Slookup what?\n\r", ch );
return;
}
if ( !str_cmp( arg, "all" ) )
{
for ( sn = 0; sn < top_sn && skill_table[sn] && skill_table[sn]->name; sn++ )
pager_printf( ch, "Sn: %4d Slot: %4d Skill/spell: '%-20s' Damtype: %s\n\r",
sn, skill_table[sn]->slot, skill_table[sn]->name,
spell_damage[SPELL_DAMAGE( skill_table[sn] )] );
}
else
if ( !str_cmp( arg, "herbs" ) )
{
for ( sn = 0; sn < top_herb && herb_table[sn] && herb_table[sn]->name; sn++ )
pager_printf( ch, "%d) %s\n\r", sn, herb_table[sn]->name );
}
else
{
SMAUG_AFF *aff;
int cnt = 0;
if ( arg[0] == 'h' && is_number(arg+1) )
{
sn = atoi(arg+1);
if ( !IS_VALID_HERB(sn) )
{
send_to_char( "Invalid herb.\n\r", ch );
return;
}
skill = herb_table[sn];
}
else
if ( is_number(arg) )
{
sn = atoi(arg);
if ( (skill=get_skilltype(sn)) == NULL )
{
send_to_char( "Invalid sn.\n\r", ch );
return;
}
sn %= 1000;
}
else
if ( ( sn = skill_lookup( arg ) ) >= 0 )
skill = skill_table[sn];
else
if ( ( sn = herb_lookup( arg ) ) >= 0 )
skill = herb_table[sn];
else
{
send_to_char( "No such skill, spell, proficiency or tongue.\n\r", ch );
return;
}
if ( !skill )
{
send_to_char( "Not created yet.\n\r", ch );
return;
}
ch_printf( ch, "Sn: %4d Slot: %4d %s: '%-20s'\n\r",
sn, skill->slot, skill_tname[skill->type], skill->name );
if ( skill->flags )
{
int x;
ch_printf( ch, "Damtype: %s Acttype: %s Classtype: %s Powertype: %s\n\r",
spell_damage[SPELL_DAMAGE( skill )],
spell_action[SPELL_ACTION( skill )],
spell_class[SPELL_CLASS( skill )],
spell_power[SPELL_POWER( skill )] );
strcpy( buf, "Flags:" );
for ( x = 11; x < 32; x++ )
if ( SPELL_FLAG( skill, 1 << x ) )
{
strcat( buf, " " );
strcat( buf, spell_flag[x-11] );
}
strcat( buf, "\n\r" );
send_to_char( buf, ch );
}
ch_printf( ch, "Saves: %s\n\r", spell_saves[(int) skill->saves] );
if ( skill->difficulty != '\0' )
ch_printf( ch, "Difficulty: %d\n\r", (int) skill->difficulty );
ch_printf( ch, "Type: %s Target: %s Minpos: %d Mana: %d Beats: %d\n\r",
skill_tname[skill->type],
target_type[URANGE(TAR_IGNORE, skill->target, TAR_OBJ_INV)],
skill->minimum_position,
skill->min_mana,
skill->beats );
ch_printf( ch, "Flags: %d Guild: %d Code: %s\n\r",
skill->flags,
skill->guild,
skill->skill_fun ? skill_name(skill->skill_fun)
: spell_name(skill->spell_fun));
ch_printf( ch, "Dammsg: %s\n\rWearoff: %s\n",
skill->noun_damage,
skill->msg_off ? skill->msg_off : "(none set)" );
if ( skill->dice && skill->dice[0] != '\0' )
ch_printf( ch, "Dice: %s\n\r", skill->dice );
if ( skill->teachers && skill->teachers[0] != '\0' )
ch_printf( ch, "Teachers: %s\n\r", skill->teachers );
if ( skill->components && skill->components[0] != '\0' )
ch_printf( ch, "Components: %s\n\r", skill->components );
if ( skill->participants )
ch_printf( ch, "Participants: %d\n\r", (int) skill->participants );
if ( skill->userec.num_uses )
send_timer(&skill->userec, ch);
for ( aff = skill->affects; aff; aff = aff->next )
{
if ( aff == skill->affects )
send_to_char( "\n\r", ch );
sprintf( buf, "Affect %d", ++cnt );
if ( aff->location )
{
strcat( buf, " modifies " );
strcat( buf, a_types[aff->location % REVERSE_APPLY] );
strcat( buf, " by '" );
strcat( buf, aff->modifier );
if ( aff->bitvector != -1 )
strcat( buf, "' and" );
else
strcat( buf, "'" );
}
if ( aff->bitvector != -1 )
{
strcat( buf, " applies" );
strcat( buf, " " );
strcat( buf, a_flags[aff->bitvector] );
}
if ( aff->duration[0] != '\0' && aff->duration[0] != '0' )
{
strcat( buf, " for '" );
strcat( buf, aff->duration );
strcat( buf, "' rounds" );
}
if ( aff->location >= REVERSE_APPLY )
strcat( buf, " (affects caster only)" );
strcat( buf, "\n\r" );
send_to_char( buf, ch );
if ( !aff->next )
send_to_char( "\n\r", ch );
}
if ( skill->hit_char && skill->hit_char[0] != '\0' )
ch_printf( ch, "Hitchar : %s\n\r", skill->hit_char );
if ( skill->hit_vict && skill->hit_vict[0] != '\0' )
ch_printf( ch, "Hitvict : %s\n\r", skill->hit_vict );
if ( skill->hit_room && skill->hit_room[0] != '\0' )
ch_printf( ch, "Hitroom : %s\n\r", skill->hit_room );
if ( skill->miss_char && skill->miss_char[0] != '\0' )
ch_printf( ch, "Misschar : %s\n\r", skill->miss_char );
if ( skill->miss_vict && skill->miss_vict[0] != '\0' )
ch_printf( ch, "Missvict : %s\n\r", skill->miss_vict );
if ( skill->miss_room && skill->miss_room[0] != '\0' )
ch_printf( ch, "Missroom : %s\n\r", skill->miss_room );
if ( skill->die_char && skill->die_char[0] != '\0' )
ch_printf( ch, "Diechar : %s\n\r", skill->die_char );
if ( skill->die_vict && skill->die_vict[0] != '\0' )
ch_printf( ch, "Dievict : %s\n\r", skill->die_vict );
if ( skill->die_room && skill->die_room[0] != '\0' )
ch_printf( ch, "Dieroom : %s\n\r", skill->die_room );
if ( skill->imm_char && skill->imm_char[0] != '\0' )
ch_printf( ch, "Immchar : %s\n\r", skill->imm_char );
if ( skill->imm_vict && skill->imm_vict[0] != '\0' )
ch_printf( ch, "Immvict : %s\n\r", skill->imm_vict );
if ( skill->imm_room && skill->imm_room[0] != '\0' )
ch_printf( ch, "Immroom : %s\n\r", skill->imm_room );
if ( skill->type != SKILL_HERB )
{
send_to_char("\nClass Ability Assignments:\n\r",ch);
for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
{
if ( !class_table[iClass]->who_name )
break;
if ( skill->skill_level[iClass] >= 51 ||
skill->skill_level[iClass] < 1 )
continue;
strcpy( buf, class_table[iClass]->who_name );
sprintf(buf+2, ") lvl: %3d max: %2d%%",
skill->skill_level[iClass],
skill->skill_adept[iClass] );
if ( iClass % 3 == 2 )
strcat(buf, "\n\r" );
else
strcat(buf, " " );
send_to_char( buf, ch );
}
/* Race Skills Starts here! */
send_to_char("\nRace Ability Assignments:\n\r",ch);
for ( iRace = 0; iRace < MAX_RACE; iRace++ )
{
if ( !race_table[iRace]->race_name )
break;
if ( skill->race_skill_level[iRace] >= 51 ||
skill->race_skill_level[iRace] < 1 )
continue;
sprintf(buf, "%s) lvl: %3d max: %2d%%",
race_table[iRace]->race_name,
skill->race_skill_level[iRace],
skill->race_skill_adept[iRace] );
strcat(buf, "\n\r" );
send_to_char( buf, ch );
}
}
send_to_char( "\n\r", ch );
}
return;
}
/*
* Set a skill's attributes or what skills a player has.
* High god command, with support for creating skills/spells/herbs/etc
*/
void do_sset( CHAR_DATA *ch, char *argument )
{
char arg1 [MAX_INPUT_LENGTH];
char arg2 [MAX_INPUT_LENGTH];
CHAR_DATA *victim;
int value;
int sn;
bool fAll;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
record_call("<do_sset>");
if ( arg1[0] == '\0' || arg2[0] == '\0' || argument[0] == '\0' )
{
send_to_char( "Syntax: sset <victim> <skill> <value>\n\r", ch );
send_to_char( "or: sset <victim> all <value>\n\r", ch );
if ( get_trust(ch) >= LEVEL_GOD )
{
send_to_char( "or: sset save skill table\n\r", ch );
send_to_char( "or: sset save herb table\n\r", ch );
send_to_char( "or: sset create skill 'new skill'\n\r", ch );
send_to_char( "or: sset create herb 'new herb'\n\r", ch );
}
if ( get_trust(ch) >= LEVEL_GOD )
{
send_to_char( "or: sset <sn> <field> <value>\n\r", ch );
send_to_char( "\n\rField being one of:\n\r", ch );
send_to_char( " name code target minpos slot mana beats dammsg wearoff guild minlevel\n\r", ch );
send_to_char( " type damtype acttype classtype powertype flag dice value difficulty affect\n\r", ch );
send_to_char( " rmaffect level adept hit miss die imm (char/vict/room)\n\r", ch );
send_to_char( " components teachers racelevel raceadept\n\r",ch );
send_to_char( "Affect having the fields: <location> <modfifier> [duration] [bitvector]\n\r", ch );
send_to_char( "(See AFFECTTYPES for location, and AFFECTED_BY for bitvector)\n\r", ch );
}
send_to_char( "Skill being any skill or spell.\n\r", ch );
return;
}
if ( get_trust(ch) >= LEVEL_GOD
&& !str_cmp( arg1, "save" )
&& !str_cmp( argument, "table" ) )
{
if ( !str_cmp( arg2, "skill" ) )
{
send_to_char( "Saving skill table...\n\r", ch );
save_skill_table();
save_classes();
write_races();
return;
}
if ( !str_cmp( arg2, "herb" ) )
{
send_to_char( "Saving herb table...\n\r", ch );
save_herb_table();
return;
}
}
if ( get_trust(ch) >= LEVEL_GOD
&& !str_cmp( arg1, "create" )
&& (!str_cmp( arg2, "skill" ) || !str_cmp( arg2, "herb" )) )
{
struct skill_type *skill=NULL;
sh_int type = SKILL_UNKNOWN;
if ( !str_cmp( arg2, "herb" ) )
{
type = SKILL_HERB;
if ( top_herb >= MAX_HERB )
{
ch_printf( ch, "The current top herb is %d, which is the maximum. "
"To add more herbs,\n\rMAX_HERB will have to be "
"raised in mud.h, and the mud recompiled.\n\r",
top_sn );
return;
}
}
else
if ( top_sn >= MAX_SKILL )
{
ch_printf( ch, "The current top sn is %d, which is the maximum. "
"To add more skills,\n\rMAX_SKILL will have to be "
"raised in mud.h, and the mud recompiled.\n\r",
top_sn );
return;
}
CREATE( skill, struct skill_type, 1 );
if ( type == SKILL_HERB )
{
int max, x;
herb_table[top_herb++] = skill;
for ( max = x = 0; x < top_herb-1; x++ )
if ( herb_table[x] && herb_table[x]->slot > max )
max = herb_table[x]->slot;
skill->slot = max+1;
}
else
skill_table[top_sn++] = skill;
skill->name = str_dup( argument );
skill->noun_damage = str_dup( "" );
skill->msg_off = str_dup( "" );
skill->spell_fun = spell_smaug;
skill->type = type;
send_to_char( "Done.\n\r", ch );
return;
}
if ( arg1[0] == 'h' )
sn = atoi( arg1+1 );
else
sn = atoi( arg1 );
if ( get_trust(ch) >= LEVEL_GOD
&& ((arg1[0] == 'h' && is_number(arg1+1) && (sn=atoi(arg1+1))>=0)
|| (is_number(arg1) && (sn=atoi(arg1)) >= 0)) )
{
struct skill_type *skill;
if ( arg1[0] == 'h' )
{
if ( sn >= top_herb )
{
send_to_char( "Herb number out of range.\n\r", ch );
return;
}
skill = herb_table[sn];
}
else
{
if ( (skill=get_skilltype(sn)) == NULL )
{
send_to_char( "Skill number out of range.\n\r", ch );
return;
}
sn %= 1000;
}
if ( !str_cmp( arg2, "difficulty" ) )
{
skill->difficulty = atoi( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "participants" ) )
{
skill->participants = atoi( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "damtype" ) )
{
int x = get_sdamage( argument );
if ( x == -1 )
send_to_char( "Not a spell damage type.\n\r", ch );
else
{
SET_SDAM( skill, x );
send_to_char( "Ok.\n\r", ch );
}
return;
}
if ( !str_cmp( arg2, "acttype" ) )
{
int x = get_saction( argument );
if ( x == -1 )
send_to_char( "Not a spell action type.\n\r", ch );
else
{
SET_SACT( skill, x );
send_to_char( "Ok.\n\r", ch );
}
return;
}
if ( !str_cmp( arg2, "classtype" ) )
{
int x = get_sclass( argument );
if ( x == -1 )
send_to_char( "Not a spell class type.\n\r", ch );
else
{
SET_SCLA( skill, x );
send_to_char( "Ok.\n\r", ch );
}
return;
}
if ( !str_cmp( arg2, "powertype" ) )
{
int x = get_spower( argument );
if ( x == -1 )
send_to_char( "Not a spell power type.\n\r", ch );
else
{
SET_SPOW( skill, x );
send_to_char( "Ok.\n\r", ch );
}
return;
}
if ( !str_cmp( arg2, "flag" ) )
{
int x = get_sflag( argument );
if ( x == -1 )
send_to_char( "Not a spell flag.\n\r", ch );
else
{
TOGGLE_BIT( skill->flags, 1 << (x+11) );
send_to_char( "Ok.\n\r", ch );
}
return;
}
if ( !str_cmp( arg2, "saves" ) )
{
int x = get_ssave( argument );
if ( x == -1 )
send_to_char( "Not a saving type.\n\r", ch );
else
{
skill->saves = x;
send_to_char( "Ok.\n\r", ch );
}
return;
}
if ( !str_cmp( arg2, "code" ) )
{
SPELL_FUN *spellfun;
DO_FUN *dofun;
if ( (spellfun=spell_function(argument)) != spell_notfound )
{
skill->spell_fun = spellfun;
skill->skill_fun = NULL;
}
else
if ( (dofun=skill_function(argument)) != skill_notfound )
{
skill->skill_fun = dofun;
skill->spell_fun = NULL;
}
else
{
send_to_char( "Not a spell or skill.\n\r", ch );
return;
}
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "target" ) )
{
int x = get_starget( argument );
if ( x == -1 )
send_to_char( "Not a valid target type.\n\r", ch );
else
{
skill->target = x;
send_to_char( "Ok.\n\r", ch );
}
return;
}
if ( !str_cmp( arg2, "minpos" ) )
{
skill->minimum_position = URANGE( POS_DEAD, atoi( argument ), POS_DRAG );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "minlevel" ) )
{
skill->min_level = URANGE( 1, atoi( argument ), MAX_LEVEL );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "slot" ) )
{
skill->slot = URANGE( 0, atoi( argument ), 30000 );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "mana" ) )
{
skill->min_mana = URANGE( 0, atoi( argument ), 2000 );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "beats" ) )
{
skill->beats = URANGE( 0, atoi( argument ), 120 );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "guild" ) )
{
skill->guild = atoi( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "value" ) )
{
skill->value = atoi( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "type" ) )
{
skill->type = get_skill( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "rmaffect" ) )
{
SMAUG_AFF *aff = skill->affects;
SMAUG_AFF *aff_next;
int num = atoi( argument );
int cnt = 1;
if ( !aff )
{
send_to_char( "This spell has no special affects to remove.\n\r", ch );
return;
}
if ( num == 1 )
{
skill->affects = aff->next;
DISPOSE( aff->duration );
DISPOSE( aff->modifier );
DISPOSE( aff );
send_to_char( "Removed.\n\r", ch );
return;
}
for ( ; aff; aff = aff->next )
{
if ( ++cnt == num && (aff_next=aff->next) != NULL )
{
aff->next = aff_next->next;
DISPOSE( aff_next->duration );
DISPOSE( aff_next->modifier );
DISPOSE( aff_next );
send_to_char( "Removed.\n\r", ch );
return;
}
}
send_to_char( "Not found.\n\r", ch );
return;
}
/*
* affect <location> <modifier> <duration> <bitvector>
*/
if ( !str_cmp( arg2, "affect" ) )
{
char location[MAX_INPUT_LENGTH];
char modifier[MAX_INPUT_LENGTH];
char duration[MAX_INPUT_LENGTH];
char bitvector[MAX_INPUT_LENGTH];
int loc, bit, tmpbit;
SMAUG_AFF *aff=NULL;
argument = one_argument( argument, location );
argument = one_argument( argument, modifier );
argument = one_argument( argument, duration );
if ( location[0] == '!' )
loc = get_atype( location+1 ) + REVERSE_APPLY;
else
loc = get_atype( location );
if ( (loc % REVERSE_APPLY) < 0
|| (loc % REVERSE_APPLY) >= MAX_APPLY_TYPE )
{
send_to_char( "Unknown affect location. See AFFECTTYPES.\n\r", ch );
return;
}
bit = -1;
while ( argument[0] != 0 )
{
argument = one_argument( argument, bitvector );
if ( (tmpbit=get_aflag( bitvector )) == -1 )
ch_printf( ch, "Unknown bitvector: %s. See AFFECTED_BY\n\r", bitvector );
else
bit |= (1 << tmpbit);
}
CREATE( aff, SMAUG_AFF, 1 );
if ( !str_cmp( duration, "0" ) )
duration[0] = '\0';
if ( !str_cmp( modifier, "0" ) )
modifier[0] = '\0';
aff->duration = str_dup( duration );
aff->location = loc;
aff->modifier = str_dup( modifier );
aff->bitvector = bit;
aff->next = skill->affects;
skill->affects = aff;
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "racelevel" ) )
{
char arg3[MAX_INPUT_LENGTH];
int class;
argument = one_argument( argument, arg3 );
if ( !is_number( arg3 ) && !str_cmp ( arg3, "all" ) )
{
for ( class = 0; class < MAX_RACE; class++ )
{
skill->race_skill_level[class] =
URANGE(0,atoi(argument), MAX_LEVEL);
}
return;
}
class = atoi( arg3 );
if ( class >= MAX_RACE || class < 0 )
send_to_char( "Not a valid race Try showrace.\n\r", ch );
else
skill->race_skill_level[class] =
URANGE(0, atoi(argument), MAX_LEVEL);
return;
}
if ( !str_cmp( arg2, "raceadept" ) )
{
char arg3[MAX_INPUT_LENGTH];
int class;
argument = one_argument( argument, arg3 );
if ( !is_number( arg3 ) && !str_cmp ( arg3, "all" ) )
{
for ( class = 0; class < MAX_RACE; class++ )
{
skill->race_skill_adept[class] =
URANGE(0,atoi(argument), 100);
}
return;
}
class = atoi( arg3 );
if ( class >= MAX_RACE || class < 0 )
send_to_char( "Not a valid race. Try showrace.\n\r", ch );
else
skill->race_skill_adept[class] =
URANGE(0, atoi(argument), 100);
return;
}
if ( !str_cmp( arg2, "level" ) )
{
char arg3[MAX_INPUT_LENGTH];
int class;
argument = one_argument( argument, arg3 );
if ( !is_number( arg3 ) && !str_cmp ( arg3, "all" ) )
{
for ( class = 0; class < MAX_CLASS; class++ )
{
skill->skill_level[class] =
URANGE(0,atoi(argument), MAX_LEVEL);
}
return;
}
class = atoi( arg3 );
if ( class >= MAX_CLASS || class < 0 )
send_to_char( "Not a valid class.\n\r", ch );
else
skill->skill_level[class] =
URANGE(0, atoi(argument), MAX_LEVEL);
return;
}
if ( !str_cmp( arg2, "adept" ) )
{
char arg3[MAX_INPUT_LENGTH];
int class;
argument = one_argument( argument, arg3 );
if ( !is_number( arg3 ) && !str_cmp ( arg3, "all" ) )
{
for ( class = 0; class < MAX_CLASS; class++ )
{
skill->skill_adept[class] =
URANGE(0,atoi(argument), 100);
}
return;
}
class = atoi( arg3 );
if ( class >= MAX_CLASS || class < 0 )
send_to_char( "Not a valid class.\n\r", ch );
else
skill->skill_adept[class] =
URANGE(0, atoi(argument), 100);
return;
}
if ( !str_cmp( arg2, "name" ) )
{
DISPOSE(skill->name);
skill->name = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "dammsg" ) )
{
DISPOSE(skill->noun_damage);
if ( !str_cmp( argument, "clear" ) )
skill->noun_damage = str_dup( "" );
else
skill->noun_damage = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "wearoff" ) )
{
DISPOSE(skill->msg_off);
if ( str_cmp( argument, "clear" ) )
skill->msg_off = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "hitchar" ) )
{
if ( skill->hit_char )
DISPOSE(skill->hit_char);
if ( str_cmp( argument, "clear" ) )
skill->hit_char = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "hitvict" ) )
{
if ( skill->hit_vict )
DISPOSE(skill->hit_vict);
if ( str_cmp( argument, "clear" ) )
skill->hit_vict = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "hitroom" ) )
{
if ( skill->hit_room )
DISPOSE(skill->hit_room);
if ( str_cmp( argument, "clear" ) )
skill->hit_room = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "misschar" ) )
{
if ( skill->miss_char )
DISPOSE(skill->miss_char);
if ( str_cmp( argument, "clear" ) )
skill->miss_char = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "missvict" ) )
{
if ( skill->miss_vict )
DISPOSE(skill->miss_vict);
if ( str_cmp( argument, "clear" ) )
skill->miss_vict = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "missroom" ) )
{
if ( skill->miss_room )
DISPOSE(skill->miss_room);
if ( str_cmp( argument, "clear" ) )
skill->miss_room = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "diechar" ) )
{
if ( skill->die_char )
DISPOSE(skill->die_char);
if ( str_cmp( argument, "clear" ) )
skill->die_char = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "dievict" ) )
{
if ( skill->die_vict )
DISPOSE(skill->die_vict);
if ( str_cmp( argument, "clear" ) )
skill->die_vict = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "dieroom" ) )
{
if ( skill->die_room )
DISPOSE(skill->die_room);
if ( str_cmp( argument, "clear" ) )
skill->die_room = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "immchar" ) )
{
if ( skill->imm_char )
DISPOSE(skill->imm_char);
if ( str_cmp( argument, "clear" ) )
skill->imm_char = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "immvict" ) )
{
if ( skill->imm_vict )
DISPOSE(skill->imm_vict);
if ( str_cmp( argument, "clear" ) )
skill->imm_vict = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "immroom" ) )
{
if ( skill->imm_room )
DISPOSE(skill->imm_room);
if ( str_cmp( argument, "clear" ) )
skill->imm_room = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "dice" ) )
{
if ( skill->dice )
DISPOSE(skill->dice);
if ( str_cmp( argument, "clear" ) )
skill->dice = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "components" ) )
{
if ( skill->components )
DISPOSE(skill->components);
if ( str_cmp( argument, "clear" ) )
skill->components = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg2, "teachers" ) )
{
if ( skill->teachers )
DISPOSE(skill->teachers);
if ( str_cmp( argument, "clear" ) )
skill->teachers = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
do_sset( ch, "" );
return;
}
if ( ( victim = get_char_world( ch, arg1 ) ) == NULL )
{
if ( (sn = skill_lookup(arg1)) >= 0 )
{
sprintf(arg1, "%d %s %s", sn, arg2, argument);
do_sset(ch, arg1);
}
else
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( IS_NPC(victim) )
{
send_to_char( "Not on NPC's.\n\r", ch );
return;
}
fAll = !str_cmp( arg2, "all" );
sn = 0;
if ( !fAll && ( sn = skill_lookup( arg2 ) ) < 0 )
{
send_to_char( "No such skill or spell.\n\r", ch );
return;
}
/*
* Snarf the value.
*/
if ( !is_number( argument ) )
{
send_to_char( "Value must be numeric.\n\r", ch );
return;
}
value = atoi( argument );
if ( value < 0 || value > 100 )
{
send_to_char( "Value range is 0 to 100.\n\r", ch );
return;
}
if ( fAll )
{
for ( sn = 0; sn < top_sn; sn++ )
{
/* Fix by Narn to prevent ssetting skills the player shouldn't have. */
if ( skill_table[sn]->name
&& ( ( CAN_USE_SK(victim, skill_table[sn]) ||
CAN_USE_RACE_SK( ch, skill_table[sn]) )
|| value == 0 ) )
victim->pcdata->learned[sn] = value;
}
}
else
victim->pcdata->learned[sn] = value;
return;
}
void learn_from_success( CHAR_DATA *ch, int sn )
{
int adept, gain, sklvl, learn, percent, chance;
record_call("<learn_from_success>");
if ( IS_NPC(ch) || ch->pcdata->learned[sn] == 0 )
return;
adept = GET_ADEPT(ch,sn);
sklvl = UMAX(skill_table[sn]->skill_level[ch->class ],
skill_table[sn]->skill_level[ch->class2]);
if ( sklvl == 0 )
sklvl = ch->level;
if ( ch->pcdata->learned[sn] < adept )
{
chance = ch->pcdata->learned[sn] + (5 * skill_table[sn]->difficulty);
percent = number_percent();
if ( percent >= chance )
learn = 2;
else
if ( chance - percent > 25 )
return;
else
learn = 1;
ch->pcdata->learned[sn] = UMIN( adept, ch->pcdata->learned[sn] + learn );
if ( ch->pcdata->learned[sn] == adept ) /* fully learned! */
{
gain = 1000;
set_char_color( AT_WHITE, ch );
ch_printf( ch, "You are now an adept of %s! You gain %d bonus experience!\n\r",
skill_table[sn]->name, gain );
}
else
{
gain = 20;
if ( !ch->fighting && sn != gsn_hide && sn != gsn_sneak )
{
set_char_color( AT_WHITE, ch );
ch_printf( ch, "You gain %d experience points from your success!\n\r", gain );
}
}
gain_exp( ch, gain, TRUE );
}
}
void learn_from_failure( CHAR_DATA *ch, int sn )
{
int adept, chance;
record_call("<learn_from_failure>");
if ( IS_NPC(ch) || ch->pcdata->learned[sn] == 0 )
return;
chance = ch->pcdata->learned[sn] + (5 * skill_table[sn]->difficulty);
if ( chance - number_percent() > 25 )
return;
adept = GET_ADEPT(ch, sn);
if ( ch->pcdata->learned[sn] < (adept-1) )
ch->pcdata->learned[sn] = UMIN( adept, ch->pcdata->learned[sn] + 1 );
}
void do_gouge( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
AFFECT_DATA af;
sh_int dam;
int percent;
record_call("<do_gouge>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch) && !ch->pcdata->learned[gsn_gouge] )
{
send_to_char("You do not yet know of this skill.\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You can't get close enough while mounted.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
percent = number_percent( ) - (get_curr_lck(ch) - 13);
if ( IS_NPC(ch) || percent < ch->pcdata->learned[gsn_gouge] )
{
dam = number_range( 1, ch->level );
global_retcode = damage( ch, victim, dam, gsn_gouge );
if ( global_retcode == rNONE )
{
if ( !IS_AFFECTED( victim, AFF_BLIND ) )
{
af.type = gsn_blindness;
af.location = APPLY_HITROLL;
af.modifier = -6;
af.duration = 3 + (ch->level / 15);
af.bitvector = meb(AFF_BLIND);
affect_to_char( victim, &af );
act( AT_SKILL, "You can't see a thing!", victim, NULL, NULL, TO_CHAR );
}
WAIT_STATE( ch, PULSE_VIOLENCE );
WAIT_STATE( victim, PULSE_VIOLENCE );
/* Taken out by request - put back in by Thoric
* This is how it was designed. You'd be a tad stunned
* if someone gouged you in the eye.
*/
}
else
if ( global_retcode == rVICT_DIED )
{
act( AT_BLOOD, "Your fingers plunge into your victim's brain, causing immediate death!",
ch, NULL, NULL, TO_CHAR );
}
if ( global_retcode != rCHAR_DIED && global_retcode != rBOTH_DIED )
learn_from_success( ch, gsn_gouge );
}
else
{
WAIT_STATE( ch, skill_table[gsn_gouge]->beats );
global_retcode = damage( ch, victim, 0, gsn_gouge );
learn_from_failure( ch, gsn_gouge );
}
return;
}
void do_detrap( CHAR_DATA *ch, char *argument )
{
char arg [MAX_INPUT_LENGTH];
OBJ_DATA *obj;
OBJ_DATA *trap;
int percent;
bool found=FALSE;
record_call("<do_detrap>");
switch( ch->substate )
{
default:
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
argument = one_argument( argument, arg );
if ( !IS_NPC(ch) && !ch->pcdata->learned[gsn_detrap] )
{
send_to_char("You do not yet know of this skill.\n\r", ch );
return;
}
if ( arg[0] == '\0' )
{
send_to_char( "Detrap what?\n\r", ch );
return;
}
if ( ms_find_obj(ch) )
return;
found = FALSE;
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
if ( !ch->in_room->first_content )
{
send_to_char( "You can't find that here.\n\r", ch );
return;
}
for ( obj = ch->in_room->first_content; obj; obj = obj->next_content )
{
if ( can_see_obj( ch, obj ) && nifty_is_name( arg, obj->name ) )
{
found = TRUE;
break;
}
}
if ( !found )
{
send_to_char( "You can't find that here.\n\r", ch );
return;
}
act( AT_ACTION, "You carefully begin your attempt to remove a trap from $p...", ch, obj, NULL, TO_CHAR );
act( AT_ACTION, "$n carefully attempts to remove a trap from $p...", ch, obj, NULL, TO_ROOM );
ch->dest_buf = str_dup( obj->name );
add_timer( ch, TIMER_DO_FUN, 3, do_detrap, 1 );
/* WAIT_STATE( ch, skill_table[gsn_detrap]->beats ); */
return;
case 1:
if ( !ch->dest_buf )
{
send_to_char( "Your detrapping was interrupted!\n\r", ch );
bug( "do_detrap: ch->dest_buf NULL!", 0 );
return;
}
strcpy( arg, ch->dest_buf );
DISPOSE( ch->dest_buf );
ch->dest_buf = NULL;
ch->substate = SUB_NONE;
break;
case SUB_TIMER_DO_ABORT:
DISPOSE(ch->dest_buf);
ch->substate = SUB_NONE;
send_to_char( "You carefully stop what you were doing.\n\r", ch );
return;
}
if ( !ch->in_room->first_content )
{
send_to_char( "You can't find that here.\n\r", ch );
return;
}
for ( obj = ch->in_room->first_content; obj; obj = obj->next_content )
{
if ( can_see_obj( ch, obj ) && nifty_is_name( arg, obj->name ) )
{
found = TRUE;
break;
}
}
if ( !found )
{
send_to_char( "You can't find that here.\n\r", ch );
return;
}
if ( (trap = get_trap( obj )) == NULL )
{
send_to_char( "You find no trap on that.\n\r", ch );
return;
}
percent = number_percent( ) - ( ch->level / 15 )
- (get_curr_lck(ch) - 16);
separate_obj(obj);
if ( !IS_NPC(ch) || percent > ch->pcdata->learned[gsn_detrap] )
{
send_to_char( "Ooops!\n\r", ch );
spring_trap( ch, trap );
learn_from_failure( ch, gsn_detrap );
return;
}
extract_obj( trap );
send_to_char( "You successfully remove a trap.\n\r", ch );
learn_from_success( ch, gsn_detrap );
return;
}
void do_dig( CHAR_DATA *ch, char *argument )
{
char arg [MAX_INPUT_LENGTH];
OBJ_DATA *obj;
OBJ_DATA *startobj;
bool found, shovel;
EXIT_DATA *pexit;
record_call("<do_dig>");
switch( ch->substate )
{
default:
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
one_argument( argument, arg );
if ( arg[0] != '\0' )
{
if ( ( pexit = find_door( ch, arg, TRUE ) ) == NULL
&& get_dir(arg) == -1 )
{
send_to_char( "What direction is that?\n\r", ch );
return;
}
if ( pexit )
{
if ( !IS_SET(pexit->exit_info, EX_DIG)
&& !IS_SET(pexit->exit_info, EX_CLOSED) )
{
send_to_char( "There is no need to dig out that exit.\n\r", ch );
return;
}
}
}
else
{
switch( ch->in_room->sector_type )
{
case SECT_CITY:
case SECT_INSIDE:
send_to_char( "The floor is too hard to dig through.\n\r", ch );
return;
case SECT_WATER_SWIM:
case SECT_WATER_NOSWIM:
case SECT_UNDERWATER:
send_to_char( "You cannot dig here.\n\r", ch );
return;
case SECT_AIR:
send_to_char( "What? In the air?!\n\r", ch );
return;
}
}
add_timer( ch, TIMER_DO_FUN, UMIN(skill_table[gsn_dig]->beats / 10, 3),
do_dig, 1);
ch->dest_buf = str_dup( arg );
send_to_char( "You begin digging...\n\r", ch );
act( AT_PLAIN, "$n begins digging...", ch, NULL, NULL, TO_ROOM );
return;
case 1:
if ( !ch->dest_buf )
{
send_to_char( "Your digging was interrupted!\n\r", ch );
act( AT_PLAIN, "$n's digging was interrupted!", ch, NULL, NULL, TO_ROOM );
bug( "do_dig: dest_buf NULL", 0 );
return;
}
strcpy( arg, ch->dest_buf );
DISPOSE( ch->dest_buf );
break;
case SUB_TIMER_DO_ABORT:
DISPOSE( ch->dest_buf );
ch->substate = SUB_NONE;
send_to_char( "You stop digging...\n\r", ch );
act( AT_PLAIN, "$n stops digging...", ch, NULL, NULL, TO_ROOM );
return;
}
ch->substate = SUB_NONE;
/* not having a shovel makes it harder to succeed */
shovel = FALSE;
for ( obj = ch->first_carrying; obj; obj = obj->next_content )
if ( obj->item_type == ITEM_SHOVEL )
{
shovel = TRUE;
break;
}
/* dig out an EX_DIG exit... */
if ( arg[0] != '\0' )
{
if ( ( pexit = find_door( ch, arg, TRUE ) ) != NULL
&& IS_SET( pexit->exit_info, EX_DIG )
&& IS_SET( pexit->exit_info, EX_CLOSED ) )
{
/* 4 times harder to dig open a passage without a shovel */
if ( (number_percent() * (shovel ? 1 : 4)) <
(IS_NPC(ch) ? 80 : ch->pcdata->learned[gsn_dig]) )
{
REMOVE_BIT( pexit->exit_info, EX_CLOSED );
send_to_char( "You dig open a passageway!\n\r", ch );
act( AT_PLAIN, "$n digs open a passageway!", ch, NULL, NULL, TO_ROOM );
learn_from_success( ch, gsn_dig );
return;
}
}
learn_from_failure( ch, gsn_dig );
send_to_char( "Your dig did not discover any exit...\n\r", ch );
act( AT_PLAIN, "$n's dig did not discover any exit...", ch, NULL, NULL, TO_ROOM );
return;
}
startobj = ch->in_room->first_content;
found = FALSE;
for ( obj = startobj; obj; obj = obj->next_content )
{
/* twice as hard to find something without a shovel */
if ( IS_OBJ_STAT( obj, ITEM_BURRIED )
&& (number_percent() * (shovel ? 1 : 2)) <
(IS_NPC(ch) ? 80 : ch->pcdata->learned[gsn_dig]) )
{
found = TRUE;
break;
}
}
if ( !found )
{
send_to_char( "Your dig uncovered nothing.\n\r", ch );
act( AT_PLAIN, "$n's dig uncovered nothing.", ch, NULL, NULL, TO_ROOM );
learn_from_failure( ch, gsn_dig );
return;
}
separate_obj(obj);
REMOVE_BIT( obj->extra_flags, ITEM_BURRIED );
act( AT_SKILL, "Your dig uncovered $p!", ch, obj, NULL, TO_CHAR );
act( AT_SKILL, "$n's dig uncovered $p!", ch, obj, NULL, TO_ROOM );
learn_from_success( ch, gsn_dig );
if ( obj->item_type == ITEM_CORPSE_PC
|| obj->item_type == ITEM_CORPSE_NPC )
adjust_favor( ch, 14, 1 );
return;
}
void do_search( CHAR_DATA *ch, char *argument )
{
char arg [MAX_INPUT_LENGTH];
OBJ_DATA *obj=NULL;
OBJ_DATA *container;
OBJ_DATA *startobj;
int percent, door;
bool found, room;
door = -1;
record_call("<do_search>");
switch( ch->substate )
{
default:
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
argument = one_argument( argument, arg );
if ( arg[0] != '\0' && (door = get_door( arg )) == -1 )
{
container = get_obj_here( ch, arg );
if ( !container )
{
send_to_char( "You can't find that here.\n\r", ch );
return;
}
if ( container->item_type != ITEM_CONTAINER )
{
send_to_char( "You can't search in that!\n\r", ch );
return;
}
if ( IS_SET(container->value[1], CONT_CLOSED) )
{
send_to_char( "It is closed.\n\r", ch );
return;
}
}
add_timer( ch, TIMER_DO_FUN, UMIN(skill_table[gsn_search]->beats / 10, 3),
do_search, 1 );
send_to_char( "You begin your search...\n\r", ch );
ch->dest_buf = str_dup( arg );
return;
case 1:
if ( !ch->dest_buf )
{
send_to_char( "Your search was interrupted!\n\r", ch );
bug( "do_search: dest_buf NULL", 0 );
return;
}
strcpy( arg, ch->dest_buf );
DISPOSE( ch->dest_buf );
break;
case SUB_TIMER_DO_ABORT:
DISPOSE( ch->dest_buf );
ch->substate = SUB_NONE;
send_to_char( "You stop your search...\n\r", ch );
return;
}
ch->substate = SUB_NONE;
if ( arg[0] == '\0' )
{
room = TRUE;
startobj = ch->in_room->first_content;
}
else
{
if ( (door = get_door( arg )) != -1 )
startobj = NULL;
else
{
container = get_obj_here( ch, arg );
if ( !container )
{
send_to_char( "You can't find that here.\n\r", ch );
return;
}
startobj = container->first_content;
}
}
found = FALSE;
if ( (!startobj && door == -1) || IS_NPC(ch) )
{
send_to_char( "You find nothing.\n\r", ch );
learn_from_failure( ch, gsn_search );
return;
}
percent = number_percent( ) + number_percent( ) - ( ch->level / 10 );
if ( door != -1 )
{
EXIT_DATA *pexit;
if ( (pexit = get_exit( ch->in_room, door )) != NULL
&& IS_SET( pexit->exit_info, EX_SECRET )
&& IS_SET( pexit->exit_info, EX_xSEARCHABLE )
&& percent < (IS_NPC(ch) ? 80 : ch->pcdata->learned[gsn_search]) )
{
act( AT_SKILL, "Your search reveals the $d!", ch, NULL, pexit->keyword, TO_CHAR );
act( AT_SKILL, "$n finds the $d!", ch, NULL, pexit->keyword, TO_ROOM );
REMOVE_BIT( pexit->exit_info, EX_SECRET );
learn_from_success( ch, gsn_search );
return;
}
}
else
for ( obj = startobj; obj; obj = obj->next_content )
{
if ( IS_OBJ_STAT( obj, ITEM_HIDDEN )
&& percent < ch->pcdata->learned[gsn_search] )
{
found = TRUE;
break;
}
}
if ( !found )
{
send_to_char( "You find nothing.\n\r", ch );
learn_from_failure( ch, gsn_search );
return;
}
separate_obj(obj);
REMOVE_BIT( obj->extra_flags, ITEM_HIDDEN );
act( AT_SKILL, "Your search reveals $p!", ch, obj, NULL, TO_CHAR );
act( AT_SKILL, "$n finds $p!", ch, obj, NULL, TO_ROOM );
learn_from_success( ch, gsn_search );
return;
}
void do_steal( CHAR_DATA *ch, char *argument )
{
char buf [MAX_STRING_LENGTH];
char arg1 [MAX_INPUT_LENGTH];
char arg2 [MAX_INPUT_LENGTH];
CHAR_DATA *victim, *mst;
OBJ_DATA *obj;
int percent;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
record_call("<do_steal>");
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
if ( arg1[0] == '\0' || arg2[0] == '\0' )
{
send_to_char( "Steal what from whom?\n\r", ch );
return;
}
if ( ms_find_obj(ch) )
return;
if ( ( victim = get_char_room( ch, arg2 ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "That's pointless.\n\r", ch );
return;
}
if ( IS_SET( ch->in_room->room_flags, ROOM_SAFE ) )
{
set_char_color( AT_MAGIC, ch );
send_to_char( "A magical force interrupts you.\n\r", ch );
return;
}
/* Disabled stealing among players because of complaints naked avatars were
running around stealing eq from equipped pkillers. -- Narn
if ( check_illegal_psteal( ch, victim ) )
{
send_to_char( "You can't steal from that player.\n\r", ch );
return;
}*/
if ( !IS_NPC( ch ) && !IS_NPC( victim ) )
{
set_char_color( AT_IMMORT, ch );
send_to_char( "The gods forbid theft between players.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_steal]->beats );
percent = number_percent( ) + ( IS_AWAKE(victim) ? 10 : -50 )
- (get_curr_lck(ch) - 15) + (get_curr_lck(victim) - 13);
/* Changed the level check, made it 10 levels instead of five and made the
victim not attack in the case of a too high level difference. This is
to allow mobprogs where the mob steals eq without having to put level
checks into the progs. Also gave the mobs a 10% chance of failure.
*/
if( ch->level + 10 < victim->level )
{
send_to_char( "You really don't want to try that!\n\r", ch );
return;
}
if ( victim->position == POS_FIGHTING
|| percent > ( IS_NPC(ch) ? 90 : ch->pcdata->learned[gsn_steal] ) )
{
/*
* Failure.
*/
send_to_char( "Oops...\n\r", ch );
act( AT_ACTION, "$n tried to steal from you!\n\r", ch, NULL, victim, TO_VICT );
act( AT_ACTION, "$n tried to steal from $N.\n\r", ch, NULL, victim, TO_NOTVICT );
sprintf( buf, "%s is a bloody thief!", ch->name );
do_yell( victim, buf );
learn_from_failure( ch, gsn_steal );
if ( !IS_NPC(ch) )
{
if ( legal_loot( ch, victim ) )
{
global_retcode = multi_hit( victim, ch, TYPE_UNDEFINED );
}
else
{
/* log_string( buf ); */
if ( IS_NPC( ch ) )
{
if ( (mst = ch->master) == NULL )
return;
}
else
mst = ch;
if ( IS_NPC( mst ) )
return;
if ( !IS_SET(mst->act, PLR_THIEF) )
{
SET_BIT(mst->act, PLR_THIEF);
set_char_color( AT_WHITE, ch );
send_to_char( "A strange feeling grows deep inside you, and a tingle goes up your spine...\n\r", ch );
set_char_color( AT_IMMORT, ch );
send_to_char( "A deep voice booms inside your head, 'Thou shall now be known as a lowly thief!'\n\r", ch );
set_char_color( AT_WHITE, ch );
send_to_char( "You feel as if your soul has been revealed for all to see.\n\r", ch );
save_char_obj( mst );
}
}
}
return;
}
if ( !str_cmp( arg1, "coin" )
|| !str_cmp( arg1, "coins" )
|| !str_cmp( arg1, "gold" ) )
{
int amount;
amount = (int) (victim->gold * number_range(1, 10) / 100);
if ( amount <= 0 )
{
send_to_char( "You couldn't get any gold.\n\r", ch );
learn_from_failure( ch, gsn_steal );
return;
}
ch->gold += amount;
victim->gold -= amount;
ch_printf( ch, "Aha! You got %d gold coins.\n\r", amount );
learn_from_success( ch, gsn_steal );
return;
}
if ( ( obj = get_obj_carry( victim, arg1 ) ) == NULL )
{
send_to_char( "You can't seem to find it.\n\r", ch );
learn_from_failure( ch, gsn_steal );
return;
}
if ( !can_drop_obj( ch, obj )
|| IS_OBJ_STAT(obj, ITEM_INVENTORY)
|| IS_OBJ_STAT(obj, ITEM_PROTOTYPE))
{
send_to_char( "You can't manage to pry it away.\n\r", ch );
learn_from_failure( ch, gsn_steal );
return;
}
if ( ch->carry_number + (get_obj_number(obj)/obj->count) > can_carry_n( ch ) )
{
send_to_char( "You have your hands full.\n\r", ch );
learn_from_failure( ch, gsn_steal );
return;
}
if ( ch->carry_weight + (get_obj_weight(obj)/obj->count) > can_carry_w( ch ) )
{
send_to_char( "You can't carry that much weight.\n\r", ch );
learn_from_failure( ch, gsn_steal );
return;
}
separate_obj( obj );
obj_from_char( obj );
obj_to_char( obj, ch );
send_to_char( "Ok.\n\r", ch );
learn_from_success( ch, gsn_steal );
adjust_favor( ch, 9, 1 );
return;
}
void do_backstab( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
OBJ_DATA *obj;
int percent;
record_call("<do_backstab>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't do that right now.\n\r", ch );
return;
}
one_argument( argument, arg );
if ( ch->mount )
{
send_to_char( "You can't get close enough while mounted.\n\r", ch );
return;
}
if ( arg[0] == '\0' )
{
send_to_char( "Backstab whom?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "How can you sneak up on yourself?\n\r", ch );
return;
}
if ( is_safe( ch, victim ) )
return;
/* Added stabbing weapon. -Narn */
if ( ( obj = get_eq_char( ch, WEAR_WIELD ) ) == NULL
|| ( ( obj->value[3] != 11) && ( obj->value[3] != 2 ) ) )
{
send_to_char( "You need to wield a piercing or stabbing weapon.\n\r", ch );
return;
}
if ( victim->fighting )
{
send_to_char( "You can't backstab someone who is in combat.\n\r", ch );
return;
}
/* Can backstab a char even if it's hurt as long as it's sleeping. -Narn */
if ( victim->hit < victim->max_hit && IS_AWAKE( victim ) )
{
act( AT_PLAIN, "$N is hurt and suspicious ... you can't sneak up.",
ch, NULL, victim, TO_CHAR );
return;
}
percent = number_percent( ) - (get_curr_lck(ch) - 14)
+ (get_curr_lck(victim) - 13);
// check_attacker( ch, victim );
WAIT_STATE( ch, skill_table[gsn_backstab]->beats );
if ( !IS_AWAKE(victim)
|| IS_NPC(ch)
|| percent < ch->pcdata->learned[gsn_backstab] )
{
learn_from_success( ch, gsn_backstab );
global_retcode = multi_hit( ch, victim, gsn_backstab );
adjust_favor( ch, 10, 1 );
// check_illegal_pk( ch, victim );
if ( !check_pk_ok(victim,ch))
return;
}
else
{
learn_from_failure( ch, gsn_backstab );
global_retcode = damage( ch, victim, 0, gsn_backstab );
}
return;
}
void do_assassinate( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
OBJ_DATA *obj;
int percent;
record_call("<do_assassinate>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't do that right now.\n\r", ch );
return;
}
one_argument( argument, arg );
if ( ch->mount )
{
send_to_char( "You can't get close enough while mounted.\n\r", ch );
return;
}
if ( arg[0] == '\0' )
{
send_to_char( "Assassinate whom?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "How can you sneak up on yourself?\n\r", ch );
return;
}
if ( is_safe( ch, victim ) )
return;
/* Added stabbing weapon. -Narn */
if ( ( obj = get_eq_char( ch, WEAR_WIELD ) ) == NULL
|| ( obj->value[3] != 11) )
{
send_to_char( "You need to wield a piercing or stabbing weapon.\n\r", ch );
return;
}
if ( victim->fighting )
{
send_to_char( "You can't Assassinate someone who is in combat.\n\r", ch );
return;
}
/* Can backstab a char even if it's hurt as long as it's sleeping. -Narn */
if ( !IS_NPC(ch) )
{
if ( victim->hit < victim->max_hit && IS_AWAKE( victim ) )
{
act( AT_PLAIN, "$N is hurt and suspicious ... you can't sneak up.",
ch, NULL, victim, TO_CHAR );
return;
}
}
percent = number_percent( ) - (get_curr_lck(ch) - 14)
+ (get_curr_lck(victim) - 13);
// check_attacker( ch, victim );
WAIT_STATE( ch, skill_table[gsn_assassinate]->beats );
if ( !IS_AWAKE(victim)
|| IS_NPC(ch)
|| percent < ch->pcdata->learned[gsn_assassinate] )
{
learn_from_success( ch, gsn_assassinate );
global_retcode = multi_hit( ch, victim, gsn_assassinate );
adjust_favor( ch, 10, 1 );
// check_illegal_pk( ch, victim );
if ( !check_pk_ok(victim,ch) )
return;
}
else
{
learn_from_failure( ch, gsn_assassinate );
global_retcode = damage( ch, victim, 0, gsn_assassinate );
}
return;
}
void do_rescue( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
CHAR_DATA *fch;
int percent;
record_call("<do_rescue>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Rescue whom?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "How about fleeing instead?\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
if ( !IS_NPC(ch) && IS_NPC(victim) )
{
send_to_char( "Doesn't need your help!\n\r", ch );
return;
}
if ( !ch->fighting )
{
send_to_char( "Too late...\n\r", ch );
return;
}
if ( ( fch = who_fighting( victim) ) == NULL )
{
send_to_char( "They are not fighting right now.\n\r", ch );
return;
}
percent = number_percent( ) - (get_curr_lck(ch) - 14)
- (get_curr_lck(victim) - 16);
WAIT_STATE( ch, skill_table[gsn_rescue]->beats );
if ( !IS_NPC(ch) && percent > ch->pcdata->learned[gsn_rescue] )
{
send_to_char( "You fail the rescue.\n\r", ch );
act( AT_SKILL, "$n tries to rescue you!", ch, NULL, victim, TO_VICT );
act( AT_SKILL, "$n tries to rescue $N!", ch, NULL, victim, TO_NOTVICT );
learn_from_failure( ch, gsn_rescue );
return;
}
act( AT_SKILL, "You rescue $N!", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n rescues you!", ch, NULL, victim, TO_VICT );
act( AT_SKILL, "$n moves in front of $N!", ch, NULL, victim, TO_NOTVICT );
learn_from_success( ch, gsn_rescue );
adjust_favor( ch, 8, 1 );
stop_fighting( fch, FALSE );
stop_fighting( victim, FALSE );
if ( ch->fighting )
stop_fighting( ch, FALSE );
/* check_killer( ch, fch ); */
set_fighting( ch, fch );
set_fighting( fch, ch );
return;
}
void do_kick( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_kick>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_kick]) &&
!CAN_USE_RACE_SK( ch, skill_table[gsn_kick] ) ) )
{
send_to_char(
"You better leave the martial arts to fighters.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_kick]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_kick] )
{
learn_from_success( ch, gsn_kick );
global_retcode = damage( ch, victim, number_range( 1, ch->level ), gsn_kick );
}
else
{
learn_from_failure( ch, gsn_kick );
global_retcode = damage( ch, victim, 0, gsn_kick );
}
return;
}
void do_punch( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_punch>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_punch]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_punch]) ) )
{
send_to_char(
"You better leave the martial arts to fighters.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_punch]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_punch] )
{
learn_from_success( ch, gsn_punch );
global_retcode = damage( ch, victim, number_range( 1, ch->level ), gsn_punch );
}
else
{
learn_from_failure( ch, gsn_punch );
global_retcode = damage( ch, victim, 0, gsn_punch );
}
return;
}
void do_bite( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_bite>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_bite]) &&
!CAN_USE_RACE_SK( ch, skill_table[gsn_bite] ) ) )
{
send_to_char(
"That isn't quite one of your natural skills.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_bite]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_bite] )
{
learn_from_success( ch, gsn_bite );
global_retcode = damage( ch, victim, number_range( 1, ch->level ), gsn_bite );
}
else
{
learn_from_failure( ch, gsn_bite );
global_retcode = damage( ch, victim, 0, gsn_bite );
}
return;
}
void do_claw( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_claw>");
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_claw]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_claw]) ) )
{
send_to_char(
"That isn't quite one of your natural skills.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_claw]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_claw] )
{
learn_from_success( ch, gsn_claw );
global_retcode = damage( ch, victim, number_range( 1, ch->level ), gsn_claw );
}
else
{
learn_from_failure( ch, gsn_claw );
global_retcode = damage( ch, victim, 0, gsn_claw );
}
return;
}
void do_sting( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_sting>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_sting]) &&
!CAN_USE_RACE_SK( ch, skill_table[gsn_sting] ) ) )
{
send_to_char(
"That isn't quite one of your natural skills.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_sting]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_sting] )
{
learn_from_success( ch, gsn_sting );
global_retcode = damage( ch, victim, number_range( 1, ch->level ), gsn_sting );
}
else
{
learn_from_failure( ch, gsn_sting );
global_retcode = damage( ch, victim, 0, gsn_sting );
}
return;
}
void do_tail( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_tail>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_tail]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_tail]) ) )
{
send_to_char(
"That isn't quite one of your natural skills.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_tail]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_tail] )
{
learn_from_success( ch, gsn_tail );
global_retcode = damage( ch, victim, number_range( 1, ch->level ), gsn_tail );
}
else
{
learn_from_failure( ch, gsn_tail );
global_retcode = damage( ch, victim, 0, gsn_tail );
}
return;
}
void do_bash( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
int chance;
record_call("<do_bash>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_bash]) &&
!CAN_USE_RACE_SK( ch, skill_table[gsn_bash] ) ) )
{
send_to_char(
"You better leave the martial arts to fighters.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
chance = (((get_curr_dex(victim) + get_curr_str(victim))
- (get_curr_dex(ch) + get_curr_str(ch))) * 10) + 10;
if ( !IS_NPC(ch) && !IS_NPC(victim) )
chance += 25;
if ( victim->fighting && victim->fighting->who != ch )
chance += 19;
WAIT_STATE( ch, skill_table[gsn_bash]->beats );
if ( IS_NPC(ch)
|| (number_percent( ) + chance) < ch->pcdata->learned[gsn_bash] )
{
learn_from_success( ch, gsn_bash );
/* do not change anything here! -Thoric */
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
WAIT_STATE( victim, 2 * PULSE_VIOLENCE );
victim->position = POS_SITTING;
global_retcode = damage( ch, victim, number_range( 1, ch->level ), gsn_bash );
}
else
{
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
learn_from_failure( ch, gsn_bash );
global_retcode = damage( ch, victim, 0, gsn_bash );
}
return;
}
void do_stun( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
AFFECT_DATA af;
int chance;
bool fail;
record_call("<do_stun>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_stun]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_stun] ) ) )
{
send_to_char(
"You better leave the martial arts to fighters.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
if ( ch->move < 16 )
{
set_char_color( AT_SKILL, ch );
send_to_char( "You are far too tired to do that.\n\r", ch );
return; /* missing return fixed March 11/96 */
}
WAIT_STATE( ch, skill_table[gsn_stun]->beats );
fail = FALSE;
chance = ris_save( victim, ch->level, RIS_PARALYSIS );
if ( chance == 1000 )
fail = TRUE;
else
fail = saves_para_petri( chance, victim );
chance = (((get_curr_dex(victim) + get_curr_str(victim))
- (get_curr_dex(ch) + get_curr_str(ch))) * 10) + 10;
/* harder for player to stun another player */
if ( !IS_NPC(ch) && !IS_NPC(victim) )
chance += sysdata.stun_plr_vs_plr;
else
chance += sysdata.stun_regular;
if ( !fail
&& ( IS_NPC(ch)
|| (number_percent( ) + chance) < ch->pcdata->learned[gsn_stun] ) )
{
learn_from_success( ch, gsn_stun );
/* DO *NOT* CHANGE! -Thoric */
ch->move -= 15;
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
WAIT_STATE( victim, PULSE_VIOLENCE );
act( AT_SKILL, "$N smashes into you, leaving you stunned!", victim, NULL, ch, TO_CHAR );
act( AT_SKILL, "You smash into $N, leaving $M stunned!", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n smashes into $N, leaving $M stunned!", ch, NULL, victim, TO_NOTVICT );
if ( !IS_AFFECTED( victim, AFF_PARALYSIS ) )
{
af.type = gsn_stun;
af.location = APPLY_AC;
af.modifier = 20;
af.duration = 3;
af.bitvector = meb(AFF_PARALYSIS);
affect_to_char( victim, &af );
update_pos( victim );
}
}
else
{
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
ch->move -= 5;
learn_from_failure( ch, gsn_stun );
act( AT_SKILL, "$N charges at you screaming, but you dodge out of the way.", victim, NULL, ch, TO_CHAR );
act( AT_SKILL, "You try to stun $N, but $E dodges out of the way.", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n charges screaming at $N, but keeps going right on past.", ch, NULL, victim, TO_NOTVICT );
}
return;
}
void do_feed( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
sh_int dam;
record_call("<do_feed>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& !IS_VAMPIRE(ch) )
{
send_to_char( "It is not of your nature to feed on living creatures.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& !ch->pcdata->learned[gsn_feed] )
{
send_to_char( "You have not yet practiced your new teeth.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_feed]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_feed] )
{
dam = number_range( 1, ch->level );
global_retcode = damage( ch, victim, dam, gsn_feed );
if ( global_retcode == rNONE && !IS_NPC(ch) && dam
&& ch->fighting
&& ch->pcdata->condition[COND_BLOODTHIRST] < get_bloodthirst(ch) )
{
gain_condition( ch, COND_BLOODTHIRST,
UMIN( number_range(1, (ch->level+victim->level / 20) + 3 ),
get_bloodthirst(ch) - ch->pcdata->condition[COND_BLOODTHIRST] ) );
gain_condition( ch, COND_FULL, 2);
gain_condition( ch, COND_THIRST, 2);
act( AT_BLOOD, "You manage to suck a little life out of $N.", ch, NULL,
victim, TO_CHAR );
act( AT_BLOOD, "$n sucks some of your blood!", ch, NULL, victim, TO_VICT );
learn_from_success( ch, gsn_feed );
}
}
else
{
global_retcode = damage( ch, victim, 0, gsn_feed );
if ( global_retcode == rNONE && !IS_NPC(ch)
&& ch->fighting
&& ch->pcdata->condition[COND_BLOODTHIRST] < get_bloodthirst(ch) )
{
act( AT_BLOOD, "The smell of $N's blood is driving you insane!",
ch, NULL, victim, TO_CHAR );
act( AT_BLOOD, "$n is lusting after your blood!", ch, NULL, victim, TO_VICT );
learn_from_failure( ch, gsn_feed );
}
}
return;
}
/*
* Disarm a creature.
* Caller must check for successful attack.
* Check for loyalty flag (weapon disarms to inventory) for pkillers -Blodkai
*/
void disarm( CHAR_DATA *ch, CHAR_DATA *victim )
{
OBJ_DATA *obj, *tmpobj;
record_call("<disarm>");
if ( ( obj = get_eq_char( victim, WEAR_WIELD ) ) == NULL )
return;
if ( ( tmpobj = get_eq_char( victim, WEAR_DUAL_WIELD ) ) != NULL
&& number_bits( 1 ) == 0 )
obj = tmpobj;
if ( get_eq_char( ch, WEAR_WIELD ) == NULL && number_bits( 1 ) == 0 )
{
learn_from_failure( ch, gsn_disarm );
return;
}
if ( IS_NPC( ch ) && !can_see_obj( ch, obj ) && number_bits( 1 ) == 0)
{
learn_from_failure( ch, gsn_disarm );
return;
}
if ( check_grip( ch, victim ) )
{
learn_from_failure( ch, gsn_disarm );
return;
}
act( AT_SKILL, "$n DISARMS you!", ch, NULL, victim, TO_VICT );
act( AT_SKILL, "You disarm $N!", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n disarms $N!", ch, NULL, victim, TO_NOTVICT );
learn_from_success( ch, gsn_disarm );
if ( obj == get_eq_char( victim, WEAR_WIELD )
&& (tmpobj = get_eq_char( victim, WEAR_DUAL_WIELD)) != NULL )
tmpobj->wear_loc = WEAR_WIELD;
obj_from_char( obj );
if ( IS_NPC(victim)
|| ( IS_OBJ_STAT(obj, ITEM_LOYAL) && IS_PKILL(victim) ) )
obj_to_char( obj, victim );
else
obj_to_room( obj, victim->in_room );
return;
}
void do_disarm( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
OBJ_DATA *obj;
int percent;
record_call("<do_disarm>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_disarm]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_disarm]) ) )
{
send_to_char( "You don't know how to disarm opponents.\n\r", ch );
return;
}
if ( get_eq_char( ch, WEAR_WIELD ) == NULL )
{
send_to_char( "You must wield a weapon to disarm.\n\r", ch );
return;
}
if ( ( victim = who_fighting( ch ) ) == NULL )
{
send_to_char( "You aren't fighting anyone.\n\r", ch );
return;
}
if ( ( obj = get_eq_char( victim, WEAR_WIELD ) ) == NULL )
{
send_to_char( "Your opponent is not wielding a weapon.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_disarm]->beats );
percent = number_percent( ) + victim->level - ch->level
- (get_curr_lck(ch) - 15) + (get_curr_lck(victim) - 15);
if ( !can_see_obj( ch, obj ) )
percent += 10;
if ( IS_NPC(ch) || percent < ch->pcdata->learned[gsn_disarm] * 2 / 3 )
disarm( ch, victim );
else
{
send_to_char( "You failed.\n\r", ch );
learn_from_failure( ch, gsn_disarm );
}
return;
}
/*
* Trip a creature.
* Caller must check for successful attack.
*/
void trip( CHAR_DATA *ch, CHAR_DATA *victim )
{
record_call("<trip>");
if ( IS_AFFECTED( victim, AFF_FLYING )
|| IS_AFFECTED( victim, AFF_FLOATING ) )
return;
if ( victim->mount )
{
if ( IS_AFFECTED( victim->mount, AFF_FLYING )
|| IS_AFFECTED( victim->mount, AFF_FLOATING ) )
return;
act( AT_SKILL, "$n trips your mount and you fall off!", ch, NULL, victim, TO_VICT );
act( AT_SKILL, "You trip $N's mount and $N falls off!", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n trips $N's mount and $N falls off!", ch, NULL, victim, TO_NOTVICT );
REMOVE_BIT( victim->mount->act, ACT_MOUNTED );
victim->mount = NULL;
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
WAIT_STATE( victim, 2 * PULSE_VIOLENCE );
victim->position = POS_RESTING;
return;
}
if ( victim->wait == 0 )
{
act( AT_SKILL, "$n trips you and you go down!", ch, NULL, victim, TO_VICT );
act( AT_SKILL, "You trip $N and $N goes down!", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n trips $N and $N goes down!", ch, NULL, victim, TO_NOTVICT );
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
WAIT_STATE( victim, 2 * PULSE_VIOLENCE );
victim->position = POS_RESTING;
}
return;
}
void do_pick( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *gch;
OBJ_DATA *obj;
EXIT_DATA *pexit;
record_call("<do_pick>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Pick what?\n\r", ch );
return;
}
if ( ms_find_obj(ch) )
return;
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_pick_lock]->beats );
/* look for guards */
for ( gch = ch->in_room->first_person; gch; gch = gch->next_in_room )
{
if ( IS_NPC(gch) && IS_AWAKE(gch) && ch->level + 5 < gch->level )
{
act( AT_PLAIN, "$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);
learn_from_failure( ch, gsn_pick_lock );
return;
}
if ( ( pexit = find_door( ch, arg, TRUE ) ) != NULL )
{
/* 'pick door' */
/* ROOM_INDEX_DATA *to_room; */ /* Unused */
EXIT_DATA *pexit_rev;
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 );
learn_from_failure( ch, gsn_pick_lock );
check_room_for_traps( ch, TRAP_PICK | trap_door[pexit->vdir] );
return;
}
REMOVE_BIT(pexit->exit_info, EX_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( AT_ACTION, "$n picks the $d.", ch, NULL, pexit->keyword, TO_ROOM );
learn_from_success( ch, gsn_pick_lock );
adjust_favor( ch, 9, 1 );
/* pick the other side */
if ( ( pexit_rev = pexit->rexit ) != NULL
&& pexit_rev->to_room == ch->in_room )
{
REMOVE_BIT( pexit_rev->exit_info, EX_LOCKED );
}
check_room_for_traps( ch, TRAP_PICK | trap_door[pexit->vdir] );
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 );
learn_from_failure( ch, gsn_pick_lock );
check_for_trap( ch, obj, TRAP_PICK );
return;
}
separate_obj( obj );
REMOVE_BIT(obj->value[1], CONT_LOCKED);
send_to_char( "*Click*\n\r", ch );
act( AT_ACTION, "$n picks $p.", ch, obj, NULL, TO_ROOM );
learn_from_success( ch, gsn_pick_lock );
adjust_favor( ch, 9, 1 );
check_for_trap( ch, obj, TRAP_PICK );
return;
}
ch_printf( ch, "You see no %s here.\n\r", arg );
return;
}
void do_sneak( CHAR_DATA *ch, char *argument )
{
AFFECT_DATA af;
record_call("<do_sneak>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
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 * DUR_CONV;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = meb(AFF_SNEAK);
affect_to_char( ch, &af );
learn_from_success( ch, gsn_sneak );
}
else
learn_from_failure( ch, gsn_sneak );
return;
}
void do_hide( CHAR_DATA *ch, char *argument )
{
record_call("<do_hide>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
send_to_char( "You attempt to hide.\n\r", ch );
if ( IS_AFFECTED(ch, AFF_HIDE) )
xREMOVE_BIT(ch->affected_by, AFF_HIDE);
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_hide] )
{
xSET_BIT(ch->affected_by, AFF_HIDE);
learn_from_success( ch, gsn_hide );
}
else
learn_from_failure( ch, gsn_hide );
return;
}
/*
* Contributed by Alander.
*/
void do_visible( CHAR_DATA *ch, char *argument )
{
record_call("<do_visible>");
affect_strip ( ch, gsn_invis );
affect_strip ( ch, gsn_mass_invis );
affect_strip ( ch, gsn_sneak );
xREMOVE_BIT ( ch->affected_by, AFF_HIDE );
xREMOVE_BIT ( ch->affected_by, AFF_INVISIBLE );
if (ch->race != RACE_HALFLING) /* Halfling has perm sneak SB */
xREMOVE_BIT ( ch->affected_by, AFF_SNEAK );
send_to_char( "Ok.\n\r", ch );
return;
}
void do_dismiss( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't dismiss anyone in your frame of mind\n\r", ch );
return;
}
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Dismiss whom?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "You feel silly trying to dismiss yourself\n\r", ch );
return;
}
if ( victim->position < POS_INCAP )
{
send_to_char( "Little late for that isn't it\n\r", ch );
return;
}
if ( IS_NPC(victim) && IS_AFFECTED( victim, AFF_CHARM )
&& victim->master == ch )
{
xREMOVE_BIT ( victim->affected_by, AFF_CHARM );
send_to_char( "You dismiss them\n\r", ch );
do_follow( victim, "self" );
record_call("<do_dismiss>");
return;
}
}
void do_recall( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *location;
CHAR_DATA *opponent;
record_call("<do_recall>");
if ( !ch )
{
bug("Do_RECALL: NULL CH!");
return;
}
if ( !IS_NPC(ch) && !IS_SET( ch->pcdata->flagstwo, MOREPC_TOWNOUTCAST ) )
location = get_room_index( ROOM_VNUM_TEMPLE,1 );
else
location = get_room_index( ROOM_VNUM_CURSED,1 );
if ( !location )
{
bug("Do_Recall: NULL LOCATION!!!");
send_to_char( "You are completely lost.\n\r", ch );
return;
}
if ( !ch->in_room )
{
bug("DO_RECALL: NULL ch->in_room",0);
send_to_char( "You are completely lost.\n\r", ch );
return;
}
if ( ch->in_room == location )
{
send_to_char("But you are already here!\n\r",ch);
return;
}
if ( IS_SET(ch->in_room->room_flags, ROOM_NO_RECALL) )
{
send_to_char( "For some strange reason... nothing happens.\n\r", ch );
return;
}
if ( IS_AFFECTED(ch, AFF_CURSE) )
{
send_to_char("You are cursed and cannot recall!\n\r", ch );
return;
}
if ( ( opponent = who_fighting( ch ) ) != NULL )
{
if ( number_bits( 1 ) == 0 || ( !IS_NPC( opponent ) && number_bits( 3 ) > 1 ) )
{
WAIT_STATE( ch, 4 );
ch_printf( ch, "You failed!\n\r", 0);
return;
}
ch_printf( ch, "You recall from combat!\n\r", 0);
stop_fighting( ch, TRUE );
}
if (!IS_NPC(ch) && ch->in_room->sector_type == 15 )
do_checkout( ch, "");
act( AT_ACTION, "$n disappears in a swirl of smoke.", ch, NULL, NULL, TO_ROOM );
ch->move /= 2;
char_from_room( ch );
char_to_room( ch, location );
if ( ch->mount )
{
char_from_room( ch->mount );
char_to_room( ch->mount, location );
}
act( AT_ACTION, "$n appears in the room.", ch, NULL, NULL, TO_ROOM );
do_look( ch, "auto" );
return;
}
void do_aid( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
int percent;
record_call("<do_aid>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Aid whom?\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->mount )
{
send_to_char( "You can't do that while mounted.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "Aid yourself?\n\r", ch );
return;
}
if ( victim->position > POS_STUNNED )
{
act( AT_PLAIN, "$N doesn't need your help.", ch, NULL, victim,
TO_CHAR);
return;
}
if ( victim->hit <= -6 )
{
act( AT_PLAIN, "$N's condition is beyond your aiding ability.", ch,
NULL, victim, TO_CHAR);
return;
}
percent = number_percent( ) - (get_curr_lck(ch) - 13);
WAIT_STATE( ch, skill_table[gsn_aid]->beats );
if ( !IS_NPC(ch) && percent > ch->pcdata->learned[gsn_aid] )
{
send_to_char( "You fail.\n\r", ch );
learn_from_failure( ch, gsn_aid );
return;
}
act( AT_SKILL, "You aid $N!", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n aids $N!", ch, NULL, victim, TO_NOTVICT );
learn_from_success( ch, gsn_aid );
adjust_favor( ch, 8, 1 );
if ( victim->hit < 1 )
victim->hit = 1;
update_pos( victim );
act( AT_SKILL, "$n aids you!", ch, NULL, victim, TO_VICT );
return;
}
void do_mount( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_mount>");
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_mount]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_mount] ) ) )
{
send_to_char(
"I don't think that would be a good idea...\n\r", ch );
return;
}
if ( ch->mount )
{
send_to_char( "You're already mounted!\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, argument ) ) == NULL )
{
send_to_char( "You can't find that here.\n\r", ch );
return;
}
if ( !IS_NPC(victim) || !IS_SET(victim->act, ACT_MOUNTABLE ) )
{
send_to_char( "You can't mount that!\n\r", ch );
return;
}
if ( IS_SET(victim->act, ACT_MOUNTED ) )
{
send_to_char( "That mount already has a rider.\n\r", ch );
return;
}
if ( victim->position < POS_STANDING )
{
send_to_char( "Your mount must be standing.\n\r", ch );
return;
}
if ( victim->position == POS_FIGHTING || victim->fighting )
{
send_to_char( "Your mount is moving around too much.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_mount]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_mount] )
{
SET_BIT( victim->act, ACT_MOUNTED );
ch->mount = victim;
act( AT_SKILL, "You mount $N.", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n skillfully mounts $N.", ch, NULL, victim, TO_NOTVICT );
act( AT_SKILL, "$n mounts you.", ch, NULL, victim, TO_VICT );
learn_from_success( ch, gsn_mount );
ch->position = POS_MOUNTED;
}
else
{
act( AT_SKILL, "You unsuccessfully try to mount $N.", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n unsuccessfully attempts to mount $N.", ch, NULL, victim, TO_NOTVICT );
act( AT_SKILL, "$n tries to mount you.", ch, NULL, victim, TO_VICT );
learn_from_failure( ch, gsn_mount );
}
return;
}
void do_dismount( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
record_call("<do_dismount>");
if ( (victim = ch->mount) == NULL )
{
send_to_char( "You're not mounted.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_mount]->beats );
if ( IS_NPC(ch) || number_percent( ) < ch->pcdata->learned[gsn_mount] )
{
act( AT_SKILL, "You dismount $N.", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n skillfully dismounts $N.", ch, NULL, victim, TO_NOTVICT );
act( AT_SKILL, "$n dismounts you. Whew!", ch, NULL, victim, TO_VICT );
REMOVE_BIT( victim->act, ACT_MOUNTED );
ch->mount = NULL;
ch->position = POS_STANDING;
learn_from_success( ch, gsn_mount );
}
else
{
act( AT_SKILL, "You fall off while dismounting $N. Ouch!", ch, NULL, victim, TO_CHAR );
act( AT_SKILL, "$n falls off of $N while dismounting.", ch, NULL, victim, TO_NOTVICT );
act( AT_SKILL, "$n falls off your back.", ch, NULL, victim, TO_VICT );
learn_from_failure( ch, gsn_mount );
REMOVE_BIT( victim->act, ACT_MOUNTED );
ch->mount = NULL;
ch->position = POS_SITTING;
global_retcode = damage( ch, ch, 1, TYPE_UNDEFINED );
}
return;
}
/**************************************************************************/
/*
* Check for parry.
*/
bool check_parry( CHAR_DATA *ch, CHAR_DATA *victim )
{
int chances;
record_call("<check_parry>");
if ( !IS_AWAKE(victim) )
return FALSE;
if ( IS_NPC(victim) && !IS_SET(victim->defenses, DFND_PARRY) )
return FALSE;
if ( IS_NPC(victim) )
{
/* Tuan was here. :) */
chances = UMIN( 60, 2 * victim->level );
}
else
{
if ( get_eq_char( victim, WEAR_WIELD ) == NULL )
return FALSE;
chances = (int) (victim->pcdata->learned[gsn_parry] / 2);
}
/* Put in the call to chance() to allow penalties for misaligned
clannies. */
if ( !chance( victim, chances + victim->level - ch->level ) )
{
learn_from_failure( victim, gsn_parry );
return FALSE;
}
if ( !IS_NPC(victim)
&& !IS_SET( victim->pcdata->flags, PCFLAG_GAG) ) /*SB*/
act( AT_SKILL, "You parry $n's attack.", ch, NULL, victim, TO_VICT );
if ( !IS_NPC(ch)
&& !IS_SET( ch->pcdata->flags, PCFLAG_GAG) ) /* SB */
act( AT_SKILL, "$N parries your attack.", ch, NULL, victim, TO_CHAR );
learn_from_success( victim, gsn_parry );
return TRUE;
}
/*
* Check for dodge.
*/
bool check_dodge( CHAR_DATA *ch, CHAR_DATA *victim )
{
int chances;
record_call("<check_dodge>");
if ( !IS_AWAKE(victim) )
return FALSE;
if ( IS_NPC(victim) && !IS_SET(victim->defenses, DFND_DODGE) )
return FALSE;
if ( IS_NPC(victim) )
chances = UMIN( 60, 2 * victim->level );
else
chances = (int) (victim->pcdata->learned[gsn_dodge] / 2);
/* Consider luck as a factor */
if ( !chance( victim, chances + victim->level - ch->level ) )
{
learn_from_failure( victim, gsn_dodge );
return FALSE;
}
if ( !IS_NPC(victim) && !IS_SET( victim->pcdata->flags, PCFLAG_GAG) )
act( AT_SKILL, "You dodge $n's attack.", ch, NULL, victim, TO_VICT );
if ( !IS_NPC(ch) && !IS_SET( ch->pcdata->flags, PCFLAG_GAG) )
act( AT_SKILL, "$N dodges your attack.", ch, NULL, victim, TO_CHAR );
learn_from_success( victim, gsn_dodge );
return TRUE;
}
void do_poison_weapon( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
OBJ_DATA *pobj;
OBJ_DATA *wobj;
char arg [ MAX_INPUT_LENGTH ];
int percent;
record_call("<do_poison_weapon>");
if ( !IS_NPC( ch )
&& ( !CAN_USE_SK(ch, skill_table[gsn_poison_weapon]) &&
!CAN_USE_RACE_SK( ch, skill_table[gsn_poison_weapon] ) ) )
{
send_to_char( "What do you think you are, a thief?\n\r", ch );
return;
}
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "What are you trying to poison?\n\r", ch );
return;
}
if ( ch->fighting )
{
send_to_char( "While you're fighting? Nice try.\n\r", ch );
return;
}
if ( ms_find_obj(ch) )
return;
if ( !( obj = get_obj_carry( ch, arg ) ) )
{
send_to_char( "You do not have that weapon.\n\r", ch );
return;
}
if ( obj->item_type != ITEM_WEAPON )
{
send_to_char( "That item is not a weapon.\n\r", ch );
return;
}
if ( IS_OBJ_STAT( obj, ITEM_POISONED ) )
{
send_to_char( "That weapon is already poisoned.\n\r", ch );
return;
}
/* Now we have a valid weapon...check to see if we have the powder. */
for ( pobj = ch->first_carrying; pobj; pobj = pobj->next_content )
{
if ( pobj->pIndexData->vnum == OBJ_VNUM_BLACK_POWDER )
break;
}
if ( !pobj )
{
send_to_char( "You do not have the black poison powder.\n\r", ch );
return;
}
/* Okay, we have the powder...do we have water? */
for ( wobj = ch->first_carrying; wobj; wobj = wobj->next_content )
{
if ( wobj->item_type == ITEM_DRINK_CON
&& wobj->value[1] > 0
&& wobj->value[2] == 0 )
break;
}
if ( !wobj )
{
send_to_char( "You have no water to mix with the powder.\n\r", ch );
return;
}
/* Great, we have the ingredients...but is the thief smart enough? */
if ( !IS_NPC( ch ) && get_curr_wis( ch ) < 16 )
{
send_to_char( "You can't quite remember what to do...\n\r", ch );
return;
}
/* And does the thief have steady enough hands? */
if ( !IS_NPC( ch )
&& ( (get_curr_dex( ch ) < 17) || ch->pcdata->condition[COND_DRUNK] > 0 ) )
{
send_to_char("Your hands aren't steady enough to properly mix the poison.\n\r", ch );
return;
}
WAIT_STATE( ch, skill_table[gsn_poison_weapon]->beats );
percent = (number_percent( ) - get_curr_lck(ch) - 14);
/* Check the skill percentage */
separate_obj( pobj );
separate_obj( wobj );
if ( !IS_NPC( ch )
&& percent > ch->pcdata->learned[gsn_poison_weapon] )
{
set_char_color( AT_RED, ch );
send_to_char( "You failed and spill some on yourself. Ouch!\n\r", ch );
set_char_color( AT_GREY, ch );
damage( ch, ch, ch->level, gsn_poison_weapon );
act(AT_RED, "$n spills the poison all over!", ch, NULL, NULL, TO_ROOM );
extract_obj( pobj );
extract_obj( wobj );
learn_from_failure( ch, gsn_poison_weapon );
return;
}
separate_obj( obj );
/* Well, I'm tired of waiting. Are you? */
act(AT_RED, "You mix $p in $P, creating a deadly poison!", ch, pobj, wobj, TO_CHAR );
act(AT_RED, "$n mixes $p in $P, creating a deadly poison!",ch, pobj, wobj, TO_ROOM );
act(AT_GREEN, "You pour the poison over $p, which glistens wickedly!",ch, obj, NULL, TO_CHAR );
act(AT_GREEN, "$n pours the poison over $p, which glistens wickedly!",ch, obj, NULL, TO_ROOM );
SET_BIT( obj->extra_flags, ITEM_POISONED );
obj->cost *= ch->level;
/* Set an object timer. Don't want proliferation of poisoned weapons */
obj->timer = 10 + ch->level;
if ( IS_OBJ_STAT( obj, ITEM_BLESS ) )
obj->timer *= 2;
if ( IS_OBJ_STAT( obj, ITEM_MAGIC ) )
obj->timer *= 2;
/* WHAT? All of that, just for that one bit? How lame. ;) */
act(AT_BLUE, "The remainder of the poison eats through $p.", ch, wobj, NULL, TO_CHAR );
act(AT_BLUE, "The remainder of the poison eats through $p.", ch, wobj, NULL, TO_ROOM );
extract_obj( pobj );
extract_obj( wobj );
learn_from_success( ch, gsn_poison_weapon );
return;
}
void do_scribe( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *scroll;
int sn;
char buf1[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char buf3[MAX_STRING_LENGTH];
int mana;
record_call("<do_scribe>");
if ( IS_NPC(ch) )
return;
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_scribe]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_scribe] ) ) )
{
send_to_char( "A skill such as this requires more magical ability than that of your class.\n\r", ch );
return;
}
if ( argument[0] == '\0' || !str_cmp(argument, "") )
{
send_to_char( "Scribe what?\n\r", ch );
return;
}
if ( ms_find_obj(ch) )
return;
if ( (sn = find_spell( ch, argument, TRUE )) < 0 )
{
send_to_char( "You have not learned that spell.\n\r", ch );
return;
}
if ( skill_table[sn]->spell_fun == spell_null )
{
send_to_char( "That's not a spell!\n\r", ch );
return;
}
if ( SPELL_FLAG(skill_table[sn], SF_NOSCRIBE) )
{
send_to_char( "You cannot scribe that spell.\n\r", ch );
return;
}
mana = IS_NPC(ch) ? 0 : UMAX(skill_table[sn]->min_mana,
100 / ( 2 + ch->level - SP_MANA(ch, skill_table[sn]) ) );
mana *=5;
if ( !IS_NPC(ch) && ch->mana < mana )
{
send_to_char( "You don't have enough mana.\n\r", ch );
return;
}
if ( ( scroll = get_eq_char( ch, WEAR_HOLD ) ) == NULL )
{
send_to_char( "You must be holding a blank scroll to scribe it.\n\r", ch );
return;
}
if( scroll->pIndexData->vnum != OBJ_VNUM_SCROLL_SCRIBING )
{
send_to_char( "You must be holding a blank scroll to scribe it.\n\r", ch );
return;
}
if ( ( scroll->value[1] != -1 )
&& ( scroll->pIndexData->vnum == OBJ_VNUM_SCROLL_SCRIBING ) )
{
send_to_char( "That scroll has already been inscribed.\n\r", ch);
return;
}
if ( !process_spell_components( ch, sn ) )
{
learn_from_failure( ch, gsn_scribe );
ch->mana -= (mana / 2);
return;
}
if ( !IS_NPC(ch) && number_percent( ) > ch->pcdata->learned[gsn_scribe] )
{
set_char_color ( AT_MAGIC, ch );
send_to_char("You failed.\n\r", ch);
learn_from_failure( ch, gsn_scribe );
ch->mana -= (mana / 2);
return;
}
scroll->value[1] = sn;
scroll->value[0] = ch->level;
sprintf(buf1, "%s scroll", skill_table[sn]->name);
STRFREE(scroll->short_descr);
scroll->short_descr = STRALLOC( aoran(buf1) );
sprintf(buf2, "A glowing scroll inscribed '%s' lies in the dust.",
skill_table[sn]->name);
STRFREE(scroll->description);
scroll->description = STRALLOC(buf2);
sprintf(buf3, "scroll scribing %s", skill_table[sn]->name);
STRFREE(scroll->name);
scroll->name = STRALLOC(buf3);
act( AT_MAGIC, "$n magically scribes $p.", ch,scroll, NULL, TO_ROOM );
act( AT_MAGIC, "You magically scribe $p.", ch,scroll, NULL, TO_CHAR );
learn_from_success( ch, gsn_scribe );
ch->mana -= mana;
}
void do_brew( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *potion;
OBJ_DATA *fire;
int sn;
char buf1[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char buf3[MAX_STRING_LENGTH];
int mana;
bool found;
record_call("<do_brew>");
if ( IS_NPC(ch) )
return;
if ( !IS_NPC(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_brew]) &&
!CAN_USE_RACE_SK( ch, skill_table[gsn_brew] ) ) )
{
send_to_char( "A skill such as this requires more magical ability than that of your class.\n\r", ch );
return;
}
if ( argument[0] == '\0' || !str_cmp(argument, "") )
{
send_to_char( "Brew what?\n\r", ch );
return;
}
if ( ms_find_obj(ch) )
return;
if ( (sn = find_spell( ch, argument, TRUE )) < 0 )
{
send_to_char( "You have not learned that spell.\n\r", ch );
return;
}
if ( skill_table[sn]->spell_fun == spell_null )
{
send_to_char( "That's not a spell!\n\r", ch );
return;
}
if ( SPELL_FLAG(skill_table[sn], SF_NOBREW) )
{
send_to_char( "You cannot brew that spell.\n\r", ch );
return;
}
mana = IS_NPC(ch) ? 0 : UMAX(skill_table[sn]->min_mana,
100 / ( 2 + ch->level - SP_MANA(ch, skill_table[sn]) ) );
mana *=4;
if ( !IS_NPC(ch) && ch->mana < mana )
{
send_to_char( "You don't have enough mana.\n\r", ch );
return;
}
found = FALSE;
for ( fire = ch->in_room->first_content; fire;
fire = fire->next_content )
{
if( fire->item_type == ITEM_FIRE)
{
found = TRUE;
break;
}
}
if ( !found )
{
send_to_char(
"There must be a fire in the room to brew a potion.\n\r", ch );
return;
}
if ( ( potion = get_eq_char( ch, WEAR_HOLD ) ) == NULL )
{
send_to_char(
"You must be holding an empty flask to brew a potion.\n\r", ch );
return;
}
if( potion->pIndexData->vnum != OBJ_VNUM_FLASK_BREWING )
{
send_to_char( "You must be holding an empty flask to brew a potion.\n\r", ch );
return;
}
if ( ( potion->value[1] != -1 )
&& ( potion->pIndexData->vnum == OBJ_VNUM_FLASK_BREWING ) )
{
send_to_char( "That's not an empty flask.\n\r", ch);
return;
}
if ( !process_spell_components( ch, sn ) )
{
learn_from_failure( ch, gsn_brew );
ch->mana -= (mana / 2);
return;
}
if ( !IS_NPC(ch) && number_percent( ) > ch->pcdata->learned[gsn_brew] )
{
set_char_color ( AT_MAGIC, ch );
send_to_char("You failed.\n\r", ch);
learn_from_failure( ch, gsn_brew );
ch->mana -= (mana / 2);
return;
}
potion->value[1] = sn;
potion->value[0] = ch->level;
sprintf(buf1, "%s potion", skill_table[sn]->name);
STRFREE(potion->short_descr);
potion->short_descr = STRALLOC( aoran(buf1) );
sprintf(buf2, "A strange potion labelled '%s' sizzles in a glass flask.",
skill_table[sn]->name);
STRFREE(potion->description);
potion->description = STRALLOC(buf2);
sprintf(buf3, "flask potion %s", skill_table[sn]->name);
STRFREE(potion->name);
potion->name = STRALLOC(buf3);
act( AT_MAGIC, "$n brews up $p.", ch,potion, NULL, TO_ROOM );
act( AT_MAGIC, "You brew up $p.", ch,potion, NULL, TO_CHAR );
learn_from_success( ch, gsn_brew );
ch->mana -= mana;
}
bool check_grip( CHAR_DATA *ch, CHAR_DATA *victim )
{
int chance;
record_call("<check_grip>");
if ( !IS_AWAKE(victim) )
return FALSE;
if ( IS_NPC(victim) && !IS_SET(victim->defenses, DFND_GRIP) )
return FALSE;
if ( IS_NPC(victim) )
chance = UMIN( 60, 2 * victim->level );
else
chance = (int) (victim->pcdata->learned[gsn_grip] / 2);
/* Consider luck as a factor */
chance += (2 * (get_curr_lck(victim) - 13 ) );
if ( number_percent( ) >= chance + victim->level - ch->level )
{
learn_from_failure( victim, gsn_grip );
return FALSE;
}
act( AT_SKILL, "You evade $n's attempt to disarm you.", ch, NULL, victim, TO_VICT );
act( AT_SKILL, "$N holds $S weapon strongly, and is not disarmed.",
ch, NULL, victim, TO_CHAR );
learn_from_success( victim, gsn_grip );
return TRUE;
}
void do_circle( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
OBJ_DATA *obj;
int percent;
record_call("<do_circle>");
if ( IS_NPC(ch) && IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You can't concentrate enough for that.\n\r", ch );
return;
}
one_argument( argument, arg );
if ( ch->mount )
{
send_to_char( "You can't circle while mounted.\n\r", ch );
return;
}
if ( arg[0] == '\0' )
{
send_to_char( "Circle around whom?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "How can you sneak up on yourself?\n\r", ch );
return;
}
if ( is_safe( ch, victim ) )
return;
if ( ( obj = get_eq_char( ch, WEAR_WIELD ) ) == NULL
|| ( obj->value[3] != 11 && obj->value[3] != 2 ) )
{
send_to_char( "You need to wield a piercing or stabbing weapon.\n\r", ch );
return;
}
if ( !ch->fighting )
{
send_to_char( "You can't circle when you aren't fighting.\n\r", ch);
return;
}
if ( !victim->fighting )
{
send_to_char( "You can't circle around a person who is not fighting.\n\r", ch );
return;
}
if ( victim->num_fighting < 2 )
{
act( AT_PLAIN, "You can't circle around them without a distraction.",
ch, NULL, victim, TO_CHAR );
return;
}
percent = number_percent( ) - (get_curr_lck(ch) - 16)
+ (get_curr_lck(victim) - 13);
// check_attacker( ch, victim );
/* WAIT_STATE( ch, skill_table[gsn_circle]->beats ); */
if ( percent < (IS_NPC(ch) ? (ch->level * 1.5) : ch->pcdata->learned[gsn_circle]) )
{
learn_from_success( ch, gsn_circle );
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
global_retcode = multi_hit( ch, victim, gsn_circle );
adjust_favor( ch, 10, 1 );
// check_illegal_pk( ch, victim );
if ( !check_pk_ok(victim,ch) )
return;
}
else
{
learn_from_failure( ch, gsn_circle );
WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
global_retcode = damage( ch, victim, 0, gsn_circle );
}
return;
}
/* Berserk and HitAll. -- Altrag */
void do_berserk( CHAR_DATA *ch, char *argument )
{
sh_int percent;
AFFECT_DATA af;
record_call("<do_berserk>");
if ( !ch->fighting )
{
send_to_char( "But you aren't fighting!\n\r", ch );
return;
}
if ( IS_AFFECTED(ch, AFF_BERSERK) )
{
send_to_char( "Your rage is already at its peak!\n\r", ch );
return;
}
percent = IS_NPC(ch) ? 80 : ch->pcdata->learned[gsn_berserk];
WAIT_STATE(ch, skill_table[gsn_berserk]->beats);
if ( !chance(ch, percent) )
{
send_to_char( "You couldn't build up enough rage.\n\r", ch);
learn_from_failure(ch, gsn_berserk);
return;
}
af.type = gsn_berserk;
/* Hmmm.. 10-20 combat rounds at level 50.. good enough for most mobs,
and if not they can always go berserk again.. shrug.. maybe even
too high. -- Altrag */
af.duration = number_range(ch->level/5, ch->level*2/5);
/* Hmm.. you get stronger when yer really enraged.. mind over matter
type thing.. */
af.location = APPLY_STR;
af.modifier = 1;
af.bitvector = meb(AFF_BERSERK);
affect_to_char(ch, &af);
send_to_char( "You start to lose control..\n\r", ch );
learn_from_success(ch, gsn_berserk);
return;
}
/* External from fight.c */
ch_ret one_hit args( ( CHAR_DATA *ch, CHAR_DATA *victim, int dt ) );
void do_hitall( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
sh_int nvict = 0;
sh_int nhit = 0;
sh_int percent;
record_call("<do_hitall>");
if ( IS_SET(ch->in_room->room_flags, ROOM_SAFE) )
{
send_to_char( "You cannot do that here.\n\r", ch);
return;
}
if ( !ch->in_room->first_person )
{
send_to_char( "There's no one here!\n\r", ch );
return;
}
percent = IS_NPC(ch) ? 80 : ch->pcdata->learned[gsn_hitall];
for ( vch = ch->in_room->first_person; vch; vch = vch_next )
{
vch_next = vch->next_in_room;
if ( is_same_group(ch, vch) || !is_legal_kill(ch, vch) ||
!can_see(ch, vch) || is_safe(ch, vch) || !IS_NPC(vch) )
continue;
if ( ++nvict > ch->level / 5 )
break;
// check_illegal_pk(ch, vch);
if ( !check_pk_ok(vch,ch) )
return;
if ( chance(ch, percent) )
{
nhit++;
global_retcode = one_hit(ch, vch, TYPE_UNDEFINED);
}
else
global_retcode = damage(ch, vch, 0, TYPE_UNDEFINED);
/* Fireshield, etc. could kill ch too.. :>.. -- Altrag */
if ( global_retcode == rCHAR_DIED || global_retcode == rBOTH_DIED
|| char_died(ch) )
return;
}
if ( !nvict )
{
send_to_char( "There's no one here!\n\r", ch );
return;
}
ch->move = UMAX(0, ch->move-nvict*3+nhit);
if ( nhit )
learn_from_success(ch, gsn_hitall);
else
learn_from_failure(ch, gsn_hitall);
return;
}
bool check_illegal_psteal( CHAR_DATA *ch, CHAR_DATA *victim )
{
record_call("<check_illegal_psteal>");
if (!IS_NPC (victim) && !IS_NPC(ch))
{
if ( ( !IS_SET( victim->pcdata->flags, PCFLAG_DEADLY )
|| ch->level - victim->level > 10
|| !IS_SET( ch->pcdata->flags, PCFLAG_DEADLY ) )
&& ( ch->in_room->vnum < 29 || ch->in_room->vnum > 43 )
&& ch != victim )
{
/*
sprintf( log_buf, "%s illegally stealing from %s at %d",
(IS_NPC(ch) ? ch->short_descr : ch->name),
victim->name,
victim->in_room->vnum );
log_string( log_buf );
to_channel( log_buf, CHANNEL_MONITOR, "[ ** ", LEVEL_IMMORTAL );
*/
return TRUE;
}
}
return FALSE;
}
void do_scan( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *was_in_room;
EXIT_DATA *pexit;
sh_int dir = -1;
sh_int dist;
sh_int max_dist = 5;
record_call("<do_scan>");
if ( argument[0] == '\0' )
{
send_to_char( "Scan in a direction...\n\r", ch );
return;
}
if ( ( dir = get_door( argument ) ) == -1 )
{
send_to_char( "Scan in WHAT direction?\n\r", ch );
return;
}
was_in_room = ch->in_room;
act( AT_GREY, "Scanning $t...", ch, dir_name[dir], NULL, TO_CHAR );
act( AT_GREY, "$n scans $t.", ch, dir_name[dir], NULL, TO_ROOM );
if ( IS_NPC( ch )
|| ( number_percent() > ch->pcdata->learned[gsn_scan] ) )
{
act( AT_GREY, "You stop scanning $t as your vision blurs.", ch,
dir_name[dir], NULL, TO_CHAR );
learn_from_failure( ch, gsn_scan );
return;
}
if ( IS_VAMPIRE( ch ) )
{
if ( time_info.hour < 21 && time_info.hour > 5 )
{
send_to_char( "You have trouble seeing clearly through all the "
"light.\n\r", ch );
max_dist = 1;
}
}
if ( ( pexit = get_exit( ch->in_room, dir ) ) == NULL )
{
act( AT_GREY, "You can't see $t.", ch, dir_name[dir], NULL, TO_CHAR );
return;
}
if ( ch->level < 50 ) max_dist--;
if ( ch->level < 40 ) max_dist--;
for ( dist = 1; dist <= max_dist; )
{
if ( IS_SET( pexit->exit_info, EX_CLOSED ) )
{
if ( IS_SET( pexit->exit_info, EX_SECRET ) )
act( AT_GREY, "Your view $t is blocked by a wall.", ch,
dir_name[dir], NULL, TO_CHAR );
else
act( AT_GREY, "Your view $t is blocked by a door.", ch,
dir_name[dir], NULL, TO_CHAR );
break;
}
if ( room_is_private( pexit->to_room )
&& ch->level < LEVEL_GOD )
{
act( AT_GREY, "Your view $t is blocked by a private room.", ch,
dir_name[dir], NULL, TO_CHAR );
break;
}
char_from_room( ch );
char_to_room( ch, pexit->to_room );
set_char_color( AT_RMNAME, ch );
send_to_char( ch->in_room->name, ch );
send_to_char( "\n\r", ch );
show_list_to_char( ch->in_room->first_content, ch, FALSE, FALSE );
show_char_to_char( ch->in_room->first_person, ch );
switch( ch->in_room->sector_type )
{
default: dist++; break;
case SECT_AIR:
if ( number_percent() < 80 ) dist++; break;
case SECT_INSIDE:
case SECT_FIELD:
case SECT_UNDERGROUND:
dist++; break;
case SECT_FOREST:
case SECT_CITY:
case SECT_DESERT:
case SECT_HILLS:
dist += 2; break;
case SECT_WATER_SWIM:
case SECT_WATER_NOSWIM:
dist += 3; break;
case SECT_MOUNTAIN:
case SECT_UNDERWATER:
case SECT_OCEANFLOOR:
dist += 4; break;
}
if ( dist >= max_dist )
{
act( AT_GREY, "Your vision blurs with distance and you see no "
"farther $t.", ch, dir_name[dir], NULL, TO_CHAR );
break;
}
if ( ( pexit = get_exit( ch->in_room, dir ) ) == NULL )
{
act( AT_GREY, "Your view $t is blocked by a wall.", ch,
dir_name[dir], NULL, TO_CHAR );
break;
}
}
char_from_room( ch );
char_to_room( ch, was_in_room );
learn_from_success( ch, gsn_scan );
return;
}
/*
*
*
void do_release( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
OBJ_INDEX_DATA *arrow;
OBJ_DATA *quiver;
OBJ_DATA *bow;
EXIT_DATA *pexit;
ROOM_INDEX_DATA *was_in_room;
char arg[MAX_INPUT_LENGTH];
char arg1[MAX_INPUT_LENGTH];
sh_int dir;
sh_int dist;
sh_int max_dist = 3;
record_call("<do_release>");
for ( bow = ch->last_carrying; bow; bow = bow->prev_content )
{
if ( can_see_obj( ch, bow )
&& ( bow->wear_loc == WEAR_WIELDED
|| bow->wear_loc == WEAR_DUAL_WIELDED )
&& ( ( bow->item_type == ITEM_SHORT_BOW ) || ( bow->item_type ==
ITEM_LONG_BOW ) || ( bow->item_type == ITEM_CROSS_BOW ) ) )
break;
}
if ( !bow )
{
send_to_char( "You are not wielding a bow.\n\r", ch );
return;
}
switch ( bow->item_type )
{
case ITEM_SHORT_BOW: max_dist = 4; break;
case ITEM_LONG_BOW: max_dist = 5; break;
case ITEM_CROSS_BOW: max_dist = 6; break;
}
for ( quiver = ch->last_carrying; quiver; quiver = quiver->prev )
{
if ( can_see_obj( ch, quiver )
&& ( quiver->item_type == ITEM_QUIVER ) )
break;
}
for ( arrow = ch->last_carrying; arrow; arrow = arrow->prev )
{
if ( can_see_obj( ch, arrow )
&& ( arrow->item_type == ITEM_PROJECTILE ) )
break;
}
if ( ( dir = get_door( arg ) ) == -1 )
{
send_to_char( "Aim in what direction?\n\r", ch );
return;
}
if ( ( pexit = get_exit( ch->in_room, dir ) ) == NULL )
{
send_to_char( "Are you expecting to fire through a wall!?\n\r", ch );
return;
}
if ( IS_SET( pexit->exit_info, EX_CLOSED ) )
{
send_to_char( "Are you expecting to fire through a door!?\n\r", ch );
return;
}
was_in_room = ch->in_room;
act( AT_GREY, "You release an arrow $t.", ch, dir_name[dir], NULL,
TO_CHAR );
act( AT_GREY, "$n releases an arrow $t.", ch, dir_name[dir], NULL,
TO_ROOM );
for ( dist = 0; dist <= max_dist; )
{
if ( IS_SET( pexit->exit_info, EX_CLOSED ) )
{
act( AT_GREY, "You see your arrow pierce a door in the distance.",
ch, NULL, NULL, TO_CHAR );
break;
}
char_from_room( ch );
char_to_room( ch, pexit->to_room );
if ( ( victim = get_char_room( ch, arg1 ) ) != NULL )
{
}
if ( dist == max_dist ) break;
if ( ( pexit = get_exit( ch->in_room, dir ) ) == NULL )
{
}
}
char_from_room( ch );
char_to_room( ch, was_in_room );
return;
}
*/
/* -- working on --
* Syntaxes: throw object (assumed already fighting)
* throw object direction target (all needed args for distance
* throwing)
* throw object (assumed same room throw)
void do_throw( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *was_in_room;
CHAR_DATA *victim;
OBJ_DATA *throw_obj;
EXIT_DATA *pexit;
sh_int dir;
sh_int dist;
sh_int max_dist = 3;
char arg[MAX_INPUT_LENGTH];
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
argument = one_argument( argument, arg );
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
record_call("<do_throw>");
for ( throw_obj = ch->last_carrying; throw_obj;
throw_obj = throw_obj=>prev_content )
{
if ( can_see_obj( ch, throw_obj )
&& ( throw_obj->wear_loc == WEAR_HELD || throw_obj->wear_loc ==
WEAR_WIELDED || throw_obj->wear_loc == WEAR_DUAL_WIELDED )
&& nifty_is_name( arg, throw_obj->name ) )
break;
}
if ( !throw_obj )
{
send_to_char( "You aren't holding or wielding anything like that.\n\r",
ch );
return;
}
if ( ( throw_obj->item_type != ITEM_WEAPON)
{
send_to_char("You can only throw weapons.\n\r", ch );
return;
}
if (get_obj_weight( throw_obj ) - ( 3 * (get_curr_str(ch) - 15) ) > 0)
{
send_to_char("That is too heavy for you to throw.\n\r", ch);
learn_from_failure( ch, gsn_throw );
return;
}
if ( ch->fighting )
victim = ch->fighting;
else
{
if ( ( ( victim = get_char_room( ch, arg1 ) ) == NULL )
&& ( arg2[0] == '\0' ) )
{
act( AT_GREY, "Throw $t at whom?", ch, obj->short_descr, NULL,
TO_CHAR );
return;
}
}
}*/
void do_slice( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *corpse;
OBJ_DATA *obj;
OBJ_DATA *slice;
bool found;
MOB_INDEX_DATA *pMobIndex;
char buf[MAX_STRING_LENGTH];
char buf1[MAX_STRING_LENGTH];
found = FALSE;
record_call("<do_slice>");
if ( !IS_NPC(ch) && !IS_IMMORTAL(ch)
&& ( !CAN_USE_SK(ch, skill_table[gsn_kick]) &&
!CAN_USE_RACE_SK(ch, skill_table[gsn_kick] ) ) )
{
send_to_char("You are not learned in this skill.\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char("From what do you wish to slice meat?\n\r", ch);
return;
}
if ( ( obj = get_eq_char( ch, WEAR_WIELD ) ) == NULL
|| ( obj->value[3] != 1 && obj->value[3] != 2 && obj->value[3] != 3
&& obj->value[3] != 11) )
{
send_to_char( "You need to wield a sharp weapon.\n\r", ch);
return;
}
if ( (corpse = get_obj_here( ch, argument )) == NULL)
{
send_to_char("You can't find that here.\n\r", ch);
return;
}
if (corpse->item_type != ITEM_CORPSE_NPC || corpse->value[3] < 3)
{
send_to_char("That is not a suitable source of meat.\n\r", ch);
return;
}
if ( (pMobIndex = get_mob_index((sh_int)-(corpse->value[2]),ch->in_room->area->zone->number )) == NULL )
{
bug("Can not find mob for value[2] of corpse, do_slice", 0);
return;
}
if ( get_obj_index(OBJ_VNUM_SLICE,1) == NULL )
{
bug("Vnum 24 not found for do_slice!", 0);
return;
}
if ( !IS_NPC(ch) && !IS_IMMORTAL(ch) && number_percent() > ch->pcdata->learned[gsn_slice] )
{
send_to_char("You fail to slice the meat properly.\n\r", ch);
learn_from_failure(ch, gsn_slice); /* Just in case they die :> */
if ( number_percent() + (get_curr_dex(ch) - 13) < 10)
{
act(AT_BLOOD, "You cut yourself!", ch, NULL, NULL, TO_CHAR);
damage(ch, ch, ch->level, gsn_slice);
}
return;
}
slice = create_object( get_obj_index(OBJ_VNUM_SLICE,1), 0,first_zone );
sprintf(buf, "meat fresh slice %s", pMobIndex->player_name);
STRFREE(slice->name);
slice->name = STRALLOC(buf);
sprintf(buf, "a slice of raw meat from %s", pMobIndex->short_descr);
STRFREE(slice->short_descr);
slice->short_descr = STRALLOC(buf);
sprintf(buf1, "A slice of raw meat from %s lies on the ground.", pMobIndex->short_descr);
STRFREE(slice->description);
slice->description = STRALLOC(buf1);
act( AT_BLOOD, "$n cuts a slice of meat from $p.", ch, corpse, NULL, TO_ROOM);
act( AT_BLOOD, "You cut a slice of meat from $p.", ch, corpse, NULL, TO_CHAR);
obj_to_char(slice, ch);
corpse->value[3] -= 25;
learn_from_success(ch, gsn_slice);
return;
}
void do_shove( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
int exit_dir;
EXIT_DATA *pexit;
CHAR_DATA *victim;
bool nogo;
ROOM_INDEX_DATA *to_room;
int chance=0;
int race_bonus=0;
argument = one_argument( argument, arg );
argument = one_argument( argument, arg2 );
if ( IS_NPC(ch)
|| !IS_SET( ch->pcdata->flags, PCFLAG_DEADLY ) )
{
send_to_char("Only deadly characters can shove.\n\r", ch);
return;
}
if ( arg[0] == '\0' )
{
send_to_char( "Shove whom?\n\r", ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch);
return;
}
if (victim == ch)
{
send_to_char("You shove yourself around, to no avail.\n\r", ch);
return;
}
if ( IS_NPC(victim)
|| !IS_SET( victim->pcdata->flags, PCFLAG_DEADLY ) )
{
send_to_char("You can only shove deadly characters.\n\r", ch);
return;
}
if ( ch->level - victim->level > 5
|| victim->level - ch->level > 5 )
{
send_to_char("There is too great an experience difference for you to even bother.\n\r", ch);
return;
}
if ( (victim->position) != POS_STANDING )
{
act( AT_PLAIN, "$N isn't standing up.", ch, NULL, victim, TO_CHAR );
return;
}
if ( arg2[0] == '\0' )
{
send_to_char( "Shove them in which direction?\n\r", ch);
return;
}
exit_dir = get_dir( arg2 );
if ( IS_SET(victim->in_room->room_flags, ROOM_SAFE)
&& get_timer(victim, TIMER_SHOVEDRAG) <= 0)
{
send_to_char("That character cannot be shoved right now.\n\r", ch);
return;
}
victim->position = POS_SHOVE;
nogo = FALSE;
if ((pexit = get_exit(ch->in_room, exit_dir)) == NULL )
nogo = TRUE;
else
if ( IS_SET(pexit->exit_info, EX_CLOSED)
&& (!IS_AFFECTED(victim, AFF_PASS_DOOR)
|| IS_SET(pexit->exit_info, EX_NOPASSDOOR)) )
nogo = TRUE;
if ( nogo )
{
send_to_char( "There's no exit in that direction.\n\r", ch );
victim->position = POS_STANDING;
return;
}
to_room = pexit->to_room;
if (IS_SET(to_room->room_flags, ROOM_DEATH))
{
send_to_char("You cannot shove someone into a death trap.\n\r", ch);
victim->position = POS_STANDING;
return;
}
if (ch->in_room->area != to_room->area
&& !in_hard_range( victim, to_room->area ) )
{
send_to_char("That character cannot enter that area.\n\r", ch);
victim->position = POS_STANDING;
return;
}
/* Check for class, assign percentage based on that. */
if (ch->class == CLASS_WARRIOR)
chance = 70;
if (ch->class == CLASS_VAMPIRE)
chance = 65;
if (ch->class == CLASS_RANGER)
chance = 60;
if (ch->class == CLASS_DRUID)
chance = 45;
if (ch->class == CLASS_CLERIC)
chance = 35;
if (ch->class == CLASS_THIEF)
chance = 30;
if (ch->class == CLASS_MAGE)
chance = 15;
/* Add 3 points to chance for every str point above 15, subtract for
below 15 */
chance += ((get_curr_str(ch) - 15) * 3);
chance += (ch->level - victim->level);
if (ch->race == 1)
race_bonus = -3;
if (ch->race == 2)
race_bonus = 3;
if (ch->race == 3)
race_bonus = -5;
if (ch->race == 4)
race_bonus = -7;
if (ch->race == 6)
race_bonus = 5;
if (ch->race == 7)
race_bonus = 7;
if (ch->race == 8)
race_bonus = 10;
if (ch->race == 9)
race_bonus = -2;
chance += race_bonus;
/* Debugging purposes - show percentage for testing */
/* sprintf(buf, "Shove percentage of %s = %d", ch->name, chance);
act( AT_ACTION, buf, ch, NULL, NULL, TO_ROOM );
*/
if (chance < number_percent( ))
{
send_to_char("You failed.\n\r", ch);
victim->position = POS_STANDING;
return;
}
act( AT_ACTION, "You shove $M.", ch, NULL, victim, TO_CHAR );
act( AT_ACTION, "$n shoves you.", ch, NULL, victim, TO_VICT );
move_char( victim, get_exit(ch->in_room,exit_dir), 0, FALSE);
if ( !char_died(victim) )
victim->position = POS_STANDING;
WAIT_STATE(ch, 12);
/* Remove protection from shove/drag if char shoves -- Blodkai */
if ( IS_SET(ch->in_room->room_flags, ROOM_SAFE)
&& get_timer(ch, TIMER_SHOVEDRAG) <= 0 )
add_timer( ch, TIMER_SHOVEDRAG, 10, NULL, 0 );
}
void do_drag( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
int exit_dir;
CHAR_DATA *victim;
EXIT_DATA *pexit;
ROOM_INDEX_DATA *to_room;
bool nogo;
int chance=0;
int race_bonus=0;
argument = one_argument( argument, arg );
argument = one_argument( argument, arg2 );
if ( IS_NPC(ch)
|| !IS_SET( ch->pcdata->flags, PCFLAG_DEADLY ) )
{
send_to_char("Only deadly characters can drag.\n\r", ch);
return;
}
if ( arg[0] == '\0' )
{
send_to_char( "Drag whom?\n\r", ch);
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch);
return;
}
if ( victim == ch )
{
send_to_char("You take yourself by the scruff of your neck, but go nowhere.\n\r", ch);
return;
}
if ( IS_NPC(victim)
|| !IS_SET( victim->pcdata->flags, PCFLAG_DEADLY ) )
{
send_to_char("You can only drag deadly characters.\n\r", ch);
return;
}
if ( victim->fighting )
{
send_to_char( "You try, but can't get close enough.\n\r", ch);
return;
}
if ( arg2[0] == '\0' )
{
send_to_char( "Drag them in which direction?\n\r", ch);
return;
}
if ( ch->level - victim->level > 5
|| victim->level - ch->level > 5 )
{
send_to_char("There is too great an experience difference for you to even bother.\n\r", ch);
return;
}
exit_dir = get_dir( arg2 );
if ( IS_SET(victim->in_room->room_flags, ROOM_SAFE)
&& get_timer( victim, TIMER_SHOVEDRAG ) <= 0)
{
send_to_char("That character cannot be dragged right now.\n\r", ch);
return;
}
nogo = FALSE;
if ((pexit = get_exit(ch->in_room, exit_dir)) == NULL )
nogo = TRUE;
else
if ( IS_SET(pexit->exit_info, EX_CLOSED)
&& (!IS_AFFECTED(victim, AFF_PASS_DOOR)
|| IS_SET(pexit->exit_info, EX_NOPASSDOOR)) )
nogo = TRUE;
if ( nogo )
{
send_to_char( "There's no exit in that direction.\n\r", ch );
return;
}
to_room = pexit->to_room;
if (IS_SET(to_room->room_flags, ROOM_DEATH))
{
send_to_char("You cannot drag someone into a death trap.\n\r", ch);
return;
}
if (ch->in_room->area != to_room->area
&& !in_hard_range( victim, to_room->area ) )
{
send_to_char("That character cannot enter that area.\n\r", ch);
victim->position = POS_STANDING;
return;
}
/* Check for class, assign percentage based on that. */
if (ch->class == CLASS_WARRIOR)
chance = 70;
if (ch->class == CLASS_VAMPIRE)
chance = 65;
if (ch->class == CLASS_RANGER)
chance = 60;
if (ch->class == CLASS_DRUID)
chance = 45;
if (ch->class == CLASS_CLERIC)
chance = 35;
if (ch->class == CLASS_THIEF)
chance = 30;
if (ch->class == CLASS_MAGE)
chance = 15;
/* Add 3 points to chance for every str point above 15, subtract for
below 15 */
chance += ((get_curr_str(ch) - 15) * 3);
chance += (ch->level - victim->level);
if (ch->race == 1)
race_bonus = -3;
if (ch->race == 2)
race_bonus = 3;
if (ch->race == 3)
race_bonus = -5;
if (ch->race == 4)
race_bonus = -7;
if (ch->race == 6)
race_bonus = 5;
if (ch->race == 7)
race_bonus = 7;
if (ch->race == 8)
race_bonus = 10;
if (ch->race == 9)
race_bonus = -2;
chance += race_bonus;
/*
sprintf(buf, "Drag percentage of %s = %d", ch->name, chance);
act( AT_ACTION, buf, ch, NULL, NULL, TO_ROOM );
*/
if (chance < number_percent( ))
{
send_to_char("You failed.\n\r", ch);
victim->position = POS_STANDING;
return;
}
if ( victim->position < POS_STANDING )
{
sh_int temp;
temp = victim->position;
victim->position = POS_DRAG;
act( AT_ACTION, "You drag $M into the next room.", ch, NULL, victim, TO_CHAR );
act( AT_ACTION, "$n grabs your hair and drags you.", ch, NULL, victim, TO_VICT );
move_char( victim, get_exit(ch->in_room,exit_dir), 0,FALSE);
if ( !char_died(victim) )
victim->position = temp;
/* Move ch to the room too.. they are doing dragging - Scryn */
move_char( ch, get_exit(ch->in_room,exit_dir), 0, FALSE);
WAIT_STATE(ch, 12);
return;
}
send_to_char("You cannot do that to someone who is standing.\n\r", ch);
return;
}