/*
* Contributed by Alander.
*/
void do_visible (CHAR_DATA * ch, char *argument)
{
affect_strip (ch, gsn_invis);
affect_strip (ch, gsn_mass_invis);
affect_strip (ch, gsn_sneak);
send_to_char ("Ok.\n\r", ch);
return;
}
/*
* Enhanced recovery will allow the recipient to heal more on every tick. Originally this
* spell was written for another class (on 5/26/2000) but it fits better under a healer.
*/
void spell_enhanced_recovery(int sn, int level, CHAR_DATA *ch, void *vo, int target)
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
AFFECT_DATA af;
if (is_affected(victim, sn))
{
if (victim == ch)
{
// Remove the affect so it can be re-added to yourself
affect_strip(victim, sn);
}
else
{
act("$N is already blessed with enhanced recovery.", ch, NULL, victim, TO_CHAR);
return;
}
}
af.where = TO_AFFECTS;
af.type = sn;
af.level = level;
af.duration = (ch->level / 2);
af.modifier = 0;
af.location = APPLY_NONE;
af.bitvector = 0;
affect_to_char(victim, &af);
act("$N has been blessed with an enhanced recovery.", victim, NULL, victim, TO_ROOM);
send_to_char("You feel blessed with a enhanced recovery.\r\n", victim);
} // end spell_enhanced_recovery
/*
* Sense affliction will allow the healer to see an (Affliction) flag on a player when
* they do a 'look' in the room if a player is afflicted by something the healer can
* cure. If the healer looks at the person specifically they will see everything they
* are afflicted with that they can cure specifically. The healer can cast this on
* themselves but not others. This has a long duration and is not dispelable. I
* suppose this could also have just been a skill.
*/
void spell_sense_affliction(int sn, int level, CHAR_DATA *ch, void *vo, int target)
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
AFFECT_DATA af;
if (is_affected(victim, sn))
{
// Remove the affect so it can be re-added to yourself
affect_strip(victim, sn);
}
af.where = TO_AFFECTS;
af.type = sn;
af.level = level;
af.duration = ch->level + (ch->level / 2);
af.modifier = 0;
af.location = APPLY_NONE;
af.bitvector = 0;
affect_to_char(victim, &af);
send_to_char("Your senses for those afflicted are heightened.\r\n", victim);
if (ch != victim)
{
act("$N's senses for those afflicted are heightened.", victim, NULL, victim, TO_ROOM);
}
return;
} // end spell_sense_affliction
/*
* Restore mental presence will allow the caster to remove any stun affect on a
* character (from bash, etc.). It will not be much use on themselves since they
* have to be ablet to cast it and stun may stop that. We will also have this spell
* alleviate certain other affects like disorientation.
*/
void spell_restore_mental_presence(int sn, int level, CHAR_DATA * ch, void *vo, int target)
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
if (IS_NPC(victim))
{
send_to_char("You cannot cast this spell on them.\r\n", ch);
return;
}
// This is all the code needed, it will remove the stun state from the player.
victim->daze = 0;
// Disorientation isn't a spell, we aren't going to make a saves check but we will
// add some fate to it.
if (CHANCE(33))
{
if (is_affected(victim, gsn_disorientation))
{
affect_strip(victim, gsn_disorientation);
}
}
send_to_char("Your mental presence has been restored.\r\n", victim);
act("$n's mental presence has been restored.", victim, NULL, NULL, TO_ROOM);
} // end spell_restore_mental_presence
/*
* A spell to help the healer resist some offensive magics against it. Healer's don't
* have many offensive weapons and thus are vulnerable characters, this should help
* at least protect them a little more from spells. This should be set to target
* char_self so it can only be cast on the healer themselves. We don't want to create
* super chars with saves who make casters worthless.
*/
void spell_magic_resistance(int sn, int level, CHAR_DATA *ch, void *vo, int target)
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
AFFECT_DATA af;
if (is_affected(victim, sn))
{
affect_strip(victim, sn);
}
af.where = TO_AFFECTS;
af.type = sn;
af.level = level;
af.duration = level;
af.modifier = (ch->level / 10) * -1;
af.location = APPLY_SAVES;
af.bitvector = 0;
affect_to_char(victim, &af);
act("$N has an enhanced resistance to magic.", victim, NULL, victim, TO_ROOM);
send_to_char("You feel an enhanced resistance to magic.\r\n", victim);
return;
} // end magic resistance
void Weave::UpdateAttunementsFor(CHAR_DATA & ch, int count)
{
// Determine the modifier from the count
static const int BaseValue = 15;
int modifier(0);
// Only allow non-zero modifiers if the skill is actually possessed
if (get_skill(&ch, gsn_attunefount) > 0)
{
if (count > BaseValue)
{
// Anything over 15 founts is only worth a single point
modifier = (count - BaseValue);
count = BaseValue;
}
// This is a reduced formula using summations so it may not be clear what is going on:
// Basically, the first fount is worth 2 * BaseValue, the next is worth 2 * (BaseValue - 1), the next 2 * (BaseValue - 2), and so on, until eventually they are worth exactly 1 each
// So for BV = 15, the values are 30, 28, 26, 24, ..., 6, 4, 2, 1, 1, 1, ...
modifier += (2 * ((BaseValue * count) - ((count * (count - 1)) / 2)));
}
// Compare the new modifier to the existing to see whether there is any change
int prevModifier(0);
AFFECT_DATA * paf(get_affect(&ch, gsn_attunefount));
if (paf != NULL) prevModifier = paf->modifier;
if (prevModifier == modifier)
return;
// Character needs a change; strip any existing effect and add the new one if appropriate
affect_strip(&ch, gsn_attunefount);
if (modifier == 0)
send_to_char("You feel the last of your attunements leave you.\n", &ch);
else
{
// Prepare the effect
AFFECT_DATA af = {0};
af.where = TO_AFFECTS;
af.type = gsn_attunefount;
af.duration = -1;
af.modifier = modifier;
af.location = APPLY_HIT;
affect_to_char(&ch, &af);
af.location = APPLY_MANA;
affect_to_char(&ch, &af);
// Adjust for gains (ignore losses)
if (prevModifier < modifier)
{
ch.hit += (modifier - prevModifier);
ch.mana += (modifier - prevModifier);
}
// Send an echo
send_to_char("You feel the power of your attunements shift.\n", &ch);
}
}
void do_reveal(CHAR_DATA *ch, char *argument)
{
CHAR_DATA *ich;
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_MAGE))
{
send_to_char("Huh?!?.\n\r",ch);
return;
}
if (ch->mana < 5000)
{
send_to_char("You don't have the mystical energies to do this.\n\r",ch);
return;
}
act( "$n mumles a few words, and you are suddenly blinded by a flash.", ch, NULL, NULL, TO_ROOM );
send_to_char( "You reveal everything hidden in the room.\n\r", ch );
for ( ich = ch->in_room->people; ich != NULL; ich = ich->next_in_room )
{
if (ich==ch || ich->trust > 6) continue;
affect_strip ( ich, gsn_invis );
affect_strip ( ich, gsn_mass_invis );
affect_strip ( ich, gsn_sneak );
if (IS_SET(ich->affected_by, AFF_HIDE)) REMOVE_BIT(ich->affected_by, AFF_HIDE);
if (IS_SET(ich->affected_by, AFF_INVISIBLE)) REMOVE_BIT(ich->affected_by, AFF_INVISIBLE);
if (IS_SET(ich->affected_by, AFF_SNEAK)) REMOVE_BIT(ich->affected_by, AFF_SNEAK);
if (IS_SET(ich->act, PLR_WIZINVIS)) REMOVE_BIT(ich->act, PLR_WIZINVIS);
if (IS_SET(ich->act, AFF_HIDE)) REMOVE_BIT(ich->act, AFF_HIDE);
if (IS_SET(ich->affected_by, AFF_SHIFT)) REMOVE_BIT(ich->affected_by, AFF_SHIFT);
if (IS_SET(ich->extra, EXTRA_EARTHMELD)) REMOVE_BIT(ich->extra, EXTRA_EARTHMELD);
if (IS_AFFECTED(ch,AFF_SHADOWPLANE)) REMOVE_BIT(ch->affected_by, AFF_SHADOWPLANE);
if (IS_AFFECTED(ch, AFF_PEACE)) REMOVE_BIT(ch->affected_by, AFF_PEACE);
if (IS_AFFECTED(ch,AFF_ETHEREAL)) REMOVE_BIT(ch->affected_by, AFF_ETHEREAL);
if (IS_CLASS(ich, CLASS_DROW) && IS_SET(ich->newbits, NEW_DARKNESS))
{
REMOVE_BIT(ich->newbits, NEW_DARKNESS);
REMOVE_BIT(ich->in_room->room_flags, ROOM_TOTAL_DARKNESS);
}
send_to_char("You are suddenly very visible.\n\r",ich);
}
ch->mana -= 5000;
return;
}
/*
* Allows a healer to boost the life force of a recipient (e.g. increase their
* max health points and movement for a level's worth of ticks). The modifier
* (how much hp and move they receive) will be calculated by the healer's casting
* level. This cannot be cast on NPC's as a way to make them stronger.
*/
void spell_life_boost(int sn, int level, CHAR_DATA *ch, void *vo, int target)
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
AFFECT_DATA af;
int modifier = 0;
// Not on NPC's
if (IS_NPC(victim))
{
send_to_char("You failed.\r\n", ch);
return;
}
if (is_affected(victim, sn))
{
if (victim == ch)
{
// Remove the affect so it can be re-added to yourself
affect_strip(victim, sn);
}
else
{
act("$N is already affected by the increased vitality.", ch, NULL, victim, TO_CHAR);
return;
}
}
// Base is the players level
modifier = ch->level;
// If the player is casting it on themselves we'll give them a 12hp-13hp bonus at 51. Healer's
// aren't going to be huge player killers so why not.
if (ch == victim)
{
modifier += ch->level / 4;
}
af.where = TO_AFFECTS;
af.type = sn;
af.level = level;
af.duration = level;
af.modifier = modifier;
af.location = APPLY_HIT;
af.bitvector = 0;
affect_to_char(victim, &af);
af.location = APPLY_MOVE;
affect_to_char(victim, &af);
act("$N has been vitalized.", victim, NULL, victim, TO_ROOM);
send_to_char("You feel an increased vitality.\r\n", victim);
return;
} // end spell_life_boost
/*
* Start fights.
*/
void set_fighting( CHAR_DATA *ch, CHAR_DATA *victim )
{
if ( ch->fighting != NULL )
{
log_string(LOG_BUG, "Set_fighting: already fighting");
return;
}
if ( IS_AFFECTED(ch, AFF_SLEEP) )
affect_strip( ch, gsn_sleep );
do_function(ch, &do_visible,"");
ch->fighting = victim;
ch->position = P_FIGHT;
return;
}
/*
* A healing spell that will return small bits of health over the period of a few ticks
* outside of the normal tick cycle. This will cost half as much as a heal (because it
* can only be cast once and is spread out. Players will get 10hp every half tick if
* they are below their max health.
*/
void spell_vitalizing_presence(int sn, int level, CHAR_DATA *ch, void *vo, int target)
{
CHAR_DATA *victim = (CHAR_DATA *)vo;
AFFECT_DATA af;
if (is_affected(victim, sn))
{
if (victim == ch)
{
// Remove the affect so it can be re-added to yourself
affect_strip(victim, sn);
}
else
{
act("$N is already affected by the vitalizing presence.", ch, NULL, victim, TO_CHAR);
return;
}
}
af.where = TO_AFFECTS;
af.type = sn;
af.level = level;
// Lasts longer on yourself
if (ch == victim)
{
af.duration = 10;
}
else
{
af.duration = 5;
}
af.modifier = 0;
af.location = APPLY_NONE;
af.bitvector = 0;
affect_to_char(victim, &af);
act("$N is vitalized with a healing presence.", victim, NULL, victim, TO_ROOM);
send_to_char("You are vitalized with a healing presence.\r\n", victim);
return;
} // end spell_vitalizing_presence
void stop_follower( CHAR_DATA *ch )
{
if ( ch->master == NULL )
{
bug( "Stop_follower: null master.", 0 );
return;
}
if ( IS_AFFECTED(ch, AFF_CHARM) )
{
REMOVE_BIT( ch->affected_by, AFF_CHARM );
affect_strip( ch, gsn_charm_person );
}
act( "You stop following $N.", ch, ch->master, NULL, NULL, NULL, TO_CHAR, SENSE_SIXTH );
ch->master = NULL;
ch->leader = NULL;
return;
}
void stop_follower( CHAR_DATA * ch ) {
if ( !ch->master ) {
bug( "Stop_follower: null master.", 0 );
return;
}
if ( IS_AFFECTED( ch, AFF_CHARM ) ) {
REMOVE_BIT( ch->affected_by, AFF_CHARM );
affect_strip( ch, gsn_charm_person );
}
if ( can_see( ch->master, ch ) ) {
act( AT_GREEN, "$n stops following you.",
ch, NULL, ch->master, TO_VICT );
}
act( AT_GREEN, "You stop following $N.",
ch, NULL, ch->master, TO_CHAR );
ch->master = NULL;
ch->leader = NULL;
return;
}
void fire_effect( void *vo, int level, int dam, int target )
{
if ( target == TARGET_ROOM ) /* nail objects on the floor */
{
ROOM_INDEX_DATA * room = ( ROOM_INDEX_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
for ( obj = room->contents; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
if ( IS_OBJ_STAT( obj, ITEM_NOPURGE ) )
continue;
fire_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_CHAR ) /* do the effect on a victim */
{
CHAR_DATA * victim = ( CHAR_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
if ( !victim->in_room )
return ;
if ( is_affected(victim, gsn_mirrorfall) )
{
affect_strip(victim, gsn_mirrorfall);
return;
}
/* let's toast some gear! */
for ( obj = victim->carrying; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
fire_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_OBJ ) /* toast an object */
{
OBJ_DATA * obj = ( OBJ_DATA * ) vo;
OBJ_DATA *t_obj, *n_obj;
char *msg;
/* Tener: przeniesienie if'a w dobre miejsce [20080523] */
//2008-11-20, Brohacz: wylaczam. Spelle powyzej 25 levela nie psuja przeciez przez to gratow!
/*if ( URANGE( 1, number_range( 1, 30 - level ), 10 ) < 5 )
return;*/
if ( !check_item_resist( obj, RESIST_FIRE, dam ) )
return ;
/*
Gurthg
2003-04-01
powi±zanie levelu z szans± na zniszczenie grata
*/
/*ale ten if przecie nie ma sensu - przepuszcza itemy o ujemnej kondycji - kainti 2006 07 10
if ( URANGE( 1, number_range( 1, 30 - level ), 10 ) < 5 )
return ;*/
if(obj->liczba_mnoga)
{
switch ( obj->item_type )
{
case ITEM_CONTAINER:
msg = "$p zapalaj± siê i p³on±!";
break;
case ITEM_POTION:
msg = "$p bulgocz± i eksploduj±!";
break;
case ITEM_SCROLL:
msg = "$p skwiercz± i spalaj± siê!";
break;
case ITEM_STAFF:
msg = "$p dymi± siê i czerniej±!";
break;
case ITEM_WAND:
msg = "$p iskrz± siê i top±!";
break;
case ITEM_FOOD:
msg = "$p czerniej± i krusz± sie!";
break;
case ITEM_PILL:
msg = "$p czerniej± i krusz± sie!";
break;
case ITEM_GEM:
msg = "$p rozgrzewaj± siê i eksploduj±!";
break;
default:
msg = "$p zapalaj± siê i p³on±!";
break;
}
}
else
{
switch ( obj->item_type )
{
case ITEM_CONTAINER:
msg = "$p zapala siê i p³onie!";
break;
case ITEM_POTION:
msg = "$p bulgocze i eksploduje!";
break;
case ITEM_SCROLL:
msg = "$p skwierczy i spala siê!";
break;
case ITEM_STAFF:
msg = "$p dymi siê i czernieje!";
break;
case ITEM_WAND:
msg = "$p iskrzy siê i topi!";
break;
case ITEM_FOOD:
msg = "$p czernieje i kruszy sie!";
break;
case ITEM_PILL:
msg = "$p czernieje i kruszy sie!";
break;
case ITEM_GEM:
msg = "$p rozgrzewa siê i eksploduje!";
break;
default:
msg = "$p zapala siê i p³onie!";
break;
}
}
if ( obj->carried_by != NULL )
act( msg, obj->carried_by, obj, NULL, TO_ALL );
else if ( obj->in_room != NULL && obj->in_room->people != NULL )
act( msg, obj->in_room->people, obj, NULL, TO_ALL );
if ( obj->contains )
{
/* dump the contents */
for ( t_obj = obj->contains; t_obj != NULL; t_obj = n_obj )
{
n_obj = t_obj->next_content;
obj_from_obj( t_obj );
if ( obj->in_room != NULL )
obj_to_room( t_obj, obj->in_room );
else if ( obj->carried_by != NULL )
obj_to_room( t_obj, obj->carried_by->in_room );
else
{
/*artefact*/
if ( is_artefact( t_obj ) ) extract_artefact( t_obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( t_obj );
continue;
}
fire_effect( t_obj, level / 2, dam / 2, TARGET_OBJ );
}
}
/*artefact*/
if ( is_artefact( obj ) ) extract_artefact( obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( obj );
return ;
}
}
void do_mount( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
char buf[MAX_INPUT_LENGTH];
CHAR_DATA *mount;
argument = one_argument(argument, arg);
if (IS_NPC(ch))
return;
if (arg[0] == '\0' && ch->mount && ch->mount->in_room == ch->in_room)
{
mount = ch->mount;
}
else if (!(mount = get_char_room(ch, arg)))
{
send_to_char("Mount what?\n\r", ch);
return;
}
if (!IS_NPC(ch) && !ch->pcdata->learned[gsn_riding])
{
send_to_char("You don't know how to ride!\n\r", ch);
return;
}
if (!IS_NPC(mount) && !IS_SET(mount->act3, ACT3_MOUNT))
{
sprintf( buf,"You can't ride that.\n\r");
send_to_char(buf, ch);
return;
}
if (mount->level - 5 > ch->level)
{
send_to_char("That beast is too powerful for you to ride.", ch);
return;
}
if( (mount->mount) && (!mount->riding) && (mount->mount != ch))
{
sprintf(buf, "%s belongs to %s, not you.\n\r",
mount->short_descr, mount->mount->name);
send_to_char(buf, ch);
return;
}
if (mount->position < POS_STANDING)
{
send_to_char("Your mount must be standing.\n\r", ch);
return;
}
if (RIDDEN(mount))
{
send_to_char("This beast is already ridden.\n\r", ch);
return;
}
else if (MOUNTED(ch))
{
send_to_char("You are already riding.\n\r", ch);
return;
}
if( !mount_success(ch, mount, TRUE) )
{
send_to_char("You fail to mount the beast.\n\r", ch);
return;
}
act("You hop on $N's back.", ch, NULL, mount, TO_CHAR);
act("$n hops on $N's back.", ch, NULL, mount, TO_NOTVICT);
act("$n hops on your back!", ch, NULL, mount, TO_VICT);
ch->mount = mount;
ch->riding = TRUE;
mount->mount = ch;
mount->riding = TRUE;
affect_strip(ch, gsn_sneak);
REMOVE_BIT(ch->affected_by, AFF_SNEAK);
affect_strip(ch, gsn_hide);
REMOVE_BIT(ch->affected_by, AFF_HIDE);
}
//Command Status: Installed, fairly well tested, near completetion.
void do_prayer( CHAR_DATA *ch, char *argument )
{
char arg[MIL];
AFFECT_DATA af;
one_argument( argument, arg );
if ( IS_NPC( ch ) )
return;
if ( IS_AFFECTED( ch, AFF_CHARM ) )
return;
if ( !arg || arg[0] == '\0' ) {
send_to_char( "Syntax: Prayer start\r\nSyntax: Prayer stop\r\n", ch );
return;
}
if ( !IS_AWAKE( ch ) ) {
send_to_char( "You cant pray while asleep.", ch );
return;
}
if ( ch->position == POS_MEDITATING ) {
send_to_char( "You are already meditating!\r\n", ch );
return;
}
if ( IS_AFFECTED( ch, AFF_PRAYER ) && !str_cmp( arg, "start" ) ) {
send_to_char( "But you're already praying.\r\n", ch );
return;
}
if ( !str_cmp( arg, "start" ) ) {
if ( can_use_skill( ch, number_percent( ), gsn_prayer ) ) {
if ( ch->fighting ) {
send_to_char( "You cannot start a prayer during combat.\r\n", ch );
return;
}
send_to_char( "You close your eyes and begin to pray.\r\n", ch );
af.type = gsn_prayer;
af.location = APPLY_NONE;
af.modifier = 0;
af.level = ch->level;
af.duration = -1;
af.bitvector = meb( AFF_PRAYER );
affect_to_char( ch, &af );
learn_from_success( ch, gsn_prayer );
}
else {
send_to_char( "You can't seem to concentrate enough to properly pray.\r\n", ch );
learn_from_failure( ch, gsn_prayer );
}
return;
}
if ( !str_cmp( arg, "stop" ) ) {
if ( !IS_AFFECTED( ch, AFF_PRAYER ) ) {
send_to_char( "But you're not praying.\r\n", ch );
return;
}
if ( ch->position != POS_STANDING )
set_position( ch, POS_STANDING );
send_to_char( "You come to an end in your prayer and slowly open your eyes.\r\n", ch );
affect_strip( ch, gsn_prayer );
xREMOVE_BIT( ch->affected_by, AFF_PRAYER );
return;
}
}
/* kwasowy efekt */
void acid_effect( void *vo, int level, int dam, int target )
{
if ( target == TARGET_ROOM )
{
ROOM_INDEX_DATA * room = ( ROOM_INDEX_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
for ( obj = room->contents; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
if ( IS_OBJ_STAT( obj, ITEM_NOPURGE ) )
continue;
acid_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_CHAR ) /* do the effect on a victim */
{
CHAR_DATA * victim = ( CHAR_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
if ( !victim->in_room )
return ;
if ( is_affected(victim, gsn_mirrorfall) )
{
affect_strip(victim, gsn_mirrorfall);
return;
}
/* brak sprawdzania czy zszedl */
for ( obj = victim->carrying; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
acid_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_OBJ ) /* toast an object */
{
OBJ_DATA * obj = ( OBJ_DATA * ) vo;
OBJ_DATA *t_obj, *n_obj;
char *msg;
/* Tener: dodanie szansy na unikniêcie w zale¿no¶ci od poziomu czaru [20080512] */
//2008-11-20, Brohacz: wylaczam. Spelle powyzej 25 levela nie psuja przeciez przez to gratow!
/*if ( URANGE( 1, number_range( 1, 30 - level ), 10 ) < 5 )
return;*/
if ( !check_item_resist( obj, RESIST_ACID, dam ) )
return ;
if( obj->liczba_mnoga )
{
switch ( obj->item_type )
{
case ITEM_CONTAINER:
case ITEM_CORPSE_PC:
case ITEM_CORPSE_NPC:
msg = "$p sycz± i rozpuszczaj± siê.";
break;
case ITEM_ARMOR:
case ITEM_WEAPON:
msg = "$p skwiercz± i rozpadaj± siê.";
break;
case ITEM_CLOTHING:
msg = "$p czerniej± i krusz± siê.";
break;
case ITEM_STAFF:
case ITEM_WAND:
msg = "$p czerniej± i pêkaj±.";
break;
case ITEM_SCROLL:
msg = "$p rozpuszczaj± siê w k³ebach dymu.";
break;
default:
msg = "$p rozpuszczaj± siê w k³ebach dymu.";
break;
}
}
else
{
switch ( obj->item_type )
{
case ITEM_CONTAINER:
case ITEM_CORPSE_PC:
case ITEM_CORPSE_NPC:
msg = "$p syczy i rozpuszcza siê.";
break;
case ITEM_ARMOR:
case ITEM_WEAPON:
msg = "$p skwierczy i rozpada siê.";
break;
case ITEM_CLOTHING:
msg = "$p czernieje i kruszy siê.";
break;
case ITEM_STAFF:
case ITEM_WAND:
msg = "$p czernieje i pêka.";
break;
case ITEM_SCROLL:
msg = "$p rozpuszcza siê w k³ebach dymu.";
break;
default:
msg = "$p rozpuszcza siê w k³ebach dymu.";
break;
}
}
if ( obj->carried_by != NULL )
act( msg, obj->carried_by, obj, NULL, TO_ALL );
else if ( obj->in_room != NULL && obj->in_room->people != NULL )
act( msg, obj->in_room->people, obj, NULL, TO_ALL );
/* get rid of the object */
if ( obj->contains ) /* dump contents */
{
for ( t_obj = obj->contains; t_obj != NULL; t_obj = n_obj )
{
n_obj = t_obj->next_content;
obj_from_obj( t_obj );
if ( obj->in_room != NULL )
obj_to_room( t_obj, obj->in_room );
else if ( obj->carried_by != NULL )
obj_to_room( t_obj, obj->carried_by->in_room );
else
{
/*artefact*/
if ( is_artefact( t_obj ) ) extract_artefact( t_obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( t_obj );
continue;
}
acid_effect( t_obj, level / 2, dam / 2, TARGET_OBJ );
}
}
/*artefact*/
if ( is_artefact( obj ) ) extract_artefact( obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( obj );
return ;
}
}
void cold_effect( void *vo, int level, int dam, int target )
{
if ( target == TARGET_ROOM ) /* nail objects on the floor */
{
ROOM_INDEX_DATA * room = ( ROOM_INDEX_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
for ( obj = room->contents; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
if ( IS_OBJ_STAT( obj, ITEM_NOPURGE ) )
continue;
cold_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_CHAR ) /* whack a character */
{
CHAR_DATA * victim = ( CHAR_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
if ( !victim->in_room )
return ;
if ( is_affected(victim, gsn_mirrorfall) )
{
affect_strip(victim, gsn_mirrorfall);
return;
}
/* let's toast some gear */
for ( obj = victim->carrying; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
cold_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_OBJ ) /* toast an object */
{
OBJ_DATA * obj = ( OBJ_DATA * ) vo;
OBJ_DATA *t_obj, *n_obj;
char *msg;
if( obj->liczba_mnoga )
msg = "$p zamarzaj± i rozpryskuj± siê na kawa³ki!";
else
msg = "$p zamarza i rozpryskuje siê na kawa³ki!";
/* Tener: dodanie szansy na unikniêcie w zale¿no¶ci od poziomu czaru [20080512] */
//2008-11-20, Brohacz: wylaczam. Spelle powyzej 25 levela nie psuja przeciez przez to gratow!
/*if ( URANGE( 1, number_range( 1, 30 - level ), 10 ) < 5 )
return;*/
if ( !check_item_resist( obj, RESIST_COLD, dam ) )
return ;
if ( obj->carried_by != NULL )
act( msg, obj->carried_by, obj, NULL, TO_ALL );
else if ( obj->in_room != NULL && obj->in_room->people != NULL )
act( msg, obj->in_room->people, obj, NULL, TO_ALL );
/* get rid of the object */
if ( obj->contains ) /* dump contents */
{
for ( t_obj = obj->contains; t_obj != NULL; t_obj = n_obj )
{
n_obj = t_obj->next_content;
obj_from_obj( t_obj );
if ( obj->in_room != NULL )
obj_to_room( t_obj, obj->in_room );
else if ( obj->carried_by != NULL )
obj_to_room( t_obj, obj->carried_by->in_room );
else
{
/*artefact*/
if ( is_artefact( t_obj ) ) extract_artefact( t_obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( t_obj );
continue;
}
cold_effect( t_obj, level / 2, dam / 2, TARGET_OBJ );
}
}
/*artefact*/
if ( is_artefact( obj ) ) extract_artefact( obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( obj );
return ;
}
}
/*
* Inflict damage from a hit.
*/
int damage(CHAR_DATA *ch,CHAR_DATA *victim,int dam,int dt,int dam_type,
bool show, int agg, int combo)
{
/*OBJ_DATA *corpse;*/
bool immune;
if ( victim->position == P_DEAD )
return P_DEAD;
/* @@@@@ FIX TORPOR
if ( victim->position == P_TORPOR )
return P_TORPOR;
*/
/* damage reduction */
if ( dam > 15)
dam = (dam - 5)/2 + 5;
if(IS_SET(ch->form, FORM_HORRID)) dam++;
/* @@@@@ FIX BITE DAMAGE FOR SERPENTIS 3
if(is_affected(ch, skill_lookup("skin of the adder"))
&& dam_type == DAM_BITE)
dam++;
*/
/* In case of -ve agg ratings */
if (agg < 0) agg = 0;
/* soakage */
dam = do_soak(victim, dam, agg);
if ( victim != ch )
{
if ( victim->position > P_STUN )
{
if ( victim->fighting == NULL )
{
set_fighting( victim, ch );
if ( IS_NPC( victim ) && HAS_TRIGGER( victim, TRIG_KILL ) )
mp_percent_trigger( victim, ch, NULL, NULL, TRIG_KILL );
}
if (victim->timer <= 4)
victim->position = P_FIGHT;
}
if ( victim->position > P_STUN )
{
if ( ch->fighting == NULL )
set_fighting( ch, victim );
}
/*
* More charm stuff.
*/
if ( victim->master == ch )
stop_follower( victim );
}
/*
* Inviso attacks ... not.
*/
if ( IS_AFFECTED(ch, AFF_INVISIBLE) )
{
affect_strip( ch, gsn_invis );
REMOVE_BIT( ch->affected_by, AFF_INVISIBLE );
act( "$n fades into existence.", ch, NULL, NULL, TO_ROOM, 0 );
}
/*
* Damage modifiers.
*/
if ( dam > 1 && !IS_NPC(victim)
&& victim->condition[COND_DRUNK] > 10 )
dam = 9 * dam / 10;
if ( dam > 1 && !IS_NPC(victim)
&& victim->condition[COND_HIGH] > 10 )
dam = 9 * dam / 10;
if ( dam > 1 && ((IS_AFFECTED(victim, AFF_PROTECT_EVIL) && !IS_NATURAL(ch) )) )
dam -= dam / 4;
immune = FALSE;
/*
* Check for parry, and dodge.
if ( dt >= TYPE_HIT && ch != victim)
{
if ( check_parry( ch, victim ) )
return -1;
if ( check_dodge( ch, victim ) )
return -1;
}
*/
switch(check_immune(victim,dam_type))
{
case(IS_IMMUNE):
immune = TRUE;
dam = 0;
break;
case(IS_RESISTANT):
dam -= dam/3;
break;
case(IS_VULNERABLE):
dam += dam/2;
break;
}
if (show)
dam_message( ch, victim, dam, dt, immune, combo );
if(dam > (victim->health + victim->agghealth -7))
{
victim->position = P_MORT;
stop_fighting(ch, TRUE);
}
else if(dam == (victim->health + victim->agghealth -7))
{
victim->position = P_INCAP;
stop_fighting(ch, TRUE);
}
if (dam == 0)
return -1;
else if(IS_SET(ch->off_flags, BANDAGED))
REMOVE_BIT(ch->off_flags, BANDAGED);
/*
* Hurt the victim.
* Inform the victim of his new state.
*/
if( (victim->race == race_lookup("vampire")) && (dt == DAM_FIRE) )
{
victim->agghealth -= dam;
update_pos( victim, UMAX(1, agg) );
if(agg <= 0) agg = 1;
}
else if( (victim->race == race_lookup("werewolf")) && (dt == DAM_SILVER) )
{
victim->agghealth -= dam;
update_pos( victim, UMAX(1, agg) );
if(agg <= 0) agg = 1;
}
else if( (victim->race == race_lookup("faerie")) && (dt == DAM_IRON) )
{
victim->health -= dam;
victim->GHB += dam/3;
update_pos( victim, agg );
}
else if(agg)
{
victim->agghealth -= dam;
update_pos( victim, agg );
}
else
{
victim->health -= dam;
update_pos( victim, 0 );
}
switch( victim->position )
{
case P_MORT:
act( "$n is mortally wounded, and will die soon, if not aided.", victim, NULL, NULL, TO_ROOM, 0 );
send_to_char("You are mortally wounded, and may die soon, if not aided.\n\r", victim );
break;
case P_INCAP:
act( "$n is incapacitated and will slowly die, if not aided.", victim, NULL, NULL, TO_ROOM, 0 );
send_to_char("You are incapacitated and will slowly die, if not aided.\n\r", victim );
break;
case P_TORPOR:
act( "$n is mortally wounded, and will slowly die if not aided.", victim, NULL, NULL, TO_ROOM, 0 );
send_to_char("You enter torpor.\n\r", victim );
break;
case P_STUN:
act( "$n is stunned, but will probably recover.", victim, NULL, NULL, TO_ROOM, 0 );
send_to_char("You are stunned, but will probably recover.\n\r", victim );
break;
case P_DEAD:
act( "$n is DEAD!!", victim, 0, 0, TO_ROOM, 0 );
send_to_char( "You have been KILLED!!\n\r\n\r", victim );
break;
default:
if ( dam > MAX_HEALTH / 4 )
send_to_char( "That really did HURT!\n\r", victim );
if ( (victim->health + victim->agghealth - 7) < MAX_HEALTH / 4 )
send_to_char( "You sure are BLEEDING!\n\r", victim );
break;
}
if(dam_type == DAM_FIRE)
fire_effect((void *) victim, agg+dam/2, dam, TARGET_CHAR);
if(dam_type == DAM_COLD)
cold_effect((void *) victim, agg+dam/2, dam, TARGET_CHAR);
if(dam_type == DAM_LIGHTNING)
shock_effect((void *) victim, agg+dam/2, dam, TARGET_CHAR);
if(dam_type == DAM_ACID)
acid_effect((void *) victim, agg+dam/2, dam, TARGET_CHAR);
if(dam_type == DAM_POISON)
poison_effect((void *) victim, agg+dam/2, dam, TARGET_CHAR);
/*
* Sleep spells and extremely wounded folks.
*/
if ( !IS_AWAKE(victim) )
stop_fighting( victim, FALSE );
/*
* Payoff for killing things.
*/
if ( (victim->position == P_INCAP && IS_NPC(victim))
|| victim->position == P_DEAD
|| victim->position == P_TORPOR )
{
if ( !IS_NPC(victim) )
{
log_string( LOG_GAME, Format("%s killed by %s at %d", victim->name, (IS_NPC(ch) ? ch->short_descr : ch->name), ch->in_room->vnum) );
}
snprintf( log_buf, 2*MIL, "\tY[WIZNET]\tn %s got toasted by %s at %s [room %d]",
(IS_NPC(victim) ? victim->short_descr : victim->name),
(IS_NPC(ch) ? ch->short_descr : ch->name), ch->in_room->name, ch->in_room->vnum);
if (IS_NPC(victim))
wiznet(log_buf,NULL,NULL,WIZ_MOBDEATHS,0,0);
else
wiznet(log_buf,NULL,NULL,WIZ_DEATHS,0,0);
/*
* Death trigger
*/
if ( IS_NPC( victim ) && HAS_TRIGGER( victim, TRIG_DEATH) )
{
victim->position = P_STAND;
mp_percent_trigger( victim, ch, NULL, NULL, TRIG_DEATH );
}
if((!str_cmp(ch->description, "") || strlen(ch->description) < 10)
&& ch->played > 10*60*60)
{
send_to_char("No experience without a description.\n\r", ch);
}
else
{
if(ch->ooc_xp_count < 2) {
send_to_char("You learn from your encounter.\n\r", ch);
ch->oocxp += 1;
ch->ooc_xp_count++;
} else if(IS_SET(victim->act2, ACT2_HUNTER) && ch->ooc_xp_count < 50) {
send_to_char("You learn from your encounter.\n\r", ch);
ch->exp += 1;
ch->ooc_xp_count++;
}
}
if(ch->quest)
{
if(ch->quest->quest_type == Q_HITMAN && ch->quest->victim == victim)
(*quest_table[ch->quest->quest_type].q_fun) (ch, 2);
if(victim->quest != NULL && victim->quest->quest_type == Q_HITMAN
&& victim->quest->victim == victim
&& victim->quest->questor != ch)
(*quest_table[victim->quest->quest_type].q_fun)
(victim->quest->questor, 3);
if(victim->quest != NULL && (victim->quest->quest_type == Q_BODYGUARD
|| victim->quest->quest_type == Q_RESCUE)
&& victim->quest->victim == victim)
(*quest_table[victim->quest->quest_type].q_fun)
(victim->quest->questor, 3);
}
if(victim->position != P_TORPOR || agg) update_pos( victim, agg );
return victim->position;
}
if ( victim == ch )
return ch->position;
/* Link dead salvation. */
if ( !IS_NPC(victim) && victim->desc == NULL )
{
do_function(victim, &do_flee,"");
}
tail_chain( );
return victim->position;
}
bool sp_damage( OBJ_DATA * obj, CHAR_DATA * ch, CHAR_DATA * victim, int dam, int type, int sn, bool show_msg )
{
int ch_strong, ch_weak, ch_race, ch_suscept, ch_resist, vi_strong, vi_weak, vi_race, vi_suscept, vi_resist;
float dam_modifier = 1.0;
float tmp = 0;
bool can_reflect = TRUE;
bool can_absorb = TRUE;
if ( victim == NULL )
return FALSE;
/*
* First, check caster's strengths and weaknesses.
*
*/
if ( IS_SET( type, NO_REFLECT ) )
{
REMOVE_BIT( type, NO_REFLECT );
can_reflect = FALSE;
}
if ( IS_SET( type, NO_ABSORB ) )
{
REMOVE_BIT( type, NO_ABSORB );
can_absorb = FALSE;
}
if ( obj == NULL )
{
if ( ( can_reflect )
&& ( skill_table[sn].target == TAR_CHAR_OFFENSIVE )
&& ( IS_AFFECTED( victim, AFF_CLOAK_REFLECTION ) )
&& ( ch != victim ) && ( number_percent( ) < ( victim->get_level("psuedo") - 70 ) ) )
{
act( "@@N$n's @@lc@@el@@ro@@ya@@ak@@N glows brightly as $Nn's spell hits it, and the spell is reflected@@N!!", ch,
victim, NULL, TO_ROOM );
act( "@@N$N's @@lc@@el@@ro@@ya@@ak@@N glows brightly, and reflects your spell back on you@@N!!", ch, NULL, victim,
TO_CHAR );
act( "@@NYour @@lc@@el@@ro@@ya@@ak@@N glows brightly, and reflects the spell back on $N@@N!!!", victim, NULL, ch,
TO_CHAR );
( *skill_table[sn].spell_fun ) ( sn, 60, ch, ( void * )ch, NULL );
return FALSE;
}
else if ( ( can_reflect )
&& ( skill_table[sn].target == TAR_CHAR_OFFENSIVE )
&& ( IS_AFFECTED( victim, AFF_CLOAK_ABSORPTION ) )
&& ( ch != victim ) && ( number_percent( ) < ( victim->get_level("psuedo") - 55 ) ) )
{
int mana;
mana = mana_cost( ch, sn );
victim->mana = UMIN( victim->max_mana, victim->mana + mana );
act( "@@N$n's @@lcloak@@N glows brightly as $N's spell hits it, then fades@@N!!", victim, NULL, ch, TO_ROOM );
act( "@@N$N's @@lcloak@@N glows brightly, and absorbs your spell@@N!!", ch, NULL, victim, TO_CHAR );
act( "@@NYour @@lcloak@@N glows brightly, and absorbs $N's spell@@N!!!", victim, NULL, ch, TO_CHAR );
return FALSE;
}
ch_strong = ( IS_NPC( ch ) ?
( ( ( ch->race > 0 )
&& ( ch->race < MAX_RACE ) ) ?
race_table[ch->race].strong_realms : ch->npcdata->strong_magic ) : race_table[ch->race].strong_realms );
ch_resist = ( IS_NPC( ch ) ?
( ( ( ch->race > 0 )
&& ( ch->race < MAX_RACE ) ) ?
race_table[ch->race].resist_realms : ch->npcdata->resist ) : race_table[ch->race].resist_realms );
ch_weak = ( IS_NPC( ch ) ?
( ( ( ch->race > 0 )
&& ( ch->race < MAX_RACE ) ) ?
race_table[ch->race].weak_realms : ch->npcdata->weak_magic ) : race_table[ch->race].weak_realms );
ch_suscept = ( IS_NPC( ch ) ?
( ( ( ch->race > 0 )
&& ( ch->race < MAX_RACE ) ) ?
race_table[ch->race].suscept_realms : ch->npcdata->suscept ) : race_table[ch->race].suscept_realms );
ch_race = ( IS_NPC( ch ) ?
( ( ( ch->race > 0 )
&& ( ch->race < MAX_RACE ) ) ?
race_table[ch->race].race_flags : ch->race_mods ) : race_table[ch->race].race_flags );
if ( IS_SET( ch_strong, type ) )
{
dam_modifier += .35;
}
else if ( IS_SET( ch_weak, type ) )
{
dam_modifier -= .35;
}
if ( IS_SET( ch_race, RACE_MOD_STRONG_MAGIC ) )
{
dam_modifier += .25;
}
else if ( IS_SET( ch_race, RACE_MOD_WEAK_MAGIC ) )
{
dam_modifier -= .25;
}
else if ( IS_SET( ch_race, RACE_MOD_NO_MAGIC ) )
{
dam_modifier -= .50;
}
if ( ch->stance == STANCE_CASTER )
dam_modifier += .10;
else if ( ch->stance == STANCE_WIZARD )
dam_modifier += .25;
else if ( ch->stance == STANCE_MAGI )
dam_modifier += .30;
if ( ( !IS_NPC( ch ) ) && ( !IS_SET( type, REALM_MIND ) ) )
{
if ( ch->pcdata->learned[gsn_potency] > 0 )
{
dam_modifier += ( get_curr_int( ch ) * ch->pcdata->learned[gsn_potency] / 5000 );
}
if ( ch->pcdata->learned[gsn_thaumatergy] > 0 )
{
dam_modifier += ( get_curr_int( ch ) * ch->pcdata->learned[gsn_thaumatergy] / 2500 );
}
}
if ( is_affected( ch, skill_lookup( "mystical focus" ) ) )
{
dam_modifier += .5;
}
} /* obj == NULL */
else if ( obj->carried_by != NULL )
{
ch = obj->carried_by;
}
else
{
snprintf( log_buf, (2 * MIL), "Error, object %s casting spell, but not carried by anyone.", obj->short_descr );
monitor_chan( log_buf, MONITOR_DEBUG );
return FALSE;
}
/*
* Next, the victim
*
*/
vi_strong = ( IS_NPC( victim ) ?
( ( ( victim->race > 0 )
&& ( victim->race < MAX_RACE ) ) ?
race_table[victim->race].strong_realms :
victim->npcdata->strong_magic ) : race_table[victim->race].strong_realms );
vi_resist = ( IS_NPC( victim ) ?
( ( ( victim->race > 0 )
&& ( victim->race < MAX_RACE ) ) ?
race_table[victim->race].resist_realms : victim->npcdata->resist ) : race_table[victim->race].resist_realms );
vi_weak = ( IS_NPC( victim ) ?
( ( ( victim->race > 0 )
&& ( victim->race < MAX_RACE ) ) ?
race_table[victim->race].weak_realms : victim->npcdata->weak_magic ) : race_table[victim->race].weak_realms );
vi_suscept = ( IS_NPC( victim ) ?
( ( ( victim->race > 0 )
&& ( victim->race < MAX_RACE ) ) ?
race_table[victim->race].suscept_realms : victim->npcdata->suscept ) : race_table[victim->race].suscept_realms );
vi_race = ( IS_NPC( victim ) ?
( ( ( victim->race > 0 )
&& ( victim->race < MAX_RACE ) ) ?
race_table[victim->race].race_flags : victim->race_mods ) : race_table[victim->race].race_flags );
if ( IS_SET( vi_suscept, type ) )
{
dam_modifier += .45;
}
else if ( IS_SET( vi_resist, type ) )
{
dam_modifier -= .45;
}
else if ( IS_SET( vi_race, RACE_MOD_NO_MAGIC ) )
{
dam_modifier -= .25;
}
if ( MAGIC_STANCE( ch ) )
dam_modifier += .15;
if ( ( IS_SET( type, REALM_MIND ) ) && ( !HAS_MIND( victim ) ) )
dam_modifier = 0.0;
else if ( ( ( IS_SET( type, REALM_IMPACT ) )
|| ( IS_SET( type, REALM_ACID ) ) || ( IS_SET( type, REALM_GAS ) ) ) && ( !HAS_BODY( victim ) ) )
dam_modifier = 0.0;
if ( ( IS_SET( type, REALM_POISON ) ) && ( IS_SET( vi_race, RACE_MOD_IMMUNE_POISON ) ) )
dam_modifier = 0.0;
if ( ( IS_SET( type, REALM_DRAIN ) ) && ( IS_UNDEAD( victim ) ) )
dam_modifier = 0.0;
tmp = dam;
tmp *= dam_modifier;
if ( check_charm_aff(ch, CHARM_AFF_MAGE) )
tmp *= ((100 + get_charm_bonus(ch, CHARM_AFF_MAGE)) / 100);
dam = static_cast<int>(tmp);
dam += number_range(static_cast<int>((dam * -0.10)), static_cast<int>((dam * 0.10))); /* Lets add a little randomness to things. --Kline */
if ( victim != ch )
{
/*
* Certain attacks are forbidden.
* Most other attacks are returned.
*/
if ( is_safe( ch, victim ) )
return FALSE;
if ( victim != ch->fighting )
check_killer( ch, victim );
if ( victim->position > POS_STUNNED )
{
if ( victim->fighting == NULL )
set_fighting( victim, ch, FALSE );
victim->position = POS_FIGHTING;
}
if ( victim->position > POS_STUNNED )
{
if ( ch->fighting == NULL )
{
set_fighting( ch, victim, TRUE );
}
/*
* If victim is charmed, ch might attack victim's master.
*/
if ( IS_NPC( ch )
&& IS_NPC( victim )
&& IS_AFFECTED( victim, AFF_CHARM )
&& victim->master != NULL && victim->master->in_room == ch->in_room && number_bits( 3 ) == 0 )
{
stop_fighting( ch );
one_hit( ch, victim->master, TYPE_UNDEFINED );
}
}
/*
* More charm stuff.
*/
if ( victim->master == ch )
stop_follower( victim );
/*
* Inviso attacks ... not.
*/
if ( IS_AFFECTED( ch, AFF_INVISIBLE ) )
{
affect_strip( ch, gsn_invis );
affect_strip( ch, gsn_mass_invis );
REMOVE_BIT( ch->affected_by, AFF_INVISIBLE );
act( "$n shimmers into existence.", ch, NULL, NULL, TO_ROOM );
}
/*
* Damage modifiers.
*/
if ( dam < 0 )
dam = 0;
/*
* Stop up any residual loopholes.
*/
if ( dam > sysdata.damcap )
{
char buf[MAX_STRING_LENGTH];
snprintf( buf, MSL, "Spell: %d damage by %s, spell %s", dam, ( obj == NULL ) ? ch->get_name() : obj->short_descr, skill_table[sn].name );
if ( ch->level < 82 )
monitor_chan( buf, MONITOR_MAGIC );
log_f( "%s", buf );
dam = sysdata.damcap;
}
if ( ( show_msg ) && ( dam >= 0 ) )
sp_dam_message( obj, ch, victim, dam, type, sn );
}
/*
* Hurt the victim.
* Inform the victim of his new state.
*/
victim->hit -= dam;
if ( !IS_NPC(ch) )
{
if ( dam > ch->pcdata->records->mdam_amt )
{
send_to_char("@@yYou've broken your magical damage record!@@N\r\n", ch);
ch->pcdata->records->mdam_amt = dam;
ch->pcdata->records->mdam_gsn = sn;
}
}
if ( !IS_NPC( victim ) )
check_adrenaline( victim, dam );
if ( !IS_NPC( victim ) && IS_WOLF( victim ) && ( dam > 350 ) )
do_rage( victim, "FORCE" );
update_pos( victim );
if ( ( IS_NPC( victim ) || !IS_VAMP( victim ) ) && !( deathmatch ) )
{
switch ( victim->position )
{
case POS_MORTAL:
act( "$n is mortally wounded, and will die soon, if not aided.", victim, NULL, NULL, TO_ROOM );
send_to_char( "You are mortally wounded, and will die soon, if not aided.\r\n", victim );
break;
case POS_INCAP:
act( "$n is incapacitated and will slowly die, if not aided.", victim, NULL, NULL, TO_ROOM );
send_to_char( "You are incapacitated and will slowly die, if not aided.\r\n", victim );
break;
case POS_STUNNED:
act( "$n is too stunned to do anything!", victim, NULL, NULL, TO_ROOM );
send_to_char( "You are too stunned to do anything!\r\n", victim );
break;
case POS_DEAD:
act( "$n is DEAD!!", victim, 0, 0, TO_ROOM );
send_to_char( "You have been KILLED!!\r\n\r\n", victim );
break;
default:
if ( dam > victim->max_hit / 4 )
send_to_char( "That really did HURT!\r\n", victim );
if ( victim->hit < victim->max_hit / 4 )
send_to_char( "You sure are BLEEDING!\r\n", victim );
break;
}
} /* end of if statement */
/*
* Sleep spells and extremely wounded folks.
*/
if ( !IS_AWAKE( victim ) )
stop_fighting( victim );
/*
* Payoff for killing things.
*/
if ( victim->position == POS_DEAD && ( IS_NPC( victim ) || !IS_VAMP( victim ) || ( deathmatch ) ) )
{
group_gain( ch, victim );
/*
* Sort out kill counts.....
*/
if ( !IS_NPC( ch ) )
{
if ( !IS_NPC( victim ) )
ch->pcdata->records->pk++;
else
ch->pcdata->records->mk++;
}
if ( !IS_NPC( victim ) )
{
if ( !IS_NPC( ch ) )
victim->pcdata->records->pd++;
else
victim->pcdata->records->md++;
}
if ( !IS_NPC( victim ) || victim->act.test(ACT_INTELLIGENT) )
{
snprintf( log_buf, (2 * MIL), "%s killed by %s at %d", victim->get_name(), ch->get_name(), victim->in_room->vnum );
log_string( log_buf );
notify( log_buf, 82 );
/*
* As level gain is no longer automatic, a dead char loses
* * 1/2 their gained exp. -S-
* * Fixed my bug here too, hehe!
*/
if ( victim->exp > 0 )
{
int lose = (victim->exp / 2);
lose *= -1;
victim->gain_exp(lose);
}
}
if ( IS_NPC( ch ) )
raw_kill( victim, "" );
else
{
char name_buf[MAX_STRING_LENGTH];
snprintf( name_buf, MSL, "%s", ch->name.c_str() );
raw_kill( victim, name_buf );
}
if ( deathmatch && !IS_NPC( victim ) )
do_quit( victim, "" );
if ( IS_NPC( ch ) && IS_NPC( victim ) && ch->act.test(ACT_INTELLIGENT) )
{
do_get( ch, "all corpse" );
do_sacrifice( ch, "corpse" );
}
if ( !IS_NPC( ch ) && IS_NPC( victim ) )
{
if ( ch->act.test(ACT_AUTOLOOT) )
do_get( ch, "all corpse" );
else
do_look( ch, "in corpse" );
if ( ch->act.test(ACT_AUTOSAC) )
do_sacrifice( ch, "corpse" );
}
return FALSE;
}
if ( victim == ch )
return TRUE;
/*
* Take care of link dead people.
*/
if ( !IS_NPC( victim ) && victim->desc == NULL )
{
if ( number_range( 0, victim->wait ) == 0 )
{
do_recall( victim, "" );
return TRUE;
}
}
/*
* Wimp out?
*/
if ( IS_NPC( victim ) && dam > 0 )
{
if ( ( victim->act.test(ACT_WIMPY) && number_bits( 1 ) == 0
&& victim->hit < victim->max_hit / 2 )
|| ( IS_AFFECTED( victim, AFF_CHARM ) && victim->master != NULL && victim->master->in_room != victim->in_room ) )
do_flee( victim, "" );
}
if ( !IS_NPC( victim ) && victim->hit > 0 && victim->hit <= victim->wimpy && victim->wait == 0 )
do_flee( victim, "" );
return TRUE;
}
void do_mount_on( CHAR_DATA *ch, CHAR_DATA *horse )
{
bool show;
int skill = get_skill( ch, gsn_riding );
if ( ch->mount )
{
print_char(ch, "Przecie¿ dosiadasz ju¿ %s!\n\r", ch->mount->name4);
return;
}
if ( horse == ch )
{
send_to_char( "Czego chcesz dosi±¶æ?\n\r", ch );
return;
}
if ( !IS_NPC(horse) || !EXT_IS_SET(horse->act, ACT_MOUNTABLE ) )
{
print_char(ch, "Nie mo¿esz dosi±¶æ %s!\n\r", horse->name2 );
return;
}
if ( horse->mounting )
{
print_char(ch, "%s ju¿ ma je¼dzca.\n\r", horse->short_descr );
return;
}
if ( horse->master && horse->master != ch )
{
act("$N nie pozwala ci na to.", ch, NULL, horse->master, TO_CHAR );
return;
}
if ( horse->position < POS_STANDING )
{
send_to_char( "Wierzchowiec musi staæ, aby mo¿na by³o na niego wsi±¶æ.\n\r", ch );
return;
}
if ( horse->fighting )
{
print_char(ch, "%s teraz walczy, nie dasz rady wsi±¶æ.\n\r", horse->short_descr );
return;
}
if ( is_fearing( horse, ch ) )
{
print_char(ch, "%s zbyt siê ciebie boi, nie dasz rady wsi±¶æ.\n\r", horse->short_descr );
if ( number_percent() < 5 ) {
one_hit( horse, ch, TYPE_UNDEFINED, FALSE );
}
return;
}
if ( ch->move <= 0 )
{
act( "Jeste¶ zbyt zmêczon<&y/a/e> by dosi±¶æ wierzchowca.", ch, NULL, horse, TO_CHAR );
return;
}
if (IS_AFFECTED(ch, AFF_SNEAK) || IS_AFFECTED(ch, AFF_HIDE)) {
switch (horse->sex) {
case SEX_NEUTRAL:
act( "Próbujesz dosi±¶æ $C, ale robisz to tak niespodziewanie, ¿e $N umyka przestraszone.", ch, NULL, horse, TO_CHAR );
break;
case SEX_MALE:
act( "Próbujesz dosi±¶æ $C, ale robisz to tak niespodziewanie, ¿e $N umyka przestraszony.", ch, NULL, horse, TO_CHAR );
break;
case SEX_FEMALE:
default :
act( "Próbujesz dosi±¶æ $C, ale robisz to tak niespodziewanie, ¿e $N umyka przestraszona.", ch, NULL, horse, TO_CHAR );
break;
}
ch->move -= number_range(1,4);
if ( ch->move < 0 )
{
ch->move = 0;
}
return;
}
if(IS_AFFECTED(ch, AFF_FLYING))
{
affect_strip(ch, gsn_fly);
}
if(IS_AFFECTED(ch, AFF_FLOAT))
{
affect_strip(ch, gsn_float);
}
if ( skill == 0 || number_percent() > skill + 5 )
{
act( "Nieudolnie próbujesz dosi±¶æ $C i po chwili l±dujesz na ziemi.", ch, NULL, horse, TO_CHAR );
act( "$n nieudolnie próbuje dosi±¶æ $C i po chwili l±duje na ziemi.", ch, NULL, horse, TO_NOTVICT );
ch->position = POS_SITTING;
ch->move -= number_range(0,4);
if ( ch->weight > 900 )
{
ch->move -= number_range(0,2);
}
ch->move = UMAX(0,ch->move);
check_improve( ch, NULL, gsn_riding, TRUE, 70 );
return;
}
ch->mount = horse;
horse->mounting = ch;
horse->default_pos = POS_STANDING;
horse->position = POS_STANDING;
show = TRUE;
if ( IS_NPC( horse ) && HAS_TRIGGER( horse, TRIG_MOUNT ) )
{
show = !mp_percent_trigger( horse, ch, NULL, NULL, &TRIG_MOUNT );
}
if ( IS_NPC( horse ) && HAS_TRIGGER( horse, TRIG_DISMOUNT ) )
{
show = FALSE;
}
if ( show )
{
act( "Umiejêtnie dosiadasz $C.", ch, NULL, horse, TO_CHAR );
act( "$n umiejêtnie dosiada $C.", ch, NULL, horse, TO_NOTVICT );
check_improve( ch, NULL, gsn_riding, TRUE, 10 );
}
return;
}
void poison_effect( void *vo, int level, int dam, int target )
{
if ( target == TARGET_ROOM ) /* nail objects on the floor */
{
ROOM_INDEX_DATA * room = ( ROOM_INDEX_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
for ( obj = room->contents; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
if ( IS_OBJ_STAT( obj, ITEM_NOPURGE ) )
continue;
poison_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_CHAR ) /* do the effect on a victim */
{
CHAR_DATA * victim = ( CHAR_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
if ( !victim->in_room )
return ;
if ( is_affected(victim, gsn_mirrorfall) )
{
affect_strip(victim, gsn_mirrorfall);
return;
}
/* chance of poisoning */
/* if (!saves_spell_new(victim, SAVE_DEATH, 0))
{
AFFECT_DATA af;
send_to_char("Czujesz jak trucizna rozprzestrzenia siê w twoich zylach.\n\r",victim);
act("$n wyglada bardzo niezdrowo.",victim,NULL,NULL,TO_ROOM);
af.where = TO_AFFECTS;
af.type = gsn_poison;
af.level = 4;
af.duration = dice(poison_table[4].duration[0],poison_table[4].duration[1]) + poison_table[4].duration[2];
af.rt_duration = 0;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = &AFF_POISON;
affect_join( victim, &af );
}*/
/* equipment */
if ( is_affected(victim, gsn_mirrorfall) )
{
affect_strip(victim, gsn_mirrorfall);
return;
}
for ( obj = victim->carrying; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
poison_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_OBJ ) /* do some poisoning */
{
OBJ_DATA * obj = ( OBJ_DATA * ) vo;
int chance;
if ( IS_OBJ_STAT( obj, ITEM_BLESS ))
return ;
/* Tener: dodanie szansy na unikniêcie w zale¿no¶ci od poziomu czaru [20080512] */
//2008-11-20, Brohacz: wylaczam. Spelle powyzej 25 levela nie psuja przeciez przez to gratow!
/*if ( URANGE( 1, number_range( 1, 30 - level ), 10 ) < 5 )
return;*/
chance = level + dam / 7;
switch ( obj->item_type )
{
default:
return ;
case ITEM_FOOD:
break;
case ITEM_DRINK_CON:
if ( obj->value[ 0 ] == obj->value[ 1 ] )
return ;
break;
}
if ( number_percent() > chance )
return ;
obj->value[ 3 ] = 1;
return ;
}
}
void do_ambush( CHAR_DATA * ch, char *argument )
{
CHAR_DATA *victim;
int percent;
if( argument[0] == '\0' )
{
send_to_char( "Syntax: Ambush <victim>\n\r", ch );
return;
}
if( IS_NPC( ch ) )
{
send_to_char( "Only players may use this ability.\n\r", ch );
return;
}
if( ( victim = get_char_room( ch, argument ) ) == NULL )
{
send_to_char( "How can you ambush someone who's not even here.\n\r", ch );
return;
}
if( ch == victim )
{
send_to_char( "How can you possibly ambush yourself?\n\r", ch );
return;
}
if( ch->position == POS_FIGHTING )
{
send_to_char( "You are already fighting someone!\n\r", ch );
return;
}
if( victim->position == POS_FIGHTING )
{
send_to_char( "They are already fighting someone!\n\r", ch );
return;
}
if( victim->position <= POS_STUNNED )
{
send_to_char( "Come now, there's no honor in that!\n\r", ch );
return;
}
if( !IS_SET( ch->affected_by, AFF_SNEAK ) )
{
send_to_char( "You are moving far too loudly to ambush someone!\n\r", ch );
return;
}
percent = number_percent( ) - ( get_curr_lck( ch ) - 14 ) + ( get_curr_lck( victim ) - 13 );
affect_strip( ch, gsn_sneak );
affect_strip( ch, gsn_silent );
REMOVE_BIT( ch->affected_by, AFF_HIDE );
if( ch->race != RACE_DEFEL ) /* Defel has perm invis */
REMOVE_BIT( ch->affected_by, AFF_INVISIBLE );
if( ch->race != RACE_NOGHRI ) /* Noghri has perm sneak */
REMOVE_BIT( ch->affected_by, AFF_SNEAK );
act( AT_RED, "You jump out from behind $N and attack $M!", ch, NULL, victim, TO_CHAR );
act( AT_RED, "$n jumps out from behind you and attacks you!", ch, NULL, victim, TO_VICT );
act( AT_RED, "$n jumps out from behind $N and attacks $M!", ch, NULL, victim, TO_NOTVICT );
if( !IS_AWAKE( victim ) || percent < ch->pcdata->learned[gsn_ambush] )
{
multi_hit( ch, victim, gsn_ambush );
learn_from_success( ch, gsn_ambush );
}
else
{
learn_from_failure( ch, gsn_ambush );
global_retcode = damage( ch, victim, 0, gsn_ambush );
}
}
void shock_effect( void *vo, int level, int dam, int target )
{
if ( target == TARGET_ROOM )
{
ROOM_INDEX_DATA * room = ( ROOM_INDEX_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
for ( obj = room->contents; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
if ( IS_OBJ_STAT( obj, ITEM_NOPURGE ) )
continue;
shock_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
else if ( target == TARGET_CHAR )
{
CHAR_DATA * victim = ( CHAR_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
if ( !victim->in_room )
return ;
/* jesli ma mozg znaczy siê mozna zszkokowac */
if ( IS_SET( race_table[ GET_RACE( victim ) ].parts, PART_BRAINS ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_MAGICAL ) &&
!is_undead( victim ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_CONSTRUCT ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_MIST ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_BLOB ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_DRAGON ) )
{
int chance_of_knockout = 0;
if ( IS_SET( race_table[ GET_RACE( victim ) ].type, PERSON ) )
chance_of_knockout = 10 + dam/10 + level/10;
else if ( IS_SET( race_table[ GET_RACE( victim ) ].type, ANIMAL ) )
chance_of_knockout = 5 + dam/11.5 + level/11.5;
else if ( IS_SET( race_table[ GET_RACE( victim ) ].type, MONSTER ) )
chance_of_knockout = 3 + dam/13 + level/13;
if ( chance_of_knockout > 0 && number_percent() < chance_of_knockout && !IS_AFFECTED(victim,AFF_STABILITY) )
{
/* wait */
WAIT_STATE( victim, URANGE( 12, dam/3, 36 ) );
/* stoi badz walczy? no to hop na glebe */
if ( victim->position == POS_STANDING || victim->position == POS_FIGHTING )
{
if ( victim->sex == 0 )
{
send_to_char( "Tracisz kontrolê nad swoim cia³em i osuwasz siê po³przytomne na ziemie.\n\r", victim );
act( "$n osuwa siê polprzytomne na ziemie.", victim, NULL, NULL, TO_ROOM );
}
else if ( victim->sex == 1 )
{
send_to_char( "Tracisz kontrolê nad swoim cia³em i osuwasz siê po³przytomny na ziemie.\n\r", victim );
act( "$n osuwa siê polprzytomny na ziemie.", victim, NULL, NULL, TO_ROOM );
}
else
{
send_to_char( "Tracisz kontrolê nad swoim cia³em i osuwasz siê po³przytomna na ziemie.\n\r", victim );
act( "$n osuwa siê polprzytomna na ziemie.", victim, NULL, NULL, TO_ROOM );
}
victim->position = POS_SITTING;
}
/* lezy, siedzi, restuje, umiera etc? no to niech dalej umiera */
else
{
send_to_char( "Tracisz kontrolê nad swoim cia³em.\n\r", victim );
act( "Cia³o $z wyprê¿a siê i wiotczeje pod wp³ywem potê¿nego wy³adowania.", victim, NULL, NULL, TO_ROOM );
}
}
}
if ( is_affected(victim, gsn_mirrorfall) )
{
affect_strip(victim, gsn_mirrorfall);
return;
}
/* toast some gear */
for ( obj = victim->carrying; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
shock_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
if ( target == TARGET_OBJ )
{
OBJ_DATA * obj = ( OBJ_DATA * ) vo;
OBJ_DATA *t_obj, *n_obj;
char *msg;
/* Tener: dodanie szansy na unikniêcie w zale¿no¶ci od poziomu czaru [20080512] */
//2008-11-20, Brohacz: wylaczam. Spelle powyzej 25 levela nie psuja przeciez przez to gratow!
/*if ( URANGE( 1, number_range( 1, 30 - level ), 10 ) < 5 )
return;*/
if ( obj->item_type != ITEM_WAND && obj->item_type != ITEM_STAFF && obj->item_type != ITEM_JEWELRY )
return;
if ( !check_item_resist( obj, RESIST_ELECTRICITY, dam ) )
return ;
if(obj->liczba_mnoga)
{
switch ( obj->item_type )
{
default:
return ;
case ITEM_WAND:
case ITEM_STAFF:
msg = "$p rozb³yskuj± i po chwili eksploduj±!";
break;
case ITEM_JEWELRY:
msg = "$p stapiaj± siê w bezwarto¶ciow± bry³kê.";
}
}
else
{
switch ( obj->item_type )
{
default:
return ;
case ITEM_WAND:
case ITEM_STAFF:
msg = "$p rozb³yskuje i po chwili eksploduje!";
break;
case ITEM_JEWELRY:
msg = "$p stapia siê w bezwarto¶ciow± bry³kê.";
}
}
if ( obj->carried_by != NULL )
act( msg, obj->carried_by, obj, NULL, TO_ALL );
else if ( obj->in_room != NULL && obj->in_room->people != NULL )
act( msg, obj->in_room->people, obj, NULL, TO_ALL );
/* get rid of the object */
if ( obj->contains ) /* dump contents */
{
for ( t_obj = obj->contains; t_obj != NULL; t_obj = n_obj )
{
n_obj = t_obj->next_content;
obj_from_obj( t_obj );
if ( obj->in_room != NULL )
obj_to_room( t_obj, obj->in_room );
else if ( obj->carried_by != NULL )
obj_to_room( t_obj, obj->carried_by->in_room );
else
{
/*artefact*/
if ( is_artefact( t_obj ) ) extract_artefact( t_obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( t_obj );
continue;
}
shock_effect( t_obj, level / 2, dam / 2, TARGET_OBJ );
}
}
/*artefact*/
if ( is_artefact( obj ) ) extract_artefact( obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( obj );
return ;
}
}
void do_pipe ( CHAR_DATA *ch, char *argument )
{
OBJ_DATA * pObj;
OBJ_DATA * qObj;
char *pipe_name;
char pipe_name_2[MAX_INPUT_LENGTH];
int amount, range, weed_amount, weed_type, dex, wis, con;
AFFECT_DATA *old_smoke, *old_poison;
AFFECT_DATA new_smoke, poison;
int dur = 1, old_dur = 0, old_level = 0, level = 1;
char buf[ MAX_INPUT_LENGTH ];
char arg1[ MAX_INPUT_LENGTH ];
char arg2[ MAX_INPUT_LENGTH ];
char arg3[ MAX_INPUT_LENGTH ];
char arg4[ MAX_INPUT_LENGTH ];
// mobom dziêkujemy bez komunikatu
if ( IS_NPC( ch ) )
{
return ;
}
// w czasie walki dziêkujemy z komunikatem
if ( ch->position == POS_FIGHTING || ch->fighting != NULL )
{
send_to_char( "Lepiej skup siê na walce.\n\r", ch );
return;
}
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
argument = one_argument( argument, arg3 );
argument = one_argument( argument, arg4 );
pObj = get_obj_carry( ch, arg2, ch );
if ( arg1[ 0 ] == '\0' )
{
send_to_char( "Co takiego chcesz zrobiæ z fajk±?\n\r", ch );
send_to_char( "{R[PORADA]:{y 'Je¿eli nie wiesz, co mo¿esz, wpisz {Rhelp pipe{x / {Cpomoc fajka{x.{Y'{x\n\r", ch );
return;
}
if ( !str_prefix( arg1, "smoke" ) || !str_prefix( arg1, "pal" ))
{
if ( arg2[ 0 ] == '\0' )
{
send_to_char( "Paliæ co?\n\r", ch );
return ;
}
// je¿eli obiekt nieistnieje w inventory, to mo¿e kto¶ co¶ takiego trzyma
if ( pObj == NULL ) pObj = get_eq_char( ch, WEAR_HOLD );
if ( pObj == NULL )
{
send_to_char( "Potrzebujesz fajki ¿eby paliæ ziele fajkowe.\n\r", ch );
return ;
}
/*if ( ( pObj = get_obj_carry( ch, arg2, ch ) ) == NULL )
{
send_to_char( "Potrzebujesz fajki ¿eby paliæ ziele fajkowe.\n\r", ch );
return ;
}*/
if ( pObj->item_type != ITEM_PIPE )
{
send_to_char( "Potrzebujesz fajki ¿eby paliæ ziele fajkowe.\n\r", ch );
return ;
}
/* Gdy fajka jest pusta... */
if ( pObj->value[ 1 ] <= 0 )
{
act( "W $j nie ma niczego, co móg³by¶ paliæ! Jest pusta.", ch, pObj, NULL, TO_CHAR );
act( "$n spogl±da z dziwnym smutkiem na $h.", ch, pObj, NULL, TO_ROOM );
return ;
}
/* Gdy fajka jest zgaszona*/
if ( pObj->value[ 0 ] == 0 )
{
act( "Przecie¿ $p jest zgaszona!", ch, pObj, NULL, TO_CHAR );
return ;
}
/* Flaga informujaca o tym, ze gracz sobie pociagnal dymka... */
if ( !EXT_IS_SET( ch->act, PLR_SMOKED ) )
EXT_SET_BIT( ch->act, PLR_SMOKED );
if ( is_affected( ch, gsn_on_smoke ) )
{
old_smoke = affect_find( ch->affected, gsn_on_smoke );
old_dur = old_smoke->duration;
old_level = old_smoke->level;
affect_strip( ch, gsn_on_smoke );
}
level = weed_table[ pObj->value[2] ].weed_affect[0];
dur += old_dur;
level += old_level;
new_smoke.where = TO_AFFECTS;
new_smoke.type = gsn_on_smoke;
new_smoke.level = level;
new_smoke.duration = UMIN( dur, number_range( 5, 7 ) );
new_smoke.rt_duration = 0;
new_smoke.location = APPLY_NONE;
new_smoke.modifier = 0;
new_smoke.bitvector = &AFF_NONE;
if ( level > number_range( 5, 7 ) && weed_table[ pObj->value[2] ].weed_affect[0] && number_percent() < weed_table[ pObj->value[2] ].weed_affect[1] )
{
send_to_char( "\n\rZaczynasz czuæ siê jako¶ dziwnie. Przed oczyma zaczynaj± lataæ ci kolorowe plamki.\n\r", ch );
act( "\n\r$n zaczyna wygl±dajaæ jako¶ dziwnie blado.", ch, pObj, NULL, TO_ROOM );
if ( dice( 1, 2 ) == 1 )
new_smoke.bitvector = &AFF_HALLUCINATIONS_NEGATIVE;
else
new_smoke.bitvector = &AFF_HALLUCINATIONS_POSITIVE;
}
new_smoke.visible = FALSE;
affect_to_char( ch, &new_smoke, NULL, FALSE );
if ( number_percent() < weed_table[ pObj->value[2] ].weed_affect[2] )
{
if( is_affected(ch,gsn_poison ))
{
old_poison = affect_find( ch->affected, gsn_poison );
old_poison->duration += stat_throw(ch,STAT_CON) ? number_range(2,4) : number_range(4,8);
if( old_poison->level < UMIN( weed_table[ pObj->value[2] ].weed_affect[0], 3) )
old_poison->level = UMIN( weed_table[ pObj->value[2] ].weed_affect[0], 3);
act( "$n jeszcze bardziej zielenieje na twarzy.", ch, pObj, NULL, TO_ROOM );
send_to_char( "Czujesz siê jeszcze gorzej.\n\r", ch );
}
else
{
poison.where = TO_AFFECTS;
poison.type = gsn_poison;
poison.level = UMIN( weed_table[ pObj->value[2] ].weed_affect[0], 3);
poison.duration = stat_throw(ch,STAT_CON) ? number_range(2,4) : number_range(4,8);
poison.rt_duration = 0;
poison.location = APPLY_NONE;
poison.modifier = 0;
poison.bitvector = &AFF_NONE;
poison.visible = FALSE;
affect_to_char( ch, &poison, NULL, FALSE );
send_to_char( "Momentalnie zaczynasz czuæ siê jako¶ niedobrze. Bardzo niedobrze.\n\r", ch );
act( "$n widocznie zielenieje na twarzy.", ch, pObj, NULL, TO_ROOM );
}
}
/* Troche losowosci */
range = number_range( 1, 9 );
switch ( range )
{
case 1:
act( "$n zaci±ga siê g³êboko $j.", ch, pObj, NULL, TO_ROOM );
act( "Zaci±gasz siê g³êboko $j.", ch, pObj, NULL, TO_CHAR );
break;
case 2:
act( "$n pyka sobie $h przez chwilê.", ch, pObj, NULL, TO_ROOM );
act( "Pykasz sobie $h przez chwilê.", ch, pObj, NULL, TO_CHAR );
break;
case 3:
act( "$n wci±ga gwa³townie dym z $f.", ch, pObj, NULL, TO_ROOM );
act( "Wci±gasz gwa³townie dym z $f.", ch, pObj, NULL, TO_CHAR );
break;
case 4:
act( "$n zaci±ga siê delikatnie $j.", ch, pObj, NULL, TO_ROOM );
act( "Zaci±gasz siê delikatnie $j.", ch, pObj, NULL, TO_CHAR );
break;
case 5:
act( "Widzisz jak $n zaci±ga siê lekko $j.", ch, pObj, NULL, TO_ROOM );
act( "Zaci±gasz siê lekko $j.", ch, pObj, NULL, TO_CHAR );
break;
case 6:
act( "Dostrzegasz, jak $n z wpraw± zaci±ga siê dymkiem z $f.", ch, pObj, NULL, TO_ROOM );
act( "Z wielk± wpraw± zaci±gasz siê dymkiem z $f.", ch, pObj, NULL, TO_CHAR );
break;
case 7:
act( "$n jakby od niechcenia pali przez chwilê swoj± $h.", ch, pObj, NULL, TO_ROOM );
act( "Przez chwilkê machinalnie palisz sobie swoj± $h.", ch, pObj, NULL, TO_CHAR );
break;
case 8:
act( "$n z u¶miechem kurzy sobie $h.", ch, pObj, NULL, TO_ROOM );
act( "Kurzysz sobiê $h, u¶miechaj±c siê przy tym b³ogo.", ch, pObj, NULL, TO_CHAR );
break;
default:
act( "$n pali sobie przez chwilkê $h.", ch, pObj, NULL, TO_ROOM );
act( "Palisz sobie przez chwilkê $h.", ch, pObj, NULL, TO_CHAR );
break;
}
amount = number_range( 1, 3 ); // moze sie palic szybciej, lub wolniej (o 1, 2 lub o 3)
if ( pObj->value[ 0 ] == 1 ) // sprawdzamy czy fajeczka jest zapalona
{
pObj->value[ 1 ] -= amount; // wypalamy zawartosc fajeczki
//pObj->short_descr = capitalize(pObj->short_descr );
amount = number_range( 1, 7 );
switch ( amount )
{
case 1:
act( "Nad $j trzyman± przez $z unosi siê w±ska stru¿ka dymu.", ch, pObj, NULL, TO_ROOM );
act( "Nad $j unosi siê w±ska stru¿ka dymu.", ch, pObj, NULL, TO_CHAR );
break;
case 2:
act( "Nad $j $z unosz± siê ma³e, ciemne chmurki dymu.", ch, pObj, NULL, TO_ROOM );
act( "Nad $j unosz± siê ma³e, ciemne chmurki dymu.", ch, pObj, NULL, TO_CHAR );
break;
case 3:
act( "Widzisz jak w $f $z tl± siê ma³e, jasne iskierki.", ch, pObj, NULL, TO_ROOM );
act( "Widzisz kilka ma³ych, jasnych iskierek tl±cych siê w $k.", ch, pObj, NULL, TO_CHAR );
break;
case 4:
act( "Dostrzegasz, ¿e nad $f trzyman± przez $z unosi siê gêsta smuga dymu.", ch, pObj, NULL, TO_ROOM );
act( "Dosrzegasz unosz±c± siê nad $f gêst± smugê dymu.", ch, pObj, NULL, TO_CHAR );
break;
case 5:
act( "S³yszysz jak zawarto¶æ $f $z lekko syczy tl±c siê.", ch, pObj, NULL, TO_ROOM );
act( "S³yszysz jak zawarto¶æ $f lekko syczy tl±c siê.", ch, pObj, NULL, TO_CHAR );
break;
case 6:
act( "Czujesz delikatny aromat jakoby zio³owego dymu, bij±cy od $z i jego $f.", ch, pObj, NULL, TO_ROOM );
act( "Czujesz bij±cy od $f lekki, jakby zio³owy aromat.", ch, pObj, NULL, TO_CHAR );
break;
default:
act( "Zawarto¶æ $f nale¿±cej do $z tli siê lekko.", ch, pObj, NULL, TO_ROOM );
act( "Zawarto¶æ $f tli siê lekko.", ch, pObj, NULL, TO_CHAR );
break;
}
if ( pObj->value[ 1 ] <= 0 )
{
act( "Ostatnie, tl±ce siê iskierki gasn±, kiedy wypali³a siê ca³a zawarto¶æ $f.", ch, pObj, NULL, TO_CHAR );
act( "Widzisz jak $p $z ga¶nie z lekkim sykiem.", ch, pObj, NULL, TO_ROOM );
pObj->value[ 0 ] = 0;
pObj->value[ 1 ] = 0;
pObj->value [ 2 ] = 0;
}
}
return ;
}
if ( !str_prefix( arg1, "exhale" ) || !str_prefix( arg1, "wydech" ))
{
// Potrzebne staty do testow na 'triki'...
dex = get_curr_stat_deprecated(ch,STAT_DEX);
con = get_curr_stat_deprecated(ch,STAT_CON);
wis = get_curr_stat_deprecated(ch,STAT_WIS);
/* Zeby "wydychac" flaga palenia musi byc nalozona na gracza - sprawdzanie */
if ( !EXT_IS_SET( ch->act, PLR_SMOKED ) )
{
send_to_char( "Jak chcesz to zrobiæ? Najpierw musisz zaci±gn±æ siê dymem!\n\r", ch );
return ;
}
/* Pomocy!
if ( !str_prefix( arg2, "help" ) || !str_prefix( arg2, "pomoc" ))
{
act( "{R[PORADA]:{x\n\r", ch, NULL, NULL, TO_CHAR );
act( "{YZanim bêdziesz <&móg³/mog³a/mog³o> wydychaæ dym musisz paliæ fajkê.{x", ch, NULL, NULL, TO_CHAR );
act( "{YPo tym jak skoñczysz rozkoszowaæ siê bogatym smakiem ziela fajkowego...{x", ch, NULL, NULL, TO_CHAR );
act( "{YMo¿esz wydychaæ tytoniowy dym na ró¿ne sposoby, ¿eby uatrakcyjniæ palenie.{x", ch, NULL, NULL, TO_CHAR );
act( "{YSpróbuj tych oto typów wydechu, aby zadziwiæ znajomych:{x \n\r", ch, NULL, NULL, TO_CHAR );
act( "Angielskie komendy: RINGS, LINES, SPHERE, WEB, PHOENIX, HORNS, NAME", ch, NULL, NULL, TO_CHAR );
act( "Polskie komendy: KO£A, LINIE, KULA, SIEÆ, FENIKS, ROGI, IMIÊ\n\r", ch, NULL, NULL, TO_CHAR );
act( "\n\r{YSk³adnia angielska: {Gpipe exhale <nazwa figury>{x.", ch, NULL, NULL, TO_CHAR );
act( "{YSk³adnia polska: {Gfajka wydech <nazwa figury>{x.\n\r", ch, NULL, NULL, TO_CHAR );
return ;
}*/
if ( arg2[ 0 ] == '\0' )
{
switch ( number_range ( 1, 5 ) )
{
case 1:
act( "$n wydycha ustami ob³ok bladego, szarego dymu.", ch, NULL, NULL, TO_ROOM );
act( "Wydychasz ustami ob³ok szarego, bladego dymu.", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
case 2:
act( "$n wydycha nosem ob³ok bladego, szarego dymu.", ch, NULL, NULL, TO_ROOM );
act( "Wydychasz nosem ob³ok szarego, bladego dymu.", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
case 3:
act( "$n spokojnie wydycha ustami ob³ok bladego, szarego dymu.", ch, NULL, NULL, TO_ROOM );
act( "Spokojnie wydychasz ustami ob³ok szarego, bladego dymu.", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
case 4:
act( "$n spokojnie wydycha nosem ob³ok bladego, szarego dymu.", ch, NULL, NULL, TO_ROOM );
act( "Spokojnie wydychasz nosem ob³ok szarego, bladego dymu.", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
default:
act( "$n wydycha ob³ok bladego, szarego dymu.", ch, NULL, NULL, TO_ROOM );
act( "Wydychasz ob³ok szarego, bladego dymu.", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
}
else if ( !str_prefix( arg2, "ko³a" ) || !str_prefix( arg2, "rings" ) )
{
if ( dice( 2, dex - 10 ) >= 4 && dice( 2, con - 6 ) > 6 )
{
act( "$n niespodziewanie wypuszcza z ust kilka du¿ych, zadziwiaj±co okr±g³ych kó³ z dymu, które uk³adaj± siê w ¶mieszny tunel zawieszony w powietrzu!", ch, NULL, NULL, TO_ROOM );
act( "Wypuszczasz z ust kilka du¿ych, zadziwiaj±co okr±g³ych kó³ z dymu, które uk³adaj± siê w ¶mieszny tunel zawieszony w powietrzu!", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
else
{
switch ( number_range ( 1, 4 ) )
{
case 1:
act( "$n nagle robi dziwn± minê, po czym momentalnie dostaje ataku kaszlu.", ch, pObj, NULL, TO_ROOM );
act( "Próbujesz zrobiæ sztuczkê, jednak w ostatniej chwili dym zacz±³ gry¼æ ciê w gar³o i <&dosta³e¶/dosta³a¶/dosta³o¶> ataku kaszlu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 2:
act( "Widzisz jak $n koncentruje siê przez chwilkê, aby po chwili wypu¶ciæ z ust niekszta³tn± chmurê dymu.", ch, pObj, NULL, TO_ROOM );
act( "Koncentrujesz siê przez chwilkê, chc±c wypu¶ciæ z ust chmurê dymu w kszta³cie ko³a, jednak nie udaje ci siê to.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 3:
act( "$n nagle zielenieje na twarzy, a z jego nosa zaczynaj± wylatywaæ szare stru¿ki dymu.", ch, pObj, NULL, TO_ROOM );
act( "W ostatniej chwili przygotowañ do zrobienia sztuczki krztusisz siê i bezwiednie wypuszczasz dym nosem.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
default:
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
act( "$n próbuje zrobiæ jak±¶ sztuczkê z wypuszczeniem z ust dymu, jednak udaje mu siê jedynie uformowaæ dym w bezkszta³tn± chmurê.", ch, pObj, NULL, TO_ROOM );
act( "Starasz siê wypu¶ciæ z ust kilka kszta³tnych kó³, jednak nie udaje ci siê, a dym przybiera kszta³t nieforemnej chmury.", ch, pObj, NULL, TO_CHAR );
break;
}
}
}
else if ( !str_prefix( arg2, "linie" ) || !str_prefix( arg2, "lines" ))
{
if ( dice( 2, dex - 10 ) > 5 && dice( 2, con - 8 ) >= 5 )
{
act( "$n wydycha d³ug± smugê dymu w kszta³cie piêknej, prostej linii, zdaj±c± siê pi±æ w kierunku nieba!", ch, NULL, NULL, TO_ROOM );
act( "Wydychasz d³ug± smugê dymu w kszta³cie piêknej, prostej linii, zdaj±c± siê pi±æ w kierunku nieba!", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
else
{
switch ( number_range ( 1, 5 ) )
{
case 1:
act( "$n nagle robi dziwn± minê, po czym momentalnie dostaje ataku kaszlu.", ch, pObj, NULL, TO_ROOM );
act( "Próbujesz zrobiæ sztuczkê, jednak w ostatniej chwili dym zacz±³ gry¼æ ciê w gar³o i <&dosta³e¶/dosta³a¶/dosta³o¶> ataku kaszlu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 2:
act( "Widzisz jak $n koncentruje siê przez chwilkê, aby po chwili wypu¶ciæ z ust niekszta³tn± chmurê dymu.", ch, pObj, NULL, TO_ROOM );
act( "Koncentrujesz siê przez chwilkê, chc±c wypu¶ciæ z ust chmurê dymu w kszta³cie linii, jednak nie udaje ci siê to.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 3:
act( "$n nagle zielenieje na twarzy, a z jego nosa zaczynaj± wylatywaæ szare stru¿ki dymu.", ch, pObj, NULL, TO_ROOM );
act( "W ostatniej chwili przygotowañ do zrobienia sztuczki krztusisz siê i bezwiednie wypuszczasz dym nosem.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 4:
act( "$n z gracj± zaczyna wypuszczaæ z ust kilka chmurek dymu, które niespodziewanie szybko rozp³ywaj± siê w powietrzu.", ch, pObj, NULL, TO_ROOM );
act( "W skupieniu wypuszczasz z ust kilka chmurek dymu, te jednak rozp³ywaj± siê szybko w powietrzu zanim zd±zy³y siê uformowaæ w jaki¶ kszta³t.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
default:
act( "$n próbuje zrobiæ jak±¶ sztuczkê z wypuszczeniem z ust dymu, jednak udaje mu siê jedynie uformowaæ dym w bezkszta³tn± chmurê.", ch, pObj, NULL, TO_ROOM );
act( "Starasz siê wypu¶ciæ z ust prost± liniê dymu, jednak nie udaje ci siê, a dym przybiera kszta³t nieforemnej chmury.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
}
}
}
else if ( !str_prefix( arg2, "kula" ) || !str_prefix( arg2, "sphere" ))
{
if ( dice( 2, dex - 5 ) >= 7 && dice( 3, con - 2 ) > 15 )
{
act( "$n wypuszcza z ust jedn±, niesamowicie okr±g³a, chmurê dymu w kszta³cie idealnej kuli!", ch, NULL, NULL, TO_ROOM );
act( "Wypuszczasz z ust du¿±, niesamowicie okr±g³±, chmurê dymu w kszta³cie idealnej kuli!", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
else
{
switch ( number_range ( 1, 5 ) )
{
case 1:
act( "$n nagle robi dziwn± minê, po czym momentalnie dostaje ataku kaszlu.", ch, pObj, NULL, TO_ROOM );
act( "Próbujesz zrobiæ sztuczkê, jednak w ostatniej chwili dym zacz±³ gry¼æ ciê w gar³o i <&dosta³e¶/dosta³a¶/dosta³o¶> ataku kaszlu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 2:
act( "Widzisz jak $n koncentruje siê przez chwilkê, aby po chwili wypu¶ciæ z ust niekszta³tn± chmurê dymu.", ch, pObj, NULL, TO_ROOM );
act( "Koncentrujesz siê przez chwilkê, chc±c wypu¶ciæ z ust chmurê dymu w kszta³cie kuli, jednak nie udaje ci siê to.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 3:
act( "$n nagle zielenieje na twarzy, a z jego nosa zaczynaj± wylatywaæ szare stru¿ki dymu.", ch, pObj, NULL, TO_ROOM );
act( "W ostatniej chwili przygotowañ do zrobienia sztuczki krztusisz siê i bezwiednie wypuszczasz dym nosem.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 4:
act( "$n nagle zaczyna kaszlaæ dymem, a dym który ulatuje z jego ust tworzy dziwn± chmurkê.", ch, pObj, NULL, TO_ROOM );
act( "Niespodziewanie co¶ ci nie wychodzi, krztusisz siê i kaszlaj±c panicznie wypuszczasz z ust resztki dymu.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
default:
act( "$n próbuje zrobiæ jak±¶ sztuczkê z wypuszczeniem z ust dymu, jednak udaje mu siê jedynie uformowaæ dym w bezkszta³tn± chmurê.", ch, pObj, NULL, TO_ROOM );
act( "Starasz siê wypu¶ciæ z ust kulê dymu, jednak nie udaje ci siê, a dym przybiera kszta³t nieforemnej chmury.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
}
}
}
else if ( !str_prefix( arg2, "sieæ" ) || !str_prefix( arg2, "web" ))
{
if ( dice( 2, dex - 5 ) >= 15 && dice( 2, con - 8 ) > 6 )
{
act( "$n wydycha kilkana¶cie cieniutkich, zwiewnych pasemek dymu, które niespodziewanie ³±cz± siê tworz±c delikatn±, prawie pajêcz±, sieæ w powietrzu!", ch, NULL, NULL, TO_ROOM );
act( "Wydychasz kilkana¶cie cieniutkich, zwiewnych pasemek dymu, które niespodziewanie ³±cz± siê tworz±c delikatn±, prawie pajêcz±, sieæ w powietrzu!", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
else
{
switch ( number_range ( 1, 5 ) )
{
case 1:
act( "$n nagle robi dziwn± minê, po czym momentalnie dostaje ataku kaszlu.", ch, pObj, NULL, TO_ROOM );
act( "Próbujesz zrobiæ sztuczkê, jednak w ostatniej chwili dym zacz±³ gry¼æ ciê w gar³o i <&dosta³e¶/dosta³a¶/dosta³o¶> ataku kaszlu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 2:
act( "Widzisz jak $n koncentruje siê przez chwilkê, aby po chwili wypu¶ciæ z ust niekszta³tn± chmurê dymu.", ch, pObj, NULL, TO_ROOM );
act( "Koncentrujesz siê przez chwilkê, chc±c wypu¶ciæ z ust chmurê dymu w kszta³cie kuli, jednak nie udaje ci siê to.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 3:
act( "$n nagle zielenieje na twarzy, a z jego nosa zaczynaj± wylatywaæ szare stru¿ki dymu.", ch, pObj, NULL, TO_ROOM );
act( "W ostatniej chwili przygotowañ do zrobienia sztuczki krztusisz siê i bezwiednie wypuszczasz dym nosem.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 4:
act( "$n wydycha szybk± seriê w±skich dymków, które wydaj± siê pe³zaæ w powietrzu jak niepos³usze robaczki, szybko rozp³ywaj±ce siê w powietrzu.", ch, pObj, NULL, TO_ROOM );
act( "Szybko wydychasz seriê w±skich dymków chc±c z nich uformowaæ pajêczynê, te jednak szybko rozp³ywaj± siê w powietrzu.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
default:
act( "$n próbuje zrobiæ jak±¶ sztuczkê z wypuszczeniem z ust dymu, jednak udaje mu siê jedynie uformowaæ dym w bezkszta³tn± chmurê.", ch, pObj, NULL, TO_ROOM );
act( "Starasz siê wypu¶ciæ z ust seriê dymków, jednak nie udaje ci siê, a sam dym przybiera kszta³t nieforemnej chmury.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
}
}
}
else if ( !str_prefix( arg2, "feniks" ) || !str_prefix( arg2, "phoenix" ) || !str_prefix( arg2, "fenix" ) )
{
if ( dice( 2, dex - 10 ) >= 8 && dice( 2, con - 10 ) >= 8 && dice( 2, wis - 10 ) >= 5 )
{
act( "$n wydycha serie ma³ych chmurek dymu, które na chwilê uk³adaj± siê w wizerunek feniksa, tylko po to, aby chwilê pó¼niej rozp³ynê³y siê, niczym proch.", ch, NULL, NULL, TO_ROOM );
act( "Wydychasz serie ma³ych chmurek dymu, które na chwilê uk³adaj± siê w wizerunek feniksa, tylko po to, aby chwilê pó¼niej rozp³ynê³y siê, niczym proch.", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
else
{
switch ( number_range ( 1, 7 ) )
{
case 1:
act( "$n nagle robi dziwn± minê, po czym momentalnie dostaje ataku kaszlu.", ch, pObj, NULL, TO_ROOM );
act( "Próbujesz zrobiæ sztuczkê, jednak w ostatniej chwili dym zacz±³ gry¼æ ciê w gar³o i <&dosta³e¶/dosta³a¶/dosta³o¶> ataku kaszlu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 2:
act( "Widzisz jak $n koncentruje siê przez chwilkê, aby po chwili wypu¶ciæ z ust niekszta³tn± chmurê dymu.", ch, pObj, NULL, TO_ROOM );
act( "Koncentrujesz siê przez chwilkê, chc±c wypu¶ciæ z ust chmurê dymu w kszta³cie linii, jednak nie udaje ci siê to.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 3:
act( "$n nagle zielenieje na twarzy, a z jego nosa zaczynaj± wylatywaæ szare stru¿ki dymu.", ch, pObj, NULL, TO_ROOM );
act( "W ostatniej chwili przygotowañ do zrobienia sztuczki krztusisz siê i bezwiednie wypuszczasz dym nosem.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 4:
act( "$n w wielkim skupieniu wydycha kilkana¶cie dymków, które zaczynaj± uk³adaæ siê w powietrzu w co¶ przypominaj±cego hybrydê szczura z ludzkimi nogami... Czy to by³o zamierzone?", ch, pObj, NULL, TO_ROOM );
act( "W wielkim skupieniu wydychasz kilkana¶cie dymków, które niespodziewanie zamiast feniksa uk³adaj± siê w co¶ przypominaj±cego po³±czenie szczura z ludzkimi nogami! Okropne.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 5:
act( "$n, z grymasem na twarzy, wypuszcza z ust kilkana¶cie dymków, które uk³adaj± siê w powietrzu w jaki¶ dziwny ptakopodobny twór, wygl±daj±cy dosyæ ohydnie.", ch, pObj, NULL, TO_ROOM );
act( "Czuj±c, ¿e co¶ pójdzie ¼le wypuszczasz z ust kilkana¶cie dymków, które uk³adaj± siê w powietrzu w jaki¶ bezkszta³tny, ptakopodobny twór.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 6:
act( "$n, z wyrazem pewno¶ci siebie na twarzy, wydycha seriê ma³ych dymków, które nagle ³±cz± siê w powietrzu tworz±c pewien du¿y, oble¶ny kszta³t... Hmm, to ciekawe. K±tem oka widzisz, ¿e $n siê rumieni na widok swojego dzie³a.", ch, pObj, NULL, TO_ROOM );
act( "Wypuszczasz z ust kilkana¶cie ma³ych dymków, które nagle ³±cz± siê w powietrzu, tworz±c naprawdê du¿y, oble¶ny kszta³t. Chyba siê zaraz spalisz ze wstydu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
default:
act( "$n próbuje zrobiæ jak±¶ sztuczkê z wypuszczeniem z ust dymu, jednak udaje mu siê jedynie uformowaæ dym w bezkszta³tn± chmurê.", ch, pObj, NULL, TO_ROOM );
act( "Starasz siê wypu¶ciæ z ust kilkana¶cie dymków, jednak nie udaje ci siê, a sam dym przybiera kszta³t nieforemnej chmury.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
}
}
}
else if ( !str_prefix( arg2, "rogi" ) || !str_prefix( arg2, "horns" ))
{
if ( dice( 2, dex - 10 ) >= 9 && dice( 2, con - 6 ) >= 10 )
{
act( "$n wydycha dwie grube smugi dymu, które uk³adaj± siê nad $m niczym para wielkich rogów!", ch, NULL, NULL, TO_ROOM );
act( "Wydychasz dwie grube smugi dymu, które uk³adaj± sie nad tob± niczym para wielkich rogów!", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
else
{
switch ( number_range ( 1, 4 ) )
{
case 1:
act( "$n nagle robi dziwn± minê, po czym momentalnie dostaje ataku kaszlu.", ch, pObj, NULL, TO_ROOM );
act( "Próbujesz zrobiæ sztuczkê, jednak w ostatniej chwili dym zacz±³ gry¼æ ciê w gar³o i <&dosta³e¶/dosta³a¶/dosta³o¶> ataku kaszlu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 2:
act( "Widzisz jak $n koncentruje siê przez chwilkê, aby po chwili wypu¶ciæ z ust niekszta³tn± chmurê dymu.", ch, pObj, NULL, TO_ROOM );
act( "Koncentrujesz siê przez chwilkê, chc±c wypu¶ciæ z ust chmurê dymu w kszta³cie linii, jednak nie udaje ci siê to.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 3:
act( "$n nagle zielenieje na twarzy, a z jego nosa zaczynaj± wylatywaæ szare stru¿ki dymu.", ch, pObj, NULL, TO_ROOM );
act( "W ostatniej chwili przygotowañ do zrobienia sztuczki krztusisz siê i bezwiednie wypuszczasz dym nosem.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
default:
act( "$n próbuje zrobiæ jak±¶ sztuczkê z wypuszczeniem z ust dymu, jednak udaje mu siê jedynie uformowaæ dym w bezkszta³tn± chmurê.", ch, pObj, NULL, TO_ROOM );
act( "Starasz siê wypu¶ciæ z ust prost± liniê dymu, jednak nie udaje ci siê, a dym przybiera kszta³t nieforemnej chmury.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
}
}
}
else if ( !str_prefix( arg2, "imiê" ) || !str_prefix( arg2, "name" ))
{
if ( dice( 2, dex - 10 ) >= 8 && dice( 2, con - 8 ) >= 9 && dice( 2, wis - 10 ) > 6 )
{
act( "$n wypuszcza z ust kilkana¶cie ma³ych dymków, które niespodziewanie tworz± w powietrzu napis '$n'! Niesamowite!", ch, NULL, NULL, TO_ROOM );
act( "Wypuszczasz z ust kilkana¶cie ma³ych dymków, które niespodziewanie tworz± w powietrzu napis '$n'! ¦wietnie!", ch, NULL, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
return ;
}
else
{
switch ( number_range ( 1, 6 ) )
{
case 1:
act( "$n nagle robi dziwn± minê, po czym momentalnie dostaje ataku kaszlu.", ch, pObj, NULL, TO_ROOM );
act( "Próbujesz zrobiæ sztuczkê, jednak w ostatniej chwili dym zacz±³ gry¼æ ciê w gar³o i <&dosta³e¶/dosta³a¶/dosta³o¶> ataku kaszlu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 2:
act( "Widzisz jak $n koncentruje siê przez chwilkê, aby po chwili wypu¶ciæ z ust niekszta³tn± chmurê dymu.", ch, pObj, NULL, TO_ROOM );
act( "Koncentrujesz siê przez chwilkê, chc±c wypu¶ciæ z ust chmurê dymu w kszta³cie linii, jednak nie udaje ci siê to.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 3:
act( "$n nagle zielenieje na twarzy, a z jego nosa zaczynaj± wylatywaæ szare stru¿ki dymu.", ch, pObj, NULL, TO_ROOM );
act( "W ostatniej chwili przygotowañ do zrobienia sztuczki krztusisz siê i bezwiednie wypuszczasz dym nosem.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 4:
act( "$n, z wyrazem pewno¶ci siebie na twarzy, wydycha seriê ma³ych dymków, które nagle ³±cz± siê w powietrzu tworz±c pewien du¿y, oble¶ny kszta³t... Hmm, to ciekawe. K±tem oka widzisz, ¿e $n siê rumieni na widok swojego dzie³a.", ch, pObj, NULL, TO_ROOM );
act( "Wypuszczasz z ust kilkana¶cie ma³ych dymków, które nagle ³±cz± siê w powietrzu, tworz±c naprawdê du¿y, oble¶ny kszta³t. Chyba siê zaraz spalisz ze wstydu!", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
case 5:
print_char( ch, "Wydychasz w wielkim skupieniu kilkana¶cie szarych dymków, które niespodziewanie tworz± w powietrzu bezsensowny napis '%s'!", gen_random_str( 4, 8 ) );
sprintf( buf, "$n wydycha w wielkim skupieniu kilkana¶cie szarych dymków, które niespodziewanie tworz± w powietrzu bezsensowny napis '%s'!\n\r", gen_random_str( 4, 8 ) );
act( buf, ch, NULL, NULL, TO_ROOM );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
default:
act( "$n próbuje zrobiæ jak±¶ sztuczkê z wypuszczeniem z ust dymu, jednak udaje mu siê jedynie uformowaæ dym w bezkszta³tn± chmurê.", ch, pObj, NULL, TO_ROOM );
act( "Starasz siê wypu¶ciæ z ust kilka dziwnych chmurek dymu, jednak nie udaje ci siê, a dym przybiera kszta³t nieforemnej chmury.", ch, pObj, NULL, TO_CHAR );
EXT_REMOVE_BIT( ch->act, PLR_SMOKED );
break;
}
}
}
else
{
send_to_char( "Huh?! Nie znasz takiej sztuczki!\n\r", ch );
return;
}
}
// Nabijanie fajki
if ( !str_prefix( arg1, "tamp" ) || !str_prefix( arg1, "nabij" ))
{
// Seria zabezpieczen...
if ( pObj == NULL ) pObj = get_eq_char( ch, WEAR_HOLD );
if ( pObj == NULL )
{
act( "Co chcesz nabiæ?", ch, pObj, NULL, TO_CHAR );
return ;
}
if ( pObj->item_type != ITEM_PIPE )
{
send_to_char( "Mo¿esz nabijaæ jedynie fajki!\n\r", ch );
return ;
}
if ( ( qObj = get_obj_carry( ch, arg3, ch ) ) == NULL )
{
act( "Czym chcesz nabiæ $h?", ch, pObj, NULL, TO_CHAR );
return ;
}
if ( qObj->item_type != ITEM_WEED )
{
pipe_name = capitalize( pObj->name4 );
sprintf( pipe_name_2, "%s mo¿esz nabiæ jedynie jakim¶ rodzajem ziela.", pipe_name );
act( pipe_name_2, ch, pObj, NULL, TO_CHAR );
}
else if ( pObj->value[ 0 ] == 1 )
{
pipe_name = capitalize( pObj->short_descr );
sprintf( pipe_name_2, "%s jest zapalona, nie mo¿esz jej teraz nabijaæ!", pipe_name );
act( pipe_name_2, ch, pObj, NULL, TO_CHAR );
return ;
}
else if ( pObj->value[ 1 ] > 0 )
{
pipe_name = capitalize( pObj->short_descr );
sprintf( pipe_name_2, "%s jest ju¿ czym¶ nabita. Przed ponownym nabiciem opró¿nij j±.", pipe_name );
act( pipe_name_2, ch, pObj, NULL, TO_CHAR );
return ;
}
else
{
// Nabijanie fajki, przepisywanie wartosci ziela do fajeczki.
weed_amount = qObj->value [ 0 ];
weed_type = qObj->value [ 1 ];
pObj->value [ 1 ] = weed_amount;
pObj->value [ 2 ] = weed_type;
print_char( ch, "Nabijasz %s %s.\n\r", pObj->name4, qObj->name5 );
sprintf( buf, "$n nabija %s %s.\n\r", pObj->name4, qObj->name5 );
act( buf, ch, NULL, NULL, TO_ROOM );
extract_obj( qObj );
return ;
}
}
// zapalanie
if ( !str_prefix( arg1, "light" ) || !str_prefix( arg1, "zapal" ))
{
pObj = get_obj_carry( ch, arg2, ch );
if ( pObj == NULL ) pObj = get_eq_char( ch, WEAR_HOLD );
if ( pObj == NULL )
{
act( "Co chcesz zapaliæ?", ch, pObj, NULL, TO_CHAR );
return ;
}
if ( pObj->item_type != ITEM_PIPE )
{
send_to_char( "Mo¿esz zapalaæ jedynie fajki!\n\r", ch );
return ;
}
else if ( pObj->value[ 0 ] == 1 )
{
pipe_name = capitalize( pObj->short_descr );
sprintf( pipe_name_2, "%s jest ju¿ zapalona.", pipe_name );
act( pipe_name_2, ch, pObj, NULL, TO_CHAR );
return ;
}
else if ( pObj->value[ 2 ] == 4 )
{
act( "Zawarto¶æ $f jest mokra! Nie dasz rady tego zapaliæ.", ch, pObj, NULL, TO_CHAR );
act( "Lepiej wyczy¶æ $h i nape³nij j± czym¶ suchym, najlepiej zielem fajkowym.", ch, pObj, NULL, TO_CHAR );
return ;
}
else
{
pObj->value [ 0 ] = 1;
act( "Zapalaj±c $h zaczynasz czuæ przyjemny, delikatny zapach palonego ziela.", ch, pObj, NULL, TO_CHAR );
act( "$n zapala $h. Czujesz jak w powietrzu zaczyna unosiæ siê lekki zapach palonego ziela.", ch, pObj, NULL, TO_ROOM );
return ;
}
}
// gaszenie
if ( !str_prefix( arg1, "extinguish" ) || !str_prefix( arg1, "zga¶" ))
{
/*if ( ( pObj = get_obj_carry( ch, arg2, ch ) ) == NULL )
{
act( "Co chcesz zgasiæ?", ch, pObj, NULL, TO_CHAR );
return ;
}*/
if ( pObj == NULL ) pObj = get_eq_char( ch, WEAR_HOLD );
if ( pObj == NULL )
{
act( "Co chcesz zgasiæ?", ch, pObj, NULL, TO_CHAR );
return ;
}
if ( pObj->item_type != ITEM_PIPE )
{
send_to_char( "Mo¿esz gasiæ jedynie fajki!\n\r", ch );
return ;
}
else if ( pObj->value[ 0 ] == 0 )
{
pipe_name = capitalize( pObj->short_descr );
sprintf( pipe_name_2, "%s jest ju¿ zgaszona.", pipe_name );
act( pipe_name_2, ch, pObj, NULL, TO_CHAR );
return ;
}
else
{
pObj->value [ 0 ] = 0;
act( "Gasz±c $h widzisz jak ostatnie iskierki ognia bledn± i znikaj±.", ch, pObj, NULL, TO_CHAR );
act( "$n gasi $h.", ch, pObj, NULL, TO_ROOM );
return ;
}
}
// czyszczenie / opró¿nianie
if ( !str_prefix( arg1, "clean" ) || !str_prefix( arg1, "wyczy¶æ" ))
{
/*if ( ( pObj = get_obj_carry( ch, arg2, ch ) ) == NULL )
{
act( "Co chcesz wyczy¶ciæ?", ch, pObj, NULL, TO_CHAR );
return ;
}*/
if ( pObj == NULL ) pObj = get_eq_char( ch, WEAR_HOLD );
if ( pObj == NULL )
{
act( "Co chcesz wyczy¶ciæ?", ch, pObj, NULL, TO_CHAR );
return ;
}
if ( pObj->item_type != ITEM_PIPE )
{
send_to_char( "Mo¿esz czy¶ciæ jedynie fajki!\n\r", ch );
return ;
}
else if ( pObj->value[ 0 ] == 1 )
{
act( "Mo¿e lepiej najpierw zga¶ $h?", ch, pObj, NULL, TO_CHAR );
return ;
}
else if ( pObj->value[ 1 ] == 0 )
{
act( "Ogl±dasz z dum± $h, po czym pucujesz j± dok³adnie rêkawem. Teraz jest naprawdê czysta!", ch, pObj, NULL, TO_CHAR );
act( "$n z dum± pucuje $h, u¶miechaj±c siê przy tym tajemniczo.", ch, pObj, NULL, TO_ROOM );
return ;
}
else
{
pObj->value [ 1 ] = 0;
pObj->value [ 2 ] = 0;
act( "Wysypujesz zawarto¶æ $f. Teraz jest pusta.", ch, pObj, NULL, TO_CHAR );
act( "$n wysypuje zawarto¶æ $f.", ch, pObj, NULL, TO_ROOM );
return ;
}
}
send_to_char( "Huh?\n\r", ch );
return;
}
void sound_effect( void *vo, int level, int dam, int target )
{
if ( target == TARGET_CHAR )
{
CHAR_DATA * victim = ( CHAR_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
AFFECT_DATA af;
if ( !victim->in_room )
return ;
/* jesli ma uszy moze ogluchnac */
if ( IS_SET( race_table[ GET_RACE( victim ) ].parts, PART_EAR ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_MAGICAL ) &&
!is_undead( victim ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_CONSTRUCT ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_MIST ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_BLOB ) &&
!IS_SET( race_table[ GET_RACE( victim ) ].form, FORM_DRAGON ) &&
!IS_AFFECTED( victim, AFF_DEAFNESS ) &&
!IS_AFFECTED( victim, AFF_PERFECT_SENSES ) )
{
if ( number_percent() < dam - victim->resists[RESIST_SOUND] )
{
af.where = TO_AFFECTS;
af.type = 169;
af.level = level;
af.duration = 3;
af.rt_duration = 0;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = &AFF_DEAFNESS;
affect_to_char( victim, &af, NULL, TRUE );
send_to_char( "Ból w uszach potêguje siê coraz bardziej, a g³osy wokó³ ciebie nagle milkn±.\n\r", victim );
act( "Z uszu $z wyp³ywa stru¿ka krwi.", victim, NULL, NULL, TO_ROOM );
}
}
if ( is_affected(victim, gsn_mirrorfall) )
{
affect_strip(victim, gsn_mirrorfall);
return;
}
for ( obj = victim->carrying; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
sound_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
else if ( target == TARGET_OBJ )
{
OBJ_DATA * obj = ( OBJ_DATA * ) vo;
OBJ_DATA *t_obj, *n_obj;
/* Tener: dodanie szansy na unikniêcie w zale¿no¶ci od poziomu czaru [20080512] */
//2008-11-20, Brohacz: wylaczam. Spelle powyzej 25 levela nie psuja przeciez przez to gratow!
/*if ( URANGE( 1, number_range( 1, 30 - level ), 10 ) < 5 )
return;*/
if ( !check_item_resist( obj, RESIST_SOUND, dam+level ) )
return;
if ( obj->carried_by != NULL )
{
if( obj->liczba_mnoga)
act( "$p rozpryskuj± siê na kawa³eczki.", obj->carried_by, obj, NULL, TO_ALL );
else
act( "$p rozpryskuje siê na kawa³eczki.", obj->carried_by, obj, NULL, TO_ALL );
}
else if ( obj->in_room != NULL && obj->in_room->people != NULL )
{
if( obj->liczba_mnoga)
act( "$p rozpryskuj± siê na kawa³eczki.", obj->carried_by, obj, NULL, TO_ALL );
else
act( "$p rozpryskuje siê na kawa³eczki.", obj->carried_by, obj, NULL, TO_ALL );
}
if ( obj->contains )
{
for ( t_obj = obj->contains; t_obj != NULL; t_obj = n_obj )
{
n_obj = t_obj->next_content;
obj_from_obj( t_obj );
if ( obj->in_room != NULL )
obj_to_room( t_obj, obj->in_room );
else if ( obj->carried_by != NULL )
obj_to_room( t_obj, obj->carried_by->in_room );
else
{
/*artefact*/
if ( is_artefact( t_obj ) ) extract_artefact( t_obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( t_obj );
continue;
}
shock_effect( t_obj, level / 2, dam / 2, TARGET_OBJ );
}
}
/*artefact*/
if ( is_artefact( obj ) ) extract_artefact( obj );
if ( obj->contains ) extract_artefact_container( obj );
extract_obj( obj );
return ;
}
else if ( target == TARGET_ROOM )
{
ROOM_INDEX_DATA * room = ( ROOM_INDEX_DATA * ) vo;
OBJ_DATA *obj, *obj_next;
for ( obj = room->contents; obj != NULL; obj = obj_next )
{
OBJ_NEXT_CONTENT( obj, obj_next );
sound_effect( obj, level, dam, TARGET_OBJ );
}
return ;
}
return;
}
