Алгоритм игры "змейка". Как заставить двигаться хвост? - VB
Формулировка задачи:
Подскажите плз, как заставить двигаться хвост змейки %)
Голова бегает нормально, а вот хвост чтоит на месте.
Покрайней мере заставил бегать только одно звено за головой %) а остальное стоит.
Подскажите алгоритм.
Решение задачи: «Алгоритм игры "змейка". Как заставить двигаться хвост?»
textual
Листинг программы
Private Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type Dim Part As Integer 'Dim Snake As POINTAPI Private Sub SnakeAdd() Part = Snake.Count Label1.Caption = Part Load Snake(Part) Snake(Part).FillColor = RGB(Int(250), Int(100), Int(200)) End Sub Private Sub Form_Load() SnakeAdd Timer1.Interval = 500 End Sub Public Sub SnakeMove() If (Snake(0).Top > 405) And (Snake(0).Top < Snake_Shape.Height - 270) Then If Snake.Count > 1 Then For I = 1 To Snake.Count - 1 Snake(I).Top = Snake(I - 1).Top Snake(I).Left = Snake(I - 1).Left Next Snake(0).Top = Snake(0).Top - 235 'Snake(0).Left = Snake(0).Left - 235 End If End If End Sub Private Sub Timer1_Timer() SnakeMove End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д