int
is_ok_char(struct char_data * keeper, struct char_data * ch, int shop_nr)
{
char buf[200];
if (!(CAN_SEE(keeper, ch)))
{
do_say(keeper, MSG_NO_SEE_CHAR, cmd_say, 0);
return (FALSE);
}
if (IS_GOD(ch))
return (TRUE);
if ((IS_GOOD(ch) && NOTRADE_GOOD(shop_nr)) ||
(IS_EVIL(ch) && NOTRADE_EVIL(shop_nr)) ||
(IS_NEUTRAL(ch) && NOTRADE_NEUTRAL(shop_nr)))
{
sprintf(buf, "%s %s", GET_NAME(ch), MSG_NO_SELL_ALIGN);
do_tell(keeper, buf, cmd_tell, 0);
return (FALSE);
}
if (IS_NPC(ch))
return (TRUE);
if ((IS_MAGIC_USER(ch) && NOTRADE_MAGIC_USER(shop_nr)) ||
(IS_CLERIC(ch) && NOTRADE_CLERIC(shop_nr)) ||
(IS_THIEF(ch) && NOTRADE_THIEF(shop_nr)) ||
(IS_WARRIOR(ch) && NOTRADE_WARRIOR(shop_nr)))
{
sprintf(buf, "%s %s", GET_NAME(ch), MSG_NO_SELL_CLASS);
do_tell(keeper, buf, cmd_tell, 0);
return (FALSE);
}
return (TRUE);
}
/* Hitpoint gain pr. game hour */
int hit_gain(struct char_data * ch)
{
int gain;
if (IS_NPC(ch)) {
/* Neat and fast */
gain = GET_LEVEL(ch);
} else {
gain = graf(age(ch)->year, 8, 12, 20, 32, 16, 10, 4);
/* Class/Level calculations */
/* Skill/Spell calculations */
/* Position calculations */
switch (GET_POS(ch)) {
case POS_SLEEPING:
gain += (gain / 2); /* Divide by 2 */
break;
case POS_RESTING:
gain += (gain / 4); /* Divide by 4 */
break;
case POS_SITTING:
gain += (gain / 8); /* Divide by 8 */
break;
}
if (IS_MAGIC_USER(ch) || IS_CLERIC(ch))
gain /= 2; /* Ouch. */
if ((GET_COND(ch, FULL) == 0) || (GET_COND(ch, THIRST) == 0))
gain /= 4;
}
if (AFF_FLAGGED(ch, AFF_POISON))
gain /= 4;
return (gain);
}
void
psionic_best_attack(struct creature *ch, struct creature *vict)
{
int aggression = calculate_mob_aggression(ch, vict);
// Psions can't really do anything when there's a psishield in place
if (AFF3_FLAGGED(vict, AFF3_PSISHIELD)
&& can_cast_spell(ch, SPELL_PSIONIC_SHATTER)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSIONIC_SHATTER);
return;
}
if (aggression > 75) {
// extremely aggressive - just attack hard
if (!affected_by_spell(vict, SPELL_PSYCHIC_SURGE)
&& can_cast_spell(ch, SPELL_PSYCHIC_SURGE)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSYCHIC_SURGE);
return;
} else if (can_cast_spell(ch, SKILL_PSIBLAST)) {
perform_offensive_skill(ch, vict, SKILL_PSIBLAST);
return;
} else if (GET_POSITION(vict) > POS_SITTING
&& can_cast_spell(ch, SPELL_EGO_WHIP)) {
cast_spell(ch, vict, NULL, NULL, SPELL_EGO_WHIP);
return;
}
}
if (aggression > 50) {
// somewhat aggressive - balance attacking with crippling
if (!affected_by_spell(vict, SPELL_PSYCHIC_CRUSH)
&& can_cast_spell(ch, SPELL_PSYCHIC_CRUSH)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSYCHIC_CRUSH);
return;
} else if (!affected_by_spell(vict, SPELL_MOTOR_SPASM)
&& can_cast_spell(ch, SPELL_MOTOR_SPASM)) {
cast_spell(ch, vict, NULL, NULL, SPELL_MOTOR_SPASM);
return;
} else if (GET_POSITION(vict) > POS_SITTING
&& can_cast_spell(ch, SPELL_EGO_WHIP)) {
cast_spell(ch, vict, NULL, NULL, SPELL_EGO_WHIP);
return;
} else if (can_cast_spell(ch, SKILL_PSIBLAST)) {
perform_offensive_skill(ch, vict, SKILL_PSIBLAST);
return;
}
}
if (aggression > 25) {
// not very aggressive - play more defensively
if (!IS_CONFUSED(vict)
&& can_cast_spell(ch, SPELL_CONFUSION)
&& (IS_MAGE(vict) || IS_PSIONIC(vict) || IS_CLERIC(vict) ||
IS_KNIGHT(vict) || IS_PHYSIC(vict))) {
cast_spell(ch, vict, NULL, NULL, SPELL_CONFUSION);
return;
} else if (!AFF2_FLAGGED(ch, AFF2_VERTIGO)
&& can_cast_spell(ch, SPELL_VERTIGO)) {
cast_spell(ch, vict, NULL, NULL, SPELL_VERTIGO);
return;
} else if (!affected_by_spell(vict, SPELL_PSYCHIC_FEEDBACK)
&& can_cast_spell(ch, SPELL_PSYCHIC_FEEDBACK)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSYCHIC_FEEDBACK);
return;
} else if (nullpsi_is_advisable(vict)
&& can_cast_spell(ch, SPELL_NULLPSI)) {
cast_spell(ch, vict, NULL, NULL, SPELL_NULLPSI);
return;
} else if (can_cast_spell(ch, SKILL_PSIBLAST)) {
perform_offensive_skill(ch, vict, SKILL_PSIBLAST);
return;
}
}
if (aggression > 5) {
// attempt to neutralize or get away
if (GET_POSITION(vict) > POS_SLEEPING
&& can_cast_spell(ch, SPELL_MELATONIC_FLOOD)) {
cast_spell(ch, vict, NULL, NULL, SPELL_MELATONIC_FLOOD);
return;
} else if (can_cast_spell(ch, SPELL_ASTRAL_SPELL)) {
cast_spell(ch, vict, NULL, NULL, SPELL_ASTRAL_SPELL);
return;
} else if (can_cast_spell(ch, SPELL_AMNESIA)) {
cast_spell(ch, vict, NULL, NULL, SPELL_AMNESIA);
return;
} else if (can_cast_spell(ch, SPELL_FEAR)) {
cast_spell(ch, vict, NULL, NULL, SPELL_FEAR);
return;
}
}
// desperation - just attack full force, as hard as possible
if (!affected_by_spell(vict, SPELL_PSYCHIC_SURGE)
&& can_cast_spell(ch, SPELL_PSYCHIC_SURGE)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSYCHIC_SURGE);
return;
} else if (!affected_by_spell(vict, SPELL_PSYCHIC_CRUSH)
&& can_cast_spell(ch, SPELL_PSYCHIC_CRUSH)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSYCHIC_CRUSH);
return;
} else if (!affected_by_spell(vict, SPELL_MOTOR_SPASM)
&& can_cast_spell(ch, SPELL_MOTOR_SPASM)) {
cast_spell(ch, vict, NULL, NULL, SPELL_MOTOR_SPASM);
return;
} else if (can_cast_spell(ch, SKILL_PSIBLAST)) {
perform_offensive_skill(ch, vict, SKILL_PSIBLAST);
return;
} else if (GET_POSITION(vict) > POS_SITTING
&& can_cast_spell(ch, SPELL_EGO_WHIP)) {
cast_spell(ch, vict, NULL, NULL, SPELL_EGO_WHIP);
return;
} else if (GET_POSITION(vict) > POS_SLEEPING
&& can_cast_spell(ch, SPELL_MELATONIC_FLOOD)) {
cast_spell(ch, vict, NULL, NULL, SPELL_MELATONIC_FLOOD);
return;
} else if (can_cast_spell(ch, SPELL_ASTRAL_SPELL)) {
cast_spell(ch, vict, NULL, NULL, SPELL_ASTRAL_SPELL);
return;
} else if (can_cast_spell(ch, SPELL_AMNESIA)) {
cast_spell(ch, vict, NULL, NULL, SPELL_AMNESIA);
return;
} else if (can_cast_spell(ch, SPELL_FEAR)) {
cast_spell(ch, vict, NULL, NULL, SPELL_FEAR);
return;
} else {
hit(ch, vict, TYPE_UNDEFINED);
}
}
bool
psionic_mob_fight(struct creature *ch, struct creature *precious_vict)
{
struct creature *vict = NULL;
if (!is_fighting(ch))
return false;
// pick an enemy
if (!(vict = choose_opponent(ch, precious_vict)))
return false;
int aggression = calculate_mob_aggression(ch, vict);
// Psions can't really do anything when there's a psishield in place
if (AFF3_FLAGGED(vict, AFF3_PSISHIELD)
&& can_cast_spell(ch, SPELL_PSIONIC_SHATTER)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSIONIC_SHATTER);
return true;
}
// Prioritize healing with aggression
if (GET_HIT(ch) < (GET_MAX_HIT(ch) * MIN(20, MAX(80, aggression)) / 100)
&& can_cast_spell(ch, SPELL_WOUND_CLOSURE)) {
cast_spell(ch, ch, NULL, NULL, SPELL_WOUND_CLOSURE);
return true;
}
if (aggression > 75) {
// extremely aggressive - just attack hard
if (can_cast_spell(ch, SKILL_PSIBLAST)) {
perform_offensive_skill(ch, vict, SKILL_PSIBLAST);
return true;
} else if (GET_POSITION(vict) > POS_SITTING
&& can_cast_spell(ch, SPELL_EGO_WHIP)) {
cast_spell(ch, vict, NULL, NULL, SPELL_EGO_WHIP);
return true;
}
}
if (aggression > 50) {
// somewhat aggressive - balance attacking with crippling
if (GET_MANA(ch) < GET_MAX_MANA(ch) / 2
&& can_cast_spell(ch, SKILL_PSIDRAIN)
&& can_psidrain(ch, vict, NULL, false)) {
perform_psidrain(ch, vict);
return true;
} else if (!affected_by_spell(vict, SPELL_PSYCHIC_CRUSH)
&& can_cast_spell(ch, SPELL_PSYCHIC_CRUSH)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSYCHIC_CRUSH);
return true;
} else if (!affected_by_spell(vict, SPELL_MOTOR_SPASM)
&& can_cast_spell(ch, SPELL_MOTOR_SPASM)) {
cast_spell(ch, vict, NULL, NULL, SPELL_MOTOR_SPASM);
return true;
} else if (!affected_by_spell(ch, SPELL_ADRENALINE)
&& can_cast_spell(ch, SPELL_ADRENALINE)) {
cast_spell(ch, ch, NULL, NULL, SPELL_ADRENALINE);
return true;
} else if (GET_POSITION(vict) > POS_SITTING
&& can_cast_spell(ch, SPELL_EGO_WHIP)) {
cast_spell(ch, vict, NULL, NULL, SPELL_EGO_WHIP);
return true;
} else if (can_cast_spell(ch, SKILL_PSIBLAST)) {
perform_offensive_skill(ch, vict, SKILL_PSIBLAST);
return true;
}
}
if (aggression > 25) {
// not very aggressive - play more defensively
if (IS_PSIONIC(vict)
&& !affected_by_spell(ch, SPELL_PSYCHIC_RESISTANCE)
&& can_cast_spell(ch, SPELL_PSYCHIC_RESISTANCE)) {
cast_spell(ch, ch, NULL, NULL, SPELL_PSYCHIC_RESISTANCE);
return true;
} else if (!IS_CONFUSED(vict)
&& can_cast_spell(ch, SPELL_CONFUSION)
&& (IS_MAGE(vict) || IS_PSIONIC(vict) || IS_CLERIC(vict) ||
IS_KNIGHT(vict) || IS_PHYSIC(vict))) {
cast_spell(ch, vict, NULL, NULL, SPELL_CONFUSION);
return true;
} else if (GET_MOVE(ch) < GET_MAX_MOVE(ch) / 4
&& can_cast_spell(ch, SPELL_ENDURANCE)) {
cast_spell(ch, ch, NULL, NULL, SPELL_ENDURANCE);
return true;
} else if (GET_MOVE(ch) < GET_MAX_MOVE(ch) / 4
&& can_cast_spell(ch, SPELL_DERMAL_HARDENING)) {
cast_spell(ch, ch, NULL, NULL, SPELL_DERMAL_HARDENING);
return true;
} else if (!AFF2_FLAGGED(ch, AFF2_VERTIGO)
&& can_cast_spell(ch, SPELL_VERTIGO)) {
cast_spell(ch, vict, NULL, NULL, SPELL_VERTIGO);
return true;
} else if (!affected_by_spell(vict, SPELL_PSYCHIC_FEEDBACK)
&& can_cast_spell(ch, SPELL_PSYCHIC_FEEDBACK)) {
cast_spell(ch, vict, NULL, NULL, SPELL_PSYCHIC_FEEDBACK);
return true;
} else if (!affected_by_spell(vict, SPELL_WEAKNESS)
&& can_cast_spell(ch, SPELL_WEAKNESS)) {
cast_spell(ch, vict, NULL, NULL, SPELL_WEAKNESS);
return true;
} else if (!affected_by_spell(vict, SPELL_CLUMSINESS)
&& can_cast_spell(ch, SPELL_CLUMSINESS)) {
cast_spell(ch, vict, NULL, NULL, SPELL_CLUMSINESS);
return true;
} else if (can_cast_spell(ch, SKILL_PSIBLAST)) {
perform_offensive_skill(ch, vict, SKILL_PSIBLAST);
return true;
}
}
if (aggression > 5) {
// attempt to neutralize or get away
if (GET_POSITION(vict) > POS_SLEEPING
&& can_cast_spell(ch, SPELL_MELATONIC_FLOOD)) {
cast_spell(ch, vict, NULL, NULL, SPELL_MELATONIC_FLOOD);
return true;
} else if (can_cast_spell(ch, SPELL_ASTRAL_SPELL)) {
cast_spell(ch, vict, NULL, NULL, SPELL_ASTRAL_SPELL);
return true;
} else if (can_cast_spell(ch, SPELL_AMNESIA)) {
cast_spell(ch, vict, NULL, NULL, SPELL_AMNESIA);
return true;
} else if (can_cast_spell(ch, SPELL_FEAR)) {
cast_spell(ch, vict, NULL, NULL, SPELL_FEAR);
return true;
}
}
return false;
}
int
invalid_char_class(struct creature *ch, struct obj_data *obj)
{
// Protected object
if (IS_PC(ch) &&
obj->shared->owner_id != 0 && obj->shared->owner_id != GET_IDNUM(ch)) {
return true;
}
// Unapproved object
if (!OBJ_APPROVED(obj) && !is_tester(ch) && GET_LEVEL(ch) < LVL_IMMORT)
return true;
// Anti class restrictions
if ((IS_OBJ_STAT(obj, ITEM_ANTI_MAGIC_USER) && IS_MAGIC_USER(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_CLERIC) && IS_CLERIC(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_WARRIOR) && IS_WARRIOR(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_THIEF) && IS_THIEF(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_BARB) && IS_BARB(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_PSYCHIC) && IS_PSYCHIC(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_PHYSIC) && IS_PHYSIC(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_CYBORG) && IS_CYBORG(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_KNIGHT) && IS_KNIGHT(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_RANGER) && IS_RANGER(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_BARD) && IS_BARD(ch)) ||
(IS_OBJ_STAT(obj, ITEM_ANTI_MONK) && IS_MONK(ch)) ||
(IS_OBJ_STAT2(obj, ITEM2_ANTI_MERC) && IS_MERC(ch)))
return true;
// Required class restrictions - any one of them must be met
if ((IS_OBJ_STAT3(obj, ITEM3_REQ_MAGE) && IS_MAGE(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_CLERIC) && IS_CLERIC(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_THIEF) && IS_THIEF(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_WARRIOR) && IS_WARRIOR(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_BARB) && IS_BARB(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_PSIONIC) && IS_PSIONIC(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_PHYSIC) && IS_PHYSIC(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_CYBORG) && IS_CYBORG(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_KNIGHT) && IS_KNIGHT(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_RANGER) && IS_RANGER(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_BARD) && IS_BARD(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_MONK) && IS_MONK(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_VAMPIRE) && IS_VAMPIRE(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_MERCENARY) && IS_MERC(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_SPARE1) && IS_SPARE1(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_SPARE2) && IS_SPARE2(ch))
|| (IS_OBJ_STAT3(obj, ITEM3_REQ_SPARE3) && IS_SPARE3(ch)))
return false;
// A required class existed and the creature didn't fulfill any
if (IS_OBJ_STAT3(obj, ITEM3_REQ_MAGE
| ITEM3_REQ_CLERIC
| ITEM3_REQ_THIEF
| ITEM3_REQ_WARRIOR
| ITEM3_REQ_BARB
| ITEM3_REQ_PSIONIC
| ITEM3_REQ_PHYSIC
| ITEM3_REQ_CYBORG
| ITEM3_REQ_KNIGHT
| ITEM3_REQ_RANGER
| ITEM3_REQ_BARD
| ITEM3_REQ_MONK
| ITEM3_REQ_VAMPIRE
| ITEM3_REQ_MERCENARY
| ITEM3_REQ_SPARE1 | ITEM3_REQ_SPARE2 | ITEM3_REQ_SPARE3))
return true;
// Passes all tests
return false;
}
