TOOL.Category           = "Construction"
TOOL.Name           = "Radius Counter"
TOOL.Command        = nil
TOOL.ConfigName     = ""

function TOOL:LeftClick(tr)
    if !self.HitPoint then
        self.HitPoint=tr.HitPos
    else
        local dist=tr.HitPos:Distance(self.HitPoint)
        local count=0
        for _,e in pairs(ents.FindInSphere(tr.HitPos, dist)) do
            if e:GetClass()=="prop_physics" then
                count=count+1
            end
        end
        self:GetOwner():ChatPrint("Count: "..count)
        self.HitPoint=nil
    end
end