![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to play.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / warp|
Return to play.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / warp |
1.1 root 1: /* $Header: play.c,v 7.0.1.1 86/10/16 10:52:39 lwall Exp $ */
2:
3: /* $Log: play.c,v $
4: * Revision 7.0.1.1 86/10/16 10:52:39 lwall
5: * Added Damage. Fixed random bugs.
6: *
7: * Revision 7.0 86/10/08 15:13:09 lwall
8: * Split into separate files. Added amoebas and pirates.
9: *
10: */
11:
12: #include "EXTERN.h"
13: #include "warp.h"
14: #include "bang.h"
15: #include "score.h"
16: #include "object.h"
17: #include "move.h"
18: #include "term.h"
19: #include "them.h"
20: #include "us.h"
21: #include "util.h"
22: #include "weapon.h"
23: #include "INTERN.h"
24: #include "play.h"
25:
26: void
27: play_init()
28: {
29: ;
30: }
31:
32: void
33: play()
34: {
35: bool done = FALSE;
36: Reg1 OBJECT *curobj;
37: Reg2 OBJECT *to;
38: Reg3 int i;
39: Reg4 int x;
40: Reg5 int y;
41:
42: display_status();
43: #ifdef TIOCOUTQ
44: while (output_pending() > charsperhalfsec)
45: sleep(1); /* allow buffers to empty */
46: #endif
47: sleep(3);
48: do {
49: timer++;
50: nxtbang = 0;
51: banging = FALSE;
52: display_status();
53: #ifdef TIOCOUTQ
54: while (output_pending() > charsperhalfsec)
55: sleep(1);
56: #endif
57: if (lowspeed)
58: roundsleep(2);
59: else
60: roundsleep(1);
61: if (ent) {
62: evely = ent->vely;
63: evelx = ent->velx;
64: if (cloaking && ent->energy >= 250 && !damflag[NOCLOAKING]) {
65: if (!rand_mod(300)) {
66: damage++;
67: damflag[NOCLOAKING] = rand_mod(smarts+1)+2;
68: }
69: ent->energy -= ent->energy/40;
70: }
71: else
72: cloaking = FALSE;
73: cloaked = cloaking;
74: }
75: if (base) {
76: bvely = base->vely;
77: bvelx = base->velx;
78: }
79: get_commands(&done);
80: if (done)
81: break;
82: their_smarts();
83: apolloflag = 0;
84: if (ent) {
85: if (numapollos) {
86: if (numstars) {
87: if (realapollo) {
88: if (lookfor(realapollo->posy,realapollo->posx,
89: Enterprise)) {
90: apolloflag = 1;
91: }
92: }
93: else if (lookfor(root.next->posy,root.next->posx,
94: Enterprise)) {
95: apolloflag = 1;
96: realapollo = root.next;
97: mvaddch(realapollo->posy+1,realapollo->posx*2,
98: 'A');
99: realapollo->image = 'A';
100: realapollo->mass = 6000;
101: inumapollos = 1;
102: numenemies++;
103: inumenemies++;
104: possiblescore += 5000;
105: }
106: if (apolloflag) {
107: if (blast[realapollo->posy][realapollo->posx] <= 32000)
108: evely = evelx = 0;
109: realapollo->energy = 32000;
110: }
111: }
112: else
113: numapollos = 0;
114: }
115: ent->vely = evely;
116: ent->velx = evelx;
117: }
118: if (base) {
119: if (numapollos) {
120: if (numstars) {
121: if (realapollo) {
122: if (lookfor(realapollo->posy,realapollo->posx,
123: Base)) {
124: apolloflag |= 2;
125: }
126: }
127: else if (lookfor(root.next->posy,root.next->posx,
128: Base)) {
129: apolloflag |= 2;
130: realapollo = root.next;
131: mvaddch(realapollo->posy+1,realapollo->posx*2,
132: 'A');
133: realapollo->image = 'A';
134: realapollo->mass = 6000;
135: inumapollos = 1;
136: numenemies++;
137: inumenemies++;
138: possiblescore += 5000;
139: }
140: if (apolloflag & 2) {
141: if (blast[realapollo->posy][realapollo->posx] <= 32000)
142: bvely = bvelx = 0;
143: realapollo->energy = 32000;
144: }
145: }
146: else
147: numapollos = 0;
148: }
149: base->vely = bvely;
150: base->velx = bvelx;
151: }
152: if (aretorps) {
153: aretorps = 0;
154: for (i=0;i<2;i++) for (y=0;y<3;y++) for (x=0;x<3;x++) {
155: if (curobj = isatorp[i][y][x]) {
156: to = occupant[(curobj->posy+curobj->vely+YSIZE00)%YSIZE]
157: [(curobj->posx+curobj->velx+XSIZE00)%XSIZE];
158: if (to && !to->vely && !to->velx) {
159: unmake_object(curobj);
160: if (i)
161: btorp++;
162: else
163: etorp++;
164: }
165: isatorp[i][y][x]=0;
166: }
167: }
168: }
169: move_universe();
170: if (finish) {
171: finish--;
172: if (!finish && (!(numenemies || numos) || (!ent && !base))) {
173: done = TRUE;
174: timer -= 5;
175: }
176: }
177: else if (!banging && (!(numenemies || numos) || (!ent && !base)))
178: finish = 5;
179: } while (!done);
180: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.