mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
493 lines
29 KiB
VB.net
493 lines
29 KiB
VB.net
Module Shiftoriums
|
|
Public prompt As String
|
|
|
|
Public Sub Shiftorium_ListFeatures()
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
|
|
If Strings.AvailableFeature(11) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(key | 5 CP) ShiftOS Key"
|
|
Else
|
|
If Strings.AvailableFeature(0) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(man | 10 CP) ShiftOS Help Manual"
|
|
Else
|
|
If Strings.AvailableFeature(19) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(username | 15 CP) Custom Username"
|
|
End If
|
|
If Strings.AvailableFeature(20) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(hostname | 15 CP) Custom hostname"
|
|
End If
|
|
End If
|
|
If Strings.AvailableFeature(1) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(clear | 20 CP) Clear Terminal Screen"
|
|
Else
|
|
If Strings.AvailableFeature(2) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(print | 25 CP) Print Terminal Screen"
|
|
Else
|
|
If Strings.AvailableFeature(3) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(termdspdrv | 40 CP) Terminal Display Driver"
|
|
Else
|
|
If Strings.AvailableFeature(4) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(infobar | 50 CP) Terminal InfoBar"
|
|
End If
|
|
If Strings.AvailableFeature(8) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(shiftfetch | 55 CP) Shiftfetch"
|
|
End If
|
|
If Strings.AvailableFeature(10) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(2bitcolor | 60 CP) 2-bit Color Support"
|
|
Else
|
|
If Strings.AvailableFeature(13) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rgb | 70 CP) Red, Green, and Blue"
|
|
Else
|
|
If Strings.AvailableFeature(14) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rgb2 | 75 CP) RGB Variant"
|
|
Else
|
|
If Strings.AvailableFeature(15) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(4bitcolor | 80 CP) 4-bit Color Support"
|
|
Else
|
|
If Strings.AvailableFeature(16) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(romdriver | 90 CP) Terminal Read-Only Memory Support"
|
|
Else
|
|
If Strings.AvailableFeature(17) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(textpad | 100 CP) TextPad"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
If Strings.AvailableFeature(18) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(shiftkey | 45 CP) ShiftKey"
|
|
End If
|
|
If Strings.AvailableFeature(21) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rev | 30 CP) Reverse String"
|
|
Else
|
|
If Strings.AvailableFeature(22) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(cowsay | 50 CP) Cowsay"
|
|
End If
|
|
End If
|
|
End If
|
|
If Strings.AvailableFeature(5) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(stime | 10 CP) Time by Seconds"
|
|
Else
|
|
If Strings.AvailableFeature(6) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(mtime | 20 CP) Time by Minutes"
|
|
Else
|
|
If Strings.AvailableFeature(7) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(htime | 30 CP) Time by Hours"
|
|
Else
|
|
If Strings.AvailableFeature(12) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(pmam | 40 CP) PM and AM"
|
|
Else
|
|
If Strings.AvailableFeature(23) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(hhmm | 50 CP) Time by Hours and Minutes"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
If Strings.AvailableFeature(9) = "0" Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(bc | 55 CP) Basic Calculator"
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub Shiftorium_InformationFeatures()
|
|
'ManHeader is for the ShiftOS Help Manual header and the 'Cost' footer, kinda like template-ish
|
|
Dim ManHeader(1) As String
|
|
'ManHeader(0) = Insert any feature here for the Case prompt
|
|
ManHeader(1) = "Cost: "
|
|
Select Case prompt
|
|
Case "man"
|
|
If Strings.AvailableFeature(0) = "0" Then
|
|
ManHeader(0) = "ShiftOS Help Manual (command: man)"
|
|
ManHeader(1) = "10 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows up any further help instruction on each command, its corresponding action and its example if necessary" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "clear"
|
|
If Strings.AvailableFeature(1) = "0" Then
|
|
ManHeader(0) = "Clear Terminal Screen (command: clear)"
|
|
ManHeader(1) = "20 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "print"
|
|
If Strings.AvailableFeature(2) = "0" Then
|
|
ManHeader(0) = "Print Command (command: print)"
|
|
ManHeader(1) = "25 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Prints a corresponding text entered in the command" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "termdspdrv"
|
|
If Strings.AvailableFeature(3) = "0" Then
|
|
ManHeader(0) = "Terminal Display Driver"
|
|
ManHeader(1) = "40 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Display driver for ShiftOS' Terminal to utilize advantages such as Infobar, ASCII-based applications" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "infobar"
|
|
If Strings.AvailableFeature(4) = "0" Then
|
|
ManHeader(0) = "Terminal InfoBar"
|
|
ManHeader(1) = "50 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Panel bar at the bottom of the terminal to display basic informations" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "stime"
|
|
If Strings.AvailableFeature(5) = "0" Then
|
|
ManHeader(0) = "Time by Seconds"
|
|
ManHeader(1) = "10 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in seconds form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "stime"
|
|
If Strings.AvailableFeature(6) = "0" Then
|
|
ManHeader(0) = "Time by Minutes"
|
|
ManHeader(1) = "20 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in minutes form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "htime"
|
|
If Strings.AvailableFeature(7) = "0" Then
|
|
ManHeader(0) = "Time by Hours"
|
|
ManHeader(1) = "30 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in hours form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "shiftfetch"
|
|
If Strings.AvailableFeature(8) = "0" Then
|
|
ManHeader(0) = "Shiftfetch"
|
|
ManHeader(1) = "55 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS port of Neofetch, A command-line system information tool" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "bc"
|
|
If Strings.AvailableFeature(9) = "0" Then
|
|
ManHeader(0) = "Basic Calculator"
|
|
ManHeader(1) = "55 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Basic Calculator for simple calculation" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "2bitcolor"
|
|
If Strings.AvailableFeature(10) = "0" Then
|
|
ManHeader(0) = "2-bit Color Support"
|
|
ManHeader(1) = "60 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds 2 colours (Dark Gray, Light Gray) supports to the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "key"
|
|
If Strings.AvailableFeature(11) = "0" Then
|
|
ManHeader(0) = "ShiftOS Key"
|
|
ManHeader(1) = "5 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "An encryption key to unlock advanced terminal feature for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "pmam"
|
|
If Strings.AvailableFeature(12) = "0" Then
|
|
ManHeader(0) = "PM and AM"
|
|
ManHeader(1) = "40 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in PM and AM format" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "rgb"
|
|
If Strings.AvailableFeature(13) = "0" Then
|
|
ManHeader(0) = "Red, Green, and Blue"
|
|
ManHeader(1) = "70 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds Red, Green, and Blue support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "rgb2"
|
|
If Strings.AvailableFeature(14) = "0" Then
|
|
ManHeader(0) = "RGB Variant"
|
|
ManHeader(1) = "75 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds lighter or darker variant of Red, Green, and Blue" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "4bitcolor"
|
|
If Strings.AvailableFeature(15) = "0" Then
|
|
ManHeader(0) = "4-bit Color Display"
|
|
ManHeader(1) = "80 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds to 16 colours support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "romdriver"
|
|
If Strings.AvailableFeature(16) = "0" Then
|
|
ManHeader(0) = "Terminal Read-Only Memory Driver"
|
|
ManHeader(1) = "90 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS Read-Only Memory support for ShiftOS such as writing and reading permanent memory such as HDD, SDD, etc." & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "textpad"
|
|
If Strings.AvailableFeature(17) = "0" Then
|
|
ManHeader(0) = "TextPad"
|
|
ManHeader(1) = "100 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "A simple text-editor for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "shiftkey"
|
|
If Strings.AvailableFeature(18) = "0" Then
|
|
ManHeader(0) = "ShiftKey"
|
|
ManHeader(1) = "45 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Recall the previous command on terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "username"
|
|
If Strings.AvailableFeature(19) = "0" Then
|
|
ManHeader(0) = "Custom Username"
|
|
ManHeader(1) = "15 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom username for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "hostname"
|
|
If Strings.AvailableFeature(20) = "0" Then
|
|
ManHeader(0) = "Custom Hostname"
|
|
ManHeader(1) = "15 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom hostname/computer name for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "rev"
|
|
If Strings.AvailableFeature(21) = "0" Then
|
|
ManHeader(0) = "Reverse String"
|
|
ManHeader(1) = "30 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Reverse any text you entered in the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "cowsay"
|
|
If Strings.AvailableFeature(22) = "0" Then
|
|
ManHeader(0) = "Cowsay"
|
|
ManHeader(1) = "50 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Make the ASCII cow say anything you want to" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case "hhmm"
|
|
If Strings.AvailableFeature(23) = "0" Then
|
|
ManHeader(0) = "Time by Hours and Minutes"
|
|
ManHeader(1) = "50 CP"
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in Hours and Minutes format" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
|
Console.BadCommand = False
|
|
End If
|
|
Case Else
|
|
Console.BadCommand = False
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
|
|
End Select
|
|
End Sub
|
|
|
|
Public Sub Shiftorium_DetectInstallFeatures()
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Installing feature..."
|
|
Select Case prompt
|
|
Case "man"
|
|
Shiftorium_InstallFeatures(True, "man", 0, 10)
|
|
Console.BadCommand = False
|
|
Case "clear"
|
|
Shiftorium_InstallFeatures(True, "clear", 1, 20)
|
|
Console.BadCommand = False
|
|
Case "print"
|
|
Shiftorium_InstallFeatures(True, "print", 2, 25)
|
|
Console.BadCommand = False
|
|
Case "termdspdrv"
|
|
Shiftorium_InstallFeatures(True, "termdspdrv", 3, 40)
|
|
Console.BadCommand = False
|
|
Case "infobar"
|
|
Shiftorium_InstallFeatures(True, "infobar", 4, 50)
|
|
Console.BadCommand = False
|
|
Case "stime"
|
|
Shiftorium_InstallFeatures(True, "stime", 5, 10)
|
|
Console.BadCommand = False
|
|
Case "mtime"
|
|
Shiftorium_InstallFeatures(True, "mtime", 6, 20)
|
|
Console.BadCommand = False
|
|
Case "htime"
|
|
Shiftorium_InstallFeatures(True, "htime", 7, 30)
|
|
Console.BadCommand = False
|
|
Case "shiftfetch"
|
|
Shiftorium_InstallFeatures(True, "shiftfetch", 8, 55)
|
|
Console.BadCommand = False
|
|
Case "bc"
|
|
Shiftorium_InstallFeatures(True, "bc", 9, 55)
|
|
Console.BadCommand = False
|
|
Case "2bitcolor"
|
|
Shiftorium_InstallFeatures(True, "2bitcolor", 10, 60)
|
|
Console.BadCommand = False
|
|
Case "key"
|
|
Shiftorium_InstallFeatures(True, "key", 11, 5)
|
|
Console.BadCommand = False
|
|
Case "pmam"
|
|
Shiftorium_InstallFeatures(True, "pmam", 12, 40)
|
|
Console.BadCommand = False
|
|
Case "rgb"
|
|
Shiftorium_InstallFeatures(True, "rgb", 13, 70)
|
|
Console.BadCommand = False
|
|
Case "rgb2"
|
|
Shiftorium_InstallFeatures(True, "rgb2", 14, 75)
|
|
Console.BadCommand = False
|
|
Case "4bitcolor"
|
|
Shiftorium_InstallFeatures(True, "4bitcolor", 15, 80)
|
|
Console.BadCommand = False
|
|
Case "romdriver"
|
|
Shiftorium_InstallFeatures(True, "romdriver", 16, 90)
|
|
Console.BadCommand = False
|
|
Case "textpad"
|
|
Shiftorium_InstallFeatures(True, "textpad", 17, 100)
|
|
Console.BadCommand = False
|
|
Case "shiftkey"
|
|
Shiftorium_InstallFeatures(True, "shiftkey", 18, 45)
|
|
Console.BadCommand = False
|
|
Case "username"
|
|
Shiftorium_InstallFeatures(True, "username", 19, 15)
|
|
Console.BadCommand = False
|
|
Case "hostname"
|
|
Shiftorium_InstallFeatures(True, "hostname", 20, 15)
|
|
Console.BadCommand = False
|
|
Case "rev"
|
|
Shiftorium_InstallFeatures(True, "rev", 21, 30)
|
|
Console.BadCommand = False
|
|
Case "cowsay"
|
|
Shiftorium_InstallFeatures(True, "cowsay", 22, 50)
|
|
Console.BadCommand = False
|
|
Case "hhmm"
|
|
Shiftorium_InstallFeatures(True, "hhmm", 23, 50)
|
|
Console.BadCommand = False
|
|
Case Else
|
|
Console.BadCommand = False
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
|
|
End Select
|
|
End Sub
|
|
|
|
Public Sub Shiftorium_InstallFeatures(IsCLI As Boolean, Feature As String, FeatureRow As Integer, Codepoint As Integer)
|
|
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
|
|
Select Case Strings.AvailableFeature(FeatureRow)
|
|
Case "0"
|
|
If TempCP >= Codepoint Then
|
|
Dim success As Boolean = False
|
|
Select Case Feature
|
|
Case "man"
|
|
Strings.AvailableFeature(0) = "1"
|
|
Strings.AvailableFeature(19) = "0"
|
|
Strings.AvailableFeature(20) = "0"
|
|
success = True
|
|
Case "clear"
|
|
Strings.AvailableFeature(1) = "1"
|
|
Strings.AvailableFeature(2) = "0"
|
|
Strings.AvailableFeature(5) = "0"
|
|
Strings.AvailableFeature(9) = "0"
|
|
success = True
|
|
Case "print"
|
|
Strings.AvailableFeature(2) = "1"
|
|
Strings.AvailableFeature(3) = "0"
|
|
Strings.AvailableFeature(18) = "0"
|
|
Strings.AvailableFeature(21) = "0"
|
|
success = True
|
|
Case "termdspdrv"
|
|
Strings.AvailableFeature(3) = "1"
|
|
Strings.AvailableFeature(4) = "0"
|
|
Strings.AvailableFeature(8) = "0"
|
|
Strings.AvailableFeature(10) = "0"
|
|
success = True
|
|
Case "infobar"
|
|
Strings.AvailableFeature(4) = "1"
|
|
success = True
|
|
Case "stime"
|
|
Strings.AvailableFeature(5) = "1"
|
|
Strings.AvailableFeature(6) = "0"
|
|
success = True
|
|
Case "mtime"
|
|
Strings.AvailableFeature(5) = "3"
|
|
Strings.AvailableFeature(6) = "1"
|
|
Strings.AvailableFeature(7) = "0"
|
|
success = True
|
|
Case "htime"
|
|
Strings.AvailableFeature(6) = "3"
|
|
Strings.AvailableFeature(7) = "1"
|
|
Strings.AvailableFeature(12) = "0"
|
|
success = True
|
|
Case "shiftfetch"
|
|
Strings.AvailableFeature(8) = "1"
|
|
success = True
|
|
Case "bc"
|
|
Strings.AvailableFeature(9) = "1"
|
|
success = True
|
|
Case "2bitcolor"
|
|
Strings.AvailableFeature(10) = "1"
|
|
Strings.AvailableFeature(13) = "0"
|
|
success = True
|
|
Case "key"
|
|
Strings.AvailableFeature(11) = "1"
|
|
Strings.AvailableFeature(0) = "0"
|
|
Strings.AvailableFeature(1) = "0"
|
|
success = True
|
|
Case "pmam"
|
|
Strings.AvailableFeature(7) = "3"
|
|
Strings.AvailableFeature(12) = "1"
|
|
Strings.AvailableFeature(23) = "0"
|
|
success = True
|
|
Case "rgb"
|
|
Strings.AvailableFeature(13) = "1"
|
|
Strings.AvailableFeature(14) = "0"
|
|
success = True
|
|
Case "rgb2"
|
|
Strings.AvailableFeature(14) = "1"
|
|
Strings.AvailableFeature(15) = "0"
|
|
success = True
|
|
Case "4bitcolor"
|
|
Strings.AvailableFeature(15) = "1"
|
|
Strings.AvailableFeature(16) = "0"
|
|
success = True
|
|
Case "romdriver"
|
|
Strings.AvailableFeature(16) = "1"
|
|
Strings.AvailableFeature(17) = "0"
|
|
success = True
|
|
Case "textpad"
|
|
Strings.AvailableFeature(17) = "1"
|
|
success = True
|
|
Case "shiftkey"
|
|
Strings.AvailableFeature(18) = "1"
|
|
success = True
|
|
Case "username"
|
|
Strings.AvailableFeature(19) = "1"
|
|
success = True
|
|
Case "hostname"
|
|
Strings.AvailableFeature(20) = "1"
|
|
success = True
|
|
Case "rev"
|
|
Strings.AvailableFeature(21) = "1"
|
|
Strings.AvailableFeature(22) = "0"
|
|
success = True
|
|
Case "cowsay"
|
|
Strings.AvailableFeature(22) = "1"
|
|
Case "hhmm"
|
|
Strings.AvailableFeature(12) = "3"
|
|
Strings.AvailableFeature(23) = "1"
|
|
success = True
|
|
End Select
|
|
If success = False Then
|
|
If IsCLI = True Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Invalid command or feature already installed"
|
|
End If
|
|
Else
|
|
Strings.ComputerInfo(4) = Strings.ComputerInfo(4) + 1
|
|
TempCP = TempCP - Codepoint
|
|
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
|
|
If IsCLI = True Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Feature has been install succesfully"
|
|
End If
|
|
End If
|
|
Else
|
|
If IsCLI = True Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint"
|
|
End If
|
|
End If
|
|
Case "1"
|
|
If IsCLI = True Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature has already been installed"
|
|
End If
|
|
Case "2"
|
|
If IsCLI = True Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is not available"
|
|
End If
|
|
Case "3"
|
|
If IsCLI = True Then
|
|
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is already upgraded to a newer one"
|
|
End If
|
|
End Select
|
|
End Sub
|
|
End Module
|