IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Танк и мины, Танк управляется стрелками, при касании мины игра окончена
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской
Реальное имя: Альберт

Репутация: -  0  +


Помогите с минами
Танк просто проезжает по ним

 
program TanK1;
uses Crt, graph;
var
A,B:array[1..100] of integer;
grDriver : Integer;
grMode : Integer;
y1,x1,x,y,r,t,i: Integer;
c:char;
label 1;
begin
grDriver:= Detect;
InitGraph(grDriver, grMode, 'X:\BP');
x:=3;
y:=400;
x1:=23;
y1:=440;
Rectangle(x,y+15,x+20,y+55);
Circle(x+10,y+30,7);
line(x+10,y+5,x+10,y+25);

randomize;
for i:=1 to 10 do
begin
r:=random(21);
t:=random(16);
A[i]:=(x+32)+(3*r);
B[i]:=(y-54)-(2*T);
end;
for i:=1 to 10 do
begin
setfillstyle(3,blue);
circle(A[i],B[i],8);
floodfill(A[i],B[i],getmaxcolor);
end;

randomize;
repeat
for i:=1 to 30 do
begin
{ x:=a[1]; y:=b[1]; }
if ((x+32)=a[i]) and ((y-54)=b[i]) then
begin
setfillstyle(1,black);
bar(640,480,0,0);
outtextxy(100,380,'game over') ;
goto 1;
end;
end;


c:=readkey;
if (ord©=072) then
begin
y:=y-80;
Rectangle(x,y+15,x+20,y+55);
Circle(x+10,y+35,7);
line(x+10,y+5,x+10,y+25);
setfillstyle(1,0);
y1:=y1-20;
bar(x,y1+35,x+20,y+85);
end;
if (ord©=080) then
begin
y:=y+80;
Rectangle(x,y+15,x+20,y+55);
Circle(x+10,y+35,7);
line(x+10,y-10,x+10,y-40);
setfillstyle(1,0);
y1:=y1-80;
bar(x,y1+40,x+20,y-80);
end;
if(ord©=077) then
begin
x:=x+50;
Rectangle(x,y+15,x+40,y+35);
Circle(x+20,y+25,7);
line(x+27,y+25,x+47,y+25);
setfillstyle(1,0);
x1:=x1+50;
bar(x1-87,y1+25,x1-35,y-40);

end;
if (ord©=075) then
begin
x:=x-50;
Rectangle(x,y+15,x+40,y+35);
Circle(x+20,y+25,7);
line(x+13,y+25,x-5,y+25);
setfillstyle(1,0);
x1:=x1-50;
bar(x1+87,y1+25,x1+35,y-40);
end;

until ord©=27 ;
1:
Repeat
until keypressed;
closegraph;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 19:57
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name