Реферат: Помощь в обучении программированию
Проверяет не активна ли игра. если нет и ShowMsg то выдается сообщение
ClearAll
Вызов очистки игрового поля, обнуление fFigNum, fDeletedLines, fTimerClicks
GetTextStatus:string
Получение статистики по игре в текстовом виде для вывода на экран
RotateAgainst
Проверка активна ли игра и есть ли текущая фигура, если да то происходит поворот фигуры
RotateAlong
MoveLeft
Проверка активна ли игра и есть ли текущая фигура, если да то происходит сдвиг фигуры
MoveRight
GetInfo
Получения статуса игры в текстовом виде для отображения в строке статуса
DoFall
Реализация метода падения (вызывается по клавиши вниз)
StartQuickFall(Quick:boolean=true)
Если Quick то установка режима ускоренного падения, нет возврат к обычному
* Основными процедурами являются: TimerTick, DoFall
|
TimerTick |
Реакцию на событие от таймера можно представить следующим образом: Проверить есть текущая фигура Assigned(fCurrentFigure) Если есть проверить может ли она сдвинуться на клетку вниз fCurrentFigure.CanDown Если может, то сдвинуть fCurrentFigure.Down Иначе обрабатываем ситуацию упал (для бомб падение предполагает очистку других ячеек поля) fCurrentFigure.Falled Если нет, то проверяется заполненность хотя бы одной из линий поля полностью Если таковая находится то она удаляется fField.DelFullLine Иначе проверяется заполненность ячеек из вернего уровня fField.IsOverflow Если хотя бы одна занята - игра заканчивается Иначе создается очередная фигура случайным образом InitCurrentFigure |
|
К-во Просмотров: 433
Бесплатно скачать Реферат: Помощь в обучении программированию
|