mirror of
https://github.com/ivabus/roulette
synced 2024-11-22 16:35:09 +03:00
Initial commit, no game ready
This commit is contained in:
parent
09f0067f2f
commit
25dd62b22b
8 changed files with 240 additions and 0 deletions
5
.gitignore
vendored
Normal file
5
.gitignore
vendored
Normal file
|
@ -0,0 +1,5 @@
|
|||
bin/
|
||||
obj/
|
||||
/packages/
|
||||
riderModule.iml
|
||||
/_ReSharper.Caches/
|
13
.idea/.idea.Ruletka/.idea/.gitignore
vendored
Normal file
13
.idea/.idea.Ruletka/.idea/.gitignore
vendored
Normal file
|
@ -0,0 +1,13 @@
|
|||
# Default ignored files
|
||||
/shelf/
|
||||
/workspace.xml
|
||||
# Rider ignored files
|
||||
/contentModel.xml
|
||||
/projectSettingsUpdater.xml
|
||||
/modules.xml
|
||||
/.idea.Ruletka.iml
|
||||
# Datasource local storage ignored files
|
||||
/dataSources/
|
||||
/dataSources.local.xml
|
||||
# Editor-based HTTP Client requests
|
||||
/httpRequests/
|
4
.idea/.idea.Ruletka/.idea/encodings.xml
Normal file
4
.idea/.idea.Ruletka/.idea/encodings.xml
Normal file
|
@ -0,0 +1,4 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<project version="4">
|
||||
<component name="Encoding" addBOMForNewFiles="with BOM under Windows, with no BOM otherwise" />
|
||||
</project>
|
8
.idea/.idea.Ruletka/.idea/indexLayout.xml
Normal file
8
.idea/.idea.Ruletka/.idea/indexLayout.xml
Normal file
|
@ -0,0 +1,8 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<project version="4">
|
||||
<component name="ContentModelUserStore">
|
||||
<attachedFolders />
|
||||
<explicitIncludes />
|
||||
<explicitExcludes />
|
||||
</component>
|
||||
</project>
|
6
.idea/.idea.Ruletka/.idea/vcs.xml
Normal file
6
.idea/.idea.Ruletka/.idea/vcs.xml
Normal file
|
@ -0,0 +1,6 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<project version="4">
|
||||
<component name="VcsDirectoryMappings">
|
||||
<mapping directory="$PROJECT_DIR$" vcs="Git" />
|
||||
</component>
|
||||
</project>
|
16
Ruletka.sln
Normal file
16
Ruletka.sln
Normal file
|
@ -0,0 +1,16 @@
|
|||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Ruletka", "Ruletka\Ruletka.vbproj", "{584852C1-EB9C-46A2-976A-0C311192ACFE}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{584852C1-EB9C-46A2-976A-0C311192ACFE}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{584852C1-EB9C-46A2-976A-0C311192ACFE}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{584852C1-EB9C-46A2-976A-0C311192ACFE}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{584852C1-EB9C-46A2-976A-0C311192ACFE}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
EndGlobal
|
179
Ruletka/Program.vb
Normal file
179
Ruletka/Program.vb
Normal file
|
@ -0,0 +1,179 @@
|
|||
Imports System
|
||||
Imports System.Formats.Asn1
|
||||
|
||||
Module Program
|
||||
Dim ring(,) As Integer = {{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22,18, 29, 7, 28, 12, 35, 3, 26},
|
||||
{0, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2}}
|
||||
Dim colors() As ConsoleColor = {ConsoleColor.White, ConsoleColor.Red, ConsoleColor.Black}
|
||||
Dim ringRank0() As Integer = {0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22,18, 29, 7, 28, 12, 35, 3, 26}
|
||||
Function GetIndex(mass() As Integer, obj As Integer) As Integer
|
||||
For i = 0 To UBound(mass)
|
||||
If mass(i) = obj Then Return i
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function spinWheel() As String()
|
||||
Dim rnd As New Random
|
||||
Dim probability(36) As Double
|
||||
Dim whatDropped As New List(Of String)
|
||||
|
||||
For k = 0 To rnd.Next(1,5)
|
||||
For i = 0 To rnd.Next(1,rnd.Next(5,100))
|
||||
rnd.NextDouble()
|
||||
Next
|
||||
Next
|
||||
|
||||
Dim max As Double = 0
|
||||
Dim dropped As Integer
|
||||
|
||||
For i = 0 To 36
|
||||
probability(i) = rnd.NextDouble()
|
||||
if probability(i) > max then
|
||||
max = probability(i)
|
||||
dropped = i
|
||||
End If
|
||||
Next
|
||||
|
||||
whatDropped.Add(ring(0,dropped).ToString())
|
||||
|
||||
If ring(0, dropped) mod 2 = 0 And dropped > 0
|
||||
whatDropped.Add("EVEN")
|
||||
Else
|
||||
whatDropped.Add("ODD")
|
||||
End If
|
||||
|
||||
If ring(0, dropped) mod 3 = 0 And dropped > 0
|
||||
whatDropped.Add("3L")
|
||||
Else If ring(0, dropped) mod 3 = 1
|
||||
whatDropped.Add("2L")
|
||||
Else
|
||||
whatDropped.Add("1L")
|
||||
End If
|
||||
|
||||
If ring(1,dropped) = 1
|
||||
whatDropped.Add("RED")
|
||||
Else If ring(1,dropped) = 2
|
||||
whatDropped.Add("BLACK")
|
||||
End If
|
||||
|
||||
If ring(0, dropped) > 0 And ring(0, dropped) <= 12
|
||||
whatDropped.Add("F12")
|
||||
Else If ring(0, dropped) > 12 And ring(0, dropped) <= 24
|
||||
whatDropped.Add("S12")
|
||||
Else If ring(0, dropped) > 24
|
||||
whatDropped.Add("T12")
|
||||
End If
|
||||
|
||||
If ring(0,dropped) > 0 And ring(0,dropped) < 19
|
||||
whatDropped.Add("TO18")
|
||||
ElseIf ring(0,dropped) > 18
|
||||
whatDropped.Add("FROM18")
|
||||
End If
|
||||
|
||||
Return whatDropped.ToArray()
|
||||
End Function
|
||||
|
||||
Sub display(dropped As Integer)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Clear()
|
||||
For i = 0 To 36
|
||||
If i <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,i))
|
||||
Console.Write(ring(0,i) & " ")
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,i))
|
||||
Console.Write(ring(0, i))
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Dim temp As Integer
|
||||
Console.WriteLine()
|
||||
Console.WriteLine()
|
||||
For i = 3 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> ring(0, dropped)
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write(i & " ")
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write(i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.WriteLine()
|
||||
For i = 2 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> ring(0, dropped)
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write(i & " ")
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write(i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.WriteLine()
|
||||
For i = 1 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> ring(0, dropped)
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write(i & " ")
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write(i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Sub rules()
|
||||
Console.Clear
|
||||
Console.WriteLine("Правила:")
|
||||
Console.WriteLine("Игра представляет собой Европейскую рулетку. Игрок должен сделать ставку на определённую зону, будь то число, сектор, строка, чётность или цвет. Игрок может делать несколько ставок. Ставки вводятся в предоставленную зону через пробел.")
|
||||
Console.WriteLine("<число 0 - 36> - ставка на число (1:36).")
|
||||
Console.WriteLine("1L/2L/3L - 1/2/3 линия соответственно, снизу вверх (1:3).")
|
||||
Console.WriteLine("F12/S12/T12 - ставка на сектора от 1 по 12/от 13 по 24/от 25 по 36 соответственно (1:3).")
|
||||
Console.WriteLine("RED/BLACK - ставка на цвет (1:2).")
|
||||
Console.WriteLine("TO18/FROM18 - ставка на сектор от 1 по 18/от 19 по 36 (1:2).")
|
||||
Console.WriteLine("EVEN/ODD - чётные/нечётные (1:2).")
|
||||
Console.WriteLine("Игрок изначально получает 5000 фишек.")
|
||||
Console.WriteLine("После того, как игрок укажет, на что ставит, он указывает ОДНО количество фишек на каждую ставку.")
|
||||
Console.WriteLine("Удачи!")
|
||||
End Sub
|
||||
|
||||
Sub game()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Main()
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Randomize()
|
||||
Console.Clear()
|
||||
Console.ForegroundColor = ConsoleColor.Black
|
||||
'Console.SetWindowSize(108,100)
|
||||
Console.WriteLine("Игра Рулетка")
|
||||
Console.WriteLine("1) Начать игру")
|
||||
Console.WriteLine("2) Ознакомиться с правилами")
|
||||
Console.WriteLine("3) Выйти из игры")
|
||||
Dim n As Integer = Console.ReadLine
|
||||
Select Case n
|
||||
Case 1
|
||||
game()
|
||||
Main()
|
||||
Case 2
|
||||
rules()
|
||||
Main()
|
||||
Case 3
|
||||
Exit Sub
|
||||
End Select
|
||||
Console.ReadKey()
|
||||
End Sub
|
||||
End Module
|
9
Ruletka/Ruletka.vbproj
Normal file
9
Ruletka/Ruletka.vbproj
Normal file
|
@ -0,0 +1,9 @@
|
|||
<Project Sdk="Microsoft.NET.Sdk">
|
||||
|
||||
<PropertyGroup>
|
||||
<OutputType>Exe</OutputType>
|
||||
<RootNamespace>Ruletka</RootNamespace>
|
||||
<TargetFramework>net5.0</TargetFramework>
|
||||
</PropertyGroup>
|
||||
|
||||
</Project>
|
Loading…
Reference in a new issue