#!/bin/csh -f

#
# move ships in a drunkard's walk
#

if ($?EMPSHI) then
    set ship = $EMPSHI
else
    set ship = .ashi*
endif

set random = randnum		# random direction generation program

$random `cat $ship | wc -l` | cat - $ship | awk '\
/^[gyujnb]$/	{\
	rn[i++] = $1\
}\
$4 == "r" && $(NF-1) == 64	{\
	print "nav " $1 " " rn[--i] rn[i] rn[i] "h\n\n\n"\
}'
