blob: c067125215fc5c0479efd6b702f9595262b9c5c0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Module Com_Infobar
Public Sub Infobar()
'Infobar panel-ish and some sort
Dim infobarcommand As String = command.Replace("infobar ", "")
Dim advancedtool As Boolean = True
Select Case infobarcommand
Case "on"
Strings.OnceInfo(2) = "True"
Console.CheckFeature()
Console.BadCommand = False
advancedtool = False
Case "off"
Strings.OnceInfo(2) = "False"
Console.CheckFeature()
Console.BadCommand = False
advancedtool = False
End Select
If advancedtool = True Then
If infobarcommand Like "color *" Then
GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1))
Console.BadCommand = False
End If
End If
End Sub
End Module
|
