blob: 47fecd1d58f454b94ebe8060c62ad9d7f8c351ef (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Module Com_Shiftorium
Public Sub Shiftorium()
Dim prompt As String = command.Replace("shiftorium ", "")
NewLine("Shiftorium ShiftOS Center")
If prompt Like "info *" Then
Shiftoriums.prompt = command.Replace("shiftorium info ", "")
Shiftorium_InformationFeatures()
End If
If prompt Like "install *" Then
Shiftoriums.prompt = command.Replace("shiftorium install ", "")
Shiftorium_DetectInstallFeatures()
End If
If prompt = "list" Then
Shiftorium_ListFeatures()
Console.BadCommand = False
End If
End Sub
End Module
|
