pl_4.c revision 1.1 
1/*	$NetBSD: pl_4.c,v 1.4 1995/04/24 12:25:17 cgd 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#ifndef lint
37#if 0
38static char sccsid[] = "@(#)pl_4.c	8.1 (Berkeley) 5/31/93";
39#else
40static char rcsid[] = "$NetBSD: pl_4.c,v 1.4 1995/04/24 12:25:17 cgd Exp $";
41#endif
42#endif /* not lint */
43
44#include "player.h"
45
46changesail()
47{
48	int rig, full;
49
50	rig = mc->rig1;
51	full = mf->FS;
52	if (windspeed == 6 || windspeed == 5 && mc->class > 4)
53		rig = 0;
54	if (mc->crew3 && rig) {
55		if (!full) {
56			if (sgetch("Increase to Full sails? ",
57				(struct ship *)0, 1) == 'y') {
58				changed = 1;
59				Write(W_FS, ms, 0, 1, 0, 0, 0);
60			}
61		} else {
62			if (sgetch("Reduce to Battle sails? ",
63				(struct ship *)0, 1) == 'y') {
64				Write(W_FS, ms, 0, 0, 0, 0, 0);
65				changed = 1;
66			}
67		}
68	} else if (!rig)
69		Signal("Sails rent to pieces", (struct ship *)0);
70}
71
72acceptsignal()
73{
74	char buf[60];
75	register char *p = buf;
76
77	*p++ = '"';
78	sgetstr("Message? ", p, sizeof buf - 2);
79	while (*p++)
80		;
81	p[-1] = '"';
82	*p = 0;
83	Write(W_SIGNAL, ms, 1, (long)buf, 0, 0, 0);
84}
85
86lookout()
87{
88	register struct ship *sp;
89	char buf[3];
90	register char c;
91
92	sgetstr("What ship? ", buf, sizeof buf);
93	foreachship(sp) {
94		c = *countryname[sp->nationality];
95		if ((c == *buf || tolower(c) == *buf || colours(sp) == *buf)
96		    && (sp->file->stern == buf[1] || sterncolour(sp) == buf[1]
97			|| buf[1] == '?')) {
98			eyeball(sp);
99		}
100	}
101}
102
103char *
104saywhat(sp, flag)
105register struct ship *sp;
106char flag;
107{
108	if (sp->file->captain[0])
109		return sp->file->captain;
110	else if (sp->file->struck)
111		return "(struck)";
112	else if (sp->file->captured != 0)
113		return "(captured)";
114	else if (flag)
115		return "(available)";
116	else
117		return "(computer)";
118}
119
120eyeball(ship)
121register struct ship *ship;
122{
123	int i;
124
125	if (ship->file->dir != 0) {
126		Signal("Sail ho! (range %d, %s)",
127			(struct ship *)0, range(ms, ship), saywhat(ship, 0));
128		i = portside(ms, ship, 1) - mf->dir;
129		if (i <= 0)
130			i += 8;
131		Signal("%s (%c%c) %s %s %s.",
132			ship, countryname[ship->nationality],
133			classname[ship->specs->class], directionname[i]);
134	}
135}
136