mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
finished shiftorium
This commit is contained in:
EverythingWindows
parent
f8fc91385f
commit
0f683e5c35
5 changed files with 125 additions and 47 deletions
|
|
@ -34,6 +34,8 @@ Public Class ShiftOSMenu
|
||||||
Case "Free Roam Mode"
|
Case "Free Roam Mode"
|
||||||
Try
|
Try
|
||||||
Strings.IsFree = True
|
Strings.IsFree = True
|
||||||
|
Strings.AvailableFeature(0) = "0"
|
||||||
|
Strings.AvailableFeature(1) = "0"
|
||||||
Terminal.Show()
|
Terminal.Show()
|
||||||
Close()
|
Close()
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
|
|
||||||
31
ShiftOS-TheRevival/MainForms/Shiftoriums.vb
Normal file
31
ShiftOS-TheRevival/MainForms/Shiftoriums.vb
Normal file
|
|
@ -0,0 +1,31 @@
|
||||||
|
Module Shiftoriums
|
||||||
|
Public Sub InstallFeature(IsCLI As Boolean, Feature As String, Codepoint As Integer)
|
||||||
|
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
|
||||||
|
If TempCP >= Codepoint Then
|
||||||
|
Dim success As Boolean = False
|
||||||
|
Select Case Feature
|
||||||
|
Case "man"
|
||||||
|
Strings.AvailableFeature(0) = "1"
|
||||||
|
success = True
|
||||||
|
Case "clear"
|
||||||
|
Strings.AvailableFeature(1) = "1"
|
||||||
|
success = True
|
||||||
|
End Select
|
||||||
|
If success = False Then
|
||||||
|
If IsCLI = True Then
|
||||||
|
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Invalid command or feature already installed"
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
TempCP = TempCP - Codepoint
|
||||||
|
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
|
||||||
|
If IsCLI = True Then
|
||||||
|
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Feature has been install succesfully"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
If IsCLI = True Then
|
||||||
|
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
End Module
|
||||||
|
|
@ -38,6 +38,6 @@
|
||||||
'1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
|
'1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
|
||||||
'
|
'
|
||||||
'Features bought hierarchy :
|
'Features bought hierarchy :
|
||||||
'MAN (20 CP)
|
'ShiftOS Help Manual (MAN) (20 CP)
|
||||||
'CLEAR (25 CP)
|
'Terminal Clear (CLEAR) (25 CP)
|
||||||
End Class
|
End Class
|
||||||
|
|
|
||||||
|
|
@ -75,6 +75,11 @@
|
||||||
Case "guess"
|
Case "guess"
|
||||||
'AppHost("gtn")
|
'AppHost("gtn")
|
||||||
Undeveloped()
|
Undeveloped()
|
||||||
|
Case "gimme"
|
||||||
|
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
|
||||||
|
TempCP = TempCP + 50
|
||||||
|
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "you cheater!"
|
||||||
Case "help"
|
Case "help"
|
||||||
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine & Environment.NewLine & "You can type 'help' to get all available commands and its corresponding action."
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine & Environment.NewLine & "You can type 'help' to get all available commands and its corresponding action."
|
||||||
If Strings.AvailableFeature(0) = 1 Then
|
If Strings.AvailableFeature(0) = 1 Then
|
||||||
|
|
@ -117,6 +122,7 @@
|
||||||
|
|
||||||
If AdvancedCommand = True Then
|
If AdvancedCommand = True Then
|
||||||
If command Like "man *" Then
|
If command Like "man *" Then
|
||||||
|
If Strings.AvailableFeature(0) = "1" Then
|
||||||
'MAN command starts with this kinda format
|
'MAN command starts with this kinda format
|
||||||
'ShiftOS Help Manual
|
'ShiftOS Help Manual
|
||||||
'
|
'
|
||||||
|
|
@ -157,18 +163,56 @@
|
||||||
Case Else
|
Case Else
|
||||||
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
|
||||||
End Select
|
End Select
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
If command Like "shiftorium *" Then
|
If command Like "shiftorium *" Then
|
||||||
Dim prompt As String = command.Replace("shiftorium ", "")
|
Dim prompt As String = command.Replace("shiftorium ", "")
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center"
|
||||||
If prompt Like "info *" Then
|
If prompt Like "info *" Then
|
||||||
|
prompt = command.Replace("shiftorium info ", "")
|
||||||
|
'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"
|
||||||
|
ManHeader(0) = "ShiftOS Help Manual (command: man)"
|
||||||
|
ManHeader(1) = "20 CP"
|
||||||
|
TextBox1.Text = 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)
|
||||||
|
BadCommand = False
|
||||||
|
Case "clear"
|
||||||
|
ManHeader(0) = "Clear Terminal Screen (command: clear)"
|
||||||
|
ManHeader(1) = "25 CP"
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1)
|
||||||
|
BadCommand = False
|
||||||
|
Case Else
|
||||||
|
BadCommand = False
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
|
||||||
|
End Select
|
||||||
End If
|
End If
|
||||||
If prompt Like "install *" Then
|
If prompt Like "install *" Then
|
||||||
|
prompt = command.Replace("shiftorium install ", "")
|
||||||
|
Select Case prompt
|
||||||
|
Case "man"
|
||||||
|
InstallFeature(True, "man", 20)
|
||||||
|
BadCommand = False
|
||||||
|
Case "clear"
|
||||||
|
InstallFeature(True, "clear", 25)
|
||||||
|
BadCommand = False
|
||||||
|
Case Else
|
||||||
|
BadCommand = False
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
|
||||||
|
End Select
|
||||||
End If
|
End If
|
||||||
If prompt = "list" Then
|
If prompt = "list" Then
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
|
||||||
|
If Strings.AvailableFeature(0) = "0" Then
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual (20 CP)"
|
||||||
|
End If
|
||||||
|
If Strings.AvailableFeature(1) = "0" Then
|
||||||
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Clear Terminal Screen (25 CP)"
|
||||||
|
End If
|
||||||
|
BadCommand = False
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
If command Like "print *" Then
|
If command Like "print *" Then
|
||||||
|
|
|
||||||
|
|
@ -99,6 +99,7 @@
|
||||||
<Compile Include="MainForms\BugSlap.vb">
|
<Compile Include="MainForms\BugSlap.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
|
<Compile Include="MainForms\Shiftoriums.vb" />
|
||||||
<Compile Include="MainForms\ShiftOSMenu.vb">
|
<Compile Include="MainForms\ShiftOSMenu.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue