#define putrealm(p) ef_write(EF_REALM, (p)->r_uid, (p))
extern double tfact(natid cn, double mult);
-extern double tfactfire(natid cn, double mult);
extern double techfact(int level, double mult);
extern char *cname(natid n);
return mult * tlev;
}
-double
-tfactfire(natid cn, double mult)
-{
- double tlev;
- struct natstr *np;
-
- np = getnatp(cn);
- tlev = np->nat_level[NAT_TLEV];
- tlev = (50.0 + tlev) / (200.0 + tlev);
- return mult * tlev * fire_range_factor;
-}
-
double
techfact(int level, double mult)
{