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

Fully functional and partially working Shifter

Browse source
This commit is contained in:
EverythingWindows 2022-11-24 21:26:45 +07:00
parent a594d38810
commit 9754f49567
19 changed files with 1302 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3,7 +3,7 @@
Public Shared ComputerInfo(7) As String Public Shared ComputerInfo(7) As String
Public Shared IsFree As Boolean Public Shared IsFree As Boolean
Public Shared OnceInfo(8) As String Public Shared OnceInfo(8) As String
Public Shared AvailableFeature(37) As String Public Shared AvailableFeature(41) As String
Public Shared CLIInterpreter As String Public Shared CLIInterpreter As String
Public Shared SaveFile As String Public Shared SaveFile As String
Public Shared Achievement As String Public Shared Achievement As String
@ -92,6 +92,10 @@
'35 = Dual Window Manager [Simple Window Manager for ShiftOS] (default : 0) '35 = Dual Window Manager [Simple Window Manager for ShiftOS] (default : 0)
'36 = Shifter [Customization program for ShiftOS, DuWM version] (default : 0) '36 = Shifter [Customization program for ShiftOS, DuWM version] (default : 0)
'37 = Knowledge Input [Guess how much things as many as you can] (default : 0) '37 = Knowledge Input [Guess how much things as many as you can] (default : 0)
'38 = KI Animals [Adds animal category into the Knowledge Input] (default : 0)
'39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0)
'40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0)
'41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0)
' '
'Features bought hierarchy : 'Features bought hierarchy :
' '
@ -134,9 +138,11 @@
'>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP)) '>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP))
' '
'Chpater 2: 'Chpater 2:
'>Dual Window Manager (200 CP) '>Dual Window Manager (DUWM) (200 CP)
'>>DuWM RGB Support (225 CP) '>>DuWM RGB Support (DUWMRGB) (225 CP)
'>>>DuWM 16 Colors Support (275 CP) '>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP)
'>>Shifter (250 CP) '>>Shifter (SHIFTER) (250 CP)
'>>Knowledge Input (275 CP) '>>Knowledge Input (KNOWLEDGE) (275 CP)
'>>>KI Animals (KI_ANIMALS) (300 CP)
'>>>KI Fruits (KI_FRUITS) (300 CP)
End Class End Class

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

@ -141,6 +141,24 @@
Else Else
If Strings.AvailableFeature(36) = 0 Then If Strings.AvailableFeature(36) = 0 Then
NewLine("(shifter | 250 CP) Shifter") NewLine("(shifter | 250 CP) Shifter")
Else
If Strings.AvailableFeature(40) = 0 Then
NewLine("(duwmrgb | 225 CP) DuWM RGB Support")
Else
If Strings.AvailableFeature(41) = 0 Then
NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support")
End If
End If
End If
If Strings.AvailableFeature(37) = 0 Then
NewLine("(knowledge | 275 CP) Knowledge Input")
Else
If Strings.AvailableFeature(38) = 0 Then
NewLine("(ki_animals | 300 CP) KI Animals")
End If
If Strings.AvailableFeature(39) = 0 Then
NewLine("(ki_fruits | 300 CP) KI Fruits")
End If
End If End If
End If End If
End Sub End Sub
@ -466,6 +484,17 @@
NewLine(ManHeader(1)) NewLine(ManHeader(1))
NormalCommand() NormalCommand()
End If End If
Case "knowledge"
If Strings.AvailableFeature(37) = 0 Then
ManHeader(0) = "Knowledge Input"
ManHeader(1) = "275 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Puzzle game where you have to guess as many things as you want")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case Else Case Else
NormalCommand() NormalCommand()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@ -584,6 +613,24 @@
Case "duwm" Case "duwm"
Shiftorium_InstallFeatures(True, "duwm", 35, 200) Shiftorium_InstallFeatures(True, "duwm", 35, 200)
NormalCommand() NormalCommand()
Case "shifter"
Shiftorium_InstallFeatures(True, "shifter", 36, 250)
NormalCommand()
Case "knowledge"
Shiftorium_InstallFeatures(True, "knowledge", 37, 275)
NormalCommand()
Case "ki_animals"
Shiftorium_InstallFeatures(True, "ki_animals", 38, 300)
NormalCommand()
Case "ki_fruits"
Shiftorium_InstallFeatures(True, "ki_animals", 39, 300)
NormalCommand()
Case "duwmrgb"
Shiftorium_InstallFeatures(True, "duwmrgb", 40, 225)
NormalCommand()
Case "duwmrgb2"
Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275)
NormalCommand()
Case Else Case Else
NormalCommand() NormalCommand()
NewLine("Shiftorium: Bad command or not available") NewLine("Shiftorium: Bad command or not available")
@ -751,6 +798,30 @@
Case "duwm" Case "duwm"
Strings.AvailableFeature(35) = "1" Strings.AvailableFeature(35) = "1"
Strings.AvailableFeature(36) = "0" Strings.AvailableFeature(36) = "0"
Strings.AvailableFeature(37) = "0"
success = True
Case "shifter"
Strings.AvailableFeature(36) = "1"
Strings.AvailableFeature(40) = "0"
Strings.AvailableFeature(41) = "0"
success = True
Case "knowledge"
Strings.AvailableFeature(37) = "1"
Strings.AvailableFeature(38) = "0"
Strings.AvailableFeature(39) = "0"
success = True
Case "ki_animals"
Strings.AvailableFeature(38) = "1"
success = True
Case "ki_fruits"
Strings.AvailableFeature(39) = "1"
success = True
Case "duwmrgb"
Strings.AvailableFeature(40) = "1"
success = True
Case "duwmrgb2"
Strings.AvailableFeature(40) = "3"
Strings.AvailableFeature(41) = "1"
success = True success = True
End Select End Select
If success = False Then If success = False Then

17
ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
View file

@ -55,6 +55,11 @@ Module SaveLoadSystem
Strings.AvailableFeature(34) = "2" Strings.AvailableFeature(34) = "2"
Strings.AvailableFeature(35) = "2" Strings.AvailableFeature(35) = "2"
Strings.AvailableFeature(36) = "2" Strings.AvailableFeature(36) = "2"
Strings.AvailableFeature(37) = "2"
Strings.AvailableFeature(38) = "2"
Strings.AvailableFeature(39) = "2"
Strings.AvailableFeature(40) = "2"
Strings.AvailableFeature(41) = "2"
End Sub End Sub
Public Sub FreeRoamMode() Public Sub FreeRoamMode()
@ -105,6 +110,11 @@ Module SaveLoadSystem
Strings.AvailableFeature(34) = "1" Strings.AvailableFeature(34) = "1"
Strings.AvailableFeature(35) = "1" Strings.AvailableFeature(35) = "1"
Strings.AvailableFeature(36) = "1" Strings.AvailableFeature(36) = "1"
Strings.AvailableFeature(37) = "1"
Strings.AvailableFeature(38) = "1"
Strings.AvailableFeature(39) = "1"
Strings.AvailableFeature(40) = "3"
Strings.AvailableFeature(41) = "1"
End Sub End Sub
Public Sub GodMode() Public Sub GodMode()
@ -153,6 +163,11 @@ Module SaveLoadSystem
Strings.AvailableFeature(34) = "2" Strings.AvailableFeature(34) = "2"
Strings.AvailableFeature(35) = "2" Strings.AvailableFeature(35) = "2"
Strings.AvailableFeature(36) = "2" Strings.AvailableFeature(36) = "2"
Strings.AvailableFeature(37) = "2"
Strings.AvailableFeature(38) = "2"
Strings.AvailableFeature(39) = "2"
Strings.AvailableFeature(40) = "2"
Strings.AvailableFeature(41) = "2"
End Sub End Sub
Public Sub SaveGame() Public Sub SaveGame()
@ -171,4 +186,4 @@ Module SaveLoadSystem
Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos") Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos")
End If End If
End Sub End Sub
End Module End Module

3
ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb generated
View file

@ -39,12 +39,13 @@ Partial Class DuWM_Shifter_Desktop
' '
'cmb_DesktopColor 'cmb_DesktopColor
' '
Me.cmb_DesktopColor.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cmb_DesktopColor.Font = New System.Drawing.Font("Segoe UI", 12.0!) Me.cmb_DesktopColor.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.cmb_DesktopColor.FormattingEnabled = True Me.cmb_DesktopColor.FormattingEnabled = True
Me.cmb_DesktopColor.Items.AddRange(New Object() {"Black", "Dark Gray", "Light Gray", "Red", "Dark Red", "Green", "Light Green", "Blue", "Dark Blue", "Yellow", "Dark Yellow", "Purple", "Light Purple", "Aqua", "Light Aqua", "White"}) Me.cmb_DesktopColor.Items.AddRange(New Object() {"Black", "Dark Gray", "Light Gray", "Red", "Dark Red", "Green", "Light Green", "Blue", "Dark Blue", "Yellow", "Dark Yellow", "Purple", "Light Purple", "Aqua", "Light Aqua", "White"})
Me.cmb_DesktopColor.Location = New System.Drawing.Point(156, 91) Me.cmb_DesktopColor.Location = New System.Drawing.Point(156, 91)
Me.cmb_DesktopColor.Name = "cmb_DesktopColor" Me.cmb_DesktopColor.Name = "cmb_DesktopColor"
Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 29) Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 30)
Me.cmb_DesktopColor.TabIndex = 1 Me.cmb_DesktopColor.TabIndex = 1
' '
'Label1 'Label1

40
ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb
View file

@ -3,8 +3,46 @@
CheckAvailability() CheckAvailability()
End Sub End Sub
Private Sub CheckAvailability() Private Sub cmb_DesktopColor_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_DesktopColor.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
Dim sf As New StringFormat
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(cmb_DesktopColor.GetItemText(cmb_DesktopColor.Items(e.Index)), e.Font, b, e.Bounds, sf)
End Using
e.DrawFocusRectangle()
End Sub
Private Sub CheckAvailability()
If Strings.AvailableFeature(40) = 1 Then
cmb_DesktopColor.Items.Remove("Yellow")
cmb_DesktopColor.Items.Remove("Dark Yellow")
cmb_DesktopColor.Items.Remove("Purple")
cmb_DesktopColor.Items.Remove("Light Purple")
cmb_DesktopColor.Items.Remove("Aqua")
cmb_DesktopColor.Items.Remove("Light Aqua")
ElseIf Strings.AvailableFeature(40) = 3 Then
If Strings.AvailableFeature(41) = 1 Then
'NOTHING
Else
'NOTHING
End If
Else
cmb_DesktopColor.Items.Remove("Red")
cmb_DesktopColor.Items.Remove("Dark Red")
cmb_DesktopColor.Items.Remove("Green")
cmb_DesktopColor.Items.Remove("Light Green")
cmb_DesktopColor.Items.Remove("Blue")
cmb_DesktopColor.Items.Remove("Dark Blue")
cmb_DesktopColor.Items.Remove("Yellow")
cmb_DesktopColor.Items.Remove("Dark Yellow")
cmb_DesktopColor.Items.Remove("Purple")
cmb_DesktopColor.Items.Remove("Light Purple")
cmb_DesktopColor.Items.Remove("Aqua")
cmb_DesktopColor.Items.Remove("Light Aqua")
End If
End Sub End Sub
Private Sub cmb_DesktopColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_DesktopColor.SelectedIndexChanged Private Sub cmb_DesktopColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_DesktopColor.SelectedIndexChanged

4
ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb generated
View file

@ -49,6 +49,7 @@ Partial Class DuWM_Shifter
Me.lst_Features.BackColor = System.Drawing.Color.Silver Me.lst_Features.BackColor = System.Drawing.Color.Silver
Me.lst_Features.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lst_Features.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lst_Features.Dock = System.Windows.Forms.DockStyle.Bottom Me.lst_Features.Dock = System.Windows.Forms.DockStyle.Bottom
Me.lst_Features.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!) Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.lst_Features.FormattingEnabled = True Me.lst_Features.FormattingEnabled = True
Me.lst_Features.ItemHeight = 21 Me.lst_Features.ItemHeight = 21
@ -84,6 +85,7 @@ Partial Class DuWM_Shifter
' '
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Button3.ForeColor = System.Drawing.Color.White Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(351, 10) Me.Button3.Location = New System.Drawing.Point(351, 10)
Me.Button3.Name = "Button3" Me.Button3.Name = "Button3"
@ -96,6 +98,7 @@ Partial Class DuWM_Shifter
' '
Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Close.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.btn_Close.ForeColor = System.Drawing.Color.White Me.btn_Close.ForeColor = System.Drawing.Color.White
Me.btn_Close.Location = New System.Drawing.Point(432, 10) Me.btn_Close.Location = New System.Drawing.Point(432, 10)
Me.btn_Close.Name = "btn_Close" Me.btn_Close.Name = "btn_Close"
@ -108,6 +111,7 @@ Partial Class DuWM_Shifter
' '
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Button1.ForeColor = System.Drawing.Color.White Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(513, 10) Me.Button1.Location = New System.Drawing.Point(513, 10)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"

12
ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
View file

@ -8,6 +8,18 @@
End Sub End Sub
Private Sub lst_Features_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Features.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
Dim sf As New StringFormat
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(lst_Features.GetItemText(lst_Features.Items(e.Index)), e.Font, b, e.Bounds, sf)
End Using
e.DrawFocusRectangle()
End Sub
Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click
Close() Close()
End Sub End Sub

227
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt Normal file
View file

@ -0,0 +1,227 @@
aardvark
albatross
alligator
alpaca
ant
anteater
antelope
ape
armadillo
ass
baboon
badger
barracuda
bat
bear
beaver
bee
bison
boar
buffalo
butterfly
camel
caribou
cat
caterpillar
cow
chamois
cheetah
chicken
chimpanzee
chinchilla
chough
clam
cobra
cockroach
cod
cormorant
coyote
crab
crane
crocodile
crow
curlew
deer
dinosaur
dog
dogfish
dolphin
donkey
dotterel
dove
dragonfly
duck
dugong
dunlin
eagle
echidna
eel
eland
elephant
elephant seal
elk
emu
falcon
ferret
finch
fish
flamingo
fly
fox
frog
galago
gaur
gazelle
gerbil
giant panda
giraffe
gnat
gnu
goat
goldfinch
goldfish
goose
gorilla
goshawk
grasshopper
grouse
guanaco
guineafowl
guinea pig
gull
hamster
hare
hawk
hedgehog
heron
herring
hippopotamus
hornet
horse
human
humming bird
hyena
jackal
jaguar
jay
jellyfish
kangaroo
koala
komodo dragon
kouprey
kudu
lizard
lark
lemur
leopard
lion
llama
lobster
locust
loris
louse
lyrebird
magpie
mallard
manatee
marten
meerkat
mink
mole
monkey
moose
mosquito
mouse
mule
narwhal
newt
nightingale
octopus
okapi
opossum
oryx
ostrich
otter
owl
ox
oyster
panther
parrot
partridge
peafowl
pelican
penguin
pheasant
pig
pigeon
pony
porcupine
porpoise
prairie dog
quail
quelea
rabbit
raccoon
rail
ram
rat
raven
red deer
red panda
reindeer
rhinoceros
rook
ruff
salamander
salmon
sand dollar
sandpiper
sardine
scorpion
sea lion
sea urchin
seahorse
seal
shark
sheep
shrew
shrimp
skunk
snail
snake
spider
squid
squirrel
starling
stingray
stink bug
stork
swallow
swan
tapir
tarsier
termite
tiger
toad
trout
turkey
turtle
vicuña
viper
vulture
wallaby
walrus
wasp
water buffalo
weasel
whale
wolf
wolverine
wombat
woodcock
woodpecker
worm
wren
yak
zebra
bird

194
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt Normal file
View file

@ -0,0 +1,194 @@
afghanistan
albania
algeria
andorra
angola
antigua and barbuda
argentina
armenia
australia
austia
azerbaijan
bahamas
bahrain
bangladesh
barbados
belarus
belgium
belize
benin
bhutan
bolivia
bosnia and herzegovina
botswana
brazil
brunei
bulgraia
burkina faso
burundi
cambodia
cameroon
canada
cape verde
central african republic
chad
chile
china
colombia
comoros
democratic republic of the congo
republic of the congocosta rica
croatia
cuba
cyprus
czechia
denmark
djibouti
dominica
dominican republic
east timor
ecuador
egypt
el salvador
equatorial guinea
eritrea
estonia
eswatini
ethiopia
fiji
finland
france
gabon
gambia
georgia
germany
ghana
greece
grenada
guatemala
guinea
guinea-bissau
guyana
haiti
honduras
hungary
iceland
india
indonesia
iran
iraq
ireland
israel
italy
ivory coast
jamaica
japan
jordan
kazakhstan
kenya
kiribati
north korea
south korea
kuwait
kyrgyzstan
laos
latvia
lebanon
lesotho
liberia
libya
liechtenstein
lithunania
luxembourg
madagascar
malawi
malaysia
maldives
mali
malta
marshall islands
mauritiania
mauritius
mexico
micronesia
moldova
monaco
mongolia
montonegro
morocco
mozambique
myanmar
namibia
nauru
nepal
netherlands
new zealand
nicaragua
niger
nigeria
north macedonia
norway
oman
pakistan
palau
palestine
panama
papua new guinea
paraguay
peru
philippines
poland
portugal
qatar
romania
russia
rwanda
saint kitts and nevis
saint lucia
saint vincent and the grenadines
samoa
san marino
sao tome and principe
saudi arabia
senegal
serbia
seychelles
sierra leone
singapore
slovakia
slovenia
solomon islands
somalia
south africa
south sudan
spain
sri lanka
sudan
suriname
sweden
switzerland
syria
tajikistan
tanzania
thailand
togo
tonga
trinidad and tobago
tunisia
turkey
turkmenistan
tuvalu
uganda
ukraine
united arab emirates
united kingdom
united states
uruguay
uzbekistan
vanuatu
vatican city
venezuela
vietnam
yemen
zambia
zimbabwe

76
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt Normal file
View file

@ -0,0 +1,76 @@
apple
apricot
avocado
banana
breadfruit
bilberry
blackberry
blackcurrant
blueberry
boysenberry
cantaloupe
currant
cherry
cherimoya
chili
cloudberry
coconut
damson
date
dragonfruit
durian
elderberry
feijoa
fig
gooseberry
grape
grapefruit
guava
huckleberry
honeydew
jackfruit
jambul
jujube
kiwi fruit
kumquat
legume
lemon
lime
loquat
lychee
mango
melon
canary melon
cantaloupe
honeydew
watermelon
rock melon
nectarine
nut
orange
clementine
mandarine
tangerine
papaya
passionfruit
peach
bell pepper
pear
persimmon
physalis
plum
pineapple
pomegranate
pomelo
purple mangosteen
quince
raspberry
rambutan
redcurrant
salal berry
satsuma
star fruit
strawberry
tamarillo
tomato
ugli fruit

254
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb generated Normal file
View file

@ -0,0 +1,254 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class KnowledgeInputContent
Private Shared resourceMan As Global.System.Resources.ResourceManager
Private Shared resourceCulture As Global.System.Globalization.CultureInfo
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend Sub New()
MyBase.New
End Sub
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.KnowledgeInputContent", GetType(KnowledgeInputContent).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized string similar to aardvark
'''albatross
'''alligator
'''alpaca
'''ant
'''anteater
'''antelope
'''ape
'''armadillo
'''ass
'''baboon
'''badger
'''barracuda
'''bat
'''bear
'''beaver
'''bee
'''bison
'''boar
'''buffalo
'''butterfly
'''camel
'''caribou
'''cat
'''caterpillar
'''cow
'''chamois
'''cheetah
'''chicken
'''chimpanzee
'''chinchilla
'''chough
'''clam
'''cobra
'''cockroach
'''cod
'''cormorant
'''coyote
'''crab
'''crane
'''crocodile
'''crow
'''curlew
'''deer
'''dinosaur
'''dog
'''dogfish
'''dolphin
'''donkey
'''dotterel
'''dove
'''dragonfly
'''duck
'''dugong
'''dunlin
'''eagle
'''echidna
'''eel
'''eland
'''elephant
'''elephant seal
'''elk
'''emu ''' [rest of string was truncated]&quot;;.
'''</summary>
Friend Shared ReadOnly Property Animals() As String
Get
Return ResourceManager.GetString("Animals", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to afghanistan
'''albania
'''algeria
'''andorra
'''angola
'''antigua and barbuda
'''argentina
'''armenia
'''australia
'''austia
'''azerbaijan
'''bahamas
'''bahrain
'''bangladesh
'''barbados
'''belarus
'''belgium
'''belize
'''benin
'''bhutan
'''bolivia
'''bosnia and herzegovina
'''botswana
'''brazil
'''brunei
'''bulgraia
'''burkina faso
'''burundi
'''cambodia
'''cameroon
'''canada
'''cape verde
'''central african republic
'''chad
'''chile
'''china
'''colombia
'''comoros
'''democratic republic of the congo
'''republic of the congocosta rica
'''croatia
'''cuba
'''cyprus
'''czechia
'''denmark
'''djibou [rest of string was truncated]&quot;;.
'''</summary>
Friend Shared ReadOnly Property Countries() As String
Get
Return ResourceManager.GetString("Countries", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to apple
'''apricot
'''avocado
'''banana
'''breadfruit
'''bilberry
'''blackberry
'''blackcurrant
'''blueberry
'''boysenberry
'''cantaloupe
'''currant
'''cherry
'''cherimoya
'''chili
'''cloudberry
'''coconut
'''damson
'''date
'''dragonfruit
'''durian
'''elderberry
'''feijoa
'''fig
'''gooseberry
'''grape
'''grapefruit
'''guava
'''huckleberry
'''honeydew
'''jackfruit
'''jambul
'''jujube
'''kiwi fruit
'''kumquat
'''legume
'''lemon
'''lime
'''loquat
'''lychee
'''mango
'''melon
'''canary melon
'''cantaloupe
'''honeydew
'''watermelon
'''rock melon
'''nectarine
'''nut
'''orange
'''clementine
'''mandarine
'''tangerine
'''p [rest of string was truncated]&quot;;.
'''</summary>
Friend Shared ReadOnly Property Fruits() As String
Get
Return ResourceManager.GetString("Fruits", resourceCulture)
End Get
End Property
End Class
End Namespace

130
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx Normal file
View file

@ -0,0 +1,130 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Animals" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>animals.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="Countries" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>countries.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="Fruits" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
</root>

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

@ -25,6 +25,9 @@ Partial Class Uni_KnowledgeInput
Me.lbl_Title = New System.Windows.Forms.Label() Me.lbl_Title = New System.Windows.Forms.Label()
Me.cmb_Category = New System.Windows.Forms.ComboBox() Me.cmb_Category = New System.Windows.Forms.ComboBox()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.lbl_NextLevel = New System.Windows.Forms.Label()
Me.lbl_Level = New System.Windows.Forms.Label()
Me.lbl_TotalGuess = New System.Windows.Forms.Label()
Me.txt_InputWord = New System.Windows.Forms.TextBox() Me.txt_InputWord = New System.Windows.Forms.TextBox()
Me.lst_Guessed = New System.Windows.Forms.ListBox() Me.lst_Guessed = New System.Windows.Forms.ListBox()
Me.lbl_Guessed = New System.Windows.Forms.Label() Me.lbl_Guessed = New System.Windows.Forms.Label()
@ -44,11 +47,12 @@ Partial Class Uni_KnowledgeInput
'cmb_Category 'cmb_Category
' '
Me.cmb_Category.BackColor = System.Drawing.Color.White Me.cmb_Category.BackColor = System.Drawing.Color.White
Me.cmb_Category.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.cmb_Category.ForeColor = System.Drawing.Color.Black Me.cmb_Category.ForeColor = System.Drawing.Color.Black
Me.cmb_Category.FormattingEnabled = True Me.cmb_Category.FormattingEnabled = True
Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"}) Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"})
Me.cmb_Category.Location = New System.Drawing.Point(20, 73) Me.cmb_Category.Location = New System.Drawing.Point(20, 96)
Me.cmb_Category.Name = "cmb_Category" Me.cmb_Category.Name = "cmb_Category"
Me.cmb_Category.Size = New System.Drawing.Size(266, 31) Me.cmb_Category.Size = New System.Drawing.Size(266, 31)
Me.cmb_Category.TabIndex = 1 Me.cmb_Category.TabIndex = 1
@ -56,21 +60,54 @@ Partial Class Uni_KnowledgeInput
' '
'Panel1 'Panel1
' '
Me.Panel1.Controls.Add(Me.lbl_NextLevel)
Me.Panel1.Controls.Add(Me.lbl_Level)
Me.Panel1.Controls.Add(Me.lbl_TotalGuess)
Me.Panel1.Controls.Add(Me.txt_InputWord) Me.Panel1.Controls.Add(Me.txt_InputWord)
Me.Panel1.Controls.Add(Me.lbl_Title) Me.Panel1.Controls.Add(Me.lbl_Title)
Me.Panel1.Controls.Add(Me.cmb_Category) Me.Panel1.Controls.Add(Me.cmb_Category)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(784, 125) Me.Panel1.Size = New System.Drawing.Size(784, 143)
Me.Panel1.TabIndex = 2 Me.Panel1.TabIndex = 2
' '
'lbl_NextLevel
'
Me.lbl_NextLevel.AutoSize = True
Me.lbl_NextLevel.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.lbl_NextLevel.Location = New System.Drawing.Point(288, 55)
Me.lbl_NextLevel.Name = "lbl_NextLevel"
Me.lbl_NextLevel.Size = New System.Drawing.Size(223, 23)
Me.lbl_NextLevel.TabIndex = 3
Me.lbl_NextLevel.Text = "Words until next level ( CP) :"
'
'lbl_Level
'
Me.lbl_Level.AutoSize = True
Me.lbl_Level.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.lbl_Level.Location = New System.Drawing.Point(288, 32)
Me.lbl_Level.Name = "lbl_Level"
Me.lbl_Level.Size = New System.Drawing.Size(63, 23)
Me.lbl_Level.TabIndex = 3
Me.lbl_Level.Text = "Level 0"
'
'lbl_TotalGuess
'
Me.lbl_TotalGuess.AutoSize = True
Me.lbl_TotalGuess.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.lbl_TotalGuess.Location = New System.Drawing.Point(288, 9)
Me.lbl_TotalGuess.Name = "lbl_TotalGuess"
Me.lbl_TotalGuess.Size = New System.Drawing.Size(112, 23)
Me.lbl_TotalGuess.TabIndex = 3
Me.lbl_TotalGuess.Text = "Guessed : 0/0"
'
'txt_InputWord 'txt_InputWord
' '
Me.txt_InputWord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.txt_InputWord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt_InputWord.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.txt_InputWord.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txt_InputWord.Location = New System.Drawing.Point(292, 73) Me.txt_InputWord.Location = New System.Drawing.Point(292, 96)
Me.txt_InputWord.Name = "txt_InputWord" Me.txt_InputWord.Name = "txt_InputWord"
Me.txt_InputWord.Size = New System.Drawing.Size(470, 30) Me.txt_InputWord.Size = New System.Drawing.Size(470, 30)
Me.txt_InputWord.TabIndex = 2 Me.txt_InputWord.TabIndex = 2
@ -80,6 +117,7 @@ Partial Class Uni_KnowledgeInput
Me.lst_Guessed.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.lst_Guessed.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lst_Guessed.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.lst_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.lst_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.lst_Guessed.FormattingEnabled = True Me.lst_Guessed.FormattingEnabled = True
Me.lst_Guessed.ItemHeight = 23 Me.lst_Guessed.ItemHeight = 23
@ -92,7 +130,7 @@ Partial Class Uni_KnowledgeInput
' '
Me.lbl_Guessed.AutoSize = True Me.lbl_Guessed.AutoSize = True
Me.lbl_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.lbl_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.lbl_Guessed.Location = New System.Drawing.Point(16, 140) Me.lbl_Guessed.Location = New System.Drawing.Point(16, 146)
Me.lbl_Guessed.Name = "lbl_Guessed" Me.lbl_Guessed.Name = "lbl_Guessed"
Me.lbl_Guessed.Size = New System.Drawing.Size(132, 23) Me.lbl_Guessed.Size = New System.Drawing.Size(132, 23)
Me.lbl_Guessed.TabIndex = 4 Me.lbl_Guessed.TabIndex = 4
@ -129,4 +167,7 @@ Partial Class Uni_KnowledgeInput
Friend WithEvents txt_InputWord As TextBox Friend WithEvents txt_InputWord As TextBox
Friend WithEvents lst_Guessed As ListBox Friend WithEvents lst_Guessed As ListBox
Friend WithEvents lbl_Guessed As Label Friend WithEvents lbl_Guessed As Label
Friend WithEvents lbl_TotalGuess As Label
Friend WithEvents lbl_Level As Label
Friend WithEvents lbl_NextLevel As Label
End Class End Class

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

@ -1,15 +1,211 @@
Public Class Uni_KnowledgeInput Imports System.IO
Dim PrevWidthTxt_InputWord As Integer = 470
Public Class Uni_KnowledgeInput
Public Countries(193) As String
Public Animals(226) As String
Public Fruits(75) As String
Public TotalGuessed As Integer
Public CurrentCategory As String
Public Level As Integer
Public ForNextLevel As Integer
Public JustStarted As Boolean = True
Private Sub Uni_KnowledgeInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Uni_KnowledgeInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cmb_Category.Items.Remove("Animals") If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput") = True Then
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin") = True Then
Else
If Strings.AvailableFeature(38) = 1 Then
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin", My.Resources.KnowledgeInputContent.Animals)
End If
End If
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin") = True Then
Else
If Strings.AvailableFeature(39) = 1 Then
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits)
End If
End If
Else
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput")
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", My.Resources.KnowledgeInputContent.Countries)
End If
CurrentCategory = "Select Category"
LoadCategory()
End Sub
Private Sub lst_Guessed_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Guessed.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
Dim sf As New StringFormat
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(lst_Guessed.GetItemText(lst_Guessed.Items(e.Index)), e.Font, b, e.Bounds, sf)
End Using
e.DrawFocusRectangle()
End Sub
Private Sub cmb_Category_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_Category.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
Dim sf As New StringFormat
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(cmb_Category.GetItemText(cmb_Category.Items(e.Index)), e.Font, b, e.Bounds, sf)
End Using
e.DrawFocusRectangle()
End Sub End Sub
Private Sub txt_InputWord_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_InputWord.KeyDown Private Sub txt_InputWord_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_InputWord.KeyDown
Select Case e.KeyCode Select Case e.KeyCode
Case Keys.Enter Case Keys.Enter
lst_Guessed.Items.Add(txt_InputWord.Text) CheckCorrect(txt_InputWord.Text.ToLower)
txt_InputWord.Text = Nothing txt_InputWord.Text = Nothing
JustStarted = False
End Select
End Sub
Private Sub cmb_Category_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_Category.SelectedIndexChanged
Dim Available As Boolean = False
JustStarted = True
lbl_TotalGuess.Text = "Guessed : 0/0"
lst_Guessed.Items.Clear()
Select Case cmb_Category.SelectedItem.ToString
Case "Countries"
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin") = True Then
lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin"))
End If
Available = True
Countries = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin")
Case "Animals"
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin") = True Then
lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin"))
End If
Available = True
Animals = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin")
Case "Fruits"
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin") = True Then
lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin"))
End If
Available = True
Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin")
End Select
If Available = True Then
TotalGuessed = lst_Guessed.Items.Count
lbl_TotalGuess.Text = "Guessed : " & TotalGuessed & "/"
Select Case cmb_Category.SelectedItem.ToString
Case "Countries"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Countries.Length
Case "Animals"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
Case "Fruits"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
End Select
Level = Math.Ceiling((TotalGuessed / 10))
CheckLevel()
CurrentCategory = cmb_Category.SelectedItem.ToString
End If
End Sub
Private Sub LoadCategory()
If Strings.AvailableFeature(38) = 0 Then
cmb_Category.Items.Remove("Animals")
End If
If Strings.AvailableFeature(39) = 0 Then
cmb_Category.Items.Remove("Fruits")
End If
End Sub
Private Sub CheckLevel()
lbl_Level.Text = "Level " & Level
ForNextLevel = Math.Abs(TotalGuessed - (Level * 10))
If ForNextLevel = 0 Then
If JustStarted = False Then
ChangeCP(True, Level * 25)
End If
Level = Level + 1
lbl_Level.Text = "Level " & Level
ForNextLevel = 10
End If
lbl_NextLevel.Text = "Words until next level (" & Level * 25 & " CP) : " & ForNextLevel
End Sub
Private Sub CheckCorrect(Input As String)
Dim Correct As Boolean = False
Select Case cmb_Category.SelectedItem.ToString
Case "Countries"
Dim Lines As Integer = 0
Do
If Lines = Countries.Length Then
Exit Do
End If
If Countries(Lines) = Input Then
Countries(Lines) = "null"
Correct = True
Exit Do
Else
Lines = Lines + 1
End If
Loop
Case "Animals"
Dim Lines As Integer = 0
Do
If Lines = Animals.Length Then
Exit Do
End If
If Animals(Lines) = Input Then
Animals(Lines) = "null"
Correct = True
Exit Do
Else
Lines = Lines + 1
End If
Loop
Case "Fruits"
Dim Lines As Integer = 0
Do
If Lines = Fruits.Length Then
Exit Do
End If
If Fruits(Lines) = Input Then
Fruits(Lines) = "null"
Correct = True
Exit Do
Else
Lines = Lines + 1
End If
Loop
End Select
If Correct = True Then
lst_Guessed.Items.Add(Input)
TotalGuessed = lst_Guessed.Items.Count
lbl_TotalGuess.Text = "Guessed : " & TotalGuessed & "/"
Select Case cmb_Category.SelectedItem.ToString
Case "Countries"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Countries.Length
Case "Animals"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
Case "Fruits"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
End Select
CheckLevel()
SaveCategory()
End If
End Sub
Private Sub SaveCategory()
Select Case CurrentCategory
Case "Countries"
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", Countries)
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin", lst_Guessed.Items.Cast(Of String).ToArray)
Case "Animals"
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin", Animals)
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin", lst_Guessed.Items.Cast(Of String).ToArray)
Case "Fruits"
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", Fruits)
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin", lst_Guessed.Items.Cast(Of String).ToArray)
End Select End Select
End Sub End Sub
End Class End Class

18
ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb generated
View file

@ -23,29 +23,15 @@ Partial Class Desktop
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.Button1 = New System.Windows.Forms.Button()
Me.DuWM = New System.Windows.Forms.Timer(Me.components) Me.DuWM = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout() Me.SuspendLayout()
' '
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.Black
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(12, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "term"
Me.Button1.UseVisualStyleBackColor = False
Me.Button1.Visible = False
'
'Desktop 'Desktop
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(800, 450) Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.Button1)
Me.ForeColor = System.Drawing.Color.White Me.ForeColor = System.Drawing.Color.White
Me.Name = "Desktop" Me.Name = "Desktop"
Me.ShowIcon = False Me.ShowIcon = False
@ -56,7 +42,5 @@ Partial Class Desktop
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
Friend WithEvents Button1 As Button
Friend WithEvents DuWM As Timer Friend WithEvents DuWM As Timer
End Class End Class

2
ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb
View file

@ -10,7 +10,7 @@
End If End If
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs)
'DuWM_FirstWindowSet(Console) 'DuWM_FirstWindowSet(Console)
End Sub End Sub
End Class End Class

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

@ -50,6 +50,7 @@
NewWindow.ChildForm.FormBorderStyle = FormBorderStyle.None NewWindow.ChildForm.FormBorderStyle = FormBorderStyle.None
NewWindow.ChildForm.WindowState = FormWindowState.Normal NewWindow.ChildForm.WindowState = FormWindowState.Normal
NewWindow.ChildForm.Visible = False NewWindow.ChildForm.Visible = False
NewWindow.Text = ProcessName.Text
NewWindow.DuWM_ContainerPanel.Controls.Add(NewWindow.ChildForm) NewWindow.DuWM_ContainerPanel.Controls.Add(NewWindow.ChildForm)
Select Case NewWindow.ChildForm.Visible Select Case NewWindow.ChildForm.Visible
Case False Case False

13
ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
View file

@ -117,6 +117,11 @@
<Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb"> <Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>KnowledgeInputContent.resx</DependentUpon>
</Compile>
<Compile Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.Designer.vb"> <Compile Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.Designer.vb">
<DependentUpon>Uni_KnowledgeInput.vb</DependentUpon> <DependentUpon>Uni_KnowledgeInput.vb</DependentUpon>
</Compile> </Compile>
@ -269,6 +274,11 @@
<EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx"> <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx">
<DependentUpon>DuWM_Shifter.vb</DependentUpon> <DependentUpon>DuWM_Shifter.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>KnowledgeInputContent.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.resx"> <EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.resx">
<DependentUpon>Uni_KnowledgeInput.vb</DependentUpon> <DependentUpon>Uni_KnowledgeInput.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -340,6 +350,9 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="Resources\CurrentVersion.txt" /> <None Include="Resources\CurrentVersion.txt" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Animals.txt" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Countries.txt" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Fruits.txt" />
<Content Include="MainForms\rev.txt" /> <Content Include="MainForms\rev.txt" />
<Content Include="Resources\man Manuals\zip.txt" /> <Content Include="Resources\man Manuals\zip.txt" />
<Content Include="Resources\man Manuals\textpad.txt" /> <Content Include="Resources\man Manuals\textpad.txt" />

6
ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb
View file

@ -7,9 +7,11 @@
Case 1 Case 1
Select Case AppName Select Case AppName
Case "knowledge_input" Case "knowledge_input"
DuWM_NewProcess(Uni_KnowledgeInput) If Strings.AvailableFeature(37) = 1 Then
DuWM_NewProcess(Uni_KnowledgeInput)
End If
Case "shifter" Case "shifter"
If Strings.AvailableFeature(36) = 0 Then If Strings.AvailableFeature(36) = 1 Then
DuWM_NewProcess(DuWM_Shifter) DuWM_NewProcess(DuWM_Shifter)
End If End If
End Select End Select