shiftos-archive/ShiftOS
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/ShiftOS.git synced 2025-01-23 00:12:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
ShiftOS/ShiftOS/ShiftOSDesktop.vb
pfg github a3db778746 Full Source
2015-03-08 09:18:40 -07:00

4738 lines
No EOL
263 KiB
VB.net
Raw Blame History

Public Class ShiftOSDesktop
#Region "Saving and Loading Skins and Game Progress"
Public justconverted As Boolean = False
Public codepoints As Integer
Public log As String
Public forceclose As Boolean = False
Public movablewindownumber As Integer = 50
Public terminalfullscreen As Boolean = True
Public unitymode As Boolean = False
Public savelines(2000) As String
Public loadlines(2000) As String
Public skinlines(200) As String
Public newgame As Boolean = False
Public lastcolourpick As Color = Color.Gray
Public programsopen As Integer = 0
Public ShiftOSPath As String = "C:\ShiftOS\"
Private actualshiftversion As String = "0.0.8"
Public ingameversion As String = "0.0.1.0"
'Corruptions
Public FileSkimmerCorrupted As Boolean = False
Public ArtpadCorrupted As Boolean = False
Public AudioPlayerCorrupted As Boolean = False
Public BitNoteDiggerCorrupted As Boolean = False
Public BitNoteWalletCorrupted As Boolean = False
Public CalculatorCorrupted As Boolean = False
Public ClockCorrupted As Boolean = False
Public CoherenceModeCorrupted As Boolean = False
Public ColourPickerCorrupted As Boolean = False
Public DodgeCorrupted As Boolean = False
Public DownloadManagerCorrupted As Boolean = False
Public FloodGateManagerCorrupted As Boolean = False
Public GraphicPickerCorrupted As Boolean = False
Public IconManagerCorrupted As Boolean = False
Public InstallerCorrupted As Boolean = False
Public KnowledgeInputCorrupted As Boolean = False
Public LabyrinthCorrupted As Boolean = False
Public NameChangerCorrupted As Boolean = False
Public OrcWriteCorrupted As Boolean = False
Public PongCorrupted As Boolean = False
Public ShifterCorrupted As Boolean = False
Public ShiftNetCorrupted As Boolean = False
Public ShiftoriumCorrupted As Boolean = False
Public SkinLoaderCorrupted As Boolean = False
Public SkinShifterCorrupted As Boolean = False
Public SnakeyCorrupted As Boolean = False
Public SystemInfoCorrupted As Boolean = False
Public TerminalCorrupted As Boolean = False
Public TextpadCorrupted As Boolean = False
Public VideoPlayerCorrupted As Boolean = False
Public VirusScannerCorrupted As Boolean = False
Public WebBrowserCorrupted As Boolean = False
'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
'Apps bought through shiftnet
Public installedcalculator As Boolean = False
Public installedaudioplayer As Boolean = False
Public installedwebbrowser As Boolean = False
Public installedvideoplayer As Boolean = False
Public installeddodge As Boolean = False
Public installedsnakey As Boolean = False
Public installedsysinfo As Boolean = False
Public installedorcwrite As Boolean = False
Public installedfloodgate As Boolean = False
Public installedfloodgatenow As Boolean = False
Public installedmaze As Boolean = False
Public installedvirusscanner As Boolean = False
'new 0.0.9 features
Public boughtskinstates As Boolean = False
'Colour Picker Memories
Public anymemory(15) As Color
Public graymemory(15) As Color
Public purplememory(15) As Color
Public bluememory(15) As Color
Public greenmemory(15) As Color
Public yellowmemory(15) As Color
Public orangememory(15) As Color
Public brownmemory(15) As Color
Public redmemory(15) As Color
Public pinkmemory(15) As Color
'ShiftOS UI Settings
Public titlebarcolour As Color = Color.Gray
Public windowbordercolour As Color = Color.Gray
Public windowbordersize As Integer = 2
Public titlebarheight As Integer = 30
Public closebuttoncolour As Color = Color.Black
Public closebuttonheight As Integer = 22
Public closebuttonwidth As Integer = 22
Public closebuttonside As Integer = 5
Public closebuttontop As Integer = 4
Public titletextcolour As Color = Color.White
Public titletexttop As Integer = 7
Public titletextside As Integer = 4
Public titletextsize As Integer = 11
Public titletextfont As String = "Felix Titling"
Public titletextstyle As FontStyle = FontStyle.Bold
Public desktoppanelcolour As Color = Color.Gray
Public desktopbackgroundcolour As Color = Color.Black
Public desktoppanelheight As Integer = 24
Public desktoppanelposition As String = "Top"
Public clocktextcolour As Color = Color.Black
Public clockbackgroundcolor As Color = Color.Gray
Public panelclocktexttop As Integer = 0
Public panelclocktextsize As Integer = 14
Public panelclocktextfont As String = "Trebuchet MS"
Public panelclocktextstyle As FontStyle = FontStyle.Regular
Public applauncherbuttoncolour As Color = Color.Gray
Public applauncherbuttonclickedcolour = Color.Gray
Public applauncherbackgroundcolour As Color = Color.Gray
Public applaunchermouseovercolour As Color = Color.Gray
Public applicationsbuttontextcolour As Color = Color.Black
Public applicationbuttonheight As Integer = 24
Public applicationbuttontextsize As Integer = 10
Public applicationbuttontextfont As String = "Byington"
Public applicationbuttontextstyle As FontStyle = FontStyle.Bold
Public applicationlaunchername As String = "Applications"
Public titletextposition As String = "Left"
Public rollupbuttoncolour As Color = Color.Black
Public rollupbuttonheight As Integer = 22
Public rollupbuttonwidth As Integer = 22
Public rollupbuttonside As Integer = 32
Public rollupbuttontop As Integer = 4
'new 0.0.7
Public titlebariconside As Integer = 8
Public titlebaricontop As Integer = 8
Public showwindowcorners As Boolean = False
Public titlebarcornerwidth As Integer = 2
Public titlebarrightcornercolour As Color = Color.White
Public titlebarleftcornercolour As Color = Color.White
Public applaunchermenuholderwidth As Integer = 100
Public windowborderleftcolour As Color = Color.Gray
Public windowborderrightcolour As Color = Color.Gray
Public windowborderbottomcolour As Color = Color.Gray
Public windowborderbottomrightcolour As Color = Color.Gray
Public windowborderbottomleftcolour As Color = Color.Gray
Public fileopenerlastdirectory As String
Public panelbuttonicontop As Integer = 3
Public panelbuttoniconside As Integer = 4
'Public panelbuttoniconsize As Integer = 16 'duplicated
'Public panelbuttoniconsize As Integer = 16 'duplicated
Public panelbuttonheight As Integer = 22
Public panelbuttonwidth As Integer = 186
Public panelbuttoncolour As Color = Color.Black
Public panelbuttontextcolour As Color = Color.White
Public panelbuttontextsize As Integer = 10
Public panelbuttontextfont As String = "Microsoft Sans Serif"
Public panelbuttontextstyle As FontStyle = FontStyle.Bold
Public panelbuttontextside As Integer = 22
Public panelbuttontexttop As Integer = 2
Public panelbuttongap As Integer = 1
Public panelbuttonfromtop As Integer = 1
Public panelbuttoninitialgap As Integer = 5
Public minimizebuttoncolour As Color = Color.Black
Public minimizebuttonheight As Integer = 22
Public minimizebuttonwidth As Integer = 22
Public minimizebuttonside As Integer = 59
Public minimizebuttontop As Integer = 4
'ShiftOS Skin Settings
'finsih up checking for skin changes with states in the clock app before copying across to other apps
Public globaltransparencycolour As Color = Color.FromArgb(1, 0, 1)
'Public skinimages(100) As String
'Public skinclosebutton(2) As Image
'Public skinclosebuttonstyle As ImageLayout = ImageLayout.Stretch
'Public skintitlebar(2) As Image
'Public skintitlebarstyle As ImageLayout = ImageLayout.Stretch
'Public skindesktopbackground(2) As Image
'Public skindesktopbackgroundstyle As ImageLayout = ImageLayout.Stretch
'Public skinrollupbutton(2) As Image
'Public skinrollupbuttonstyle As ImageLayout = ImageLayout.Stretch
'Public skintitlebarrightcorner(2) As Image
'Public skintitlebarrightcornerstyle As ImageLayout = ImageLayout.Stretch
'Public skintitlebarleftcorner(2) As Image
'Public skintitlebarleftcornerstyle As ImageLayout = ImageLayout.Stretch
'Public skindesktoppanel(2) As Image
'Public skindesktoppanelstyle As ImageLayout = ImageLayout.Stretch
'Public skindesktoppaneltime(2) As Image
'Public skindesktoppaneltimestyle As ImageLayout = ImageLayout.Stretch
'Public skinapplauncherbutton(2) As Image
'Public skinapplauncherbuttonstyle As ImageLayout = ImageLayout.Stretch
'Public skinwindowborderleft(2) As Image
'Public skinwindowborderleftstyle As ImageLayout = ImageLayout.Stretch
'Public skinwindowborderright(2) As Image
'Public skinwindowborderrightstyle As ImageLayout = ImageLayout.Stretch
'Public skinwindowborderbottom(2) As Image
'Public skinwindowborderbottomstyle As ImageLayout = ImageLayout.Stretch
'Public skinwindowborderbottomright(2) As Image
'Public skinwindowborderbottomrightstyle As ImageLayout = ImageLayout.Stretch
'Public skinwindowborderbottomleft(2) As Image
'Public skinwindowborderbottomleftstyle As ImageLayout = ImageLayout.Stretch
'Public skinpanelbutton(2) As Image
'Public skinpanelbuttonstyle As ImageLayout = ImageLayout.Stretch
'Public skinminimizebutton(2) As Image
'Public skinminimizebuttonstyle As ImageLayout = ImageLayout.Stretch
'Program settings
Public artpadcolorpalletwidth As Integer = 105
Public artpadcolorpalletheight As Integer = 69
Public artpadcolorpalletsidegap As Integer = 4
Public artpadcolorpallettopgap As Integer = 4
Public artpadvisiblepallets As Integer = 2
Public artpadpixellimit As Integer = 2
Public artpadcolourpallets(128) As Color
Public webbrowserhomepage As String = "www.google.com"
Public iconmanagericondatalines(50) As String
Public bitnotebalance As Decimal = 0.0
Public bitnotebalanceappscape As Decimal = 0.0
Public bitnoteaddress As String = "1LgZUWQNYWZ7Qhc1hScZieC3GWnPLzaqSd"
Public bitnoteaddressappscape As String = "1JB97iocfdv6zVMeKxXAHdahbfdoYWNyUh"
Public bitnoteaddressshiftomizer As String = "Gu603g4348UhBJcnDEc3YIwph"
Public bitnotebalanceminimatch As Decimal = 0.0
Public downloadmanagerhistory As String
Public downloadspeedcap As Integer = 32
'Main ShiftOS settings
Public username As String = "user"
Public osname As String = "shiftos"
Public artpadname As String = "Artpad"
Public audioplayername As String = "Audio Player"
Public calculatorname As String = "Calculator"
Public clockname As String = "Clock"
Public colourpickername As String = "Colour Picker"
Public fileopenername As String = "File Opener"
Public filesavername As String = "File Saver"
Public fileskimmername As String = "File Skimmer"
Public graphicpickername As String = "Graphic Picker"
Public knowledgeinputname As String = "Knowledge Input"
Public pongname As String = "Pong"
Public shiftername As String = "Shifter"
Public shiftoriumname As String = "Shiftorium"
Public skinloadername As String = "Skin Loader"
Public terminalname As String = "Terminal"
Public textpadname As String = "TextPad"
Public videoplayername As String = "Video Player"
Public webbrowsername As String = "Web Browser"
Public namechangername As String = "Name Changer"
Public iconmanagername As String = "Icon Manager"
Public bitnotewalletname As String = "Bitnote Wallet"
Public bitnotediggername As String = "Bitnote Digger"
Public skinshiftername As String = "Skin Shifter"
Public shiftnetname As String = "Shiftnet"
Public downloadername As String = "Downloader"
Public dodgename As String = "Dodge"
Public downloadmanagername As String = "Download Manager"
Public installername As String = "Installer"
Public snakeyname As String = "Snakey"
Public sysinfoname As String = "System Information"
Public orcwritename As String = "OrcWrite"
Public floodgatename As String = "FloodGate Manager"
Public mazename As String = "Labyrinth"
Public virusscannername As String = "Virus Scanner"
'Icons
Public titlebariconsize As Integer = 16
Public panelbuttoniconsize As Integer = 16
Public launchericonsize As Integer = 16
Public artpadicontitlebar As Image = My.Resources.iconArtpad
Public audioplayericontitlebar As Image = My.Resources.iconAudioPlayer
Public calculatoricontitlebar As Image = My.Resources.iconCalculator
Public clockicontitlebar As Image = My.Resources.iconClock
Public colourpickericontitlebar As Image = My.Resources.iconColourPicker
Public fileopenericontitlebar As Image = My.Resources.iconFileOpener
Public filesavericontitlebar As Image = My.Resources.iconFileSaver
Public fileskimmericontitlebar As Image = My.Resources.iconFileSkimmer
Public graphicpickericontitlebar As Image = My.Resources.iconGraphicPicker
Public infoboxicontitlebar As Image = My.Resources.iconInfoBox
Public knowledgeinputicontitlebar As Image = My.Resources.iconKnowledgeInput
Public pongicontitlebar As Image = My.Resources.iconPong
Public shiftericontitlebar As Image = My.Resources.iconShifter
Public shiftoriumicontitlebar As Image = My.Resources.iconShiftorium
Public skinloadericontitlebar As Image = My.Resources.iconSkinLoader
Public terminalicontitlebar As Image = My.Resources.iconTerminal
Public textpadicontitlebar As Image = My.Resources.iconTextPad
Public videoplayericontitlebar As Image = My.Resources.iconVideoPlayer
Public webbrowsericontitlebar As Image = My.Resources.iconWebBrowser
Public namechangericontitlebar As Image = My.Resources.iconNameChanger
Public iconmanagericontitlebar As Image = My.Resources.iconIconManager
Public bitnotewalleticontitlebar As Image = My.Resources.iconBitnoteWallet
Public bitnotediggericontitlebar As Image = My.Resources.iconBitnoteDigger
Public skinshiftericontitlebar As Image = My.Resources.iconSkinShifter
Public shiftneticontitlebar As Image = My.Resources.iconShiftnet
Public downloadericontitlebar As Image = My.Resources.iconDownloader
Public dodgeicontitlebar As Image = My.Resources.iconDodge
Public downloadmanagericontitlebar As Image = My.Resources.icondownloadmanager
Public installericontitlebar As Image = My.Resources.iconinstaller
Public snakeyicontitlebar As Image = My.Resources.iconSnakey
Public sysinfoicontitlebar As Image = My.Resources.iconSysinfo
Public orcwriteicontitlebar As Image = My.Resources.iconorcwrite
Public floodgateicontitlebar As Image = My.Resources.iconfloodgate
Public mazeicontitlebar As Image = My.Resources.iconmaze
Public virusscannericontitlebar As Image = My.Resources.iconvirusscanner
Public artpadiconpanelbutton As Image = My.Resources.iconArtpad
Public audioplayericonpanelbutton As Image = My.Resources.iconAudioPlayer
Public calculatoriconpanelbutton As Image = My.Resources.iconCalculator
Public clockiconpanelbutton As Image = My.Resources.iconClock
Public colourpickericonpanelbutton As Image = My.Resources.iconColourPicker
Public fileopenericonpanelbutton As Image = My.Resources.iconFileOpener
Public filesavericonpanelbutton As Image = My.Resources.iconFileSaver
Public fileskimmericonpanelbutton As Image = My.Resources.iconFileSkimmer
Public graphicpickericonpanelbutton As Image = My.Resources.iconGraphicPicker
Public infoboxiconpanelbutton As Image = My.Resources.iconInfoBox
Public knowledgeinputiconpanelbutton As Image = My.Resources.iconKnowledgeInput
Public pongiconpanelbutton As Image = My.Resources.iconPong
Public shiftericonpanelbutton As Image = My.Resources.iconShifter
Public shiftoriumiconpanelbutton As Image = My.Resources.iconShiftorium
Public skinloadericonpanelbutton As Image = My.Resources.iconSkinLoader
Public terminaliconpanelbutton As Image = My.Resources.iconTerminal
Public textpadiconpanelbutton As Image = My.Resources.iconTextPad
Public videoplayericonpanelbutton As Image = My.Resources.iconVideoPlayer
Public webbrowsericonpanelbutton As Image = My.Resources.iconWebBrowser
Public namechangericonpanelbutton As Image = My.Resources.iconNameChanger
Public iconmanagericonpanelbutton As Image = My.Resources.iconIconManager
Public bitnotewalleticonpanelbutton As Image = My.Resources.iconBitnoteWallet
Public bitnotediggericonpanelbutton As Image = My.Resources.iconBitnoteDigger
Public skinshiftericonpanelbutton As Image = My.Resources.iconSkinShifter
Public shiftneticonpanelbutton As Image = My.Resources.iconShiftnet
Public downloadericonpanelbutton As Image = My.Resources.iconDownloader
Public dodgeiconpanelbutton As Image = My.Resources.iconDodge
Public downloadmanagericonpanelbutton As Image = My.Resources.icondownloadmanager
Public installericonpanelbutton As Image = My.Resources.iconinstaller
Public snakeyiconpanelbutton As Image = My.Resources.iconSnakey
Public sysinfoiconpanelbutton As Image = My.Resources.iconSysinfo
Public orcwriteiconpanelbutton As Image = My.Resources.iconorcwrite
Public floodgateiconpanelbutton As Image = My.Resources.iconfloodgate
Public mazeiconpanelbutton As Image = My.Resources.iconmaze
Public virusscannericonpanelbutton As Image = My.Resources.iconvirusscanner
Public artpadiconlauncher As Image = My.Resources.iconArtpad
Public audioplayericonlauncher As Image = My.Resources.iconAudioPlayer
Public calculatoriconlauncher As Image = My.Resources.iconCalculator
Public clockiconlauncher As Image = My.Resources.iconClock
Public colourpickericonlauncher As Image = My.Resources.iconColourPicker
Public fileopenericonlauncher As Image = My.Resources.iconFileOpener
Public filesavericonlauncher As Image = My.Resources.iconFileSaver
Public fileskimmericonlauncher As Image = My.Resources.iconFileSkimmer
Public graphicpickericonlauncher As Image = My.Resources.iconGraphicPicker
Public infoboxiconlauncher As Image = My.Resources.iconInfoBox
Public knowledgeinputiconlauncher As Image = My.Resources.iconKnowledgeInput
Public pongiconlauncher As Image = My.Resources.iconPong
Public shiftericonlauncher As Image = My.Resources.iconShifter
Public shiftoriumiconlauncher As Image = My.Resources.iconShiftorium
Public skinloadericonlauncher As Image = My.Resources.iconSkinLoader
Public terminaliconlauncher As Image = My.Resources.iconTerminal
Public textpadiconlauncher As Image = My.Resources.iconTextPad
Public videoplayericonlauncher As Image = My.Resources.iconVideoPlayer
Public webbrowsericonlauncher As Image = My.Resources.iconWebBrowser
Public namechangericonlauncher As Image = My.Resources.iconNameChanger
Public iconmanagericonlauncher As Image = My.Resources.iconIconManager
Public bitnotewalleticonlauncher As Image = My.Resources.iconBitnoteWallet
Public bitnotediggericonlauncher As Image = My.Resources.iconBitnoteDigger
Public skinshiftericonlauncher As Image = My.Resources.iconSkinShifter
Public shiftneticonlauncher As Image = My.Resources.iconShiftnet
Public downloadericonlauncher As Image = My.Resources.iconDownloader
Public dodgeiconlauncher As Image = My.Resources.iconDodge
Public downloadmanagericonlauncher As Image = My.Resources.icondownloadmanager
Public installericonlauncher As Image = My.Resources.iconinstaller
Public snakeyiconlauncher As Image = My.Resources.iconSnakey
Public sysinfoiconlauncher As Image = My.Resources.iconSysinfo
Public orcwriteiconlauncher As Image = My.Resources.iconorcwrite
Public floodgateiconlauncher As Image = My.Resources.iconfloodgate
Public mazeiconlauncher As Image = My.Resources.iconmaze
Public virusscannericonlauncher As Image = My.Resources.iconvirusscanner
Public shutdowniconlauncher As Image = My.Resources.iconshutdown
Public unitytoggleiconlauncher As Image = My.Resources.iconunitytoggle
'Required for encryption of save files
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer
Public Const sSecretKey As String = "Password"
'When adding a new program you need to do the following:
'Copy over Template and Template Code
'Make program upmost/alway on top
'Add the panelbutton
'Add Open and Close command in terminal as well as info and commands such as move to
'Add desktop launcher menu item
'Add buy from shiftorium and lanucher buy from shiftorium
'Add to all ShiftOSDesktop.vb things
Public Sub savegame()
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 terminalfullscreen = True Then savelines(32) = 11 Else savelines(32) = 10
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
savelines(84) = anymemory(0).ToArgb
savelines(85) = anymemory(1).ToArgb
savelines(86) = anymemory(2).ToArgb
savelines(87) = anymemory(3).ToArgb
savelines(88) = anymemory(4).ToArgb
savelines(89) = anymemory(5).ToArgb
savelines(90) = anymemory(6).ToArgb
savelines(91) = anymemory(7).ToArgb
savelines(92) = anymemory(8).ToArgb
savelines(93) = anymemory(9).ToArgb
savelines(94) = anymemory(10).ToArgb
savelines(95) = anymemory(11).ToArgb
savelines(96) = anymemory(12).ToArgb
savelines(97) = anymemory(13).ToArgb
savelines(98) = anymemory(14).ToArgb
savelines(99) = anymemory(15).ToArgb
savelines(100) = graymemory(0).ToArgb
savelines(101) = graymemory(1).ToArgb
savelines(102) = graymemory(2).ToArgb
savelines(103) = graymemory(3).ToArgb
savelines(104) = graymemory(4).ToArgb
savelines(105) = graymemory(5).ToArgb
savelines(106) = graymemory(6).ToArgb
savelines(107) = graymemory(7).ToArgb
savelines(108) = graymemory(8).ToArgb
savelines(109) = graymemory(9).ToArgb
savelines(110) = graymemory(10).ToArgb
savelines(111) = graymemory(11).ToArgb
savelines(112) = graymemory(12).ToArgb
savelines(113) = graymemory(13).ToArgb
savelines(114) = graymemory(14).ToArgb
savelines(115) = graymemory(15).ToArgb
savelines(116) = purplememory(0).ToArgb
savelines(117) = purplememory(1).ToArgb
savelines(118) = purplememory(2).ToArgb
savelines(119) = purplememory(3).ToArgb
savelines(120) = purplememory(4).ToArgb
savelines(121) = purplememory(5).ToArgb
savelines(122) = purplememory(6).ToArgb
savelines(123) = purplememory(7).ToArgb
savelines(124) = purplememory(8).ToArgb
savelines(125) = purplememory(9).ToArgb
savelines(126) = purplememory(10).ToArgb
savelines(127) = purplememory(11).ToArgb
savelines(128) = purplememory(12).ToArgb
savelines(129) = purplememory(13).ToArgb
savelines(130) = purplememory(14).ToArgb
savelines(131) = purplememory(15).ToArgb
savelines(132) = bluememory(0).ToArgb
savelines(133) = bluememory(1).ToArgb
savelines(134) = bluememory(2).ToArgb
savelines(135) = bluememory(3).ToArgb
savelines(136) = bluememory(4).ToArgb
savelines(137) = bluememory(5).ToArgb
savelines(138) = bluememory(6).ToArgb
savelines(139) = bluememory(7).ToArgb
savelines(140) = bluememory(8).ToArgb
savelines(141) = bluememory(9).ToArgb
savelines(142) = bluememory(10).ToArgb
savelines(143) = bluememory(11).ToArgb
savelines(144) = bluememory(12).ToArgb
savelines(145) = bluememory(13).ToArgb
savelines(146) = bluememory(14).ToArgb
savelines(147) = bluememory(15).ToArgb
savelines(148) = greenmemory(0).ToArgb
savelines(149) = greenmemory(1).ToArgb
savelines(150) = greenmemory(2).ToArgb
savelines(151) = greenmemory(3).ToArgb
savelines(152) = greenmemory(4).ToArgb
savelines(153) = greenmemory(5).ToArgb
savelines(154) = greenmemory(6).ToArgb
savelines(155) = greenmemory(7).ToArgb
savelines(156) = greenmemory(8).ToArgb
savelines(157) = greenmemory(9).ToArgb
savelines(158) = greenmemory(10).ToArgb
savelines(159) = greenmemory(11).ToArgb
savelines(160) = greenmemory(12).ToArgb
savelines(161) = greenmemory(13).ToArgb
savelines(162) = greenmemory(14).ToArgb
savelines(163) = greenmemory(15).ToArgb
savelines(164) = yellowmemory(0).ToArgb
savelines(165) = yellowmemory(1).ToArgb
savelines(166) = yellowmemory(2).ToArgb
savelines(167) = yellowmemory(3).ToArgb
savelines(168) = yellowmemory(4).ToArgb
savelines(169) = yellowmemory(5).ToArgb
savelines(170) = yellowmemory(6).ToArgb
savelines(171) = yellowmemory(7).ToArgb
savelines(172) = yellowmemory(8).ToArgb
savelines(173) = yellowmemory(9).ToArgb
savelines(174) = yellowmemory(10).ToArgb
savelines(175) = yellowmemory(11).ToArgb
savelines(176) = yellowmemory(12).ToArgb
savelines(177) = yellowmemory(13).ToArgb
savelines(178) = yellowmemory(14).ToArgb
savelines(179) = yellowmemory(15).ToArgb
savelines(180) = orangememory(0).ToArgb
savelines(181) = orangememory(1).ToArgb
savelines(182) = orangememory(2).ToArgb
savelines(183) = orangememory(3).ToArgb
savelines(184) = orangememory(4).ToArgb
savelines(185) = orangememory(5).ToArgb
savelines(186) = orangememory(6).ToArgb
savelines(187) = orangememory(7).ToArgb
savelines(188) = orangememory(8).ToArgb
savelines(189) = orangememory(9).ToArgb
savelines(190) = orangememory(10).ToArgb
savelines(191) = orangememory(11).ToArgb
savelines(192) = orangememory(12).ToArgb
savelines(193) = orangememory(13).ToArgb
savelines(194) = orangememory(14).ToArgb
savelines(195) = orangememory(15).ToArgb
savelines(196) = brownmemory(0).ToArgb
savelines(197) = brownmemory(1).ToArgb
savelines(198) = brownmemory(2).ToArgb
savelines(199) = brownmemory(3).ToArgb
savelines(200) = brownmemory(4).ToArgb
savelines(201) = brownmemory(5).ToArgb
savelines(202) = brownmemory(6).ToArgb
savelines(203) = brownmemory(7).ToArgb
savelines(204) = brownmemory(8).ToArgb
savelines(205) = brownmemory(9).ToArgb
savelines(206) = brownmemory(10).ToArgb
savelines(207) = brownmemory(11).ToArgb
savelines(208) = brownmemory(12).ToArgb
savelines(209) = brownmemory(13).ToArgb
savelines(210) = brownmemory(14).ToArgb
savelines(211) = brownmemory(15).ToArgb
savelines(212) = redmemory(0).ToArgb
savelines(213) = redmemory(1).ToArgb
savelines(214) = redmemory(2).ToArgb
savelines(215) = redmemory(3).ToArgb
savelines(216) = redmemory(4).ToArgb
savelines(217) = redmemory(5).ToArgb
savelines(218) = redmemory(6).ToArgb
savelines(219) = redmemory(7).ToArgb
savelines(220) = redmemory(8).ToArgb
savelines(221) = redmemory(9).ToArgb
savelines(222) = redmemory(10).ToArgb
savelines(223) = redmemory(11).ToArgb
savelines(224) = redmemory(12).ToArgb
savelines(225) = redmemory(13).ToArgb
savelines(226) = redmemory(14).ToArgb
savelines(227) = redmemory(15).ToArgb
savelines(228) = pinkmemory(0).ToArgb
savelines(229) = pinkmemory(1).ToArgb
savelines(230) = pinkmemory(2).ToArgb
savelines(231) = pinkmemory(3).ToArgb
savelines(232) = pinkmemory(4).ToArgb
savelines(233) = pinkmemory(5).ToArgb
savelines(234) = pinkmemory(6).ToArgb
savelines(235) = pinkmemory(7).ToArgb
savelines(236) = pinkmemory(8).ToArgb
savelines(237) = pinkmemory(9).ToArgb
savelines(238) = pinkmemory(10).ToArgb
savelines(239) = pinkmemory(11).ToArgb
savelines(240) = pinkmemory(12).ToArgb
savelines(241) = pinkmemory(13).ToArgb
savelines(242) = pinkmemory(14).ToArgb
savelines(243) = pinkmemory(15).ToArgb
savelines(244) = titlebarcolour.ToArgb
savelines(245) = windowbordercolour.ToArgb
savelines(246) = windowbordersize
savelines(247) = titlebarheight
savelines(248) = closebuttoncolour.ToArgb
savelines(249) = closebuttonheight
savelines(250) = closebuttonwidth
savelines(251) = closebuttonside
savelines(252) = closebuttontop
savelines(253) = titletextcolour.ToArgb
savelines(254) = titletexttop
savelines(255) = titletextside
savelines(256) = titletextsize
savelines(257) = titletextfont
savelines(258) = titletextstyle
savelines(259) = desktoppanelcolour.ToArgb
savelines(260) = desktopbackgroundcolour.ToArgb
savelines(261) = desktoppanelheight
savelines(262) = desktoppanelposition
savelines(263) = clocktextcolour.ToArgb
savelines(264) = clockbackgroundcolor.ToArgb
savelines(265) = panelclocktexttop
savelines(266) = panelclocktextsize
savelines(267) = panelclocktextfont
savelines(268) = panelclocktextstyle
savelines(269) = applauncherbuttoncolour.ToArgb
savelines(270) = applauncherbuttonclickedcolour.ToArgb
savelines(271) = applauncherbackgroundcolour.ToArgb
savelines(272) = applaunchermouseovercolour.ToArgb
savelines(273) = applicationsbuttontextcolour.ToArgb
savelines(274) = applicationbuttonheight
savelines(275) = applicationbuttontextsize
savelines(276) = applicationbuttontextfont
savelines(277) = applicationbuttontextstyle
savelines(278) = applicationlaunchername
savelines(279) = titletextposition
savelines(280) = rollupbuttoncolour.ToArgb
savelines(281) = rollupbuttonheight
savelines(282) = rollupbuttonwidth
savelines(283) = rollupbuttonside
savelines(284) = rollupbuttontop
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
savelines(308) = artpadcolorpalletwidth
savelines(309) = artpadcolorpalletheight
savelines(310) = artpadcolorpalletsidegap
savelines(311) = artpadcolorpallettopgap
savelines(312) = artpadvisiblepallets
savelines(313) = artpadpixellimit
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
For i = 0 To 127 : savelines(356 + i) = artpadcolourpallets(i).ToArgb : Next
If boughtartpadnew = True Then savelines(484) = 11 Else savelines(484) = 10
'0.0.8
savelines(485) = ingameversion
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
If installedcalculator Then savelines(514) = 11 Else savelines(514) = 10
If installedaudioplayer Then savelines(515) = 11 Else savelines(515) = 10
If installedwebbrowser Then savelines(516) = 11 Else savelines(516) = 10
If installedvideoplayer Then savelines(517) = 11 Else savelines(517) = 10
If installeddodge Then savelines(518) = 11 Else savelines(518) = 10
If installedsysinfo Then savelines(519) = 11 Else savelines(519) = 10
If installedorcwrite Then savelines(520) = 11 Else savelines(520) = 10
If installedfloodgate Then savelines(521) = 11 Else savelines(521) = 10
If installedfloodgatenow Then savelines(522) = 11 Else savelines(522) = 10
If installedmaze Then savelines(523) = 11 Else savelines(523) = 10
If installedvirusscanner Then savelines(524) = 11 Else savelines(524) = 10
savelines(525) = webbrowserhomepage
savelines(526) = bitnotebalance
savelines(527) = bitnotebalanceappscape
savelines(528) = bitnotebalanceminimatch
savelines(529) = "" ' download manager history - removed because could be muli-line
savelines(530) = downloadspeedcap
savelines(531) = osname
savelines(532) = artpadname
savelines(533) = audioplayername
savelines(534) = calculatorname
savelines(535) = clockname
savelines(536) = colourpickername
savelines(537) = fileopenername
savelines(538) = filesavername
savelines(539) = fileskimmername
savelines(540) = graphicpickername
savelines(541) = knowledgeinputname
savelines(542) = pongname
savelines(543) = shiftername
savelines(544) = shiftoriumname
savelines(545) = skinloadername
savelines(546) = terminalname
savelines(547) = textpadname
savelines(548) = videoplayername
savelines(549) = webbrowsername
savelines(550) = namechangername
savelines(551) = iconmanagername
savelines(552) = bitnotewalletname
savelines(553) = bitnotediggername
savelines(554) = skinshiftername
savelines(555) = shiftnetname
savelines(556) = dodgename
savelines(557) = downloadmanagername
savelines(558) = installername
savelines(559) = snakeyname
savelines(560) = sysinfoname
savelines(561) = orcwritename
savelines(562) = floodgatename
savelines(563) = mazename
savelines(564) = virusscannername
savelines(565) = titlebariconsize
savelines(566) = panelbuttoniconsize
savelines(567) = launchericonsize
If Viruses.zerogravity Then savelines(568) = 11 Else savelines(568) = 10
If Viruses.mousetrap Then savelines(569) = 11 Else savelines(569) = 10
If Viruses.beeper Then savelines(570) = 11 Else savelines(570) = 10
If Viruses.ThePlague Then savelines(571) = 11 Else savelines(571) = 10
savelines(572) = Viruses.zerogravitythreatlevel
savelines(573) = Viruses.mousetrapthreatlevel
savelines(574) = Viruses.beeperthreatlevel
savelines(575) = Viruses.theplaguethreatlevel
'ThePlague corruptions under here, for all your corrupted files ;)
SortOutBooleans(FileSkimmerCorrupted, 580, False)
SortOutBooleans(ArtpadCorrupted, 581, False)
SortOutBooleans(AudioPlayerCorrupted, 582, False)
SortOutBooleans(BitNoteDiggerCorrupted, 583, False)
SortOutBooleans(BitNoteWalletCorrupted, 584, False)
SortOutBooleans(CalculatorCorrupted, 585, False)
SortOutBooleans(ClockCorrupted, 586, False)
SortOutBooleans(CoherenceModeCorrupted, 587, False)
SortOutBooleans(ColourPickerCorrupted, 588, False)
SortOutBooleans(DodgeCorrupted, 589, False)
SortOutBooleans(DownloadManagerCorrupted, 590, False)
SortOutBooleans(FloodGateManagerCorrupted, 591, False)
SortOutBooleans(GraphicPickerCorrupted, 592, False)
SortOutBooleans(IconManagerCorrupted, 593, False)
SortOutBooleans(InstallerCorrupted, 594, False)
SortOutBooleans(KnowledgeInputCorrupted, 595, False)
SortOutBooleans(LabyrinthCorrupted, 596, False)
SortOutBooleans(NameChangerCorrupted, 597, False)
SortOutBooleans(OrcWriteCorrupted, 598, False)
SortOutBooleans(PongCorrupted, 599, False)
SortOutBooleans(ShifterCorrupted, 600, False)
SortOutBooleans(ShifterCorrupted, 601, False)
SortOutBooleans(ShiftNetCorrupted, 602, False)
SortOutBooleans(ShiftoriumCorrupted, 603, False)
SortOutBooleans(SkinLoaderCorrupted, 604, False)
SortOutBooleans(SkinShifterCorrupted, 605, False)
SortOutBooleans(SnakeyCorrupted, 606, False)
SortOutBooleans(SystemInfoCorrupted, 607, False)
SortOutBooleans(TerminalCorrupted, 608, False)
SortOutBooleans(TextpadCorrupted, 609, False)
SortOutBooleans(VideoPlayerCorrupted, 610, False)
SortOutBooleans(VirusScannerCorrupted, 612, False)
SortOutBooleans(WebBrowserCorrupted, 613, False)
IO.File.WriteAllLines(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", savelines)
File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey)
Try
Dim sw As New IO.StreamWriter(ShiftOSPath & "SoftwareData\DownloadManager\Downloadhistory.lst")
sw.Write(downloadmanagerhistory)
sw.Close()
Catch ex As Exception
End Try
Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False)
objWriter.Write(actualshiftversion)
objWriter.Close()
End Sub
#End Region
#Region "Code"
Private Sub SortOutBooleans(ByRef NameOfBoolean As Boolean, ByVal NumberOfSaveLine As Integer, ByVal TrueForSaveFalseForLoad As Boolean)
If TrueForSaveFalseForLoad = False Then
If NameOfBoolean = True Then savelines(NumberOfSaveLine) = 1 Else savelines(NumberOfSaveLine) = 0
Else
Dim TempNumber As String = loadlines(NumberOfSaveLine)
If TempNumber = "1" Then NameOfBoolean = True Else NameOfBoolean = False
End If
End Sub
Private Sub loadgame()
File_Crypt.DecryptFile("C:/ShiftOS/Shiftum42/SKernal.sft", ShiftOSPath + "Shiftum42\Drivers\HDD.dri", sSecretKey)
loadlines = IO.File.ReadAllLines(ShiftOSPath + "Shiftum42\Drivers\HDD.dri")
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(32) = 11 Then terminalfullscreen = True Else terminalfullscreen = False
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
anymemory(0) = Color.FromArgb(loadlines(84))
anymemory(1) = Color.FromArgb(loadlines(85))
anymemory(2) = Color.FromArgb(loadlines(86))
anymemory(3) = Color.FromArgb(loadlines(87))
anymemory(4) = Color.FromArgb(loadlines(88))
anymemory(5) = Color.FromArgb(loadlines(89))
anymemory(6) = Color.FromArgb(loadlines(90))
anymemory(7) = Color.FromArgb(loadlines(91))
anymemory(8) = Color.FromArgb(loadlines(92))
anymemory(9) = Color.FromArgb(loadlines(93))
anymemory(10) = Color.FromArgb(loadlines(94))
anymemory(11) = Color.FromArgb(loadlines(95))
anymemory(12) = Color.FromArgb(loadlines(96))
anymemory(13) = Color.FromArgb(loadlines(97))
anymemory(14) = Color.FromArgb(loadlines(98))
anymemory(15) = Color.FromArgb(loadlines(99))
graymemory(0) = Color.FromArgb(loadlines(100))
graymemory(1) = Color.FromArgb(loadlines(101))
graymemory(2) = Color.FromArgb(loadlines(102))
graymemory(3) = Color.FromArgb(loadlines(103))
graymemory(4) = Color.FromArgb(loadlines(104))
graymemory(5) = Color.FromArgb(loadlines(105))
graymemory(6) = Color.FromArgb(loadlines(106))
graymemory(7) = Color.FromArgb(loadlines(107))
graymemory(8) = Color.FromArgb(loadlines(108))
graymemory(9) = Color.FromArgb(loadlines(109))
graymemory(10) = Color.FromArgb(loadlines(110))
graymemory(11) = Color.FromArgb(loadlines(111))
graymemory(12) = Color.FromArgb(loadlines(112))
graymemory(13) = Color.FromArgb(loadlines(113))
graymemory(14) = Color.FromArgb(loadlines(114))
graymemory(15) = Color.FromArgb(loadlines(115))
purplememory(0) = Color.FromArgb(loadlines(116))
purplememory(1) = Color.FromArgb(loadlines(117))
purplememory(2) = Color.FromArgb(loadlines(118))
purplememory(3) = Color.FromArgb(loadlines(119))
purplememory(4) = Color.FromArgb(loadlines(120))
purplememory(5) = Color.FromArgb(loadlines(121))
purplememory(6) = Color.FromArgb(loadlines(122))
purplememory(7) = Color.FromArgb(loadlines(123))
purplememory(8) = Color.FromArgb(loadlines(124))
purplememory(9) = Color.FromArgb(loadlines(125))
purplememory(10) = Color.FromArgb(loadlines(126))
purplememory(11) = Color.FromArgb(loadlines(127))
purplememory(12) = Color.FromArgb(loadlines(128))
purplememory(13) = Color.FromArgb(loadlines(129))
purplememory(14) = Color.FromArgb(loadlines(130))
purplememory(15) = Color.FromArgb(loadlines(131))
bluememory(0) = Color.FromArgb(loadlines(132))
bluememory(1) = Color.FromArgb(loadlines(133))
bluememory(2) = Color.FromArgb(loadlines(134))
bluememory(3) = Color.FromArgb(loadlines(135))
bluememory(4) = Color.FromArgb(loadlines(136))
bluememory(5) = Color.FromArgb(loadlines(137))
bluememory(6) = Color.FromArgb(loadlines(138))
bluememory(7) = Color.FromArgb(loadlines(139))
bluememory(8) = Color.FromArgb(loadlines(140))
bluememory(9) = Color.FromArgb(loadlines(141))
bluememory(10) = Color.FromArgb(loadlines(142))
bluememory(11) = Color.FromArgb(loadlines(143))
bluememory(12) = Color.FromArgb(loadlines(144))
bluememory(13) = Color.FromArgb(loadlines(145))
bluememory(14) = Color.FromArgb(loadlines(146))
bluememory(15) = Color.FromArgb(loadlines(147))
greenmemory(0) = Color.FromArgb(loadlines(148))
greenmemory(1) = Color.FromArgb(loadlines(149))
greenmemory(2) = Color.FromArgb(loadlines(150))
greenmemory(3) = Color.FromArgb(loadlines(151))
greenmemory(4) = Color.FromArgb(loadlines(152))
greenmemory(5) = Color.FromArgb(loadlines(153))
greenmemory(6) = Color.FromArgb(loadlines(154))
greenmemory(7) = Color.FromArgb(loadlines(155))
greenmemory(8) = Color.FromArgb(loadlines(156))
greenmemory(9) = Color.FromArgb(loadlines(157))
greenmemory(10) = Color.FromArgb(loadlines(158))
greenmemory(11) = Color.FromArgb(loadlines(159))
greenmemory(12) = Color.FromArgb(loadlines(160))
greenmemory(13) = Color.FromArgb(loadlines(161))
greenmemory(14) = Color.FromArgb(loadlines(162))
greenmemory(15) = Color.FromArgb(loadlines(163))
yellowmemory(0) = Color.FromArgb(loadlines(164))
yellowmemory(1) = Color.FromArgb(loadlines(165))
yellowmemory(2) = Color.FromArgb(loadlines(166))
yellowmemory(3) = Color.FromArgb(loadlines(167))
yellowmemory(4) = Color.FromArgb(loadlines(168))
yellowmemory(5) = Color.FromArgb(loadlines(169))
yellowmemory(6) = Color.FromArgb(loadlines(170))
yellowmemory(7) = Color.FromArgb(loadlines(171))
yellowmemory(8) = Color.FromArgb(loadlines(172))
yellowmemory(9) = Color.FromArgb(loadlines(173))
yellowmemory(10) = Color.FromArgb(loadlines(174))
yellowmemory(11) = Color.FromArgb(loadlines(175))
yellowmemory(12) = Color.FromArgb(loadlines(176))
yellowmemory(13) = Color.FromArgb(loadlines(177))
yellowmemory(14) = Color.FromArgb(loadlines(178))
yellowmemory(15) = Color.FromArgb(loadlines(179))
orangememory(0) = Color.FromArgb(loadlines(180))
orangememory(1) = Color.FromArgb(loadlines(181))
orangememory(2) = Color.FromArgb(loadlines(182))
orangememory(3) = Color.FromArgb(loadlines(183))
orangememory(4) = Color.FromArgb(loadlines(184))
orangememory(5) = Color.FromArgb(loadlines(185))
orangememory(6) = Color.FromArgb(loadlines(186))
orangememory(7) = Color.FromArgb(loadlines(187))
orangememory(8) = Color.FromArgb(loadlines(188))
orangememory(9) = Color.FromArgb(loadlines(189))
orangememory(10) = Color.FromArgb(loadlines(190))
orangememory(11) = Color.FromArgb(loadlines(191))
orangememory(12) = Color.FromArgb(loadlines(192))
orangememory(13) = Color.FromArgb(loadlines(193))
orangememory(14) = Color.FromArgb(loadlines(194))
orangememory(15) = Color.FromArgb(loadlines(195))
brownmemory(0) = Color.FromArgb(loadlines(196))
brownmemory(1) = Color.FromArgb(loadlines(197))
brownmemory(2) = Color.FromArgb(loadlines(198))
brownmemory(3) = Color.FromArgb(loadlines(199))
brownmemory(4) = Color.FromArgb(loadlines(200))
brownmemory(5) = Color.FromArgb(loadlines(201))
brownmemory(6) = Color.FromArgb(loadlines(202))
brownmemory(7) = Color.FromArgb(loadlines(203))
brownmemory(8) = Color.FromArgb(loadlines(204))
brownmemory(9) = Color.FromArgb(loadlines(205))
brownmemory(10) = Color.FromArgb(loadlines(206))
brownmemory(11) = Color.FromArgb(loadlines(207))
brownmemory(12) = Color.FromArgb(loadlines(208))
brownmemory(13) = Color.FromArgb(loadlines(209))
brownmemory(14) = Color.FromArgb(loadlines(210))
brownmemory(15) = Color.FromArgb(loadlines(211))
redmemory(0) = Color.FromArgb(loadlines(212))
redmemory(1) = Color.FromArgb(loadlines(213))
redmemory(2) = Color.FromArgb(loadlines(214))
redmemory(3) = Color.FromArgb(loadlines(215))
redmemory(4) = Color.FromArgb(loadlines(216))
redmemory(5) = Color.FromArgb(loadlines(217))
redmemory(6) = Color.FromArgb(loadlines(218))
redmemory(7) = Color.FromArgb(loadlines(219))
redmemory(8) = Color.FromArgb(loadlines(220))
redmemory(9) = Color.FromArgb(loadlines(221))
redmemory(10) = Color.FromArgb(loadlines(222))
redmemory(11) = Color.FromArgb(loadlines(223))
redmemory(12) = Color.FromArgb(loadlines(224))
redmemory(13) = Color.FromArgb(loadlines(225))
redmemory(14) = Color.FromArgb(loadlines(226))
redmemory(15) = Color.FromArgb(loadlines(227))
pinkmemory(0) = Color.FromArgb(loadlines(228))
pinkmemory(1) = Color.FromArgb(loadlines(229))
pinkmemory(2) = Color.FromArgb(loadlines(230))
pinkmemory(3) = Color.FromArgb(loadlines(231))
pinkmemory(4) = Color.FromArgb(loadlines(232))
pinkmemory(5) = Color.FromArgb(loadlines(233))
pinkmemory(6) = Color.FromArgb(loadlines(234))
pinkmemory(7) = Color.FromArgb(loadlines(235))
pinkmemory(8) = Color.FromArgb(loadlines(236))
pinkmemory(9) = Color.FromArgb(loadlines(237))
pinkmemory(10) = Color.FromArgb(loadlines(238))
pinkmemory(11) = Color.FromArgb(loadlines(239))
pinkmemory(12) = Color.FromArgb(loadlines(240))
pinkmemory(13) = Color.FromArgb(loadlines(241))
pinkmemory(14) = Color.FromArgb(loadlines(242))
pinkmemory(15) = Color.FromArgb(loadlines(243))
titlebarcolour = Color.FromArgb(loadlines(244))
windowbordercolour = Color.FromArgb(loadlines(245))
windowbordersize = loadlines(246)
titlebarheight = loadlines(247)
closebuttoncolour = Color.FromArgb(loadlines(248))
closebuttonheight = loadlines(249)
closebuttonwidth = loadlines(250)
closebuttonside = loadlines(251)
closebuttontop = loadlines(252)
titletextcolour = Color.FromArgb(loadlines(253))
titletexttop = loadlines(254)
titletextside = loadlines(255)
titletextsize = loadlines(256)
titletextfont = loadlines(257)
titletextstyle = loadlines(258)
desktoppanelcolour = Color.FromArgb(loadlines(259))
desktopbackgroundcolour = Color.FromArgb(loadlines(260))
desktoppanelheight = loadlines(261)
desktoppanelposition = loadlines(262)
clocktextcolour = Color.FromArgb(loadlines(263))
clockbackgroundcolor = Color.FromArgb(loadlines(264))
panelclocktexttop = loadlines(265)
panelclocktextsize = loadlines(266)
panelclocktextfont = loadlines(267)
panelclocktextstyle = loadlines(268)
applauncherbuttoncolour = Color.FromArgb(loadlines(269))
applauncherbuttonclickedcolour = Color.FromArgb(loadlines(270))
applauncherbackgroundcolour = Color.FromArgb(loadlines(271))
applaunchermouseovercolour = Color.FromArgb(loadlines(272))
applicationsbuttontextcolour = Color.FromArgb(loadlines(273))
applicationbuttonheight = loadlines(274)
applicationbuttontextsize = loadlines(275)
applicationbuttontextfont = loadlines(276)
applicationbuttontextstyle = loadlines(277)
applicationlaunchername = loadlines(278)
titletextposition = loadlines(279)
rollupbuttoncolour = Color.FromArgb(loadlines(280))
rollupbuttonheight = loadlines(281)
rollupbuttonwidth = loadlines(282)
rollupbuttonside = loadlines(283)
rollupbuttontop = loadlines(284)
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
artpadcolorpalletwidth = loadlines(308)
artpadcolorpalletheight = loadlines(309)
artpadcolorpalletsidegap = loadlines(310)
artpadcolorpallettopgap = loadlines(311)
artpadvisiblepallets = loadlines(312)
artpadpixellimit = loadlines(313)
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
For i = 0 To 127 : artpadcolourpallets(i) = Color.FromArgb(loadlines(356 + i)) : Next
If loadlines(484) = "" Then Else If loadlines(484) = 11 Then boughtartpadnew = True Else boughtartpadnew = False
'0.0.8
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
If loadlines(514) = 11 Then installedcalculator = True Else installedcalculator = False
If loadlines(515) = 11 Then installedaudioplayer = True Else installedaudioplayer = False
If loadlines(516) = 11 Then installedwebbrowser = True Else installedwebbrowser = False
If loadlines(517) = 11 Then installedvideoplayer = True Else installedvideoplayer = False
If loadlines(518) = 11 Then installeddodge = True Else installeddodge = False
If loadlines(519) = 11 Then installedsysinfo = True Else installedsysinfo = False
If loadlines(520) = 11 Then installedorcwrite = True Else installedorcwrite = False
If loadlines(521) = 11 Then installedfloodgate = True Else installedfloodgate = False
If loadlines(522) = 11 Then installedfloodgatenow = True Else installedfloodgatenow = False
If loadlines(523) = 11 Then installedmaze = True Else installedmaze = False
If loadlines(524) = 11 Then installedvirusscanner = True Else installedvirusscanner = False
webbrowserhomepage = loadlines(525)
bitnotebalance = loadlines(526)
bitnotebalanceappscape = loadlines(527)
'bitnotebalanceminimatch = loadlines(528) 'comment in after updating save
'downloadmanagerhistory = loadlines(529)
downloadspeedcap = loadlines(530)
osname = loadlines(531)
artpadname = loadlines(532)
audioplayername = loadlines(533)
calculatorname = loadlines(534)
clockname = loadlines(535)
colourpickername = loadlines(536)
fileopenername = loadlines(537)
filesavername = loadlines(538)
fileskimmername = loadlines(539)
graphicpickername = loadlines(540)
knowledgeinputname = loadlines(541)
pongname = loadlines(542)
shiftername = loadlines(543)
shiftoriumname = loadlines(544)
skinloadername = loadlines(545)
terminalname = loadlines(546)
textpadname = loadlines(547)
videoplayername = loadlines(548)
webbrowsername = loadlines(549)
namechangername = loadlines(550)
iconmanagername = loadlines(551)
bitnotewalletname = loadlines(552)
bitnotediggername = loadlines(553)
skinshiftername = loadlines(554)
shiftnetname = loadlines(555)
dodgename = loadlines(556)
downloadmanagername = loadlines(557)
installername = loadlines(558)
snakeyname = loadlines(559)
sysinfoname = loadlines(560)
orcwritename = loadlines(561)
floodgatename = loadlines(562)
mazename = loadlines(563)
virusscannername = loadlines(564)
titlebariconsize = loadlines(565)
panelbuttoniconsize = loadlines(566)
launchericonsize = loadlines(567)
If loadlines(568) = 11 Then Viruses.zerogravity = True Else Viruses.zerogravity = False
If loadlines(569) = 11 Then Viruses.mousetrap = True Else Viruses.mousetrap = False
If loadlines(570) = 11 Then Viruses.beeper = True Else Viruses.beeper = False
If loadlines(571) = 11 Then Viruses.ThePlague = True Else Viruses.ThePlague = False
Viruses.zerogravitythreatlevel = loadlines(572)
Viruses.mousetrapthreatlevel = loadlines(573)
Viruses.beeperthreatlevel = loadlines(574)
Viruses.theplaguethreatlevel = loadlines(575)
'Load up the corruptions if any are made
SortOutBooleans(FileSkimmerCorrupted, 580, True)
SortOutBooleans(ArtpadCorrupted, 581, True)
SortOutBooleans(AudioPlayerCorrupted, 582, True)
SortOutBooleans(BitNoteDiggerCorrupted, 583, True)
SortOutBooleans(BitNoteWalletCorrupted, 584, True)
SortOutBooleans(CalculatorCorrupted, 585, True)
SortOutBooleans(ClockCorrupted, 586, True)
SortOutBooleans(CoherenceModeCorrupted, 587, True)
SortOutBooleans(ColourPickerCorrupted, 588, True)
SortOutBooleans(DodgeCorrupted, 589, True)
SortOutBooleans(DownloadManagerCorrupted, 590, True)
SortOutBooleans(FloodGateManagerCorrupted, 591, True)
SortOutBooleans(GraphicPickerCorrupted, 592, True)
SortOutBooleans(IconManagerCorrupted, 593, True)
SortOutBooleans(InstallerCorrupted, 594, True)
SortOutBooleans(KnowledgeInputCorrupted, 595, True)
SortOutBooleans(LabyrinthCorrupted, 596, True)
SortOutBooleans(NameChangerCorrupted, 597, True)
SortOutBooleans(OrcWriteCorrupted, 598, True)
SortOutBooleans(PongCorrupted, 599, True)
SortOutBooleans(ShifterCorrupted, 600, True)
SortOutBooleans(ShifterCorrupted, 601, True)
SortOutBooleans(ShiftNetCorrupted, 602, True)
SortOutBooleans(ShiftoriumCorrupted, 603, True)
SortOutBooleans(SkinLoaderCorrupted, 604, True)
SortOutBooleans(SkinShifterCorrupted, 605, True)
SortOutBooleans(SnakeyCorrupted, 606, True)
SortOutBooleans(SystemInfoCorrupted, 607, True)
SortOutBooleans(TerminalCorrupted, 608, True)
SortOutBooleans(TextpadCorrupted, 609, True)
SortOutBooleans(VideoPlayerCorrupted, 610, True)
SortOutBooleans(VirusScannerCorrupted, 612, True)
SortOutBooleans(WebBrowserCorrupted, 613, True)
Viruses.startactiveviruses()
If IO.File.Exists(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin()
If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Icons") Then setupicons()
If IO.File.Exists(ShiftOSPath & "SoftwareData\DownloadManager\Downloadhistory.lst") Then downloadmanagerhistory = IO.File.ReadAllText(ShiftOSPath & "SoftwareData\DownloadManager\Downloadhistory.lst")
End Sub
Private Sub ShiftOSDesktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FloodRegistry.registerItems()
If newgame = True Or justconverted = True Then
savegame()
Else
loadgame()
Terminal.runterminalfile(ShiftOSPath + "Shiftum42\autorun.trm")
End If
ToolStripManager.Renderer = New MyToolStripRenderer()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
'loadskinfiles()
'setupdesktop()
'setupskins()
Skins.loadimages()
desktopicons.AllowDrop = True
desktopicons.AutoArrange = False
End Sub
Public Sub loadcurrentskin()
skinlines = IO.File.ReadAllLines(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat")
titlebarcolour = Color.FromArgb(skinlines(0))
windowbordercolour = Color.FromArgb(skinlines(1))
windowbordersize = skinlines(2)
titlebarheight = skinlines(3)
closebuttoncolour = Color.FromArgb(skinlines(4))
closebuttonheight = skinlines(5)
closebuttonwidth = skinlines(6)
closebuttonside = skinlines(7)
closebuttontop = skinlines(8)
titletextcolour = Color.FromArgb(skinlines(9))
titletexttop = skinlines(10)
titletextside = skinlines(11)
titletextsize = skinlines(12)
titletextfont = skinlines(13)
titletextstyle = skinlines(14)
desktoppanelcolour = Color.FromArgb(skinlines(15))
desktopbackgroundcolour = Color.FromArgb(skinlines(16))
desktoppanelheight = skinlines(17)
desktoppanelposition = skinlines(18)
clocktextcolour = Color.FromArgb(skinlines(19))
clockbackgroundcolor = Color.FromArgb(skinlines(20))
panelclocktexttop = skinlines(21)
panelclocktextsize = skinlines(22)
panelclocktextfont = skinlines(23)
panelclocktextstyle = skinlines(24)
applauncherbuttoncolour = Color.FromArgb(skinlines(25))
applauncherbuttonclickedcolour = Color.FromArgb(skinlines(26))
applauncherbackgroundcolour = Color.FromArgb(skinlines(27))
applaunchermouseovercolour = Color.FromArgb(skinlines(28))
applicationsbuttontextcolour = Color.FromArgb(skinlines(29))
applicationbuttonheight = skinlines(30)
applicationbuttontextsize = skinlines(31)
applicationbuttontextfont = skinlines(32)
applicationbuttontextstyle = skinlines(33)
applicationlaunchername = skinlines(34)
titletextposition = skinlines(35)
rollupbuttoncolour = Color.FromArgb(skinlines(36))
If skinlines(37) = "" Then Else rollupbuttonheight = skinlines(37)
If skinlines(38) = "" Then Else rollupbuttonwidth = skinlines(38)
If skinlines(39) = "" Then Else rollupbuttonside = skinlines(39)
If skinlines(40) = "" Then Else rollupbuttontop = skinlines(40)
If skinlines(41) = "" Then Else titlebariconside = skinlines(41)
If skinlines(42) = "" Then Else titlebaricontop = skinlines(42)
If skinlines(43) = "" Then Else showwindowcorners = skinlines(43)
If skinlines(44) = "" Then Else titlebarcornerwidth = skinlines(44)
If skinlines(45) = "" Then Else titlebarrightcornercolour = Color.FromArgb(skinlines(45))
If skinlines(46) = "" Then Else titlebarleftcornercolour = Color.FromArgb(skinlines(46))
If skinlines(47) = "" Then Else applaunchermenuholderwidth = skinlines(47)
If skinlines(48) = "" Then Else windowborderleftcolour = Color.FromArgb(skinlines(48))
If skinlines(49) = "" Then Else windowborderrightcolour = Color.FromArgb(skinlines(49))
If skinlines(50) = "" Then Else windowborderbottomcolour = Color.FromArgb(skinlines(50))
If skinlines(51) = "" Then Else windowborderbottomrightcolour = Color.FromArgb(skinlines(51))
If skinlines(52) = "" Then Else windowborderbottomleftcolour = Color.FromArgb(skinlines(52))
If skinlines(53) = "" Then Else panelbuttonicontop = skinlines(53)
If skinlines(54) = "" Then Else panelbuttoniconside = skinlines(54)
If skinlines(55) = "" Then Else panelbuttoniconsize = skinlines(55)
If skinlines(56) = "" Then Else panelbuttoniconsize = skinlines(56)
If skinlines(57) = "" Then Else panelbuttonheight = skinlines(57)
If skinlines(58) = "" Then Else panelbuttonwidth = skinlines(58)
If skinlines(59) = "" Then Else panelbuttoncolour = Color.FromArgb(skinlines(59))
If skinlines(60) = "" Then Else panelbuttontextcolour = Color.FromArgb(skinlines(60))
If skinlines(61) = "" Then Else panelbuttontextsize = skinlines(61)
If skinlines(62) = "" Then Else panelbuttontextfont = skinlines(62)
If skinlines(63) = "" Then Else panelbuttontextstyle = skinlines(63)
If skinlines(64) = "" Then Else panelbuttontextside = skinlines(64)
If skinlines(65) = "" Then Else panelbuttontexttop = skinlines(65)
If skinlines(66) = "" Then Else panelbuttongap = skinlines(66)
If skinlines(67) = "" Then Else panelbuttonfromtop = skinlines(67)
If skinlines(68) = "" Then Else panelbuttoninitialgap = skinlines(68)
If skinlines(69) = "" Then Else minimizebuttoncolour = Color.FromArgb(skinlines(69))
If skinlines(70) = "" Then Else minimizebuttonheight = skinlines(70)
If skinlines(71) = "" Then Else minimizebuttonwidth = skinlines(71)
If skinlines(72) = "" Then Else minimizebuttonside = skinlines(72)
If skinlines(73) = "" Then Else minimizebuttontop = skinlines(73)
' Old skin loading
'skinimages(0) = skinlines(100)
'skinimages(1) = skinlines(101)
'skinimages(2) = skinlines(102)
'skinimages(3) = skinlines(103)
'skinimages(4) = skinlines(104)
'skinimages(5) = skinlines(105)
'skinimages(6) = skinlines(106)
'skinimages(7) = skinlines(107)
'skinimages(8) = skinlines(108)
'skinimages(9) = skinlines(109)
'skinimages(10) = skinlines(110)
'skinimages(11) = skinlines(111)
'skinimages(12) = skinlines(112)
'skinimages(13) = skinlines(113)
'skinimages(14) = skinlines(114)
'skinimages(15) = skinlines(115)
'skinimages(16) = skinlines(116)
'skinimages(17) = skinlines(117)
'skinimages(18) = skinlines(118)
'skinimages(19) = skinlines(119)
'skinimages(20) = skinlines(120)
'skinimages(21) = skinlines(121)
'skinimages(22) = skinlines(122)
'skinimages(23) = skinlines(123)
'skinimages(24) = skinlines(124)
'skinimages(25) = skinlines(125)
'skinimages(26) = skinlines(126)
'skinimages(27) = skinlines(127)
'skinimages(28) = skinlines(128)
'skinimages(29) = skinlines(129)
'skinimages(30) = skinlines(130)
'skinimages(31) = skinlines(131)
'skinimages(32) = skinlines(132)
'skinimages(33) = skinlines(133)
'skinimages(34) = skinlines(134)
'skinimages(35) = skinlines(135)
'skinimages(36) = skinlines(136)
'skinimages(37) = skinlines(137)
'skinimages(38) = skinlines(138)
'skinimages(39) = skinlines(139)
'skinimages(40) = skinlines(140)
'skinimages(41) = skinlines(141)
'skinimages(42) = skinlines(142)
'skinimages(43) = skinlines(143)
'skinimages(44) = skinlines(144)
'skinimages(45) = skinlines(145)
'skinimages(46) = skinlines(146)
'skinimages(47) = skinlines(147)
'skinimages(48) = skinlines(148)
'skinimages(49) = skinlines(149)
'skinimages(50) = skinlines(150)
End Sub
Private Sub shortdisposecode(ByVal skinloadervarible As Array, ByVal shiftosdesktopvarible As Array, ByVal shiftervarible As Array, ByVal includedesktop As Boolean)
If includedesktop = True Then
If shiftosdesktopvarible(0) Is Nothing Then Else shiftosdesktopvarible(0).Dispose()
If shiftosdesktopvarible(1) Is Nothing Then Else shiftosdesktopvarible(1).Dispose()
If shiftosdesktopvarible(2) Is Nothing Then Else shiftosdesktopvarible(2).Dispose()
shiftosdesktopvarible(0) = Nothing
shiftosdesktopvarible(1) = Nothing
shiftosdesktopvarible(2) = Nothing
End If
If Shifter.Visible Then
If shiftervarible(0) Is Nothing Then Else shiftervarible(0).Dispose()
If shiftervarible(1) Is Nothing Then Else shiftervarible(1).Dispose()
If shiftervarible(2) Is Nothing Then Else shiftervarible(2).Dispose()
shiftervarible(0) = Nothing
shiftervarible(1) = Nothing
shiftervarible(2) = Nothing
End If
If Skin_Loader.Visible Then
If skinloadervarible(0) Is Nothing Then Else skinloadervarible(0).Dispose()
If skinloadervarible(1) Is Nothing Then Else skinloadervarible(1).Dispose()
If skinloadervarible(2) Is Nothing Then Else skinloadervarible(2).Dispose()
skinloadervarible(0) = Nothing
skinloadervarible(1) = Nothing
skinloadervarible(2) = Nothing
End If
End Sub
Public Sub setupdesktop()
'Set skin/size/colour of all windows
If Knowledge_Input.Visible Then Knowledge_Input.setupall()
If Shiftorium.Visible Then Shiftorium.setupall()
If Clock.Visible Then Clock.setupall()
If Shifter.Visible Then Shifter.setupall()
If Colour_Picker.Visible Then Colour_Picker.setupall()
If infobox.Visible Then infobox.setupall()
If Pong.Visible Then Pong.setupall()
If File_Skimmer.Visible Then File_Skimmer.setupall()
If File_Opener.Visible Then File_Opener.setupall()
If File_Saver.Visible Then File_Saver.setupall()
If TextPad.Visible Then TextPad.setupall()
If Graphic_Picker.Visible Then Graphic_Picker.setupall()
If Skin_Loader.Visible Then Skin_Loader.setupall()
If ArtPad.Visible Then ArtPad.setupall()
If Calculator.Visible Then Calculator.setupall()
If Audio_Player.Visible Then Audio_Player.setupall()
If Web_Browser.Visible Then Web_Browser.setupall()
If Video_Player.Visible Then Video_Player.setupall()
If Name_Changer.Visible Then Name_Changer.setupall()
If Icon_Manager.Visible Then Icon_Manager.setupall()
If Bitnote_Wallet.Visible Then Bitnote_Wallet.setupall()
If Bitnote_Digger.Visible Then Bitnote_Digger.setupall()
If Skinshifter.Visible Then Skinshifter.setupall()
If Shiftnet.Visible Then Shiftnet.setupall()
If Downloader.Visible Then Downloader.setupall()
If Dodge.Visible Then Dodge.setupall()
If Downloadmanager.Visible Then Downloadmanager.setupall()
If Installer.Visible Then Installer.setupall()
If Snakey.Visible Then Snakey.setupall()
If systeminfo.Visible Then systeminfo.setupall()
If OrcWrite.Visible Then OrcWrite.setupall()
If FloodGate_Manager.Visible Then FloodGate_Manager.setupall()
If Labyrinth.Visible Then Labyrinth.setupall()
If VirusScanner.Visible Then VirusScanner.setupall()
If terminalfullscreen = False Then Terminal.setupall()
If Not My.Computer.FileSystem.DirectoryExists(ShiftOSPath & "/Home/Desktop") Then
IO.Directory.CreateDirectory(ShiftOSPath & "/Home/Desktop")
End If
'Desktop Icons
If unitymode = False Then
refreshIcons()
End If
'Setup windows
If unitymode = False Then
desktopicons.Visible = True
desktopicons.BackColor = Skins.desktopbackgroundcolour
If Skins.desktopbackground Is Nothing Then desktopicons.BackgroundImage = Nothing Else desktopicons.BackgroundImage = Skins.desktopbackground
desktopicons.BackgroundImageLayout = Skins.desktopbackgroundlayout
Else
Me.BackColor = globaltransparencycolour
Me.BackgroundImage = Nothing
desktopicons.Visible = False
Me.TransparencyKey = globaltransparencycolour
End If
shiftwindowsontop()
ToolStripManager.Renderer = New MyToolStripRenderer()
If boughtdesktoppanel = True Then
If Skins.desktoppanel Is Nothing Then
desktoppanel.BackColor = Skins.desktoppanelcolour
desktoppanel.BackgroundImage = Nothing
Else
desktoppanel.BackgroundImage = Skins.desktoppanel
desktoppanel.BackgroundImageLayout = Skins.desktoppanellayout
desktoppanel.BackColor = Color.Transparent
End If
desktoppanel.Size = New Size(desktoppanel.Size.Width, Skins.desktoppanelheight)
Select Case Skins.desktoppanelposition
Case "Top"
desktoppanel.Dock = DockStyle.Top
desktopappmenu.Dock = DockStyle.Top
Case "Bottom"
desktoppanel.Dock = DockStyle.Bottom
desktopappmenu.Dock = DockStyle.Bottom
End Select
desktoppanel.Show()
Else
desktoppanel.Hide()
End If
If boughtapplaunchermenu = True Then
ApplicationsToolStripMenuItem.Font = New Font(Skins.applicationbuttontextfont, Skins.applicationbuttontextsize, Skins.applicationbuttontextstyle)
ApplicationsToolStripMenuItem.Text = applicationlaunchername
KnowledgeInputToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
ShiftoriumToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
ClockToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
ShifterToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
TerminalToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
PongToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
FileSkimmerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
TextPadToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
SkinLoaderToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
ArtpadToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
CalculatorToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
AudioplayerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
WebBrowserToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
VideoplayerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
NameChangerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
IconManagerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
BitnoteWalletToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
BitnoteDiggerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
SkinShifterToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
ShiftnetToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
DodgeToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
downloadmanagerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
InstallerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
sysinfoToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
orcwriteToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
FloodGateToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
VirusScannerToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
SnakeyToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
MazeToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
ShutdownToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
UnityToolStripMenuItem.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
desktopappmenu.ImageScalingSize = New Size(launchericonsize, launchericonsize)
KnowledgeInputToolStripMenuItem.Text = knowledgeinputname
ShiftoriumToolStripMenuItem.Text = shiftoriumname
ClockToolStripMenuItem.Text = clockname
ShifterToolStripMenuItem.Text = shiftername
TerminalToolStripMenuItem.Text = terminalname
PongToolStripMenuItem.Text = pongname
FileSkimmerToolStripMenuItem.Text = fileskimmername
TextPadToolStripMenuItem.Text = textpadname
SkinLoaderToolStripMenuItem.Text = skinloadername
ArtpadToolStripMenuItem.Text = artpadname
CalculatorToolStripMenuItem.Text = calculatorname
AudioplayerToolStripMenuItem.Text = audioplayername
WebBrowserToolStripMenuItem.Text = webbrowsername
VideoplayerToolStripMenuItem.Text = videoplayername
NameChangerToolStripMenuItem.Text = namechangername
IconManagerToolStripMenuItem.Text = iconmanagername
BitnoteWalletToolStripMenuItem.Text = bitnotewalletname
BitnoteDiggerToolStripMenuItem.Text = bitnotediggername
SkinShifterToolStripMenuItem.Text = skinshiftername
ShiftnetToolStripMenuItem.Text = shiftnetname
DodgeToolStripMenuItem.Text = dodgename
downloadmanagerToolStripMenuItem.Text = downloadmanagername
InstallerToolStripMenuItem.Text = installername
sysinfoToolStripMenuItem.Text = sysinfoname
orcwriteToolStripMenuItem.Text = orcwritename
FloodGateToolStripMenuItem.Text = floodgatename
MazeToolStripMenuItem.Text = mazename
VirusScannerToolStripMenuItem.Text = virusscannername
KnowledgeInputToolStripMenuItem.ForeColor = Skins.launcheritemcolour
ShiftoriumToolStripMenuItem.ForeColor = Skins.launcheritemcolour
ClockToolStripMenuItem.ForeColor = Skins.launcheritemcolour
ShiftoriumToolStripMenuItem.ForeColor = Skins.launcheritemcolour
ShifterToolStripMenuItem.ForeColor = Skins.launcheritemcolour
TerminalToolStripMenuItem.ForeColor = Skins.launcheritemcolour
PongToolStripMenuItem.ForeColor = Skins.launcheritemcolour
FileSkimmerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
TextPadToolStripMenuItem.ForeColor = Skins.launcheritemcolour
SkinLoaderToolStripMenuItem.ForeColor = Skins.launcheritemcolour
ArtpadToolStripMenuItem.ForeColor = Skins.launcheritemcolour
CalculatorToolStripMenuItem.ForeColor = Skins.launcheritemcolour
AudioplayerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
WebBrowserToolStripMenuItem.ForeColor = Skins.launcheritemcolour
VideoplayerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
NameChangerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
IconManagerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
BitnoteWalletToolStripMenuItem.ForeColor = Skins.launcheritemcolour
BitnoteDiggerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
SkinShifterToolStripMenuItem.ForeColor = Skins.launcheritemcolour
ShiftnetToolStripMenuItem.ForeColor = Skins.launcheritemcolour
DodgeToolStripMenuItem.ForeColor = Skins.launcheritemcolour
downloadmanagerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
InstallerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
sysinfoToolStripMenuItem.ForeColor = Skins.launcheritemcolour
orcwriteToolStripMenuItem.ForeColor = Skins.launcheritemcolour
FloodGateToolStripMenuItem.ForeColor = Skins.launcheritemcolour
VirusScannerToolStripMenuItem.ForeColor = Skins.launcheritemcolour
MazeToolStripMenuItem.ForeColor = Skins.launcheritemcolour
SnakeyToolStripMenuItem.ForeColor = Skins.launcheritemcolour
ShutdownToolStripMenuItem.ForeColor = Skins.launcheritemcolour
UnityToolStripMenuItem.ForeColor = Skins.launcheritemcolour
applaunchermenuholder.Size = ApplicationsToolStripMenuItem.Size
ApplicationsToolStripMenuItem.ForeColor = Skins.applicationsbuttontextcolour
desktopappmenu.BackColor = Skins.applauncherbuttoncolour
applaunchermenuholder.Height = Skins.applicationbuttonheight
desktopappmenu.Height = Skins.applicationbuttonheight
ApplicationsToolStripMenuItem.Height = Skins.applicationbuttonheight
ApplicationsToolStripMenuItem.Visible = True
TerminalToolStripMenuItem.Visible = True
ApplicationsToolStripMenuItem.Height = Skins.applicationbuttonheight
If Not IsNothing(Skins.applauncher) Then
ApplicationsToolStripMenuItem.Text = ""
ApplicationsToolStripMenuItem.BackColor = Color.Transparent
Else
ApplicationsToolStripMenuItem.Text = Skins.applicationlaunchername
ApplicationsToolStripMenuItem.BackColor = Skins.applauncherbackgroundcolour
ApplicationsToolStripMenuItem.BackgroundImage = Nothing
End If
applaunchermenuholder.Width = Skins.applaunchermenuholderwidth
desktopappmenu.Width = Skins.applaunchermenuholderwidth
ApplicationsToolStripMenuItem.Width = Skins.applaunchermenuholderwidth
If Not IsNothing(Skins.applauncher) Then ApplicationsToolStripMenuItem.BackgroundImage = Skins.applauncher Else ApplicationsToolStripMenuItem.BackColor = Skins.applauncherbackgroundcolour
ApplicationsToolStripMenuItem.BackgroundImageLayout = Skins.applauncherlayout
Else
ApplicationsToolStripMenuItem.Visible = False
End If
If boughtalclock = True Then
ClockToolStripMenuItem.Visible = True
If boughtclockicon = True Then
ClockToolStripMenuItem.Image = clockiconlauncher
End If
Else
ClockToolStripMenuItem.Visible = False
End If
If boughtalknowledgeinput = True Then
KnowledgeInputToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
KnowledgeInputToolStripMenuItem.Image = knowledgeinputiconlauncher
End If
Else
KnowledgeInputToolStripMenuItem.Visible = False
End If
If boughtalshiftorium = True Then
ShiftoriumToolStripMenuItem.Visible = True
If boughtshiftoriumicon = True Then
ShiftoriumToolStripMenuItem.Image = shiftoriumiconlauncher
End If
Else
ShiftoriumToolStripMenuItem.Visible = False
End If
If boughtalshifter = True Then
ShifterToolStripMenuItem.Visible = True
If boughtshiftericon = True Then
ShifterToolStripMenuItem.Image = shiftericonlauncher
End If
Else
ShifterToolStripMenuItem.Visible = False
End If
If boughtalpong = True Then
PongToolStripMenuItem.Visible = True
If boughtpongicon = True Then
PongToolStripMenuItem.Image = pongiconlauncher
End If
Else
PongToolStripMenuItem.Visible = False
End If
If boughtskinloader = True Then
NewSkin.Visible = True
Else
NewSkin.Visible = False
End If
If boughtalfileskimmer = True Then
FileSkimmerToolStripMenuItem.Visible = True
If boughtfileskimmericon = True Then
FileSkimmerToolStripMenuItem.Image = fileskimmericonlauncher
End If
Else
FileSkimmerToolStripMenuItem.Visible = False
End If
If boughtaltextpad = True Then
TextPadToolStripMenuItem.Visible = True
If boughttextpadicon = True Then
TextPadToolStripMenuItem.Image = textpadiconlauncher
End If
Else
TextPadToolStripMenuItem.Visible = False
End If
If boughtskinning = True Then
SkinLoaderToolStripMenuItem.Visible = True
SkinLoaderToolStripMenuItem.Image = skinloadericonlauncher
Else
SkinLoaderToolStripMenuItem.Visible = False
End If
If boughtalartpad = True Then
ArtpadToolStripMenuItem.Visible = True
If boughtartpadicon = True Then
ArtpadToolStripMenuItem.Image = artpadiconlauncher
End If
Else
ArtpadToolStripMenuItem.Visible = False
End If
If installedcalculator = True Then
CalculatorToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
CalculatorToolStripMenuItem.Image = calculatoriconlauncher
End If
Else
CalculatorToolStripMenuItem.Visible = False
End If
If installedaudioplayer = True Then
AudioplayerToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
AudioplayerToolStripMenuItem.Image = audioplayericonlauncher
End If
Else
AudioplayerToolStripMenuItem.Visible = False
End If
If installedwebbrowser = True Then
WebBrowserToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
WebBrowserToolStripMenuItem.Image = webbrowsericonlauncher
End If
Else
WebBrowserToolStripMenuItem.Visible = False
End If
If installedvideoplayer = True Then
VideoplayerToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
VideoplayerToolStripMenuItem.Image = videoplayericonlauncher
End If
Else
VideoplayerToolStripMenuItem.Visible = False
End If
If boughtnamechanger = True Then
NameChangerToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
NameChangerToolStripMenuItem.Image = namechangericonlauncher
End If
Else
NameChangerToolStripMenuItem.Visible = False
End If
If boughticonmanager = True Then
IconManagerToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
IconManagerToolStripMenuItem.Image = iconmanagericonlauncher
End If
Else
IconManagerToolStripMenuItem.Visible = False
End If
If boughtbitnotewallet = True Then
BitnoteWalletToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
BitnoteWalletToolStripMenuItem.Image = bitnotewalleticonlauncher
End If
Else
BitnoteWalletToolStripMenuItem.Visible = False
End If
If boughtbitnotedigger = True Then
BitnoteDiggerToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
BitnoteDiggerToolStripMenuItem.Image = bitnotediggericonlauncher
End If
Else
BitnoteDiggerToolStripMenuItem.Visible = False
End If
If boughtskinshifter = True Then
SkinShifterToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
SkinShifterToolStripMenuItem.Image = skinshiftericonlauncher
End If
Else
SkinShifterToolStripMenuItem.Visible = False
End If
If boughtshiftnet = True Then
ShiftnetToolStripMenuItem.Visible = True
If boughtshiftneticon = True Then
ShiftnetToolStripMenuItem.Image = shiftneticonlauncher
End If
Else
ShiftnetToolStripMenuItem.Visible = False
End If
If installeddodge = True Then
DodgeToolStripMenuItem.Visible = True
If boughtshiftneticon = True Then
DodgeToolStripMenuItem.Image = dodgeiconlauncher
End If
Else
DodgeToolStripMenuItem.Visible = False
End If
If boughtdownloadmanager = True Then
downloadmanagerToolStripMenuItem.Visible = True
If boughtknowledgeinputicon = True Then
downloadmanagerToolStripMenuItem.Image = downloadmanagericonlauncher
End If
Else
downloadmanagerToolStripMenuItem.Visible = False
End If
If boughtinstaller = True Then
InstallerToolStripMenuItem.Visible = True
If boughtshiftneticon = True Then
InstallerToolStripMenuItem.Image = installericonlauncher
End If
Else
InstallerToolStripMenuItem.Visible = False
End If
If installedsnakey = True Then
SnakeyToolStripMenuItem.Visible = True
If boughtshiftneticon = True Then
SnakeyToolStripMenuItem.Image = snakeyiconlauncher
End If
Else
SnakeyToolStripMenuItem.Visible = False
End If
If installedsysinfo = True Then
sysinfoToolStripMenuItem.Visible = True
If boughtsysinfoicon = True Then
sysinfoToolStripMenuItem.Image = sysinfoiconlauncher
End If
Else
sysinfoToolStripMenuItem.Visible = False
End If
If installedorcwrite = True Then
orcwriteToolStripMenuItem.Visible = True
If boughtshiftneticon = True Then
orcwriteToolStripMenuItem.Image = orcwriteiconlauncher
End If
Else
orcwriteToolStripMenuItem.Visible = False
End If
If installedfloodgate = True Then
FloodGateToolStripMenuItem.Visible = True
If boughtshiftneticon = True Then
FloodGateToolStripMenuItem.Image = floodgateiconlauncher
End If
Else
FloodGateToolStripMenuItem.Visible = False
End If
If installedmaze = True Then
MazeToolStripMenuItem.Visible = True
If boughtshiftneticon = True Then
MazeToolStripMenuItem.Image = mazeiconlauncher
End If
Else
MazeToolStripMenuItem.Visible = False
End If
If installedvirusscanner = True Then
VirusScannerToolStripMenuItem.Visible = True
If boughtvirusscannericon = True Then
VirusScannerToolStripMenuItem.Image = virusscannericonlauncher
End If
Else
VirusScannerToolStripMenuItem.Visible = False
End If
If boughtdesktoppanelclock = True Then
setclocktime()
paneltimetext.ForeColor = Skins.clocktextcolour
If Skins.panelclock Is Nothing Then
timepanel.BackColor = Skins.clockbackgroundcolor
timepanel.BackgroundImage = Nothing
Else
timepanel.BackColor = Color.Transparent
timepanel.BackgroundImage = panelclock
timepanel.BackgroundImageLayout = panelclocklayout
End If
paneltimetext.Font = New Font(Skins.panelclocktextfont, Skins.panelclocktextsize, Skins.panelclocktextstyle)
timepanel.Size = New Size(paneltimetext.Width + 3, timepanel.Height)
paneltimetext.Location = New Point(0, Skins.panelclocktexttop)
timepanel.Show()
Else
timepanel.Hide()
End If
If boughtapplaunchershutdown = True Then
ShutdownToolStripMenuItem.Visible = True
ToolStripSeparator1.Visible = True
If boughtshutdownicon = True Then
ShutdownToolStripMenuItem.Image = shutdowniconlauncher
End If
Else
ShutdownToolStripMenuItem.Visible = False
ToolStripSeparator1.Visible = False
End If
If boughtunitymodetoggle = True Then
UnityToolStripMenuItem.Visible = True
ToolStripSeparator1.Visible = True
If boughtunitytoggleicon = True Then
UnityToolStripMenuItem.Image = unitytoggleiconlauncher
End If
Else
UnityToolStripMenuItem.Visible = False
End If
If boughtterminalicon = True Then
TerminalToolStripMenuItem.Image = terminaliconlauncher
End If
If boughttitlebar = False Then
Skins.titlebarheight = 0
End If
If boughtwindowborders = False Then
Skins.borderwidth = 0
End If
setuppanelbuttons()
ApplicationsToolStripMenuItem.BackColor = Skins.applauncherbuttoncolour
End Sub
Public Sub setuppanelbuttons()
If boughtpanelbuttons Then
If Knowledge_Input.Visible Then pnlpanelbuttonknowledgeinput.Show() Else pnlpanelbuttonknowledgeinput.Hide()
If Shiftorium.Visible Then pnlpanelbuttonshiftorium.Show() Else pnlpanelbuttonshiftorium.Hide()
If Clock.Visible Then pnlpanelbuttonclock.Show() Else pnlpanelbuttonclock.Hide()
If Shifter.Visible Then pnlpanelbuttonshifter.Show() Else pnlpanelbuttonshifter.Hide()
If Colour_Picker.Visible Then pnlpanelbuttoncolourpicker.Show() Else pnlpanelbuttoncolourpicker.Hide()
If infobox.Visible Then pnlpanelbuttoninfobox.Show() Else pnlpanelbuttoninfobox.Hide()
If Pong.Visible Then pnlpanelbuttonpong.Show() Else pnlpanelbuttonpong.Hide()
If File_Skimmer.Visible Then pnlpanelbuttonfileskimmer.Show() Else pnlpanelbuttonfileskimmer.Hide()
If File_Opener.Visible Then pnlpanelbuttonfileopener.Show() Else pnlpanelbuttonfileopener.Hide()
If File_Saver.Visible Then pnlpanelbuttonfilesaver.Show() Else pnlpanelbuttonfilesaver.Hide()
If TextPad.Visible Then pnlpanelbuttontextpad.Show() Else pnlpanelbuttontextpad.Hide()
If Graphic_Picker.Visible Then pnlpanelbuttongraphicpicker.Show() Else pnlpanelbuttongraphicpicker.Hide()
If Skin_Loader.Visible Then pnlpanelbuttonskinloader.Show() Else pnlpanelbuttonskinloader.Hide()
If ArtPad.Visible Then pnlpanelbuttonartpad.Show() Else pnlpanelbuttonartpad.Hide()
If Calculator.Visible Then pnlpanelbuttoncalculator.Show() Else pnlpanelbuttoncalculator.Hide()
If Audio_Player.Visible Then pnlpanelbuttonaudioplayer.Show() Else pnlpanelbuttonaudioplayer.Hide()
If Web_Browser.Visible Then pnlpanelbuttonwebbrowser.Show() Else pnlpanelbuttonwebbrowser.Hide()
If Video_Player.Visible Then pnlpanelbuttonvideoplayer.Show() Else pnlpanelbuttonvideoplayer.Hide()
If Name_Changer.Visible Then pnlpanelbuttonnamechanger.Show() Else pnlpanelbuttonnamechanger.Hide()
If Icon_Manager.Visible Then pnlpanelbuttoniconmanager.Show() Else pnlpanelbuttoniconmanager.Hide()
If Bitnote_Wallet.Visible Then pnlpanelbuttonbitnotewallet.Show() Else pnlpanelbuttonbitnotewallet.Hide()
If Bitnote_Digger.Visible Then pnlpanelbuttonbitnotedigger.Show() Else pnlpanelbuttonbitnotedigger.Hide()
If Skinshifter.Visible Then pnlpanelbuttonskinshifter.Show() Else pnlpanelbuttonskinshifter.Hide()
If Shiftnet.Visible Then pnlpanelbuttonshiftnet.Show() Else pnlpanelbuttonshiftnet.Hide()
If Downloader.Visible Then pnlpanelbuttondownloader.Show() Else pnlpanelbuttondownloader.Hide()
If Dodge.Visible Then pnlpanelbuttondodge.Show() Else pnlpanelbuttondodge.Hide()
If Downloadmanager.Visible Then pnlpanelbuttondownloadmanager.Show() Else pnlpanelbuttondownloadmanager.Hide()
If Installer.Visible Then pnlpanelbuttoninstaller.Show() Else pnlpanelbuttoninstaller.Hide()
If Snakey.Visible Then pnl_panelbuttonsnakey.Show() Else pnl_panelbuttonsnakey.Hide()
If systeminfo.Visible Then pnlpanelbuttonsysinfo.Show() Else pnlpanelbuttonsysinfo.Hide()
If OrcWrite.Visible Then pnlpanelbuttonorcwrite.Show() Else pnlpanelbuttonorcwrite.Hide()
If FloodGate_Manager.Visible Then pnlpanelbuttonfloodgate.Show() Else pnlpanelbuttonfloodgate.Hide()
If Labyrinth.Visible Then pnlpanelbuttonmaze.Show() Else pnlpanelbuttonmaze.Hide()
If VirusScanner.Visible Then pnlpanelbuttonvirusscanner.Show() Else pnlpanelbuttonvirusscanner.Hide()
If Terminal.Visible Then pnlpanelbuttonterminal.Show() Else pnlpanelbuttonterminal.Hide()
tbknowledgeinputicon.Image = knowledgeinputiconpanelbutton.Clone
tbknowledgeinputtext.Text = knowledgeinputname
tbshiftoriumtext.Text = shiftoriumname
tbclocktext.Text = clockname
tbshiftertext.Text = shiftername
tbcolourpickertext.Text = colourpickername
tbpongtext.Text = pongname
tbfileskimmertext.Text = fileskimmername
tbfileopenertext.Text = fileopenername
tbfilesavertext.Text = filesavername
tbtextpadtext.Text = textpadname
tbgraphicpickertext.Text = graphicpickername
tbskinloadertext.Text = skinloadername
tbartpadtext.Text = artpadname
tbcalculatortext.Text = calculatorname
tbaudioplayertext.Text = audioplayername
tbwebbrowsertext.Text = webbrowsername
tbvideoplayertext.Text = videoplayername
tbnamechangertext.Text = namechangername
tbiconmanagertext.Text = iconmanagername
tbbitnotewallettext.Text = bitnotewalletname
tbbitnotediggertext.Text = bitnotediggername
tbskinshiftertext.Text = skinshiftername
tbshiftnettext.Text = shiftnetname
tbdownloadertext.Text = downloadername
tbdodgetext.Text = dodgename
tbdownloadmanagertext.Text = downloadmanagername
tbinstallertext.Text = installername
tbsnakeytext.Text = snakeyname
tbsysinfotext.Text = sysinfoname
tborcwritetext.Text = orcwritename
tbfloodgatetext.Text = floodgatename
tbmazetext.Text = mazename
tbvirusscannertext.Text = virusscannername
tbterminaltext.Text = terminalname
pnlpanelbuttonknowledgeinput.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonshiftorium.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonclock.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonshifter.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttoncolourpicker.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttoninfobox.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonpong.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonfileskimmer.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonfileopener.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonfilesaver.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttontextpad.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttongraphicpicker.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonskinloader.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonartpad.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttoncalculator.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonaudioplayer.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonwebbrowser.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonvideoplayer.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonnamechanger.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttoniconmanager.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonbitnotewallet.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonbitnotedigger.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonskinshifter.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonshiftnet.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttondownloader.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttondodge.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttondownloadmanager.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttoninstaller.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnl_panelbuttonsnakey.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonsysinfo.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonorcwrite.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonfloodgate.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonmaze.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonvirusscanner.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
pnlpanelbuttonterminal.Margin = New Padding(0, Skins.panelbuttonfromtop, Skins.panelbuttongap, 0)
setpanelbuttonappearnce(pnlpanelbuttonknowledgeinput, tbknowledgeinputicon, tbknowledgeinputtext, False)
setpanelbuttonappearnce(pnlpanelbuttonshiftorium, tbshiftoriumicon, tbshiftoriumtext, False)
setpanelbuttonappearnce(pnlpanelbuttonclock, tbclockicon, tbclocktext, False)
setpanelbuttonappearnce(pnlpanelbuttonshifter, tbshiftericon, tbshiftertext, False)
setpanelbuttonappearnce(pnlpanelbuttoncolourpicker, tbcolourpickericon, tbcolourpickertext, False)
setpanelbuttonappearnce(pnlpanelbuttoninfobox, tbinfoboxicon, tbinfoboxtext, False)
setpanelbuttonappearnce(pnlpanelbuttonpong, tbpongicon, tbpongtext, False)
setpanelbuttonappearnce(pnlpanelbuttonfileskimmer, tbfileskimmericon, tbfileskimmertext, False)
setpanelbuttonappearnce(pnlpanelbuttonfileopener, tbfileopenericon, tbfileopenertext, False)
setpanelbuttonappearnce(pnlpanelbuttonfilesaver, tbfilesavericon, tbfilesavertext, False)
setpanelbuttonappearnce(pnlpanelbuttontextpad, tbtextpadicon, tbtextpadtext, False)
setpanelbuttonappearnce(pnlpanelbuttongraphicpicker, tbgraphicpickericon, tbgraphicpickertext, False)
setpanelbuttonappearnce(pnlpanelbuttonskinloader, tbskinloadericon, tbskinloadertext, False)
setpanelbuttonappearnce(pnlpanelbuttonartpad, tbartpadicon, tbartpadtext, False)
setpanelbuttonappearnce(pnlpanelbuttoncalculator, tbcalculatoricon, tbcalculatortext, False)
setpanelbuttonappearnce(pnlpanelbuttonaudioplayer, tbaudioplayericon, tbaudioplayertext, False)
setpanelbuttonappearnce(pnlpanelbuttonwebbrowser, tbwebbrowsericon, tbwebbrowsertext, False)
setpanelbuttonappearnce(pnlpanelbuttonvideoplayer, tbvideoplayericon, tbvideoplayertext, False)
setpanelbuttonappearnce(pnlpanelbuttonnamechanger, tbnamechangericon, tbnamechangertext, False)
setpanelbuttonappearnce(pnlpanelbuttoniconmanager, tbiconmanagericon, tbiconmanagertext, False)
setpanelbuttonappearnce(pnlpanelbuttonbitnotewallet, tbbitnotewalleticon, tbbitnotewallettext, False)
setpanelbuttonappearnce(pnlpanelbuttonbitnotedigger, tbbitnotediggericon, tbbitnotediggertext, False)
setpanelbuttonappearnce(pnlpanelbuttonskinshifter, tbskinshiftericon, tbskinshiftertext, False)
setpanelbuttonappearnce(pnlpanelbuttonshiftnet, tbshiftneticon, tbshiftnettext, False)
setpanelbuttonappearnce(pnlpanelbuttondownloader, tbdownloadericon, tbdownloadertext, False)
setpanelbuttonappearnce(pnlpanelbuttondodge, tbdodgeicon, tbdodgetext, False)
setpanelbuttonappearnce(pnlpanelbuttondownloadmanager, tbdownloadmanagericon, tbdownloadmanagertext, False)
setpanelbuttonappearnce(pnlpanelbuttoninstaller, tbinstallericon, tbinstallertext, False)
setpanelbuttonappearnce(pnl_panelbuttonsnakey, tbsnakeyicon, tbsnakeytext, False)
setpanelbuttonappearnce(pnlpanelbuttonsysinfo, tbsysinfoicon, tbsysinfotext, False)
setpanelbuttonappearnce(pnlpanelbuttonorcwrite, tborcwriteicon, tborcwritetext, False)
setpanelbuttonappearnce(pnlpanelbuttonfloodgate, tbfloodgateicon, tbfloodgatetext, False)
setpanelbuttonappearnce(pnlpanelbuttonmaze, tbmazeicon, tbmazetext, False)
setpanelbuttonappearnce(pnlpanelbuttonvirusscanner, tbvirusscannericon, tbvirusscannertext, False)
setpanelbuttonappearnce(pnlpanelbuttonterminal, tbterminalicon, tbterminaltext, False)
setuppanelbuttonicons(tbknowledgeinputicon, knowledgeinputiconpanelbutton)
setuppanelbuttonicons(tbshiftoriumicon, shiftoriumiconpanelbutton)
setuppanelbuttonicons(tbclockicon, clockiconpanelbutton)
setuppanelbuttonicons(tbshiftericon, shiftericonpanelbutton)
setuppanelbuttonicons(tbcolourpickericon, colourpickericonpanelbutton)
setuppanelbuttonicons(tbinfoboxicon, infoboxiconpanelbutton)
setuppanelbuttonicons(tbpongicon, pongiconpanelbutton)
setuppanelbuttonicons(tbfileskimmericon, fileskimmericonpanelbutton)
setuppanelbuttonicons(tbfileopenericon, fileopenericonpanelbutton)
setuppanelbuttonicons(tbfilesavericon, filesavericonpanelbutton)
setuppanelbuttonicons(tbtextpadicon, textpadiconpanelbutton)
setuppanelbuttonicons(tbgraphicpickericon, graphicpickericonpanelbutton)
setuppanelbuttonicons(tbskinloadericon, skinloadericonpanelbutton)
setuppanelbuttonicons(tbartpadicon, artpadiconpanelbutton)
setuppanelbuttonicons(tbcalculatoricon, calculatoriconpanelbutton)
setuppanelbuttonicons(tbaudioplayericon, audioplayericonpanelbutton)
setuppanelbuttonicons(tbwebbrowsericon, webbrowsericonpanelbutton)
setuppanelbuttonicons(tbvideoplayericon, videoplayericonpanelbutton)
setuppanelbuttonicons(tbnamechangericon, namechangericonpanelbutton)
setuppanelbuttonicons(tbiconmanagericon, iconmanagericonpanelbutton)
setuppanelbuttonicons(tbbitnotewalleticon, bitnotewalleticonpanelbutton)
setuppanelbuttonicons(tbbitnotediggericon, bitnotediggericonpanelbutton)
setuppanelbuttonicons(tbskinshiftericon, skinshiftericonpanelbutton)
setuppanelbuttonicons(tbshiftneticon, shiftneticonpanelbutton)
setuppanelbuttonicons(tbdownloadericon, downloadericonpanelbutton)
setuppanelbuttonicons(tbdodgeicon, dodgeiconpanelbutton)
setuppanelbuttonicons(tbdownloadmanagericon, downloadmanagericonpanelbutton)
setuppanelbuttonicons(tbinstallericon, installericonpanelbutton)
setuppanelbuttonicons(tbsnakeyicon, snakeyiconpanelbutton)
setuppanelbuttonicons(tbsysinfoicon, sysinfoiconpanelbutton)
setuppanelbuttonicons(tborcwriteicon, orcwriteiconpanelbutton)
setuppanelbuttonicons(tbfloodgateicon, floodgateiconpanelbutton)
setuppanelbuttonicons(tbmazeicon, mazeiconpanelbutton)
setuppanelbuttonicons(tbvirusscannericon, virusscannericonpanelbutton)
setuppanelbuttonicons(tbterminalicon, terminaliconpanelbutton)
pnlpanelbuttonholder.Padding = New Padding(Skins.panelbuttoninitialgap, 0, 0, 0)
End If
End Sub
Public Sub setuppanelbuttonicons(ByVal tbicon As PictureBox, ByVal image As Image)
tbicon.Image = image
tbicon.Size = New Size(Skins.panelbuttoniconsize, Skins.panelbuttoniconsize)
End Sub
Public Sub setpanelbuttonappearnce(ByVal panelbutton As Panel, ByVal icon As PictureBox, ByVal text As Label, ByVal sendback As Boolean)
If sendback = True Then panelbutton.SendToBack()
icon.Location = New Point(Skins.panelbuttoniconside, Skins.panelbuttonicontop)
icon.Size = New Size(Skins.panelbuttoniconsize, Skins.panelbuttoniconsize)
panelbutton.Size = New Size(Skins.panelbuttonwidth, Skins.panelbuttonheight)
panelbutton.BackColor = Skins.panelbuttoncolour
panelbutton.BackgroundImage = Skins.panelbutton
If Skins.panelbutton Is Nothing Then Else panelbutton.BackColor = Color.Transparent
panelbutton.BackgroundImageLayout = Skins.panelbuttonlayout
text.ForeColor = Skins.panelbuttontextcolour
text.Font = New Font(Skins.panelbuttontextfont, Skins.panelbuttontextsize, Skins.panelbuttontextstyle)
text.Location = New Point(Skins.panelbuttontextside, Skins.panelbuttontexttop)
End Sub
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.T AndAlso e.Control Then
Terminal.Show()
Terminal.BringToFront()
If terminalfullscreen = True Then Terminal.fullterminal()
End If
End Sub
Public Sub closeeverything()
If boughtmultitasking = False Then
For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray()
Select Case f.Name
Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter"
'do nothing
Case Else
f.Close()
End Select
Next
End If
If forceclose = True Then
For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray()
Select Case f.Name
Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter"
'do nothing
Case Else
f.Close()
End Select
Next
End If
forceclose = False
End Sub
Public Sub shutdownshiftos()
forceclose = True
closeeverything()
Terminal.txtterm.Text = Terminal.txtterm.Text & Environment.NewLine & "System Is Shutting Down..." & Environment.NewLine
log = log & My.Computer.Clock.LocalTime & " ShutDown ShiftOS with " & codepoints & " Code Points!" & Environment.NewLine
savegame()
Terminal.tmrshutdown.Start()
End Sub
Public Sub addtitlebars()
'attempted future code to dramatically increase development time and simplify code
'For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray()
' Select Case f.Name
' Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter"
' 'do nothing
' Case Else
' If f.Visible = True Then
' f.titlebar.Show()
' f.setuptitlebar()
' f.Size = New Size(f.Width, f.Size.Height + f.titlebar.Height)
' End If
' End Select
'Next
'This cause windows to shrink with the new skinning system
'If Knowledge_Input.Visible = True Then
' Knowledge_Input.titlebar.Show()
' Knowledge_Input.setuptitlebar()
' Knowledge_Input.Size = New Size(Knowledge_Input.Width, Knowledge_Input.Size.Height + Knowledge_Input.titlebar.Height)
'End If
'If Shiftorium.Visible = True Then
' Shiftorium.titlebar.Show()
' Shiftorium.setuptitlebar()
' Shiftorium.Size = New Size(Shiftorium.Width, Shiftorium.Size.Height + Shiftorium.titlebar.Height)
'End If
'If Clock.Visible = True Then
' Clock.titlebar.Show()
' Clock.setuptitlebar()
' Clock.Size = New Size(Clock.Width, Clock.Size.Height + Clock.titlebar.Height)
'End If
'If Shifter.Visible = True Then
' Shifter.titlebar.Show()
' Shifter.setuptitlebar()
' Shifter.Size = New Size(Shifter.Width, Shifter.Size.Height + Shifter.titlebar.Height)
'End If
'If Colour_Picker.Visible = True Then
' Colour_Picker.titlebar.Show()
' Colour_Picker.setuptitlebar()
' Colour_Picker.Size = New Size(Colour_Picker.Width, Colour_Picker.Size.Height + Colour_Picker.titlebar.Height)
'End If
'If infobox.Visible = True Then
' infobox.titlebar.Show()
' infobox.setuptitlebar()
' infobox.Size = New Size(infobox.Width, infobox.Size.Height + infobox.titlebar.Height)
'End If
'If Pong.Visible = True Then
' Pong.titlebar.Show()
' Pong.setuptitlebar()
' Pong.Size = New Size(Pong.Width, Pong.Size.Height + Pong.titlebar.Height)
'End If
'If File_Skimmer.Visible = True Then
' File_Skimmer.titlebar.Show()
' File_Skimmer.setuptitlebar()
' File_Skimmer.Size = New Size(File_Skimmer.Width, File_Skimmer.Size.Height + File_Skimmer.titlebar.Height)
'End If
'If TextPad.Visible = True Then
' TextPad.titlebar.Show()
' TextPad.setuptitlebar()
' TextPad.Size = New Size(TextPad.Width, TextPad.Size.Height + TextPad.titlebar.Height)
'End If
'If File_Opener.Visible = True Then
' File_Opener.titlebar.Show()
' File_Opener.setuptitlebar()
' File_Opener.Size = New Size(File_Opener.Width, File_Opener.Size.Height + File_Opener.titlebar.Height)
'End If
'If File_Saver.Visible = True Then
' File_Saver.titlebar.Show()
' File_Saver.setuptitlebar()
' File_Saver.Size = New Size(File_Saver.Width, File_Saver.Size.Height + File_Saver.titlebar.Height)
'End If
'If Graphic_Picker.Visible = True Then
' Graphic_Picker.titlebar.Show()
' Graphic_Picker.setuptitlebar()
' Graphic_Picker.Size = New Size(Graphic_Picker.Width, Graphic_Picker.Size.Height + Graphic_Picker.titlebar.Height)
'End If
'If Skin_Loader.Visible = True Then
' Skin_Loader.titlebar.Show()
' Skin_Loader.setuptitlebar()
' Skin_Loader.Size = New Size(Skin_Loader.Width, Skin_Loader.Size.Height + Skin_Loader.titlebar.Height)
'End If
''If ArtPad.Visible = True Then
'' ArtPad.titlebar.Show()
'' ArtPad.setuptitlebar()
'' ArtPad.Size = New Size(ArtPad.Width, ArtPad.Size.Height + ArtPad.titlebar.Height)
''End If
'If Calculator.Visible = True Then
' Calculator.titlebar.Show()
' Calculator.setuptitlebar()
' Calculator.Size = New Size(Calculator.Width, Calculator.Size.Height + Calculator.titlebar.Height)
'End If
'If Audio_Player.Visible = True Then
' Audio_Player.titlebar.Show()
' Audio_Player.setuptitlebar()
' Audio_Player.Size = New Size(Audio_Player.Width, Audio_Player.Size.Height + Audio_Player.titlebar.Height)
'End If
'If Web_Browser.Visible = True Then
' Web_Browser.titlebar.Show()
' Web_Browser.setuptitlebar()
' Web_Browser.Size = New Size(Web_Browser.Width, Web_Browser.Size.Height + Web_Browser.titlebar.Height)
'End If
'If Name_Changer.Visible = True Then
' Name_Changer.titlebar.Show()
' Name_Changer.setuptitlebar()
' Name_Changer.Size = New Size(Name_Changer.Width, Name_Changer.Size.Height + Name_Changer.titlebar.Height)
'End If
'If Icon_Manager.Visible = True Then
' Icon_Manager.titlebar.Show()
' Icon_Manager.setuptitlebar()
' Icon_Manager.Size = New Size(Icon_Manager.Width, Icon_Manager.Size.Height + Icon_Manager.titlebar.Height)
'End If
'If Bitnote_Wallet.Visible = True Then
' Bitnote_Wallet.titlebar.Show()
' Bitnote_Wallet.setuptitlebar()
' Bitnote_Wallet.Size = New Size(Bitnote_Wallet.Width, Bitnote_Wallet.Size.Height + Bitnote_Wallet.titlebar.Height)
'End If
'If Bitnote_Digger.Visible = True Then
' Bitnote_Digger.titlebar.Show()
' Bitnote_Digger.setuptitlebar()
' Bitnote_Digger.Size = New Size(Bitnote_Digger.Width, Bitnote_Digger.Size.Height + Bitnote_Digger.titlebar.Height)
'End If
'If Skinshifter.Visible = True Then
' Skinshifter.titlebar.Show()
' Skinshifter.setuptitlebar()
' Skinshifter.Size = New Size(Skinshifter.Width, Skinshifter.Size.Height + Skinshifter.titlebar.Height)
'End If
'If Shiftnet.Visible = True Then
' Shiftnet.titlebar.Show()
' Shiftnet.setuptitlebar()
' Shiftnet.Size = New Size(Shiftnet.Width, Shiftnet.Size.Height + Shiftnet.titlebar.Height)
'End If
'If Downloader.Visible = True Then
' Downloader.titlebar.Show()
' Downloader.setuptitlebar()
' Downloader.Size = New Size(Downloader.Width, Downloader.Size.Height + Downloader.titlebar.Height)
'End If
'If Dodge.Visible = True Then
' Dodge.titlebar.Show()
' Dodge.setuptitlebar()
' Dodge.Size = New Size(Dodge.Width, Dodge.Size.Height + Dodge.titlebar.Height)
'End If
'If Downloadmanager.Visible = True Then
' Downloadmanager.titlebar.Show()
' Downloadmanager.setuptitlebar()
' Downloadmanager.Size = New Size(Downloadmanager.Width, Downloadmanager.Size.Height + Downloadmanager.titlebar.Height)
'End If
'If Installer.Visible = True Then
' Installer.titlebar.Show()
' Installer.setuptitlebar()
' Installer.Size = New Size(Installer.Width, Installer.Size.Height + Installer.titlebar.Height)
'End If
'If Snakey.Visible = True Then
' Snakey.titlebar.Show()
' Snakey.setuptitlebar()
' Snakey.Size = New Size(Installer.Width, Installer.Size.Height + Installer.titlebar.Height)
'End If
'If systeminfo.Visible = True Then
' systeminfo.titlebar.Show()
' systeminfo.setuptitlebar()
' systeminfo.Size = New Size(Installer.Width, Installer.Size.Height + Installer.titlebar.Height)
'End If
'If OrcWrite.Visible = True Then
' OrcWrite.titlebar.Show()
' OrcWrite.setuptitlebar()
' OrcWrite.Size = New Size(Installer.Width, Installer.Size.Height + Installer.titlebar.Height)
'End If
'If FloodGate_Manager.Visible = True Then
' FloodGate_Manager.titlebar.Show()
' FloodGate_Manager.setuptitlebar()
' FloodGate_Manager.Size = New Size(Installer.Width, Installer.Size.Height + Installer.titlebar.Height)
'End If
'If VirusScanner.Visible = True Then
' VirusScanner.titlebar.Show()
' VirusScanner.setuptitlebar()
' VirusScanner.Size = New Size(Installer.Width, Installer.Size.Height + Installer.titlebar.Height)
'End If
'If template.Visible = True Then
' template.titlebar.Show()
' template.setuptitlebar()
' template.Size = New Size(ArtPad.Width, ArtPad.Size.Height + ArtPad.titlebar.Height)
'End If
'If terminalfullscreen = False Then
' If Terminal.Visible = True Then
' Terminal.titlebar.Show()
' Terminal.setuptitlebar()
' Terminal.Size = New Size(Terminal.Width, Terminal.Size.Height + Terminal.titlebar.Height)
' End If
'End If
End Sub
Public Sub addborders()
Knowledge_Input.pgleft.Show()
Knowledge_Input.pgbottom.Show()
Knowledge_Input.pgright.Show()
Knowledge_Input.Size = New Size(Knowledge_Input.Width + Knowledge_Input.pgleft.Width + Knowledge_Input.pgright.Width, Knowledge_Input.Height + Knowledge_Input.pgbottom.Height)
If boughttitlebar = True Then Knowledge_Input.setuptitlebar()
Shiftorium.pgleft.Show()
Shiftorium.pgbottom.Show()
Shiftorium.pgright.Show()
Shiftorium.Size = New Size(Shiftorium.Width + Shiftorium.pgleft.Width + Shiftorium.pgright.Width, Shiftorium.Height + Shiftorium.pgbottom.Height)
If boughttitlebar = True Then Shiftorium.setuptitlebar()
Clock.pgleft.Show()
Clock.pgbottom.Show()
Clock.pgright.Show()
Clock.Size = New Size(Clock.Width + Clock.pgleft.Width + Clock.pgright.Width, Clock.Height + Clock.pgbottom.Height)
If boughttitlebar = True Then Clock.setuptitlebar()
Shifter.pgleft.Show()
Shifter.pgbottom.Show()
Shifter.pgright.Show()
Shifter.Size = New Size(Shifter.Width + Shifter.pgleft.Width + Shifter.pgright.Width, Shifter.Height + Shifter.pgbottom.Height)
If boughttitlebar = True Then Shifter.setuptitlebar()
Colour_Picker.pgleft.Show()
Colour_Picker.pgbottom.Show()
Colour_Picker.pgright.Show()
Colour_Picker.Size = New Size(Colour_Picker.Width + Colour_Picker.pgleft.Width + Colour_Picker.pgright.Width, Colour_Picker.Height + Colour_Picker.pgbottom.Height)
If boughttitlebar = True Then Colour_Picker.setuptitlebar()
infobox.pgleft.Show()
infobox.pgbottom.Show()
infobox.pgright.Show()
infobox.Size = New Size(infobox.Width + infobox.pgleft.Width + infobox.pgright.Width, infobox.Height + infobox.pgbottom.Height)
If boughttitlebar = True Then infobox.setuptitlebar()
Pong.pgleft.Show()
Pong.pgbottom.Show()
Pong.pgright.Show()
Pong.Size = New Size(Pong.Width + Pong.pgleft.Width + Pong.pgright.Width, Pong.Height + Pong.pgbottom.Height)
If boughttitlebar = True Then Pong.setuptitlebar()
File_Skimmer.pgleft.Show()
File_Skimmer.pgbottom.Show()
File_Skimmer.pgright.Show()
File_Skimmer.Size = New Size(File_Skimmer.Width + File_Skimmer.pgleft.Width + File_Skimmer.pgright.Width, File_Skimmer.Height + File_Skimmer.pgbottom.Height)
If boughttitlebar = True Then File_Skimmer.setuptitlebar()
TextPad.pgleft.Show()
TextPad.pgbottom.Show()
TextPad.pgright.Show()
TextPad.Size = New Size(File_Skimmer.Width + TextPad.pgleft.Width + TextPad.pgright.Width, TextPad.Height + TextPad.pgbottom.Height)
If boughttitlebar = True Then TextPad.setuptitlebar()
File_Opener.pgleft.Show()
File_Opener.pgbottom.Show()
File_Opener.pgright.Show()
File_Opener.Size = New Size(File_Skimmer.Width + File_Opener.pgleft.Width + File_Opener.pgright.Width, File_Opener.Height + File_Opener.pgbottom.Height)
If boughttitlebar = True Then File_Opener.setuptitlebar()
File_Saver.pgleft.Show()
File_Saver.pgbottom.Show()
File_Saver.pgright.Show()
File_Saver.Size = New Size(File_Skimmer.Width + File_Saver.pgleft.Width + File_Saver.pgright.Width, File_Saver.Height + File_Saver.pgbottom.Height)
If boughttitlebar = True Then File_Saver.setuptitlebar()
Graphic_Picker.pgleft.Show()
Graphic_Picker.pgbottom.Show()
Graphic_Picker.pgright.Show()
Graphic_Picker.Size = New Size(Graphic_Picker.Width + Graphic_Picker.pgleft.Width + Graphic_Picker.pgright.Width, Graphic_Picker.Height + Graphic_Picker.pgbottom.Height)
If boughttitlebar = True Then Graphic_Picker.setuptitlebar()
Skin_Loader.pgleft.Show()
Skin_Loader.pgbottom.Show()
Skin_Loader.pgright.Show()
Skin_Loader.Size = New Size(Skin_Loader.Width + Skin_Loader.pgleft.Width + Skin_Loader.pgright.Width, Skin_Loader.Height + Skin_Loader.pgbottom.Height)
If boughttitlebar = True Then Skin_Loader.setuptitlebar()
ArtPad.pgleft.Show()
ArtPad.pgbottom.Show()
ArtPad.pgright.Show()
ArtPad.Size = New Size(ArtPad.Width + ArtPad.pgleft.Width + ArtPad.pgright.Width, ArtPad.Height + ArtPad.pgbottom.Height)
If boughttitlebar = True Then ArtPad.setuptitlebar()
Calculator.pgleft.Show()
Calculator.pgbottom.Show()
Calculator.pgright.Show()
Calculator.Size = New Size(Calculator.Width + Calculator.pgleft.Width + Calculator.pgright.Width, Calculator.Height + Calculator.pgbottom.Height)
If boughttitlebar = True Then Calculator.setuptitlebar()
Audio_Player.pgleft.Show()
Audio_Player.pgbottom.Show()
Audio_Player.pgright.Show()
Audio_Player.Size = New Size(Audio_Player.Width + Audio_Player.pgleft.Width + Audio_Player.pgright.Width, Audio_Player.Height + Audio_Player.pgbottom.Height)
If boughttitlebar = True Then Audio_Player.setuptitlebar()
Web_Browser.pgleft.Show()
Web_Browser.pgbottom.Show()
Web_Browser.pgright.Show()
Web_Browser.Size = New Size(Web_Browser.Width + Web_Browser.pgleft.Width + Web_Browser.pgright.Width, Web_Browser.Height + Web_Browser.pgbottom.Height)
If boughttitlebar = True Then Web_Browser.setuptitlebar()
Video_Player.pgleft.Show()
Video_Player.pgbottom.Show()
Video_Player.pgright.Show()
Video_Player.Size = New Size(Video_Player.Width + Video_Player.pgleft.Width + Video_Player.pgright.Width, Video_Player.Height + Video_Player.pgbottom.Height)
If boughttitlebar = True Then Video_Player.setuptitlebar()
Name_Changer.pgleft.Show()
Name_Changer.pgbottom.Show()
Name_Changer.pgright.Show()
Name_Changer.Size = New Size(Name_Changer.Width + Name_Changer.pgleft.Width + Name_Changer.pgright.Width, Name_Changer.Height + Name_Changer.pgbottom.Height)
If boughttitlebar = True Then Name_Changer.setuptitlebar()
Icon_Manager.pgleft.Show()
Icon_Manager.pgbottom.Show()
Icon_Manager.pgright.Show()
Icon_Manager.Size = New Size(Icon_Manager.Width + Icon_Manager.pgleft.Width + Icon_Manager.pgright.Width, Icon_Manager.Height + Icon_Manager.pgbottom.Height)
If boughttitlebar = True Then Icon_Manager.setuptitlebar()
Bitnote_Wallet.pgleft.Show()
Bitnote_Wallet.pgbottom.Show()
Bitnote_Wallet.pgright.Show()
Bitnote_Wallet.Size = New Size(Bitnote_Wallet.Width + Bitnote_Wallet.pgleft.Width + Bitnote_Wallet.pgright.Width, Bitnote_Wallet.Height + Bitnote_Wallet.pgbottom.Height)
If boughttitlebar = True Then Bitnote_Wallet.setuptitlebar()
Bitnote_Digger.pgleft.Show()
Bitnote_Digger.pgbottom.Show()
Bitnote_Digger.pgright.Show()
Bitnote_Digger.Size = New Size(Bitnote_Digger.Width + Bitnote_Digger.pgleft.Width + Bitnote_Digger.pgright.Width, Bitnote_Digger.Height + Bitnote_Digger.pgbottom.Height)
If boughttitlebar = True Then Bitnote_Digger.setuptitlebar()
Skinshifter.pgleft.Show()
Skinshifter.pgbottom.Show()
Skinshifter.pgright.Show()
Skinshifter.Size = New Size(Skinshifter.Width + Skinshifter.pgleft.Width + Skinshifter.pgright.Width, Skinshifter.Height + Skinshifter.pgbottom.Height)
If boughttitlebar = True Then Skinshifter.setuptitlebar()
Shiftnet.pgleft.Show()
Shiftnet.pgbottom.Show()
Shiftnet.pgright.Show()
Shiftnet.Size = New Size(Shiftnet.Width + Shiftnet.pgleft.Width + Shiftnet.pgright.Width, Shiftnet.Height + Shiftnet.pgbottom.Height)
If boughttitlebar = True Then Shiftnet.setuptitlebar()
Downloader.pgleft.Show()
Downloader.pgbottom.Show()
Downloader.pgright.Show()
Downloader.Size = New Size(Downloader.Width + Downloader.pgleft.Width + Downloader.pgright.Width, Downloader.Height + Downloader.pgbottom.Height)
If boughttitlebar = True Then Downloader.setuptitlebar()
Dodge.pgleft.Show()
Dodge.pgbottom.Show()
Dodge.pgright.Show()
Dodge.Size = New Size(Dodge.Width + Dodge.pgleft.Width + Dodge.pgright.Width, Dodge.Height + Dodge.pgbottom.Height)
If boughttitlebar = True Then Dodge.setuptitlebar()
Downloadmanager.pgleft.Show()
Downloadmanager.pgbottom.Show()
Downloadmanager.pgright.Show()
Downloadmanager.Size = New Size(Downloadmanager.Width + Downloadmanager.pgleft.Width + Downloadmanager.pgright.Width, Downloadmanager.Height + Downloadmanager.pgbottom.Height)
If boughttitlebar = True Then Downloadmanager.setuptitlebar()
Installer.pgleft.Show()
Installer.pgbottom.Show()
Installer.pgright.Show()
Installer.Size = New Size(Installer.Width + Installer.pgleft.Width + Installer.pgright.Width, Installer.Height + Installer.pgbottom.Height)
If boughttitlebar = True Then Installer.setuptitlebar()
Snakey.pgleft.Show()
Snakey.pgbottom.Show()
Snakey.pgright.Show()
Snakey.Size = New Size(Snakey.Width + Snakey.pgleft.Width + Snakey.pgright.Width, Snakey.Height + Snakey.pgbottom.Height)
If boughttitlebar = True Then Snakey.setuptitlebar()
systeminfo.pgleft.Show()
systeminfo.pgbottom.Show()
systeminfo.pgright.Show()
systeminfo.Size = New Size(systeminfo.Width + systeminfo.pgleft.Width + systeminfo.pgright.Width, systeminfo.Height + systeminfo.pgbottom.Height)
If boughttitlebar = True Then systeminfo.setuptitlebar()
OrcWrite.pgleft.Show()
OrcWrite.pgbottom.Show()
OrcWrite.pgright.Show()
OrcWrite.Size = New Size(OrcWrite.Width + OrcWrite.pgleft.Width + OrcWrite.pgright.Width, OrcWrite.Height + OrcWrite.pgbottom.Height)
If boughttitlebar = True Then OrcWrite.setuptitlebar()
FloodGate_Manager.pgleft.Show()
FloodGate_Manager.pgbottom.Show()
FloodGate_Manager.pgright.Show()
FloodGate_Manager.Size = New Size(FloodGate_Manager.Width + FloodGate_Manager.pgleft.Width + FloodGate_Manager.pgright.Width, FloodGate_Manager.Height + FloodGate_Manager.pgbottom.Height)
If boughttitlebar = True Then FloodGate_Manager.setuptitlebar()
VirusScanner.pgleft.Show()
VirusScanner.pgbottom.Show()
VirusScanner.pgright.Show()
VirusScanner.Size = New Size(VirusScanner.Width + VirusScanner.pgleft.Width + VirusScanner.pgright.Width, FloodGate_Manager.Height + FloodGate_Manager.pgbottom.Height)
If boughttitlebar = True Then VirusScanner.setuptitlebar()
template.pgleft.Show()
template.pgbottom.Show()
template.pgright.Show()
template.Size = New Size(template.Width + template.pgleft.Width + template.pgright.Width, template.Height + template.pgbottom.Height)
If boughttitlebar = True Then ArtPad.setuptitlebar()
If terminalfullscreen = False Then
Terminal.pgleft.Show()
Terminal.pgbottom.Show()
Terminal.pgright.Show()
Terminal.Size = New Size(Terminal.Width + Terminal.pgleft.Width + Terminal.pgright.Width, Terminal.Height + Terminal.pgbottom.Height)
If boughttitlebar = True Then Terminal.setuptitlebar()
End If
End Sub
Public Sub shiftwindowsontop()
If unitymode = True Then
Me.TopMost = True
Knowledge_Input.TopMost = False
Shiftorium.TopMost = False
Clock.TopMost = False
Shifter.TopMost = False
Colour_Picker.TopMost = False
infobox.TopMost = False
Pong.TopMost = False
File_Skimmer.TopMost = False
TextPad.TopMost = False
File_Opener.TopMost = False
File_Saver.TopMost = False
Graphic_Picker.TopMost = False
Skin_Loader.TopMost = False
ArtPad.TopMost = False
Calculator.TopMost = False
Audio_Player.TopMost = False
Web_Browser.TopMost = False
Video_Player.TopMost = False
Name_Changer.TopMost = False
Icon_Manager.TopMost = False
Bitnote_Wallet.TopMost = False
Bitnote_Digger.TopMost = False
Skinshifter.TopMost = False
Shiftnet.TopMost = False
Downloader.TopMost = False
Dodge.TopMost = False
Downloadmanager.TopMost = False
Installer.TopMost = False
Snakey.TopMost = False
systeminfo.TopMost = False
OrcWrite.TopMost = False
FloodGate_Manager.TopMost = False
VirusScanner.TopMost = False
template.TopMost = False
Terminal.TopMost = False
Else
Me.BringToFront()
Me.TopMost = False
Knowledge_Input.TopMost = True
Shiftorium.TopMost = True
Clock.TopMost = True
Shifter.TopMost = True
Colour_Picker.TopMost = True
infobox.TopMost = True
Pong.TopMost = True
File_Skimmer.TopMost = True
TextPad.TopMost = True
File_Opener.TopMost = True
File_Saver.TopMost = True
Graphic_Picker.TopMost = True
Skin_Loader.TopMost = True
ArtPad.TopMost = True
Calculator.TopMost = True
Audio_Player.TopMost = True
Web_Browser.TopMost = True
Video_Player.TopMost = True
Name_Changer.TopMost = True
Icon_Manager.TopMost = True
Bitnote_Wallet.TopMost = True
Bitnote_Digger.TopMost = True
Skinshifter.TopMost = True
Shiftnet.TopMost = True
Downloader.TopMost = True
Dodge.TopMost = True
Downloadmanager.TopMost = True
Installer.TopMost = True
Snakey.TopMost = True
systeminfo.TopMost = True
OrcWrite.TopMost = True
FloodGate_Manager.TopMost = True
VirusScanner.TopMost = True
template.TopMost = True
Terminal.TopMost = True
End If
End Sub
Public Sub loadskinfiles()
' Old skin loading
'If skinimages(0) = "" Then Else skinclosebutton(0) = GetImage(skinimages(0))
'If skinimages(1) = "" Then Else skinclosebutton(1) = GetImage(skinimages(1))
'If skinimages(2) = "" Then Else skinclosebutton(2) = GetImage(skinimages(2))
'If skinimages(3) = "" Then Else skintitlebar(0) = GetImage(skinimages(3))
'If skinimages(4) = "" Then Else skintitlebar(1) = GetImage(skinimages(4))
'If skinimages(5) = "" Then Else skintitlebar(2) = GetImage(skinimages(5))
'If skinimages(6) = "" Then Else skindesktopbackground(0) = GetImage(skinimages(6))
'If skinimages(7) = "" Then Else skindesktopbackground(1) = GetImage(skinimages(7))
'If skinimages(8) = "" Then Else skindesktopbackground(2) = GetImage(skinimages(8))
'If skinimages(9) = "" Then Else skinrollupbutton(0) = GetImage(skinimages(9))
'If skinimages(10) = "" Then Else skinrollupbutton(1) = GetImage(skinimages(10))
'If skinimages(11) = "" Then Else skinrollupbutton(2) = GetImage(skinimages(11))
'If skinimages(12) = "" Then Else skintitlebarrightcorner(0) = GetImage(skinimages(12))
'If skinimages(13) = "" Then Else skintitlebarrightcorner(1) = GetImage(skinimages(13))
'If skinimages(14) = "" Then Else skintitlebarrightcorner(2) = GetImage(skinimages(14))
'If skinimages(15) = "" Then Else skintitlebarleftcorner(0) = GetImage(skinimages(15))
'If skinimages(16) = "" Then Else skintitlebarleftcorner(1) = GetImage(skinimages(16))
'If skinimages(17) = "" Then Else skintitlebarleftcorner(2) = GetImage(skinimages(17))
'If skinimages(18) = "" Then Else skindesktoppanel(0) = GetImage(skinimages(18))
'If skinimages(19) = "" Then Else skindesktoppanel(1) = GetImage(skinimages(19))
'If skinimages(20) = "" Then Else skindesktoppanel(2) = GetImage(skinimages(20))
'If skinimages(21) = "" Then Else skindesktoppaneltime(0) = GetImage(skinimages(21))
'If skinimages(22) = "" Then Else skindesktoppaneltime(1) = GetImage(skinimages(22))
'If skinimages(23) = "" Then Else skindesktoppaneltime(2) = GetImage(skinimages(23))
'If skinimages(24) = "" Then Else skinapplauncherbutton(0) = GetImage(skinimages(24))
'If skinimages(25) = "" Then Else skinapplauncherbutton(1) = GetImage(skinimages(25))
'If skinimages(26) = "" Then Else skinapplauncherbutton(2) = GetImage(skinimages(26))
'If skinimages(27) = "" Then Else skinwindowborderleft(0) = GetImage(skinimages(27))
'If skinimages(28) = "" Then Else skinwindowborderleft(1) = GetImage(skinimages(28))
'If skinimages(29) = "" Then Else skinwindowborderleft(2) = GetImage(skinimages(29))
'If skinimages(30) = "" Then Else skinwindowborderright(0) = GetImage(skinimages(30))
'If skinimages(31) = "" Then Else skinwindowborderright(1) = GetImage(skinimages(31))
'If skinimages(32) = "" Then Else skinwindowborderright(2) = GetImage(skinimages(32))
'If skinimages(33) = "" Then Else skinwindowborderbottom(0) = GetImage(skinimages(33))
'If skinimages(34) = "" Then Else skinwindowborderbottom(1) = GetImage(skinimages(34))
'If skinimages(35) = "" Then Else skinwindowborderbottom(2) = GetImage(skinimages(35))
'If skinimages(36) = "" Then Else skinwindowborderbottomright(0) = GetImage(skinimages(36))
'If skinimages(37) = "" Then Else skinwindowborderbottomright(1) = GetImage(skinimages(37))
'If skinimages(38) = "" Then Else skinwindowborderbottomright(2) = GetImage(skinimages(38))
'If skinimages(39) = "" Then Else skinwindowborderbottomleft(0) = GetImage(skinimages(39))
'If skinimages(40) = "" Then Else skinwindowborderbottomleft(1) = GetImage(skinimages(40))
'If skinimages(41) = "" Then Else skinwindowborderbottomleft(2) = GetImage(skinimages(41))
'If skinimages(42) = "" Then Else skinminimizebutton(0) = GetImage(skinimages(42))
'If skinimages(43) = "" Then Else skinminimizebutton(1) = GetImage(skinimages(43))
'If skinimages(44) = "" Then Else skinminimizebutton(2) = GetImage(skinimages(44))
'If skinimages(45) = "" Then Else skinpanelbutton(0) = GetImage(skinimages(45))
'If skinimages(46) = "" Then Else skinpanelbutton(1) = GetImage(skinimages(46))
'If skinimages(47) = "" Then Else skinpanelbutton(2) = GetImage(skinimages(47))
End Sub
Private Function GetImage(ByVal fileName As String) As Bitmap
Dim ret As Bitmap
Using img As Image = Image.FromFile(fileName)
ret = New Bitmap(img)
End Using
Return ret
End Function
'Public Sub setcolours()
' ' Why is this even here, windows are skinned in the template code
' If Shiftorium.Visible = True Then
' Shiftorium.titlebar.BackColor = titlebarcolour
' Shiftorium.pgtoplcorner.BackColor = titlebarleftcornercolour
' Shiftorium.pgtoprcorner.BackColor = titlebarrightcornercolour
' Shiftorium.pgleft.BackColor = windowborderleftcolour
' Shiftorium.pgleft.BackgroundImage = skinwindowborderleft(0)
' Shiftorium.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Shiftorium.pgright.BackColor = windowborderrightcolour
' Shiftorium.pgright.BackgroundImage = skinwindowborderright(0)
' Shiftorium.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Shiftorium.pgbottom.BackColor = windowborderbottomcolour
' Shiftorium.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Shiftorium.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Shiftorium.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Shiftorium.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Shiftorium.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Shiftorium.pgbottomlcorner.Height = windowbordersize
' Shiftorium.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Shiftorium.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Shiftorium.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Shiftorium.pgbottomrcorner.Height = windowbordersize
' Else
' Shiftorium.Close()
' End If
' If Knowledge_Input.Visible = True Then
' Knowledge_Input.titlebar.BackColor = titlebarcolour
' Knowledge_Input.pgtoplcorner.BackColor = titlebarleftcornercolour
' Knowledge_Input.pgtoprcorner.BackColor = titlebarrightcornercolour
' Knowledge_Input.pgleft.BackColor = windowborderleftcolour
' Knowledge_Input.pgleft.BackgroundImage = skinwindowborderleft(0)
' Knowledge_Input.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Knowledge_Input.pgright.BackColor = windowborderrightcolour
' Knowledge_Input.pgright.BackgroundImage = skinwindowborderright(0)
' Knowledge_Input.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Knowledge_Input.pgbottom.BackColor = windowborderbottomcolour
' Knowledge_Input.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Knowledge_Input.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Knowledge_Input.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Knowledge_Input.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Knowledge_Input.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Knowledge_Input.pgbottomlcorner.Height = windowbordersize
' Knowledge_Input.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Knowledge_Input.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Knowledge_Input.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Knowledge_Input.pgbottomrcorner.Height = windowbordersize
' Else
' Knowledge_Input.Close()
' End If
' If Clock.Visible = True Then
' Clock.titlebar.BackColor = titlebarcolour
' Clock.pgtoplcorner.BackColor = titlebarleftcornercolour
' Clock.pgtoprcorner.BackColor = titlebarrightcornercolour
' Clock.pgleft.BackColor = windowborderleftcolour
' Clock.pgleft.BackgroundImage = skinwindowborderleft(0)
' Clock.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Clock.pgright.BackColor = windowborderrightcolour
' Clock.pgright.BackgroundImage = skinwindowborderright(0)
' Clock.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Clock.pgbottom.BackColor = windowborderbottomcolour
' Clock.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Clock.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Clock.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Clock.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Clock.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Clock.pgbottomlcorner.Height = windowbordersize
' Clock.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Clock.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Clock.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Clock.pgbottomrcorner.Height = windowbordersize
' Else
' Clock.Close()
' End If
' If Shifter.Visible = True Then
' Shifter.titlebar.BackColor = titlebarcolour
' Shifter.pgtoplcorner.BackColor = titlebarleftcornercolour
' Shifter.pgtoprcorner.BackColor = titlebarrightcornercolour
' Shifter.pgleft.BackColor = windowborderleftcolour
' Shifter.pgleft.BackgroundImage = skinwindowborderleft(0)
' Shifter.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Shifter.pgright.BackColor = windowborderrightcolour
' Shifter.pgright.BackgroundImage = skinwindowborderright(0)
' Shifter.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Shifter.pgbottom.BackColor = windowborderbottomcolour
' Shifter.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Shifter.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Shifter.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Shifter.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Shifter.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Shifter.pgbottomlcorner.Height = windowbordersize
' Shifter.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Shifter.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Shifter.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Shifter.pgbottomrcorner.Height = windowbordersize
' Else
' Shifter.Close()
' End If
' If Colour_Picker.Visible = True Then
' Colour_Picker.titlebar.BackColor = titlebarcolour
' Colour_Picker.pgtoplcorner.BackColor = titlebarleftcornercolour
' Colour_Picker.pgtoprcorner.BackColor = titlebarrightcornercolour
' Colour_Picker.pgleft.BackColor = windowborderleftcolour
' Colour_Picker.pgleft.BackgroundImage = skinwindowborderleft(0)
' Colour_Picker.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Colour_Picker.pgright.BackColor = windowborderrightcolour
' Colour_Picker.pgright.BackgroundImage = skinwindowborderright(0)
' Colour_Picker.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Colour_Picker.pgbottom.BackColor = windowborderbottomcolour
' Colour_Picker.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Colour_Picker.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Colour_Picker.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Colour_Picker.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Colour_Picker.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Colour_Picker.pgbottomlcorner.Height = windowbordersize
' Colour_Picker.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Colour_Picker.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Colour_Picker.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Colour_Picker.pgbottomrcorner.Height = windowbordersize
' Else
' Colour_Picker.Close()
' End If
' If infobox.Visible = True Then
' infobox.titlebar.BackColor = titlebarcolour
' infobox.pgtoplcorner.BackColor = titlebarleftcornercolour
' infobox.pgtoprcorner.BackColor = titlebarrightcornercolour
' infobox.pgleft.BackColor = windowborderleftcolour
' infobox.pgleft.BackgroundImage = skinwindowborderleft(0)
' infobox.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' infobox.pgright.BackColor = windowborderrightcolour
' infobox.pgright.BackgroundImage = skinwindowborderright(0)
' infobox.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' infobox.pgbottom.BackColor = windowborderbottomcolour
' infobox.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' infobox.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' infobox.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' infobox.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' infobox.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' infobox.pgbottomlcorner.Height = windowbordersize
' infobox.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' infobox.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' infobox.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' infobox.pgbottomrcorner.Height = windowbordersize
' Else
' infobox.Close()
' End If
' If Pong.Visible = True Then
' Pong.titlebar.BackColor = titlebarcolour
' Pong.pgtoplcorner.BackColor = titlebarleftcornercolour
' Pong.pgtoprcorner.BackColor = titlebarrightcornercolour
' Pong.pgleft.BackColor = windowborderleftcolour
' Pong.pgleft.BackgroundImage = skinwindowborderleft(0)
' Pong.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Pong.pgright.BackColor = windowborderrightcolour
' Pong.pgright.BackgroundImage = skinwindowborderright(0)
' Pong.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Pong.pgbottom.BackColor = windowborderbottomcolour
' Pong.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Pong.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Pong.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Pong.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Pong.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Pong.pgbottomlcorner.Height = windowbordersize
' Pong.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Pong.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Pong.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Pong.pgbottomrcorner.Height = windowbordersize
' Else
' Pong.Close()
' End If
' If File_Skimmer.Visible = True Then
' File_Skimmer.titlebar.BackColor = titlebarcolour
' File_Skimmer.pgtoplcorner.BackColor = titlebarleftcornercolour
' File_Skimmer.pgtoprcorner.BackColor = titlebarrightcornercolour
' File_Skimmer.pgleft.BackColor = windowborderleftcolour
' File_Skimmer.pgleft.BackgroundImage = skinwindowborderleft(0)
' File_Skimmer.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' File_Skimmer.pgright.BackColor = windowborderrightcolour
' File_Skimmer.pgright.BackgroundImage = skinwindowborderright(0)
' File_Skimmer.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' File_Skimmer.pgbottom.BackColor = windowborderbottomcolour
' File_Skimmer.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' File_Skimmer.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' File_Skimmer.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' File_Skimmer.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' File_Skimmer.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' File_Skimmer.pgbottomlcorner.Height = windowbordersize
' File_Skimmer.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' File_Skimmer.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' File_Skimmer.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' File_Skimmer.pgbottomrcorner.Height = windowbordersize
' Else
' File_Skimmer.Close()
' End If
' If TextPad.Visible = True Then
' TextPad.titlebar.BackColor = titlebarcolour
' TextPad.pgtoplcorner.BackColor = titlebarleftcornercolour
' TextPad.pgtoprcorner.BackColor = titlebarrightcornercolour
' TextPad.pgleft.BackColor = windowborderleftcolour
' TextPad.pgleft.BackgroundImage = skinwindowborderleft(0)
' TextPad.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' TextPad.pgright.BackColor = windowborderrightcolour
' TextPad.pgright.BackgroundImage = skinwindowborderright(0)
' TextPad.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' TextPad.pgbottom.BackColor = windowborderbottomcolour
' TextPad.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' TextPad.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' TextPad.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' TextPad.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' TextPad.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' TextPad.pgbottomlcorner.Height = windowbordersize
' TextPad.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' TextPad.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' TextPad.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' TextPad.pgbottomrcorner.Height = windowbordersize
' Else
' TextPad.Close()
' End If
' If File_Opener.Visible = True Then
' File_Opener.titlebar.BackColor = titlebarcolour
' File_Opener.pgtoplcorner.BackColor = titlebarleftcornercolour
' File_Opener.pgtoprcorner.BackColor = titlebarrightcornercolour
' File_Opener.pgleft.BackColor = windowborderleftcolour
' File_Opener.pgleft.BackgroundImage = skinwindowborderleft(0)
' File_Opener.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' File_Opener.pgright.BackColor = windowborderrightcolour
' File_Opener.pgright.BackgroundImage = skinwindowborderright(0)
' File_Opener.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' File_Opener.pgbottom.BackColor = windowborderbottomcolour
' File_Opener.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' File_Opener.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' File_Opener.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' File_Opener.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' File_Opener.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' File_Opener.pgbottomlcorner.Height = windowbordersize
' File_Opener.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' File_Opener.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' File_Opener.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' File_Opener.pgbottomrcorner.Height = windowbordersize
' Else
' File_Opener.Close()
' End If
' If File_Saver.Visible = True Then
' File_Saver.titlebar.BackColor = titlebarcolour
' File_Saver.pgtoplcorner.BackColor = titlebarleftcornercolour
' File_Saver.pgtoprcorner.BackColor = titlebarrightcornercolour
' File_Saver.pgleft.BackColor = windowborderleftcolour
' File_Saver.pgleft.BackgroundImage = skinwindowborderleft(0)
' File_Saver.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' File_Saver.pgright.BackColor = windowborderrightcolour
' File_Saver.pgright.BackgroundImage = skinwindowborderright(0)
' File_Saver.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' File_Saver.pgbottom.BackColor = windowborderbottomcolour
' File_Saver.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' File_Saver.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' File_Saver.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' File_Saver.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' File_Saver.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' File_Saver.pgbottomlcorner.Height = windowbordersize
' File_Saver.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' File_Saver.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' File_Saver.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' File_Saver.pgbottomrcorner.Height = windowbordersize
' Else
' File_Saver.Close()
' End If
' If Graphic_Picker.Visible = True Then
' Graphic_Picker.titlebar.BackColor = titlebarcolour
' Graphic_Picker.pgtoplcorner.BackColor = titlebarleftcornercolour
' Graphic_Picker.pgtoprcorner.BackColor = titlebarrightcornercolour
' Graphic_Picker.pgleft.BackColor = windowborderleftcolour
' Graphic_Picker.pgleft.BackgroundImage = skinwindowborderleft(0)
' Graphic_Picker.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Graphic_Picker.pgright.BackColor = windowborderrightcolour
' Graphic_Picker.pgright.BackgroundImage = skinwindowborderright(0)
' Graphic_Picker.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Graphic_Picker.pgbottom.BackColor = windowborderbottomcolour
' Graphic_Picker.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Graphic_Picker.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Graphic_Picker.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Graphic_Picker.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Graphic_Picker.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Graphic_Picker.pgbottomlcorner.Height = windowbordersize
' Graphic_Picker.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Graphic_Picker.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Graphic_Picker.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Graphic_Picker.pgbottomrcorner.Height = windowbordersize
' Else
' Graphic_Picker.Close()
' End If
' If Skin_Loader.Visible = True Then
' Skin_Loader.titlebar.BackColor = titlebarcolour
' Skin_Loader.pgtoplcorner.BackColor = titlebarleftcornercolour
' Skin_Loader.pgtoprcorner.BackColor = titlebarrightcornercolour
' Skin_Loader.pgleft.BackColor = windowborderleftcolour
' Skin_Loader.pgleft.BackgroundImage = skinwindowborderleft(0)
' Skin_Loader.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Skin_Loader.pgright.BackColor = windowborderrightcolour
' Skin_Loader.pgright.BackgroundImage = skinwindowborderright(0)
' Skin_Loader.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Skin_Loader.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Skin_Loader.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Skin_Loader.pgbottom.BackColor = windowborderbottomcolour
' Skin_Loader.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Skin_Loader.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Skin_Loader.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Skin_Loader.pgbottomlcorner.Height = windowbordersize
' Skin_Loader.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Skin_Loader.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Skin_Loader.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Skin_Loader.pgbottomrcorner.Height = windowbordersize
' Else
' Skin_Loader.Close()
' End If
' If ArtPad.Visible = True Then
' ArtPad.titlebar.BackColor = titlebarcolour
' ArtPad.pgtoplcorner.BackColor = titlebarleftcornercolour
' ArtPad.pgtoprcorner.BackColor = titlebarrightcornercolour
' ArtPad.pgleft.BackColor = windowborderleftcolour
' ArtPad.pgleft.BackgroundImage = skinwindowborderleft(0)
' ArtPad.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' ArtPad.pgright.BackColor = windowborderrightcolour
' ArtPad.pgright.BackgroundImage = skinwindowborderright(0)
' ArtPad.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' ArtPad.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' ArtPad.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' ArtPad.pgbottom.BackColor = windowborderbottomcolour
' ArtPad.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' ArtPad.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' ArtPad.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' ArtPad.pgbottomlcorner.Height = windowbordersize
' ArtPad.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' ArtPad.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' ArtPad.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' ArtPad.pgbottomrcorner.Height = windowbordersize
' Else
' ArtPad.Close()
' End If
' If Calculator.Visible = True Then
' Calculator.titlebar.BackColor = titlebarcolour
' Calculator.pgtoplcorner.BackColor = titlebarleftcornercolour
' Calculator.pgtoprcorner.BackColor = titlebarrightcornercolour
' Calculator.pgleft.BackColor = windowborderleftcolour
' Calculator.pgleft.BackgroundImage = skinwindowborderleft(0)
' Calculator.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Calculator.pgright.BackColor = windowborderrightcolour
' Calculator.pgright.BackgroundImage = skinwindowborderright(0)
' Calculator.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Calculator.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Calculator.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Calculator.pgbottom.BackColor = windowborderbottomcolour
' Calculator.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Calculator.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Calculator.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Calculator.pgbottomlcorner.Height = windowbordersize
' Calculator.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Calculator.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Calculator.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Calculator.pgbottomrcorner.Height = windowbordersize
' Else
' Calculator.Close()
' End If
' If Audio_Player.Visible = True Then
' Audio_Player.titlebar.BackColor = titlebarcolour
' Audio_Player.pgtoplcorner.BackColor = titlebarleftcornercolour
' Audio_Player.pgtoprcorner.BackColor = titlebarrightcornercolour
' Audio_Player.pgleft.BackColor = windowborderleftcolour
' Audio_Player.pgleft.BackgroundImage = skinwindowborderleft(0)
' Audio_Player.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Audio_Player.pgright.BackColor = windowborderrightcolour
' Audio_Player.pgright.BackgroundImage = skinwindowborderright(0)
' Audio_Player.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Audio_Player.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Audio_Player.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Audio_Player.pgbottom.BackColor = windowborderbottomcolour
' Audio_Player.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Audio_Player.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Audio_Player.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Audio_Player.pgbottomlcorner.Height = windowbordersize
' Audio_Player.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Audio_Player.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Audio_Player.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Audio_Player.pgbottomrcorner.Height = windowbordersize
' Else
' Audio_Player.Close()
' End If
' If Web_Browser.Visible = True Then
' Web_Browser.titlebar.BackColor = titlebarcolour
' Web_Browser.pgtoplcorner.BackColor = titlebarleftcornercolour
' Web_Browser.pgtoprcorner.BackColor = titlebarrightcornercolour
' Web_Browser.pgleft.BackColor = windowborderleftcolour
' Web_Browser.pgleft.BackgroundImage = skinwindowborderleft(0)
' Web_Browser.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Web_Browser.pgright.BackColor = windowborderrightcolour
' Web_Browser.pgright.BackgroundImage = skinwindowborderright(0)
' Web_Browser.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Web_Browser.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Web_Browser.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Web_Browser.pgbottom.BackColor = windowborderbottomcolour
' Web_Browser.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Web_Browser.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Web_Browser.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Web_Browser.pgbottomlcorner.Height = windowbordersize
' Web_Browser.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Web_Browser.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Web_Browser.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Web_Browser.pgbottomrcorner.Height = windowbordersize
' Else
' Web_Browser.Close()
' End If
' If Video_Player.Visible = True Then
' Video_Player.titlebar.BackColor = titlebarcolour
' Video_Player.pgtoplcorner.BackColor = titlebarleftcornercolour
' Video_Player.pgtoprcorner.BackColor = titlebarrightcornercolour
' Video_Player.pgleft.BackColor = windowborderleftcolour
' Video_Player.pgleft.BackgroundImage = skinwindowborderleft(0)
' Video_Player.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Video_Player.pgright.BackColor = windowborderrightcolour
' Video_Player.pgright.BackgroundImage = skinwindowborderright(0)
' Video_Player.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Video_Player.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Video_Player.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Video_Player.pgbottom.BackColor = windowborderbottomcolour
' Video_Player.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Video_Player.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Video_Player.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Video_Player.pgbottomlcorner.Height = windowbordersize
' Video_Player.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Video_Player.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Video_Player.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Video_Player.pgbottomrcorner.Height = windowbordersize
' Else
' Video_Player.Close()
' End If
' If Name_Changer.Visible = True Then
' Name_Changer.titlebar.BackColor = titlebarcolour
' Name_Changer.pgtoplcorner.BackColor = titlebarleftcornercolour
' Name_Changer.pgtoprcorner.BackColor = titlebarrightcornercolour
' Name_Changer.pgleft.BackColor = windowborderleftcolour
' Name_Changer.pgleft.BackgroundImage = skinwindowborderleft(0)
' Name_Changer.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Name_Changer.pgright.BackColor = windowborderrightcolour
' Name_Changer.pgright.BackgroundImage = skinwindowborderright(0)
' Name_Changer.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Name_Changer.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Name_Changer.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Name_Changer.pgbottom.BackColor = windowborderbottomcolour
' Name_Changer.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Name_Changer.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Name_Changer.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Name_Changer.pgbottomlcorner.Height = windowbordersize
' Name_Changer.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Name_Changer.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Name_Changer.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Name_Changer.pgbottomrcorner.Height = windowbordersize
' Else
' Name_Changer.Close()
' End If
' If Icon_Manager.Visible = True Then
' Icon_Manager.titlebar.BackColor = titlebarcolour
' Icon_Manager.pgtoplcorner.BackColor = titlebarleftcornercolour
' Icon_Manager.pgtoprcorner.BackColor = titlebarrightcornercolour
' Icon_Manager.pgleft.BackColor = windowborderleftcolour
' Icon_Manager.pgleft.BackgroundImage = skinwindowborderleft(0)
' Icon_Manager.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Icon_Manager.pgright.BackColor = windowborderrightcolour
' Icon_Manager.pgright.BackgroundImage = skinwindowborderright(0)
' Icon_Manager.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Icon_Manager.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Icon_Manager.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Icon_Manager.pgbottom.BackColor = windowborderbottomcolour
' Icon_Manager.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Icon_Manager.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Icon_Manager.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Icon_Manager.pgbottomlcorner.Height = windowbordersize
' Icon_Manager.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Icon_Manager.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Icon_Manager.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Icon_Manager.pgbottomrcorner.Height = windowbordersize
' Else
' Icon_Manager.Close()
' End If
' If Bitnote_Wallet.Visible = True Then
' Bitnote_Wallet.titlebar.BackColor = titlebarcolour
' Bitnote_Wallet.pgtoplcorner.BackColor = titlebarleftcornercolour
' Bitnote_Wallet.pgtoprcorner.BackColor = titlebarrightcornercolour
' Bitnote_Wallet.pgleft.BackColor = windowborderleftcolour
' Bitnote_Wallet.pgleft.BackgroundImage = skinwindowborderleft(0)
' Bitnote_Wallet.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Bitnote_Wallet.pgright.BackColor = windowborderrightcolour
' Bitnote_Wallet.pgright.BackgroundImage = skinwindowborderright(0)
' Bitnote_Wallet.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Bitnote_Wallet.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Bitnote_Wallet.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Bitnote_Wallet.pgbottom.BackColor = windowborderbottomcolour
' Bitnote_Wallet.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Bitnote_Wallet.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Bitnote_Wallet.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Bitnote_Wallet.pgbottomlcorner.Height = windowbordersize
' Bitnote_Wallet.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Bitnote_Wallet.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Bitnote_Wallet.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Bitnote_Wallet.pgbottomrcorner.Height = windowbordersize
' Else
' Bitnote_Wallet.Close()
' End If
' If Bitnote_Digger.Visible = True Then
' Bitnote_Digger.titlebar.BackColor = titlebarcolour
' Bitnote_Digger.pgtoplcorner.BackColor = titlebarleftcornercolour
' Bitnote_Digger.pgtoprcorner.BackColor = titlebarrightcornercolour
' Bitnote_Digger.pgleft.BackColor = windowborderleftcolour
' Bitnote_Digger.pgleft.BackgroundImage = skinwindowborderleft(0)
' Bitnote_Digger.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Bitnote_Digger.pgright.BackColor = windowborderrightcolour
' Bitnote_Digger.pgright.BackgroundImage = skinwindowborderright(0)
' Bitnote_Digger.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Bitnote_Digger.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Bitnote_Digger.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Bitnote_Digger.pgbottom.BackColor = windowborderbottomcolour
' Bitnote_Digger.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Bitnote_Digger.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Bitnote_Digger.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Bitnote_Digger.pgbottomlcorner.Height = windowbordersize
' Bitnote_Digger.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Bitnote_Digger.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Bitnote_Digger.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Bitnote_Digger.pgbottomrcorner.Height = windowbordersize
' Else
' Bitnote_Digger.Close()
' End If
' If Skinshifter.Visible = True Then
' Skinshifter.titlebar.BackColor = titlebarcolour
' Skinshifter.pgtoplcorner.BackColor = titlebarleftcornercolour
' Skinshifter.pgtoprcorner.BackColor = titlebarrightcornercolour
' Skinshifter.pgleft.BackColor = windowborderleftcolour
' Skinshifter.pgleft.BackgroundImage = skinwindowborderleft(0)
' Skinshifter.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Skinshifter.pgright.BackColor = windowborderrightcolour
' Skinshifter.pgright.BackgroundImage = skinwindowborderright(0)
' Skinshifter.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Skinshifter.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Skinshifter.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Skinshifter.pgbottom.BackColor = windowborderbottomcolour
' Skinshifter.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Skinshifter.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Skinshifter.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Skinshifter.pgbottomlcorner.Height = windowbordersize
' Skinshifter.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Skinshifter.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Skinshifter.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Skinshifter.pgbottomrcorner.Height = windowbordersize
' Else
' Skinshifter.Close()
' End If
' If Shiftnet.Visible = True Then
' Shiftnet.titlebar.BackColor = titlebarcolour
' Shiftnet.pgtoplcorner.BackColor = titlebarleftcornercolour
' Shiftnet.pgtoprcorner.BackColor = titlebarrightcornercolour
' Shiftnet.pgleft.BackColor = windowborderleftcolour
' Shiftnet.pgleft.BackgroundImage = skinwindowborderleft(0)
' Shiftnet.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Shiftnet.pgright.BackColor = windowborderrightcolour
' Shiftnet.pgright.BackgroundImage = skinwindowborderright(0)
' Shiftnet.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Shiftnet.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Shiftnet.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Shiftnet.pgbottom.BackColor = windowborderbottomcolour
' Shiftnet.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Shiftnet.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Shiftnet.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Shiftnet.pgbottomlcorner.Height = windowbordersize
' Shiftnet.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Shiftnet.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Shiftnet.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Shiftnet.pgbottomrcorner.Height = windowbordersize
' Else
' Shiftnet.Close()
' End If
' If Downloader.Visible = True Then
' Downloader.titlebar.BackColor = titlebarcolour
' Downloader.pgtoplcorner.BackColor = titlebarleftcornercolour
' Downloader.pgtoprcorner.BackColor = titlebarrightcornercolour
' Downloader.pgleft.BackColor = windowborderleftcolour
' Downloader.pgleft.BackgroundImage = skinwindowborderleft(0)
' Downloader.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Downloader.pgright.BackColor = windowborderrightcolour
' Downloader.pgright.BackgroundImage = skinwindowborderright(0)
' Downloader.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Downloader.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Downloader.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Downloader.pgbottom.BackColor = windowborderbottomcolour
' Downloader.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Downloader.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Downloader.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Downloader.pgbottomlcorner.Height = windowbordersize
' Downloader.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Downloader.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Downloader.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Downloader.pgbottomrcorner.Height = windowbordersize
' Else
' Downloader.Close()
' End If
' 'If Dodge.Visible = True Then
' ' Dodge.titlebar.BackColor = titlebarcolour
' ' Dodge.pgtoplcorner.BackColor = titlebarleftcornercolour
' ' Dodge.pgtoprcorner.BackColor = titlebarrightcornercolour
' ' Dodge.pgleft.BackColor = windowborderleftcolour
' ' Dodge.pgleft.BackgroundImage = skinwindowborderleft(0)
' ' Dodge.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' ' Dodge.pgright.BackColor = windowborderrightcolour
' ' Dodge.pgright.BackgroundImage = skinwindowborderright(0)
' ' Dodge.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' ' Dodge.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' ' Dodge.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' ' Dodge.pgbottom.BackColor = windowborderbottomcolour
' ' Dodge.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' ' Dodge.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' ' Dodge.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' ' Dodge.pgbottomlcorner.Height = windowbordersize
' ' Dodge.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' ' Dodge.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' ' Dodge.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' ' Dodge.pgbottomrcorner.Height = windowbordersize
' 'Else
' ' Dodge.Close()
' 'End If
' If Downloadmanager.Visible = True Then
' Downloadmanager.titlebar.BackColor = titlebarcolour
' Downloadmanager.pgtoplcorner.BackColor = titlebarleftcornercolour
' Downloadmanager.pgtoprcorner.BackColor = titlebarrightcornercolour
' Downloadmanager.pgleft.BackColor = windowborderleftcolour
' Downloadmanager.pgleft.BackgroundImage = skinwindowborderleft(0)
' Downloadmanager.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Downloadmanager.pgright.BackColor = windowborderrightcolour
' Downloadmanager.pgright.BackgroundImage = skinwindowborderright(0)
' Downloadmanager.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Downloadmanager.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Downloadmanager.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Downloadmanager.pgbottom.BackColor = windowborderbottomcolour
' Downloadmanager.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Downloadmanager.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Downloadmanager.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Downloadmanager.pgbottomlcorner.Height = windowbordersize
' Downloadmanager.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Downloadmanager.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Downloadmanager.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Downloadmanager.pgbottomrcorner.Height = windowbordersize
' Else
' Downloadmanager.Close()
' End If
' If Installer.Visible = True Then
' Installer.titlebar.BackColor = titlebarcolour
' Installer.pgtoplcorner.BackColor = titlebarleftcornercolour
' Installer.pgtoprcorner.BackColor = titlebarrightcornercolour
' Installer.pgleft.BackColor = windowborderleftcolour
' Installer.pgleft.BackgroundImage = skinwindowborderleft(0)
' Installer.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Installer.pgright.BackColor = windowborderrightcolour
' Installer.pgright.BackgroundImage = skinwindowborderright(0)
' Installer.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Installer.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Installer.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Installer.pgbottom.BackColor = windowborderbottomcolour
' Installer.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Installer.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Installer.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Installer.pgbottomlcorner.Height = windowbordersize
' Installer.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Installer.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Installer.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Installer.pgbottomrcorner.Height = windowbordersize
' Else
' Installer.Close()
' End If
' If Snakey.Visible = True Then
' Snakey.titlebar.BackColor = titlebarcolour
' Snakey.pgtoplcorner.BackColor = titlebarleftcornercolour
' Snakey.pgtoprcorner.BackColor = titlebarrightcornercolour
' Snakey.pgleft.BackColor = windowborderleftcolour
' Snakey.pgleft.BackgroundImage = skinwindowborderleft(0)
' Snakey.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Snakey.pgright.BackColor = windowborderrightcolour
' Snakey.pgright.BackgroundImage = skinwindowborderright(0)
' Snakey.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Snakey.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Snakey.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Snakey.pgbottom.BackColor = windowborderbottomcolour
' Snakey.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Snakey.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Snakey.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Snakey.pgbottomlcorner.Height = windowbordersize
' Snakey.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Snakey.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Snakey.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Snakey.pgbottomrcorner.Height = windowbordersize
' Else
' Snakey.Close()
' End If
' If SystemInfo.Visible = True Then
' SystemInfo.titlebar.BackColor = titlebarcolour
' SystemInfo.pgtoplcorner.BackColor = titlebarleftcornercolour
' SystemInfo.pgtoprcorner.BackColor = titlebarrightcornercolour
' SystemInfo.pgleft.BackColor = windowborderleftcolour
' SystemInfo.pgleft.BackgroundImage = skinwindowborderleft(0)
' SystemInfo.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' SystemInfo.pgright.BackColor = windowborderrightcolour
' SystemInfo.pgright.BackgroundImage = skinwindowborderright(0)
' SystemInfo.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' SystemInfo.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' SystemInfo.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' SystemInfo.pgbottom.BackColor = windowborderbottomcolour
' SystemInfo.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' SystemInfo.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' SystemInfo.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' SystemInfo.pgbottomlcorner.Height = windowbordersize
' SystemInfo.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' SystemInfo.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' SystemInfo.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' SystemInfo.pgbottomrcorner.Height = windowbordersize
' Else
' SystemInfo.Close()
' End If
' If OrcWrite.Visible = True Then
' OrcWrite.titlebar.BackColor = titlebarcolour
' OrcWrite.pgtoplcorner.BackColor = titlebarleftcornercolour
' OrcWrite.pgtoprcorner.BackColor = titlebarrightcornercolour
' OrcWrite.pgleft.BackColor = windowborderleftcolour
' OrcWrite.pgleft.BackgroundImage = skinwindowborderleft(0)
' OrcWrite.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' OrcWrite.pgright.BackColor = windowborderrightcolour
' OrcWrite.pgright.BackgroundImage = skinwindowborderright(0)
' OrcWrite.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' OrcWrite.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' OrcWrite.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' OrcWrite.pgbottom.BackColor = windowborderbottomcolour
' OrcWrite.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' OrcWrite.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' OrcWrite.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' OrcWrite.pgbottomlcorner.Height = windowbordersize
' OrcWrite.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' OrcWrite.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' OrcWrite.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' OrcWrite.pgbottomrcorner.Height = windowbordersize
' Else
' OrcWrite.Close()
' End If
' If FloodGate_Manager.Visible = True Then
' FloodGate_Manager.titlebar.BackColor = titlebarcolour
' FloodGate_Manager.pgtoplcorner.BackColor = titlebarleftcornercolour
' FloodGate_Manager.pgtoprcorner.BackColor = titlebarrightcornercolour
' FloodGate_Manager.pgleft.BackColor = windowborderleftcolour
' FloodGate_Manager.pgleft.BackgroundImage = skinwindowborderleft(0)
' FloodGate_Manager.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' FloodGate_Manager.pgright.BackColor = windowborderrightcolour
' FloodGate_Manager.pgright.BackgroundImage = skinwindowborderright(0)
' FloodGate_Manager.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' FloodGate_Manager.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' FloodGate_Manager.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' FloodGate_Manager.pgbottom.BackColor = windowborderbottomcolour
' FloodGate_Manager.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' FloodGate_Manager.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' FloodGate_Manager.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' FloodGate_Manager.pgbottomlcorner.Height = windowbordersize
' FloodGate_Manager.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' FloodGate_Manager.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' FloodGate_Manager.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' FloodGate_Manager.pgbottomrcorner.Height = windowbordersize
' Else
' FloodGate_Manager.Close()
' End If
' If VirusScanner.Visible = True Then
' VirusScanner.titlebar.BackColor = titlebarcolour
' VirusScanner.pgtoplcorner.BackColor = titlebarleftcornercolour
' VirusScanner.pgtoprcorner.BackColor = titlebarrightcornercolour
' VirusScanner.pgleft.BackColor = windowborderleftcolour
' VirusScanner.pgleft.BackgroundImage = skinwindowborderleft(0)
' VirusScanner.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' VirusScanner.pgright.BackColor = windowborderrightcolour
' VirusScanner.pgright.BackgroundImage = skinwindowborderright(0)
' VirusScanner.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' VirusScanner.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' VirusScanner.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' VirusScanner.pgbottom.BackColor = windowborderbottomcolour
' VirusScanner.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' VirusScanner.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' VirusScanner.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' VirusScanner.pgbottomlcorner.Height = windowbordersize
' VirusScanner.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' VirusScanner.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' VirusScanner.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' VirusScanner.pgbottomrcorner.Height = windowbordersize
' Else
' VirusScanner.Close()
' End If
' If template.Visible = True Then
' template.titlebar.BackColor = titlebarcolour
' template.pgtoplcorner.BackColor = titlebarleftcornercolour
' template.pgtoprcorner.BackColor = titlebarrightcornercolour
' template.pgleft.BackColor = windowborderleftcolour
' template.pgleft.BackgroundImage = skinwindowborderleft(0)
' template.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' template.pgright.BackColor = windowborderrightcolour
' template.pgright.BackgroundImage = skinwindowborderright(0)
' template.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' template.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' template.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' template.pgbottom.BackColor = windowborderbottomcolour
' template.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' template.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' template.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' template.pgbottomlcorner.Height = windowbordersize
' template.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' template.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' template.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' template.pgbottomrcorner.Height = windowbordersize
' Else
' template.Close()
' End If
' If Terminal.Visible = True Then
' Terminal.titlebar.BackColor = titlebarcolour
' Terminal.pgtoplcorner.BackColor = titlebarleftcornercolour
' Terminal.pgtoprcorner.BackColor = titlebarrightcornercolour
' Terminal.pgleft.BackColor = windowborderleftcolour
' Terminal.pgleft.BackgroundImage = skinwindowborderleft(0)
' Terminal.pgleft.BackgroundImageLayout = skinwindowborderleftstyle
' Terminal.pgright.BackColor = windowborderrightcolour
' Terminal.pgright.BackgroundImage = skinwindowborderright(0)
' Terminal.pgright.BackgroundImageLayout = skinwindowborderrightstyle
' Terminal.pgbottom.BackColor = windowborderbottomcolour
' Terminal.pgbottom.BackgroundImage = skinwindowborderbottom(0)
' Terminal.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
' Terminal.pgbottomlcorner.BackColor = windowborderbottomleftcolour
' Terminal.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
' Terminal.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
' Terminal.pgbottomlcorner.Height = windowbordersize
' Terminal.pgbottomrcorner.BackColor = windowborderbottomrightcolour
' Terminal.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
' Terminal.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
' Terminal.pgbottomrcorner.Height = windowbordersize
' Else
' Terminal.Close()
' End If
'End Sub
Public Sub setupiconprocess(ByVal location As String, ByRef imagetochange As Image)
If IO.File.Exists(ShiftOSPath + "Shiftum42\Icons\" & location & ".pic") Then
imagetochange = GetImage(ShiftOSPath + "Shiftum42\Icons\" & location & ".pic")
End If
End Sub
Public Sub setupicons()
iconmanagericondatalines = IO.File.ReadAllLines(ShiftOSPath + "Shiftum42\Icons\icondata.dat")
titlebariconsize = iconmanagericondatalines(0)
panelbuttoniconsize = iconmanagericondatalines(1)
launchericonsize = iconmanagericondatalines(2)
setupiconprocess("titlebarartpadicon", artpadicontitlebar)
setupiconprocess("titlebaraudioplayericon", audioplayericontitlebar)
setupiconprocess("titlebarcalculatoricon", calculatoricontitlebar)
setupiconprocess("titlebarclockicon", clockicontitlebar)
setupiconprocess("titlebarcolourpickericon", colourpickericontitlebar)
setupiconprocess("titlebarfileopenericon", fileopenericontitlebar)
setupiconprocess("titlebarfilesavericon", filesavericontitlebar)
setupiconprocess("titlebarfileskimmericon", fileskimmericontitlebar)
setupiconprocess("titlebargraphicpickericon", graphicpickericontitlebar)
setupiconprocess("titlebarinfoboxicon", infoboxicontitlebar)
setupiconprocess("titlebarknowledgeinputicon", knowledgeinputicontitlebar)
setupiconprocess("titlebarpongicon", pongicontitlebar)
setupiconprocess("titlebarshiftericon", shiftericontitlebar)
setupiconprocess("titlebarshiftoriumicon", shiftoriumicontitlebar)
setupiconprocess("titlebarskinloadericon", skinloadericontitlebar)
setupiconprocess("titlebarterminalicon", terminalicontitlebar)
setupiconprocess("titlebartextpadicon", textpadicontitlebar)
setupiconprocess("titlebarvideoplayericon", videoplayericontitlebar)
setupiconprocess("titlebarwebbrowsericon", webbrowsericontitlebar)
setupiconprocess("titlebarnamechangericon", namechangericontitlebar)
setupiconprocess("titlebariconmanagericon", iconmanagericontitlebar)
setupiconprocess("titlebarbitnotewalleticon", bitnotewalleticontitlebar)
setupiconprocess("titlebarbitnotediggericon", bitnotediggericontitlebar)
setupiconprocess("titlebardownloadericon", bitnotediggericontitlebar)
setupiconprocess("titlebardodgeicon", bitnotediggericontitlebar)
setupiconprocess("titlebardownloadmanagericon", bitnotediggericontitlebar)
setupiconprocess("titlebarinstallericon", bitnotediggericontitlebar)
setupiconprocess("titlebarsnakeyicon", snakeyicontitlebar)
setupiconprocess("titlebarsysinfoicon", sysinfoicontitlebar)
setupiconprocess("titlebarorcwriteicon", orcwriteicontitlebar)
setupiconprocess("titlebarfloodgateicon", floodgateicontitlebar)
setupiconprocess("titlebarmazeicon", mazeicontitlebar)
setupiconprocess("titlebarvirusscannericon", virusscannericontitlebar)
setupiconprocess("panelbuttonartpadicon", artpadiconpanelbutton)
setupiconprocess("panelbuttonaudioplayericon", audioplayericonpanelbutton)
setupiconprocess("panelbuttoncalculatoricon", calculatoriconpanelbutton)
setupiconprocess("panelbuttonclockicon", clockiconpanelbutton)
setupiconprocess("panelbuttoncolourpickericon", colourpickericonpanelbutton)
setupiconprocess("panelbuttonfileopenericon", fileopenericonpanelbutton)
setupiconprocess("panelbuttonfilesavericon", filesavericonpanelbutton)
setupiconprocess("panelbuttonfileskimmericon", fileskimmericonpanelbutton)
setupiconprocess("panelbuttongraphicpickericon", graphicpickericonpanelbutton)
setupiconprocess("panelbuttoninfoboxicon", infoboxiconpanelbutton)
setupiconprocess("panelbuttonknowledgeinputicon", knowledgeinputiconpanelbutton)
setupiconprocess("panelbuttonpongicon", pongiconpanelbutton)
setupiconprocess("panelbuttonshiftericon", shiftericonpanelbutton)
setupiconprocess("panelbuttonshiftoriumicon", shiftoriumiconpanelbutton)
setupiconprocess("panelbuttonskinloadericon", skinloadericonpanelbutton)
setupiconprocess("panelbuttonterminalicon", terminaliconpanelbutton)
setupiconprocess("panelbuttontextpadicon", textpadiconpanelbutton)
setupiconprocess("panelbuttonvideoplayericon", videoplayericonpanelbutton)
setupiconprocess("panelbuttonwebbrowsericon", webbrowsericonpanelbutton)
setupiconprocess("panelbuttonnamechangericon", namechangericonpanelbutton)
setupiconprocess("panelbuttoniconmanagericon", iconmanagericonpanelbutton)
setupiconprocess("panelbuttonbitnotewalleticon", bitnotewalleticonpanelbutton)
setupiconprocess("panelbuttonbitnotediggericon", bitnotediggericonpanelbutton)
setupiconprocess("panelbuttondownloadericon", bitnotediggericonpanelbutton)
setupiconprocess("titlebardodgeicon", bitnotediggericontitlebar)
setupiconprocess("titlebardownloadmanagericon", bitnotediggericontitlebar)
setupiconprocess("titlebarinstallericon", bitnotediggericontitlebar)
setupiconprocess("titlebarsnakeyicon", snakeyicontitlebar)
setupiconprocess("titlebarsysinfoicon", sysinfoicontitlebar)
setupiconprocess("titlebarorcwriteicon", orcwriteicontitlebar)
setupiconprocess("titlebarfloodgateicon", floodgateicontitlebar)
setupiconprocess("titlebarmazeicon", mazeicontitlebar)
setupiconprocess("titlebarvirusscannericon", virusscannericontitlebar)
setupiconprocess("launcherartpadicon", artpadiconlauncher)
setupiconprocess("launcheraudioplayericon", audioplayericonlauncher)
setupiconprocess("launchercalculatoricon", calculatoriconlauncher)
setupiconprocess("launcherclockicon", clockiconlauncher)
setupiconprocess("launchercolourpickericon", colourpickericonlauncher)
setupiconprocess("launcherfileopenericon", fileopenericonlauncher)
setupiconprocess("launcherfilesavericon", filesavericonlauncher)
setupiconprocess("launcherfileskimmericon", fileskimmericonlauncher)
setupiconprocess("launchergraphicpickericon", graphicpickericonlauncher)
setupiconprocess("launcherinfoboxicon", infoboxiconlauncher)
setupiconprocess("launcherknowledgeinputicon", knowledgeinputiconlauncher)
setupiconprocess("launcherpongicon", pongiconlauncher)
setupiconprocess("launchershiftericon", shiftericonlauncher)
setupiconprocess("launchershiftoriumicon", shiftoriumiconlauncher)
setupiconprocess("launcherskinloadericon", skinloadericonlauncher)
setupiconprocess("launcherterminalicon", terminaliconlauncher)
setupiconprocess("launchertextpadicon", textpadiconlauncher)
setupiconprocess("launchervideoplayericon", videoplayericonlauncher)
setupiconprocess("launcherwebbrowsericon", webbrowsericonlauncher)
setupiconprocess("launchernamechangericon", namechangericonlauncher)
setupiconprocess("launchericonmanagericon", iconmanagericonlauncher)
setupiconprocess("launcherbitnotewalleticon", bitnotewalleticonlauncher)
setupiconprocess("launcherbitnotediggericon", bitnotediggericonlauncher)
setupiconprocess("launcherdownloadericon", bitnotediggericonlauncher)
setupiconprocess("titlebardodgeicon", bitnotediggericontitlebar)
setupiconprocess("titlebardownloadmanagericon", bitnotediggericontitlebar)
setupiconprocess("titlebarinstallericon", bitnotediggericontitlebar)
setupiconprocess("titlebarsnakeyicon", snakeyicontitlebar)
setupiconprocess("titlebarsysinfoicon", sysinfoicontitlebar)
setupiconprocess("titlebarorcwriteicon", orcwriteicontitlebar)
setupiconprocess("titlebarfloodgateicon", floodgateicontitlebar)
setupiconprocess("titlebarmazeicon", mazeicontitlebar)
setupiconprocess("titlebarvirusscannericon", virusscannericontitlebar)
setupiconprocess("launchershutdownicon", shutdowniconlauncher)
setupiconprocess("launcherunitytoggleicon", unitytoggleiconlauncher)
End Sub
Private Sub KnowledgeInputToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnowledgeInputToolStripMenuItem.Click
closeeverything()
log = log & My.Computer.Clock.LocalTime & " User opened Knowledge Input from the app launcher" & Environment.NewLine
Knowledge_Input.Show()
Knowledge_Input.BringToFront()
End Sub
Private Sub ShiftoriumToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShiftoriumToolStripMenuItem.Click
closeeverything()
log = log & My.Computer.Clock.LocalTime & " User opened Shiftorium from the app launcher" & Environment.NewLine
Shiftorium.Show()
Shiftorium.BringToFront()
End Sub
Private Sub ClockToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClockToolStripMenuItem.Click
closeeverything()
log = log & My.Computer.Clock.LocalTime & " User opened Clock from the app launcher" & Environment.NewLine
Clock.Show()
Clock.BringToFront()
End Sub
Private Sub TerminalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TerminalToolStripMenuItem.Click
closeeverything()
log = log & My.Computer.Clock.LocalTime & " User opened Terminal from the app launcher" & Environment.NewLine
Terminal.Show()
Terminal.BringToFront()
End Sub
Private Sub CalculatorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CalculatorToolStripMenuItem.Click
closeeverything()
Calculator.Show()
Calculator.BringToFront()
End Sub
Private Sub ApplicationsToolStripMenuItem_MouseEnter(sender As Object, e As EventArgs) Handles ApplicationsToolStripMenuItem.MouseEnter
Me.Focus()
ToolStripManager.Renderer = New MyToolStripRenderer()
End Sub
Private Sub ShutdownToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShutdownToolStripMenuItem.Click
Terminal.Show()
Terminal.BringToFront()
log = log & My.Computer.Clock.LocalTime & " User Shut Down ShiftOS from the app launcher" & Environment.NewLine
shutdownshiftos()
End Sub
Private Sub clocktick_Tick(sender As Object, e As EventArgs) Handles clocktick.Tick
setclocktime()
End Sub
Private Sub setclocktime()
If boughtsplitsecondtime = True Then
paneltimetext.Text = TimeOfDay
Else
If boughtminuteaccuracytime = True Then
If Date.Now.Hour < 12 Then
paneltimetext.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM"
Else
paneltimetext.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM"
End If
Else
If boughtpmandam = True Then
If Date.Now.Hour < 12 Then
paneltimetext.Text = TimeOfDay.Hour & " AM"
Else
paneltimetext.Text = TimeOfDay.Hour - 12 & " PM"
End If
Else
If boughthourspastmidnight = True Then
paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60)
Else
If boughtminutespastmidnight = True Then
paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60)
Else
If boughtsecondspastmidnight = True Then
paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds)
End If
End If
End If
End If
End If
End If
End Sub
Private Sub ShifterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShifterToolStripMenuItem.Click
closeeverything()
log = log & My.Computer.Clock.LocalTime & " User opened Shifter from the app launcher" & Environment.NewLine
Shifter.Show()
Shifter.BringToFront()
End Sub
Private Sub PongToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PongToolStripMenuItem.Click
closeeverything()
Pong.Show()
Pong.BringToFront()
End Sub
Private Sub FileSkimmerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FileSkimmerToolStripMenuItem.Click
closeeverything()
File_Skimmer.Show()
File_Skimmer.BringToFront()
End Sub
Private Sub TextPadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TextPadToolStripMenuItem.Click
closeeverything()
TextPad.Show()
TextPad.BringToFront()
End Sub
Private Sub SkinLoaderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SkinLoaderToolStripMenuItem.Click
closeeverything()
Skin_Loader.Show()
Skin_Loader.BringToFront()
End Sub
Private Sub ArtpadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArtpadToolStripMenuItem.Click
closeeverything()
ArtPad.Show()
ArtPad.BringToFront()
End Sub
Private Sub AudioplayerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AudioplayerToolStripMenuItem.Click
closeeverything()
Audio_Player.Show()
Audio_Player.BringToFront()
End Sub
Private Sub WebBrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WebBrowserToolStripMenuItem.Click
closeeverything()
Web_Browser.Show()
Web_Browser.BringToFront()
If Web_Browser.Location.Y <= 0 Then Web_Browser.Location = New Point(Web_Browser.Location.X, Web_Browser.Location.Y + 5000)
Web_Browser.resettitlebar()
End Sub
Private Sub VideoplayerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VideoplayerToolStripMenuItem.Click
closeeverything()
Video_Player.Show()
Video_Player.BringToFront()
End Sub
Private Sub NameChangerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NameChangerToolStripMenuItem.Click
closeeverything()
Name_Changer.Show()
Name_Changer.BringToFront()
End Sub
Private Sub IconManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IconManagerToolStripMenuItem.Click
closeeverything()
Icon_Manager.Show()
Icon_Manager.BringToFront()
End Sub
Private Sub bitnotewalletToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BitnoteWalletToolStripMenuItem.Click
closeeverything()
Bitnote_Wallet.Show()
Bitnote_Wallet.BringToFront()
End Sub
Private Sub bitnotediggerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BitnoteDiggerToolStripMenuItem.Click
closeeverything()
Bitnote_Digger.Show()
Bitnote_Digger.BringToFront()
End Sub
Private Sub SkinshifterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SkinShifterToolStripMenuItem.Click
closeeverything()
Skinshifter.Show()
Skinshifter.BringToFront()
End Sub
Private Sub ShiftnetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShiftnetToolStripMenuItem.Click
closeeverything()
Shiftnet.Show()
Shiftnet.BringToFront()
End Sub
Private Sub DodgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DodgeToolStripMenuItem.Click
closeeverything()
Dodge.Show()
Dodge.BringToFront()
End Sub
Private Sub downloadmanagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles downloadmanagerToolStripMenuItem.Click
closeeverything()
Downloadmanager.Show()
Downloadmanager.BringToFront()
End Sub
Private Sub installerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InstallerToolStripMenuItem.Click
closeeverything()
Installer.Show()
Installer.BringToFront()
End Sub
Private Sub snakeyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SnakeyToolStripMenuItem.Click
closeeverything()
Snakey.Show()
Snakey.BringToFront()
End Sub
Private Sub sysinfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles sysinfoToolStripMenuItem.Click
closeeverything()
systeminfo.Show()
systeminfo.BringToFront()
End Sub
Private Sub orcwriteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles orcwriteToolStripMenuItem.Click
closeeverything()
OrcWrite.Show()
OrcWrite.BringToFront()
End Sub
Private Sub floodgateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FloodGateToolStripMenuItem.Click
closeeverything()
FloodGate_Manager.Show()
FloodGate_Manager.BringToFront()
End Sub
Private Sub mazeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MazeToolStripMenuItem.Click
closeeverything()
Labyrinth.Show()
Labyrinth.BringToFront()
End Sub
Private Sub virusscannerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VirusScannerToolStripMenuItem.Click
closeeverything()
VirusScanner.Show()
VirusScanner.BringToFront()
End Sub
Private Sub autosave_Tick(sender As Object, e As EventArgs) Handles autosave.Tick
savegame()
End Sub
Public Sub ApplicationsToolStripMenuItem_Paint(sender As Object, e As PaintEventArgs) Handles ApplicationsToolStripMenuItem.Paint
If Skins.applauncher Is Nothing Then
Else
e.Graphics.DrawImage(Skins.applauncher, 0, 0, Skins.applauncher.Width, Skins.applauncher.Height)
End If
End Sub
Public Sub minimizeprogram(ByVal whatprogram As Form, ByVal isitpong As Boolean)
If whatprogram.Location.Y > 0 Then
whatprogram.Location = New Point(whatprogram.Location.X, whatprogram.Location.Y - 5000)
If isitpong = True Then
Pong.rollupanddown()
End If
Else
whatprogram.Location = New Point(whatprogram.Location.X, whatprogram.Location.Y + 5000)
whatprogram.BringToFront()
If isitpong = True Then
Pong.rollupanddown()
End If
End If
End Sub
Private Sub pnlpanelbuttonclock_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonclock.Click, tbclockicon.Click, tbclocktext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Clock, False)
End If
End Sub
Private Sub pnlpanelbuttoncolourpicker_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoncolourpicker.Click, tbcolourpickericon.Click, tbcolourpickertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Colour_Picker, False)
End If
End Sub
Private Sub pnlpanelbuttonfileopener_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfileopener.Click, tbfileopenericon.Click, tbfileopenertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(File_Opener, False)
End If
End Sub
Private Sub pnlpanelbuttonfilesaver_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfilesaver.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(File_Saver, False)
End If
End Sub
Private Sub pnlpanelbuttonfileskimmer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfileskimmer.Click, tbfileskimmericon.Click, tbfileskimmertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(File_Skimmer, False)
End If
End Sub
Private Sub pnlpanelbuttongraphicpicker_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttongraphicpicker.Click, tbgraphicpickericon.Click, tbgraphicpickertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Graphic_Picker, False)
End If
End Sub
Private Sub pnlpanelbuttoninfobox_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoninfobox.Click, tbinfoboxicon.Click, tbinfoboxtext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(infobox, False)
End If
End Sub
Private Sub pnlpanelbuttonknowledgeinput_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonknowledgeinput.Click, tbknowledgeinputicon.Click, tbknowledgeinputtext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Knowledge_Input, False)
End If
End Sub
Private Sub pnlpanelbuttonpong_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonpong.Click, tbpongicon.Click, tbpongtext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Pong, True)
End If
End Sub
Private Sub pnlpanelbuttonshifter_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshifter.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Shifter, False)
End If
End Sub
Private Sub pnlpanelbuttonshiftorium_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshiftorium.Click, tbshiftoriumicon.Click, tbshiftoriumtext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Shiftorium, False)
End If
End Sub
Private Sub pnlpanelbuttonskinloader_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonskinloader.Click, tbskinloadericon.Click, tbskinloadertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Skin_Loader, False)
End If
End Sub
Private Sub pnlpanelbuttonterminal_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonterminal.Click, tbterminalicon.Click, tbterminaltext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Terminal, False)
End If
End Sub
Private Sub pnlpanelbuttontextpad_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttontextpad.Click, tbtextpadicon.Click, tbtextpadtext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(TextPad, False)
End If
End Sub
Private Sub pnlpanelbuttonartpad_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonartpad.Click, tbartpadicon.Click, tbartpadtext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(ArtPad, False)
End If
End Sub
Private Sub pnlpanelbuttoncalculator_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoncalculator.Click, tbcalculatoricon.Click, tbcalculatortext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Calculator, False)
End If
End Sub
Private Sub pnlpanelbuttonaudioplayer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonaudioplayer.Click, tbaudioplayericon.Click, tbaudioplayertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Audio_Player, False)
End If
End Sub
Private Sub pnlpanelbuttonwebbrowser_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonwebbrowser.Click, tbwebbrowsericon.Click, tbwebbrowsertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Web_Browser, False)
End If
End Sub
Private Sub pnlpanelbuttonvideoplayer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonvideoplayer.Click, tbvideoplayericon.Click, tbvideoplayertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Video_Player, False)
End If
End Sub
Private Sub pnlpanelbuttonnamechanger_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonnamechanger.Click, tbnamechangericon.Click, tbnamechangertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Name_Changer, False)
End If
End Sub
Private Sub pnlpanelbuttoniconmanager_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoniconmanager.Click, tbiconmanagericon.Click, tbiconmanagertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Icon_Manager, False)
End If
End Sub
Private Sub pnlpanelbuttonbitnotewallet_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonbitnotewallet.Click, tbbitnotewalleticon.Click, tbbitnotewallettext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Bitnote_Wallet, False)
End If
End Sub
Private Sub pnlpanelbuttonbitnotedigger_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonbitnotedigger.Click, tbbitnotediggericon.Click, tbbitnotediggertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Bitnote_Digger, False)
End If
End Sub
Private Sub pnlpanelbuttonskinshifter_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonskinshifter.Click, tbskinshiftericon.Click, tbskinshiftertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Skinshifter, False)
End If
End Sub
Private Sub pnlpanelbuttonShiftnet_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshiftnet.Click, tbshiftneticon.Click, tbshiftnettext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Shiftnet, False)
End If
End Sub
Private Sub pnlpanelbuttonDownloader_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttondownloader.Click, tbdownloadericon.Click, tbdownloadertext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Downloader, False)
End If
End Sub
Private Sub pnlpanelbuttondodge_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttondodge.Click, tbdodgeicon.Click, tbdodgetext.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Dodge, False)
End If
End Sub
Private Sub pnlpanelbuttondownloadmanager_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttondownloadmanager.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Downloadmanager, False)
End If
End Sub
Private Sub pnlpanelbuttoninstaller_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoninstaller.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Installer, False)
End If
End Sub
Private Sub pnl_panelbuttonsnakey_Click(sender As Object, e As EventArgs) Handles pnl_panelbuttonsnakey.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Snakey, False)
End If
End Sub
Private Sub pnlpanelbuttonsysinfo_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonsysinfo.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(systeminfo, False)
End If
End Sub
Private Sub pnl_panelbuttonorcwrite_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonorcwrite.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(OrcWrite, False)
End If
End Sub
Private Sub pnl_panelbuttonfloodgate_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfloodgate.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(FloodGate_Manager, False)
End If
End Sub
Private Sub pnl_panelbuttonmaze_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonmaze.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(Labyrinth, False)
End If
End Sub
Private Sub pnl_panelbuttonvirusscanner_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonvirusscanner.Click
If boughtusefulpanelbuttons = True Then
minimizeprogram(VirusScanner, False)
End If
End Sub
Private Sub setpanelbuttonappearnce(label As Label, pictureBox As PictureBox, label1 As Label, p4 As Boolean)
Throw New NotImplementedException
End Sub
Private Sub UnityToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnityToolStripMenuItem.Click
If boughtunitymodetoggle = True Then
If unitymode = False Then
unitymode = True
setupdesktop()
Else
unitymode = False
setupdesktop()
End If
End If
End Sub
Public Sub logit(msg As String)
log = log & ControlChars.NewLine & msg
End Sub
#End Region
#Region "Auto-Generated Code"
'Don't use the toolkit
#End Region
#Region "DetectCrashes"
Private Sub nocheat_Tick(sender As Object, e As EventArgs) Handles nocheat.Tick
FindProc()
End Sub
#End Region
' disabled for release (Completely unfinished feature)
'Private Sub Button1_Click_1(sender As Object, e As EventArgs) handles button1.click
' STML_Test.Show()
' Me.BackgroundImage = Skins.applauncher
'End Sub
Public Sub refreshIcons()
desktopicons.Items.Clear()
desktopicons.LargeImageList = File_Skimmer.ImageList1
desktopicons.SmallImageList = File_Skimmer.ImageList1
Dim dir As New IO.DirectoryInfo("C:\ShiftOS\Home\Desktop")
Dim files As IO.FileInfo() = dir.GetFiles()
Dim file As IO.FileInfo
Dim folders As IO.DirectoryInfo() = dir.GetDirectories()
Dim folder As IO.DirectoryInfo
Dim filetype As Integer
For Each folder In folders
Dim Str(3) As String
Str(0) = folder.Name
Str(1) = folder.LastAccessTime
Str(2) = "Directory"
Dim folderIcon As New ListViewItem
folderIcon.Text = Str(0)
folderIcon.Tag = folder.FullName
folderIcon.SubItems.Add(Str(1))
folderIcon.SubItems.Add(Str(2))
folderIcon.ImageIndex = 0
desktopicons.Items.Add(folderIcon)
Next
For Each file In files
Dim filename As String = file.Name
Dim fileex As String = file.Extension
Dim program As String
Dim item As New ListViewItem
item.Text = filename
item.Tag = file.FullName
item.SubItems.Add(file.LastWriteTime)
filetype = File_Skimmer.getExType(fileex)(0)
program = File_Skimmer.getExType(fileex)(1)
item.SubItems.Add(program)
item.ImageIndex = filetype
desktopicons.Items.Add(item)
Next
End Sub
Private Sub ClickDesktopIcon(sender As Object, e As EventArgs) Handles desktopicons.DoubleClick
If desktopicons.SelectedItems.Count > 0 Then
Dim Path As String = desktopicons.SelectedItems(0).Tag
File_Skimmer.OpenFile(Path)
End If
End Sub
Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
infobox.title = "Desktop++ - About"
infobox.textinfo = My.Resources.DesktopPlusPlusAbout
infobox.resizeAndLoad(infobox.Width, 325) 'Resizes Infobox because if not, the full text for the message is cut off.
End Sub
Private Sub IconViewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IconViewToolStripMenuItem.Click
desktopicons.View = View.LargeIcon
refreshIcons()
End Sub
Private Sub TileViewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TileViewToolStripMenuItem.Click
desktopicons.View = View.SmallIcon
desktopicons.SmallImageList = File_Skimmer.ImageList1
refreshIcons()
End Sub
Public Sub makefolder()
My.Computer.FileSystem.CreateDirectory("C:/ShiftOS/Home/Desktop/" & infobox.txtuserinput.Text)
refreshIcons()
infobox.Close()
End Sub
Private Sub FolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FolderToolStripMenuItem.Click
infobox.title = "Create New Folder"
infobox.textinfo = "What shall the name of your folder be?"
infobox.txtuserinput.Visible = True
infobox.state = "makingdesktopfolder"
infobox.Show()
End Sub
Private Sub desktopicons_SelectedIndexChanged(sender As Object, e As EventArgs) Handles desktopicons.SelectedIndexChanged
End Sub
Private Sub NewSkin_Click(sender As Object, e As EventArgs) Handles NewSkin.Click
infobox.title = "Skin Loader"
infobox.textinfo = "What should the name of your skin be?"
infobox.state = "generatingskin"
infobox.txtuserinput.Visible = True
infobox.Show()
End Sub
Private Sub SystemInformationReportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SystemInformationReportToolStripMenuItem.Click
infobox.title = "System Information Dump"
infobox.textinfo = "Please enter the name of the dump file."
infobox.state = "generatingdump"
infobox.txtuserinput.Visible = True
infobox.Show()
End Sub
Private Sub TextDocumentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TextDocumentToolStripMenuItem.Click
infobox.title = "New Text Document"
infobox.textinfo = "What should the name of your text file be?"
infobox.state = "newtextdocondesktop"
infobox.txtuserinput.Visible = True
infobox.Show()
End Sub
Public Sub generateShortCut(Name As String, relayPath As String)
Dim sw As New IO.StreamWriter("C:/ShiftOS/Home/Desktop/" & Name & ".sct")
sw.Write(relayPath)
sw.Close()
End Sub
Private Sub ShortcutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShortcutToolStripMenuItem.Click
File_Opener.openingprogram = "shortcut"
File_Opener.lbtitletext.Text = "Create Shortcut"
File_Opener.Show()
End Sub
End Class
Reference in a new issue View git blame Copy permalink