(deliver): Static linkage.
/* bp.c */
/* in budg.h */
/* deliver.c */
-extern int deliver(register struct sctstr *, struct ichrstr *, int, int,
- int, int);
+extern void dodeliver(struct sctstr *);
/* distribute.c */
extern int dodistribute(struct sctstr *, int, s_char *, double, double);
/* finish.c */
/* sail.c */
extern void sail_ship(natid);
/* sect.c */
-extern void dodeliver(struct sctstr *);
extern void do_fallout(register struct sctstr *, register int);
extern void spread_fallout(struct sctstr *, int);
extern void decay_fallout(struct sctstr *, int);
#include "subs.h"
#include "common.h"
-int
+static int
deliver(register struct sctstr *from, struct ichrstr *ip, int dir,
int thresh, int amt_src, int plague)
{
from->sct_mobil = n;
return amt_moved;
}
+
+void
+dodeliver(struct sctstr *sp)
+{
+ register int i;
+ int thresh;
+ int dir;
+ int plague;
+ int n;
+
+ if (sp->sct_mobil <= 0)
+ return;
+ plague = sp->sct_pstage;
+ for (i = 1; i <= I_MAX; i++) {
+ if (sp->sct_del[i] == 0)
+ continue;
+ thresh = sp->sct_del[i] & ~0x7;
+ dir = sp->sct_del[i] & 0x7;
+ n = deliver(sp, &ichr[i], dir, thresh, sp->sct_item[i], plague);
+ if (n > 0) {
+ sp->sct_item[i] -= n;
+ if (sp->sct_mobil <= 0)
+ break;
+ }
+ }
+}
#include "lost.h"
#include "gen.h"
-void
-dodeliver(struct sctstr *sp)
-{
- register int i;
- int thresh;
- int dir;
- int plague;
- int n;
-
- if (sp->sct_mobil <= 0)
- return;
- plague = sp->sct_pstage;
- for (i = 1; i <= I_MAX; i++) {
- if (sp->sct_del[i] == 0)
- continue;
- thresh = sp->sct_del[i] & ~0x7;
- dir = sp->sct_del[i] & 0x7;
- n = deliver(sp, &ichr[i], dir, thresh, sp->sct_item[i], plague);
- if (n > 0) {
- sp->sct_item[i] -= n;
- if (sp->sct_mobil <= 0)
- break;
- }
- }
-}
-
/*
* Increase sector efficiency if old type == new type.
* decrease sector efficiency if old type != new type.