Commit | Line | Data |
---|---|---|
b5f0675e | 1 | /* |
1e008c14 | 2 | * Copyright (c) 1983 Regents of the University of California. |
c0ca48ec KB |
3 | * All rights reserved. |
4 | * | |
5 | * Redistribution and use in source and binary forms are permitted | |
65c7d3b6 KB |
6 | * provided that the above copyright notice and this paragraph are |
7 | * duplicated in all such forms and that any documentation, | |
8 | * advertising materials, and other materials related to such | |
9 | * distribution and use acknowledge that the software was developed | |
10 | * by the University of California, Berkeley. The name of the | |
11 | * University may not be used to endorse or promote products derived | |
12 | * from this software without specific prior written permission. | |
13 | * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR | |
14 | * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED | |
15 | * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. | |
b5f0675e EW |
16 | */ |
17 | ||
e984bffe | 18 | #ifndef lint |
65c7d3b6 | 19 | static char sccsid[] = "@(#)pl_5.c 5.3 (Berkeley) %G%"; |
c0ca48ec | 20 | #endif /* not lint */ |
e984bffe EW |
21 | |
22 | #include "player.h" | |
23 | ||
24 | #define turnfirst(x) (*x == 'r' || *x == 'l') | |
25 | ||
26 | acceptmove() | |
27 | { | |
28 | int ta; | |
29 | int ma; | |
30 | char af; | |
31 | int moved = 0; | |
32 | int vma, dir; | |
33 | char prompt[60]; | |
34 | char buf[60], last = '\0'; | |
35 | register char *p; | |
36 | ||
37 | if (!mc->crew3 || snagged(ms) || !windspeed) { | |
38 | Signal("Unable to move", (struct ship *)0); | |
39 | return; | |
40 | } | |
e984bffe EW |
41 | |
42 | ta = maxturns(ms, &af); | |
43 | ma = maxmove(ms, mf->dir, 0); | |
44 | (void) sprintf(prompt, "move (%d,%c%d): ", ma, af ? '\'' : ' ', ta); | |
45 | sgetstr(prompt, buf, sizeof buf); | |
46 | dir = mf->dir; | |
47 | vma = ma; | |
48 | for (p = buf; *p; p++) | |
49 | switch (*p) { | |
50 | case 'l': | |
51 | dir -= 2; | |
52 | case 'r': | |
53 | if (++dir == 0) | |
54 | dir = 8; | |
55 | else if (dir == 9) | |
56 | dir = 1; | |
57 | if (last == 't') { | |
58 | Signal("Ship can't turn that fast.", | |
59 | (struct ship *)0); | |
60 | *p-- = '\0'; | |
61 | } | |
62 | last = 't'; | |
63 | ma--; | |
64 | ta--; | |
65 | vma = min(ma, maxmove(ms, dir, 0)); | |
66 | if (ta < 0 && moved || vma < 0 && moved) | |
67 | *p-- = '\0'; | |
68 | break; | |
69 | case 'b': | |
70 | ma--; | |
71 | vma--; | |
72 | last = 'b'; | |
73 | if (ta < 0 && moved || vma < 0 && moved) | |
74 | *p-- = '\0'; | |
75 | break; | |
76 | case '0': | |
77 | case 'd': | |
78 | *p-- = '\0'; | |
79 | break; | |
80 | case '\n': | |
81 | *p-- = '\0'; | |
82 | break; | |
83 | case '1': case '2': case '3': case '4': | |
84 | case '5': case '6': case '7': | |
85 | if (last == '0') { | |
86 | Signal("Can't move that fast.", | |
87 | (struct ship *)0); | |
88 | *p-- = '\0'; | |
89 | } | |
90 | last = '0'; | |
91 | moved = 1; | |
92 | ma -= *p - '0'; | |
93 | vma -= *p - '0'; | |
94 | if (ta < 0 && moved || vma < 0 && moved) | |
95 | *p-- = '\0'; | |
96 | break; | |
97 | default: | |
98 | if (!isspace(*p)) { | |
99 | Signal("Input error.", (struct ship *)0); | |
100 | *p-- = '\0'; | |
101 | } | |
102 | } | |
103 | if (ta < 0 && moved || vma < 0 && moved | |
104 | || af && turnfirst(buf) && moved) { | |
105 | Signal("Movement error.", (struct ship *)0); | |
106 | if (ta < 0 && moved) { | |
107 | if (mf->FS == 1) { | |
108 | Write(W_FS, ms, 0, 0, 0, 0, 0); | |
109 | Signal("No hands to set full sails.", | |
110 | (struct ship *)0); | |
111 | } | |
112 | } else if (ma >= 0) | |
113 | buf[1] = '\0'; | |
114 | } | |
115 | if (af && !moved) { | |
116 | if (mf->FS == 1) { | |
117 | Write(W_FS, ms, 0, 0, 0, 0, 0); | |
118 | Signal("No hands to set full sails.", | |
119 | (struct ship *)0); | |
120 | } | |
121 | } | |
122 | if (*buf) | |
123 | (void) strcpy(movebuf, buf); | |
124 | else | |
125 | (void) strcpy(movebuf, "d"); | |
944c0fac | 126 | Write(W_MOVE, ms, 1, (int)movebuf, 0, 0, 0); |
e984bffe EW |
127 | Signal("Helm: %s.", (struct ship *)0, movebuf); |
128 | } | |
129 | ||
130 | acceptboard() | |
131 | { | |
132 | register struct ship *sp; | |
133 | register int n; | |
134 | int crew[3]; | |
135 | int men = 0; | |
136 | char c; | |
137 | ||
138 | crew[0] = mc->crew1; | |
139 | crew[1] = mc->crew2; | |
140 | crew[2] = mc->crew3; | |
141 | for (n = 0; n < NBP; n++) { | |
142 | if (mf->OBP[n].turnsent) | |
e0fafce6 | 143 | men += mf->OBP[n].mensent; |
e984bffe EW |
144 | } |
145 | for (n = 0; n < NBP; n++) { | |
146 | if (mf->DBP[n].turnsent) | |
e0fafce6 | 147 | men += mf->DBP[n].mensent; |
e984bffe EW |
148 | } |
149 | if (men) { | |
150 | crew[0] = men/100 ? 0 : crew[0] != 0; | |
151 | crew[1] = (men%100)/10 ? 0 : crew[1] != 0; | |
152 | crew[2] = men%10 ? 0 : crew[2] != 0; | |
153 | } else { | |
154 | crew[0] = crew[0] != 0; | |
155 | crew[1] = crew[1] != 0; | |
156 | crew[2] = crew[2] != 0; | |
157 | } | |
158 | foreachship(sp) { | |
159 | if (sp == ms || sp->file->dir == 0 || range(ms, sp) > 1) | |
160 | continue; | |
161 | if (ms->nationality == capship(sp)->nationality) | |
162 | continue; | |
163 | if (meleeing(ms, sp) && crew[2]) { | |
164 | c = sgetch("How many more to board the %s (%c%c)? ", | |
165 | sp, 1); | |
166 | parties(crew, sp, 0, c); | |
167 | } else if ((fouled2(ms, sp) || grappled2(ms, sp)) && crew[2]) { | |
168 | c = sgetch("Crew sections to board the %s (%c%c) (3 max) ?", sp, 1); | |
169 | parties(crew, sp, 0, c); | |
170 | } | |
171 | } | |
172 | if (crew[2]) { | |
173 | c = sgetch("How many sections to repel boarders? ", | |
174 | (struct ship *)0, 1); | |
175 | parties(crew, ms, 1, c); | |
176 | } | |
490c485f | 177 | blockalarm(); |
fcc6b1db | 178 | draw_slot(); |
490c485f | 179 | unblockalarm(); |
e984bffe EW |
180 | } |
181 | ||
182 | parties(crew, to, isdefense, buf) | |
183 | register struct ship *to; | |
184 | int crew[3]; | |
185 | char isdefense; | |
186 | char buf; | |
187 | { | |
188 | register int k, j, men; | |
189 | struct BP *ptr; | |
190 | int temp[3]; | |
191 | ||
192 | for (k = 0; k < 3; k++) | |
193 | temp[k] = crew[k]; | |
194 | if (isdigit(buf)) { | |
195 | ptr = isdefense ? to->file->DBP : to->file->OBP; | |
196 | for (j = 0; j < NBP && ptr[j].turnsent; j++) | |
197 | ; | |
198 | if (!ptr[j].turnsent && buf > '0') { | |
199 | men = 0; | |
200 | for (k = 0; k < 3 && buf > '0'; k++) { | |
201 | men += crew[k] | |
202 | * (k == 0 ? 100 : (k == 1 ? 10 : 1)); | |
203 | crew[k] = 0; | |
204 | if (men) | |
205 | buf--; | |
206 | } | |
207 | if (buf > '0') | |
208 | Signal("Sending all crew sections.", | |
209 | (struct ship *)0); | |
210 | Write(isdefense ? W_DBP : W_OBP, ms, 0, | |
944c0fac | 211 | j, turn, to->file->index, men); |
e984bffe EW |
212 | if (isdefense) { |
213 | (void) wmove(slot_w, 2, 0); | |
214 | for (k=0; k < NBP; k++) | |
215 | if (temp[k] && !crew[k]) | |
216 | (void) waddch(slot_w, k + '1'); | |
217 | else | |
218 | (void) wmove(slot_w, 2, 1 + k); | |
219 | (void) mvwaddstr(slot_w, 3, 0, "DBP"); | |
220 | makesignal(ms, "repelling boarders", | |
221 | (struct ship *)0); | |
222 | } else { | |
223 | (void) wmove(slot_w, 0, 0); | |
224 | for (k=0; k < NBP; k++) | |
225 | if (temp[k] && !crew[k]) | |
226 | (void) waddch(slot_w, k + '1'); | |
227 | else | |
228 | (void) wmove(slot_w, 0, 1 + k); | |
229 | (void) mvwaddstr(slot_w, 1, 0, "OBP"); | |
230 | makesignal(ms, "boarding the %s (%c%c)", to); | |
231 | } | |
14e6adf2 | 232 | blockalarm(); |
e984bffe | 233 | (void) wrefresh(slot_w); |
14e6adf2 | 234 | unblockalarm(); |
e984bffe EW |
235 | } else |
236 | Signal("Sending no crew sections.", (struct ship *)0); | |
237 | } | |
238 | } |