2 * Copyright (c) 1983, 1993
3 * The Regents of the University of California. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 3. All advertising materials mentioning features or use of this software
14 * must display the following acknowledgement:
15 * This product includes software developed by the University of
16 * California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37 static char sccsid[] = "@(#)pl_4.c 8.1 (Berkeley) 5/31/93";
48 if (windspeed == 6 || windspeed == 5 && mc->class > 4)
50 if (mc->crew3 && rig) {
52 if (sgetch("Increase to Full sails? ",
53 (struct ship *)0, 1) == 'y') {
55 Write(W_FS, ms, 0, 1, 0, 0, 0);
58 if (sgetch("Reduce to Battle sails? ",
59 (struct ship *)0, 1) == 'y') {
60 Write(W_FS, ms, 0, 0, 0, 0, 0);
65 Signal("Sails rent to pieces", (struct ship *)0);
74 sgetstr("Message? ", p, sizeof buf - 2);
79 Write(W_SIGNAL, ms, 1, (long)buf, 0, 0, 0);
88 sgetstr("What ship? ", buf, sizeof buf);
90 c = *countryname[sp->nationality];
91 if ((c == *buf || tolower(c) == *buf || colours(sp) == *buf)
92 && (sp->file->stern == buf[1] || sterncolour(sp) == buf[1]
104 if (sp->file->captain[0])
105 return sp->file->captain;
106 else if (sp->file->struck)
108 else if (sp->file->captured != 0)
111 return "(available)";
121 if (ship->file->dir != 0) {
122 Signal("Sail ho! (range %d, %s)",
123 (struct ship *)0, range(ms, ship), saywhat(ship, 0));
124 i = portside(ms, ship, 1) - mf->dir;
127 Signal("%s (%c%c) %s %s %s.",
128 ship, countryname[ship->nationality],
129 classname[ship->specs->class], directionname[i]);