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