[unix-history] / usr / src / games / sail / pl_7.c

#ifndef lint
static	char *sccsid = "@(#)pl_7.c	1.1 83/10/28";
#endif

#include "player.h"

/*
 * Display interface
 */

static char sc_hasprompt;
static char *sc_prompt;
static char *sc_buf;
static int sc_line;

initscreen()
{
	(void) initscr();
	view_w = newwin(VIEW_Y, VIEW_X, VIEW_T, VIEW_L);
	slot_w = newwin(SLOT_Y, SLOT_X, SLOT_T, SLOT_L);
	scroll_w = newwin(SCROLL_Y, SCROLL_X, SCROLL_T, SCROLL_L);
	stat_w = newwin(STAT_Y, STAT_X, STAT_T, STAT_L);
	turn_w = newwin(TURN_Y, TURN_X, TURN_T, TURN_L);
	done_curses++;
	(void) leaveok(view_w, 1);
	(void) leaveok(slot_w, 1);
	(void) leaveok(stat_w, 1);
	(void) leaveok(turn_w, 1);
	noecho();
	crmode();
}

cleanupscreen()
{
	if (done_curses) {
		draw_screen();
		(void) move(LINES - 1, 0);
		(void) clrtoeol();
		(void) refresh();
		endwin();
	}
}

newturn()
{
	repaired = loaded = fired = changed = 0;
	movebuf[0] = '\0';

	(void) alarm(0);
	if (mf->readyL & R_LOADING)
		if (mf->readyL & R_DOUBLE)
			mf->readyL = R_LOADING;
		else
			mf->readyL = R_LOADED;
	if (mf->readyR & R_LOADING)
		if (mf->readyR & R_DOUBLE)
			mf->readyR = R_LOADING;
		else
			mf->readyR = R_LOADED;

	if (sc_hasprompt) {
		(void) wmove(scroll_w, sc_line, 0);
		(void) wclrtoeol(scroll_w);
	}
	Sync();
	if (sc_hasprompt)
		(void) wprintw(scroll_w, "%s%s", sc_prompt, sc_buf);

	if (turn % 50 == 0)
		Write(W_ALIVE, SHIP(0), 0, 0, 0, 0, 0);
	if (mf->FS && (!mc->rig1 || windspeed == 6))
		Write(W_FS, ms, 0, 0, 0, 0, 0);
	if (mf->FS == 1)
		Write(W_FS, ms, 0, 2, 0, 0, 0);

	if (mf->struck)
		leave(LEAVE_QUIT);
	if (mf->captured != 0)
		leave(LEAVE_CAPTURED);
	if (windspeed == 7)
		leave(LEAVE_HURRICAN);

	adjustview();
	draw_screen();

	(void) signal(SIGALRM, newturn);
	(void) alarm(7);
}

/*VARARGS2*/
Signal(fmt, ship, a, b, c, d)
char *fmt;
register struct ship *ship;
int a, b, c, d;
{
	if (!done_curses)
		return;
	if (*fmt == '\7')
		putchar(*fmt++);
	if (ship == 0)
		(void) wprintw(scroll_w, fmt, a, b, c, d);
	else
		(void) wprintw(scroll_w, fmt, ship->shipname,
			colours(ship), sterncolour(ship), a, b, c, d);
	Scroll();
}

Scroll()
{
	if (++sc_line >= SCROLL_Y)
		sc_line = 0;
	(void) wmove(scroll_w, sc_line, 0);
	(void) wclrtoeol(scroll_w);
}

prompt(p, ship)
register char *p;
struct ship *ship;
{
	static char buf[60];

	if (ship != 0)
		p = sprintf(buf, p, ship->shipname, colours(ship),
			sterncolour(ship));
	sc_prompt = p;
	sc_buf = "";
	sc_hasprompt = 1;
	(void) waddstr(scroll_w, p);
}

endprompt(flag)
char flag;
{
	sc_hasprompt = 0;
	if (flag)
		Scroll();
}

sgetch(p, ship, flag)
char *p;
struct ship *ship;
char flag;
{
	register c;

	prompt(p, ship);
	(void) wrefresh(scroll_w);
	while ((c = wgetch(scroll_w)) == EOF)
		;
	if (flag && c >= ' ' && c < 0x7f)
		(void) waddch(scroll_w, c);
	endprompt(flag);
	return c;
}

sgetstr(pr, buf, n)
char *pr;
register char *buf;
register n;
{
	register c;
	register char *p = buf;

	prompt(pr, (struct ship *)0);
	sc_buf = buf;
	for (;;) {
		*p = 0;
		(void) wrefresh(scroll_w);
		while ((c = wgetch(scroll_w)) == EOF)
			;
		switch (c) {
		case '\n':
		case '\r':
			endprompt(1);
			return;
		case '\b':
			if (p > buf) {
				(void) waddstr(scroll_w, "\b \b");
				p--;
			}
			break;
		default:
			if (c >= ' ' && c < 0x7f && p < buf + n - 1) {
				*p++ = c;
				(void) waddch(scroll_w, c);
			} else
				(void) putchar(CTRL(g));
		}
	}
}

draw_screen()
{
	draw_view();
	draw_turn();
	draw_stat();
	draw_slot();
	(void) wrefresh(scroll_w);		/* move the cursor */
}

draw_view()
{
	register struct ship *sp;

	(void) werase(view_w);
	foreachship(sp) {
		if (sp->file->dir
		    && sp->file->row > viewrow
		    && sp->file->row < viewrow + VIEW_Y
		    && sp->file->col > viewcol
		    && sp->file->col < viewcol + VIEW_X) {
			(void) wmove(view_w, sp->file->row - viewrow,
				sp->file->col - viewcol);
			(void) waddch(view_w, colours(sp));
			(void) wmove(view_w,
				sternrow(sp) - viewrow,
				sterncol(sp) - viewcol);
			(void) waddch(view_w, sterncolour(sp));
		}
	}
	(void) wrefresh(view_w);
}

draw_turn()
{
	(void) wmove(turn_w, 0, 0);
	(void) wprintw(turn_w, "Turn %d", turn);
	(void) wrefresh(turn_w);
}

draw_stat()
{
	(void) wmove(stat_w, STAT_1, 0);
	(void) wprintw(stat_w, "Points  %3d\n", mf->points);
	(void) wprintw(stat_w, "Fouls    %2d\n", fouled(ms));
	(void) wprintw(stat_w, "Grapples %2d\n", grappled(ms));

	(void) wmove(stat_w, STAT_2, 0);
	(void) wprintw(stat_w, "    0 %c(%c)\n",
		maxmove(ms, winddir + 3, -1) + '0',
		maxmove(ms, winddir + 3, 1) + '0');
	(void) waddstr(stat_w, "   \\|/\n");
	(void) wprintw(stat_w, "   -^-%c(%c)\n",
		maxmove(ms, winddir + 2, -1) + '0',
		maxmove(ms, winddir + 2, 1) + '0');
	(void) waddstr(stat_w, "   /|\\\n");
	(void) wprintw(stat_w, "    | %c(%c)\n",
		maxmove(ms, winddir + 1, -1) + '0',
		maxmove(ms, winddir + 1, 1) + '0');
	(void) wprintw(stat_w, "   %c(%c)\n",
		maxmove(ms, winddir, -1) + '0',
		maxmove(ms, winddir, 1) + '0');

	(void) wmove(stat_w, STAT_3, 0);
	(void) wprintw(stat_w, "Load  %c%c %c%c\n",
		loadname[mf->loadL], readyname(mf->readyL),
		loadname[mf->loadR], readyname(mf->readyR));
	(void) wprintw(stat_w, "Hull %2d\n", mc->hull);
	(void) wprintw(stat_w, "Crew %2d %2d %2d\n",
		mc->crew1, mc->crew2, mc->crew3);
	(void) wprintw(stat_w, "Guns %2d %2d\n", mc->gunL, mc->gunR);
	(void) wprintw(stat_w, "Carr %2d %2d\n", mc->carR, mc->carL);
	(void) wprintw(stat_w, "Rigg %d %d %d ", mc->rig1, mc->rig2, mc->rig3);
	if (mc->rig4 < 0)
		(void) waddch(stat_w, '-');
	else
		(void) wprintw(stat_w, "%d", mc->rig4);
	(void) wrefresh(stat_w);
}

draw_slot()
{
	if (!boarding(ms, 0)) {
		(void) mvwaddstr(slot_w, 0, 0, "   ");
		(void) mvwaddstr(slot_w, 1, 0, "   ");
	} else
		(void) mvwaddstr(slot_w, 1, 0, "OBP");
	if (!boarding(ms, 1)) {
		(void) mvwaddstr(slot_w, 2, 0, "   ");
		(void) mvwaddstr(slot_w, 3, 0, "   ");
	} else
		(void) mvwaddstr(slot_w, 3, 0, "DBP");

	(void) wmove(slot_w, SLOT_Y-4, 0);
	if (mf->RH)
		(void) wprintw(slot_w, "%dRH", mf->RH);
	else
		(void) waddstr(slot_w, "   ");
	(void) wmove(slot_w, SLOT_Y-3, 0);
	if (mf->RG)
		(void) wprintw(slot_w, "%dRG", mf->RG);
	else
		(void) waddstr(slot_w, "   ");
	(void) wmove(slot_w, SLOT_Y-2, 0);
	if (mf->RR)
		(void) wprintw(slot_w, "%dRR", mf->RR);
	else
		(void) waddstr(slot_w, "   ");

#define Y	(SLOT_Y/2)
	(void) wmove(slot_w, 7, 1);
	(void) wprintw(slot_w,"%d", windspeed);
	(void) mvwaddch(slot_w, Y, 0, ' ');
	(void) mvwaddch(slot_w, Y, 2, ' ');
	(void) mvwaddch(slot_w, Y-1, 0, ' ');
	(void) mvwaddch(slot_w, Y-1, 1, ' ');
	(void) mvwaddch(slot_w, Y-1, 2, ' ');
	(void) mvwaddch(slot_w, Y+1, 0, ' ');
	(void) mvwaddch(slot_w, Y+1, 1, ' ');
	(void) mvwaddch(slot_w, Y+1, 2, ' ');
	(void) wmove(slot_w, Y - dr[winddir], 1 - dc[winddir]);
	switch (winddir) {
	case 1:
	case 5:
		(void) waddch(slot_w, '|');
		break;
	case 2:
	case 6:
		(void) waddch(slot_w, '/');
		break;
	case 3:
	case 7:
		(void) waddch(slot_w, '-');
		break;
	case 4:
	case 8:
		(void) waddch(slot_w, '\\');
		break;
	}
	(void) mvwaddch(slot_w, Y + dr[winddir], 1 + dc[winddir], '+');
	(void) wrefresh(slot_w);
}

draw_board()
{
	register int n;

	(void) clear();
	(void) werase(view_w);
	(void) werase(slot_w);
	(void) werase(scroll_w);
	(void) werase(stat_w);
	(void) werase(turn_w);

	sc_line = 0;

	(void) move(BOX_T, BOX_L);
	for (n = 0; n < BOX_X; n++)
		(void) addch('-');
	(void) move(BOX_B, BOX_L);
	for (n = 0; n < BOX_X; n++)
		(void) addch('-');
	for (n = BOX_T+1; n < BOX_B; n++) {
		(void) mvaddch(n, BOX_L, '|');
		(void) mvaddch(n, BOX_R, '|');
	}
	(void) mvaddch(BOX_T, BOX_L, '+');
	(void) mvaddch(BOX_T, BOX_R, '+');
	(void) mvaddch(BOX_B, BOX_L, '+');
	(void) mvaddch(BOX_B, BOX_R, '+');
	(void) refresh();

#define WSaIM "Wooden Ships & Iron Men"
	(void) wmove(view_w, 2, (VIEW_X - sizeof WSaIM - 1) / 2);
	(void) waddstr(view_w, WSaIM);
	(void) wmove(view_w, 4, (VIEW_X - strlen(cc->name)) / 2);
	(void) waddstr(view_w, cc->name);
	(void) wrefresh(view_w);

	(void) move(LINE_T, LINE_L);
	(void) printw("Class %d %s (%d guns) '%s' (%c%c)",
		mc->class,
		classname[mc->class],
		mc->guns,
		ms->shipname,
		colours(ms),
		sterncolour(ms));
	(void) refresh();
}

centerview()
{
	viewrow = mf->row - VIEW_Y / 2;
	viewcol = mf->col - VIEW_X / 2;
}

upview()
{
	viewrow -= VIEW_Y / 3;
}

downview()
{
	viewrow += VIEW_Y / 3;
}

leftview()
{
	viewcol -= VIEW_X / 5;
}

rightview()
{
	viewcol += VIEW_X / 5;
}

adjustview()
{
	if (dont_adjust)
		return;
	if (mf->row < viewrow + VIEW_Y/4)
		viewrow = mf->row - (VIEW_Y - VIEW_Y/4);
	else if (mf->row > viewrow + (VIEW_Y - VIEW_Y/4))
		viewrow = mf->row - VIEW_Y/4;
	if (mf->col < viewcol + VIEW_X/8)
		viewcol = mf->col - (VIEW_X - VIEW_X/8);
	else if (mf->col > viewcol + (VIEW_X - VIEW_X/8))
		viewcol = mf->col - VIEW_X/8;
}
Commit	Line	Data
6fbeb36e EW	1	#ifndef lint
	2	static char *sccsid = "@(#)pl_7.c 1.1 83/10/28";
	3	#endif
	4
	5	#include "player.h"
	6
	7	/*
	8	* Display interface
	9	*/
	10
	11	static char sc_hasprompt;
	12	static char *sc_prompt;
	13	static char *sc_buf;
	14	static int sc_line;
	15
	16	initscreen()
	17	{
	18	(void) initscr();
	19	view_w = newwin(VIEW_Y, VIEW_X, VIEW_T, VIEW_L);
	20	slot_w = newwin(SLOT_Y, SLOT_X, SLOT_T, SLOT_L);
	21	scroll_w = newwin(SCROLL_Y, SCROLL_X, SCROLL_T, SCROLL_L);
	22	stat_w = newwin(STAT_Y, STAT_X, STAT_T, STAT_L);
	23	turn_w = newwin(TURN_Y, TURN_X, TURN_T, TURN_L);
	24	done_curses++;
	25	(void) leaveok(view_w, 1);
	26	(void) leaveok(slot_w, 1);
	27	(void) leaveok(stat_w, 1);
	28	(void) leaveok(turn_w, 1);
	29	noecho();
	30	crmode();
	31	}
	32
	33	cleanupscreen()
	34	{
	35	if (done_curses) {
	36	draw_screen();
	37	(void) move(LINES - 1, 0);
	38	(void) clrtoeol();
	39	(void) refresh();
	40	endwin();
	41	}
	42	}
	43
	44	newturn()
	45	{
	46	repaired = loaded = fired = changed = 0;
	47	movebuf[0] = '\0';
	48
	49	(void) alarm(0);
	50	if (mf->readyL & R_LOADING)
	51	if (mf->readyL & R_DOUBLE)
	52	mf->readyL = R_LOADING;
	53	else
	54	mf->readyL = R_LOADED;
	55	if (mf->readyR & R_LOADING)
	56	if (mf->readyR & R_DOUBLE)
	57	mf->readyR = R_LOADING;
	58	else
	59	mf->readyR = R_LOADED;
	60
	61	if (sc_hasprompt) {
	62	(void) wmove(scroll_w, sc_line, 0);
	63	(void) wclrtoeol(scroll_w);
	64	}
65	Sync();
66	if (sc_hasprompt)
67	(void) wprintw(scroll_w, "%s%s", sc_prompt, sc_buf);
68
69	if (turn % 50 == 0)
70	Write(W_ALIVE, SHIP(0), 0, 0, 0, 0, 0);
71	if (mf->FS && (!mc->rig1 \|\| windspeed == 6))
72	Write(W_FS, ms, 0, 0, 0, 0, 0);
73	if (mf->FS == 1)
74	Write(W_FS, ms, 0, 2, 0, 0, 0);
75
76	if (mf->struck)
77	leave(LEAVE_QUIT);
78	if (mf->captured != 0)
79	leave(LEAVE_CAPTURED);
80	if (windspeed == 7)
81	leave(LEAVE_HURRICAN);
82
83	adjustview();
84	draw_screen();
85
86	(void) signal(SIGALRM, newturn);
87	(void) alarm(7);
88	}
89
90	/VARARGS2/
91	Signal(fmt, ship, a, b, c, d)
92	char *fmt;
93	register struct ship *ship;
94	int a, b, c, d;
95	{
96	if (!done_curses)
97	return;
98	if (*fmt == '\7')
99	putchar(*fmt++);
100	if (ship == 0)
101	(void) wprintw(scroll_w, fmt, a, b, c, d);
102	else
103	(void) wprintw(scroll_w, fmt, ship->shipname,
104	colours(ship), sterncolour(ship), a, b, c, d);
105	Scroll();
106	}
107
108	Scroll()
109	{
110	if (++sc_line >= SCROLL_Y)
111	sc_line = 0;
112	(void) wmove(scroll_w, sc_line, 0);
113	(void) wclrtoeol(scroll_w);
114	}
115
116	prompt(p, ship)
117	register char *p;
118	struct ship *ship;
119	{
120	static char buf[60];
121
122	if (ship != 0)
123	p = sprintf(buf, p, ship->shipname, colours(ship),
124	sterncolour(ship));
125	sc_prompt = p;
126	sc_buf = "";
127	sc_hasprompt = 1;
128	(void) waddstr(scroll_w, p);
129	}
130
131	endprompt(flag)
132	char flag;
133	{
134	sc_hasprompt = 0;
135	if (flag)
136	Scroll();
137	}
138
139	sgetch(p, ship, flag)
140	char *p;
141	struct ship *ship;
142	char flag;
143	{
144	register c;
145
146	prompt(p, ship);
147	(void) wrefresh(scroll_w);
148	while ((c = wgetch(scroll_w)) == EOF)
149	;
150	if (flag && c >= ' ' && c < 0x7f)
151	(void) waddch(scroll_w, c);
152	endprompt(flag);
153	return c;
154	}
155
156	sgetstr(pr, buf, n)
157	char *pr;
158	register char *buf;
159	register n;
160	{
161	register c;
162	register char *p = buf;
163
164	prompt(pr, (struct ship *)0);
165	sc_buf = buf;
166	for (;;) {
167	*p = 0;
168	(void) wrefresh(scroll_w);
169	while ((c = wgetch(scroll_w)) == EOF)
170	;
171	switch (c) {
172	case '\n':
173	case '\r':
174	endprompt(1);
175	return;
176	case '\b':
177	if (p > buf) {
178	(void) waddstr(scroll_w, "\b \b");
179	p--;
180	}
181	break;
182	default:
183	if (c >= ' ' && c < 0x7f && p < buf + n - 1) {
184	*p++ = c;
185	(void) waddch(scroll_w, c);
186	} else
187	(void) putchar(CTRL(g));
188	}
189	}
190	}
191
192	draw_screen()
193	{
194	draw_view();
195	draw_turn();
196	draw_stat();
197	draw_slot();
198	(void) wrefresh(scroll_w); /* move the cursor */
199	}
200
201	draw_view()
202	{
203	register struct ship *sp;
204
205	(void) werase(view_w);
206	foreachship(sp) {
207	if (sp->file->dir
208	&& sp->file->row > viewrow
209	&& sp->file->row < viewrow + VIEW_Y
210	&& sp->file->col > viewcol
211	&& sp->file->col < viewcol + VIEW_X) {
212	(void) wmove(view_w, sp->file->row - viewrow,
213	sp->file->col - viewcol);
214	(void) waddch(view_w, colours(sp));
215	(void) wmove(view_w,
216	sternrow(sp) - viewrow,
217	sterncol(sp) - viewcol);
218	(void) waddch(view_w, sterncolour(sp));
219	}
220	}
221	(void) wrefresh(view_w);
222	}
223
224	draw_turn()
225	{
226	(void) wmove(turn_w, 0, 0);
227	(void) wprintw(turn_w, "Turn %d", turn);
228	(void) wrefresh(turn_w);
229	}
230
231	draw_stat()
232	{
233	(void) wmove(stat_w, STAT_1, 0);
234	(void) wprintw(stat_w, "Points %3d\n", mf->points);
235	(void) wprintw(stat_w, "Fouls %2d\n", fouled(ms));
236	(void) wprintw(stat_w, "Grapples %2d\n", grappled(ms));
237
238	(void) wmove(stat_w, STAT_2, 0);
239	(void) wprintw(stat_w, " 0 %c(%c)\n",
240	maxmove(ms, winddir + 3, -1) + '0',
241	maxmove(ms, winddir + 3, 1) + '0');
242	(void) waddstr(stat_w, " \\\|/\n");
243	(void) wprintw(stat_w, " -^-%c(%c)\n",
244	maxmove(ms, winddir + 2, -1) + '0',
245	maxmove(ms, winddir + 2, 1) + '0');
246	(void) waddstr(stat_w, " /\|\\\n");
247	(void) wprintw(stat_w, " \| %c(%c)\n",
248	maxmove(ms, winddir + 1, -1) + '0',
249	maxmove(ms, winddir + 1, 1) + '0');
250	(void) wprintw(stat_w, " %c(%c)\n",
251	maxmove(ms, winddir, -1) + '0',
252	maxmove(ms, winddir, 1) + '0');
253
254	(void) wmove(stat_w, STAT_3, 0);
255	(void) wprintw(stat_w, "Load %c%c %c%c\n",
256	loadname[mf->loadL], readyname(mf->readyL),
257	loadname[mf->loadR], readyname(mf->readyR));
258	(void) wprintw(stat_w, "Hull %2d\n", mc->hull);
259	(void) wprintw(stat_w, "Crew %2d %2d %2d\n",
260	mc->crew1, mc->crew2, mc->crew3);
261	(void) wprintw(stat_w, "Guns %2d %2d\n", mc->gunL, mc->gunR);
262	(void) wprintw(stat_w, "Carr %2d %2d\n", mc->carR, mc->carL);
263	(void) wprintw(stat_w, "Rigg %d %d %d ", mc->rig1, mc->rig2, mc->rig3);
264	if (mc->rig4 < 0)
265	(void) waddch(stat_w, '-');
266	else
267	(void) wprintw(stat_w, "%d", mc->rig4);
268	(void) wrefresh(stat_w);
269	}
270
271	draw_slot()
272	{
273	if (!boarding(ms, 0)) {
274	(void) mvwaddstr(slot_w, 0, 0, " ");
275	(void) mvwaddstr(slot_w, 1, 0, " ");
276	} else
277	(void) mvwaddstr(slot_w, 1, 0, "OBP");
278	if (!boarding(ms, 1)) {
279	(void) mvwaddstr(slot_w, 2, 0, " ");
280	(void) mvwaddstr(slot_w, 3, 0, " ");
281	} else
282	(void) mvwaddstr(slot_w, 3, 0, "DBP");
283
284	(void) wmove(slot_w, SLOT_Y-4, 0);
285	if (mf->RH)
286	(void) wprintw(slot_w, "%dRH", mf->RH);
287	else
288	(void) waddstr(slot_w, " ");
289	(void) wmove(slot_w, SLOT_Y-3, 0);
290	if (mf->RG)
291	(void) wprintw(slot_w, "%dRG", mf->RG);
292	else
293	(void) waddstr(slot_w, " ");
294	(void) wmove(slot_w, SLOT_Y-2, 0);
295	if (mf->RR)
296	(void) wprintw(slot_w, "%dRR", mf->RR);
297	else
298	(void) waddstr(slot_w, " ");
299
300	#define Y (SLOT_Y/2)
301	(void) wmove(slot_w, 7, 1);
302	(void) wprintw(slot_w,"%d", windspeed);
303	(void) mvwaddch(slot_w, Y, 0, ' ');
304	(void) mvwaddch(slot_w, Y, 2, ' ');
305	(void) mvwaddch(slot_w, Y-1, 0, ' ');
306	(void) mvwaddch(slot_w, Y-1, 1, ' ');
307	(void) mvwaddch(slot_w, Y-1, 2, ' ');
308	(void) mvwaddch(slot_w, Y+1, 0, ' ');
309	(void) mvwaddch(slot_w, Y+1, 1, ' ');
310	(void) mvwaddch(slot_w, Y+1, 2, ' ');
311	(void) wmove(slot_w, Y - dr[winddir], 1 - dc[winddir]);
312	switch (winddir) {
313	case 1:
314	case 5:
315	(void) waddch(slot_w, '\|');
316	break;
317	case 2:
318	case 6:
319	(void) waddch(slot_w, '/');
320	break;
321	case 3:
322	case 7:
323	(void) waddch(slot_w, '-');
324	break;
325	case 4:
326	case 8:
327	(void) waddch(slot_w, '\\');
328	break;
329	}
330	(void) mvwaddch(slot_w, Y + dr[winddir], 1 + dc[winddir], '+');
331	(void) wrefresh(slot_w);
332	}
333
334	draw_board()
335	{
336	register int n;
337
338	(void) clear();
339	(void) werase(view_w);
340	(void) werase(slot_w);
341	(void) werase(scroll_w);
342	(void) werase(stat_w);
343	(void) werase(turn_w);
344
345	sc_line = 0;
346
347	(void) move(BOX_T, BOX_L);
348	for (n = 0; n < BOX_X; n++)
349	(void) addch('-');
350	(void) move(BOX_B, BOX_L);
351	for (n = 0; n < BOX_X; n++)
352	(void) addch('-');
353	for (n = BOX_T+1; n < BOX_B; n++) {
354	(void) mvaddch(n, BOX_L, '\|');
355	(void) mvaddch(n, BOX_R, '\|');
356	}
357	(void) mvaddch(BOX_T, BOX_L, '+');
358	(void) mvaddch(BOX_T, BOX_R, '+');
359	(void) mvaddch(BOX_B, BOX_L, '+');
360	(void) mvaddch(BOX_B, BOX_R, '+');
361	(void) refresh();
362
363	#define WSaIM "Wooden Ships & Iron Men"
364	(void) wmove(view_w, 2, (VIEW_X - sizeof WSaIM - 1) / 2);
365	(void) waddstr(view_w, WSaIM);
366	(void) wmove(view_w, 4, (VIEW_X - strlen(cc->name)) / 2);
367	(void) waddstr(view_w, cc->name);
368	(void) wrefresh(view_w);
369
370	(void) move(LINE_T, LINE_L);
371	(void) printw("Class %d %s (%d guns) '%s' (%c%c)",
372	mc->class,
373	classname[mc->class],
374	mc->guns,
375	ms->shipname,
376	colours(ms),
377	sterncolour(ms));
378	(void) refresh();
379	}
380
381	centerview()
382	{
383	viewrow = mf->row - VIEW_Y / 2;
384	viewcol = mf->col - VIEW_X / 2;
385	}
386
387	upview()
388	{
389	viewrow -= VIEW_Y / 3;
390	}
391
392	downview()
393	{
394	viewrow += VIEW_Y / 3;
395	}
396
397	leftview()
398	{
399	viewcol -= VIEW_X / 5;
400	}
401
402	rightview()
403	{
404	viewcol += VIEW_X / 5;
405	}
406
407	adjustview()
408	{
409	if (dont_adjust)
410	return;
411	if (mf->row < viewrow + VIEW_Y/4)
412	viewrow = mf->row - (VIEW_Y - VIEW_Y/4);
413	else if (mf->row > viewrow + (VIEW_Y - VIEW_Y/4))
414	viewrow = mf->row - VIEW_Y/4;
415	if (mf->col < viewcol + VIEW_X/8)
416	viewcol = mf->col - (VIEW_X - VIEW_X/8);
417	else if (mf->col > viewcol + (VIEW_X - VIEW_X/8))
418	viewcol = mf->col - VIEW_X/8;
419	}