![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to worms.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / worms|
Return to worms.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / worms |
1.1 root 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 are permitted
6: * provided that: (1) source distributions retain this entire copyright
7: * notice and comment, and (2) distributions including binaries display
8: * the following acknowledgement: ``This product includes software
9: * developed by the University of California, Berkeley and its contributors''
10: * in the documentation or other materials provided with the distribution
11: * and in all advertising materials mentioning features or use of this
12: * software. Neither the name of the University nor the names of its
13: * contributors may be used to endorse or promote products derived
14: * from this software without specific prior written permission.
15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
16: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
17: * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18: */
19:
20: #ifndef lint
21: char copyright[] =
22: "@(#) Copyright (c) 1980 Regents of the University of California.\n\
23: All rights reserved.\n";
24: #endif /* not lint */
25:
26: #ifndef lint
27: static char sccsid[] = "@(#)worms.c 5.8 (Berkeley) 6/1/90";
28: #endif /* not lint */
29:
30: /*
31: *
32: * @@@ @@@ @@@@@@@@@@ @@@@@@@@@@@ @@@@@@@@@@@@
33: * @@@ @@@ @@@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@@@@@@@@
34: * @@@ @@@ @@@@ @@@@ @@@@ @@@@ @@@ @@@@
35: * @@@ @@ @@@ @@@ @@@ @@@ @@@ @@@ @@@
36: * @@@ @@@@ @@@ @@@ @@@ @@@ @@@ @@@ @@@
37: * @@@@ @@@@ @@@@ @@@ @@@ @@@ @@@ @@@ @@@
38: * @@@@@@@@@@@@ @@@@ @@@@ @@@ @@@ @@@ @@@
39: * @@@@ @@@@ @@@@@@@@@@@@ @@@ @@@ @@@ @@@
40: * @@ @@ @@@@@@@@@@ @@@ @@@ @@@ @@@
41: *
42: * Eric P. Scott
43: * Caltech High Energy Physics
44: * October, 1980
45: *
46: */
47: #include <sys/types.h>
48: #include <stdio.h>
49: #ifdef USG
50: #include <termio.h>
51: #else
52: #include <sgtty.h>
53: #endif
54: #include <signal.h>
55:
56: static struct options {
57: int nopts;
58: int opts[3];
59: }
60: normal[8] = {
61: { 3, { 7, 0, 1 } },
62: { 3, { 0, 1, 2 } },
63: { 3, { 1, 2, 3 } },
64: { 3, { 2, 3, 4 } },
65: { 3, { 3, 4, 5 } },
66: { 3, { 4, 5, 6 } },
67: { 3, { 5, 6, 7 } },
68: { 3, { 6, 7, 0 } }
69: }, upper[8] = {
70: { 1, { 1, 0, 0 } },
71: { 2, { 1, 2, 0 } },
72: { 0, { 0, 0, 0 } },
73: { 0, { 0, 0, 0 } },
74: { 0, { 0, 0, 0 } },
75: { 2, { 4, 5, 0 } },
76: { 1, { 5, 0, 0 } },
77: { 2, { 1, 5, 0 } }
78: },
79: left[8] = {
80: { 0, { 0, 0, 0 } },
81: { 0, { 0, 0, 0 } },
82: { 0, { 0, 0, 0 } },
83: { 2, { 2, 3, 0 } },
84: { 1, { 3, 0, 0 } },
85: { 2, { 3, 7, 0 } },
86: { 1, { 7, 0, 0 } },
87: { 2, { 7, 0, 0 } }
88: },
89: right[8] = {
90: { 1, { 7, 0, 0 } },
91: { 2, { 3, 7, 0 } },
92: { 1, { 3, 0, 0 } },
93: { 2, { 3, 4, 0 } },
94: { 0, { 0, 0, 0 } },
95: { 0, { 0, 0, 0 } },
96: { 0, { 0, 0, 0 } },
97: { 2, { 6, 7, 0 } }
98: },
99: lower[8] = {
100: { 0, { 0, 0, 0 } },
101: { 2, { 0, 1, 0 } },
102: { 1, { 1, 0, 0 } },
103: { 2, { 1, 5, 0 } },
104: { 1, { 5, 0, 0 } },
105: { 2, { 5, 6, 0 } },
106: { 0, { 0, 0, 0 } },
107: { 0, { 0, 0, 0 } }
108: },
109: upleft[8] = {
110: { 0, { 0, 0, 0 } },
111: { 0, { 0, 0, 0 } },
112: { 0, { 0, 0, 0 } },
113: { 0, { 0, 0, 0 } },
114: { 0, { 0, 0, 0 } },
115: { 1, { 3, 0, 0 } },
116: { 2, { 1, 3, 0 } },
117: { 1, { 1, 0, 0 } }
118: },
119: upright[8] = {
120: { 2, { 3, 5, 0 } },
121: { 1, { 3, 0, 0 } },
122: { 0, { 0, 0, 0 } },
123: { 0, { 0, 0, 0 } },
124: { 0, { 0, 0, 0 } },
125: { 0, { 0, 0, 0 } },
126: { 0, { 0, 0, 0 } },
127: { 1, { 5, 0, 0 } }
128: },
129: lowleft[8] = {
130: { 3, { 7, 0, 1 } },
131: { 0, { 0, 0, 0 } },
132: { 0, { 0, 0, 0 } },
133: { 1, { 1, 0, 0 } },
134: { 2, { 1, 7, 0 } },
135: { 1, { 7, 0, 0 } },
136: { 0, { 0, 0, 0 } },
137: { 0, { 0, 0, 0 } }
138: },
139: lowright[8] = {
140: { 0, { 0, 0, 0 } },
141: { 1, { 7, 0, 0 } },
142: { 2, { 5, 7, 0 } },
143: { 1, { 5, 0, 0 } },
144: { 0, { 0, 0, 0 } },
145: { 0, { 0, 0, 0 } },
146: { 0, { 0, 0, 0 } },
147: { 0, { 0, 0, 0 } }
148: };
149:
150: #define cursor(c, r) tputs(tgoto(CM, c, r), 1, fputchar)
151:
152: char *tcp;
153: int fputchar();
154:
155: static char flavor[] = {
156: 'O', '*', '#', '$', '%', '0', '@', '~'
157: };
158: static short xinc[] = {
159: 1, 1, 1, 0, -1, -1, -1, 0
160: }, yinc[] = {
161: -1, 0, 1, 1, 1, 0, -1, -1
162: };
163: static struct worm {
164: int orientation, head;
165: short *xpos, *ypos;
166: } *worm;
167:
168: main(argc, argv)
169: int argc;
170: char **argv;
171: {
172: extern int optind;
173: extern short ospeed;
174: extern char *optarg, *UP;
175: register int x, y, h, n;
176: register struct worm *w;
177: register struct options *op;
178: register short *ip;
179: register char *term;
180: int CO, IN, LI, last, bottom, ch, length, number, trail, Wrap;
181: int onsig();
182: short **ref;
183: char *AL, *BC, *CM, *EI, *HO, *IC, *IM, *IP, *SR;
184: char *field, tcb[100], *mp, *malloc(), *getenv(), *tgetstr(), *tgoto();
185: long random();
186: #ifdef USG
187: struct termio sg;
188: #else
189: struct sgttyb sg;
190: #endif
191:
192: length = 16;
193: number = 3;
194: trail = ' ';
195: field = NULL;
196: while ((ch = getopt(argc, argv, "fl:n:t")) != EOF)
197: switch(ch) {
198: case 'f':
199: field = "WORM";
200: break;
201: case 'l':
202: if ((length = atoi(optarg)) < 2 || length > 1024) {
203: (void)fprintf(stderr,
204: "worms: invalid length (%d - %d).\n",
205: 2, 1024);
206: exit(1);
207: }
208: break;
209: case 'n':
210: if ((number = atoi(optarg)) < 1) {
211: (void)fprintf(stderr,
212: "worms: invalid number of worms.\n");
213: exit(1);
214: }
215: break;
216: case 't':
217: trail = '.';
218: break;
219: case '?':
220: default:
221: (void)fprintf(stderr,
222: "usage: worms [-ft] [-length #] [-number #]\n");
223: exit(1);
224: }
225:
226: if (!(term = getenv("TERM"))) {
227: (void)fprintf(stderr, "worms: no TERM environment variable.\n");
228: exit(1);
229: }
230: if (!(worm = (struct worm *)malloc((u_int)number *
231: sizeof(struct worm))) || !(mp = malloc((u_int)1024)))
232: nomem();
233: if (tgetent(mp, term) <= 0) {
234: (void)fprintf(stderr, "worms: %s: unknown terminal type.\n",
235: term);
236: exit(1);
237: }
238: tcp = tcb;
239: if (!(CM = tgetstr("cm", &tcp))) {
240: (void)fprintf(stderr,
241: "worms: terminal incapable of cursor motion.\n");
242: exit(1);
243: }
244: AL = tgetstr("al", &tcp);
245: BC = tgetflag("bs") ? "\b" : tgetstr("bc", &tcp);
246: if ((CO = tgetnum("co")) <= 0)
247: CO = 80;
248: last = CO - 1;
249: EI = tgetstr("ei", &tcp);
250: HO = tgetstr("ho", &tcp);
251: IC = tgetstr("ic", &tcp);
252: IM = tgetstr("im", &tcp);
253: IN = tgetflag("in");
254: IP = tgetstr("ip", &tcp);
255: if ((LI = tgetnum("li")) <= 0)
256: LI = 24;
257: bottom = LI - 1;
258: SR = tgetstr("sr", &tcp);
259: UP = tgetstr("up", &tcp);
260: #ifdef USG
261: ioctl(1, TCGETA, &sg);
262: ospeed = sg.c_cflag&CBAUD;
263: #else
264: gtty(1, &sg);
265: ospeed = sg.sg_ospeed;
266: #endif
267: Wrap = tgetflag("am");
268: if (!(ip = (short *)malloc((u_int)(LI * CO * sizeof(short)))))
269: nomem();
270: if (!(ref = (short **)malloc((u_int)(LI * sizeof(short *)))))
271: nomem();
272: for (n = 0; n < LI; ++n) {
273: ref[n] = ip;
274: ip += CO;
275: }
276: for (ip = ref[0], n = LI * CO; --n >= 0;)
277: *ip++ = 0;
278: if (Wrap)
279: ref[bottom][last] = 1;
280: for (n = number, w = &worm[0]; --n >= 0; w++) {
281: w->orientation = w->head = 0;
282: if (!(ip = (short *)malloc((u_int)(length * sizeof(short)))))
283: nomem();
284: w->xpos = ip;
285: for (x = length; --x >= 0;)
286: *ip++ = -1;
287: if (!(ip = (short *)malloc((u_int)(length * sizeof(short)))))
288: nomem();
289: w->ypos = ip;
290: for (y = length; --y >= 0;)
291: *ip++ = -1;
292: }
293:
294: (void)signal(SIGHUP, onsig);
295: (void)signal(SIGINT, onsig);
296: (void)signal(SIGQUIT, onsig);
297: (void)signal(SIGSTOP, onsig);
298: (void)signal(SIGTSTP, onsig);
299: (void)signal(SIGTERM, onsig);
300:
301: tputs(tgetstr("ti", &tcp), 1, fputchar);
302: tputs(tgetstr("cl", &tcp), 1, fputchar);
303: if (field) {
304: register char *p = field;
305:
306: for (y = bottom; --y >= 0;) {
307: for (x = CO; --x >= 0;) {
308: fputchar(*p++);
309: if (!*p)
310: p = field;
311: }
312: if (!Wrap)
313: fputchar('\n');
314: (void)fflush(stdout);
315: }
316: if (Wrap) {
317: if (IM && !IN) {
318: for (x = last; --x > 0;) {
319: fputchar(*p++);
320: if (!*p)
321: p = field;
322: }
323: y = *p++;
324: if (!*p)
325: p = field;
326: fputchar(*p);
327: if (BC)
328: tputs(BC, 1, fputchar);
329: else
330: cursor(last - 1, bottom);
331: tputs(IM, 1, fputchar);
332: if (IC)
333: tputs(IC, 1, fputchar);
334: fputchar(y);
335: if (IP)
336: tputs(IP, 1, fputchar);
337: tputs(EI, 1, fputchar);
338: }
339: else if (SR || AL) {
340: if (HO)
341: tputs(HO, 1, fputchar);
342: else
343: cursor(0, 0);
344: if (SR)
345: tputs(SR, 1, fputchar);
346: else
347: tputs(AL, LI, fputchar);
348: for (x = CO; --x >= 0;) {
349: fputchar(*p++);
350: if (!*p)
351: p = field;
352: }
353: }
354: else for (x = last; --x >= 0;) {
355: fputchar(*p++);
356: if (!*p)
357: p = field;
358: }
359: }
360: else for (x = CO; --x >= 0;) {
361: fputchar(*p++);
362: if (!*p)
363: p = field;
364: }
365: }
366: for (;;) {
367: (void)fflush(stdout);
368: for (n = 0, w = &worm[0]; n < number; n++, w++) {
369: if ((x = w->xpos[h = w->head]) < 0) {
370: cursor(x = w->xpos[h] = 0,
371: y = w->ypos[h] = bottom);
372: fputchar(flavor[n % sizeof(flavor)]);
373: ref[y][x]++;
374: }
375: else
376: y = w->ypos[h];
377: if (++h == length)
378: h = 0;
379: if (w->xpos[w->head = h] >= 0) {
380: register int x1, y1;
381:
382: x1 = w->xpos[h];
383: y1 = w->ypos[h];
384: if (--ref[y1][x1] == 0) {
385: cursor(x1, y1);
386: if (trail)
387: fputchar(trail);
388: }
389: }
390: op = &(!x ? (!y ? upleft : (y == bottom ? lowleft : left)) : (x == last ? (!y ? upright : (y == bottom ? lowright : right)) : (!y ? upper : (y == bottom ? lower : normal))))[w->orientation];
391: switch (op->nopts) {
392: case 0:
393: (void)fflush(stdout);
394: abort();
395: return;
396: case 1:
397: w->orientation = op->opts[0];
398: break;
399: default:
400: w->orientation =
401: op->opts[(int)random() % op->nopts];
402: }
403: cursor(x += xinc[w->orientation],
404: y += yinc[w->orientation]);
405: if (!Wrap || x != last || y != bottom)
406: fputchar(flavor[n % sizeof(flavor)]);
407: ref[w->ypos[h] = y][w->xpos[h] = x]++;
408: }
409: }
410: }
411:
412: onsig()
413: {
414: tputs(tgetstr("cl", &tcp), 1, fputchar);
415: tputs(tgetstr("te", &tcp), 1, fputchar);
416: exit(0);
417: }
418:
419: fputchar(c)
420: char c;
421: {
422: putchar(c);
423: }
424:
425: nomem()
426: {
427: (void)fprintf(stderr, "worms: not enough memory.\n");
428: exit(1);
429: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.