Return to schedule.c CVS log

Up to [Research Unix] / researchv10no / games / trek

Annotation of researchv10no/games/trek/schedule.c, revision 1.1

1.1     ! root        1: # include      "trek.h"
        !             2: 
        !             3: /**
        !             4:  **    schedule an event
        !             5:  **/
        !             6: 
        !             7: schedule(type, delta, x, y, z)
        !             8: int    type;
        !             9: float  delta;
        !            10: char   x, y;
        !            11: char   z;
        !            12: {
        !            13:        register EVENT          *e;
        !            14:        register int            i;
        !            15: 
        !            16:        for (i = 0; i < MAXEVENTS; i++)
        !            17:        {
        !            18:                e = &Event[i];
        !            19:                if (e->evcode >= 0)
        !            20:                        continue;
        !            21:                /* got a slot */
        !            22:                e->evcode = type;
        !            23:                e->date = Status.date + delta;
        !            24:                e->x = x;
        !            25:                e->y = y;
        !            26:                e->evdata = z;
        !            27:                if (type < 64)
        !            28:                        Etc.eventptr[type] = e;
        !            29:                return(e);
        !            30:        }
        !            31:        syserr("Cannot schedule event %d parm %d %d %d", type, x, y, z);
        !            32:        return(-1);
        !            33: }
        !            34: 
        !            35: 
        !            36: /**
        !            37:  **    reschedule an event
        !            38:  **/
        !            39: 
        !            40: reschedule(e, delta)
        !            41: EVENT          *e;
        !            42: float          delta;
        !            43: {
        !            44:        e->date =+ delta;
        !            45:        return;
        !            46: }
        !            47: 
        !            48: 
        !            49: /**
        !            50:  **    unschedule an event
        !            51:  **/
        !            52: 
        !            53: unschedule(e)
        !            54: EVENT          *e;
        !            55: {
        !            56:        if (e->evcode < 64)
        !            57:                Etc.eventptr[e->evcode] = 0;
        !            58:        e->date = 1e50;
        !            59:        e->evcode = -1;
        !            60:        return;
        !            61: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.