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

'----------------Обравотка столкновений---------------

ВышелЗаПределы:

Taimer.Interval = 0

ИнформационнаяФорма.ИнфоПоле.Caption = НЛ & _

"ВАША ЗМЕЙКА" & НЛ & _

"ВЫШЛА ЗА ПРЕДЕЛЫ ПОЛЯ" & НЛ & НЛ & _

"Длина змейки " & Длина

ИнформационнаяФорма.Show

Форма_Змейка.Enabled = False

Exit Sub

Наткнулась1:

Длина = Длина + ПриращениеДлины

ReDim Preserve Змейка(1 To Длина)

'-------Перемещаем хвост в конец-------

For i = Длина To ПриращениеДлины + 1 Step -1

Змейка(i) = Змейка(i - ПриращениеДлины)

Next i

'Добавляем в голову по направлению движения

For i = ПриращениеДлины To 1 Step -1

Змейка(i).XPos = Змейка(i + 1).XPos + XDir

Змейка(i).YPos = Змейка(i + 1).YPos + YDir

Next i

AppleGen

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

Exit Sub

Наткнулась2:

Taimer.Interval = 0

ИнформационнаяФорма.ИнфоПоле.Caption = НЛ & _

"ВАША ЗМЕЙКА" & НЛ & _