#include "kernel.h"
#include "cflags.h"
#include "oflags.h"
#include "lflags.h"
#include "mflags.h"
#include "sflags.h"
#include "pflags.h"
#include "quests.h"
#include "sendsys.h"
#include "verbs.h"
#include "mobiles.h"
#include "objects.h"
#include "locations.h"
#include "fight.h"
#include "mobile.h"
#include "objsys.h"
struct _spell {
int verb;
char mob_chance; /* If caster is a mobile, chance to cast the spell */
char mob_cast_mflag; /* mflag to see if mobile can cast this spell */
short mob_dam; /* If caster is mobile, damage is mob_dam */
char chance; /* Chance to succeed */
char like_mflag; /* mflag to see if victim likes the spell. */
char fear_mflag; /* mflag to see if factor 6 should be used */
char maxlev; /* If caster is above this level, treat him as this */
short obj3first; /* First index in spell_obj[] for factor 3 object */
short obj3next; /* first index beyond list */
char *like_it; /* Text to tell caster if victim likes the spell */
char *to_room; /* Msg to all in room, including victim, excl caster */
char *to_victim; /* Msg to victim */
char *to_others; /* Msg to others in room */
};
Boolean wound_player(int attacker,int victim,int damage,int hit_type);
Boolean cast_spell(int caster,int victim,int spell_type);
struct _spell spell_table[] = {
{ VERB_FIREBALL, 15, MFL_CFIREBALL, 10,
5, MFL_NFIREBALL, MFL_NFROST, -1,
0, 2,
"%s enjoys the heat and gets STRONGER!\n",
"\001A\033[31m\003\001p%s\003 casts a fireball.\001A\033[0m\003\n",
"You are struck!\n",
"\001p%s\003 is struck!\n" },
{ VERB_FROST, 25, MFL_CFROST, 10,
5, MFL_NFROST, MFL_NFIREBALL, -1,
2, 3,
"%s likes the cold and gets STRONGER!\n",
"\001A\033[31m\003\001p%s\003 fires an icy ray!\001A\033[0m\003\n",
"You are chilled to the bone!\n",
"\001p%s\003 is struck!\n" },
{ VERB_MISSILE, 20, MFL_CMISSILE, 10,
7, MFL_NMISSILE, -1, LVL_CHAMPION,
3, 4,
"%s likes your magic missile and gets STRONGER!\n",
"Bolts of fire leap from the fingers of \001p%s\003\n",
"You are struck!\n",
"\001p%s\003 is struck!\n" },
{ VERB_SHOCK, 15, MFL_CSHOCK, 8,
5, MFL_NSHOCK, -1, -1,
4, 5,
"%s likes the shock and gets STRONGER!\n",
"Sparks fly from the fingers of \001p%s\003!\n",
"\001A\033[1;36m\003\001p%s\003 touches you, giving you a "
"strong electric shock!\001A\033[0m\003\n",
"\001p%s\003 is struck!\n" },
{ -1 }
};
short spell_objs[] = {
OBJ_ISLAND_SULPHUR, OBJ_EFOREST_SULPHUR,
OBJ_BLIZZARD_WINTERGREEN,
OBJ_BLIZZARD_TALISMAN,
OBJ_VALLEY_LODESTONE
};
/* Calculate damage done by a player 'pl' carrying item 'it'.
* If no item, return damage of player. If it is not a weapon, return -1
* else return damage of player + damage of weapon.
*/
int dambyitem(int pl, int it)
{
if (it == -1)
return pdam(pl);
return !otstbit(it, OFL_WEAPON) ? -1 : odamage(it) + pdam(pl);
}
/*
Command function block to handle wielding of weapons.
*/
void wieldcom(void)
{
int a;
char buff[80];
if ((a = ob1) == -1) {
bprintf("What's that?\n");
return;
} else if (!iscarrby(a,mynum)) {
bprintf("You're not carrying the %s!\n", item1);
set_weapon(mynum, -1);
error();
return;
} else if (!otstbit(a, OFL_WEAPON)) {
bprintf("It's not a weapon.\n");
set_weapon(mynum, -1);
error();
return;
}
set_weapon(mynum, a);
send_msg(ploc(mynum), 0, pvis(mynum), LVL_MAX, mynum, NOBODY,
"%s wields the %s.\n", pname(mynum), oname(a));
bprintf("You are now wielding the %s.\n", oname(a));
}
/*
* The killing and hitting command
*/
static void wreckdoor(void);
void killcom(void)
{
char buffer[40];
if (pfighting(mynum) >= 0) {
bprintf("You're already fighting!\n");
error();
return;
}
if (pl1 == -1 && ob1 == -1) {
bprintf("Kill who?\n");
error();
return;
}
if (EQ(item1, "door")) {
if (!ptstflg(mynum, PFL_WRECK)) {
bprintf("What are you trying to do? Wreck the door?\n");
error();
}
else
wreckdoor();
return;
}
if (ob1 != -1) {
breakitem(ob1);
return;
}
if (pl1 == -1) {
bprintf("You can't do that.\n");
error();
return;
}
if (pl1 == mynum) {
bprintf("Come on, it'll look better tomorrow...\n");
error();
return;
}
if (ploc(pl1) != ploc(mynum)) {
bprintf("They aren't here.\n");
error();
return;
}
if (testpeace(mynum)) {
bprintf("Sorry, it's too peaceful for violence.\n");
error();
return;
}
if (ptstflg(pl1, PFL_NOHASSLE)) {
bprintf("Something interferes with your attack.\n");
error();
return;
}
setpfighting(mynum, pl1);
hit_player(mynum, pl1, (ob2 == -1) ? pwpn(mynum) : ob2);
/* Send message if mortal attacks mortal in a tournament
*/
if (pl1 < max_players && plev(mynum) < LVL_WIZARD && plev(pl1) < LVL_WIZARD
&& the_world->w_tournament) {
send_msg(DEST_ALL, MODE_QUIET|MODE_COLOR, LVL_WIZARD, LVL_MAX,
NOBODY, NOBODY,
"[%s attacked %s]\n", pname(mynum), pname(pl1));
}
return;
}
void breakitem(int x)
{
switch (x) {
case OBJ_BLIZZARD_RESET_STONE:
sys_reset();
break;
case OBJ_QUARRY_ROCK:
bprintf("You smash it apart to reveal a gem inside.\n");
create(OBJ_QUARRY_GEM);
setoloc(OBJ_QUARRY_GEM, oloc(OBJ_QUARRY_ROCK), ocarrf(OBJ_QUARRY_ROCK));
destroy(OBJ_QUARRY_ROCK);
break;
case -1:
bprintf("What's that?\n");
break;
default:
bprintf("You can't do that.\n");
break;
}
}
static void wreckdoor(void)
{
int a;
char ms[80];
if ((a = fobna("door")) == -1)
bprintf("Sorry, no doors here.\n");
else if (state(a) == 0)
bprintf("It's already open.\n");
else {
setobjstate(a, 0);
bprintf("The door flies open!\n");
sprintf(ms, "%s hits the door... It flies open!\n", pname(mynum));
sillycom(ms);
sprintf(ms,
"\001dYou hear the distinctive crunch of %s meeting a door.\n\003",
pname(mynum));
broad(ms);
}
}
Boolean testpeace(int player)
{
return (the_world->w_peace || ltstflg(ploc(player), LFL_PEACEFUL));
}
void fleecom(void)
{
if (pfighting(mynum) < 0) {
dogocom();
} else if (carries_obj_type(mynum, OBJ_CASTLE_RUNESWORD) > -1) {
bprintf("The sword won't let you!\n");
return;
} else {
send_msg(ploc(mynum), 0, pvis(mynum), LVL_MAX, mynum, NOBODY,
"%s drops things as %s make a frantic attempt to escape.\n",
pname(mynum), psex(mynum) ? "she" : "he");
setpscore(mynum, pscore(mynum) - pscore(mynum) / 33); /* lose 3% */
calibme();
setpfighting(mynum,-1);
if (cur_player->i_follow >= 0) {
bprintf("You stopped following %s.\n", pname(cur_player->i_follow));
cur_player->i_follow = -1;
}
drop_some_objects(mynum);
dogocom();
}
}
int mob_cast_spell(int caster)
{
struct _spell *s;
/* caster is a mobile, see if we let him cast a spell... */
for (s = spell_table; s->verb >= 0; s++) {
if (mtstflg(caster,s->mob_cast_mflag) == 0) continue;
if (randperc() < s->mob_chance) return s->verb;
}
return -1;
}
void hit_player(int attacker, int victim, int weapon)
{
int x, cth, i, d, w;
int mob = victim - max_players;
if ((x = attacker) >= max_players) x = victim;
if (attacker >= numchars || victim >= numchars || attacker < 0 ||
victim < 0 || testpeace(victim) || ploc(attacker) != ploc(victim)
|| !is_in_game(attacker) || !is_in_game(victim))
return;
/* if the attacker is played by a human: */
if (attacker < max_players || ststflg(attacker,SFL_OCCUPIED) != 0) {
/* if the attacker is a mortal: */
if (plev(attacker) < LVL_WIZARD || ststflg(attacker,SFL_OCCUPIED) != 0) {
/* if the victim is a mobile: */
if (victim >= max_players) {
if (mtstflg(victim,MFL_BLIND) != 0 && !ststflg(attacker,SFL_BLIND)) {
sendf(attacker, "%s scratches your eyes out! You are blind!\n",
pname(victim));
ssetflg(attacker, SFL_BLIND);
}
if (mob == MOB_VALLEY_CHICKEN && !psex(victim)) {
sendf(attacker,
"As you look up you see the sky is somehow different.\n"
"The next second you're crushed to death as the sky hits you!"
"\n");
send_msg(ploc(attacker), 0,
pvis(attacker) > 0 ? pvis(attacker) : LVL_MIN, LVL_MAX,
attacker, NOBODY,
"%s is squashed as %she attacks Chicken Licken.\n",
pname(attacker), psex(attacker) ? "s" : "");
p_crapup(attacker,
"\t\tChicken Licken was right!",CRAP_SAVE|CRAP_RETURN);
return;
} else if (mob == MOB_CATACOMB_SERAPH) {
sendf(attacker,
"The Seraph is amused by your foolhardiness. For your "
"impudence, he draws his\nflaming sword and slays you with a "
"single blow.\n");
send_msg(ploc(attacker), 0,
pvis(attacker) > 0 ? pvis(attacker) : LVL_MIN, LVL_MAX,
attacker, NOBODY,
"%s is sliced in half by the Seraph!\n\003",
pname(attacker));
p_crapup(attacker, "\t\tNever pick a fight with an angel..",
CRAP_SAVE|CRAP_RETURN);
return;
} else if (mob == MOB_CATACOMB_BEGGAR) {
sendf(attacker,
"You drop everything as you are summoned by The Seraph.\n"
"The Seraph scowls at you contemptuously. For your lack of "
"compassion, he\n"
"draws his flaming sword and slays you with a single "
"blow.\n");
send_msg(ploc(attacker), 0,
pvis(attacker) > 0 ? pvis(attacker) : LVL_MIN, LVL_MAX,
attacker, NOBODY,
"%s is sliced in half by the Seraph!\n\003",
pname(attacker));
p_crapup(attacker,
"\tRemember the ten commandments: Thou Shalt Not Kill",
CRAP_SAVE|CRAP_RETURN);
return;
}
} /* end if victim is a mobile */
} /* end, the attacker is a mortal */
if (testpeace(attacker)) return;
if ((w = weapon) < 0) w = pwpn(attacker);
if (w >= 0 && !iscarrby(w,attacker)) {
sendf(attacker,
"You belatedly realize you don't have the %s,\nand are forced "
"to use your hands instead.\n", oname(w));
w = -1;
}
set_weapon(attacker, w);
if (onum(w) == OBJ_CASTLE_RUNESWORD &&
carries_obj_type(victim, OBJ_TOWER_STAFF) > -1) {
sendf(attacker,
"The Runesword flashes back from its target, growling in "
"anger!\n");
return;
}
if (weapon >= 0 && dambyitem(attacker, weapon) < 0) {
sendf(attacker, "You can't attack %s with a %s!\n",
pname(victim), oname(weapon));
set_weapon(attacker, -1);
return;
}
if (psitting(attacker)) {
standcom(attacker);
}
/* end, attacker is played by a human */
} else if (weapon < 0 &&
carries_obj_type(victim, OBJ_CATACOMB_SHIELD) == -1 &&
(x = mob_cast_spell(attacker)) >= 0) {
if (cast_spell(attacker,victim,x)) return;
} /* end, the attacker was a mobile */
x = randperc();
cth = 57 - parmor(victim);
if (carries_obj_type(attacker, OBJ_CASTLE_HORSESHOE) > -1) cth += 5;
for (i = 0; i < pnumobs(victim); i++) {
if (iswornby(pobj_nr(i, victim), victim) &&
otstbit(pobj_nr(i, victim), OFL_ARMOR)) {
cth -= oarmor(pobj_nr(i, victim));
}
}
/* Add 1/2 damage of wielded weapon for mobiles..full for players.. */
if ((w = weapon) < 0) w = pwpn(attacker);
if (w >= 0 && iscarrby(w,attacker) && iswielded(w) &&
otstbit(w,OFL_WEAPON)) {
d = odamage(w);
if (attacker >= max_players) d /= 2;
} else {
d = 0;
}
d += pdam(attacker);
d = (x < cth) ? my_random() % (d + 1) : -1; /* damage done */
combatmessage(victim, attacker, weapon, d);
wound_player(attacker, victim, d, -1);
}
/* High level procedure to cast a spell.
* spell_type = verb of spell.
*/
void spellcom(int spell_verb)
{
int victim = brkword() < 0 ? pfighting(mynum) : fpbn(wordbuf);
if (!is_in_game(victim))
bprintf("Who?\n");
else
cast_spell(mynum,victim,spell_verb);
}
/* Procedure to cast a spell
* caster = player index of the spell caster (may be a mobile).
* victim = player index of the victim.
* spell_type = key in spell_table.
*
* Return true if the spell succeeded.
*/
Boolean cast_spell(int caster,int victim,int spell_type)
{
struct _spell *spell;
int clev;
int i;
int ob;
int f;
/* Failiure to cast the spell? */
if (plev(caster) < LVL_WIZARD && ploc(caster) != ploc(victim)) {
sendf(caster, "%s is not here.\n", pname(victim));
return False;
}
/* Find spell */
for (spell = spell_table; spell->verb != spell_type; spell++) {
if (spell->verb < 0) return False; /* No such spell */
}
if (plev(caster) < LVL_WIZARD) {
if (pstr(caster) < 10) {
sendf(caster, "You are too weak to cast magic.\n");
return False;
}
setpstr(caster, pstr(caster) - 2);
if (testpeace(caster)) {
sendf(caster,"No, that's violent!\n");
return False;
} else if (ltstflg(ploc(victim), LFL_NO_MAGIC)) {
sendf(caster,"Something about this location has drained your mana.\n");
return False;
}
i = (caster >= max_players) ? 90 + spell->chance : spell->chance;
if (carries_obj_type(caster, OBJ_BLIZZARD_POWERSTONE) > -1) ++i;
if (carries_obj_type(caster, OBJ_BLIZZARD_POWERSTONE1) > -1) ++i;
if (carries_obj_type(caster, OBJ_BLIZZARD_POWERSTONE2) > -1) ++i;
if (caster < max_players && randperc() > i * plev(caster)) {
sendf(caster, "You fumble the magic.\n" );
return False;
}
if (ptstflg(victim,PFL_NOHASSLE) != 0) {
sendf(caster,"The magic flashes harmlessly past.\n");
return False;
} else if (carries_obj_type(victim, OBJ_CATACOMB_SHIELD) > -1) {
sendf(caster,"The spell is absorbed by %s shield!\n",his_or_her(victim));
send_msg(ploc(caster), 0, pvis(caster), LVL_MAX, caster, victim,
"%s casts a spell on %s. It is absorbed by %s shield!\n",
pname(caster), pname(victim), his_or_her(victim));
sendf(victim,"%s casts a spell on you. It is absorbed by your shield!\n",
see_name(victim, caster));
return False;
}
}
if (caster == victim) {
sendf(victim, "You're supposed to be killing others, not yourself.\n");
error();
return False;
}
if (!do_okay(caster, victim, PFL_NOHASSLE)) {
sendf(caster, "The magic flashes harmlessly past %s.\n", pname(victim));
error();
return False;
}
clev = plev(caster);
if (spell->maxlev >= 0 && clev > spell->maxlev) clev = spell->maxlev;
f = 0;
if (victim >= max_players) {
/* victim likes the spell? */
if (spell->like_mflag >= 0 && mtstflg(victim,spell->like_mflag)) {
sendf(caster,spell->like_it,pname(victim));
if (pstr(victim) < pstr_reset(victim))
setpstr(victim, pstr(victim) + 5);
f = -1;
} else if (spell->fear_mflag >= 0 && mtstflg(victim,spell->fear_mflag)) {
/* victim fears the spell, give factor 6 */
f = 6;
}
}
if (f == 0) {
/* Find if player is carrying any magical object for this spell */
for (i = spell->obj3first; i < spell->obj3next; i++) {
if (iscarrby(ob = spell_objs[i],caster)) break;
ob = -1;
}
f = (ob >= 0 ? 3 : 2);
}
i = (caster >= max_players ? spell->mob_dam : f > 0 ? f * clev : 0);
send_msg(ploc(victim), 0, LVL_MIN, LVL_MAX, caster, NOBODY,
spell->to_room, pname(caster));
sendf(victim,spell->to_victim, pname(caster));
send_msg(ploc(victim),0,LVL_MIN,LVL_MAX,victim, NOBODY,
spell->to_others, pname(victim));
wound_player(caster,victim,i,spell_type);
}
/*
* procedure to wound a player.
* attacker = player index of the attacker.
* victim = player index of the victim.
* damage = damage caused by the attacker on the victim.
* hit_type >= 0 verb that caused the magical hit.
* < 0 non-magical hit.
*
* Return true if victim died.
*/
Boolean wound_player(int attacker,int victim,int damage,int hit_type)
{
int x, q;
if (victim < 0 || victim >= numchars || attacker < 0 ||
attacker >= numchars) {
return False;
}
pfighting(victim) = attacker;
if (damage <= 0) return False;
if (victim >= max_players) {
setpstr(victim, pstr(victim) - damage);
} else if (plev(victim) < LVL_WIZARD) {
setpstr(victim, pstr(victim) - damage);
if (attacker >= max_players) {
if (mtstflg(attacker,MFL_DSCORE) != 0) {
sendf(victim,"You feel weaker as %s's icy touch drains your "
"very life force!\n", pname(attacker));
setpscore(victim, pscore(victim) - 100*damage);
if (pscore(victim) < 0) {
setpstr(victim, -1);
}
}
}
/* temporary addition, I'd rather have it in the prompt:
*/
sendf(victim, " (Your strength is now %d)\n", pstr(victim));
}
if (pstr(victim) >= 0) {
if (attacker < max_players &&
(plev(victim) > LVL_HERO || victim >= max_players)) {
setpscore(attacker, pscore(attacker) + damage * 2);
}
return False;
}
/* Victim has died */
pfighting(victim) = -1;
if (hit_type >= 0 && hit_type != VERB_ZAP) {
sendf(attacker, "Your last spell did the trick.\n");
}
setpstr(victim, -1);
setpfighting(victim, -1);
sendf(ploc(victim), "%s has died.\n", pname(victim));
send_msg(DEST_ALL,MODE_COLOR|MODE_QUIET,LVL_WIZARD,LVL_MAX,NOBODY,NOBODY,
"[%s has been slain by %s]\n", pname(victim), pname(attacker));
if (the_world->w_tournament) {
send_msg(DEST_ALL,MODE_COLOR,LVL_MIN, LVL_WIZARD, NOBODY, NOBODY,
"[%s has died]", pname(victim));
}
dumpstuff(victim, ploc(victim));
if (victim >= max_players) {
/* Kill mobile */
if (attacker < max_players) {
setpscore(attacker, pscore(attacker) + 10 * pdam(victim));
}
if ((q = find_pretender(victim)) >= 0) {
sendf(victim,"*** You have died. ***\n");
unalias(q);
unpolymorph(q);
}
setploc(victim, LOC_DEAD_DEAD);
if (attacker < max_players)
setpscore(victim,attacker); /* remember who killed the mobile */
else
setpscore(victim,-1); /* Mobile killing mobile */
if ((q = victim - max_players) == MOB_EFOREST_LICH)
x = max_players + MOB_EFOREST_ASMODEUS;
else if (q == MOB_EFOREST_ASMODEUS) x = max_players + MOB_EFOREST_LICH;
else x = -1;
if (x >= 0) {
if (alive(x) == -1) {
send_msg(DEST_ALL,MODE_NODEAF,LVL_MIN,LVL_MAX,NOBODY,NOBODY,
"A Great Evil has departed from the land.\n");
if (pscore(x) == attacker) {
sendf(attacker,"You have avenged the Elven Forest!\n");
qsetflg(attacker, Q_EFOREST);
}
}
}
if (ptemporary(victim)) destruct_mobile(victim, NULL);
} else if (plev(victim) >= LVL_WIZARD) return False; /* Wizards don't die */
else {
/* Kill mortal */
mudlog( "%s slain %sby %s", pname(victim),
(hit_type < 0 ? "" : "magically "),
pname(attacker));
if (attacker < max_players &&
(the_world->w_tournament || plev(victim) > LVL_HERO)) {
x = plev(victim);
setpscore(attacker,pscore(attacker) + x * x * x * 10);
}
setpstr(victim, 40);
setpscore(victim, pscore(victim) / 2);
x = real_mynum;
setup_globals(victim);
calibme();
crapup("\t\tOh dear... you seem to be slightly dead.",
CRAP_SAVE|CRAP_RETURN);
setup_globals(x);
}
return True;
}
void combatmessage(int victim, int attacker, int wpn, int ddn)
{
static char *form = "\001p%s\003";
char vic_name[64];
char att_name[64];
char weap[64];
char his[20];
char hard[64];
if (victim < 0 || attacker < 0 || victim >= numchars ||
attacker >= numchars) return;
sprintf(vic_name, form, pname(victim));
sprintf(att_name, form, pname(attacker));
strcpy(his,his_or_her(attacker));
if (wpn >= 0) {
strcpy(weap,oname(wpn));
} else {
strcpy(weap,"bare hands");
}
if (ddn < 0) { /* Miss */
sendf(attacker,"You missed %s.\n", vic_name);
sendf(victim, "%s missed you.\n", att_name);
send_msg(ploc(victim),0,LVL_MIN,LVL_MAX,victim,attacker,
"%s missed %s.\n", att_name, vic_name);
} else if (ddn < 4) {
sendf(attacker, "You hit %s very lightly.\n", vic_name);
sendf(victim, "%s hit you very lightly.\n", att_name);
send_msg(ploc(victim),0,LVL_MIN,LVL_MAX,victim,attacker,
"%s hit %s very lightly.\n", att_name, vic_name);
} else if (ddn < 7) {
sendf(attacker, "You hit %s lightly.\n", vic_name);
sendf(victim, "%s hit you lightly.\n", att_name);
send_msg(ploc(victim),0,LVL_MIN,LVL_MAX,victim,attacker,
"%s hit %s lightly.\n", att_name, vic_name);
} else if (ddn < 13) {
sendf(attacker, "You hit %s.\n", vic_name);
sendf(victim, "%s hit you.\n", att_name);
send_msg(ploc(victim),0,LVL_MIN,LVL_MAX,victim,attacker,
"%s hit %s.\n", att_name, vic_name);
} else {
if (ddn < 17) strcpy(hard," hard");
else if (ddn < 21) strcpy(hard," very hard");
else strcpy(hard," extremely hard");
sendf(attacker, "You hit %s%s with your %s.\n", vic_name, hard, weap);
sendf(victim, "%s hit you%s with %s %s.\n", att_name, hard, his, weap);
send_msg(ploc(victim),0,LVL_MIN,LVL_MAX,victim,attacker,
"%s hit %s%s with %s %s.\n",
att_name, vic_name, hard, his, weap);
}
}
void setpfighting(int x, int y)
{
int ct, loc = ploc(x);
pfighting(x) = y;
if (y == -1) {
if (exists(loc)) {
for (ct = 0; ct < lnumchars(loc); ct++) {
if (pfighting(lmob_nr(ct, loc)) == x) {
pfighting(lmob_nr(ct, loc)) = -1;
}
}
}
} else {
pfighting(y) = x;
}
}