blob: 349f2bc247aab38a7c8da0443c2cd3f308898747 (
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()
NormalCommand()
End If
End Sub
End Module
|
