mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-22 18:02:16 +00:00
Fully functional and partially working Shifter
This commit is contained in:
EverythingWindows
parent
a594d38810
commit
9754f49567
19 changed files with 1302 additions and 37 deletions
|
|
@ -3,7 +3,7 @@
|
|||
Public Shared ComputerInfo(7) As String
|
||||
Public Shared IsFree As Boolean
|
||||
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 SaveFile As String
|
||||
Public Shared Achievement As String
|
||||
|
|
@ -92,6 +92,10 @@
|
|||
'35 = Dual Window Manager [Simple Window Manager for ShiftOS] (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)
|
||||
'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 :
|
||||
'
|
||||
|
|
@ -134,9 +138,11 @@
|
|||
'>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP))
|
||||
'
|
||||
'Chpater 2:
|
||||
'>Dual Window Manager (200 CP)
|
||||
'>>DuWM RGB Support (225 CP)
|
||||
'>>>DuWM 16 Colors Support (275 CP)
|
||||
'>>Shifter (250 CP)
|
||||
'>>Knowledge Input (275 CP)
|
||||
'>Dual Window Manager (DUWM) (200 CP)
|
||||
'>>DuWM RGB Support (DUWMRGB) (225 CP)
|
||||
'>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP)
|
||||
'>>Shifter (SHIFTER) (250 CP)
|
||||
'>>Knowledge Input (KNOWLEDGE) (275 CP)
|
||||
'>>>KI Animals (KI_ANIMALS) (300 CP)
|
||||
'>>>KI Fruits (KI_FRUITS) (300 CP)
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -141,6 +141,24 @@
|
|||
Else
|
||||
If Strings.AvailableFeature(36) = 0 Then
|
||||
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 Sub
|
||||
|
|
@ -466,6 +484,17 @@
|
|||
NewLine(ManHeader(1))
|
||||
NormalCommand()
|
||||
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
|
||||
NormalCommand()
|
||||
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
|
||||
|
|
@ -584,6 +613,24 @@
|
|||
Case "duwm"
|
||||
Shiftorium_InstallFeatures(True, "duwm", 35, 200)
|
||||
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
|
||||
NormalCommand()
|
||||
NewLine("Shiftorium: Bad command or not available")
|
||||
|
|
@ -751,6 +798,30 @@
|
|||
Case "duwm"
|
||||
Strings.AvailableFeature(35) = "1"
|
||||
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
|
||||
End Select
|
||||
If success = False Then
|
||||
|
|
|
|||
|
|
@ -55,6 +55,11 @@ Module SaveLoadSystem
|
|||
Strings.AvailableFeature(34) = "2"
|
||||
Strings.AvailableFeature(35) = "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
|
||||
|
||||
Public Sub FreeRoamMode()
|
||||
|
|
@ -105,6 +110,11 @@ Module SaveLoadSystem
|
|||
Strings.AvailableFeature(34) = "1"
|
||||
Strings.AvailableFeature(35) = "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
|
||||
|
||||
Public Sub GodMode()
|
||||
|
|
@ -153,6 +163,11 @@ Module SaveLoadSystem
|
|||
Strings.AvailableFeature(34) = "2"
|
||||
Strings.AvailableFeature(35) = "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
|
||||
|
||||
Public Sub SaveGame()
|
||||
|
|
|
|||
|
|
@ -39,12 +39,13 @@ Partial Class DuWM_Shifter_Desktop
|
|||
'
|
||||
'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.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.Location = New System.Drawing.Point(156, 91)
|
||||
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
|
||||
'
|
||||
'Label1
|
||||
|
|
|
|||
|
|
@ -3,8 +3,46 @@
|
|||
CheckAvailability()
|
||||
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
|
||||
|
||||
Private Sub cmb_DesktopColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_DesktopColor.SelectedIndexChanged
|
||||
|
|
|
|||
|
|
@ -49,6 +49,7 @@ Partial Class DuWM_Shifter
|
|||
Me.lst_Features.BackColor = System.Drawing.Color.Silver
|
||||
Me.lst_Features.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
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.FormattingEnabled = True
|
||||
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.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.Location = New System.Drawing.Point(351, 10)
|
||||
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.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.Location = New System.Drawing.Point(432, 10)
|
||||
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.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.Location = New System.Drawing.Point(513, 10)
|
||||
Me.Button1.Name = "Button1"
|
||||
|
|
|
|||
|
|
@ -8,6 +8,18 @@
|
|||
|
||||
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
|
||||
Close()
|
||||
End Sub
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
@ -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
|
||||
|
|
@ -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
|
||||
|
|
@ -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]";.
|
||||
'''</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]";.
|
||||
'''</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]";.
|
||||
'''</summary>
|
||||
Friend Shared ReadOnly Property Fruits() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Fruits", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
|
@ -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>
|
||||
|
|
@ -25,6 +25,9 @@ Partial Class Uni_KnowledgeInput
|
|||
Me.lbl_Title = New System.Windows.Forms.Label()
|
||||
Me.cmb_Category = New System.Windows.Forms.ComboBox()
|
||||
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.lst_Guessed = New System.Windows.Forms.ListBox()
|
||||
Me.lbl_Guessed = New System.Windows.Forms.Label()
|
||||
|
|
@ -44,11 +47,12 @@ Partial Class Uni_KnowledgeInput
|
|||
'cmb_Category
|
||||
'
|
||||
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.ForeColor = System.Drawing.Color.Black
|
||||
Me.cmb_Category.FormattingEnabled = True
|
||||
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.Size = New System.Drawing.Size(266, 31)
|
||||
Me.cmb_Category.TabIndex = 1
|
||||
|
|
@ -56,21 +60,54 @@ Partial Class Uni_KnowledgeInput
|
|||
'
|
||||
'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.lbl_Title)
|
||||
Me.Panel1.Controls.Add(Me.cmb_Category)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
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
|
||||
'
|
||||
'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
|
||||
'
|
||||
Me.txt_InputWord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txt_InputWord.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
|
||||
Me.txt_InputWord.Location = New System.Drawing.Point(292, 73)
|
||||
Me.txt_InputWord.Location = New System.Drawing.Point(292, 96)
|
||||
Me.txt_InputWord.Name = "txt_InputWord"
|
||||
Me.txt_InputWord.Size = New System.Drawing.Size(470, 30)
|
||||
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) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
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.FormattingEnabled = True
|
||||
Me.lst_Guessed.ItemHeight = 23
|
||||
|
|
@ -92,7 +130,7 @@ Partial Class Uni_KnowledgeInput
|
|||
'
|
||||
Me.lbl_Guessed.AutoSize = True
|
||||
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.Size = New System.Drawing.Size(132, 23)
|
||||
Me.lbl_Guessed.TabIndex = 4
|
||||
|
|
@ -129,4 +167,7 @@ Partial Class Uni_KnowledgeInput
|
|||
Friend WithEvents txt_InputWord As TextBox
|
||||
Friend WithEvents lst_Guessed As ListBox
|
||||
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
|
||||
|
|
|
|||
|
|
@ -1,15 +1,211 @@
|
|||
Public Class Uni_KnowledgeInput
|
||||
Dim PrevWidthTxt_InputWord As Integer = 470
|
||||
Imports System.IO
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
Private Sub txt_InputWord_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_InputWord.KeyDown
|
||||
Select Case e.KeyCode
|
||||
Case Keys.Enter
|
||||
lst_Guessed.Items.Add(txt_InputWord.Text)
|
||||
CheckCorrect(txt_InputWord.Text.ToLower)
|
||||
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 Sub
|
||||
End Class
|
||||
|
|
@ -23,29 +23,15 @@ Partial Class Desktop
|
|||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.DuWM = New System.Windows.Forms.Timer(Me.components)
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
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.Controls.Add(Me.Button1)
|
||||
Me.ForeColor = System.Drawing.Color.White
|
||||
Me.Name = "Desktop"
|
||||
Me.ShowIcon = False
|
||||
|
|
@ -56,7 +42,5 @@ Partial Class Desktop
|
|||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents DuWM As Timer
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@
|
|||
End If
|
||||
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)
|
||||
End Sub
|
||||
End Class
|
||||
|
|
@ -50,6 +50,7 @@
|
|||
NewWindow.ChildForm.FormBorderStyle = FormBorderStyle.None
|
||||
NewWindow.ChildForm.WindowState = FormWindowState.Normal
|
||||
NewWindow.ChildForm.Visible = False
|
||||
NewWindow.Text = ProcessName.Text
|
||||
NewWindow.DuWM_ContainerPanel.Controls.Add(NewWindow.ChildForm)
|
||||
Select Case NewWindow.ChildForm.Visible
|
||||
Case False
|
||||
|
|
|
|||
|
|
@ -117,6 +117,11 @@
|
|||
<Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb">
|
||||
<SubType>Form</SubType>
|
||||
</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">
|
||||
<DependentUpon>Uni_KnowledgeInput.vb</DependentUpon>
|
||||
</Compile>
|
||||
|
|
@ -269,6 +274,11 @@
|
|||
<EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx">
|
||||
<DependentUpon>DuWM_Shifter.vb</DependentUpon>
|
||||
</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">
|
||||
<DependentUpon>Uni_KnowledgeInput.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
|
@ -340,6 +350,9 @@
|
|||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<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="Resources\man Manuals\zip.txt" />
|
||||
<Content Include="Resources\man Manuals\textpad.txt" />
|
||||
|
|
|
|||
|
|
@ -7,9 +7,11 @@
|
|||
Case 1
|
||||
Select Case AppName
|
||||
Case "knowledge_input"
|
||||
DuWM_NewProcess(Uni_KnowledgeInput)
|
||||
If Strings.AvailableFeature(37) = 1 Then
|
||||
DuWM_NewProcess(Uni_KnowledgeInput)
|
||||
End If
|
||||
Case "shifter"
|
||||
If Strings.AvailableFeature(36) = 0 Then
|
||||
If Strings.AvailableFeature(36) = 1 Then
|
||||
DuWM_NewProcess(DuWM_Shifter)
|
||||
End If
|
||||
End Select
|
||||
|
|
|
|||
Loading…
Reference in a new issue