Home | History | Annotate | Line # | Download | only in sail 
      1 /*	$NetBSD: pl_6.c,v 1.14 2009/03/15 03:33:56 dholland 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. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 #ifndef lint
     34 #if 0
     35 static char sccsid[] = "@(#)pl_6.c	8.1 (Berkeley) 5/31/93";
     36 #else
     37 __RCSID("$NetBSD: pl_6.c,v 1.14 2009/03/15 03:33:56 dholland Exp $");
     38 #endif
     39 #endif /* not lint */
     40 
     41 #include <signal.h>
     42 #include "extern.h"
     43 #include "player.h"
     44 
     45 static int turned(void);
     46 
     47 void
     48 repair(void)
     49 {
     50 	char c;
     51 	char *repairs;
     52 	struct shipspecs *ptr = mc;
     53 	int count;
     54 
     55 #define FIX(x, m) (m - ptr->x > count \
     56 	? (ptr->x += count, count = 0) : (count -= m - ptr->x, ptr->x = m))
     57 
     58 	if (repaired || loaded || fired || changed || turned()) {
     59 		Msg("No hands free to repair");
     60 		return;
     61 	}
     62 	c = sgetch("Repair (hull, guns, rigging)? ", (struct ship *)0, 1);
     63 	switch (c) {
     64 		case 'h':
     65 			repairs = &mf->RH;
     66 			break;
     67 		case 'g':
     68 			repairs = &mf->RG;
     69 			break;
     70 		case 'r':
     71 			repairs = &mf->RR;
     72 			break;
     73 		default:
     74 			Msg("Avast heaving!");
     75 			return;
     76 	}
     77 	if (++*repairs >= 3) {
     78 		count = 2;
     79 		switch (c) {
     80 		case 'h': {
     81 			int max = ptr->guns/4;
     82 			if (ptr->hull < max) {
     83 				FIX(hull, max);
     84 				send_hull(ms, ptr->hull);
     85 			}
     86 			break;
     87 			}
     88 		case 'g':
     89 			if (ptr->gunL < ptr->gunR) {
     90 				int max = ptr->guns/5 - ptr->carL;
     91 				if (ptr->gunL < max) {
     92 					FIX(gunL, max);
     93 					send_gunl(ms, ptr->gunL, ptr->carL);
     94 				}
     95 			} else {
     96 				int max = ptr->guns/5 - ptr->carR;
     97 				if (ptr->gunR < max) {
     98 					FIX(gunR, max);
     99 					send_gunr(ms, ptr->gunR, ptr->carR);
    100 				}
    101 			}
    102 			break;
    103 		case 'r':
    104 #define X 2
    105 			if (ptr->rig4 >= 0 && ptr->rig4 < X) {
    106 				FIX(rig4, X);
    107 				send_rig4(ms, ptr->rig4);
    108 			}
    109 			if (count && ptr->rig3 < X) {
    110 				FIX(rig3, X);
    111 				send_rig3(ms, ptr->rig3);
    112 			}
    113 			if (count && ptr->rig2 < X) {
    114 				FIX(rig2, X);
    115 				send_rig2(ms, ptr->rig2);
    116 			}
    117 			if (count && ptr->rig1 < X) {
    118 				FIX(rig1, X);
    119 				send_rig1(ms, ptr->rig1);
    120 			}
    121 			break;
    122 		}
    123 		if (count == 2) {
    124 			Msg("Repairs completed.");
    125 			*repairs = 2;
    126 		} else {
    127 			*repairs = 0;
    128 		}
    129 	}
    130 	repaired = 1;
    131 }
    132 
    133 static int
    134 turned(void)
    135 {
    136 	char *p;
    137 
    138 	for (p = movebuf; *p; p++)
    139 		if (*p == 'r' || *p == 'l')
    140 			return 1;
    141 	return 0;
    142 }
    143 
    144 void
    145 loadplayer(void)
    146 {
    147 	char c;
    148 	int loadL, loadR, ready, load;
    149 
    150 	if (!mc->crew3) {
    151 		Msg("Out of crew");
    152 		return;
    153 	}
    154 	loadL = mf->loadL;
    155 	loadR = mf->loadR;
    156 	if (!loadL && !loadR) {
    157 		c = sgetch("Load which broadside (left or right)? ",
    158 			(struct ship *)0, 1);
    159 		if (c == 'r')
    160 			loadL = 1;
    161 		else
    162 			loadR = 1;
    163 	}
    164 	if ((!loadL && loadR) || (loadL && !loadR)) {
    165 		c = sgetch("Reload with (round, double, chain, grape)? ",
    166 			(struct ship *)0, 1);
    167 		switch (c) {
    168 		case 'r':
    169 			load = L_ROUND;
    170 			ready = 0;
    171 			break;
    172 		case 'd':
    173 			load = L_DOUBLE;
    174 			ready = R_DOUBLE;
    175 			break;
    176 		case 'c':
    177 			load = L_CHAIN;
    178 			ready = 0;
    179 			break;
    180 		case 'g':
    181 			load = L_GRAPE;
    182 			ready = 0;
    183 			break;
    184 		default:
    185 			Msg("Broadside not loaded.");
    186 			return;
    187 		}
    188 		if (!loadR) {
    189 			mf->loadR = load;
    190 			mf->readyR = ready|R_LOADING;
    191 		} else {
    192 			mf->loadL = load;
    193 			mf->readyL = ready|R_LOADING;
    194 		}
    195 		loaded = 1;
    196 	}
    197 }
    198