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

sp;           left(koeff,x1_dv,x2_dv);

                      setcolor(0);

                      circle(x,y,radius);

                      x:=round(x1_dv+shir*koeff/2);

                      setcolor(10);

                      circle(x,y,radius);

                 end;

            #77: if x < getmaxx-(koeff/2)*shir then

                    begin

                         right(koeff,x1_dv,x2_dv);

                         setcolor(0);

                         circle(x,y,radius);

                         x:=round(x1_dv+shir*koeff/2);

                         setcolor(10);

                         circle(x,y,radius);

                    end;

            ' ': exit;

            #27:begin closegraph; halt; end;

       end;

     until false;

end;

procedure dviguna_mouse(const koeff:byte;var x,x1_dv,x2_dv:t_kubik;var

y:t_kubik);

var x_get,y_get:word;

    x_get_pred:word;

    lb,rb,tb:boolean;

begin

     {Рисуем планку с шариком посередине}

     planka_sharik(koeff);

     {устанавливает ограничение перемещения курсора мыши по вертикали}

     setYrange(5,5);

     {устанавливает ограничение перемещения курсора мыши по горизонтали}

     setXrange(1,getmaxx-koeff*shir-1);

     {Ниже --- координаты планки и шарика(только-что нарисованных)}

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

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

     setmousexy(x1_dv,0);

     x:=getmaxx div 2;

     y:=getmaxy-shir-radius-1;

     repeat

        getmousexy(x_get,y_get,lb,rb,tb);

        if x_get_pred<>x_get then

           begin

             setcolor(0);

             setfillstyle(0,0);

             bar3d(x1_dv,y1_dv,x2_dv,y2_dv,0,false);

             setfillstyle(6,13);

             setcolor(13);

             x1_dv:=x_get;

             x2_dv:=x1_dv+koeff*shir;

             bar3d(x1_dv,y1_dv,x2_dv,y2_dv,0,false);

             x_get_pred:=x_get;

             setcolor(0);

             circle(x,y,radius);

             setcolor(10);

             x:=x_get+round(koeff/2)*shir;

             circle(x,y,radius);

           end;

     until lb;

end;

procedure zar_nar(var x,y:t_kubik;const dx,dy:t_dx_dy);

begin

     setcolor(0);

     circle(x,y,radius);

     inc(x,dx);

     inc(y,dy);

     setcolor(10);

     circle(x,y,radius);

end;

procedure naverhu_number(numbering:byte);

var s:string;

begin

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

     settextjustify(centertext,centertext);

     setfillstyle(1,black);

     bar(0,0,120,19);

     setcolor(lightgreen);

     str(numbering,s);

     s:='Level '+s;

     outtextxy(60,5,s);

end;

procedure naverhu_liv(liv:byte);

var s:string;

begin

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

     settextjustify(centertext,centertext);

     setfillstyle(1,black);

     bar(140,0,250,19);

     setcolor(lightgreen);

     str(liv,s);

     s:='Lifes '+s;

     outtextxy(195,5,s);

end;

procedure naverhu_kubiki(kol_kub:byte;var score:integer);

var s:string;

begin

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

     settextjustify(centertext,centertext);

     setfillstyle(1,black);

     bar(270,0,420,19);

     setcolor(lightgreen);

     str(kol_kub,s);

     s:='Kubikov '+s;

     outtextxy(345,5,s);

     inc(score,10);

     naverhu_score(score);

end;

procedure naverhu_score(score:integer);

var s:string;

begin

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

     settextjustify(centertext,centertext);

     setfillstyle(1,black);

     bar(440,0,630,19);

     setcolor(lightgreen);

     str(score,s);

     s:='Score '+s;

     outtextxy(535,5,s);

end;

end.

unit mark_zas;

interface

         uses crt,graph,mymouse;

         type t_mas=array [1..11] of word;

         procedure zastavka(s2:string);

         procedure text_na_ekran;

         procedure ochki(score:word);

implementation

procedure text_na_ekran;

var f:text;

    a:char;

begin

     assign(f,'pravila.txt');

     reset(f);

   &

Пред. 6 7 8 9 10 След.

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

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