API tools faq
paste
Advertisement
Larik

Untitled

Larik
May 22nd, 2019
87
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 37.94 KB | None | 0 0
raw download clone embed print report
  1. #Region " К о м м е н т а р и и "
  2.  
  3. #Region " П л а н "
  4.  
  5. '1. см. "Задачи"; +
  6. '2. Сделать выбор карт;
  7. '3. Откорректировать выбор команды;
  8. '4. Имортировать скриншоты карты;
  9. '5. Добавить кнопки и коды перемещения;
  10. '6. Добавить таймера, звуки;
  11. '7. Добавить интерфейс;
  12. '8. Добавить окончательные результаты игры;
  13. '9. Добавить оружия и возможность стрелять;
  14. '10. Добавить закупку;
  15. '11. Добавить и отладить интеллект ботов;
  16. '...
  17. 'N. Добавить режим 1х1.
  18.  
  19. #End Region
  20.  
  21. #Region " З а д а ч и "
  22.  
  23. '1. Соединить дерективы.
  24.  
  25. #End Region
  26.  
  27. #End Region   ' Комментарии
  28.  
  29.  
  30. Public Class ShooterGame   ' Действия класса "ShooterGame"
  31.  
  32.  
  33.  
  34. #Region "Declaration"   ' Объявление переменных
  35.  
  36.  
  37.  
  38. #Region "Mechanics"   ' Механика игры
  39.  
  40.  
  41.  
  42.     Dim Random As New Random   ' Случайный выбор команды
  43.  
  44.  
  45.     Dim Spawn As Integer       ' Место появления игрока (0 - Террористы, 1 - Контртеррористы)
  46.  
  47.  
  48.     Dim Position As Integer    ' Позиция игрока
  49.    Dim Camera As Integer      ' Обзор
  50.  
  51.  
  52.     Dim Lft As Integer         ' Поворот влево
  53.    Dim Rght As Integer        ' Поворот вправо
  54.  
  55.  
  56.  
  57. #End Region           ' Механика игры
  58.  
  59.  
  60. #Region "Player"   ' Профиль игрока
  61.  
  62.  
  63.  
  64.     Dim NickName As String   ' НикНейм игрока
  65.  
  66.  
  67.     Dim Money As Integer     ' Деньги
  68.  
  69.  
  70.     Dim Health As Integer    ' Здоровье
  71.    Dim Armor As Integer     ' Броня
  72.  
  73.  
  74.     Dim Weapon As Integer    ' Оружие
  75.    Dim Ammo As Integer      ' Боеприпасы
  76.  
  77.  
  78.     Dim Kill As Integer      ' Убийства соперников
  79.    Dim Death As Integer     ' Смерти игрока
  80.  
  81.  
  82.  
  83. #End Region        ' Профиль игрока
  84.  
  85.  
  86. #Region "Configuration"   ' Конфигурация игры
  87.  
  88.  
  89.  
  90.     Dim Music As Integer                    ' Музыка в игре
  91.  
  92.     Dim Sounds As Integer                   ' Звуки в игре
  93.  
  94.  
  95.     Dim SecondsLoadScreen As Integer = 60   ' Секунды загрузочного экрана
  96.  
  97.  
  98.     Dim NumberRound As Integer              ' Количество раундов
  99.  
  100.  
  101.     Dim MinutesRound As Integer             ' Минуты до конца раунда
  102.    Dim SecondsRound As Integer             ' Секунды до конца раунда
  103.  
  104.  
  105.     Dim SecondsBuy As Integer               ' Секунды до конца закупки
  106.  
  107.  
  108.     Dim SecondsBomb As Integer              ' Секунды до взрыва бомбы
  109.  
  110.  
  111.     Dim ResultRound As Integer              ' Результат раунда
  112.    Dim ResultGame As Integer               ' Результат игры
  113.  
  114.  
  115.  
  116. #End Region               ' Конфигурация игры
  117.  
  118.  
  119.  
  120. #End Region             ' Объявление переменных
  121.  
  122.  
  123.  
  124. #Region "StartActions"   ' Первоначальные действия
  125.  
  126.  
  127.  
  128.     Private Sub ShooterGame_Load _
  129.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  130.     Handles MyBase.Load   ' Действия при событии загрузки формы
  131.  
  132.  
  133.  
  134.         Me.KeyPreview = True                                                                            ' Обработка событий формой истинна
  135.  
  136.  
  137.         LoadScreenTimer.Start()                                                                         ' Запуск таймера загрузочного экрана
  138.  
  139.  
  140.  
  141.         LoadScreenBox.Hide()                                                                            ' Видимость лоадскринбокса ложна
  142.  
  143.  
  144.         LoadScreenProgressBar.Hide()                                                                    ' Видимость лоадскринпрогрессбара ложна
  145.  
  146.  
  147.         PictureBox.Hide()                                                                               ' Видимость пикчербокса ложна
  148.  
  149.         ButtonPictureBoxNewGame.Hide()                                                                  ' Видимость кнопки "Новая игра" ложна
  150.  
  151.         ButtonPictureBoxSettings.Hide()                                                                 ' Видимость кнопки "Настройки" ложна
  152.  
  153.         ButtonPictureBoxHelp.Hide()                                                                     ' Видимость кнопки "Справка" ложна
  154.  
  155.         ButtonPictureBoxExit.Hide()                                                                     ' Видимость кнопки "Выйти" ложна
  156.  
  157.  
  158.  
  159.         ButtonNewGameTerrorists.Hide()                                                                  ' Видимость кнопки "Террористы" в новой игре ложно
  160.  
  161.         ButtonNewGameCounterTerrorists.Hide()                                                           ' Видимость кнопки "Контртеррористы" в новой игре ложно
  162.  
  163.         ButtonNewGameRandom.Hide()                                                                      ' Видимость кнопки "Случайно" в новой игре ложно
  164.  
  165.         ButtonNewGameCancel.Hide()                                                                      ' Видимость кнопки "Отмена" в новой игре ложно
  166.  
  167.  
  168.         SettingsBox.Hide()                                                                              ' Видимость сеттингсбокса ложна
  169.  
  170.         ButtonSettingsBoxGame.Hide()                                                                    ' Видимость кнопки "Игра" в сеттингсбоксе ложна
  171.  
  172.         ButtonSettingsBoxMusic.Hide()                                                                   ' Видимость кнопки "Звуки" в сеттингсбоксе ложна
  173.  
  174.         PlayerNickNameText.Hide()                                                                       ' Видимость плейерникнеймтекста в сеттингбоксе ложна
  175.  
  176.         ButtonSettingsBoxMusicMusic.Hide()                                                              ' Видимость кнопки "Музыка" в "Звуки" сеттингсбокса ложна
  177.  
  178.         ButtonSettingsBoxMusicSounds.Hide()                                                             ' Видимость кнопки "Звуки" в "Звуки" сеттингсбокса ложна
  179.  
  180.         ButtonSettingsBoxOK.Hide()                                                                      ' Видимость кнопки "ОК" в сеттингсбоксе ложна
  181.  
  182.  
  183.         HelpBox.Hide()                                                                                  ' Видимость хелпбокса ложна
  184.  
  185.         ButtonHelpBoxOK.Hide()                                                                          ' Видимость кнопки "ОК" в хелпбоксе ложна
  186.  
  187.  
  188.         ExitBox.Hide()                                                                                  ' Видимость екситбокса ложна
  189.  
  190.         ButtonExitBoxYes.Hide()                                                                         ' Видимость кнопки "Да" в екситбоксе ложна
  191.  
  192.         ButtonExitBoxNo.Hide()                                                                          ' Видимость кнопки "Нет" в екситбоксе ложна
  193.  
  194.  
  195.  
  196.         PictureBox.BackgroundImage = My.Resources.PictureBoxImage1                                      ' Настройка фона пикчербокса
  197.  
  198.         ButtonPictureBoxNewGame.BackgroundImage = My.Resources.ButtonPictureBoxNewGame1                 ' Настройка фона кнопки "Новая игра" в пикчербоксе
  199.  
  200.         ButtonPictureBoxSettings.BackgroundImage = My.Resources.ButtonPictureBoxSettings1               ' Настройка фона кнопки "Настройки" в пикчербоксе
  201.  
  202.         ButtonPictureBoxHelp.BackgroundImage = My.Resources.ButtonPictureBoxHelp1                       ' Настройка фона кнопки "Справка" в пикчербоксе
  203.  
  204.         ButtonPictureBoxExit.BackgroundImage = My.Resources.ButtonPictureBoxExit1                       ' Настройка фона кнопки "Выйти" в пикчербоксе
  205.  
  206.  
  207.         ButtonNewGameTerrorists.BackgroundImage = My.Resources.ButtonNewGameTerrorists1                 ' Настройка фона кнопки "Террористы" в новой игре
  208.  
  209.         ButtonNewGameCounterTerrorists.BackgroundImage = My.Resources.ButtonNewGameCounterTerrorists1   ' Настройка фона кнопки "Контртеррористы" в новой игре
  210.  
  211.         ButtonNewGameRandom.BackgroundImage = My.Resources.ButtonNewGameRandom1                         ' Настройка фона кнопки "Случайно" в новой игре
  212.  
  213.         ButtonNewGameCancel.BackgroundImage = My.Resources.ButtonNewGameCancel1                         ' Настройка фона кнопки "Отмена" в новой игре
  214.  
  215.  
  216.         SettingsBox.BackgroundImage = My.Resources.SettingBoxImage                                      ' Настройка фона сеттингсбокса
  217.  
  218.         ButtonSettingsBoxGame.BackgroundImage = My.Resources.ButtonSettingsBoxGame1                     ' Настройка фона кнопки "Игра" в сеттингсбоксе
  219.  
  220.         ButtonSettingsBoxMusic.BackgroundImage = My.Resources.ButtonSettingsBoxMusic1                   ' Настройка фона кнопки "Звуки" в сеттингсбоксе
  221.  
  222.         ButtonSettingsBoxMusicMusic.BackgroundImage = My.Resources.buttonSettingsBoxMusicMusic1         ' Настройка фона кнопки "Музыка" в "Звуки" сеттингсбокса
  223.  
  224.         ButtonSettingsBoxMusicSounds.BackgroundImage = My.Resources.buttonSettingsBoxMusicSounds1       ' Настройка фона кнопки "Звуки" в "Звуки" сеттингсбокса
  225.  
  226.         ButtonSettingsBoxOK.BackgroundImage = My.Resources.ButtonSettingsBoxOK1                         ' Настройка фона кнопки "ОК" в сеттингсбоксе
  227.  
  228.  
  229.         HelpBox.BackgroundImage = My.Resources.HelpBoxImage                                             ' Настройка фона хелпбокса
  230.  
  231.         ButtonHelpBoxOK.BackgroundImage = My.Resources.ButtonHelpBoxOK1                                 ' Настройка фона кнопки "ОК" в хелпбоксе
  232.  
  233.  
  234.         ExitBox.Image = My.Resources.ExitBoxImage                                                       ' Настройка фона екситбокса
  235.  
  236.         ButtonExitBoxYes.BackgroundImage = My.Resources.ButtonExitBoxYes1                               ' Настройка фона кнопки "Да" в екситбоксе
  237.  
  238.         ButtonExitBoxNo.BackgroundImage = My.Resources.ButtonExitBoxNo1                                 ' Настройка фона кнопки "Нет" в екситбоксе
  239.  
  240.  
  241.  
  242.     End Sub               ' Действия при событии загрузки формы
  243.  
  244.  
  245.  
  246.     Private Sub LoadScreenTimer_Tick _
  247.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  248.     Handles LoadScreenTimer.Tick   ' Действия таймера загрузочного экрана
  249.  
  250.  
  251.  
  252.         LoadScreenBox.Show()                         ' Видимость лоадскринбокса истинна
  253.  
  254.  
  255.         LoadScreenProgressBar.Show()                 ' Видимость лоадскринпрогрессбара истинна
  256.  
  257.         LoadScreenProgressBar.Increment(1)                   ' Запуск лоадскринпрогрессбара
  258.  
  259.  
  260.         SecondsLoadScreen = SecondsLoadScreen - 1            ' Убавление секундной переменной загрузочного экрана
  261.  
  262.  
  263.  
  264.         If SecondsLoadScreen = 59 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1 ' Загрузка 1-ой заставки
  265.        If SecondsLoadScreen = 58 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  266.         If SecondsLoadScreen = 57 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  267.         If SecondsLoadScreen = 56 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  268.         If SecondsLoadScreen = 55 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  269.         If SecondsLoadScreen = 54 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  270.         If SecondsLoadScreen = 53 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  271.         If SecondsLoadScreen = 52 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  272.         If SecondsLoadScreen = 51 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  273.         If SecondsLoadScreen = 50 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  274.         If SecondsLoadScreen = 49 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  275.         If SecondsLoadScreen = 48 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  276.         If SecondsLoadScreen = 47 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  277.         If SecondsLoadScreen = 46 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  278.         If SecondsLoadScreen = 45 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  279.         If SecondsLoadScreen = 44 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  280.         If SecondsLoadScreen = 43 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  281.         If SecondsLoadScreen = 42 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  282.         If SecondsLoadScreen = 41 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  283.         If SecondsLoadScreen = 40 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  284.         If SecondsLoadScreen = 39 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  285.         If SecondsLoadScreen = 38 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  286.         If SecondsLoadScreen = 37 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  287.         If SecondsLoadScreen = 36 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  288.         If SecondsLoadScreen = 35 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  289.         If SecondsLoadScreen = 34 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  290.         If SecondsLoadScreen = 33 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  291.         If SecondsLoadScreen = 32 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  292.         If SecondsLoadScreen = 31 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1
  293.         If SecondsLoadScreen = 30 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage1 ' Загрузка 1-ой заставки
  294.  
  295.  
  296.  
  297.         If SecondsLoadScreen = 29 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2 ' Загрузка 2-ой заставки
  298.        If SecondsLoadScreen = 28 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  299.         If SecondsLoadScreen = 27 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  300.         If SecondsLoadScreen = 26 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  301.         If SecondsLoadScreen = 25 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  302.         If SecondsLoadScreen = 24 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  303.         If SecondsLoadScreen = 23 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  304.         If SecondsLoadScreen = 22 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  305.         If SecondsLoadScreen = 21 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  306.         If SecondsLoadScreen = 20 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  307.         If SecondsLoadScreen = 19 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  308.         If SecondsLoadScreen = 18 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  309.         If SecondsLoadScreen = 17 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  310.         If SecondsLoadScreen = 16 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  311.         If SecondsLoadScreen = 15 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  312.         If SecondsLoadScreen = 14 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  313.         If SecondsLoadScreen = 13 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  314.         If SecondsLoadScreen = 12 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  315.         If SecondsLoadScreen = 11 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  316.         If SecondsLoadScreen = 10 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  317.         If SecondsLoadScreen = 9 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  318.         If SecondsLoadScreen = 8 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  319.         If SecondsLoadScreen = 7 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  320.         If SecondsLoadScreen = 6 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  321.         If SecondsLoadScreen = 5 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  322.         If SecondsLoadScreen = 4 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  323.         If SecondsLoadScreen = 3 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  324.         If SecondsLoadScreen = 2 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  325.         If SecondsLoadScreen = 1 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2
  326.         If SecondsLoadScreen = 0 Then LoadScreenBox.Image = My.Resources.LoadScreenBoxImage2 ' Загрузка 2-ой заставки
  327.  
  328.  
  329.  
  330.         If SecondsLoadScreen = 0 And LoadScreenProgressBar.Value = 60 Then   ' Действия при обнулении секундной переменной загрузочного экрана и значении "100" лоадскринпрогрессбара
  331.  
  332.  
  333.             LoadScreenProgressBar.Hide()                      ' Видимость лоадскринпрогрессбара ложна
  334.  
  335.  
  336.             PictureBox.Show()                                  ' Видимость пикчербокса истинна
  337.  
  338.             PictureBox.Image = My.Resources.PictureBoxImage1           ' Настройка фона пикчербокса
  339.  
  340.             ButtonPictureBoxNewGame.Show()                     ' Видимость кнопки "Новая игра" в пикчербоксе истинна
  341.  
  342.             ButtonPictureBoxSettings.Show()                    ' Видимость кнопки "Настройки" в пикчербоксе истинна
  343.  
  344.             ButtonPictureBoxHelp.Show()                        ' Видимость кнопки "Справка" в пикчербоксе истинна
  345.  
  346.             ButtonPictureBoxExit.Show()                        ' Видимость кнопки "Выйти" в пикчербоксе истинна
  347.  
  348.  
  349.             LoadScreenBox.Hide()                              ' Видимость лоадскринбокса истинна
  350.  
  351.  
  352.             LoadScreenTimer.Stop()                                     ' Остановка таймера загрузочного экрана
  353.  
  354.  
  355.         End If                                                               ' Действия при обнулении секундной переменной загрузочного экрана и значении "100" лоадскринпрогрессбара
  356.  
  357.  
  358.  
  359.     End Sub                   ' Действия таймера загрузочного экрана
  360.  
  361.  
  362.  
  363. #End Region             ' Первоначальные действия
  364.  
  365.  
  366.  
  367. #Region "PictureBox"   ' Действия пикчербокса
  368.  
  369.  
  370.  
  371.     Private Sub ButtonPitureBoxNewGame_Click _
  372.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  373.     Handles ButtonPictureBoxNewGame.Click   ' Действия кнопки "Новая игра" в пикчербоксе
  374.  
  375.  
  376.  
  377.         ButtonNewGameTerrorists.Show()           ' Видимость кнопки "Террористы" в новой игре истинна
  378.  
  379.         ButtonNewGameCounterTerrorists.Show()    ' Видимость кнопки "Контртеррористы" в новой игре истинна
  380.  
  381.         ButtonNewGameRandom.Show()               ' Видимость кнопки "Случайно" в новой игре истинна
  382.  
  383.         ButtonNewGameCancel.Show()               ' Видимость кнопки "Отмена" в новой игре истинна
  384.  
  385.  
  386.  
  387.         PictureBox.Hide()                       ' Видимость пикчербокса ложна
  388.  
  389.  
  390.         ButtonPictureBoxNewGame.Hide()          ' Видимость кнопки "Новая игра" в пикчербоксе ложна
  391.  
  392.         ButtonPictureBoxSettings.Hide()         ' Видимость кнопки "Настройки" в пикчербоксе ложна
  393.  
  394.         ButtonPictureBoxHelp.Hide()             ' Видимость кнопки "Справка" в пикчербоксе ложна
  395.  
  396.         ButtonPictureBoxExit.Hide()             ' Видимость кнопки "Выйти" в пикчербоксе ложна
  397.  
  398.  
  399.  
  400.     End Sub                                 ' Действия кнопки "Новая игра" в пикчербоксе
  401.  
  402.  
  403.  
  404.     Private Sub ButtonPitureBoxSettings_Click _
  405.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  406.     Handles ButtonPictureBoxSettings.Click   ' Действия кнопки "Настройки" в пикчербоксе
  407.  
  408.  
  409.  
  410.         SettingsBox.Show()                ' Видимость сеттингбокса истинна
  411.  
  412.  
  413.         ButtonSettingsBoxGame.Show()      ' Видимость кнопки "Игра" в сеттингбоксе истинна
  414.  
  415.         ButtonSettingsBoxMusic.Show()     ' Видимость кнопки "Звуки" в сеттингбоксе истинна
  416.  
  417.  
  418.         PlayerNickNameText.Show()         ' Видимость плейерникнеймтекста истинна
  419.  
  420.  
  421.         ButtonSettingsBoxOK.Show()        ' Видимость кнопки "ОК" в сеттингбоксе истинна
  422.  
  423.  
  424.  
  425.         PictureBox.Hide()                 ' Видимость пикчербокса ложна
  426.  
  427.  
  428.         ButtonPictureBoxNewGame.Hide()    ' Видимость кнопки "Новая игра" в пикчербоксе ложна
  429.  
  430.         ButtonPictureBoxSettings.Hide()   ' Видимость кнопки "Настройки" в пикчербоксе ложна
  431.  
  432.         ButtonPictureBoxHelp.Hide()       ' Видимость кнопки "Справка" в пикчербоксе ложна
  433.  
  434.         ButtonPictureBoxExit.Hide()       ' Видимость кнопки "Выйти" в пикчербоксе ложна
  435.  
  436.  
  437.     End Sub                                  ' Действия кнопки "Настройки" в пикчербоксе
  438.  
  439.  
  440.  
  441.     Private Sub ButtonPictureBoxHelp_Click _
  442.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  443.     Handles ButtonPictureBoxHelp.Click   ' Действия кнопки "Справка" в пикчербоксе
  444.  
  445.  
  446.  
  447.         HelpBox.Show()                    ' Видимость хелпбокса истинна
  448.  
  449.  
  450.         ButtonHelpBoxOK.Show()            ' Видимость кнопки "ОК" в хелпбоксе истинна
  451.  
  452.  
  453.  
  454.         PictureBox.Hide()                 ' Видимость пикчербокса ложна
  455.  
  456.  
  457.         ButtonPictureBoxNewGame.Hide()    ' Видимость кнопки "Новая игра" в пикчербоксе ложна
  458.  
  459.         ButtonPictureBoxSettings.Hide()   ' Видимость кнопки "Настройки" в пикчербоксе ложна
  460.  
  461.         ButtonPictureBoxHelp.Hide()       ' Видимость кнопки "Справка" в пикчербоксе ложна
  462.  
  463.         ButtonPictureBoxExit.Hide()       ' Видимость кнопки "Выйти" в пикчербоксе ложна
  464.  
  465.  
  466.  
  467.     End Sub                              ' Действия кнопки "Справка" в пикчербоксе
  468.  
  469.  
  470.  
  471.     Private Sub ButtonPictureBoxExit_Click _
  472.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  473.     Handles ButtonPictureBoxExit.Click   ' Действия кнопки "Выйти" в пикчербоксе
  474.  
  475.  
  476.  
  477.         ExitBox.Show()                    ' Видимость екситбокса истинна
  478.  
  479.  
  480.         ButtonExitBoxYes.Show()           ' Видимость кнопки "Да" в екситбоксе истинна
  481.  
  482.         ButtonExitBoxNo.Show()            ' Видимость кнопки "Нет" в екситбоксе истинна        
  483.  
  484.  
  485.  
  486.         PictureBox.Hide()                 ' Видимость пикчербокса ложна
  487.  
  488.  
  489.         ButtonPictureBoxNewGame.Hide()    ' Видимость кнопки "Новая игра" в пикчербоксе ложна
  490.  
  491.         ButtonPictureBoxSettings.Hide()   ' Видимость кнопки "Настройки" в пикчербоксе ложна
  492.  
  493.         ButtonPictureBoxHelp.Hide()       ' Видимость кнопки "Справка" в пикчербоксе ложна
  494.  
  495.         ButtonPictureBoxExit.Hide()       ' Видимость кнопки "Выйти" в пикчербоксе ложна
  496.  
  497.  
  498.  
  499.     End Sub                              ' Действия кнопки "Выйти" в пикчербоксе
  500.  
  501.  
  502.  
  503. #End Region            ' Действия пикчербокса
  504.  
  505.  
  506.  
  507. #Region "NewGameBox"   ' Действия ньюгеймбокса
  508.  
  509.  
  510.  
  511.     Private Sub ButtonNewGameCancel_Click _
  512.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  513.     Handles ButtonNewGameCancel.Click   ' Действия кнопки "Отмена" в ньюгеймбоксе
  514.  
  515.  
  516.  
  517.         ButtonNewGameCancel.Hide()        ' Видимость кнопки "Отмена" в ньюгеймбоксе ложна
  518.  
  519.  
  520.  
  521.         PictureBox.Show()                 ' Видимость пикчербокса истинна
  522.  
  523.  
  524.  
  525.         ButtonNewGameTerrorists.Hide()          ' Видимость кнопки "Террористы" ложна
  526.  
  527.         ButtonNewGameCounterTerrorists.Hide()   ' Видимость кнопки "Контртеррористы" ложна
  528.  
  529.         ButtonNewGameRandom.Hide()              ' Видимость кнопки "Случайно" ложна
  530.  
  531.  
  532.         ButtonPictureBoxNewGame.Show()    ' Видимость кнопки "Новая игра" в пикчербоксе истинна
  533.  
  534.         ButtonPictureBoxSettings.Show()   ' Видимость кнопки "Настройки" в пикчербоксе истинна
  535.  
  536.         ButtonPictureBoxHelp.Show()       ' Видимость кнопки "Справка" в пикчербоксе истинна
  537.  
  538.         ButtonPictureBoxExit.Show()       ' Видимость кнопки "Выйти" в пикчербоксе истинна
  539.  
  540.  
  541.  
  542.     End Sub                             ' Действия кнопки "Отмена" в ньюгеймбоксе
  543.  
  544.  
  545.  
  546. #End Region            ' Действия ньюгеймбокса
  547.  
  548.  
  549.  
  550. #Region "SettingsBox"   ' Действия сеттингсбокса
  551.  
  552.  
  553.  
  554.     Private Sub ButtonSettingsBoxGame_Click _
  555.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  556.     Handles ButtonSettingsBoxGame.Click   ' Действия кнопки "Игра" в сеттингсбоксе
  557.  
  558.  
  559.  
  560.         PlayerNickNameText.Show()             ' Видимость плейерникнеймтекста истинна
  561.  
  562.  
  563.  
  564.         ButtonSettingsBoxMusicMusic.Hide()    ' Видимость кнопки "Музыка" ложна
  565.  
  566.  
  567.         ButtonSettingsBoxMusicSounds.Hide()   ' Видимость кнопки "Звуки" ложна
  568.  
  569.  
  570.  
  571.     End Sub                               ' Действие кнопки "Игра" в сеттингсбоксе
  572.  
  573.  
  574.  
  575. #Region "ButtonSoundsActions"   ' Действия кнопки "Звуки" в сеттингсбоксе
  576.  
  577.  
  578.  
  579.     Private Sub ButtonSettingsBoxMusic_Click _
  580.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  581.     Handles ButtonSettingsBoxMusic.Click   ' Действия кнопки "Звуки" в сеттингсбоксе
  582.  
  583.  
  584.  
  585.         ButtonSettingsBoxMusicMusic.Show()    ' Видимость кнопки "Музыка" истинна
  586.  
  587.  
  588.         ButtonSettingsBoxMusicSounds.Show()   ' Видимость кнопки "Звуки" истинна
  589.  
  590.  
  591.  
  592.         PlayerNickNameText.Hide()             ' Видимость плейерникнеймтекста ложна
  593.  
  594.  
  595.  
  596.     End Sub                                ' Действия кнопки "Звуки" в сеттингсбоксе
  597.  
  598.  
  599.  
  600.     Private Sub ButtonSettingsBoxMusicMusic_Click _
  601.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  602.     Handles ButtonSettingsBoxMusicMusic.Click   ' Действие кнопки "Музыка" в "Звуки" сеттингсбокса
  603.  
  604.  
  605.  
  606.         If ButtonSettingsBoxMusicMusic.Text = 0 Then
  607.  
  608.  
  609.             ButtonSettingsBoxMusicMusic.BackgroundImage = My.Resources.buttonSettingsBoxMusicMusic2
  610.  
  611.  
  612.  
  613.             ButtonSettingsBoxMusicMusic.Text = 1
  614.  
  615.  
  616.         Else
  617.  
  618.  
  619.             ButtonSettingsBoxMusicMusic.BackgroundImage = My.Resources.buttonSettingsBoxMusicMusic1
  620.  
  621.  
  622.  
  623.             ButtonSettingsBoxMusicMusic.Text = 0
  624.  
  625.  
  626.         End If
  627.  
  628.  
  629.  
  630.     End Sub                                     ' Действие кнопки "Музыка" в "Звуки" сеттингсбокса (добавить комментарии)
  631.  
  632.  
  633.  
  634.     Private Sub ButtonSettingsBoxMusicSounds_Click _
  635.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  636.     Handles ButtonSettingsBoxMusicSounds.Click   ' Действие кнопки "Звуки" в "Звуки" сеттингсбокса
  637.  
  638.  
  639.  
  640.         If ButtonSettingsBoxMusicSounds.Text = 0 Then
  641.  
  642.  
  643.             ButtonSettingsBoxMusicSounds.BackgroundImage = My.Resources.buttonSettingsBoxMusicSounds2
  644.  
  645.  
  646.  
  647.             ButtonSettingsBoxMusicSounds.Text = 1
  648.  
  649.  
  650.         Else
  651.  
  652.  
  653.             ButtonSettingsBoxMusicSounds.BackgroundImage = My.Resources.buttonSettingsBoxMusicSounds1
  654.  
  655.  
  656.  
  657.             ButtonSettingsBoxMusicSounds.Text = 0
  658.  
  659.  
  660.         End If
  661.  
  662.  
  663.  
  664.     End Sub                                      ' Действие кнопки "Звуки" в "Звуки" сеттингсбокса (добавить комментарии)
  665.  
  666.  
  667.  
  668. #End Region                     ' Действия кнопки "Звуки" в сеттингсбоксе
  669.  
  670.  
  671.  
  672.     Private Sub ButtonSettingsBoxOK_Click _
  673.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  674.     Handles ButtonSettingsBoxOK.Click   ' Действия кнопки "ОК" в сеттингсбоксе
  675.  
  676.  
  677.  
  678.         If PlayerNickNameText.Text = "" Then        ' Действия при условии пустого значения плейерникнеймтекста
  679.  
  680.  
  681.             PlayerNickNameText.Text = "Ваш никнейм"
  682.  
  683.  
  684.         ElseIf PlayerNickNameText.Text = " " Then   ' Действия при условии пробельного значения плейерникнеймтекста
  685.  
  686.  
  687.             PlayerNickNameText.Text = "Ваш никнейм"
  688.  
  689.  
  690.         Else
  691.  
  692.  
  693.             NickName = PlayerNickNameText.Text   ' Никнейм игрока равен значению плейерникнеймтекста
  694.  
  695.  
  696.         End If                                      ' Действия при условии допустимого значения плейерникнеймтекста
  697.  
  698.  
  699.         If ButtonSettingsBoxMusicMusic.Text = "1" Then Music = 1 ' Включение музыки при условии единичного значения музыкальной перменной
  700.  
  701.         If ButtonSettingsBoxMusicMusic.Text = "0" Then Music = 0 ' Выключение музыки при условии нулевого значения музыкальной перменной
  702.  
  703.  
  704.         If ButtonSettingsBoxMusicSounds.Text = "1" Then Sounds = 1 ' Включение звуков при условии единичного значения звуковой переменной
  705.  
  706.         If ButtonSettingsBoxMusicSounds.Text = "0" Then Sounds = 0 ' Выключение звуков при условии нулевого значения звуковой переменной
  707.  
  708.  
  709.  
  710.         SettingsBox.Hide()                    ' Видимость сеттингсбокса ложна
  711.  
  712.  
  713.         PlayerNickNameText.Hide()             ' Видимость плейерникнеймтекста в сеттингсбоксе ложна
  714.  
  715.  
  716.         ButtonSettingsBoxMusicMusic.Hide()    ' Видимость кнопки "Музыка" в "Звуки" сеттингсбокса ложна
  717.  
  718.         ButtonSettingsBoxMusicSounds.Hide()   ' Видимость кнопки "Звуки" в "Звуки" сеттингсбокса ложна
  719.  
  720.  
  721.         ButtonSettingsBoxGame.Hide()          ' Видимость кнопки "Игра" в сеттингсбоксе ложна
  722.  
  723.         ButtonSettingsBoxMusic.Hide()         ' Видимость кнопки "Звуки" в сеттингсбоксе ложна
  724.  
  725.         ButtonSettingsBoxOK.Hide()            ' Видимость кнопки "ОК" в сеттингсбоксе ложна
  726.  
  727.  
  728.  
  729.         PictureBox.Show()                     ' Видимость пикчербокса истинна
  730.  
  731.  
  732.         ButtonPictureBoxNewGame.Show()        ' Видимость кнопки "Новая игра" в пикчербоксе истинна
  733.  
  734.         ButtonPictureBoxSettings.Show()       ' Видимость кнопки "Настройки" в пикчербоксе истинна
  735.  
  736.         ButtonPictureBoxHelp.Show()           ' Видимость кнопки "Справка" в пикчербоксе истинна
  737.  
  738.         ButtonPictureBoxExit.Show()           ' Видимость кнопки "Выйти" в пикчербоксе истинна
  739.  
  740.  
  741.  
  742.     End Sub                            ' Действие кнопки "ОК" в сеттингсбоксе
  743.  
  744.  
  745.  
  746. #End Region             ' Действия сеттингсбокса
  747.  
  748.  
  749.  
  750. #Region "HelpBox"   ' Действия хелпбокса
  751.  
  752.  
  753.  
  754.     Private Sub ButtonHelpBoxOK_Click _
  755.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  756.     Handles ButtonHelpBoxOK.Click   ' Действия кнопки "ОК" в хелпбоксе
  757.  
  758.  
  759.  
  760.         HelpBox.Hide()                    ' Видимость хелпбокса ложна
  761.  
  762.  
  763.         ButtonHelpBoxOK.Hide()           ' Видимость кнопки "ОК" в хелпбоксе ложна
  764.  
  765.  
  766.  
  767.         PictureBox.Show()                 ' Видимость пикчербокса истинна
  768.  
  769.  
  770.         ButtonPictureBoxNewGame.Show()    ' Видимость кнопки "Новая игра" в пикчербоксе истинна
  771.  
  772.         ButtonPictureBoxSettings.Show()   ' Видимость кнопки "Настройки" в пикчербоксе истинна
  773.  
  774.         ButtonPictureBoxHelp.Show()       ' Видимость кнопки "Справка" в пикчербоксе истинна
  775.  
  776.         ButtonPictureBoxExit.Show()       ' Видимость кнопки "Выйти" в пикчербоксе истинна
  777.  
  778.  
  779.  
  780.     End Sub                         ' Действие кнопки "ОК" в хелпбоксе
  781.  
  782.  
  783.  
  784. #End Region         ' Действия хелпбокса
  785.  
  786.  
  787.  
  788. #Region "ExitBox"   ' Действия екситбокса
  789.  
  790.  
  791.  
  792.     Private Sub ButtonExitBoxYes_Click _
  793.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  794.     Handles ButtonExitBoxYes.Click   ' Действия кнопки "Да" в екситбоксе
  795.  
  796.  
  797.  
  798.         Close()   ' Выход из формы
  799.  
  800.  
  801.  
  802.     End Sub                          ' Действие кнопки "Да" в екситбоксе
  803.  
  804.  
  805.  
  806.     Private Sub ButtonExitBoxNo_Click _
  807.     (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  808.     Handles ButtonExitBoxNo.Click   ' Действия кнопки "Нет" в екситбоксе
  809.  
  810.  
  811.  
  812.         ExitBox.Hide()                    ' Видимость екситбокса ложна
  813.  
  814.  
  815.         ButtonExitBoxYes.Hide()           ' Видимость кнопки "Да" в екситбоксе ложна
  816.  
  817.         ButtonExitBoxNo.Hide()            ' Видимость кнопки "Нет" в екситбоксе ложна
  818.  
  819.  
  820.  
  821.         PictureBox.Show()                 ' Видимость пикчербокса истинна
  822.  
  823.  
  824.         ButtonPictureBoxNewGame.Show()    ' Видимость кнопки "Новая игра" в пикчербоксе истинна
  825.  
  826.         ButtonPictureBoxSettings.Show()   ' Видимость кнопки "Настройки" в пикчербоксе истинна
  827.  
  828.         ButtonPictureBoxHelp.Show()       ' Видимость кнопки "Справка" в пикчербоксе истинна
  829.  
  830.         ButtonPictureBoxExit.Show()       ' Видимость кнопки "Выйти" в пикчербоксе истинна
  831.  
  832.  
  833.  
  834.     End Sub                         ' Действие кнопки "Нет" в екситбоксе
  835.  
  836.  
  837.  
  838. #End Region         ' Действия екситбокса
  839.  
  840.  
  841.  
  842. End Class                  ' Действия класса "ShooterGame"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!