pl_7.c revision 1.21
1 /* $NetBSD: pl_7.c,v 1.21 2001/01/04 05:34:56 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.21 2001/01/04 05:34:56 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 __attribute__((__format__(__printf__,1,3))); 59 void Msg(const char *, ...) 60 __attribute__((__format__(__printf__,1,2))); 61 static void Scroll(void); 62 void prompt(const char *, struct ship *); 63 static void endprompt(int); 64 int sgetch(const char *, struct ship *, int); 65 void sgetstr(const char *, char *, int); 66 void draw_screen(void); 67 void draw_view(void); 68 void draw_turn(void); 69 void draw_stat(void); 70 void draw_slot(void); 71 void draw_board(void); 72 void centerview(void); 73 void upview(void); 74 void downview(void); 75 void leftview(void); 76 void rightview(void); 77 static void adjustview(void); 78 79 /* 80 * Display interface 81 */ 82 83 static char sc_hasprompt; 84 static const char *sc_prompt; 85 static const char *sc_buf; 86 static int sc_line; 87 88 WINDOW *view_w; 89 WINDOW *slot_w; 90 WINDOW *scroll_w; 91 WINDOW *stat_w; 92 WINDOW *turn_w; 93 94 int done_curses; 95 int loaded, fired, changed, repaired; 96 int dont_adjust; 97 int viewrow, viewcol; 98 char movebuf[sizeof SHIP(0)->file->movebuf]; 99 int player; 100 struct ship *ms; /* memorial structure, &cc->ship[player] */ 101 struct File *mf; /* ms->file */ 102 struct shipspecs *mc; /* ms->specs */ 103 104 void 105 initscreen(void) 106 { 107 if (!SCREENTEST()) { 108 printf("Can't sail on this terminal.\n"); 109 exit(1); 110 } 111 /* initscr() already done in SCREENTEST() */ 112 view_w = newwin(VIEW_Y, VIEW_X, VIEW_T, VIEW_L); 113 slot_w = newwin(SLOT_Y, SLOT_X, SLOT_T, SLOT_L); 114 scroll_w = newwin(SCROLL_Y, SCROLL_X, SCROLL_T, SCROLL_L); 115 stat_w = newwin(STAT_Y, STAT_X, STAT_T, STAT_L); 116 turn_w = newwin(TURN_Y, TURN_X, TURN_T, TURN_L); 117 done_curses++; 118 leaveok(view_w, 1); 119 leaveok(slot_w, 1); 120 leaveok(stat_w, 1); 121 leaveok(turn_w, 1); 122 noecho(); 123 crmode(); 124 } 125 126 void 127 cleanupscreen(void) 128 { 129 /* alarm already turned off */ 130 if (done_curses) { 131 wmove(scroll_w, SCROLL_Y - 1, 0); 132 wclrtoeol(scroll_w); 133 draw_screen(); 134 endwin(); 135 } 136 } 137 138 /*ARGSUSED*/ 139 void 140 newturn(int n __attribute__((__unused__))) 141 { 142 repaired = loaded = fired = changed = 0; 143 movebuf[0] = '\0'; 144 145 alarm(0); 146 if (mf->readyL & R_LOADING) { 147 if (mf->readyL & R_DOUBLE) 148 mf->readyL = R_LOADING; 149 else 150 mf->readyL = R_LOADED; 151 } 152 if (mf->readyR & R_LOADING) { 153 if (mf->readyR & R_DOUBLE) 154 mf->readyR = R_LOADING; 155 else 156 mf->readyR = R_LOADED; 157 } 158 if (!hasdriver) 159 Write(W_DDEAD, SHIP(0), 0, 0, 0, 0); 160 161 if (sc_hasprompt) { 162 wmove(scroll_w, sc_line, 0); 163 wclrtoeol(scroll_w); 164 } 165 if (Sync() < 0) 166 leave(LEAVE_SYNC); 167 if (!hasdriver) 168 leave(LEAVE_DRIVER); 169 if (sc_hasprompt) 170 wprintw(scroll_w, "%s%s", sc_prompt, sc_buf); 171 172 if (turn % 50 == 0) 173 Write(W_ALIVE, SHIP(0), 0, 0, 0, 0); 174 if (mf->FS && (!mc->rig1 || windspeed == 6)) 175 Write(W_FS, ms, 0, 0, 0, 0); 176 if (mf->FS == 1) 177 Write(W_FS, ms, 2, 0, 0, 0); 178 179 if (mf->struck) 180 leave(LEAVE_QUIT); 181 if (mf->captured != 0) 182 leave(LEAVE_CAPTURED); 183 if (windspeed == 7) 184 leave(LEAVE_HURRICAN); 185 186 adjustview(); 187 draw_screen(); 188 189 signal(SIGALRM, newturn); 190 alarm(7); 191 } 192 193 /*VARARGS2*/ 194 void 195 Signal(const char *fmt, struct ship *ship, ...) 196 { 197 va_list ap; 198 char format[BUFSIZ]; 199 200 va_start(ap, ship); 201 if (!done_curses) 202 return; 203 if (*fmt == '\7') 204 putchar(*fmt++); 205 fmtship(format, sizeof(format), fmt, ship); 206 vwprintw(scroll_w, format, ap); 207 va_end(ap); 208 Scroll(); 209 } 210 211 /*VARARGS2*/ 212 void 213 Msg(const char *fmt, ...) 214 { 215 va_list ap; 216 217 va_start(ap, fmt); 218 if (!done_curses) 219 return; 220 if (*fmt == '\7') 221 putchar(*fmt++); 222 vwprintw(scroll_w, fmt, ap); 223 va_end(ap); 224 Scroll(); 225 } 226 227 static void 228 Scroll(void) 229 { 230 if (++sc_line >= SCROLL_Y) 231 sc_line = 0; 232 wmove(scroll_w, sc_line, 0); 233 wclrtoeol(scroll_w); 234 } 235 236 void 237 prompt(const char *p, struct ship *ship) 238 { 239 static char buf[BUFSIZ]; 240 241 fmtship(buf, sizeof(buf), p, ship); 242 sc_prompt = buf; 243 sc_buf = ""; 244 sc_hasprompt = 1; 245 waddstr(scroll_w, buf); 246 } 247 248 static void 249 endprompt(int flag) 250 { 251 sc_hasprompt = 0; 252 if (flag) 253 Scroll(); 254 } 255 256 int 257 sgetch(const char *p, struct ship *ship, int flag) 258 { 259 int c; 260 prompt(p, ship); 261 blockalarm(); 262 wrefresh(scroll_w); 263 unblockalarm(); 264 while ((c = wgetch(scroll_w)) == EOF) 265 ; 266 if (flag && c >= ' ' && c < 0x7f) 267 waddch(scroll_w, c); 268 endprompt(flag); 269 return c; 270 } 271 272 void 273 sgetstr(const char *pr, char *buf, int n) 274 { 275 int c; 276 char *p = buf; 277 278 prompt(pr, (struct ship *)0); 279 sc_buf = buf; 280 for (;;) { 281 *p = 0; 282 blockalarm(); 283 wrefresh(scroll_w); 284 unblockalarm(); 285 while ((c = wgetch(scroll_w)) == EOF) 286 ; 287 switch (c) { 288 case '\n': 289 case '\r': 290 endprompt(1); 291 return; 292 case '\b': 293 if (p > buf) { 294 waddstr(scroll_w, "\b \b"); 295 p--; 296 } 297 break; 298 default: 299 if (c >= ' ' && c < 0x7f && p < buf + n - 1) { 300 *p++ = c; 301 waddch(scroll_w, c); 302 } else 303 putchar('\a'); 304 } 305 } 306 } 307 308 void 309 draw_screen(void) 310 { 311 draw_view(); 312 draw_turn(); 313 draw_stat(); 314 draw_slot(); 315 wrefresh(scroll_w); /* move the cursor */ 316 } 317 318 void 319 draw_view(void) 320 { 321 struct ship *sp; 322 323 werase(view_w); 324 foreachship(sp) { 325 if (sp->file->dir 326 && sp->file->row > viewrow 327 && sp->file->row < viewrow + VIEW_Y 328 && sp->file->col > viewcol 329 && sp->file->col < viewcol + VIEW_X) { 330 wmove(view_w, sp->file->row - viewrow, 331 sp->file->col - viewcol); 332 waddch(view_w, colours(sp)); 333 wmove(view_w, 334 sternrow(sp) - viewrow, 335 sterncol(sp) - viewcol); 336 waddch(view_w, sterncolour(sp)); 337 } 338 } 339 wrefresh(view_w); 340 } 341 342 void 343 draw_turn(void) 344 { 345 wmove(turn_w, 0, 0); 346 wprintw(turn_w, "%cTurn %d", dont_adjust?'*':'-', turn); 347 wrefresh(turn_w); 348 } 349 350 void 351 draw_stat(void) 352 { 353 wmove(stat_w, STAT_1, 0); 354 wprintw(stat_w, "Points %3d\n", mf->points); 355 wprintw(stat_w, "Fouls %2d\n", fouled(ms)); 356 wprintw(stat_w, "Grapples %2d\n", grappled(ms)); 357 358 wmove(stat_w, STAT_2, 0); 359 wprintw(stat_w, " 0 %c(%c)\n", 360 maxmove(ms, winddir + 3, -1) + '0', 361 maxmove(ms, winddir + 3, 1) + '0'); 362 waddstr(stat_w, " \\|/\n"); 363 wprintw(stat_w, " -^-%c(%c)\n", 364 maxmove(ms, winddir + 2, -1) + '0', 365 maxmove(ms, winddir + 2, 1) + '0'); 366 waddstr(stat_w, " /|\\\n"); 367 wprintw(stat_w, " | %c(%c)\n", 368 maxmove(ms, winddir + 1, -1) + '0', 369 maxmove(ms, winddir + 1, 1) + '0'); 370 wprintw(stat_w, " %c(%c)\n", 371 maxmove(ms, winddir, -1) + '0', 372 maxmove(ms, winddir, 1) + '0'); 373 374 wmove(stat_w, STAT_3, 0); 375 wprintw(stat_w, "Load %c%c %c%c\n", 376 loadname[mf->loadL], readyname(mf->readyL), 377 loadname[mf->loadR], readyname(mf->readyR)); 378 wprintw(stat_w, "Hull %2d\n", mc->hull); 379 wprintw(stat_w, "Crew %2d %2d %2d\n", 380 mc->crew1, mc->crew2, mc->crew3); 381 wprintw(stat_w, "Guns %2d %2d\n", mc->gunL, mc->gunR); 382 wprintw(stat_w, "Carr %2d %2d\n", mc->carL, mc->carR); 383 wprintw(stat_w, "Rigg %d %d %d ", mc->rig1, mc->rig2, mc->rig3); 384 if (mc->rig4 < 0) 385 waddch(stat_w, '-'); 386 else 387 wprintw(stat_w, "%d", mc->rig4); 388 wrefresh(stat_w); 389 } 390 391 void 392 draw_slot(void) 393 { 394 if (!boarding(ms, 0)) { 395 mvwaddstr(slot_w, 0, 0, " "); 396 mvwaddstr(slot_w, 1, 0, " "); 397 } else 398 mvwaddstr(slot_w, 1, 0, "OBP"); 399 if (!boarding(ms, 1)) { 400 mvwaddstr(slot_w, 2, 0, " "); 401 mvwaddstr(slot_w, 3, 0, " "); 402 } else 403 mvwaddstr(slot_w, 3, 0, "DBP"); 404 405 wmove(slot_w, SLOT_Y-4, 0); 406 if (mf->RH) 407 wprintw(slot_w, "%dRH", mf->RH); 408 else 409 waddstr(slot_w, " "); 410 wmove(slot_w, SLOT_Y-3, 0); 411 if (mf->RG) 412 wprintw(slot_w, "%dRG", mf->RG); 413 else 414 waddstr(slot_w, " "); 415 wmove(slot_w, SLOT_Y-2, 0); 416 if (mf->RR) 417 wprintw(slot_w, "%dRR", mf->RR); 418 else 419 waddstr(slot_w, " "); 420 421 #define Y (SLOT_Y/2) 422 wmove(slot_w, 7, 1); 423 wprintw(slot_w,"%d", windspeed); 424 mvwaddch(slot_w, Y, 0, ' '); 425 mvwaddch(slot_w, Y, 2, ' '); 426 mvwaddch(slot_w, Y-1, 0, ' '); 427 mvwaddch(slot_w, Y-1, 1, ' '); 428 mvwaddch(slot_w, Y-1, 2, ' '); 429 mvwaddch(slot_w, Y+1, 0, ' '); 430 mvwaddch(slot_w, Y+1, 1, ' '); 431 mvwaddch(slot_w, Y+1, 2, ' '); 432 wmove(slot_w, Y - dr[winddir], 1 - dc[winddir]); 433 switch (winddir) { 434 case 1: 435 case 5: 436 waddch(slot_w, '|'); 437 break; 438 case 2: 439 case 6: 440 waddch(slot_w, '/'); 441 break; 442 case 3: 443 case 7: 444 waddch(slot_w, '-'); 445 break; 446 case 4: 447 case 8: 448 waddch(slot_w, '\\'); 449 break; 450 } 451 mvwaddch(slot_w, Y + dr[winddir], 1 + dc[winddir], '+'); 452 wrefresh(slot_w); 453 } 454 455 void 456 draw_board(void) 457 { 458 int n; 459 460 clear(); 461 werase(view_w); 462 werase(slot_w); 463 werase(scroll_w); 464 werase(stat_w); 465 werase(turn_w); 466 467 sc_line = 0; 468 469 move(BOX_T, BOX_L); 470 for (n = 0; n < BOX_X; n++) 471 addch('-'); 472 move(BOX_B, BOX_L); 473 for (n = 0; n < BOX_X; n++) 474 addch('-'); 475 for (n = BOX_T+1; n < BOX_B; n++) { 476 mvaddch(n, BOX_L, '|'); 477 mvaddch(n, BOX_R, '|'); 478 } 479 mvaddch(BOX_T, BOX_L, '+'); 480 mvaddch(BOX_T, BOX_R, '+'); 481 mvaddch(BOX_B, BOX_L, '+'); 482 mvaddch(BOX_B, BOX_R, '+'); 483 refresh(); 484 485 #define WSaIM "Wooden Ships & Iron Men" 486 wmove(view_w, 2, (VIEW_X - sizeof WSaIM - 1) / 2); 487 waddstr(view_w, WSaIM); 488 wmove(view_w, 4, (VIEW_X - strlen(cc->name)) / 2); 489 waddstr(view_w, cc->name); 490 wrefresh(view_w); 491 492 move(LINE_T, LINE_L); 493 printw("Class %d %s (%d guns) '%s' (%c%c)", 494 mc->class, 495 classname[mc->class], 496 mc->guns, 497 ms->shipname, 498 colours(ms), 499 sterncolour(ms)); 500 refresh(); 501 } 502 503 void 504 centerview(void) 505 { 506 viewrow = mf->row - VIEW_Y / 2; 507 viewcol = mf->col - VIEW_X / 2; 508 } 509 510 void 511 upview(void) 512 { 513 viewrow -= VIEW_Y / 3; 514 } 515 516 void 517 downview(void) 518 { 519 viewrow += VIEW_Y / 3; 520 } 521 522 void 523 leftview(void) 524 { 525 viewcol -= VIEW_X / 5; 526 } 527 528 void 529 rightview(void) 530 { 531 viewcol += VIEW_X / 5; 532 } 533 534 static void 535 adjustview(void) 536 { 537 if (dont_adjust) 538 return; 539 if (mf->row < viewrow + VIEW_Y/4) 540 viewrow = mf->row - (VIEW_Y - VIEW_Y/4); 541 else if (mf->row > viewrow + (VIEW_Y - VIEW_Y/4)) 542 viewrow = mf->row - VIEW_Y/4; 543 if (mf->col < viewcol + VIEW_X/8) 544 viewcol = mf->col - (VIEW_X - VIEW_X/8); 545 else if (mf->col > viewcol + (VIEW_X - VIEW_X/8)) 546 viewcol = mf->col - VIEW_X/8; 547 } 548
Indexes created Thu Oct 02 14:10:14 GMT 2025