Merge branch 'vendor/OPENSSH'
[dragonfly.git] / games / worm / worm.c
CommitLineData
984263bc
MD
1/*
2 * Copyright (c) 1980, 1993
3 * The Regents of the University of California. 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.
1de703da
MD
32 *
33 * @(#) Copyright (c) 1980, 1993 The Regents of the University of California. All rights reserved.
34 * @(#)worm.c 8.1 (Berkeley) 5/31/93
35 * $FreeBSD: src/games/worm/worm.c,v 1.9 1999/12/07 02:01:27 billf Exp $
00b54c2a 36 * $DragonFly: src/games/worm/worm.c,v 1.5 2006/09/07 21:28:27 pavalos Exp $
984263bc
MD
37 */
38
984263bc
MD
39/*
40 * Worm. Written by Michael Toy
41 * UCSC
42 */
43
44#include <ctype.h>
45#include <curses.h>
46#include <signal.h>
47#include <stdlib.h>
48#include <termios.h>
49#include <unistd.h>
50
51#define newlink() (struct body *) malloc(sizeof (struct body));
52#define HEAD '@'
53#define BODY 'o'
54#define LENGTH 7
55#define RUNLEN 8
56#define CNTRL(p) (p-'A'+1)
984263bc
MD
57
58WINDOW *tv;
59WINDOW *stw;
60struct body {
61 int x;
62 int y;
63 struct body *prev;
64 struct body *next;
65} *head, *tail, goody;
66int growing = 0;
67int running = 0;
68int slow = 0;
69int score = 0;
70int start_len = LENGTH;
71char lastch;
72char outbuf[BUFSIZ];
73
851dc90d
EN
74void crash (void);
75void display (struct body *, char);
76void leave (int);
77void life (void);
78void newpos (struct body *);
79void prize (void);
80void process (char);
81long rnd (int);
82void setup (void);
83void suspend (int);
84void wake (int);
984263bc
MD
85
86int
91a92993 87main(int argc, char **argv)
984263bc
MD
88{
89 char ch;
90
91 /* revoke */
92 setgid(getgid());
93
94 if (argc == 2)
95 start_len = atoi(argv[1]);
96 if ((start_len <= 0) || (start_len > 500))
97 start_len = LENGTH;
98 setbuf(stdout, outbuf);
99 srandomdev();
100 signal(SIGALRM, wake);
101 signal(SIGINT, leave);
102 signal(SIGQUIT, leave);
103 signal(SIGTSTP, suspend); /* process control signal */
104 initscr();
105 crmode();
106 noecho();
107 slow = (baudrate() <= B1200);
108 clear();
109 stw = newwin(1, COLS-1, 0, 0);
110 tv = newwin(LINES-1, COLS-1, 1, 0);
111 box(tv, '*', '*');
112 scrollok(tv, FALSE);
113 scrollok(stw, FALSE);
114 wmove(stw, 0, 0);
115 wprintw(stw, " Worm");
116 refresh();
117 wrefresh(stw);
118 wrefresh(tv);
119 life(); /* Create the worm */
120 prize(); /* Put up a goal */
121 while(1)
122 {
123 if (running)
124 {
125 running--;
126 process(lastch);
127 }
128 else
129 {
130 fflush(stdout);
131 if (read(0, &ch, 1) >= 0)
132 process(ch);
133 }
134 }
135}
136
137void
00b54c2a 138life(void)
984263bc
MD
139{
140 struct body *bp, *np;
141 int i;
142
143 np = NULL;
144 head = newlink();
145 head->x = start_len+2;
146 head->y = 12;
147 head->next = NULL;
148 display(head, HEAD);
149 for (i = 0, bp = head; i < start_len; i++, bp = np) {
150 np = newlink();
151 np->next = bp;
152 bp->prev = np;
153 np->x = bp->x - 1;
154 np->y = bp->y;
155 display(np, BODY);
156 }
157 tail = np;
158 tail->prev = NULL;
159}
160
161void
00b54c2a 162display(struct body *pos, char chr)
984263bc
MD
163{
164 wmove(tv, pos->y, pos->x);
165 waddch(tv, chr);
166}
167
91a92993
MD
168void
169leave(__unused int sig)
984263bc
MD
170{
171 endwin();
172 exit(0);
173}
174
175void
91a92993 176wake(__unused int sig)
984263bc
MD
177{
178 signal(SIGALRM, wake);
179 fflush(stdout);
180 process(lastch);
181}
182
91a92993
MD
183long
184rnd(int range)
984263bc
MD
185{
186 return random() % range;
187}
188
189void
00b54c2a 190newpos(struct body *bp)
984263bc
MD
191{
192 do {
193 bp->y = rnd(LINES-3)+ 2;
194 bp->x = rnd(COLS-3) + 1;
195 wmove(tv, bp->y, bp->x);
196 } while(winch(tv) != ' ');
197}
198
199void
00b54c2a 200prize(void)
984263bc
MD
201{
202 int value;
203
204 value = rnd(9) + 1;
205 newpos(&goody);
206 waddch(tv, value+'0');
207 wrefresh(tv);
208}
209
210void
00b54c2a 211process(char ch)
984263bc
MD
212{
213 int x,y;
214 struct body *nh;
215
216 alarm(0);
217 x = head->x;
218 y = head->y;
219 switch(ch)
220 {
221 case 'h': x--; break;
222 case 'j': y++; break;
223 case 'k': y--; break;
224 case 'l': x++; break;
225 case 'H': x--; running = RUNLEN; ch = tolower(ch); break;
226 case 'J': y++; running = RUNLEN/2; ch = tolower(ch); break;
227 case 'K': y--; running = RUNLEN/2; ch = tolower(ch); break;
228 case 'L': x++; running = RUNLEN; ch = tolower(ch); break;
229 case '\f': setup(); return;
230 case CNTRL('Z'): suspend(0); return;
231 case CNTRL('C'): crash(); return;
232 case CNTRL('D'): crash(); return;
233 default: if (! running) alarm(1);
234 return;
235 }
236 lastch = ch;
237 if (growing == 0)
238 {
239 display(tail, ' ');
240 tail->next->prev = NULL;
241 nh = tail->next;
242 free(tail);
243 tail = nh;
244 }
245 else growing--;
246 display(head, BODY);
247 wmove(tv, y, x);
248 if (isdigit(ch = winch(tv)))
249 {
250 growing += ch-'0';
251 prize();
252 score += growing;
253 running = 0;
254 wmove(stw, 0, 68);
255 wprintw(stw, "Score: %3d", score);
256 wrefresh(stw);
257 }
258 else if(ch != ' ') crash();
259 nh = newlink();
260 nh->next = NULL;
261 nh->prev = head;
262 head->next = nh;
263 nh->y = y;
264 nh->x = x;
265 display(nh, HEAD);
266 head = nh;
267 if (!(slow && running))
268 wrefresh(tv);
269 if (!running)
270 alarm(1);
271}
272
91a92993
MD
273void
274crash(void)
984263bc
MD
275{
276 sleep(2);
277 clear();
278 move(23, 0);
279 refresh();
280 printf("Well, you ran into something and the game is over.\n");
281 printf("Your final score was %d\n", score);
282 leave(0);
283}
284
91a92993
MD
285void
286suspend(__unused int sig)
984263bc
MD
287{
288 move(LINES-1, 0);
289 refresh();
290 endwin();
291 fflush(stdout);
292 kill(getpid(), SIGTSTP);
293 signal(SIGTSTP, suspend);
294 crmode();
295 noecho();
296 setup();
297}
298
91a92993
MD
299void
300setup(void)
984263bc
MD
301{
302 clear();
303 refresh();
304 touchwin(stw);
305 wrefresh(stw);
306 touchwin(tv);
307 wrefresh(tv);
308 alarm(1);
309}