shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 11:21:47 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Integrating Chapter 2 into the game and minor changes to check the story

Browse source
This commit is contained in:
EverythingWindows 2022-11-23 21:30:54 +07:00
parent 2c4952012f
commit 537ba4982e
10 changed files with 110 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
ShiftOS-TheRevival/API/ConsoleAPI.vb
View file

@ -1,4 +1,5 @@
Module ConsoleAPI
Public StayAtChapter As Boolean = False 'If this set to true, then intro for chapters are mostly going to be in
Public Sub Console_Windowed()
Console.WindowState = FormWindowState.Normal

53
ShiftOS-TheRevival/API/TerminalAPI.vb
View file

@ -7,11 +7,11 @@ Module TerminalAPI
Public IsConsoleParent As Boolean
Public Sub InitializeTerminal()
Strings.OnceInfo(1) = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS"
Strings.OnceInfo(4) = "!"
If IsConsoleParent = True Then
Console.TopMost = False
Cursor.Hide()
Strings.OnceInfo(1) = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS"
Strings.OnceInfo(4) = "!"
Strings.OnceInfo(7) = Console.Width
Strings.OnceInfo(8) = Console.Height
If Strings.IsFree = True Then
@ -22,22 +22,33 @@ Module TerminalAPI
Terminal_PrintPrompt()
Terminal_AssignPrompt()
Else
If Console.StayAtChapter = True Then
If StayAtChapter = True Then
LoadGame()
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
Else
If Strings.ComputerInfo(3) = "0" Then
Console.TextBox1.ReadOnly = True
Console.StayAtChapter = True
Console.StoryOnlyTimer.Start()
CheckNextChapterEligibility()
If NextChapter = True Then
StayAtChapter = False
InitializeTerminal()
Else
LoadGame()
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
End If
Else
Select Case Strings.ComputerInfo(3)
Case 0
Console.TextBox1.ReadOnly = True
StayAtChapter = True
Console.StoryOnlyTimer.Start()
Case 1
Console.TextBox1.ReadOnly = True
StayAtChapter = True
Console.StoryOnlyTimer.Start()
Case Else
LoadGame()
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
End Select
End If
End If
Else
@ -282,15 +293,21 @@ Module TerminalAPI
Case "shutdown", "shut down"
TerminateShiftOS()
Case "startg"
Undeveloped()
If IsStartG = False Then
StartG()
If Strings.AvailableFeature(35) = 1 Then
If IsStartG = False Then
StartG()
AdvancedCommand = False
NormalCommand()
End If
End If
Case "stopg"
If IsStartG = True Then
StopG()
If Strings.AvailableFeature(35) = 1 Then
If IsStartG = True Then
StopG()
AdvancedCommand = False
NormalCommand()
End If
End If
Undeveloped()
Case "textpad"
If Strings.AvailableFeature(17) = "1" Then
TextPad_WarnFile()

25
ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
View file

@ -1,4 +1,18 @@
Module IntroStoryTell
Public NextChapter As Boolean
Public Sub CheckNextChapterEligibility()
Select Case Strings.ComputerInfo(3)
Case 0
If Strings.ComputerInfo(4) = 35 Then
Strings.ComputerInfo(3) = 1
NextChapter = True
Else
NextChapter = False
End If
End Select
End Sub
Public Sub StoryLineIntro(Timestamp As Integer)
Select Case Strings.ComputerInfo(3)
Case 0
@ -65,6 +79,17 @@
NewLine("<null> : Once you able to afford it and installing it, there's a guide to use the window manager")
Case 600
NewLine("<null> : Alright, I gotta go now and see you in the next progress.")
Case 630
NewLine("<null> Disconnected")
Case 675
Console.StoryOnlyTimer.Stop()
Console.TextBox1.Text = Nothing
Console.TextBox1.ReadOnly = False
Strings.AvailableFeature(35) = 0
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
TextRebind()
End Select
End Select
End Sub

9
ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
View file

@ -3,7 +3,7 @@
Public Shared ComputerInfo(7) As String
Public Shared IsFree As Boolean
Public Shared OnceInfo(8) As String
Public Shared AvailableFeature(35) As String
Public Shared AvailableFeature(37) As String
Public Shared CLIInterpreter As String
Public Shared SaveFile As String
Public Shared Achievement As String
@ -50,6 +50,8 @@
'7 = Window Manager (0.2.7) (default : 0)
'
'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1, Unavailable in the Shiftorium assigned as 2, Upgraded assigned as 3) Strings:
'Chapter 1
'
'0 = MAN command [Manual on each command] (0.2) (default : 0)
'1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
'2 = PRINT command [Printing a string] (0.2.2) (default : 0)
@ -86,6 +88,10 @@
'33 = Unzip command [Ability to extract file in a zip file] (default : 0)
'34 = MathQuiz [Simple arithmatical question game to get codepoint] (default : 0)
'
'Chapter 2 for ShiftOS
'35 = Dual Window Manager [Simple Window Manager for ShiftOS] (default : 0)
'36 = Shifter [Customization program for ShiftOS, DuWM version] (default : 0)
'
'Features bought hierarchy :
'
'Chapter 1:
@ -128,7 +134,6 @@
'
'Chpater 2:
'>Dual Window Manager (200 CP)
'>>Console Scrollbra (200 CP)
'>>DuWM RGB Support (225 CP)
'>>>DuWM 16 Colors Support (275 CP)
'>>Shifter (250 CP)

24
ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
View file

@ -6,6 +6,7 @@
'Only AvailableFeature that are in the value of 0 can be displayed in the list
NewLine("Shiftorium Available Feature(s)")
NewLine(Nothing)
'This is for Chapter 1 features of ShiftOS
If Strings.AvailableFeature(11) = 0 Then
NewLine("(key | 5 CP) ShiftOS Key")
Else
@ -134,6 +135,10 @@
End If
End If
End If
'This is for Chapter 2 packages for ShiftOS
If Strings.AvailableFeature(35) = 0 Then
NewLine("(duwm | 200 CP) Dual Window Manager")
End If
End Sub
Public Sub Shiftorium_InformationFeatures()
@ -435,6 +440,17 @@
NewLine(ManHeader(1))
NormalCommand()
End If
Case "duwm"
If Strings.AvailableFeature(35) = 0 Then
ManHeader(0) = "Dual Window Manager"
ManHeader(1) = "200 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Simple tiling window manager for ShiftOS")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case Else
NormalCommand()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@ -549,6 +565,10 @@
Case "mathquiz"
Shiftorium_InstallFeatures(True, "mathquiz", 34, 60)
NormalCommand()
'Chapter 2 packages
Case "duwm"
Shiftorium_InstallFeatures(True, "duwm", 35, 200)
NormalCommand()
Case Else
NormalCommand()
NewLine("Shiftorium: Bad command or not available")
@ -712,6 +732,10 @@
Case "mathquiz"
Strings.AvailableFeature(34) = "1"
success = True
'Chapter 2 packages
Case "duwm"
Strings.AvailableFeature(35) = "1"
success = True
End Select
If success = False Then
If IsCLI = True Then

1
ShiftOS-TheRevival/MainForms/Applications/Console.vb
View file

@ -11,7 +11,6 @@ Public Class Console
Public CurrentInterpreter As String 'Shows what program is using Console
Public CurrentDirectory As String 'Current Directory for ShiftOS Explorer
Public Pseudodir As String 'Pseudo-directory for ShiftFS
Public StayAtChapter As Boolean = False 'If this set to true, then intro for chapters are mostly going to be in
Public ToolBarUse As Boolean = False 'Either any program is using ToolBar or not
Public ReleaseCursor As Boolean = False 'Release cursor from TrackPos
Public ShOSKey As String 'DOSKEY tracking string for ShiftOS

8
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb generated
View file

@ -52,6 +52,7 @@ Partial Class Uni_KnowledgeInput
Me.cmb_Category.Name = "cmb_Category"
Me.cmb_Category.Size = New System.Drawing.Size(266, 31)
Me.cmb_Category.TabIndex = 1
Me.cmb_Category.Text = "Select Category"
'
'Panel1
'
@ -66,14 +67,19 @@ Partial Class Uni_KnowledgeInput
'
'txt_InputWord
'
Me.txt_InputWord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt_InputWord.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txt_InputWord.Location = New System.Drawing.Point(302, 74)
Me.txt_InputWord.Location = New System.Drawing.Point(292, 73)
Me.txt_InputWord.Name = "txt_InputWord"
Me.txt_InputWord.Size = New System.Drawing.Size(470, 30)
Me.txt_InputWord.TabIndex = 2
'
'lst_Guessed
'
Me.lst_Guessed.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lst_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.lst_Guessed.FormattingEnabled = True
Me.lst_Guessed.ItemHeight = 23

14
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb
View file

@ -1,13 +1,15 @@
Public Class Uni_KnowledgeInput
Dim PrevWidthTxt_InputWord As Integer
Dim PrevWidthTxt_InputWord As Integer = 470
Private Sub Uni_KnowledgeInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PrevWidthTxt_InputWord = txt_InputWord.Width
cmb_Category.Items.Remove("Animals")
End Sub
Private Sub Uni_KnowledgeInput_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
'Dim Txt_InputTextWidthRatio As Double = (txt_InputWord.Width / PrevWidthTxt_InputWord)
'txt_InputWord.Width = txt_InputWord.Width * Txt_InputTextWidthRatio
'PrevWidthTxt_InputWord = txt_InputWord.Width
Private Sub txt_InputWord_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_InputWord.KeyDown
Select Case e.KeyCode
Case Keys.Enter
lst_Guessed.Items.Add(txt_InputWord.Text)
txt_InputWord.Text = Nothing
End Select
End Sub
End Class

4
ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
View file

@ -28,6 +28,7 @@ Public Class ShiftOSMenu
Try
Strings.IsFree = True
Strings.OnceInfo(6) = "free"
IsConsoleParent = True
FreeRoamMode()
Console.Show()
Close()
@ -40,7 +41,8 @@ Public Class ShiftOSMenu
Case "Continue"
Strings.IsFree = False
Strings.OnceInfo(6) = "story"
Console.StayAtChapter = True
IsConsoleParent = True
StayAtChapter = True
Console.Show()
Close()
Case "No"

1
ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb
View file

@ -13,7 +13,6 @@
Strings.ProcessID(DuWM_PID) = 0
End If
If Strings.ProcessID(DuWM_PID) = 0 Then
'MsgBox(Convert.ToString(ChildForm))
DuWM_CurrentProcess = DuWM_CurrentProcess - 1
DuWM_ChangeLayout = True
DuWM_WMCheck.Stop()