diff options
Diffstat (limited to 'shiftos_next/APIs')
| -rw-r--r-- | shiftos_next/APIs/API.vb | 206 | ||||
| -rw-r--r-- | shiftos_next/APIs/TerminalGames.vb | 94 | ||||
| -rw-r--r-- | shiftos_next/APIs/filesystem.vb | 19 | ||||
| -rw-r--r-- | shiftos_next/APIs/saveengine.vb | 611 | ||||
| -rw-r--r-- | shiftos_next/APIs/shiftorium_api.vb | 21 |
5 files changed, 951 insertions, 0 deletions
diff --git a/shiftos_next/APIs/API.vb b/shiftos_next/APIs/API.vb new file mode 100644 index 0000000..d3a70fe --- /dev/null +++ b/shiftos_next/APIs/API.vb @@ -0,0 +1,206 @@ +Module API + 'Terminal + + Public debugmode As Boolean = False 'If this boolean value is set to True, any exceptions will be shown, rather than supressed. + Public txtterm As TextBox = Terminal.terminaltext + + Public Function SetColorbasic(colorname As String) + Dim element As Color + Select Case colorname + Case "black" + AddLine("Error! Black and black don't go too well...") + Case "white" + element = Color.White + Case "gray" + If boughtgray Then + element = Color.Gray + Else + AddLine("Error! Unsupported color.") + End If + Case "red" + If boughtred Then + element = Color.Red + Else + AddLine("Error! Unsupported color.") + End If + Case "green" + If boughtgreen Then + element = Color.Green + Else + AddLine("Error! Unsupported color.") + End If + Case "blue" + If boughtblue Then + element = Color.Blue + Else + AddLine("Error! Unsupported color.") + End If + Case "yellow" + If boughtyellow Then + element = Color.Yellow + Else + AddLine("Error! Unsupported color.") + End If + Case "orange" + If boughtorange Then + element = Color.Orange + Else + AddLine("Error! Unsupported color.") + End If + Case "pink" + If boughtpink Then + element = Color.Pink + Else + AddLine("Error! Unsupported color.") + End If + Case "purple" + If boughtpurple Then + element = Color.Purple + Else + AddLine("Error! Unsupported color.") + End If + Case "brown" + If boughtbrown Then + element = Color.Brown + Else + AddLine("Error! Unsupported color.") + End If + Case Else + AddLine("Error! Unsupported color, check 'colors' for a list of supported colors.") + End Select + Return element + End Function + + Public Sub OpenProgram(progtoopen As String) + Select Case progtoopen + Case "shiftorium", "packages", "pacman", "code shop" + shiftorium_cmd.Show() + Case "files", "fileskimmer", "file skimmer", "fs", "file browser" + If boughtfileskimmer = True Then + file_skimmer.Show() + Else + AddLine("open: Invalid program """ & progtoopen & """.") + End If + Case "textpad", "text", "notepad" + If boughttextpad = True Then + TextPad.Show() + Else + AddLine("open: Invalid program """ & progtoopen & """.") + End If + Case Else + AddLine("open: Invalid program """ & progtoopen & """.") + End Select + End Sub + + Public Sub closeprogram(progtoclose As String) + Select Case progtoclose + Case "shiftorium", "packages", "pacman", "code shop" + shiftorium_cmd.Hide() + Case "files", "fileskimmer", "file skimmer", "fs", "file browser" + If boughtfileskimmer = True Then + file_skimmer.Hide() + Else + AddLine("close: Invalid program """ & progtoclose & """.") + End If + Case "textpad", "text", "notepad" + If boughttextpad = True Then + TextPad.Hide() + Else + AddLine("close: Invalid program """ & progtoclose & """.") + End If + + Case Else + AddLine("close: Invalid program """ & progtoclose & """.") + End Select + End Sub + + Public Sub wrongcommand() + AddLine("Invalid command! Type ""help"" for a list of commands.") + End Sub + + Public Sub AddLine(text As String) + txtterm.Text += vbNewLine + text + SelectBottom() + End Sub + + Public Sub openfile(file As String) + Dim filinfo As New IO.FileInfo(file) + Select Case filinfo.Extension + Case ".txt" + If boughttextpad = True Then + Dim sr As New IO.StreamReader(file) + TextPad.txtfilebody.Text = sr.ReadToEnd() + sr.Close() + TextPad.Show() + Else + wrongcommand() + End If + Case Else + wrongcommand() + End Select + End Sub + + + Public Sub showterminalcolors() + AddLine(" ==== SUPPORTED TERMINAL COLORS ==== " & vbNewLine) + AddLine("Below is a list of values that you can specify in <colorname> arguments. Note that only certain colors are supported; and if the video driver can output a color but it isn't on this list, it is not supported by the Terminal display engine." & vbNewLine) + If boughtgray Then AddLine("gray") + AddLine("white") + AddLine("black") + If boughtred Then AddLine("red") + If boughtgreen Then AddLine("green") + If boughtblue Then AddLine("blue") + If boughtyellow Then AddLine("yellow") + If boughtorange Then AddLine("orange") + If boughtpink Then AddLine("pink") + If boughtpurple Then AddLine("purple") + If boughtbrown Then AddLine("brown") + End Sub + + Public Sub ShowHelp() + AddLine("ShiftOS Help" & vbNewLine) + AddLine("Usage tips: " & vbNewLine) + AddLine(" - The terminal runs in full-screen.") + If boughttextpad = True Then AddLine(" - Typing the path to a text file will open it in Textpad.") + AddLine(" - There are no window managers or desktop environments.") + If boughtbasicgui = True Then + AddLine(" - Applications can use the GUI server to display a proper GUI.") + Else + AddLine(" - Applications are fully text-based.") + End If + AddLine(" - Terminal commands are case-insensitive." & vbNewLine) + AddLine("Commands: " & vbNewLine) + If boughtdirectorysurfing Then + AddLine(" - cd: Change to the specified directory.") + AddLine(" - mkdir: Create a directory inside the current directory (marked before the %)") + AddLine(" - ls, dir: View the contents of the current directory.") + End If + If boughtbasicsettings Then + AddLine(" - set <setting> <value>: Change some minimal settings in ShiftOS.") + If boughtcustomusername Then + AddLine(" Settings: ") + AddLine(" username <string>: Set the username of the OS.") + End If + If boughtterminalsettextcolor = True Then + AddLine(" textcolor <colorname>: Set the terminal text color.") + End If + End If + AddLine(" - codepoints: Shows the current amount of codepoints.") + AddLine(" - shutdown: Shuts the system down.") + AddLine(" - colors: Shows the colors supported by both the Terminal display engine, and the video driver.") + AddLine(" - help: Shows this screen." & vbNewLine) + AddLine("Installed Programs:" & vbNewLine) + AddLine("Below is a list of all the programs on your computer, followed by what they do. You can open one by typing ""open <name>""." & vbNewLine) + AddLine(" - shiftorium: Upgrade the OS with Codepoints using this application.") + If boughtfileskimmer Then AddLine(" - file skimmer: A handy little file browser.") + If boughttextpad Then AddLine(" - textpad: An application that allows for creating and editing text files.") + AddLine(" - MathQuiz: Earn Codepoints by solving math questions.") + AddLine(" - Guess the Number: Earn Codepoints by guessing a random number between 1 and 100.") + End Sub + + Public Sub SelectBottom() + txtterm.Select(txtterm.Text.Length, 0) + txtterm.ScrollToCaret() + End Sub + +End Module diff --git a/shiftos_next/APIs/TerminalGames.vb b/shiftos_next/APIs/TerminalGames.vb new file mode 100644 index 0000000..6d4dfed --- /dev/null +++ b/shiftos_next/APIs/TerminalGames.vb @@ -0,0 +1,94 @@ +Module TerminalGames + + Public mathquiz As Boolean = False + Public guessthenumber As Boolean = False + + Public Sub MQInterpret(question As String, answer As Integer) + Dim random As New Random() + Dim correct As Boolean = False + Dim args() As String = question.Replace("What is ", "").Split(" ") + Dim cptoadd As Integer = random.Next(1, 5) + Select Case args(1) + Case "+" + correct = (answer = CInt(args(0)) + CInt(args(2))) + Case "-" + correct = (answer = args(0) - args(2)) + Case "*" + correct = (answer = args(0) * args(2)) + Case "/" + correct = (answer = args(0) / args(2)) + End Select + If (correct) Then + AddLine("Correct! You have earned " & cptoadd & " Codepoints!") + AddCP(cptoadd) + Else + AddLine("Incorrect! Better luck next time...") + End If + MQCreateQuestion() + End Sub + + Public Sub MQCreateQuestion() + Dim rand As New Random + Dim num1 As Integer = rand.Next(1, 10) + Dim num2 As Integer = rand.Next(1, 10) + Dim operandchooser As Integer = rand.Next(1, 4) + Dim operand As String + Select Case operandchooser + Case 1 + operand = " + " + Case 2 + While num2 > num1 + num2 = rand.Next(1, 10) + End While + operand = " - " + Case 3 + operand = " * " + Case 4 + operand = " / " + Case Else + operand = " + " + End Select + AddLine("What is " & num1 & operand & num2 & " ?") + End Sub + + Public Sub changeinterpreter() + If mathquiz = True Then + AddLine(" === MathQuiz ===" & vbNewLine) + AddLine("MathQuiz is a basic game for ShiftOS that allows you to earn Codepoints for solving math " & vbNewLine & "questions. These questions will always be (num1) (operand) (num2) = (answer)." & vbNewLine) + AddLine("(num1) and (num2) will always be integers between 1 and 10.") + AddLine("(operand) Will always be either a +, -, * (times) or / (division) statement that can change the answer.") + MQCreateQuestion() + End If + If guessthenumber = True Then + AddLine(" -= Guess The Number =-" & vbNewLine) + AddLine("Guess the Number is a game that allows you to earn Codepoints for") + AddLine("guessing a number between 1 and 100." & vbNewLine) + GTNStart() + End If + End Sub + + Public GTNCorrect As Integer + + Public Sub GTNStart() + Dim rand As New Random() + GTNCorrect = rand.Next(1, 100) + AddLine("Choose a number between 1 and 100:") + End Sub + + Public Sub GTNInterpret(num As Integer) + If num < 100 And num > 0 Then + If GTNCorrect = num Then + Dim rand As New Random() + Dim cptoadd As Integer = rand.Next(1, 10) + AddLine("Correct! You have earned " & cptoadd & " Codepoints.") + GTNStart() + ElseIf num > GTNCorrect Then + AddLine("Lower!") + ElseIf num < GTNCorrect Then + AddLine("Higher!") + End If + Else + AddLine("Number isn't between 1 and 100!") + End If + End Sub +End Module diff --git a/shiftos_next/APIs/filesystem.vb b/shiftos_next/APIs/filesystem.vb new file mode 100644 index 0000000..61e8053 --- /dev/null +++ b/shiftos_next/APIs/filesystem.vb @@ -0,0 +1,19 @@ +Module filesystem + 'This module represents the folder structure of the ShiftFS Filesystem. + + Public root As String = "C:\ShiftOS" + + Public home As String = root + "\Home\" 'Inconsistent to fix terminal glitch. + + Public documents As String = home + "Documents\" + Public pictures As String = home + "Pictures\" + Public music As String = home + "Music\" + + Public systemdir As String = root + "\Shiftum42\" + + Public drivers As String = systemdir + "Drivers\" + + Public save As String = drivers + "HDD.dri" + + +End Module diff --git a/shiftos_next/APIs/saveengine.vb b/shiftos_next/APIs/saveengine.vb new file mode 100644 index 0000000..2c49cbd --- /dev/null +++ b/shiftos_next/APIs/saveengine.vb @@ -0,0 +1,611 @@ +Module saveengine + 'Core for Save Engine + + Public username As String = "user" + Public osname As String = "shiftos" + + ' + ' NEWER UPGRADES: These are partly from UltraDOS, partially from Orion, and a few others created just for this project. + ' + + Public boughtdirectorysurfing As Boolean = False + Public boughtbasicsettings As Boolean = False + Public boughtbasicgui As Boolean = False + Public boughtterminalsettextcolor As Boolean = False + Public boughtbasicwm As Boolean = False + + ' + ' OLD SHIFTOS UPGRADES: These upgrades may be useful, so I've added them. + ' + + 'Shiftorium Upgrades + Public boughttitlebar As Boolean = False + Public boughtgray As Boolean = False + Public boughtsecondspastmidnight As Boolean = False + Public boughtminutespastmidnight As Boolean = False + Public boughthourspastmidnight As Boolean = False + Public boughtcustomusername As Boolean = False + Public boughtwindowsanywhere As Boolean = False + Public boughtmultitasking As Boolean = False + Public boughtautoscrollterminal As Boolean = False + Public boughtmovablewindows As Boolean = False + Public boughtdraggablewindows As Boolean = False + Public boughtwindowborders As Boolean = False + Public boughtpmandam As Boolean = False + Public boughtminuteaccuracytime As Boolean = False + Public boughtsplitsecondtime As Boolean = False + Public boughttitletext As Boolean = False + Public boughtclosebutton As Boolean = False + Public boughtdesktoppanel As Boolean = False + Public boughtclock As Boolean = False + Public boughtwindowedterminal As Boolean = False + Public boughtapplaunchermenu As Boolean = False + Public boughtalknowledgeinput As Boolean = False + Public boughtalclock As Boolean = False + Public boughtalshiftorium As Boolean = False + Public boughtapplaunchershutdown As Boolean = False + Public boughtdesktoppanelclock As Boolean = False + Public boughtterminalscrollbar As Boolean = False + Public boughtkiaddons As Boolean = False + Public boughtkicarbrands As Boolean = False + Public boughtkigameconsoles As Boolean = False + Public boughtshifter As Boolean = False + Public boughtalshifter As Boolean = False + Public boughtrollupcommand As Boolean = False + Public boughtrollupbutton As Boolean = False + Public boughtshiftdesktop As Boolean = False + Public boughtshiftpanelclock As Boolean = False + Public boughtshiftapplauncher As Boolean = False + Public boughtshiftdesktoppanel As Boolean = False + Public boughtshifttitlebar As Boolean = False + Public boughtshifttitletext As Boolean = False + Public boughtshifttitlebuttons As Boolean = False + Public boughtshiftborders As Boolean = False + Public boughtgray2 As Boolean = False + Public boughtgray3 As Boolean = False + Public boughtgray4 As Boolean = False + Public boughtanycolour As Boolean = False + Public boughtanycolour2 As Boolean = False + Public boughtanycolour3 As Boolean = False + Public boughtanycolour4 As Boolean = False + Public boughtpurple As Boolean = False + Public boughtpurple2 As Boolean = False + Public boughtpurple3 As Boolean = False + Public boughtpurple4 As Boolean = False + Public boughtblue As Boolean = False + Public boughtblue2 As Boolean = False + Public boughtblue3 As Boolean = False + Public boughtblue4 As Boolean = False + Public boughtgreen As Boolean = False + Public boughtgreen2 As Boolean = False + Public boughtgreen3 As Boolean = False + Public boughtgreen4 As Boolean = False + Public boughtyellow As Boolean = False + Public boughtyellow2 As Boolean = False + Public boughtyellow3 As Boolean = False + Public boughtyellow4 As Boolean = False + Public boughtorange As Boolean = False + Public boughtorange2 As Boolean = False + Public boughtorange3 As Boolean = False + Public boughtorange4 As Boolean = False + Public boughtbrown As Boolean = False + Public boughtbrown2 As Boolean = False + Public boughtbrown3 As Boolean = False + Public boughtbrown4 As Boolean = False + Public boughtred As Boolean = False + Public boughtred2 As Boolean = False + Public boughtred3 As Boolean = False + Public boughtred4 As Boolean = False + Public boughtpink As Boolean = False + Public boughtpink2 As Boolean = False + Public boughtpink3 As Boolean = False + Public boughtpink4 As Boolean = False + 'new 0.0.6 content + Public boughtpong As Boolean = False + Public boughtknowledgeinputicon As Boolean = False + Public boughtshiftericon As Boolean = False + Public boughtshiftoriumicon As Boolean = False + Public boughtclockicon As Boolean = False + Public boughtshutdownicon As Boolean = False + Public boughtpongicon As Boolean = False + Public boughtterminalicon As Boolean = False + Public boughtalpong As Boolean = False + Public boughtfileskimmer As Boolean = False + Public boughtalfileskimmer As Boolean = False + Public boughttextpad As Boolean = False + Public boughtaltextpad As Boolean = False + Public boughtfileskimmericon As Boolean = False + Public boughttextpadicon As Boolean = False + Public boughttextpadnew As Boolean = False + Public boughttextpadsave As Boolean = False + Public boughttextpadopen As Boolean = False + Public boughtfileskimmernewfolder As Boolean = False + Public boughtfileskimmerdelete As Boolean = False + Public boughtkielements As Boolean = False + Public boughtcolourpickericon As Boolean = False + Public boughtinfoboxicon As Boolean = False + 'new 0.0.7 content + Public boughtskinloader As Boolean = False + Public boughtminimizebutton As Boolean = False + Public boughtpanelbuttons As Boolean = False + Public boughtshiftpanelbuttons As Boolean = False + Public boughtartpad As Boolean = False + Public boughtalartpad As Boolean = False + Public boughtartpadicon As Boolean = False + Public boughtskinning As Boolean = False + Public boughtminimizecommand As Boolean = False + Public boughtusefulpanelbuttons As Boolean = False + Public boughtunitymode As Boolean = False + Public boughtartpadpixellimit4 As Boolean = False + Public boughtartpadpixellimit8 As Boolean = False + Public boughtartpadpixellimit16 As Boolean = False + Public boughtartpadpixellimit64 As Boolean = False + Public boughtartpadpixellimit256 As Boolean = False + Public boughtartpadpixellimit1024 As Boolean = False + Public boughtartpadpixellimit4096 As Boolean = False + Public boughtartpadpixellimit16384 As Boolean = False + Public boughtartpadpixellimit65536 As Boolean = False + Public boughtartpadlimitlesspixels As Boolean = False + Public boughtartpad4colorpallets As Boolean = False + Public boughtartpad8colorpallets As Boolean = False + Public boughtartpad16colorpallets As Boolean = False + Public boughtartpad32colorpallets As Boolean = False + Public boughtartpad64colorpallets As Boolean = False + Public boughtartpad128colorpallets As Boolean = False + Public boughtartpadcustompallets As Boolean = False + Public boughtartpadnew As Boolean = False + Public boughtartpadpixelplacer As Boolean = False + Public boughtartpadpixelplacermovementmode As Boolean = False + Public boughtartpadpencil As Boolean = False + Public boughtartpadpaintbrush As Boolean = False + Public boughtartpadlinetool As Boolean = False + Public boughtartpadovaltool As Boolean = False + Public boughtartpadrectangletool As Boolean = False + Public boughtartpaderaser As Boolean = False + Public boughtartpadfilltool As Boolean = False + Public boughtartpadtexttool As Boolean = False + Public boughtartpadundo As Boolean = False + Public boughtartpadredo As Boolean = False + Public boughtartpadsave As Boolean = False + Public boughtartpadload As Boolean = False + 'new 0.0.8 features + Public boughtresizablewindows As Boolean = False + Public boughtcalculator As Boolean = False + Public boughtaudioplayer As Boolean = False + Public boughtchangeosnamecommand As Boolean = False + Public boughtwebbrowser As Boolean = False + Public boughtvideoplayer As Boolean = False + Public boughtnamechanger As Boolean = False + Public boughticonmanager As Boolean = False + Public boughtbitnotewallet As Boolean = False + Public boughtbitnotedigger As Boolean = False + Public boughtskinshifter As Boolean = False + Public boughtshiftnet As Boolean = False + Public boughtdownloader As Boolean = False + Public boughtshiftneticon As Boolean = False + Public boughtalshiftnet As Boolean = False + Public boughtdodge As Boolean = False + Public boughtdownloadmanager As Boolean = False + Public boughtinstaller As Boolean = False + Public boughtsnakey As Boolean = False + Public boughtsysinfoicon As Boolean = False + Public boughtorcwrite As Boolean = False + Public boughtfloodgate As Boolean = False + Public boughtmaze As Boolean = False + Public boughtunitymodetoggle As Boolean = False + Public boughtunitytoggleicon As Boolean = False + Public bitnotediggergrade As Integer = 0 + Public boughtvirusscannericon As Boolean = False + Public virusscannergrade As Integer = 0 + Public boughttextpadtrm As Boolean = False + Public boughtshiftapplauncheritems As Boolean = False + Public boughtadvapplauncher As Boolean = False + + + Public Sub savegame() + Dim savelines(2000) As String + If boughttitlebar = True Then savelines(0) = 11 Else savelines(0) = 10 + If boughtgray = True Then savelines(1) = 11 Else savelines(1) = 10 + If boughtsecondspastmidnight = True Then savelines(2) = 11 Else savelines(2) = 10 + If boughtminutespastmidnight = True Then savelines(3) = 11 Else savelines(3) = 10 + If boughthourspastmidnight = True Then savelines(4) = 11 Else savelines(4) = 10 + If boughtcustomusername = True Then savelines(5) = 11 Else savelines(5) = 10 + If boughtwindowsanywhere = True Then savelines(6) = 11 Else savelines(6) = 10 + If boughtmultitasking = True Then savelines(7) = 11 Else savelines(7) = 10 + If boughtautoscrollterminal = True Then savelines(8) = 11 Else savelines(8) = 10 + savelines(9) = codepoints + If boughtmovablewindows = True Then savelines(10) = 11 Else savelines(10) = 10 + If boughtdraggablewindows = True Then savelines(11) = 11 Else savelines(11) = 10 + If boughtwindowborders = True Then savelines(12) = 11 Else savelines(12) = 10 + If boughtpmandam = True Then savelines(13) = 11 Else savelines(13) = 10 + If boughtminuteaccuracytime = True Then savelines(14) = 11 Else savelines(14) = 10 + If boughtsplitsecondtime = True Then savelines(15) = 11 Else savelines(15) = 10 + If boughttitletext = True Then savelines(16) = 11 Else savelines(16) = 10 + If boughtclosebutton = True Then savelines(17) = 11 Else savelines(17) = 10 + If boughtdesktoppanel = True Then savelines(18) = 11 Else savelines(18) = 10 + If boughtclock = True Then savelines(19) = 11 Else savelines(19) = 10 + If boughtwindowedterminal = True Then savelines(20) = 11 Else savelines(20) = 10 + If boughtapplaunchermenu = True Then savelines(21) = 11 Else savelines(21) = 10 + If boughtalknowledgeinput = True Then savelines(22) = 11 Else savelines(22) = 10 + If boughtalclock = True Then savelines(23) = 11 Else savelines(23) = 10 + If boughtalshiftorium = True Then savelines(24) = 11 Else savelines(24) = 10 + If boughtapplaunchershutdown = True Then savelines(25) = 11 Else savelines(25) = 10 + If boughtdesktoppanelclock = True Then savelines(26) = 11 Else savelines(26) = 10 + If boughtterminalscrollbar = True Then savelines(27) = 11 Else savelines(27) = 10 + If boughtkiaddons = True Then savelines(28) = 11 Else savelines(28) = 10 + If boughtkicarbrands = True Then savelines(29) = 11 Else savelines(29) = 10 + If boughtkigameconsoles = True Then savelines(30) = 11 Else savelines(30) = 10 + savelines(31) = username + If boughtshifter = True Then savelines(33) = 11 Else savelines(33) = 10 + If boughtalshifter = True Then savelines(34) = 11 Else savelines(34) = 10 + If boughtrollupcommand = True Then savelines(35) = 11 Else savelines(35) = 10 + If boughtrollupbutton = True Then savelines(36) = 11 Else savelines(36) = 10 + If boughtshiftdesktop = True Then savelines(37) = 11 Else savelines(37) = 10 + If boughtshiftpanelclock = True Then savelines(38) = 11 Else savelines(38) = 10 + If boughtshiftapplauncher = True Then savelines(39) = 11 Else savelines(39) = 10 + If boughtshiftdesktoppanel = True Then savelines(40) = 11 Else savelines(40) = 10 + If boughtshifttitlebar = True Then savelines(41) = 11 Else savelines(41) = 10 + If boughtshifttitletext = True Then savelines(42) = 11 Else savelines(42) = 10 + If boughtshifttitlebuttons = True Then savelines(43) = 11 Else savelines(43) = 10 + If boughtshiftborders = True Then savelines(44) = 11 Else savelines(44) = 10 + If boughtgray2 = True Then savelines(45) = 11 Else savelines(45) = 10 + If boughtgray3 = True Then savelines(46) = 11 Else savelines(46) = 10 + If boughtgray4 = True Then savelines(47) = 11 Else savelines(47) = 10 + If boughtanycolour = True Then savelines(48) = 11 Else savelines(48) = 10 + If boughtanycolour2 = True Then savelines(49) = 11 Else savelines(49) = 10 + If boughtanycolour3 = True Then savelines(50) = 11 Else savelines(50) = 10 + If boughtanycolour4 = True Then savelines(51) = 11 Else savelines(51) = 10 + If boughtpurple = True Then savelines(52) = 11 Else savelines(52) = 10 + If boughtpurple2 = True Then savelines(53) = 11 Else savelines(53) = 10 + If boughtpurple3 = True Then savelines(54) = 11 Else savelines(54) = 10 + If boughtpurple4 = True Then savelines(55) = 11 Else savelines(55) = 10 + If boughtblue = True Then savelines(56) = 11 Else savelines(56) = 10 + If boughtblue2 = True Then savelines(57) = 11 Else savelines(57) = 10 + If boughtblue3 = True Then savelines(58) = 11 Else savelines(58) = 10 + If boughtblue4 = True Then savelines(59) = 11 Else savelines(59) = 10 + If boughtgreen = True Then savelines(60) = 11 Else savelines(60) = 10 + If boughtgreen2 = True Then savelines(61) = 11 Else savelines(61) = 10 + If boughtgreen3 = True Then savelines(62) = 11 Else savelines(62) = 10 + If boughtgreen4 = True Then savelines(63) = 11 Else savelines(63) = 10 + If boughtyellow = True Then savelines(64) = 11 Else savelines(64) = 10 + If boughtyellow2 = True Then savelines(65) = 11 Else savelines(65) = 10 + If boughtyellow3 = True Then savelines(66) = 11 Else savelines(66) = 10 + If boughtyellow4 = True Then savelines(67) = 11 Else savelines(67) = 10 + If boughtorange = True Then savelines(68) = 11 Else savelines(68) = 10 + If boughtorange2 = True Then savelines(69) = 11 Else savelines(69) = 10 + If boughtorange3 = True Then savelines(70) = 11 Else savelines(70) = 10 + If boughtorange4 = True Then savelines(71) = 11 Else savelines(71) = 10 + If boughtbrown = True Then savelines(72) = 11 Else savelines(72) = 10 + If boughtbrown2 = True Then savelines(73) = 11 Else savelines(73) = 10 + If boughtbrown3 = True Then savelines(74) = 11 Else savelines(74) = 10 + If boughtbrown4 = True Then savelines(75) = 11 Else savelines(75) = 10 + If boughtred = True Then savelines(76) = 11 Else savelines(76) = 10 + If boughtred2 = True Then savelines(77) = 11 Else savelines(77) = 10 + If boughtred3 = True Then savelines(78) = 11 Else savelines(78) = 10 + If boughtred4 = True Then savelines(79) = 11 Else savelines(79) = 10 + If boughtpink = True Then savelines(80) = 11 Else savelines(80) = 10 + If boughtpink2 = True Then savelines(81) = 11 Else savelines(81) = 10 + If boughtpink3 = True Then savelines(82) = 11 Else savelines(82) = 10 + If boughtpink4 = True Then savelines(83) = 11 Else savelines(83) = 10 + If boughtdirectorysurfing = True Then savelines(84) = 11 Else savelines(84) = 10 + savelines(85) = osname + If boughtbasicsettings = True Then savelines(86) = 11 Else savelines(86) = 10 + If boughtbasicgui = True Then savelines(87) = 11 Else savelines(87) = 10 + If boughtterminalsettextcolor = True Then savelines(88) = 11 Else savelines(88) = 10 + If boughtbasicwm = True Then savelines(89) = 11 Else savelines(89) = 10 + + + 'Large gap in file. Add new features here. + + If boughtpong = True Then savelines(285) = 11 Else savelines(285) = 10 + If boughtknowledgeinputicon = True Then savelines(286) = 11 Else savelines(286) = 10 + If boughtshiftericon = True Then savelines(287) = 11 Else savelines(287) = 10 + If boughtshiftoriumicon = True Then savelines(288) = 11 Else savelines(288) = 10 + If boughtclockicon = True Then savelines(289) = 11 Else savelines(289) = 10 + If boughtshutdownicon = True Then savelines(290) = 11 Else savelines(290) = 10 + If boughtpongicon = True Then savelines(291) = 11 Else savelines(291) = 10 + If boughtterminalicon = True Then savelines(292) = 11 Else savelines(292) = 10 + If boughtalpong = True Then savelines(293) = 11 Else savelines(293) = 10 + If boughtfileskimmer = True Then savelines(294) = 11 Else savelines(294) = 10 + If boughtalfileskimmer = True Then savelines(295) = 11 Else savelines(295) = 10 + If boughttextpad = True Then savelines(296) = 11 Else savelines(296) = 10 + If boughtaltextpad = True Then savelines(297) = 11 Else savelines(297) = 10 + If boughtfileskimmericon = True Then savelines(298) = 11 Else savelines(298) = 10 + If boughttextpadicon = True Then savelines(299) = 11 Else savelines(299) = 10 + If boughttextpadnew = True Then savelines(300) = 11 Else savelines(300) = 10 + If boughttextpadsave = True Then savelines(301) = 11 Else savelines(301) = 10 + If boughttextpadopen = True Then savelines(302) = 11 Else savelines(302) = 10 + If boughtfileskimmernewfolder = True Then savelines(303) = 11 Else savelines(303) = 10 + If boughtfileskimmerdelete = True Then savelines(304) = 11 Else savelines(304) = 10 + If boughtkielements = True Then savelines(305) = 11 Else savelines(305) = 10 + If boughtcolourpickericon = True Then savelines(306) = 11 Else savelines(306) = 10 + If boughtinfoboxicon = True Then savelines(307) = 11 Else savelines(307) = 10 + + 'Large gap in file. More room for more features. + + If boughtskinloader = True Then savelines(314) = 11 Else savelines(314) = 10 + If boughtminimizebutton = True Then savelines(315) = 11 Else savelines(315) = 10 + If boughtpanelbuttons = True Then savelines(316) = 11 Else savelines(316) = 10 + If boughtshiftpanelbuttons = True Then savelines(317) = 11 Else savelines(317) = 10 + If boughtartpad = True Then savelines(318) = 11 Else savelines(318) = 10 + If boughtalartpad = True Then savelines(319) = 11 Else savelines(319) = 10 + If boughtartpadicon = True Then savelines(320) = 11 Else savelines(320) = 10 + If boughtskinning = True Then savelines(321) = 11 Else savelines(321) = 10 + If boughtminimizecommand = True Then savelines(322) = 11 Else savelines(322) = 10 + If boughtusefulpanelbuttons = True Then savelines(323) = 11 Else savelines(323) = 10 + If boughtunitymode = True Then savelines(324) = 11 Else savelines(324) = 10 + If boughtartpadpixellimit4 = True Then savelines(325) = 11 Else savelines(325) = 10 + If boughtartpadpixellimit8 = True Then savelines(326) = 11 Else savelines(326) = 10 + If boughtartpadpixellimit16 = True Then savelines(327) = 11 Else savelines(327) = 10 + If boughtartpadpixellimit64 = True Then savelines(328) = 11 Else savelines(328) = 10 + If boughtartpadpixellimit256 = True Then savelines(329) = 11 Else savelines(329) = 10 + If boughtartpadpixellimit1024 = True Then savelines(330) = 11 Else savelines(330) = 10 + If boughtartpadpixellimit4096 = True Then savelines(331) = 11 Else savelines(331) = 10 + If boughtartpadpixellimit16384 = True Then savelines(332) = 11 Else savelines(332) = 10 + If boughtartpadpixellimit65536 = True Then savelines(333) = 11 Else savelines(333) = 10 + If boughtartpadlimitlesspixels = True Then savelines(334) = 11 Else savelines(334) = 10 + If boughtartpad4colorpallets = True Then savelines(335) = 11 Else savelines(335) = 10 + If boughtartpad8colorpallets = True Then savelines(336) = 11 Else savelines(336) = 10 + If boughtartpad16colorpallets = True Then savelines(337) = 11 Else savelines(337) = 10 + If boughtartpad32colorpallets = True Then savelines(338) = 11 Else savelines(338) = 10 + If boughtartpad64colorpallets = True Then savelines(339) = 11 Else savelines(339) = 10 + If boughtartpad128colorpallets = True Then savelines(340) = 11 Else savelines(340) = 10 + If boughtartpadcustompallets = True Then savelines(341) = 11 Else savelines(341) = 10 + If boughtartpadpixelplacer = True Then savelines(342) = 11 Else savelines(342) = 10 + If boughtartpadpixelplacermovementmode = True Then savelines(343) = 11 Else savelines(343) = 10 + If boughtartpadpencil = True Then savelines(344) = 11 Else savelines(344) = 10 + If boughtartpadpaintbrush = True Then savelines(345) = 11 Else savelines(345) = 10 + If boughtartpadlinetool = True Then savelines(346) = 11 Else savelines(346) = 10 + If boughtartpadovaltool = True Then savelines(347) = 11 Else savelines(347) = 10 + If boughtartpadrectangletool = True Then savelines(348) = 11 Else savelines(348) = 10 + If boughtartpaderaser = True Then savelines(349) = 11 Else savelines(349) = 10 + If boughtartpadfilltool = True Then savelines(350) = 11 Else savelines(350) = 10 + If boughtartpadtexttool = True Then savelines(351) = 11 Else savelines(351) = 10 + If boughtartpadundo = True Then savelines(352) = 11 Else savelines(352) = 10 + If boughtartpadredo = True Then savelines(353) = 11 Else savelines(353) = 10 + If boughtartpadsave = True Then savelines(354) = 11 Else savelines(354) = 10 + If boughtartpadload = True Then savelines(355) = 11 Else savelines(355) = 10 + If boughtartpadnew = True Then savelines(484) = 11 Else savelines(484) = 10 + '0.0.8 + 'savelines(485) = ingameversion - Not yet implemented, will be soon. + If boughtresizablewindows Then savelines(486) = 11 Else savelines(486) = 10 + If boughtcalculator Then savelines(487) = 11 Else savelines(487) = 10 + If boughtaudioplayer Then savelines(488) = 11 Else savelines(488) = 10 + If boughtchangeosnamecommand Then savelines(489) = 11 Else savelines(489) = 10 + If boughtwebbrowser Then savelines(490) = 11 Else savelines(490) = 10 + If boughtvideoplayer Then savelines(491) = 11 Else savelines(491) = 10 + If boughtnamechanger Then savelines(492) = 11 Else savelines(492) = 10 + If boughticonmanager Then savelines(493) = 11 Else savelines(493) = 10 + If boughtbitnotewallet Then savelines(494) = 11 Else savelines(494) = 10 + If boughtbitnotedigger Then savelines(495) = 11 Else savelines(495) = 10 + If boughtskinshifter Then savelines(496) = 11 Else savelines(496) = 10 + If boughtshiftnet Then savelines(497) = 11 Else savelines(497) = 10 + If boughtshiftneticon Then savelines(498) = 11 Else savelines(498) = 10 + If boughtalshiftnet Then savelines(499) = 11 Else savelines(499) = 10 + If boughtdodge Then savelines(500) = 11 Else savelines(500) = 10 + If boughtdownloadmanager Then savelines(501) = 11 Else savelines(501) = 10 + If boughtinstaller Then savelines(502) = 11 Else savelines(502) = 10 + If boughtsysinfoicon Then savelines(503) = 11 Else savelines(503) = 10 + If boughtorcwrite Then savelines(504) = 11 Else savelines(504) = 10 + If boughtfloodgate Then savelines(505) = 11 Else savelines(505) = 10 + If boughtmaze Then savelines(506) = 11 Else savelines(506) = 10 + If boughtunitymodetoggle Then savelines(507) = 11 Else savelines(507) = 10 + If boughtunitytoggleicon Then savelines(508) = 11 Else savelines(508) = 10 + savelines(509) = bitnotediggergrade + If boughtvirusscannericon Then savelines(510) = 11 Else savelines(510) = 10 + savelines(511) = virusscannergrade + If boughttextpadtrm Then savelines(512) = 11 Else savelines(512) = 10 + If boughtshiftapplauncheritems Then savelines(513) = 11 Else savelines(513) = 10 + + + IO.File.WriteAllLines(save, savelines) + End Sub + + + + Public Sub loadgame() + Try + Dim loadlines() As String = IO.File.ReadAllLines(save) + If loadlines(0) = 11 Then boughttitlebar = True Else boughttitlebar = False + If loadlines(1) = 11 Then boughtgray = True Else boughtgray = False + If loadlines(2) = 11 Then boughtsecondspastmidnight = True Else boughtsecondspastmidnight = False + If loadlines(3) = 11 Then boughtminutespastmidnight = True Else boughtminutespastmidnight = False + If loadlines(4) = 11 Then boughthourspastmidnight = True Else boughthourspastmidnight = False + If loadlines(5) = 11 Then boughtcustomusername = True Else boughtcustomusername = False + If loadlines(6) = 11 Then boughtwindowsanywhere = True Else boughtwindowsanywhere = False + If loadlines(7) = 11 Then boughtmultitasking = True Else boughtmultitasking = False + If loadlines(8) = 11 Then boughtautoscrollterminal = True Else boughtautoscrollterminal = False + codepoints = loadlines(9) + If loadlines(10) = 11 Then boughtmovablewindows = True Else boughtmovablewindows = False + If loadlines(11) = 11 Then boughtdraggablewindows = True Else boughtdraggablewindows = False + If loadlines(12) = 11 Then boughtwindowborders = True Else boughtwindowborders = False + If loadlines(13) = 11 Then boughtpmandam = True Else boughtpmandam = False + If loadlines(14) = 11 Then boughtminuteaccuracytime = True Else boughtminuteaccuracytime = False + If loadlines(15) = 11 Then boughtsplitsecondtime = True Else boughtsplitsecondtime = False + If loadlines(16) = 11 Then boughttitletext = True Else boughttitletext = False + If loadlines(17) = 11 Then boughtclosebutton = True Else boughtclosebutton = False + If loadlines(18) = 11 Then boughtdesktoppanel = True Else boughtdesktoppanel = False + If loadlines(19) = 11 Then boughtclock = True Else boughtclock = False + If loadlines(20) = 11 Then boughtwindowedterminal = True Else boughtwindowedterminal = False + If loadlines(21) = 11 Then boughtapplaunchermenu = True Else boughtapplaunchermenu = False + If loadlines(22) = 11 Then boughtalknowledgeinput = True Else boughtalknowledgeinput = False + If loadlines(23) = 11 Then boughtalclock = True Else boughtalclock = False + If loadlines(24) = 11 Then boughtalshiftorium = True Else boughtalshiftorium = False + If loadlines(25) = 11 Then boughtapplaunchershutdown = True Else boughtapplaunchershutdown = False + If loadlines(26) = 11 Then boughtdesktoppanelclock = True Else boughtdesktoppanelclock = False + If loadlines(27) = 11 Then boughtterminalscrollbar = True Else boughtterminalscrollbar = False + If loadlines(28) = 11 Then boughtkiaddons = True Else boughtkiaddons = False + If loadlines(29) = 11 Then boughtkicarbrands = True Else boughtkicarbrands = False + If loadlines(30) = 11 Then boughtkigameconsoles = True Else boughtkigameconsoles = False + username = loadlines(31) + If loadlines(33) = 11 Then boughtshifter = True Else boughtshifter = False + If loadlines(34) = 11 Then boughtalshifter = True Else boughtalshifter = False + If loadlines(35) = 11 Then boughtrollupcommand = True Else boughtrollupcommand = False + If loadlines(36) = 11 Then boughtrollupbutton = True Else boughtrollupbutton = False + If loadlines(37) = 11 Then boughtshiftdesktop = True Else boughtshiftdesktop = False + If loadlines(38) = 11 Then boughtshiftpanelclock = True Else boughtshiftpanelclock = False + If loadlines(39) = 11 Then boughtshiftapplauncher = True Else boughtshiftapplauncher = False + If loadlines(40) = 11 Then boughtshiftdesktoppanel = True Else boughtshiftdesktoppanel = False + If loadlines(41) = 11 Then boughtshifttitlebar = True Else boughtshifttitlebar = False + If loadlines(42) = 11 Then boughtshifttitletext = True Else boughtshifttitletext = False + If loadlines(43) = 11 Then boughtshifttitlebuttons = True Else boughtshifttitlebuttons = False + If loadlines(44) = 11 Then boughtshiftborders = True Else boughtshiftborders = False + If loadlines(45) = 11 Then boughtgray2 = True Else boughtgray2 = False + If loadlines(46) = 11 Then boughtgray3 = True Else boughtgray3 = False + If loadlines(47) = 11 Then boughtgray4 = True Else boughtgray4 = False + If loadlines(48) = 11 Then boughtanycolour = True Else boughtanycolour = False + If loadlines(49) = 11 Then boughtanycolour2 = True Else boughtanycolour2 = False + If loadlines(50) = 11 Then boughtanycolour3 = True Else boughtanycolour3 = False + If loadlines(51) = 11 Then boughtanycolour4 = True Else boughtanycolour4 = False + If loadlines(52) = 11 Then boughtpurple = True Else boughtpurple = False + If loadlines(53) = 11 Then boughtpurple2 = True Else boughtpurple2 = False + If loadlines(54) = 11 Then boughtpurple3 = True Else boughtpurple3 = False + If loadlines(55) = 11 Then boughtpurple4 = True Else boughtpurple4 = False + If loadlines(56) = 11 Then boughtblue = True Else boughtblue = False + If loadlines(57) = 11 Then boughtblue2 = True Else boughtblue2 = False + If loadlines(58) = 11 Then boughtblue3 = True Else boughtblue3 = False + If loadlines(59) = 11 Then boughtblue4 = True Else boughtblue4 = False + If loadlines(60) = 11 Then boughtgreen = True Else boughtgreen = False + If loadlines(61) = 11 Then boughtgreen2 = True Else boughtgreen2 = False + If loadlines(62) = 11 Then boughtgreen3 = True Else boughtgreen3 = False + If loadlines(63) = 11 Then boughtgreen4 = True Else boughtgreen4 = False + If loadlines(64) = 11 Then boughtyellow = True Else boughtyellow = False + If loadlines(65) = 11 Then boughtyellow2 = True Else boughtyellow2 = False + If loadlines(66) = 11 Then boughtyellow3 = True Else boughtyellow3 = False + If loadlines(67) = 11 Then boughtyellow4 = True Else boughtyellow4 = False + If loadlines(68) = 11 Then boughtorange = True Else boughtorange = False + If loadlines(69) = 11 Then boughtorange2 = True Else boughtorange2 = False + If loadlines(70) = 11 Then boughtorange3 = True Else boughtorange3 = False + If loadlines(71) = 11 Then boughtorange4 = True Else boughtorange4 = False + If loadlines(72) = 11 Then boughtbrown = True Else boughtbrown = False + If loadlines(73) = 11 Then boughtbrown2 = True Else boughtbrown2 = False + If loadlines(74) = 11 Then boughtbrown3 = True Else boughtbrown3 = False + If loadlines(75) = 11 Then boughtbrown4 = True Else boughtbrown4 = False + If loadlines(76) = 11 Then boughtred = True Else boughtred = False + If loadlines(77) = 11 Then boughtred2 = True Else boughtred2 = False + If loadlines(78) = 11 Then boughtred3 = True Else boughtred3 = False + If loadlines(79) = 11 Then boughtred4 = True Else boughtred4 = False + If loadlines(80) = 11 Then boughtpink = True Else boughtpink = False + If loadlines(81) = 11 Then boughtpink2 = True Else boughtpink2 = False + If loadlines(82) = 11 Then boughtpink3 = True Else boughtpink3 = False + If loadlines(83) = 11 Then boughtpink4 = True Else boughtpink4 = False + If loadlines(84) = 11 Then boughtdirectorysurfing = True Else boughtdirectorysurfing = False + osname = loadlines(85) + If loadlines(86) = 11 Then boughtbasicsettings = True Else boughtbasicsettings = False + If loadlines(87) = 11 Then boughtbasicgui = True Else boughtbasicgui = False + If loadlines(88) = 11 Then boughtterminalsettextcolor = True Else boughtterminalsettextcolor = False + If loadlines(89) = 11 Then boughtbasicwm = True Else boughtbasicwm = False + + + + + + + + 'Add appropriate features here. + + If loadlines(285) = 11 Then boughtpong = True Else boughtpong = False + If loadlines(286) = 11 Then boughtknowledgeinputicon = True Else boughtknowledgeinputicon = False + If loadlines(287) = 11 Then boughtshiftericon = True Else boughtshiftericon = False + If loadlines(288) = 11 Then boughtshiftoriumicon = True Else boughtshiftoriumicon = False + If loadlines(289) = 11 Then boughtclockicon = True Else boughtclockicon = False + If loadlines(290) = 11 Then boughtshutdownicon = True Else boughtshutdownicon = False + If loadlines(291) = 11 Then boughtpongicon = True Else boughtpongicon = False + If loadlines(292) = 11 Then boughtterminalicon = True Else boughtterminalicon = False + If loadlines(293) = 11 Then boughtalpong = True Else boughtalpong = False + If loadlines(294) = 11 Then boughtfileskimmer = True Else boughtfileskimmer = False + If loadlines(295) = 11 Then boughtalfileskimmer = True Else boughtalfileskimmer = False + If loadlines(296) = 11 Then boughttextpad = True Else boughttextpad = False + If loadlines(297) = 11 Then boughtaltextpad = True Else boughtaltextpad = False + If loadlines(298) = 11 Then boughtfileskimmericon = True Else boughtfileskimmericon = False + If loadlines(299) = 11 Then boughttextpadicon = True Else boughttextpadicon = False + If loadlines(300) = 11 Then boughttextpadnew = True Else boughttextpadnew = False + If loadlines(301) = 11 Then boughttextpadsave = True Else boughttextpadsave = False + If loadlines(302) = 11 Then boughttextpadopen = True Else boughttextpadopen = False + If loadlines(303) = 11 Then boughtfileskimmernewfolder = True Else boughtfileskimmernewfolder = False + If loadlines(304) = 11 Then boughtfileskimmerdelete = True Else boughtfileskimmerdelete = False + If loadlines(305) = 11 Then boughtkielements = True Else boughtkielements = False + If loadlines(306) = 11 Then boughtcolourpickericon = True Else boughtcolourpickericon = False + If loadlines(307) = 11 Then boughtinfoboxicon = True Else boughtinfoboxicon = False + + 'Add appropriate features here + + If loadlines(314) = 11 Then boughtskinloader = True Else boughtskinloader = False + If loadlines(315) = 11 Then boughtminimizebutton = True Else boughtminimizebutton = False + If loadlines(316) = 11 Then boughtpanelbuttons = True Else boughtpanelbuttons = False + If loadlines(317) = 11 Then boughtshiftpanelbuttons = True Else boughtshiftpanelbuttons = False + If loadlines(318) = 11 Then boughtartpad = True Else boughtartpad = False + If loadlines(319) = 11 Then boughtalartpad = True Else boughtalartpad = False + If loadlines(320) = 11 Then boughtartpadicon = True Else boughtartpadicon = False + If loadlines(321) = 11 Then boughtskinning = True Else boughtskinning = False + If loadlines(322) = 11 Then boughtminimizecommand = True Else boughtminimizecommand = False + If loadlines(323) = 11 Then boughtusefulpanelbuttons = True Else boughtusefulpanelbuttons = False + If loadlines(324) = 11 Then boughtunitymode = True Else boughtunitymode = False + If loadlines(325) = 11 Then boughtartpadpixellimit4 = True Else boughtartpadpixellimit4 = False + If loadlines(326) = 11 Then boughtartpadpixellimit8 = True Else boughtartpadpixellimit8 = False + If loadlines(327) = 11 Then boughtartpadpixellimit16 = True Else boughtartpadpixellimit16 = False + If loadlines(328) = 11 Then boughtartpadpixellimit64 = True Else boughtartpadpixellimit64 = False + If loadlines(329) = 11 Then boughtartpadpixellimit256 = True Else boughtartpadpixellimit256 = False + If loadlines(330) = 11 Then boughtartpadpixellimit1024 = True Else boughtartpadpixellimit1024 = False + If loadlines(331) = 11 Then boughtartpadpixellimit4096 = True Else boughtartpadpixellimit4096 = False + If loadlines(332) = 11 Then boughtartpadpixellimit16384 = True Else boughtartpadpixellimit16384 = False + If loadlines(333) = 11 Then boughtartpadpixellimit65536 = True Else boughtartpadpixellimit65536 = False + If loadlines(334) = 11 Then boughtartpadlimitlesspixels = True Else boughtartpadlimitlesspixels = False + If loadlines(335) = 11 Then boughtartpad4colorpallets = True Else boughtartpad4colorpallets = False + If loadlines(336) = 11 Then boughtartpad8colorpallets = True Else boughtartpad8colorpallets = False + If loadlines(337) = 11 Then boughtartpad16colorpallets = True Else boughtartpad16colorpallets = False + If loadlines(338) = 11 Then boughtartpad32colorpallets = True Else boughtartpad32colorpallets = False + If loadlines(339) = 11 Then boughtartpad64colorpallets = True Else boughtartpad64colorpallets = False + If loadlines(340) = 11 Then boughtartpad128colorpallets = True Else boughtartpad128colorpallets = False + If loadlines(341) = 11 Then boughtartpadcustompallets = True Else boughtartpadcustompallets = False + If loadlines(342) = 11 Then boughtartpadpixelplacer = True Else boughtartpadpixelplacer = False + If loadlines(343) = 11 Then boughtartpadpixelplacermovementmode = True Else boughtartpadpixelplacermovementmode = False + If loadlines(344) = 11 Then boughtartpadpencil = True Else boughtartpadpencil = False + If loadlines(345) = 11 Then boughtartpadpaintbrush = True Else boughtartpadpaintbrush = False + If loadlines(346) = 11 Then boughtartpadlinetool = True Else boughtartpadlinetool = False + If loadlines(347) = 11 Then boughtartpadovaltool = True Else boughtartpadovaltool = False + If loadlines(348) = 11 Then boughtartpadrectangletool = True Else boughtartpadrectangletool = False + If loadlines(349) = 11 Then boughtartpaderaser = True Else boughtartpaderaser = False + If loadlines(350) = 11 Then boughtartpadfilltool = True Else boughtartpadfilltool = False + If loadlines(351) = 11 Then boughtartpadtexttool = True Else boughtartpadtexttool = False + If loadlines(352) = 11 Then boughtartpadundo = True Else boughtartpadundo = False + If loadlines(353) = 11 Then boughtartpadredo = True Else boughtartpadredo = False + If loadlines(354) = 11 Then boughtartpadsave = True Else boughtartpadsave = False + If loadlines(355) = 11 Then boughtartpadload = True Else boughtartpadload = False + If loadlines(484) = "" Then Else If loadlines(484) = 11 Then boughtartpadnew = True Else boughtartpadnew = False + 'Not yet implemented! ingameversion = loadlines(485) + If loadlines(486) = 11 Then boughtresizablewindows = True Else boughtresizablewindows = False + If loadlines(487) = 11 Then boughtcalculator = True Else boughtcalculator = False + If loadlines(488) = 11 Then boughtaudioplayer = True Else boughtaudioplayer = False + If loadlines(489) = 11 Then boughtchangeosnamecommand = True Else boughtchangeosnamecommand = False + If loadlines(490) = 11 Then boughtwebbrowser = True Else boughtwebbrowser = False + If loadlines(491) = 11 Then boughtvideoplayer = True Else boughtvideoplayer = False + If loadlines(492) = 11 Then boughtnamechanger = True Else boughtnamechanger = False + If loadlines(493) = 11 Then boughticonmanager = True Else boughticonmanager = False + If loadlines(494) = 11 Then boughtbitnotewallet = True Else boughtbitnotewallet = False + If loadlines(495) = 11 Then boughtbitnotedigger = True Else boughtbitnotedigger = False + If loadlines(496) = 11 Then boughtskinshifter = True Else boughtskinshifter = False + If loadlines(497) = 11 Then boughtshiftnet = True Else boughtshiftnet = False + If loadlines(498) = 11 Then boughtshiftneticon = True Else boughtshiftneticon = False + If loadlines(499) = 11 Then boughtalshiftnet = True Else boughtalshiftnet = False + If loadlines(500) = 11 Then boughtdodge = True Else boughtdodge = False + If loadlines(501) = 11 Then boughtdownloadmanager = True Else boughtdownloadmanager = False + If loadlines(502) = 11 Then boughtinstaller = True Else boughtinstaller = False + If loadlines(503) = 11 Then boughtsysinfoicon = True Else boughtsysinfoicon = False + If loadlines(504) = 11 Then boughtorcwrite = True Else boughtorcwrite = False + If loadlines(505) = 11 Then boughtfloodgate = True Else boughtfloodgate = False + If loadlines(506) = 11 Then boughtmaze = True Else boughtmaze = False + If loadlines(507) = 11 Then boughtunitymodetoggle = True Else boughtunitymodetoggle = False + If loadlines(508) = 11 Then boughtunitytoggleicon = True Else boughtunitytoggleicon = False + bitnotediggergrade = loadlines(509) + If loadlines(510) = 11 Then boughtvirusscannericon = True Else boughtvirusscannericon = False + virusscannergrade = loadlines(511) + If loadlines(512) = 11 Then boughttextpadtrm = True Else boughttextpadtrm = False + If loadlines(513) = 11 Then boughtshiftapplauncheritems = True Else boughtshiftapplauncheritems = False + Catch ex As Exception + Terminal.prompttoupdatesave = True + End Try + End Sub + + +End Module diff --git a/shiftos_next/APIs/shiftorium_api.vb b/shiftos_next/APIs/shiftorium_api.vb new file mode 100644 index 0000000..39960e4 --- /dev/null +++ b/shiftos_next/APIs/shiftorium_api.vb @@ -0,0 +1,21 @@ +Module shiftorium_api + 'API for Shiftorium Applications. + + Public listboxtoaddto As ListBox + Public codepoints As Integer + + Public Sub DeductCP(ammount As Integer) + codepoints -= ammount + savegame() + End Sub + + Public Sub AddCP(ammount As Integer) + codepoints += ammount + savegame() + End Sub + + Public Sub AddItem(name As String, CP As Integer) + listboxtoaddto.Items.Add(name & " - " & CP & " CP") + End Sub + +End Module |