void speech_wtrigger(char_data *actor, char *str)
{
struct room_data *room;
trig_data *t;
char buf[MAX_INPUT_LENGTH];
if (!actor || !SCRIPT_CHECK(&world[IN_ROOM(actor)], WTRIG_SPEECH))
return;
room = &world[IN_ROOM(actor)];
for (t = TRIGGERS(SCRIPT(room)); t; t = t->next) {
if (!TRIGGER_CHECK(t, WTRIG_SPEECH))
continue;
if (!GET_TRIG_ARG(t) || !*GET_TRIG_ARG(t)) {
sprintf(buf,"SYSERR: W-Speech Trigger #%d has no text argument!",
GET_TRIG_VNUM(t));
mudlog(buf, NRM, LVL_BUILDER, TRUE);
continue;
}
if (((GET_TRIG_NARG(t) && word_check(str, GET_TRIG_ARG(t))) ||
(!GET_TRIG_NARG(t) && is_substring(GET_TRIG_ARG(t), str)))) {
ADD_UID_VAR(buf, t, actor, "actor", 0);
add_var(&GET_TRIG_VARS(t), "speech", str, 0);
script_driver(room, t, WLD_TRIGGER, TRIG_NEW);
break;
}
}
}
/* checks for command trigger on specific object. assumes obj has cmd trig */
int cmd_otrig(obj_data *obj, char_data *actor, char *cmd,
char *argument, int type) {
trig_data *t;
char buf[MAX_INPUT_LENGTH];
if (obj && SCRIPT_CHECK(obj, OTRIG_COMMAND))
for (t = TRIGGERS(SCRIPT(obj)); t; t = t->next) {
if (!TRIGGER_CHECK(t, OTRIG_COMMAND))
continue;
if (IS_SET(GET_TRIG_NARG(t), type) &&
(!GET_TRIG_ARG(t) || !*GET_TRIG_ARG(t))) {
mudlog(NRM, LVL_BUILDER, TRUE, "SYSERR: O-Command Trigger #%d has no text argument!",
GET_TRIG_VNUM(t));
continue;
}
if (IS_SET(GET_TRIG_NARG(t), type) &&
(*GET_TRIG_ARG(t) == '*' ||
!strn_cmp(GET_TRIG_ARG(t), cmd, strlen(GET_TRIG_ARG(t))))) {
ADD_UID_VAR(buf, t, actor, "actor", 0);
skip_spaces(&argument);
add_var(&GET_TRIG_VARS(t), "arg", argument, 0);
skip_spaces(&cmd);
add_var(&GET_TRIG_VARS(t), "cmd", cmd, 0);
if (script_driver(&obj, t, OBJ_TRIGGER, TRIG_NEW))
return 1;
}
}
return 0;
}
int command_wtrigger(char_data *actor, char *cmd, char *argument)
{
struct room_data *room;
trig_data *t;
char buf[MAX_INPUT_LENGTH];
if (!actor || !SCRIPT_CHECK(&world[IN_ROOM(actor)], WTRIG_COMMAND))
return 0;
room = &world[IN_ROOM(actor)];
for (t = TRIGGERS(SCRIPT(room)); t; t = t->next) {
if (!TRIGGER_CHECK(t, WTRIG_COMMAND))
continue;
if (!GET_TRIG_ARG(t) || !*GET_TRIG_ARG(t)) {
sprintf(buf,"SYSERR: W-Command Trigger #%d has no text argument!",
GET_TRIG_VNUM(t));
mudlog(buf, NRM, LVL_BUILDER, TRUE);
continue;
}
if (*GET_TRIG_ARG(t)=='*' ||
!strn_cmp(GET_TRIG_ARG(t), cmd, strlen(GET_TRIG_ARG(t)))) {
ADD_UID_VAR(buf, t, actor, "actor", 0);
skip_spaces(&argument);
add_var(&GET_TRIG_VARS(t), "arg", argument, 0);
skip_spaces(&cmd);
add_var(&GET_TRIG_VARS(t), "cmd", cmd, 0);
return script_driver(room, t, WLD_TRIGGER, TRIG_NEW);
}
}
return 0;
}
void speech_mtrigger(char_data *actor, char *str)
{
char_data *ch, *ch_next;
trig_data *t;
char buf[MAX_INPUT_LENGTH];
for (ch = world[IN_ROOM(actor)].people; ch; ch = ch_next)
{
ch_next = ch->next_in_room;
if (SCRIPT_CHECK(ch, MTRIG_SPEECH) && AWAKE(ch) &&
!AFF_FLAGGED(ch, AFF_CHARM) && (actor!=ch))
for (t = TRIGGERS(SCRIPT(ch)); t; t = t->next) {
if (!TRIGGER_CHECK(t, MTRIG_SPEECH))
continue;
if (!GET_TRIG_ARG(t) || !*GET_TRIG_ARG(t)) {
sprintf(buf,"SYSERR: Speech Trigger #%d has no text argument!",
GET_TRIG_VNUM(t));
mudlog(buf, NRM, LVL_BUILDER, TRUE);
continue;
}
if (((GET_TRIG_NARG(t) && word_check(str, GET_TRIG_ARG(t))) ||
(!GET_TRIG_NARG(t) && is_substring(GET_TRIG_ARG(t), str)))) {
ADD_UID_VAR(buf, t, actor, "actor", 0);
add_var(&GET_TRIG_VARS(t), "speech", str, 0);
script_driver(ch, t, MOB_TRIGGER, TRIG_NEW);
break;
}
}
}
}
void act_mtrigger(const char_data *ch, char *str, char_data *actor,
char_data *victim, obj_data *object,
obj_data *target, char *arg) {
trig_data *t;
char buf[MAX_INPUT_LENGTH];
if (SCRIPT_CHECK(ch, MTRIG_ACT) && !AFF_FLAGGED(ch, AFF_CHARM) &&
(actor != ch))
for (t = TRIGGERS(SCRIPT(ch)); t; t = t->next) {
if (!TRIGGER_CHECK(t, MTRIG_ACT))
continue;
if (!GET_TRIG_ARG(t) || !*GET_TRIG_ARG(t)) {
mudlog(NRM, LVL_BUILDER, TRUE, "SYSERR: Act Trigger #%d has no text argument!",
GET_TRIG_VNUM(t));
continue;
}
if (((GET_TRIG_NARG(t) && word_check(str, GET_TRIG_ARG(t))) ||
(!GET_TRIG_NARG(t) && is_substring(GET_TRIG_ARG(t), str)))) {
if (actor)
ADD_UID_VAR(buf, t, actor, "actor", 0);
if (victim)
ADD_UID_VAR(buf, t, victim, "victim", 0);
if (object)
ADD_UID_VAR(buf, t, object, "object", 0);
if (target)
ADD_UID_VAR(buf, t, target, "target", 0);
if (str) {
/* we're guaranteed to have a string ending with \r\n\0 */
char *nstr = strdup(str), *fstr = nstr, *p = strchr(nstr, '\r');
skip_spaces(&nstr);
*p = '\0';
add_var(&GET_TRIG_VARS(t), "arg", nstr, 0);
free(fstr);
}
script_driver(&ch, t, MOB_TRIGGER, TRIG_NEW);
break;
}
}
}
int command_mtrigger(char_data *actor, char *cmd, char *argument) {
char_data *ch, *ch_next;
trig_data *t;
char buf[MAX_INPUT_LENGTH];
/* prevent people we like from becoming trapped :P */
if (!valid_dg_target(actor, 0))
return 0;
for (ch = world[IN_ROOM(actor)].people; ch; ch = ch_next) {
ch_next = ch->next_in_room;
if (SCRIPT_CHECK(ch, MTRIG_COMMAND) && !AFF_FLAGGED(ch, AFF_CHARM) &&
((actor != ch) || CONFIG_SCRIPT_PLAYERS)) {
for (t = TRIGGERS(SCRIPT(ch)); t; t = t->next) {
if (!TRIGGER_CHECK(t, MTRIG_COMMAND))
continue;
if (!GET_TRIG_ARG(t) || !*GET_TRIG_ARG(t)) {
mudlog(NRM, LVL_BUILDER, TRUE, "SYSERR: Command Trigger #%d has no text argument!",
GET_TRIG_VNUM(t));
continue;
}
if (*GET_TRIG_ARG(t) == '*' ||
!strn_cmp(GET_TRIG_ARG(t), cmd, strlen(GET_TRIG_ARG(t)))) {
ADD_UID_VAR(buf, t, actor, "actor", 0);
skip_spaces(&argument);
add_var(&GET_TRIG_VARS(t), "arg", argument, 0);
skip_spaces(&cmd);
add_var(&GET_TRIG_VARS(t), "cmd", cmd, 0);
if (script_driver(&ch, t, MOB_TRIGGER, TRIG_NEW))
return 1;
}
}
}
}
return 0;
}
void process_events(void)
{
struct event_info *e = event_list;
struct event_info *del;
struct timeval start, stop, result;
int trig_vnum;
gettimeofday(&start, NULL);
while (e)
{
if (--(e->time_remaining) == 0)
{
trig_vnum = GET_TRIG_VNUM(((struct wait_event_data *)(e->info))->trigger);
e->func(e->info);
del = e;
e = e->next;
remove_event(del);
// На отработку отложенных тригов выделяем всего 50 мсекунд
// По исчерпанию лимита откладываем отработку на следующий тик.
// Делаем для более равномерного распределения времени процессора.
gettimeofday(&stop, NULL);
timediff(&result, &stop, &start);
if (result.tv_sec > 0 || result.tv_usec >= MAX_TRIG_USEC)
{
// Выводим номер триггера который переполнил время работы.
sprintf(buf,
"[TrigVNum: %d]: process_events overflow %ld sec. %ld us.",
trig_vnum, result.tv_sec, result.tv_usec);
mudlog(buf, BRF, -1, ERRLOG, TRUE);
break;
}
}
else
e = e->next;
}
}
void act_mtrigger(const char_data *ch, char *str, char_data *actor,
char_data *victim, obj_data *object,
obj_data *target, char *arg)
{
trig_data *t;
char buf[MAX_INPUT_LENGTH];
if (SCRIPT_CHECK(ch, MTRIG_ACT) && !AFF_FLAGGED(ch, AFF_CHARM) &&
(actor!=ch))
for (t = TRIGGERS(SCRIPT(ch)); t; t = t->next) {
if (!TRIGGER_CHECK(t, MTRIG_ACT))
continue;
if (!GET_TRIG_ARG(t) || !*GET_TRIG_ARG(t)) {
sprintf(buf,"SYSERR: Act Trigger #%d has no text argument!",
GET_TRIG_VNUM(t));
mudlog(buf, NRM, LVL_BUILDER, TRUE);
continue;
}
if (((GET_TRIG_NARG(t) && word_check(str, GET_TRIG_ARG(t))) ||
(!GET_TRIG_NARG(t) && is_substring(GET_TRIG_ARG(t), str)))) {
if (actor)
ADD_UID_VAR(buf, t, actor, "actor", 0);
if (victim)
ADD_UID_VAR(buf, t, victim, "victim", 0);
if (object)
ADD_UID_VAR(buf, t, object, "object", 0);
if (target)
ADD_UID_VAR(buf, t, target, "target", 0);
if (arg) {
skip_spaces(&arg);
add_var(&GET_TRIG_VARS(t), "arg", arg, 0);
}
script_driver(ch, t, MOB_TRIGGER, TRIG_NEW);
break;
}
}
}
/* 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;
/* 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;
}
/* get: blank, spell name, target name */
s = strtok(cmd, "'");
if (s == NULL) {
sprintf(buf2, "Trigger: %s, VNum %d. dg_cast needs spell name.",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
script_log(buf2);
return;
}
s = strtok(NULL, "'");
if (s == NULL) {
sprintf(buf2, "Trigger: %s, VNum %d. dg_cast needs spell name in `'s.",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
script_log(buf2);
return;
}
t = strtok(NULL, "\0");
/* spellnum = search_block(s, spells, 0); */
spellnum = find_abil_num(s,spells);
if ((spellnum < 1) || (spellnum > MAX_SPELLS)) {
sprintf(buf2, "Trigger: %s, VNum %d. dg_cast: invalid spell name (%s)",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), cmd);
script_log(buf2);
return;
}
/* Find the target */
if (t != NULL) {
one_argument(strcpy(arg, 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) {
sprintf(buf2, "Trigger: %s, VNum %d. dg_cast: target not found (%s)",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), cmd);
script_log(buf2);
return;
}
}
if (IS_SET(SINFO.routines, MAG_GROUPS)) {
sprintf(buf2,
"Trigger: %s, VNum %d. dg_cast: group spells not permitted (%s)",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), cmd);
script_log(buf2);
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.... */
/* take select pieces from char_to_room(); */
if (type==OBJ_TRIGGER)
caster->player.short_descr =
str_dup(((struct obj_data *)go)->short_description);
else if (type==WLD_TRIGGER)
caster->player.short_descr = str_dup("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, ABT_SPELL, GET_LEVEL(caster), CAST_SPELL, FALSE);
extract_char(caster);
} else
call_magic(caster, tch, tobj, spellnum, ABT_SPELL, GET_LEVEL(caster), CAST_SPELL, FALSE);
}
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 index=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) {
sprintf(buf2, "Trigger: %s, VNum %d. dg_affect usage: <target> <property> <value> <duration>",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
script_log(buf2);
return;
}
value = atoi(value_p);
duration = atoi(duration_p);
if (duration <= 0) {
sprintf(buf2, "Trigger: %s, VNum %d. dg_affect: need positive duration!",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
script_log(buf2);
return;
}
/* find the property -- first search apply_types */
index = 0;
while (str_cmp(apply_types[index], "\n")) {
if (!str_cmp(apply_types[index], property)) {
type=APPLY_TYPE;
break;
}
index++;
}
if (!type) { /* search affect_types now */
index = 0;
while (str_cmp(affected_bits[index], "\n")) {
if (!str_cmp(affected_bits[index], property)) {
type=AFFECT_TYPE;
break;
}
index++;
}
}
if (!type) { /* property not found */
sprintf(buf2, "Trigger: %s, VNum %d. dg_affect: unknown property '%s'!",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig), property);
script_log(buf2);
return;
}
/* locate the target */
ch = get_char(charname);
if (!ch) {
sprintf(buf2, "Trigger: %s, VNum %d. dg_affect: cannot locate target!",
GET_TRIG_NAME(trig), GET_TRIG_VNUM(trig));
script_log(buf2);
return;
}
/* add the affect */
af.type = 0;
af.duration = duration;
af.modifier = value;
af.location = 0;
af.bitvector = (1<<type);
affect_to_char(ch, &af);
}