pl_7.c revision 1.20
1 /* $NetBSD: pl_7.c,v 1.20 2001/01/04 04:41:42 jwise Exp $ */ 2 3 /* 4 * Copyright (c) 1983, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. All advertising materials mentioning features or use of this software 16 * must display the following acknowledgement: 17 * This product includes software developed by the University of 18 * California, Berkeley and its contributors. 19 * 4. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 */ 35 36 #include <sys/cdefs.h> 37 #ifndef lint 38 #if 0 39 static char sccsid[] = "@(#)pl_7.c 8.1 (Berkeley) 5/31/93"; 40 #else 41 __RCSID("$NetBSD: pl_7.c,v 1.20 2001/01/04 04:41:42 jwise Exp $"); 42 #endif 43 #endif /* not lint */ 44 45 #include <curses.h> 46 #include <signal.h> 47 #include <stdarg.h> 48 #include <stdio.h> 49 #include <unistd.h> 50 #include "extern.h" 51 #include "player.h" 52 #include "display.h" 53 54 void initscreen(void); 55 void cleanupscreen(void); 56 void newturn(int); 57 void Signal(const char *, struct ship *, ...); 58 void Msg(const char *, ...); 59 static void Scroll(void); 60 void prompt(const char *, struct ship *); 61 static void endprompt(int); 62 int sgetch(const char *, struct ship *, int); 63 void sgetstr(const char *, char *, int); 64 void draw_screen(void); 65 void draw_view(void); 66 void draw_turn(void); 67 void draw_stat(void); 68 void draw_slot(void); 69 void draw_board(void); 70 void centerview(void); 71 void upview(void); 72 void downview(void); 73 void leftview(void); 74 void rightview(void); 75 static void adjustview(void); 76 77 /* 78 * Display interface 79 */ 80 81 static char sc_hasprompt; 82 static const char *sc_prompt; 83 static const char *sc_buf; 84 static int sc_line; 85 86 WINDOW *view_w; 87 WINDOW *slot_w; 88 WINDOW *scroll_w; 89 WINDOW *stat_w; 90 WINDOW *turn_w; 91 92 char done_curses; 93 char loaded, fired, changed, repaired; 94 char dont_adjust; 95 int viewrow, viewcol; 96 char movebuf[sizeof SHIP(0)->file->movebuf]; 97 int player; 98 struct ship *ms; /* memorial structure, &cc->ship[player] */ 99 struct File *mf; /* ms->file */ 100 struct shipspecs *mc; /* ms->specs */ 101 102 void 103 initscreen(void) 104 { 105 if (!SCREENTEST()) { 106 printf("Can't sail on this terminal.\n"); 107 exit(1); 108 } 109 /* initscr() already done in SCREENTEST() */ 110 view_w = newwin(VIEW_Y, VIEW_X, VIEW_T, VIEW_L); 111 slot_w = newwin(SLOT_Y, SLOT_X, SLOT_T, SLOT_L); 112 scroll_w = newwin(SCROLL_Y, SCROLL_X, SCROLL_T, SCROLL_L); 113 stat_w = newwin(STAT_Y, STAT_X, STAT_T, STAT_L); 114 turn_w = newwin(TURN_Y, TURN_X, TURN_T, TURN_L); 115 done_curses++; 116 leaveok(view_w, 1); 117 leaveok(slot_w, 1); 118 leaveok(stat_w, 1); 119 leaveok(turn_w, 1); 120 noecho(); 121 crmode(); 122 } 123 124 void 125 cleanupscreen(void) 126 { 127 /* alarm already turned off */ 128 if (done_curses) { 129 wmove(scroll_w, SCROLL_Y - 1, 0); 130 wclrtoeol(scroll_w); 131 draw_screen(); 132 endwin(); 133 } 134 } 135 136 /*ARGSUSED*/ 137 void 138 newturn(int n __attribute__((__unused__))) 139 { 140 repaired = loaded = fired = changed = 0; 141 movebuf[0] = '\0'; 142 143 alarm(0); 144 if (mf->readyL & R_LOADING) { 145 if (mf->readyL & R_DOUBLE) 146 mf->readyL = R_LOADING; 147 else 148 mf->readyL = R_LOADED; 149 } 150 if (mf->readyR & R_LOADING) { 151 if (mf->readyR & R_DOUBLE) 152 mf->readyR = R_LOADING; 153 else 154 mf->readyR = R_LOADED; 155 } 156 if (!hasdriver) 157 Write(W_DDEAD, SHIP(0), 0, 0, 0, 0); 158 159 if (sc_hasprompt) { 160 wmove(scroll_w, sc_line, 0); 161 wclrtoeol(scroll_w); 162 } 163 if (Sync() < 0) 164 leave(LEAVE_SYNC); 165 if (!hasdriver) 166 leave(LEAVE_DRIVER); 167 if (sc_hasprompt) 168 wprintw(scroll_w, "%s%s", sc_prompt, sc_buf); 169 170 if (turn % 50 == 0) 171 Write(W_ALIVE, SHIP(0), 0, 0, 0, 0); 172 if (mf->FS && (!mc->rig1 || windspeed == 6)) 173 Write(W_FS, ms, 0, 0, 0, 0); 174 if (mf->FS == 1) 175 Write(W_FS, ms, 2, 0, 0, 0); 176 177 if (mf->struck) 178 leave(LEAVE_QUIT); 179 if (mf->captured != 0) 180 leave(LEAVE_CAPTURED); 181 if (windspeed == 7) 182 leave(LEAVE_HURRICAN); 183 184 adjustview(); 185 draw_screen(); 186 187 signal(SIGALRM, newturn); 188 alarm(7); 189 } 190 191 /*VARARGS2*/ 192 void 193 Signal(const char *fmt, struct ship *ship, ...) 194 { 195 va_list ap; 196 char format[BUFSIZ]; 197 198 va_start(ap, ship); 199 if (!done_curses) 200 return; 201 if (*fmt == '\7') 202 putchar(*fmt++); 203 fmtship(format, sizeof(format), fmt, ship); 204 vwprintw(scroll_w, format, ap); 205 va_end(ap); 206 Scroll(); 207 } 208 209 /*VARARGS2*/ 210 void 211 Msg(const char *fmt, ...) 212 { 213 va_list ap; 214 215 va_start(ap, fmt); 216 if (!done_curses) 217 return; 218 if (*fmt == '\7') 219 putchar(*fmt++); 220 vwprintw(scroll_w, fmt, ap); 221 va_end(ap); 222 Scroll(); 223 } 224 225 static void 226 Scroll(void) 227 { 228 if (++sc_line >= SCROLL_Y) 229 sc_line = 0; 230 wmove(scroll_w, sc_line, 0); 231 wclrtoeol(scroll_w); 232 } 233 234 void 235 prompt(const char *p, struct ship *ship) 236 { 237 static char buf[BUFSIZ]; 238 239 fmtship(buf, sizeof(buf), p, ship); 240 sc_prompt = buf; 241 sc_buf = ""; 242 sc_hasprompt = 1; 243 waddstr(scroll_w, buf); 244 } 245 246 static void 247 endprompt(int flag) 248 { 249 sc_hasprompt = 0; 250 if (flag) 251 Scroll(); 252 } 253 254 int 255 sgetch(const char *p, struct ship *ship, int flag) 256 { 257 int c; 258 prompt(p, ship); 259 blockalarm(); 260 wrefresh(scroll_w); 261 unblockalarm(); 262 while ((c = wgetch(scroll_w)) == EOF) 263 ; 264 if (flag && c >= ' ' && c < 0x7f) 265 waddch(scroll_w, c); 266 endprompt(flag); 267 return c; 268 } 269 270 void 271 sgetstr(const char *pr, char *buf, int n) 272 { 273 int c; 274 char *p = buf; 275 276 prompt(pr, (struct ship *)0); 277 sc_buf = buf; 278 for (;;) { 279 *p = 0; 280 blockalarm(); 281 wrefresh(scroll_w); 282 unblockalarm(); 283 while ((c = wgetch(scroll_w)) == EOF) 284 ; 285 switch (c) { 286 case '\n': 287 case '\r': 288 endprompt(1); 289 return; 290 case '\b': 291 if (p > buf) { 292 waddstr(scroll_w, "\b \b"); 293 p--; 294 } 295 break; 296 default: 297 if (c >= ' ' && c < 0x7f && p < buf + n - 1) { 298 *p++ = c; 299 waddch(scroll_w, c); 300 } else 301 putchar('\a'); 302 } 303 } 304 } 305 306 void 307 draw_screen(void) 308 { 309 draw_view(); 310 draw_turn(); 311 draw_stat(); 312 draw_slot(); 313 wrefresh(scroll_w); /* move the cursor */ 314 } 315 316 void 317 draw_view(void) 318 { 319 struct ship *sp; 320 321 werase(view_w); 322 foreachship(sp) { 323 if (sp->file->dir 324 && sp->file->row > viewrow 325 && sp->file->row < viewrow + VIEW_Y 326 && sp->file->col > viewcol 327 && sp->file->col < viewcol + VIEW_X) { 328 wmove(view_w, sp->file->row - viewrow, 329 sp->file->col - viewcol); 330 waddch(view_w, colours(sp)); 331 wmove(view_w, 332 sternrow(sp) - viewrow, 333 sterncol(sp) - viewcol); 334 waddch(view_w, sterncolour(sp)); 335 } 336 } 337 wrefresh(view_w); 338 } 339 340 void 341 draw_turn(void) 342 { 343 wmove(turn_w, 0, 0); 344 wprintw(turn_w, "%cTurn %d", dont_adjust?'*':'-', turn); 345 wrefresh(turn_w); 346 } 347 348 void 349 draw_stat(void) 350 { 351 wmove(stat_w, STAT_1, 0); 352 wprintw(stat_w, "Points %3d\n", mf->points); 353 wprintw(stat_w, "Fouls %2d\n", fouled(ms)); 354 wprintw(stat_w, "Grapples %2d\n", grappled(ms)); 355 356 wmove(stat_w, STAT_2, 0); 357 wprintw(stat_w, " 0 %c(%c)\n", 358 maxmove(ms, winddir + 3, -1) + '0', 359 maxmove(ms, winddir + 3, 1) + '0'); 360 waddstr(stat_w, " \\|/\n"); 361 wprintw(stat_w, " -^-%c(%c)\n", 362 maxmove(ms, winddir + 2, -1) + '0', 363 maxmove(ms, winddir + 2, 1) + '0'); 364 waddstr(stat_w, " /|\\\n"); 365 wprintw(stat_w, " | %c(%c)\n", 366 maxmove(ms, winddir + 1, -1) + '0', 367 maxmove(ms, winddir + 1, 1) + '0'); 368 wprintw(stat_w, " %c(%c)\n", 369 maxmove(ms, winddir, -1) + '0', 370 maxmove(ms, winddir, 1) + '0'); 371 372 wmove(stat_w, STAT_3, 0); 373 wprintw(stat_w, "Load %c%c %c%c\n", 374 loadname[mf->loadL], readyname(mf->readyL), 375 loadname[mf->loadR], readyname(mf->readyR)); 376 wprintw(stat_w, "Hull %2d\n", mc->hull); 377 wprintw(stat_w, "Crew %2d %2d %2d\n", 378 mc->crew1, mc->crew2, mc->crew3); 379 wprintw(stat_w, "Guns %2d %2d\n", mc->gunL, mc->gunR); 380 wprintw(stat_w, "Carr %2d %2d\n", mc->carL, mc->carR); 381 wprintw(stat_w, "Rigg %d %d %d ", mc->rig1, mc->rig2, mc->rig3); 382 if (mc->rig4 < 0) 383 waddch(stat_w, '-'); 384 else 385 wprintw(stat_w, "%d", mc->rig4); 386 wrefresh(stat_w); 387 } 388 389 void 390 draw_slot(void) 391 { 392 if (!boarding(ms, 0)) { 393 mvwaddstr(slot_w, 0, 0, " "); 394 mvwaddstr(slot_w, 1, 0, " "); 395 } else 396 mvwaddstr(slot_w, 1, 0, "OBP"); 397 if (!boarding(ms, 1)) { 398 mvwaddstr(slot_w, 2, 0, " "); 399 mvwaddstr(slot_w, 3, 0, " "); 400 } else 401 mvwaddstr(slot_w, 3, 0, "DBP"); 402 403 wmove(slot_w, SLOT_Y-4, 0); 404 if (mf->RH) 405 wprintw(slot_w, "%dRH", mf->RH); 406 else 407 waddstr(slot_w, " "); 408 wmove(slot_w, SLOT_Y-3, 0); 409 if (mf->RG) 410 wprintw(slot_w, "%dRG", mf->RG); 411 else 412 waddstr(slot_w, " "); 413 wmove(slot_w, SLOT_Y-2, 0); 414 if (mf->RR) 415 wprintw(slot_w, "%dRR", mf->RR); 416 else 417 waddstr(slot_w, " "); 418 419 #define Y (SLOT_Y/2) 420 wmove(slot_w, 7, 1); 421 wprintw(slot_w,"%d", windspeed); 422 mvwaddch(slot_w, Y, 0, ' '); 423 mvwaddch(slot_w, Y, 2, ' '); 424 mvwaddch(slot_w, Y-1, 0, ' '); 425 mvwaddch(slot_w, Y-1, 1, ' '); 426 mvwaddch(slot_w, Y-1, 2, ' '); 427 mvwaddch(slot_w, Y+1, 0, ' '); 428 mvwaddch(slot_w, Y+1, 1, ' '); 429 mvwaddch(slot_w, Y+1, 2, ' '); 430 wmove(slot_w, Y - dr[winddir], 1 - dc[winddir]); 431 switch (winddir) { 432 case 1: 433 case 5: 434 waddch(slot_w, '|'); 435 break; 436 case 2: 437 case 6: 438 waddch(slot_w, '/'); 439 break; 440 case 3: 441 case 7: 442 waddch(slot_w, '-'); 443 break; 444 case 4: 445 case 8: 446 waddch(slot_w, '\\'); 447 break; 448 } 449 mvwaddch(slot_w, Y + dr[winddir], 1 + dc[winddir], '+'); 450 wrefresh(slot_w); 451 } 452 453 void 454 draw_board(void) 455 { 456 int n; 457 458 clear(); 459 werase(view_w); 460 werase(slot_w); 461 werase(scroll_w); 462 werase(stat_w); 463 werase(turn_w); 464 465 sc_line = 0; 466 467 move(BOX_T, BOX_L); 468 for (n = 0; n < BOX_X; n++) 469 addch('-'); 470 move(BOX_B, BOX_L); 471 for (n = 0; n < BOX_X; n++) 472 addch('-'); 473 for (n = BOX_T+1; n < BOX_B; n++) { 474 mvaddch(n, BOX_L, '|'); 475 mvaddch(n, BOX_R, '|'); 476 } 477 mvaddch(BOX_T, BOX_L, '+'); 478 mvaddch(BOX_T, BOX_R, '+'); 479 mvaddch(BOX_B, BOX_L, '+'); 480 mvaddch(BOX_B, BOX_R, '+'); 481 refresh(); 482 483 #define WSaIM "Wooden Ships & Iron Men" 484 wmove(view_w, 2, (VIEW_X - sizeof WSaIM - 1) / 2); 485 waddstr(view_w, WSaIM); 486 wmove(view_w, 4, (VIEW_X - strlen(cc->name)) / 2); 487 waddstr(view_w, cc->name); 488 wrefresh(view_w); 489 490 move(LINE_T, LINE_L); 491 printw("Class %d %s (%d guns) '%s' (%c%c)", 492 mc->class, 493 classname[mc->class], 494 mc->guns, 495 ms->shipname, 496 colours(ms), 497 sterncolour(ms)); 498 refresh(); 499 } 500 501 void 502 centerview(void) 503 { 504 viewrow = mf->row - VIEW_Y / 2; 505 viewcol = mf->col - VIEW_X / 2; 506 } 507 508 void 509 upview(void) 510 { 511 viewrow -= VIEW_Y / 3; 512 } 513 514 void 515 downview(void) 516 { 517 viewrow += VIEW_Y / 3; 518 } 519 520 void 521 leftview(void) 522 { 523 viewcol -= VIEW_X / 5; 524 } 525 526 void 527 rightview(void) 528 { 529 viewcol += VIEW_X / 5; 530 } 531 532 static void 533 adjustview(void) 534 { 535 if (dont_adjust) 536 return; 537 if (mf->row < viewrow + VIEW_Y/4) 538 viewrow = mf->row - (VIEW_Y - VIEW_Y/4); 539 else if (mf->row > viewrow + (VIEW_Y - VIEW_Y/4)) 540 viewrow = mf->row - VIEW_Y/4; 541 if (mf->col < viewcol + VIEW_X/8) 542 viewcol = mf->col - (VIEW_X - VIEW_X/8); 543 else if (mf->col > viewcol + (VIEW_X - VIEW_X/8)) 544 viewcol = mf->col - VIEW_X/8; 545 } 546
Indexes created Fri Oct 03 02:09:57 GMT 2025