Стрельба Игрушка 2D

[Anton911]

Почитал немного про Canvas, и решил сделать 2D выживалку (Ну это в будущем что получится). Сейчас это image на котором есть картинка игрока, с помощью клавишь можно двигаться. Вобщем, как лучше сделать стрельбу? Ведь снарядов может быть 10, а может быть и 1500 одновременно. Покачто я сделал класс Bullets

  TBullet=Class
   BullModel:TbitMap;
   X,Y:real;
   Damage:integer;
   Number:integer;
  End;

procedure Tform1.shoot();
begin
 BulletsCount:=BulletsCount+1;
 Bullets[BulletsCount]:=TBullet.Create;
 bullets[BulletsCount].BullModel:=tBitMap.Create;
 bullets[BulletsCount].BullModel.loadfromfile('bullet.bmp');
 bullets[BulletsCount].Number:=BulletsCount;
 Bullets[BulletsCount].X:=0;
 Bullets[BulletsCount].Y:=0;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
  I: Integer;
begin
if BulletsCount>0 then
begin
for i := 1 to BulletsCount do
begin
Image1.Canvas.Draw(Round(bullets[i].X), Round(bullets[i].Y), bullets[i].BullModel);
bullets[i].x:=bullets[i].x+2;
bullets[i].y:=bullets[i].y+2;
if bullets[i].Y<0 then
begin
bullets[i].Free;
end;
if bullets[i].Y>170 then
begin
bullets[i].Free;
end;
if bullets[i].X<0 then
begin
bullets[i].Free;
end;
if bullets[i].X>316 then
begin
bullets[i].Free;
end;
end;
end;

Код не доработан. Когда один снаряд исчезает дальше пишет Invalid Pointer Operation. Как это все сделать правильно.

[Андрей 93]

Нельзя использовать функцию free, это для указателей (Pointer'ов). И вообще, создай список, а не массив.

 PBullet=^TBullet
TBullet=record
   BullModel:TbitMap;
   X,Y:real;
   Damage:integer;
   Number:integer;
  next, prev:PBullet;
  End;

Доступ ко всем пулям будет осуществляться через 1 переменную - указатель.

var Bullets:PBullet
BulletsCount:integer //количество

Списки позволяют удалять элементы из середины или из начала, а массивы для этого не предназначены. Поищи информацию про то, как пользоваться указателями.

[Андрей 93]

И измени параметры пули, например нельзя для каждой пули загружать свою картинку (BullModel), это скажется на производительности. Такие общие данные надо указывать 1 раз и применять во время прорисовки для всех пуль. Во вложении пример использования списков. Смотри всё, что касается Cloud (это облака из моей старой игры). Облака создаются, перемещаются до координаты x=2000 и удаляются.
Для удобства создай тип данных вектор (в моём примере это cpVect из модуля uVect). Функция ssprite_draw из движка omega, на неё не смотри, в этом месте будут твои процедуры рисования картинки на канве

[phomm]

При всём уважении, Андрей 93, не стоит утверждать так категорично.
ТС использует классы и им как раз надо делать Free.
Если захочет списком, то сделает списком, на всякий случай стандартная реализация списка указателей (облеченная в класс) по-моему, лежит в модуле Contnrs.
Данные вроде tbitmap стоит конечно хранить централизованно, но вот иметь ссылку на экземпляр битмапа нисколько не зазорно, поэтому ТС, могу посоветовать вот что:
Создайте некое хранилище графических данных, по первости может сойти массив или даже глобальная переменная (но я советую централизовать и сделать хранилище тоже где-то в классе, доступ к графике в котором осуществляется по идентификатору, в качестве которого можно использовать перечислимый тип или ещё что-то такое)
при создании пули не надо писать

bullets[BulletsCount].BullModel:=tBitMap.Create;
 bullets[BulletsCount].BullModel.loadfromfile('bullet.bmp');

а просто

bullets[BulletsCount].BullModel:= graphicsarray[bullet]; // это и есть ссылка на уже загруженный объект Tbitmap

тогда уйдёт 2 проблемы сразу - дублирование данных и потеря производительности и не придётся беспокоиться об освобождении данных, ибо это можно переложить на класс(или массив) хранилища.

Ну и главное )) по поводу почему происходят креши:

if bullets[i].Y<0 then
begin
bullets[i].Free; // если было выполнено это условие и был освобожден объект
end;
if bullets[i].Y>170 then // то здесь опять происходит обращение к объекту, и это причина креша
begin
bullets[i].Free;
end;

как исправить ? самый простой способ прописать все остальные условия в ветку else соответствующих if'ов
НО я советую пересмотреть логику работы и сделать как-то умнее, например :

var dofree: boolean;
...
dofree := dofree or (bullets[i].Y>170);
dofree := dofree or (bullets[i].Y<0);
...
if dofree then bullets[i].free;

Надеюсь Вы решите все проблемы, мы поможем если что , Удачи !!!

[Anton911]

Андрей 93 и Phomm, спасибо за ответы, для себя извлек много полезного.

[Anton911]

Вобщем вот мой первый набросок. Ужас конечно, но чтото же нужно иметь для начала Вобщем у меня назрел вопрос, Как видите в программе модель симпатичного уродца, которым мы управляем спокойно проходит сквозь Эллипс рядом с центром игрового поля. Как сделать чтобы нельзя было пройти сквозь него? Я имею ввиду, что этих эллипсов может быть хоть 100 на игровом поле.
Управление: На стрелки ходить на пробел стрелять.

[Wicort]

А теперь попробуйте запустить игру и не трогая стрелок просто нажать на пробел
Invalid floating operator, причем очень жестоким образом

[Anton911]

Блин Просто когда клавишу (клавишу-Стрелку, не пробел) нажмешь, игроку устанавливается "статус" (куда именно он смотрит, если вверх то статус 1 и т.д.). А при старте статус не определен забыл добавить Вот и ошибка!)

[jasul]

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

А теперь попробуйте запустить игру и не трогая стрелок просто нажать на пробел
Invalid floating operator, причем очень жестоким образом

Попробовал то что вы рекомендовали результат ужасный))) Не получается выключить программу)

[Wicort]

Попробовал то что вы рекомендовали результат ужасный))) Не получается выключить программу)

Вот ведь русские люди... только укажи на косяк, сразу повторить пробуют)
Вы случайно лампочку в рот запихнуть не пытались? )))