01.04.2011, 22:18 | #1 (permalink) |
Member
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Графика
Сделать бомбу - в виде круга. Осколки бомбы должны снижать скорость при движении. ммм...вот часть... Код:
"взрыв" ( рисование движущегося массива пикселов с остановкой на границах экрана ). ------------------------------------------------------------------} x1:= Gx div 2; y1:= Gy div 2; for i:=1 to 300 do begin X[i]:= x1+ i mod 10; { массив осколков } Y[i]:= y1+ i div 10; PutPixel(X[i], Y[i], 15); VX[i]:= -10 + random(21); VY[i]:= -10 + random(21) end; SetColor(5); Rectangle(x1, y1, x1+9, y1+30); { бомба } ch:= ReadKey; { задержка до нажатия клавиши } for i:=1 to 100 do begin sound(random(80)); delay(1); nosound { звук взрыва } end; SetColor(0); Rectangle(x1, y1, x1+9, y1+30); { взрыв бомбы } Repeat for i:=1 to 300 do begin if(X[i]+VX[i] > 0) and (X[i]+VX[i] < Gx) and (Y[i]+VY[i] > 0) and (Y[i]+VY[i] < Gy) then begin { если пиксел не перелетит за край экрана } PutPixel(X[i],Y[i],0); X[i]:= X[i]+VX[i]; Y[i]:= Y[i]+VY[i]; PutPixel(X[i], Y[i], 14) end { движение осколков } else begin VX[i]:= 0; VY[i]:= 0;{ если пиксел долетел до края экрана } sound(200); delay(2); nosound end end Until Keypressed; |
01.04.2011, 22:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По заголовкам нашлось еще кое что схожее, можете посмотреть Графика в QBasic Графика - растущий цветок |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|