графика

[puporev]

просто когда я нажимаю на клавишу

Так отпускай клавишу, оно и остановится.

[alex(21)]

А как установить границу, чтобы кольцо дальше экрана не уходило?

[alex(21)]

чё никто не знает чтоли???

[Stilet]

Грубо говоря так:

 if (klavisha='d')and (x<(GetMaxX-25)) then x:=x+25;

чё никто не знает чтоли???

А че умные книги уже отменили?

[puporev]

if keypressed then klavisha:=readkey;
 if (klavisha='a')and(x>55) then x:=x-25;
 if (klavisha='d')and(x<580) then x:=x+25;

[alex(21)]

вот что получилось:

uses crt,graph;
var d,r,x,ax,ay:integer;
klavisha:char;

procedure dvizhenie;
begin
x:=300;
setcolor(red);
ellipse(x,380,0,360,35,10);
repeat
setcolor(red);
ellipse(x,380,0,360,35,10);
setcolor(green);
rectangle(ax,ay,ax+40,ay+40);
delay(6000);
setcolor(black);
ellipse(x,380,0,360,35,10);
rectangle(ax,ay,ax+40,ay+40);
ay:=ay+2;
if ay=350 then begin ay:=0; ax;=random(600); end;
klavisha:=' ';
if keypressed then
klavisha:=readkey;
if (klavisha='a') and (x>50) then x:=x-25;
if (klavisha='d') and (x<580) then x;=x+25;
setcolor(red);
ellipse(x,380,0,360,35,10);
until klavisha=#27;
end;

begin
randomize;
d:=detect; initgraph(d,r,'');
line(0,420,640,420);
dvizhenie;
closegraph;
end.

хотел сделать так:
у меня три жизни, если кубик в кольцо не попадает и доходит до линии, то сгорает одна жизнь, количество жизней отображается на экране, а если поймал то количество очков увеличивается на 5.
но не знаю как это сделать. помогите кто нибудь!

[Stilet]

А тебе как нужно, защита если квадрат полностью попал в кольцо или его коснулся?

[alex(21)]

когда квадрат полностью попал в кольцо

[alex(21)]

разве это так сложно? кто нибудь помогите доделать игру!

[Stilet]

разве это так сложно?

Аналогичной вопрос тебе

Значит условие примерно такое:
Если (ax>=x)and((ax+40)<=x) ТО Квадрат попал. Не проверял, но предполагаю