forked from kyonshi/grenzland-mud
9336b21d40
Fixed top_of_helpt bug being off by one. (thanks Jamdog) Fixed trigedit copy bug where it used real_room and not real_trigger. (thanks Jamdog) [Dec 21 2007] - Rumble Fixed dg_affect crash caused by a typo on my part. Renamed shit again! No really in zmalloc.c unsigned char * shit. [Dec 15 2007] - Rumble Showvnums shows [T#] for a single attached trig or [TRIGS] for multiple attached trigs (except for rooms since there is plenty of room to list all attached trigs). Fixed bug where showvnums would not show if attached. (thanks Sryth)
315 lines
10 KiB
C
315 lines
10 KiB
C
/**************************************************************************
|
|
* File: dg_misc.c Part of tbaMUD *
|
|
* 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. */
|
|
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 -1;
|
|
af.modifier = value;
|
|
|
|
if (type == APPLY_TYPE) {
|
|
af.location = i;
|
|
af.bitvector = 0;
|
|
} else {
|
|
af.location = 0;
|
|
af.bitvector = 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, "
|
|
"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);
|
|
}
|
|
}
|
|
|