1 files changed, 59 insertions, 0 deletions
diff --git a/trek/board.x b/trek/board.x
new file mode 100644
index 00000000..0892a6da
--- /dev/null
+++ b/trek/board.x
@@ -0,0 +1,59 @@
+# include	"trek.h"
+
+/*
+**  BOARD A KLINGON
+**
+**	A Klingon battle cruiser is boarded.  If the boarding party
+**	is successful, they take over the vessel, otherwise, you
+**	have wasted a move.  Needless to say, this move is not free.
+**
+**	User parameters are the Klingon to be boarded and the size of
+**	the boarding party.
+**
+**	Three things are computed.  The first is the probability that
+**	the party takes over the Klingon.  This is dependent on the
+**	size of the party, the condition of the Klingon (for which
+**	the energy left is used, which is definately incorrect), and
+**	the number of losses that the boarding party sustains.  If too
+**	many of the boarding party are killed, the probability drops
+**	to zero.  The second quantity computed is the losses that the
+**	boarding party sustains.  This counts in your score.  It
+**	depends on the absolute and relative size of the boarding
+**	party and the strength of the Klingon.  The third quantity
+**	computed is the number of Klingon captives you get to take.
+**	It is actually computed as the number of losses they sustain
+**	subtracted from the size of their crew.  It depends on the
+**	relative size of the party.  All of these quantities are
+**	randomized in some fashion.
+*/
+
+board()
+{
+	int			prob;
+	int			losses;
+	int			captives;
+	float			t;
+	int			party;
+
+	if (checkout(XPORTER))
+		return;
+
+	k = selectklingon();
+	if (!k->srndreq)
+	{
+		return (printf("But captain! You must request surrender first\n"));
+	}
+
+	t = party / Param.crew;
+
+	prob = 1000 * t;
+	prob =- 500 * k->power / Param.klingpwr;
+
+	losses = party * k->power * t * 0.5 / Param.klingpwr * (franf() + 1.0);
+	if (losses * 4 > party)
+		prob = 0;
+
+	captives = %%% * (1.0 - t) * 0.5 * (franf() + 1.0);
+
+	if (prob > ranf(1000))
+		success!!!;