Imports System.Collections
Module ThePizzaEmporium
    Sub Main()
 
        Dim myspecial As ArrayList = New ArrayList
 
 
        ''sizes:  s = small, m = medium, l = large, slice = slice
        Dim myPizza As New pizza
        myPizza.mSize = "slice"
        myPizza.pizzaTopping = 2
        ' myPizza.calculateFee()
 
        Console.WriteLine(myPizza.TellAboutSelf)
 
        Dim shirt As New nonFoodProduct
        shirt.mSize = "s"
        shirt.Color = "pink"
        'shirt.calculateFee()
 
        Console.WriteLine(shirt.TellAboutSelf)
 
        Dim mySoda As New drinks
        mySoda.drinkType = "diet pepsi"
        mySoda.Size = "l"
        'mySoda.calculateFee()
 
        Console.WriteLine(mySoda.TellAboutSelf)
 
 
 
        Dim mySalad As New salad
        'mySalad.saladType = "salad bar"
        mySalad.Size = "single"
        'mySalad.calculateFee()
 
        Console.WriteLine(mySalad.TellAboutSelf)
 
 
        ''I DON'T KNOW WHAT TO DO W/THE ARRAYLIST OR HOW TO PUT ITEMS IN IT
 
        Dim dealItem1 As New pizza
        dealItem1.pizzaTopping = 1
        dealItem1.mSize = "slice"
 
        Dim dealItem2 As New drinks
        dealItem2.mSize = "l"
        dealItem2.drinkType = "diet pepsi"
 
        myspecial.Add(dealItem1)
        myspecial.Add(dealItem2)
 
 
 
 
        myspecial.Add(myPizza)
        myspecial.Add(mySalad)
        myspecial.Add(mySoda)
 
        For i As Integer = 0 To 4
            Console.WriteLine(myspecial.Item(i).tellaboutself)
 
        Next
 
 
 
        For i As Integer = 1 To 5
            ''IT DOESN'T LIKE THIS CTYPE 
            Dim currentMeal As special = CType(myspecial.Item(i), special) ' as special
 
 
 
            currentMeal.AddToSpecialMealDeal(myspecial.Item(i))
            currentMeal.calculateFee()
            currentMeal.TellAboutSelf()
            Console.WriteLine(currentMeal.TellAboutSelf())
 
        Next
 
 
    End Sub
 
End Module

Imports System.Collections
Public Class special
    Inherits Product
 
    ''array to hold individual objects of a special meal deal
    Public mSpecialMeal As ArrayList = New ArrayList
    ''adding product item (drink, pizza slice, single salad) to arraylist
    Public Sub AddToSpecialMealDeal(ByVal Product As System.Object)
 
        Dim newItem As special = CType(Product, special)
        mSpecialMeal.Add(newItem)
 
 
    End Sub
    Public ReadOnly Property MealDeal()
        Get
            Return mSpecialMeal
 
        End Get
    End Property
 
    Public Overrides Function TellAboutSelf() As String
        ''want to return specific items in the specfic special order or meal deal
        Dim mealDealInfo As String = ""
        For i As Integer = 0 To mSpecialMeal.Count - 1
            Dim current As special = CType(mSpecialMeal.Item(i), special)
            mealDealInfo &= current.TellAboutSelf
        Next
        Return mealDealInfo
 
 
 
    End Function
 
    Public Overrides Function calculateFee() As Double
 
        Dim mealDealPrice As Double = 0
        For i As Integer = 0 To mSpecialMeal.Count - 1
            Dim current As special = CType(mSpecialMeal.Item(i), special)
            mealDealPrice += current.Price
 
        Next
        Return mealDealPrice
 
    End Function
 
 
End Class