Арканоид на Паскале

procedure ugolki(var dx,dy:t_dx_dy;x,y:t_kubik;var a:t_arr;var

kol_kub:kol_kubik;var score:integer);

procedure izchez(var dx,dy:t_dx_dy;var a:t_arr;var

kol_kub:kol_kubik;i:word);

begin

     setcolor(0);

     setfillstyle(1,0);

     bar3d(a[i],a[i+1],a[i]+48,a[i+1]-20,0,false);

     musik;

     a[i]:=0;

     a[i+1]:=0;

     dx:=-dx;

     dy:=-dy;

     dec(kol_kub);

     musik;

     naverhu_kubiki(kol_kub,score);

     exit;

end;

var i:1..496;

begin

  i:=1;

  while i<=493 do

    begin

      if x-radius+1=a[i]+48 then

         if (y-radius+1=a[i+1])or((y-radius+1a[i+1]-

20))

         or(y+radius-1=a[i+1]-20)or((y+radius-1a[i+1]-20))

             then izchez(dx,dy,a,kol_kub,i);

      if x+radius-1=a[i] then

         if (y+radius-1=a[i+1]-20)or((y+radius-1a[i+1]-20))

         or(y-radius+1=a[i+1])or((y-radius+1a[i+1]-

20))

             then izchez(dx,dy,a,kol_kub,i);

      if y-radius+1=a[i+1] then

         if (x-radius+1=a[i]+48)or((x-radius+1>a[i])and(x-

radius+1a[i])and(x+radius-1a[i])and(x+radius-1a[i])and(x-radius+1<65535 then inc(pause);

                   #42{'*'}:if pause >2 then dec(pause);

                   #13:begin cleardevice; exit; end;

              end;

     until false;

end;

procedure razmer_planki(var koeff:byte);

var s:string;

    x1,y1,x2,y2:integer;

    i:-1..1;

    redvalue,bluevalue:0..63;

begin

     setcolor(red);

     s:='Adjust the size of a rod'{'отрегулируйте размер планки'};

     settextstyle(4{GothicFont},horizdir,5);

     settextjustify(1,1);

     outtextxy(getmaxx div 2, getmaxy div 2, s);

     i:=1;

     redvalue:=0;

     bluevalue:=0;

     repeat

           repeat

                 setRGBpalette(red,redvalue,bluevalue,0);

                 inc(bluevalue,i);

                 inc(redvalue,i);

           until keypressed or (redvalue=0) or (redvalue=63);

           i:=-i;

     until keypressed;

     cleardevice;

     {рамка}

     setcolor(random(14)+1);

     rectangle(0,0,getmaxx,getmaxy);

     {планка посередине}

     setcolor(13);

     setfillstyle(6,13);

     koeff:=4;

     x1:=round(getmaxx/2-(koeff/2)*shir-1);

     y1:=getmaxy-1;

     x2:=round(getmaxx/2+(koeff/2)*shir);

     y2:=getmaxy-shir;

     bar3d(x1,y1,x2,y2,0,false);

     repeat

           if keypressed then

                 case readkey of

                      #42{'*'}:if koeff<42 then

                                  begin

                                       inc(koeff);

                                       x1:=round(getmaxx/2-(koeff/2)*shir-

1);

                                       y1:=getmaxy-1;

                                       x2:=round(getmaxx/2+(koeff/2)*shir);

                                       y2:=getmaxy-shir;

                                       bar3d(x1,y1,x2,y2,0,false);

                                  end;

                      #45{-}:if koeff>2 then

                                begin

                                     setcolor(0);

                                     setfillstyle(0,0);

                                     x1:=round(getmaxx/2-(koeff/2)*shir-1);

                                     y1:=getmaxy-1;

                                     x2:=round(getmaxx/2+(koeff/2)*shir);

                                     y2:=getmaxy-shir;

                                     bar3d(x1,y1,x2,y2,0,false);

                                     dec(k

Пред. 16 17 18 19 20 След.

скачать работу

Отправка СМС бесплатно