mirror of
https://github.com/tbamud/tbamud.git
synced 2026-02-13 19:44:21 +01:00
Setting up 3.5.0 as trunk
This commit is contained in:
Rumble
parent
0ddbd8b56e
commit
99e3aa4d8b
1336 changed files with 514917 additions and 0 deletions
327
src/dg_misc.c
Normal file
327
src/dg_misc.c
Normal file
|
|
@ -0,0 +1,327 @@
|
|||
/**************************************************************************
|
||||
* File: dg_misc.c *
|
||||
* Usage: contains general functions for script usage. *
|
||||
* *
|
||||
* $Author: Mark A. Heilpern/egreen/Welcor $ *
|
||||
* $Date: 2004/10/11 12:07:00$ *
|
||||
* $Revision: 1.0.14 $ *
|
||||
**************************************************************************/
|
||||
|
||||
#include "conf.h"
|
||||
#include "sysdep.h"
|
||||
|
||||
|
||||
#include "structs.h"
|
||||
#include "dg_scripts.h"
|
||||
#include "utils.h"
|
||||
#include "comm.h"
|
||||
#include "interpreter.h"
|
||||
#include "handler.h"
|
||||
#include "dg_event.h"
|
||||
#include "db.h"
|
||||
#include "screen.h"
|
||||
#include "spells.h"
|
||||
#include "constants.h"
|
||||
|
||||
void die(struct char_data *ch, struct char_data * killer);
|
||||
|
||||
/* copied from spell_parser.c: */
|
||||
#define SINFO spell_info[spellnum]
|
||||
|
||||
/* external vars */
|
||||
extern struct spell_info_type spell_info[];
|
||||
|
||||
|
||||
/* cast a spell; can be called by mobiles, objects and rooms, and no */
|
||||
/* level check is required. Note that mobs should generally use the */
|
||||
/* normal 'cast' command (which must be patched to allow mobs to cast */
|
||||
/* spells) as the spell system is designed to have a character caster, */
|
||||
/* and this cast routine may overlook certain issues. */
|
||||
/* LIMITATION: a target MUST exist for the spell unless the spell is */
|
||||
/* set to TAR_IGNORE. Also, group spells are not permitted */
|
||||
/* code borrowed from do_cast() */
|
||||
void do_dg_cast(void *go, struct script_data *sc, trig_data *trig,
|
||||
int type, char *cmd)
|
||||
{
|
||||
struct char_data *caster = NULL;
|
||||
struct char_data *tch = NULL;
|
||||
struct obj_data *tobj = NULL;
|
||||
struct room_data *caster_room = NULL;
|
||||
char *s, *t;
|
||||
int spellnum, target = 0;
|
||||
char buf2[MAX_STRING_LENGTH], orig_cmd[MAX_INPUT_LENGTH];
|
||||
|
||||
/* need to get the caster or the room of the temporary caster */
|
||||
switch (type) {
|
||||
case MOB_TRIGGER:
|
||||
caster = (struct char_data *)go;
|
||||
break;
|
||||
case WLD_TRIGGER:
|
||||
caster_room = (struct room_data *)go;
|
||||
break;
|
||||
case OBJ_TRIGGER:
|
||||
caster_room = dg_room_of_obj((struct obj_data *)go);
|
||||
if (!caster_room) {
|
||||
script_log("dg_do_cast: unknown room for object-caster!");
|
||||
return;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
script_log("dg_do_cast: unknown trigger type!");
|
||||
return;
|
||||
}
|
||||
|
||||
strcpy(orig_cmd, cmd);
|
||||
/* get: blank, spell name, target name */
|
||||
s = strtok(cmd, "'");
|
||||
if (s == NULL) {
|
||||
script_log("Trigger: %s, VNum %d. dg_cast needs spell name.",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
|
||||
return;
|
||||
}
|
||||
s = strtok(NULL, "'");
|
||||
if (s == NULL) {
|
||||
script_log("Trigger: %s, VNum %d. dg_cast needs spell name in `'s.",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
|
||||
return;
|
||||
}
|
||||
t = strtok(NULL, "\0");
|
||||
|
||||
/* spellnum = search_block(s, spells, 0); */
|
||||
spellnum = find_skill_num(s);
|
||||
if ((spellnum < 1) || (spellnum > MAX_SPELLS)) {
|
||||
script_log("Trigger: %s, VNum %d. dg_cast: invalid spell name (%s)",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), orig_cmd);
|
||||
return;
|
||||
}
|
||||
|
||||
/* Find the target */
|
||||
if (t != NULL) {
|
||||
one_argument(strcpy(buf2, t), t);
|
||||
skip_spaces(&t);
|
||||
}
|
||||
if (IS_SET(SINFO.targets, TAR_IGNORE)) {
|
||||
target = TRUE;
|
||||
} else if (t != NULL && *t) {
|
||||
if (!target &&
|
||||
(IS_SET(SINFO.targets, TAR_CHAR_ROOM) ||
|
||||
IS_SET(SINFO.targets, TAR_CHAR_WORLD))) {
|
||||
if ((tch = get_char(t)) != NULL)
|
||||
target = TRUE;
|
||||
}
|
||||
|
||||
if (!target &&
|
||||
(IS_SET(SINFO.targets, TAR_OBJ_INV) ||
|
||||
IS_SET(SINFO.targets, TAR_OBJ_EQUIP) ||
|
||||
IS_SET(SINFO.targets, TAR_OBJ_ROOM) ||
|
||||
IS_SET(SINFO.targets, TAR_OBJ_WORLD))) {
|
||||
if ((tobj = get_obj(t)) != NULL)
|
||||
target = TRUE;
|
||||
}
|
||||
|
||||
if (!target) {
|
||||
script_log("Trigger: %s, VNum %d. dg_cast: target not found (%s)",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), orig_cmd);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
if (IS_SET(SINFO.routines, MAG_GROUPS)) {
|
||||
script_log("Trigger: %s, VNum %d. dg_cast: group spells not permitted (%s)",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), orig_cmd);
|
||||
return;
|
||||
}
|
||||
|
||||
if (!caster) {
|
||||
caster = read_mobile(DG_CASTER_PROXY, VIRTUAL);
|
||||
if (!caster) {
|
||||
script_log("dg_cast: Cannot load the caster mob!");
|
||||
return;
|
||||
}
|
||||
/* set the caster's name to that of the object, or the gods.... */
|
||||
if (type==OBJ_TRIGGER)
|
||||
caster->player.short_descr =
|
||||
strdup(((struct obj_data *)go)->short_description);
|
||||
else if (type==WLD_TRIGGER)
|
||||
caster->player.short_descr = strdup("The gods");
|
||||
caster->next_in_room = caster_room->people;
|
||||
caster_room->people = caster;
|
||||
caster->in_room = real_room(caster_room->number);
|
||||
call_magic(caster, tch, tobj, spellnum, DG_SPELL_LEVEL, CAST_SPELL);
|
||||
extract_char(caster);
|
||||
} else
|
||||
call_magic(caster, tch, tobj, spellnum, GET_LEVEL(caster), CAST_SPELL);
|
||||
}
|
||||
|
||||
|
||||
/* modify an affection on the target. affections can be of the AFF_x */
|
||||
/* variety or APPLY_x type. APPLY_x's have an integer value for them */
|
||||
/* while AFF_x's have boolean values. In any case, the duration MUST */
|
||||
/* be non-zero. */
|
||||
/* usage: apply <target> <property> <value> <duration> */
|
||||
#define APPLY_TYPE 1
|
||||
#define AFFECT_TYPE 2
|
||||
void do_dg_affect(void *go, struct script_data *sc, trig_data *trig,
|
||||
int script_type, char *cmd)
|
||||
{
|
||||
struct char_data *ch = NULL;
|
||||
int value=0, duration=0;
|
||||
char junk[MAX_INPUT_LENGTH]; /* will be set to "dg_affect" */
|
||||
char charname[MAX_INPUT_LENGTH], property[MAX_INPUT_LENGTH];
|
||||
char value_p[MAX_INPUT_LENGTH], duration_p[MAX_INPUT_LENGTH];
|
||||
int i=0, type=0;
|
||||
struct affected_type af;
|
||||
|
||||
|
||||
half_chop(cmd, junk, cmd);
|
||||
half_chop(cmd, charname, cmd);
|
||||
half_chop(cmd, property, cmd);
|
||||
half_chop(cmd, value_p, duration_p);
|
||||
|
||||
/* make sure all parameters are present */
|
||||
if (!charname || !*charname || !property || !*property ||
|
||||
!value_p || !*value_p || !duration_p || !*duration_p) {
|
||||
script_log("Trigger: %s, VNum %d. dg_affect usage: <target> <property> <value> <duration>",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
|
||||
return;
|
||||
}
|
||||
|
||||
value = atoi(value_p);
|
||||
duration = atoi(duration_p);
|
||||
if (duration <= 0) {
|
||||
script_log("Trigger: %s, VNum %d. dg_affect: need positive duration!",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
|
||||
script_log("Line was: dg_affect %s %s %s %s (%d)",
|
||||
charname, property, value_p, duration_p, duration);
|
||||
return;
|
||||
}
|
||||
|
||||
/* find the property -- first search apply_types */
|
||||
i = 0;
|
||||
while (str_cmp(apply_types[i], "\n")) {
|
||||
if (!str_cmp(apply_types[i], property)) {
|
||||
type=APPLY_TYPE;
|
||||
break;
|
||||
}
|
||||
i++;
|
||||
}
|
||||
|
||||
if (!type) { /* search affect_types now */
|
||||
i = 0;
|
||||
while (str_cmp(affected_bits[i], "\n")) {
|
||||
if (!str_cmp(affected_bits[i], property)) {
|
||||
type=AFFECT_TYPE;
|
||||
break;
|
||||
}
|
||||
i++;
|
||||
}
|
||||
}
|
||||
|
||||
if (!type) { /* property not found */
|
||||
script_log("Trigger: %s, VNum %d. dg_affect: unknown property '%s'!",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), property);
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
/* locate the target */
|
||||
ch = get_char(charname);
|
||||
if (!ch) {
|
||||
script_log("Trigger: %s, VNum %d. dg_affect: cannot locate target!",
|
||||
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
|
||||
return;
|
||||
}
|
||||
|
||||
if (!str_cmp(value_p, "off")) {
|
||||
affect_from_char(ch, SPELL_DG_AFFECT);
|
||||
return;
|
||||
}
|
||||
|
||||
/* add the affect */
|
||||
af.type = SPELL_DG_AFFECT;
|
||||
af.duration = duration;
|
||||
af.modifier = value;
|
||||
|
||||
if (type == APPLY_TYPE) {
|
||||
af.location = i;
|
||||
af.bitvector = 0;
|
||||
} else {
|
||||
af.location = 0;
|
||||
af.bitvector = (1<<i);
|
||||
}
|
||||
|
||||
affect_to_char(ch, &af);
|
||||
}
|
||||
|
||||
void send_char_pos(struct char_data *ch, int dam)
|
||||
{
|
||||
switch (GET_POS(ch)) {
|
||||
case POS_MORTALLYW:
|
||||
act("$n is mortally wounded, and will die soon, if not aided.", TRUE, ch, 0, 0, TO_ROOM);
|
||||
send_to_char(ch, "You are mortally wounded, and will die soon, if not aided.\r\n");
|
||||
break;
|
||||
case POS_INCAP:
|
||||
act("$n is incapacitated and will slowly die, if not aided.", TRUE, ch, 0, 0, TO_ROOM);
|
||||
send_to_char(ch, "You are incapacitated and will slowly die, if not aided.\r\n");
|
||||
break;
|
||||
case POS_STUNNED:
|
||||
act("$n is stunned, but will probably regain consciousness again.", TRUE, ch, 0, 0, TO_ROOM);
|
||||
send_to_char(ch, "You're stunned, but will probably regain consciousness again.\r\n");
|
||||
break;
|
||||
case POS_DEAD:
|
||||
act("$n is dead! R.I.P.", FALSE, ch, 0, 0, TO_ROOM);
|
||||
send_to_char(ch, "You are dead! Sorry...\r\n");
|
||||
break;
|
||||
default: /* >= POSITION SLEEPING */
|
||||
if (dam > (GET_MAX_HIT(ch) >> 2))
|
||||
act("That really did HURT!", FALSE, ch, 0, 0, TO_CHAR);
|
||||
if (GET_HIT(ch) < (GET_MAX_HIT(ch) >> 2))
|
||||
send_to_char(ch, "%sYou wish that your wounds would stop BLEEDING so much!%s\r\n",
|
||||
CCRED(ch, C_SPR), CCNRM(ch, C_SPR));
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* Used throughout the xxxcmds.c files for checking if a char
|
||||
* can be targetted
|
||||
* - allow_gods is false when called by %force%, for instance,
|
||||
* while true for %teleport%. -- Welcor
|
||||
*/
|
||||
int valid_dg_target(struct char_data *ch, int bitvector)
|
||||
{
|
||||
if (IS_NPC(ch))
|
||||
return TRUE; /* all npcs are allowed as targets */
|
||||
else if (GET_LEVEL(ch) < LVL_IMMORT)
|
||||
return TRUE; /* as well as all mortals */
|
||||
else if (!IS_SET(bitvector, DG_ALLOW_GODS) &&
|
||||
GET_LEVEL(ch) >= LVL_GRGOD) /* LVL_GOD has the advance command. Can't allow them to be forced. */
|
||||
return FALSE; /* but not always the highest gods */
|
||||
else if (!PRF_FLAGGED(ch, PRF_NOHASSLE))
|
||||
return TRUE; /* the ones in between as allowed as long as they have no-hassle off. */
|
||||
else
|
||||
return FALSE; /* The rest are gods with nohassle on... */
|
||||
}
|
||||
|
||||
|
||||
void script_damage(struct char_data *vict, int dam)
|
||||
{
|
||||
if (GET_LEVEL(vict)>=LVL_IMMORT && (dam > 0)) {
|
||||
send_to_char(vict, "Being the cool immortal you are, you sidestep a trap,\r\n"
|
||||
"obviously placed to kill you.\r\n");
|
||||
return;
|
||||
}
|
||||
|
||||
GET_HIT(vict) -= dam;
|
||||
GET_HIT(vict) = MIN(GET_HIT(vict), GET_MAX_HIT(vict));
|
||||
|
||||
update_pos(vict);
|
||||
send_char_pos(vict, dam);
|
||||
|
||||
if (GET_POS(vict) == POS_DEAD) {
|
||||
if (!IS_NPC(vict))
|
||||
mudlog( BRF, 0, TRUE, "%s killed by script at %s",
|
||||
GET_NAME(vict), world[vict->in_room].name);
|
||||
die(vict, NULL);
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue