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