![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to events.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / games / trek|
Return to events.c CVS log | Up to [Research Unix] / researchv10no / games / trek |
1.1 ! root 1: # include "trek.h" ! 2: ! 3: /** ! 4: ** cause time to elapse ! 5: **/ ! 6: ! 7: /* snapshot for time warps */ ! 8: char Snapshot[14 + sizeof Quad + sizeof Event + sizeof Base + sizeof Etc]; ! 9: ! 10: double randly(evname) ! 11: int evname; ! 12: { ! 13: return(Param.eventdly[evname] * franf()); ! 14: } ! 15: ! 16: double logdly(evname) ! 17: int evname; ! 18: { ! 19: double d; ! 20: ! 21: d = Param.eventdly[evname] * Initial.time * log(franf()); ! 22: if(evname==E_LRTB) d =/ Status.kling; ! 23: return(-d); ! 24: } ! 25: ! 26: events() ! 27: { ! 28: register int i; ! 29: int j; ! 30: int restcancel; ! 31: KLINGONS *k; ! 32: double rtime; ! 33: double xdate; ! 34: double idate; ! 35: EVENT *ev; ! 36: int ix, iy; ! 37: register QUAD *q; ! 38: register EVENT *e; ! 39: int evnum; ! 40: ! 41: if (Move.delta <= 0.0) ! 42: { ! 43: Status.time = Status.resource / Status.kling; ! 44: return; ! 45: } ! 46: idate = Status.date; ! 47: if (Move.delta > 0.5 && Move.resting) ! 48: schedule(E_ATTACK, 0.5, 0, 0, 0); ! 49: while (1) ! 50: { ! 51: restcancel = 0; ! 52: evnum = -1; ! 53: xdate = idate + Move.delta; ! 54: for (i = 0; i < MAXEVENTS; i++) ! 55: { ! 56: e = &Event[i]; ! 57: if (e->evcode < 0) ! 58: continue; ! 59: if (e->date < xdate) ! 60: { ! 61: xdate = e->date; ! 62: ev = e; ! 63: evnum = i; ! 64: } ! 65: } ! 66: rtime = xdate - Status.date; ! 67: Status.resource =- Status.kling * rtime; ! 68: Status.time = Status.resource / Status.kling; ! 69: Status.date = xdate; ! 70: if (Status.time <= 0.0) ! 71: lose(L_NOTIME); ! 72: if (evnum < 0) ! 73: break; ! 74: e = ev; ! 75: switch (e->evcode) ! 76: { ! 77: case E_SNOVA: /* supernova */ ! 78: snova(-1); ! 79: reschedule(e, logdly(E_SNOVA)); ! 80: break; ! 81: ! 82: case E_LRTB: /* long range tractor beam */ ! 83: if (Status.cond != DOCKED && Nkling < 3) ! 84: { ! 85: i = ranf(Status.kling) + 1; ! 86: for (ix = 0; ix < NQUADS; ix++) ! 87: { ! 88: for (iy = 0; iy < NQUADS; iy++) ! 89: if (Quad[ix][iy].stars >= 0) ! 90: if ((i =- Quad[ix][iy].qkling) <= 0) ! 91: break; ! 92: if (i <= 0) ! 93: break; ! 94: } ! 95: Quadx = ix; ! 96: Quady = iy; ! 97: printf("%s caught in long range tractor beam", Status.shipname); ! 98: printf("; pulled to quadrant %d,%d\n", Quadx, Quady); ! 99: Sectx = ranf(NSECTS); ! 100: Secty = ranf(NSECTS); ! 101: initquad(0); ! 102: Move.delta = xdate - idate; ! 103: } ! 104: reschedule(e, logdly(E_LRTB)); ! 105: break; ! 106: ! 107: case E_KATSB: /* Klingon attacks starbase */ ! 108: if (Status.bases <= 0) ! 109: { ! 110: unschedule(e); ! 111: break; ! 112: } ! 113: i = 1; ! 114: for (ix = 0; ix < NQUADS; ix++) ! 115: { ! 116: for (iy = 0; iy < NQUADS; iy++) ! 117: if (Quad[ix][iy].bases > 0 && Quad[ix][iy].qkling > 0) ! 118: { ! 119: i = 0; ! 120: break; ! 121: } ! 122: if (!i) ! 123: break; ! 124: } ! 125: reschedule(e, logdly(E_KATSB)); ! 126: if (i) break; ! 127: e = schedule(E_KDESB, 0.5 + randly(E_KDESB), ix, iy, 0); ! 128: if (!Damage[SSRADIO]) ! 129: { ! 130: printf("Uhura:\tCaptain, we have recieved a distress signal\n"); ! 131: printf("\tfrom the starbase in quadrant %d,%d.\n", ! 132: ix, iy); ! 133: restcancel++; ! 134: } ! 135: else ! 136: e->evdata = E_NREPORT; ! 137: break; ! 138: ! 139: case E_KDESB: /* Klingon destroys starbase */ ! 140: unschedule(e); ! 141: q = &Quad[e->x][e->y]; ! 142: if (q->bases <=0 || q->qkling <= 0) ! 143: break; ! 144: if (e->x == Quadx && e->y == Quady) ! 145: { ! 146: printf("\nSpock: "); ! 147: killb(Quadx, Quady); ! 148: } ! 149: else ! 150: killb(e->x, e->y); ! 151: break; ! 152: ! 153: case E_ISSUE: /* issue a distress call */ ! 154: reschedule(e, logdly(E_ISSUE)); ! 155: if (Status.distressed >= MAXDISTR) ! 156: break; ! 157: for (i = 0; i < 100; i++) ! 158: { ! 159: ix = ranf(NQUADS); ! 160: iy = ranf(NQUADS); ! 161: q = &Quad[ix][iy]; ! 162: if (!((ix == Quadx && iy == Quady) || q->stars < 0 || ! 163: q->systemname&(Q_DISTRESS|Q_GHOST) || ! 164: q->systemname == 0 || q->qkling <= 0)) ! 165: break; ! 166: } ! 167: if (i >= 100) ! 168: break; ! 169: Status.distressed =+ 1; ! 170: e = schedule(E_ENSLV, randly(E_ENSLV), ix, iy, q->systemname); ! 171: q->systemname = (e - Event) | Q_DISTRESS; ! 172: if (!Damage[SSRADIO]) ! 173: { ! 174: printf("Uhura:\tCaptain, starsystem %s in quadrant %d,%d is under attack.\n", ! 175: Systemname[e->evdata], ix, iy); ! 176: restcancel++; ! 177: } ! 178: else ! 179: e->evdata =| E_NREPORT; ! 180: break; ! 181: ! 182: case E_ENSLV: /* starsystem is enslaved */ ! 183: unschedule(e); ! 184: /* see if current distress call still active */ ! 185: q = &Quad[e->x][e->y]; ! 186: if (q->qkling <= 0) ! 187: { ! 188: e->evdata =& ~E_NREPORT; ! 189: if(q->systemname&Q_DISTRESS) ! 190: q->systemname = e->evdata; ! 191: break; ! 192: } ! 193: else ! 194: schedule(E_REPRO, randly(E_REPRO), e->x, e->y, e->evdata); ! 195: if (!Damage[SSRADIO]) ! 196: { ! 197: printf("Uhura:\tWe've lost contact with starsystem %s\n", ! 198: Systemname[e->evdata]); ! 199: printf(" in quadrant %d,%d.\n", ! 200: e->x, e->y); ! 201: } ! 202: break; ! 203: ! 204: case E_REPRO: /* Klingon reproduces */ ! 205: /* see if distress call is still active */ ! 206: q = &Quad[e->x][e->y]; ! 207: if (q->qkling <= 0) ! 208: { ! 209: unschedule(e); ! 210: if (q->systemname&Q_DISTRESS) ! 211: q->systemname = e->evdata; ! 212: break; ! 213: } ! 214: reschedule(e, randly(E_REPRO)); ! 215: /* reproduce one Klingon */ ! 216: ix = e->x; ! 217: iy = e->y; ! 218: if (Status.kling == 127) ! 219: break; /* full right now */ ! 220: if (q->qkling >= 9) ! 221: { ! 222: /* this quadrant not ok */ ! 223: for (i = ix - 1; i <= ix + 1; i++) ! 224: { ! 225: if (i < 0 || i >= NQUADS) ! 226: continue; ! 227: for (j = iy - 1; j <= iy + 1; j++) ! 228: { ! 229: if (j < 0 || j >= NQUADS) ! 230: continue; ! 231: q = &Quad[i][j]; ! 232: if (q->qkling >= 9 || q->stars < 0) ! 233: continue; ! 234: break; ! 235: } ! 236: if (j <= iy + 1) ! 237: break; ! 238: } ! 239: if (j > iy + 1) ! 240: /* cannot create another yet */ ! 241: break; ! 242: ix = i; ! 243: iy = j; ! 244: } ! 245: q->qkling =+ 1; ! 246: Status.kling =+ 1; ! 247: if (ix == Quadx && iy == Quady) ! 248: { ! 249: /* we must position Klingon */ ! 250: sector(&ix, &iy); ! 251: Sect[ix][iy] = KLINGON; ! 252: k = &Kling[Nkling++]; ! 253: k->x = ix; ! 254: k->y = iy; ! 255: k->power = Param.klingpwr; ! 256: compkldist(Kling[0].dist == Kling[0].avgdist ? 0 : 1); ! 257: } ! 258: Status.time = Status.resource / Status.kling; ! 259: break; ! 260: ! 261: case E_SNAP: ! 262: reschedule(e, logdly(E_SNAP)); ! 263: i = &Snapshot; ! 264: i = bmove(&Status.bases, i, 2); ! 265: i = bmove(&Status.date, i, 12); ! 266: i = bmove(&Quad, i, sizeof Quad); ! 267: i = bmove(&Event, i, sizeof Event); ! 268: i = bmove(&Base, i, sizeof Base); ! 269: i = bmove(&Etc, i, sizeof Etc); ! 270: Game.snap = 1; ! 271: break; ! 272: ! 273: case E_ATTACK: /* Klingons attack during rest period */ ! 274: if (!Move.resting) ! 275: { ! 276: unschedule(e); ! 277: break; ! 278: } ! 279: attack(1); ! 280: reschedule(e, 0.5); ! 281: break; ! 282: ! 283: case E_FIXDV: ! 284: i = e->evdata; ! 285: unschedule(e); ! 286: Damage[i] = 0; ! 287: printf("%s reports repair work on the %s finished.\n", ! 288: Device[i].person, Device[i].name); ! 289: switch (i) ! 290: { ! 291: case LIFESUP: ! 292: Status.reserves = Initial.reserves; ! 293: break; ! 294: ! 295: case SINS: ! 296: if (Status.cond == DOCKED) ! 297: break; ! 298: printf("Spock has tried to recalibrate your Space Internal Navigation System,\n"); ! 299: printf(" but he has no standard base to calibrate to. Suggest you get\n"); ! 300: printf(" to a starbase immediately so that you can properly recalibrate.\n"); ! 301: Status.sinsbad = 1; ! 302: break; ! 303: ! 304: case SSRADIO: ! 305: restcancel = dumpssradio(); ! 306: break; ! 307: } ! 308: break; ! 309: ! 310: default: ! 311: break; ! 312: } ! 313: ! 314: if(Move.resting && restcancel && getynpar("Spock: Shall we cancel our rest period")) ! 315: Move.delta = xdate - idate; ! 316: } ! 317: ! 318: if (e = Etc.eventptr[E_ATTACK]) ! 319: unschedule(e); ! 320: if (Status.cloaked) ! 321: Status.energy =- Param.cloakenergy * Move.delta; ! 322: rtime = 1.0 - exp(-Param.regenfac * Move.delta); ! 323: Status.shield =+ (Initial.shield - Status.shield) * rtime; ! 324: Status.energy =+ (Initial.energy - Status.energy) * rtime; ! 325: if (Damage[LIFESUP] && Status.cond != DOCKED) ! 326: Status.reserves =- Move.delta; ! 327: return; ! 328: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.