mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-08-14 06:18:36 +02:00
27 lines
1.0 KiB
VB.net
27 lines
1.0 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptComparer
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the <radio> constructs.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Function DoRadio(ByVal subClass As String) As Object
|
|
Dim command As String = GetSubClassArgumentPair(subClass).Command
|
|
Dim argument As String = GetSubClassArgumentPair(subClass).Argument
|
|
|
|
Select Case command.ToLower(Globalization.CultureInfo.InvariantCulture)
|
|
Case "currentchannel"
|
|
If Screen.Level.SelectedRadioStation Is Nothing Then
|
|
Return ""
|
|
Else
|
|
Return Screen.Level.SelectedRadioStation.Name
|
|
End If
|
|
End Select
|
|
|
|
Return DEFAULTNULL
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |