Event Code for iDirt
Abermud Central is pretty much an abandoned site, but someone posted this code months ago that I just noticed: Damian Miller's Event Handler Code for iDiRT 1.82 All I ask is if you use this that you give me a little credit,

Makefile
add events.o to MUDDOBJS

events.h

#ifndef _EVENTS_H_
#define _EVENTS_H_

typedef struct _event_sys {
  struct _event_sys *next;
  Boolean use;
  char name[50];
  time_t timer;
  time_t reset_timer;
  void (*output_func)();
}_EVENT_SYS;

void load_events();
void do_events();
void eventscom ();

#endif

events.c

#include "kernel.h"
#include "mud.h"
#include "log.h"
#include "bootstrap.h"
#include "sendsys.h"
#include "mobile.h"
#include "timing.h"
#include "locations.h"
#include "objsys.h"
#include "bprintf.h"
#include "events.h"
#include "parse.h"
#include "utils.h"

_EVENT_SYS *ehead, *etail;
typedef _EVENT_SYS *eventsys;

void event_healall();

void add_event(char *name, Boolean use, time_t t, void (*d)())
{
	_EVENT_SYS *ecur;
	if(ehead==NULL)
	{
	 ehead = NEW(_EVENT_SYS, 1);
	 etail = ehead;
	 ecur  = ehead;
	}
	else
	{
	etail->next = NEW(_EVENT_SYS, 1);
	etail = etail->next;
	}
	strcpy(etail->name, name);
	etail->use = use;
	etail->reset_timer = t;
	etail->output_func = d;
	etail->next = NULL;
}

void do_events ()
{
  _EVENT_SYS *event;

  for (event = ehead; event != NULL; event = event->next)
  { 
    if (event->use == True) {
    ++event->timer;
     if (event->timer >= event->reset_timer) 
     {
       (void) event->output_func();
       event->timer = 0;
     }
    }
  }
}

//Load the events into the system.
void load_events ()
{
  //         Name       Use?    Reset   Function
  add_event("healall",	True,	300,	event_healall);
}


//A command to show events in the mud.
void eventscom ()
{
  _EVENT_SYS *event;
  char tleft[64];
  int count;
  if (plev (mynum) < LVL_ARCHWIZARD)
  {
   erreval ();
   return;
  }
  bprintf ("&+RTimed &+Cevents &+cin the &+Gland &+cof &+m%s&+c.\n", COL_NAME);
  bprintf ("&+r-------------------------------------------------------------------------------\n");
  bprintf ("&+W%-12s %-6s %-9s\n", "Name", "Active", "Time Left");
  bprintf ("&+r-------------------------------------------------------------------------------\n");
  for (event = ehead, count = 0; event != NULL; event = event->next, ++count)
  {
    strcpy (tleft, sec_to_hhmmss (event->reset_timer - event->timer));
    bprintf ("&+g%-12s %-6s %-9s\n", capitalize(event->name), 
    event->use == True ? "Yes" : "No", tleft);
  }
  bprintf ("&+r-------------------------------------------------------------------------------\n");
  bprintf ("&+cTotal &+YEvents&+C: &+g%d\n", count);
}

/************************************************************
 * Start of events, lets hope all these are nice            *
 ************************************************************/
void event_healall ()
{
  int i;
  int j = 0;
  for (i = 0; i < max_players; ++i) {
    if (is_in_game (i) && pfighting (i) < 0 && plev (i) < LVL_WIZARD &&
        ((pstr (i) < maxstrength (i) || pmagic (i) < maxmagic (i)) ||
         (pstr (i) < maxstrength (i) && pmagic (i) < maxmagic (i)))) {
      setpstr (i, maxstrength (i));
      setpmagic (i, maxmagic (i));
      ++j;
      sendf (i, "&+m%s &+cunleashes a healing spell over the world.\n",
             MUD_NAME);
    }
  }
    if(!j==0)
    send_msg (DEST_ALL, MODE_QUIET, LVL_WIZARD, LVL_MAX, mynum, NOBODY,
              "&+r[&+gEvent: &+CAuto &+YHeal All&+r]\n");
}

open up main.c and add this at the bottom of the includes:

#include "events.h"

then look for the on_timer(); and below it add:

do_events();

save and exit.

open up bootstrap.c and include events.h then in boot_world() add:

load_events();

add the verb "events" to verbs.src

then add #include "events.h" to parse.c and somewhere where you put your commands add:

  case VERB_EVENTS:
    eventscom();
    break;

save and exit. and you got my event code.

do a make clean or rm -rf *.o first