MIDlet Pascal
Поиск по сайту
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Суббота, 24.02.2018, 15.08.57
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Урок №15 - Урок №1 фон - Cosmo_shoter
Здравствуйте, в этом уроке мы начнем создавть приложение по жанру "Космо-стрелялка"И так, для начала нам нужно сделать красивый фон для того что бы играть было приятно в эту игру.Фон у нас будет обычным, черный цвет, но вот звезд будет 3 слоя.Первый слой будет летет быстрее, а 3-тий медленее, для илюзии пространства.Для этих звезд создадим 1 константу, которая будут содержать максимальное количество звезд.Игра будет для всех экранов.Давайте сделаем и движение звезд

Program cosmo_shoter;
const maxstar=60;
var star_x,star_y,star_group:array [1..maxstar] of integer; //переменные для звезд
    i,w,h:integer;

Procedure cls;
begin
  SetColor(0,0,0);
  FillRect(0,0,w, h);
  SetColor(255,255,255);
end;

procedure stars;
begin
  for i:=1 to maxstar do 
    begin
      star_y[i]:=star_y[i]+(star_group[i]*2); //Двигаем звезду вниз
      if star_y[i]>h then Если звезда за пределами экрана
        begin
          star_y[i]:=0; //обнуляем её по у
          star_x[i]:=random(w)+1; //рандомно по х
          star_group[i]:=random(3)+1; //рандомно сверху или она снизу
        end;
      Plot(star_x[i],star_y[i]); //рисуем звезду
    end;
end;

procedure game;
begin
  for i:=1 to maxstar do //распологаем звезды случайным образом
    begin
      star_x[i]:=random(w)+1;
      star_y[i]:=random(h)+1;
      star_group[i]:=random(3)+1;
    end;
  repeat
    cls; //очщаем экран
    stars; //рисуем звезды
    repaint;
    delay(50);
  until false;
end;

begin
  w:=GetWidth;//сохраняем в переменную размер экрана
  h:=GetHeight;//что бы не вызывать больше функцию
  game;
end.

На этом все, урок закончен, Спасибо за внимание
Автор:Стадник Владимир

← Урок №14Урок №16 →
Если вы нашли ошибки/очепятки в тексте то сообщите о них на форуме
А также можете заказать программу/игру на этой странице

www.parkflyer.ru - радиоуправляемые модели, радиоуправляемые модели самолетов, магазин радиоуправляемых моделей
Роспись стен, скульптуры на заказ
Wladymyr © 2012-2018
Создать бесплатный сайт с uCoz