'~ "Object-Oriented" 99Bob in VBScript.
'~ Bruce M. Axtens, 2005-09-29.
'~ http://codeaholic.blogspot.com

'2nd version. Wanting to say "one" or "it" complicated matters a bit.

option explicit

class wall
    private numBottles
    
    private sub class_initialize()
        numBottles = 99
    end sub
    
    public function Count()
        Count = numBottles
    end function
    
    public sub takeOneDown()
        numBottles = numBottles - 1
    end sub
    
    public function bottlesOfBeer()
        bottlesOfBeer = plurals( numBottles ) & " of beer"
    end function
    
    private function plurals( nu