Недоделанная прога Опции

[1234]

Пожалуйста, помогите доделать прогу. Некоторые очерки я уже имею. Проблема заключена в следующем: как заставить объект стрелять, при том, что подстреленные объекты исчезают (как я понимаю, окрашиваясь в цвет фона). Но вопрос в другом: если, уже невидимый, объект попадает на стреляющий объект игра заканчивается. Потому как они существуют.

[1234]

Начнём с этого. Мне нужно чтобы шарики вылетали не одновременно и не больше 5. И очередная порция шариков не должна вылетать как у меня после исчезновения предыдущей.

Uses Graph,crt;
var
gD,gM: Integer;
p: pointer;
a,x,y,size,I,x1,y1: integer;
begin
gD := Detect;
InitGraph(gD,gM,'');
randomize;
setbkcolor(yellow);
setfillstyle(1,4);
setcolor(4);
circle(20,20,10);
floodfill(20,20,4);
size:=imagesize(10,10,30,30);
getmem(p,size);
getimage(10,10,30,30,p^);
putimage(10,10,p^,xorput);
for a:=0 to 50 do
  begin
    x1:=random(getmaxx);
    x:=random(getmaxx);
     for i:=1 to 50 do
         begin
           y:=10*i;
           putimage(x,y,p^,xorput); 
           delay(50);
           putimage(x,y,p^,xorput); 
           y1:=11*i;
           putimage(x1,y1,p^,xorput); 
           delay(50);
           putimage(x1,y1,p^,xorput); 
         end;
     end;
putimage(x,y,p,xorput);
putimage(x1,y1,p^,xorput);
OuttextXY(10,10,'Press Enter to exit');
ReadLn;
CloseGraph;
end.

М

1234, используй теги! Lapp

Сообщение отредактировано: Lapp - 26.12.2006 15:14