Реферат: Игра на ловкость Змейка

Next i

НачПоложение

'------Направление движения------

XDir = 0

YDir = -1 'Вверх

'------Генерация Яблок и Бомб----

AppleGen

BombaGen

Taimer.Interval = TIC

End Sub

'---Прорисовка начального положения---

Private Sub НачПоложение()

Поле.ForeColor = WormCollor

СчетИгры.Caption = Длина

For i = 1 To Длина

Поле.PSet (Змейка(i).XPos * 100, Змейка(i).YPos * 100)

Next i

End Sub

-------------------------------------------------------------------------------------------------

Private Sub Taimer_Timer()

Движение

Перерисовка

End Sub

-------------------------------------------------------------------------------------------------

Private Sub Движение()

НЛ = Chr(10) & Chr(13) 'Перевод строки

Поле.AutoRedraw = True

Поле.DrawWidth = Толщина

LastPos = Змейка(Длина)