графическая игрушка

[alex(21)]

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

[alex(21)]

почему не отвечаете, нечитабельно???

[Stilet]

А она вообще не запускается. Сразу на halt уходит.

delay(11000)

это что шутка такая?

Вот поправил:

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

procedure dvizhenie;
begin
x:=300;
score:=0; zhizni:=5;
setcolor(red);
ellipse(x,380,0,360,40,10);
repeat
if ((ay+40)=370) and (((ax+40)<=x+30) and ((ax+40)>=x-5)) then
 score:=score+5
else
if ((ay+40)>375) then begin
 zhizni:=zhizni-1;
 ay:=0;
end;
if zhizni=0 then begin
 outtextxy(50,160,' T H E  E N D ! ');
 halt;
end;
writeln('score=',score);
gotoxy(1,3);
writeln('zhizni=',zhizni);

setcolor(red);
ellipse(x,380,0,360,40,10);
setcolor(green);
rectangle(ax,ay,ax+40,ay+40);
delay(50);
setcolor(black);
ellipse(x,380,0,360,40,10);
rectangle(ax,ay,ax+40,ay+40);
ay:=ay+10;
if ay=380 then begin ay:=0; ax:=random(600); end;
klavisha:=' ';
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;
setcolor(red);
ellipse(x,380,0,360,40,10);

until klavisha=#27;
end;

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

[alex(21)]

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

[Gapro]

Вот так, я поправил, сейчс случайно и кубики цветными сделал, а то из у тебя невидно совсем было, еще замедлил, а то в той программе все прыгало с огромной скоростью.

Program kubik;
uses crt,graph;
var d,r,x,ax,ay,zamedlenie:integer;
score,zhizni:integer;
klavisha:char;

procedure dvizhenie;
begin
zamedlenie:=0;
Randomize;
x:=300;
score:=0; zhizni:=5;
ax:=Random(540)+40;

repeat
If zamedlenie mod 75 = 0 Then Begin
ClearDevice;
line(0,420,640,420);
setcolor(red);
ellipse(x,380,0,360,40,10);

if (ay>=360) and (ay<=380) and (((ax+10)<=x+50) and ((ax-10)>=x-70)) then
score:=score+5
else
if ((ay+40)>390) then begin
zhizni:=zhizni-1;

ay:=0;
end;
if zhizni=0 then begin
outtextxy(50,160,' T H E E N D ! ');
halt;
end;
writeln('score=',score);
gotoxy(1,3);
writeln('zhizni=',zhizni);

setcolor(red);
ellipse(x,380,0,360,40,10);

setcolor(green);
SetFillStyle(1,2);
BAr(ax,ay,ax+40,ay+40);
delay(50);
setcolor(black);
ellipse(x,380,0,360,40,10);
rectangle(ax,ay,ax+40,ay+40);
ay:=ay+10;
if ay=380 then begin ay:=0; ax:=random(60)*10+20; end;
end;
klavisha:=' ';
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;
setcolor(red);
ellipse(x,380,0,360,40,10);

zamedlenie:=zamedlenie+1
until klavisha=#27;
end;

begin
randomize;
d:=detect; initgraph(d,r,'');
directvideo:=false;
dvizhenie;
closegraph;
end.

[alex(21)]

хотелось чтобы текст "THE END" ОТОБРАЖАЛСЯ В ЦЕНТРЕ ЭКРАНА КРУПНЫМИ(на весь экран) мерцающими буквами. как это сделать???

[Stilet]

  
  SetTextStyle(DefaultFont,HorizDir,10);
  outtextxy(getmaxx div 2,getmaxy div 2,'qwe');

10 - размер шрифта. Можешь 100 поставить текст будет огромнейшим.
Фонт выбереш по вкусу - про него читай в хелпе на эту функцию

[Gapro]

Легче всего сделать это через процедуру проигрыша, сейчас сделаю

[Gapro]

Вот так

Program kubik;
uses crt,graph;
var d,r,x,ax,ay,zamedlenie:integer;
score,zhizni:integer;
klavisha:char;

Procedure lose;
  var key: char;
      chet,cvet:integer;
Begin
    ClearDevice;
    cvet:=0; chet:=0;
Repeat
    key:='w';
    If keypressed then key:=readkey;
    Setcolor(cvet);
    SettextStyle(2,0,20);
    OutTextXY(120,150,'YOU LOSE');
    SettextStyle(2,0,8);
    Setcolor(2);
    OutTextXY(180,250,'For finish press esc');
    If chet mod 7=0 then begin
    cvet:=Random(14)+1;
     If cvet=7 then begin cvet:=8; end;
    end;
    until key=#32;
    ClearDevice;
end;



procedure dvizhenie;
begin
zamedlenie:=0;
Randomize;
x:=300;
score:=0; zhizni:=5;
ax:=Random(540)+40;

repeat
If zamedlenie mod 100 = 0 Then Begin
ClearDevice;
line(0,420,640,420);
setcolor(red);
ellipse(x,380,0,360,40,10);

if (ay>=360) and (ay<=380)  and (((ax+10)<=x+50) and ((ax-10)>=x-70)) then
 score:=score+5
 else
if ((ay+40)>390) then begin
 zhizni:=zhizni-1;

 ay:=0;
end;
if zhizni=0 then begin
 outtextxy(50,160,' T H E  E N D ! ');
 halt;
end;
writeln('score=',score);
gotoxy(1,3);
writeln('zhizni=',zhizni);

setcolor(red);
ellipse(x,380,0,360,40,10);

setcolor(green);
SetFillStyle(1,2);
BAr(ax,ay,ax+40,ay+40);
delay(50);
setcolor(black);
ellipse(x,380,0,360,40,10);
rectangle(ax,ay,ax+40,ay+40);
ay:=ay+10;
if ay=380 then begin ay:=0; ax:=random(60)*10+20; end;
end;
klavisha:=' ';
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;
setcolor(red);
ellipse(x,380,0,360,40,10);

[Gapro]

Там процедура проигрышь - и в случае проигрыша она активируется