Добавлено (11.10.2011, 14:36)
---------------------------------------------
Шаг 7. Псевдо анимация.
В Дэлфи есть обьект с помощью которого можно вставить видео без звука. Но мы этим элементом не возпользуемся. Почему узнаете позже. Мы сами сделаем анимацию. Что такое анимация? Примитивно говоря это кадры которые бысто идут друг за другом. У нас есть два рисунка: птичка подняла крылышки и птичка опустила крылишки. Если их поочередно загружать в image1 то создастся эфект как будто она действительно махает крыльями. Но вот проблема как указывать програме когда загружать одну картинку а когда другую да ище и поочередно. Выход оказался гениально прост - использовать свойства чисел.
И так введите еще одну глобальную величину img формата integer. это типа от слова image. После while shot>=0 do begin но перед while (x<=800) and (shot>=0) do присвоим ей начальное значение: img:=1;. А в середине цыкла который под этой строчкой пропишем:img:=img+1;. Тоесть у нас есть величина и мы ее увиличиваем. А дальше пишем такое. Если наша величина парное число тоесть делится на два без остачи тогда мы загружаем в image1 одну картинку в противном случае - другую:
if img mod 2 =0 then
begin
Image1.Picture.LoadFromFile('C:\Users\Ñëàâà\Desktop\Íîâàÿ ïàïêà (2)\Ptichka1.bmp');
end
else
begin
Image1.Picture.LoadFromFile('C:\Users\Ñëàâà\Desktop\Íîâàÿ ïàïêà (2)\Ptichka2.bmp');
end;
А теперь запустите програму и почувствуйте себя крутым перцем.

Добавлено (11.10.2011, 15:12)
---------------------------------------------
Шаг 8. Регулировка времени или уровни сложности.
Вот вы смотрите на птичку и вам нравится как она летит. Но это субьективное мнение. Для кого то это слишком медленно а для кого то - быстро. Создадим уровни сложности: "Новичок"(летает медленно), "Любитель", "Профессионал"(Летает быстро).
Выберите ComboBox1 который на panel1. Найдите параметр items, клацните по полю справа, клацните по троеточию и перед вами появится окошко. Введите "Новичок", клацните Энтэр, "Любитель", клацните Энтэр, "Профессионал", клацните Ок. Каждая строка имеет свой номер(itemindex). Нумерация начинается с нуля. Найдите параметр itemindex и поставте значение 0. После этого в ComboBox1 по умолчанию выбрана первая строка(Новичок).
Что бы изменять скорость игры на до изменять величину которая стоит в sleep(). Введите новую величину zad формата integer. В строчке sleep(50)вместо 50 напишите zad. Выберете ComboBox1 и два раза клацните на него. Перед вами появится функцыя выполнения действий после изменение строчки. Теперь думаем если мы выбрали первую строчку тоесть номер строчки равно 0 тогда наш zad имеет одно значение. Если номер строчки равно 1 тогда наш zad имеет другое значение. А если 2 тогда третье. Короче вот так:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
begin
zad:=50;
end;
if ComboBox1.ItemIndex=1 then
begin
zad:=40;
end;
if ComboBox1.ItemIndex=2 then
begin
zad:=30;
end;
end;
Но возникает проблема. При переключении будет быстрее двигатся не только птица а и псевдо время. Его можна замедлить уменьшывшы величину на которое оно уменьшается. Поэтому вводим новую величину shag формата real. В строчке shot:=shot-1; вместо 1 пишем shag. Мы знаем что при меньшем zad надо взять меньший shag. Но насколько меньшый? Если взять за ориентир первое значение тогда так. Во сколько раз второй zad меньшый чем первый во столько же второй shag меньшый чем первый. Короче по соотношению. Я над таким не заморачивался. Я написал цыфры от фонаря и у меня вышло вот такое:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
begin
zad:=50;
shag:=1;
end;
if ComboBox1.ItemIndex=1 then
begin
zad:=40;
shag:=0.8;
end;
if ComboBox1.ItemIndex=2 then
begin
zad:=30;
shag:=0.5;
end;
end;
Нету добра без худа возникает вторая проблема. Если вы не выберете уровень и сразу нажмете "Новая игра" тогда то что мы написали несрабатывает. Почему? Да потому что оно будет работать только после смены строки в ComboBox1. А нам нужно что бы оно работало сразу после открытия програмы(создания формы). Ну так тогда скопируйте этот код и идите в функцию виполнения действий сразу после создания формы(два раза клацните по форме). В ставте этот код туда. И все заработает как надо.

Добавлено (11.10.2011, 15:32)
---------------------------------------------
Шаг 9. Попадание - очки
Думаю вы уже догадались что надо ввести новую величину. Правильно. Введите ochk формата integer.
Только запускается програма(создается форма) как количество очков должно выставится на ноль. Вот и идите в эту функцыю(два раз клацните по форме) и напишите:ochk:=0;.
Теперь думаем что такое попадание? Это когда наш курсор находится на птичке(image1) и мы нажымаем на нее(ведь что бы выстрелить надо нажать на левую клавишу мышки). Тогда думаю что вы догадались второй раз: нам нужна функция выполнения действий после нажатия на image1. Для этого выберите его и нажмите два раза. Дальнейшые действия будут происходить в:
procedure TForm1.Image1Click(Sender: TObject);
begin

end;
Что мы должны сделать с очками при попадании? Увеличить их на единицу. Тогда так и напишите:ochk:=ochk+1;. Дальше выводим очки на лабле тоесть переименовуем его. Думаю вы это уже умеете делать:Label4.Caption:=;. Мы не можем дальше написать просто ochk. Потому что ochk в формате integer а записывать величину можно только в формате string. Мы должны перевести величину с одного формата в другой. В итоге у вас выйдет:Label4.Caption:=inttostr(ochk);. Все получилось.

Добавлено (11.10.2011, 15:46)
---------------------------------------------
Шаг 10. Попадание - рекорд
Значение рекорда у нас должно где то хранится. Экзешка это не записная книжка там нельзя хранить. Хранить надо в каком то файлике. Поэтому создайте через блокнот 1.txt инапишите туда "0". Файлик вложите в папку с игрой. Добавте к глобальным величинам следущие:
f: TextFile;
a: extended;
Вот вам код и обьяснения:

procedure TForm1.Image1Click(Sender: TObject);
begin
ochk:=ochk+1;
Label4.Caption:=inttostr(ochk);
AssignFile(f, '1.txt'); <= Ассоцыируем величину которая отвечяет за файл с самим файлом.
reset(f); <=Открываем файл только для чтения.
read(f, a); <= Читаем файл и то что прочитали присваеваим величине "а".
if ochk>a then
begin
CloseFile(f); <= Закрыли файл.
a:=ochk;
rewrite(f); <=Открыли для перезаписи.
write(f, a: 8: 0);[/b] <=Записуем в файл даные величины "а"
CloseFile(f);
reset(f);
read(f, a);
Label6.Caption:=floattostr(a);
CloseFile(f);
end
else CloseFile(f);
end;

end;

Добавлено (11.10.2011, 15:48)
---------------------------------------------
Все прога готова. Если вам понравилось работать в Дєлфи тогда пишите и мы с вами попробуем сделать 2d платформер "Спаси свою задницу". Удачи вам игроделы.

Добавлено (12.10.2011, 17:30)
---------------------------------------------
Мда, Дэлфа никому не интересна.