#include <daemons.h>

varargs void event(string fun, int when, mixed *args, int reg) {
    object ob;
    function f;

    if( clonep(ob = previous_object()) ) return;
    if( !function_exists(fun, ob) || when < 60 ) return;
    f = (: call_other, ob, fun :);
    EVENTS_D->AddEvent(f, when, reg);
}

int event_pending(object ob) {
    mapping tmp;

    tmp = (mapping)EVENTS_D->query_events();
    if(tmp[file_name(ob)]) return 1;
    else return 0;
}