Игра на VB

[Человек]

Предистория:
1. Решил делать "танчики" но бота написать не могу.
2. Потом решил сделать двух игроков (W,A,S,D и Стрелки), но одновременно нельзя нажать две кнопки, то есть поедет тот игрок, который первее нажал!
3. Теперь всё свелось к танку, который должен доехать до определённой точки за минуту, а в это время его обстреливают...
4. Понял, что получилось весьма глупо...

Вопрос: А как вообще возможно сделать достойную игру на VB.
(кроме экономических стратегий)

[Faust]

1. Простейший вариант - сравнивать координаты танков, управляемых игроком и компьютером и двигать компьютерный танк в соответствующем направлении (простая тригонометрия). Время от времени проверять, не попадает ли танк игрока на линию огня и, если да - стрелять по нему до победного.
2. Каким образом Вы опрашиваете клавиатуру??
3. No comments.
4. Согласен.
Ответ: определенно да! Все дело в энтузиазме и свободном времени.

[Человек]

2. Каким образом Вы опрашиваете клавиатуру??

Вот так:

Код: Выделить всё

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
code = KeyCode
    'Player1
    If code = 37 Then Player1.Left = Player1.Left - 10
    If code = 39 Then Player1.Left = Player1.Left + 10
    If code = 38 Then Player1.Top = Player1.Top - 10
    If code = 40 Then Player1.Top = Player1.Top + 10
    'Player2
    If code = 65 Then Player2.Left = Player2.Left - 10
    If code = 68 Then Player2.Left = Player2.Left + 10
    If code = 87 Then Player2.Top = Player2.Top - 10
    If code = 83 Then Player2.Top = Player2.Top + 10
End Sub

[Faust]

Вот так:

Код: Выделить всё

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
code = KeyCode
    'Player1
    If code = 37 Then Player1.Left = Player1.Left - 10
    If code = 39 Then Player1.Left = Player1.Left + 10
    If code = 38 Then Player1.Top = Player1.Top - 10
    If code = 40 Then Player1.Top = Player1.Top + 10
    'Player2
    If code = 65 Then Player2.Left = Player2.Left - 10
    If code = 68 Then Player2.Left = Player2.Left + 10
    If code = 87 Then Player2.Top = Player2.Top - 10
    If code = 83 Then Player2.Top = Player2.Top + 10
End Sub

Всё-таки я не понимаю, как это должно работать - надо часто-часто жать на клавиши?
Если да, то советую по событию KeyDown изменять не координаты, а скорость танков, то есть:

Код: Выделить всё

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
     Case 37: VX1 = - 10
     Case 39: Then VX1 = 10
     Case 38: Then VY1 =  - 10
     Case 40: Then VY1 = 10
     Case 65: Then VX2 = - 10
     Case 68: Then VX2 = 10
     Case 87: Then VY2 = - 10
     Case 83: Then VY2 = 10
End Select
End Sub

Sub Timer1_Timer
     Player1.Left = Player1.Left + VX1
     Player1.Top = Player1.Top + VY1
     Player2.Left = Player2.Left + VX2
     Player2.Top = Player2.Top + VY2
End Sub


Предварительно следует, естественно, втыкнуть на форму Timer, выставить у него соответствующий период и объявить переменные VX1, VX2, VY1, VY2 с необходимым уровнем видимости.[/quote]

[Человек]

Всё-таки я не понимаю, как это должно работать - надо часто-часто жать на клавиши?

Нет.
Просто держишЪ нажатой кнопку UpArrow и танк двигается вверх...

[Cornplay]

Обычно для игр используют API функцию GetAsyncKeyState - позволяет узнавать, нажата ли конкретная клавиша в данный момент. Подробнее см. где-нибудь в описаниях API функций.

Что касается вообще написания приличной игрушки на VB, то лично я еще не видел ни одной. Не исключаю возможность их существования, особенно с использованием DirectX, но боюсь, что эти игры в лучшем случае будут представлять из себя жалкие подобия уже существующих. И это не столько из-за недостатка быстродействия VB, сколько из-за чисто физических возможностей отдельного человека, занимающегося подобной разработкой.

Хотелось бы, чтобы любители-программисты игр уделяли больше внимания оригинальности их творения, нежели их графическому исполнению.

Мне очень нравились двумерные танки TankBattle в сборнике Future Collection 1 (начало 90-х годов): игра вдвоем и против компьютера там были сделаны очень неплохо.

[Mikle]

GetAsyncKeyState, конечно, поможет более корректно опросить клаву, но не избавит от блокировки одних клавишь другими. И виноват тут не бейсик, а сами клавиатуры. Можно попробовать сделать keyboard setup, чтобы искать взаимно не влияющие сочетания клавишь, но сомневаюсь, что возможно найти полностью независимые 10 клавишь(2*4 - управление, 2 - стрельба).
Я бы попробовал использовать джойстик.

[dxvb]

Проблему с клавиатурой можно решить, используя DirectInput (про него можно прочитать здесь). DirectInput позволяет обрабатывать одновременно нажатия нескольких клавиш.
А если хочешь сделать 3d танчики, то см. сайт:
directx-vb.narod.ru

[**Black-Van**]

Насчет проблем с клавиатурой попробуй зделать движения через Timer и чтобы танк к примеру постоянно двиголся.Если надо могу обьяснить подробние.

[Mikle]

Никакой DirectInput не поможет, если клавиши взаимно блокируются.

Насчет проблем с клавиатурой попробуй зделать движения через Timer и чтобы танк к примеру постоянно двиголся

Сам понял, что написал

[A.A.Z.]

Mikle, он имел ввиду, что танк двигается по таймеру: при нажатии клавиши просто ставится какой-то флаг, а в таймере эти флаги обрабатываются соответствующим образом. Это самый простой и самый "не очень" метод.

[**Black-Van**]

А почему неочень Помойму очень даже нечего и при этом просто.

[Keen]

Не знаешь как сделать чтоб можно было зажимать несколько клавишь? Очень просто, хотя и глючно :
Создай массив Keys(200) as boolean, а на форме, в процеде нажатия клавишы впиши Keys(KeyCode)=true или Keys(KeyAscII)=true (если не ошибаюсь). Какой из вариантов не помню... Кажется тот, где KeyDown. Хотя проверь - где будет работать, значит тот и правильный .
А в конце процедуры таймера "отлючи" все клавишы: Keys(КодКлавишы)=false и далее также.
На самом деле, A.A.Z. прав, таймер - не очень хорошая вещь- глючит. Лично я использую цикл:

Do

DoEvents()
...действия...

Loop while me.visible=true

и подобное...

Да, кстати, исходника нет, но могу изваять . Пиши, Человек На andrey_rare@mail.ru.
Или можно для общего блага поместить на vbstreets?

[A.A.Z.]

А почему неочень Помойму очень даже нечего и при этом просто.

По опыту своему сужу
На самом деле, делал я как-то гонки, давно это было, так я поставил таймер, на каждое нажатие клавиши реагировал изменением флагов и в таймере смотрел, как флаги изменились и что-то делал, например:

Код: Выделить всё

Enum Going
Forward
Backward
No
End Enum

Enum Turning
Left
Right
No
End Enum

Dim Go As Going, Turn As Turning

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
  Go = Forward
Case vbKeyDown
  Go = Backward
Case vbKeyLeft
  Turn = Left
Case vbKeyRight
  Turn = Right
End Select
End Sub

Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp, vbKeyDown
  Go = No
Case vbKeyLeft, vbKeyRight
  Turn = No
End Select
End Sub

Sub Timer1_Timer()
Select Case Go
Case Forward
  Call GoForward()
Case Backward
  Call GoBackward()
Case No
  Call StopCar()
End Select

Select Case Turn
Case Left
  Call GoLeft()
Case Right
  Call GoRight()
Case No
  Call NotTurnCar()
End Select
End Sub

Примерно так. Пишу без VB - могу где-то ошибиться.

Так вот. На большой скорости машина двигалась рывками, и врезания в ограждения, попадание на финиш да и вообще, лицезрение этого дергания были не очень хорошими.

Так что, отказался я от таймера в конце концов.

[**Black-Van**]

Ясно я таймер вобщем то, тоже уже не использую, но начинающим всё равно полезно

[all]

вобще то программирование игр стоит начинать
с болле простого например тетриса, а у же потом
переходить к играм с элементами искусственного
интелекта

[ALX_2002]

Пиплы... Энтузазизьм это конечно хорошо, но написание таничков по 10000000 разу не выход.

За время моих попыток написать более менее нормальную игру на VB я сделал вывод - или нужно долго парится и юзать DirectX чтобы хотя бы на 5% по графике игра дотягивала до нормальных или писать что то типа Lines где графика практически статична и не требует обратботки больших изображений.

Лично я сделал вывод, что на VB лучше логическую игру с новой идеей. Т.е чтобы поразить пользователя не красивым дизайном, которого сложно добиться, а алгоритмом.

[Mikle]

нужно долго парится и юзать DirectX чтобы хотя бы на 5% по графике игра дотягивала до нормальных

Совершенно верно, но это касается не только VB, но и любого языка. Без D3D\OpenGL сейчас никуда. Софтовые растеризаторы, имхо, ушли в прошлое. Я имею ввиду в 3D играх.