games/trek/schedule.c

   1 /*      @(#)schedule.c  8.1 (Berkeley) 5/31/93                          */
   2 /*      $NetBSD: schedule.c,v 1.11 2009/05/24 22:55:03 dholland Exp $   */
   3
   4 /*
   5  * Copyright (c) 1980, 1993
   6  *      The Regents of the University of California.  All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. Neither the name of the University nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32
  33 #include <stdio.h>
  34 #include <math.h>
  35 #include <err.h>
  36 #include <limits.h>
  37 #include "trek.h"
  38
  39 /*
  40 **  SCHEDULE AN EVENT
  41 **
  42 **      An event of type 'type' is scheduled for time NOW + 'offset'
  43 **      into the first available slot.  'x', 'y', and 'z' are
  44 **      considered the attributes for this event.
  45 **
  46 **      The address of the slot is returned.
  47 */
  48
  49 struct event *
  50 schedule(int type, double offset, int x, int y, int z)
  51 {
  52         struct event    *e;
  53         int             i;
  54         double                  date;
  55
  56         date = Now.date + offset;
  57         for (i = 0; i < MAXEVENTS; i++) {
  58                 e = &Event[i];
  59                 if (e->evcode)
  60                         continue;
  61                 /* got a slot */
  62 #ifdef xTRACE
  63                 if (Trace)
  64                         printf("schedule: type %d @ %.2f "
  65                                "slot %d parm %d %d %d\n",
  66                                 type, date, i, x, y, z);
  67 #endif
  68                 e->evcode = type;
  69                 e->date = date;
  70                 e->x = x;
  71                 e->y = y;
  72                 e->systemname = z;
  73                 Now.eventptr[type & ~E_GHOST] = e;
  74                 return (e);
  75         }
  76         errx(1, "Cannot schedule event %d parm %d %d %d", type, x, y, z);
  77 }
  78
  79
  80 /*
  81 **  RESCHEDULE AN EVENT
  82 **
  83 **      The event pointed to by 'e' is rescheduled to the current
  84 **      time plus 'offset'.
  85 */
  86
  87 void
  88 reschedule(struct event *e1, double offset)
  89 {
  90         double                  date;
  91         struct event    *e;
  92
  93         e = e1;
  94
  95         date = Now.date + offset;
  96         e->date = date;
  97 #ifdef xTRACE
  98         if (Trace)
  99                 printf("reschedule: type %d parm %d %d %d @ %.2f\n",
 100                         e->evcode, e->x, e->y, e->systemname, date);
 101 #endif
 102         return;
 103 }
 104
 105
 106 /*
 107 **  UNSCHEDULE AN EVENT
 108 **
 109 **      The event at slot 'e' is deleted.
 110 */
 111
 112 void
 113 unschedule(struct event *e1)
 114 {
 115         struct event    *e;
 116
 117         e = e1;
 118
 119 #ifdef xTRACE
 120         if (Trace)
 121                 printf("unschedule: type %d @ %.2f parm %d %d %d\n",
 122                         e->evcode, e->date, e->x, e->y, e->systemname);
 123 #endif
 124         Now.eventptr[e->evcode & E_EVENT] = 0;
 125         e->date = TOOLARGE;
 126         e->evcode = 0;
 127         return;
 128 }
 129
 130
 131 /*
 132 **  Abreviated schedule routine
 133 **
 134 **      Parameters are the event index and a factor for the time
 135 **      figure.
 136 */
 137
 138 struct event *
 139 xsched(int ev1, int factor, int x, int y, int z)
 140 {
 141         int     ev;
 142         double when;
 143
 144         ev = ev1;
 145         when = -Param.eventdly[ev] * Param.time * log(franf()) / factor;
 146         return (schedule(ev, when, x, y, z));
 147 }
 148
 149
 150 /*
 151 **  Simplified reschedule routine
 152 **
 153 **      Parameters are the event index, the initial date, and the
 154 **      division factor.  Look at the code to see what really happens.
 155 */
 156
 157 void
 158 xresched(struct event *e1, int ev1, int factor)
 159 {
 160         int             ev;
 161         struct event    *e;
 162         double when;
 163
 164         ev = ev1;
 165         e = e1;
 166         when = -Param.eventdly[ev] * Param.time * log(franf()) / factor;
 167         reschedule(e, when);
 168 }