/*    /secure/sefun/events.c
 *    from the Dead Souls LPC Library
 *    simuls for handling events
 *    created by Descartes of Borg 950514
 */

#include <daemons.h>

varargs void create_event(string f, int when, mixed *args, int reg) {
    object ob;
    string fn;

    if( clonep(ob = previous_object()) ) return;
    if( !function_exists(f, ob) || when < 60 ) return;
    fn = file_name(ob);
    EVENTS_D->AddEvent(fn, fn, f, when, args, reg);
}

varargs void add_event(string source, string ob, string fun, mixed *args, int when, int repeat){
    if(!archp(this_player())) return;
    EVENTS_D->AddEvent(source, ob, fun, args, when, repeat);
}

varargs void remove_event(int i){
    if(!archp(this_player())) return;
    EVENTS_D->RemoveEvent(i);
}

int event_pending(object ob) {
    mapping tmp;
    int *cles;
    string fn;
    int i;

    tmp = (mapping)EVENTS_D->GetEvents();
    fn = file_name(ob);
    i = sizeof(cles = keys(tmp));
    while(i--) if( tmp[cles[i]]["object"] == fn ) return 1;
    return 0;
}