#!/bin/csh -f

#
# move spar civs along a fixed paths.
#
# this and movedata are superceeded by manage
#
# this understands plague

if ($?EMPCEN) then
    set census = $EMPCEN
else
    set census = .cen
endif
set movedata = movedata
set plague = plagued

awk '\
$1==":" {\
	maxciv[$2] = $3\
	path[$2] = $4\
	pathmob[$2] = $5\
	minmob[$2] = $6\
}\
$NF=="BATTLE"||$NF=="OUTBREAK" { P[$1] = 1 }\
NF==16 && $2 == "e" {\
	if ($8 > $7*.371) {\
		print "demob "$1" "int($8-$7*.371)" y\n"\
		$7 = $7+int($8-$7*.371)\
	}\
}\
NF==16 && maxciv[$1] > 0 && $NF == "100%" && P[$1]!=1{\
	mv = $7-maxciv[$1]\
	if(pathmob[$1]>0) {\
		ml = int(($4-minmob[$1])/pathmob[$1])*5\
		if (ml < mv) mv = ml\
	}\
	if(mv >30) print "move civ "$1" "mv" v"path[$1]"h\n"\
}\
END	{\
}' $movedata $plague $census
# print "sr "$1" max:" maxciv[$1] " path: "path[$1]" mv: "mv" pmob: " pathmob[$1]" minmb: "minmob[$1]" mob: "$4" ml:" ml" civ" $7\
#
