Namespace ScriptVersion2

    Partial Class ScriptComparer

        ' --------------------------------------------------------------------------------------------------------------------------
        ' Contains the <environment> constructs.
        ' --------------------------------------------------------------------------------------------------------------------------

        Private Shared Function DoEnvironment(ByVal subClass As String) As Object
            Dim command As String = GetSubClassArgumentPair(subClass).Command
            Dim argument As String = GetSubClassArgumentPair(subClass).Argument

            Select Case command.ToLower()
                Case "daytime"
                    Return World.GetTime.ToString()
                Case "daytimeid"
                    Return int(CInt(World.GetTime)).ToString()
                Case "season"
                    Return World.CurrentSeason.ToString()
                Case "seasonid"
                    Return int(CInt(World.CurrentSeason)).ToString()
                Case "day"
                    Return My.Computer.Clock.LocalTime.DayOfWeek.ToString()
                Case "dayofyear"
                    Return My.Computer.Clock.LocalTime.DayOfYear().ToString()
                Case "dayinformation"
                    Return My.Computer.Clock.LocalTime.DayOfWeek.ToString() & "," & World.GetTime.ToString()
                Case "week"
                    Return World.WeekOfYear.ToString()
                Case "hour"
                    Return My.Computer.Clock.LocalTime.Hour.ToString()
                Case "year"
                    Return My.Computer.Clock.LocalTime.Year.ToString()
                Case "weather", "mapweather", "currentmapweather"
                    Return Screen.Level.World.CurrentMapWeather.ToString()
                Case "weatherid", "mapweatherid", "currentmapweatherid"
                    Return int(CInt(Screen.Level.World.CurrentMapWeather)).ToString()
                Case "regionweather"
                    Return World.GetCurrentRegionWeather().ToString()
                Case "regionweatherid"
                    Return int(CInt(World.GetCurrentRegionWeather())).ToString()
                Case "canfly"
                    Return ReturnBoolean(Screen.Level.CanFly)
                Case "candig"
                    Return ReturnBoolean(Screen.Level.CanDig)
                Case "canteleport"
                    Return ReturnBoolean(Screen.Level.CanTeleport)
                Case "wildpokemongrass"
                    Return ReturnBoolean(Screen.Level.WildPokemonGrass)
                Case "wildpokemonwater"
                    Return ReturnBoolean(Screen.Level.WildPokemonWater)
                Case "wildpokemoneverywhere"
                    Return ReturnBoolean(Screen.Level.WildPokemonFloor)
                Case "isdark"
                    Return ReturnBoolean(Screen.Level.IsDark)
            End Select

            Return DEFAULTNULL
        End Function

    End Class

End Namespace