Merge from vendor branch OPENSSL:
[dragonfly.git] / games / sail / pl_4.c
CommitLineData
984263bc
MD
1/*
2 * Copyright (c) 1983, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
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.
20 *
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
31 * SUCH DAMAGE.
1de703da
MD
32 *
33 * @(#)pl_4.c 8.1 (Berkeley) 5/31/93
34 * $FreeBSD: src/games/sail/pl_4.c,v 1.5 1999/11/30 03:49:37 billf Exp $
4be74d36 35 * $DragonFly: src/games/sail/pl_4.c,v 1.3 2006/09/03 17:33:13 pavalos Exp $
984263bc
MD
36 */
37
984263bc
MD
38#include "player.h"
39
4be74d36
PA
40void
41changesail(void)
984263bc
MD
42{
43 int rig, full;
44
45 rig = mc->rig1;
46 full = mf->FS;
4be74d36 47 if (windspeed == 6 || (windspeed == 5 && mc->class > 4))
984263bc
MD
48 rig = 0;
49 if (mc->crew3 && rig) {
50 if (!full) {
51 if (sgetch("Increase to Full sails? ",
52 (struct ship *)0, 1) == 'y') {
53 changed = 1;
54 Write(W_FS, ms, 0, 1, 0, 0, 0);
55 }
56 } else {
57 if (sgetch("Reduce to Battle sails? ",
58 (struct ship *)0, 1) == 'y') {
59 Write(W_FS, ms, 0, 0, 0, 0, 0);
60 changed = 1;
61 }
62 }
63 } else if (!rig)
64 Signal("Sails rent to pieces", (struct ship *)0);
65}
66
4be74d36
PA
67void
68acceptsignal(void)
984263bc
MD
69{
70 char buf[60];
71 char *p = buf;
72
73 *p++ = '"';
74 sgetstr("Message? ", p, sizeof buf - 2);
75 while (*p++)
76 ;
77 p[-1] = '"';
78 *p = 0;
79 Write(W_SIGNAL, ms, 1, (long)buf, 0, 0, 0);
80}
81
4be74d36
PA
82void
83lookout(void)
984263bc
MD
84{
85 struct ship *sp;
86 char buf[3];
87 char c;
88
89 sgetstr("What ship? ", buf, sizeof buf);
90 foreachship(sp) {
91 c = *countryname[sp->nationality];
92 if ((c == *buf || tolower(c) == *buf || colours(sp) == *buf)
93 && (sp->file->stern == buf[1] || sterncolour(sp) == buf[1]
94 || buf[1] == '?')) {
95 eyeball(sp);
96 }
97 }
98}
99
4be74d36
PA
100const char *
101saywhat(struct ship *sp, char flag)
984263bc
MD
102{
103 if (sp->file->captain[0])
104 return sp->file->captain;
105 else if (sp->file->struck)
106 return "(struck)";
107 else if (sp->file->captured != 0)
108 return "(captured)";
109 else if (flag)
110 return "(available)";
111 else
112 return "(computer)";
113}
114
4be74d36
PA
115void
116eyeball(struct ship *ship)
984263bc
MD
117{
118 int i;
119
120 if (ship->file->dir != 0) {
121 Signal("Sail ho! (range %d, %s)",
122 (struct ship *)0, range(ms, ship), saywhat(ship, 0));
123 i = portside(ms, ship, 1) - mf->dir;
124 if (i <= 0)
125 i += 8;
126 Signal("%s (%c%c) %s %s %s.",
127 ship, countryname[ship->nationality],
128 classname[ship->specs->class], directionname[i]);
129 }
130}