#!/bin/csh
#
#	mobcost [ speed [ tech ] ]
#
#	Calculates mobility cost to move through sea, 0% road, or 100% sect
#	with a 100% unit or ship
#

if ($1) then
	set speed = $1
else
	set speed = 25
endif

if ($2) then
	set tech = $2
else
	set tech = 0
endif

@ mobcost = $speed * 50 + $speed * $tech
@ mobcost /= 200 + $tech
@ mobcost += $speed
@ mobcost = 48000 / $mobcost
@ intpart = $mobcost / 100
@ fracpart = $mobcost % 100

echo "Mobcost: " $intpart "." $fracpart
