Simple Shooter - самая простая стрелялка

[Манжосов Денис :)]

Итак, представляю вашему вниманию мою новую игру Simple Shooter. Это первая alpha версия этой игры.
Преимущества игры:
Здесь я поговорю о том, чего раньше у меня в играх не было.
В Simple Shooter присутствует:
* Слабенькая, но анимация
* Большое кол-во врагов
* Интерес
* Сложность прохождения
* Звук
Как я уже говорил, это только первая alpha версия. Багов я не заметил. Правила игры:
Они довольно просты. На вас бежит толпа инопланетян. Надо отбиваться, стреляя в них. У вас есть всего 60 секунд. Но, если же они добегут до вас, время начнётся с начала. Лично я эту игру прошёл не с первого раза , довольно сложно.
Управление:
Мышкой, правой или левой кнопками, надо тыкать на пришельцев. Можно также держать мышкой зажатой и просто водить по полю и стрелять.

Жёсткая критика приветствуется.
Всем спасибо.

P.S. Во вложении присутствует исходный код игры с комментариями.

[DM_bite]

Очень задорно) Только наврядли такую толпу можно вообще остановить(нужен пулемет - не меньше).Жесткая критика?Ну это навряд-ли.Скорость врагов уменьшить и разнообразить арсенал( в виде бонусов можно реализовать, то есть на экране будут появляться ящики с оружием или как-нибудь по-другому)

[Манжосов Денис :)]

Скорость врагов изменил. А вот насчёт арсенала надо будет подумать. Его делать только ради веселья, а так эту толпу и пистолетом, как видно из игры, можно остановить

[hoza_syl]

Кстати процедуру TGameForm.TimerAnimationTimer я бы советовал тебе изменить, а то у тебя там загрузка вообще ужас:

    1: begin
        Player.LoadFromFile('PlayerSide1.bmp');
        Frag.LoadFromFile('Frag.bmp');
       end;
    2: begin
         Player.LoadFromFile('Player.bmp');
         Frag.LoadFromFile('Frag_B.bmp');
       end;
    3: begin
        Player.LoadFromFile('PlayerSide2.bmp');
        Frag.LoadFromFile('Frag_A.bmp');
       end;
    4: begin
        Kadr := 0;
        Frag.LoadFromFile('Frag_B.bmp');
        Player.LoadFromFile('Player.bmp');
       end;
   end;

Загрузи картинки в битмапы при инициализации, а потом просто меняй, а не загружай каждых 100 мс. Это же неефективно.
Кстати поставь паузу между выстрелами, и ради бога, уменши скорость передвижения чуваков, а то игру вообще нереально пройти)))

[mutabor]

Намного лучше чем раньше. Так держать! Звук только заикается. Загрузка неправильно реализована, выше уже написали.

[Манжосов Денис :)]

Намного лучше чем раньше. Так держать! Звук только заикается. Загрузка неправильно реализована, выше уже написали.

Спасибо, mutabor! Уже исправляю загрузку. А вот насчёт заикания звука. Это уже исправлено.

[Манжосов Денис :)]

+Оптимизирована загрузка изображений
+Присутствует звук автоматной очереди
+Уменьшена скорость передвижения фрагов

-Внешних изменений нет

В архиве присутствуют дополнительные изображения бонусной бомбы. Её реализация в игре пока не осуществлена.

[Pyton]

Специально так сделано, что можно зажимать мышь и водить ею?

[mutabor]

Сообщение от Pyton

Специально так сделано, что можно зажимать мышь и водить ею?

Читаем внимательней

Управление:
Мышкой, правой или левой кнопками, надо тыкать на пришельцев. Можно также держать мышкой зажатой и просто водить по полю и стрелять.

[mutabor]

// Обнуляем счётчик
n := 0;
// Создаём цикл
    for k:=1 to 12 do
     begin
      // Увеличиваем кадр на 1
      Inc(n);
      // Проверка
      case n of
      // Анимация
       1: Frag := BitmapFrag[4];
       2: Frag := BitmapFrag[5];
       3: Frag := BitmapFrag[6];
       4: Frag := BitmapFrag[7];
       5: Frag := BitmapFrag[8];
       6:
         begin
           Frag := BitmapBomb[1];
           PlaySound('Seven.wav',0,SND_ASYNC);
         end;
       7: Frag := BitmapBomb[2];
       8: Frag := BitmapBomb[3];
       9: Frag := BitmapBomb[4];
       10: Frag := BitmapBomb[5];
       11: Frag := Empty;
      end;
     // Делаем задержку в 50 мс
     Sleep(30);
     // Перерисовываем окно
     Repaint;
    end;

тот же самый код, только нужно переупорядочить номера битмапов

for k:=1 to 12 do begin
  Frag := BitmapFrag[k];
  if k = 6 then PlaySound('Seven.wav',0,SND_ASYNC);
  Sleep(30);
  Repaint;
end;