Fixed R damage calculation