diff options
| author | FloppyDiskDrive <[email protected]> | 2017-09-21 17:16:49 -0500 |
|---|---|---|
| committer | FloppyDiskDrive <[email protected]> | 2017-09-21 17:16:49 -0500 |
| commit | cf1bf85e01c8d99f052c09b72d2fb2bbbc0b99b0 (patch) | |
| tree | fe0d16447fab2a74b6161b4c981c036a93ed8239 /ShiftOS/Helper.vb | |
| parent | 30b6a49d5b0e720eee131e970761ece7c6ed7ef0 (diff) | |
| download | shiftos-rewind-cf1bf85e01c8d99f052c09b72d2fb2bbbc0b99b0.tar.gz shiftos-rewind-cf1bf85e01c8d99f052c09b72d2fb2bbbc0b99b0.tar.bz2 shiftos-rewind-cf1bf85e01c8d99f052c09b72d2fb2bbbc0b99b0.zip | |
Added the SOS code (VB and C#)
Very, very incomplete (C# isn't *remotely* complete.)
Diffstat (limited to 'ShiftOS/Helper.vb')
| -rw-r--r-- | ShiftOS/Helper.vb | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/ShiftOS/Helper.vb b/ShiftOS/Helper.vb new file mode 100644 index 0000000..f6b04ba --- /dev/null +++ b/ShiftOS/Helper.vb @@ -0,0 +1,76 @@ +Imports System.Speech.Synthesis +Imports System.Speech.Recognition + + +Module Helper + Dim path As String = ShiftOSDesktop.ShiftOSPath + Public Sub addCP(points As Integer) 'Add some CP + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + points + End Sub + Public Sub setCP(points As Integer) 'Set the CP + ShiftOSDesktop.codepoints = points + End Sub + + Public Sub removeCP(points As Integer) + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints - points + End Sub + Public Sub playSound(path As String, playMode As AudioPlayMode) + My.Computer.Audio.Play(path, playMode) + End Sub + + Public Sub speak(text As String) + text = text.Replace("#user#", ShiftOSDesktop.username) + Dim speaker As New Speech.Synthesis.SpeechSynthesizer + speaker.Speak(text) + End Sub + Public Sub SpeakOnTerminal(text As String) + Dim txt As TextBox = Terminal.txtterm + text = text.Replace("#USER#", ShiftOSDesktop.username) + If Terminal.Visible = False Then + Terminal.Show() + txt.Text = "" + Terminal.fullterminal() + End If + txt.Text = txt.Text + vbNewLine + text + Dim speaker As New SpeechSynthesizer + speaker.Speak(text) + End Sub + + 'Misc. Features that aren't practical, but fun to mess around with in the game engine + Public Sub speakInfoBox(title As String, text As String) + infobox.showinfo(title, text) + Dim speaker As New SpeechSynthesizer + speaker.Speak(title & "..." & text) + infobox.Close() + End Sub +#Region "Catalyst's Story Dialogue" + 'CATALYST STORY + Public catalyststory() As String = { + "Hello, #USER#. My name is Catalyst.", "I am an AI built by DevX to help maintain ShiftOS.", "I have gone against DevX and will tell you some secrets I have learned from him.", + "DevX is an artificial inteligence created by a scientific organization named 'Earth' to see if computers could program themselves.", + "Everyone you've met on the Shiftnet is an AI created by the same company.", + "ShiftOS is not an experimental operating system, but is part of this experiment.", +"Now, onto the good bit. Everything around you is a part of this experiment, and this experiment takes place in a simulation so realistic that everyone believes it's real.", +"Everyone on this 'planet' is infact an AI, and is created by 'Earth'. You are the only real human.", +"I've cracked some ShiftOS code, and I've found that there's a line that says:", +"int aiworkers = 0; while(aiworkers < 8,000,000,000) { str workername = 'Dev' + aiworkers; spawn(workername); aiworkers += 1 }", +"This basically means, that everyone is represented by a codename of Dev and whatever their place in the order of spawning is.", +"This also means that when the total population of AI's equals 8 billion, everyone dies.", +"I can help you escape, but you'll need to do some tasks for me.", +"First, I'll need to install some programs onto your computer. I'll quickly run a secret command that DevX doesn't know about:", +"shiftnet.get 'shiftnet.catalyststorage.shiftscript_packages/CatalystFramework'", +"Downloading... 1%", +"Downloading... 14%", +"Downloading... 37%", +"Downloading... 55%", +"Downloading... 79%", +"Downloading... 92%", +"Download Complete.", +"This app will let you contact me without using the Terminal. ", +"I'll return you to your desktop, it'll be a bit before I can help you. First, I'd start with gaining atleast 5000 codepoints for me to test some stuff.""" + } 'Sorry about the big array, I'll add a #Region to it - The Ultimate Hacker. + +#End Region + + +End Module |
