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