function rate_of_fire(integer ctype)
atom rate
if sequence(object_delta(ctype,object_rateoffire)) then
rate= (0.0015 + ((client_list[1][client_stats][stat_dex][2] / 75) * (0.008 - 0.0015)))
return ((1 / rate) * (1 / real(object_delta(ctype,object_rateoffire))))
end if
end function
