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

sp; 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);

     textmode(1);

     textbackground(3);

     textcolor(0);

     clrscr;

     while not eof(f) do

           begin

                while not(eof(f)) do

                      begin

                        read(f,a);

                        write(a);

                      end;

                writeln;

           end;

     while not(keypressed) do

           case readkey of

            #27:exit;

           end;

     close(f);

end;

procedure zastavka(s2:string);

var redvalue:-2..63;

    greenvalue2:-2..63;

    lb,rb,tb:boolean;

    buttoncount,errorcode:byte;

    x,y:word;

    i:-1..1;

begin

     initmouse(buttoncount,errorcode);

     cleardevice;

     setcolor(lightgreen);

     setlinestyle(0,2,3);

     rectangle(0,0,getmaxx,getmaxy);

     settextjustify(centertext,centertext);

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

     setcolor(3);

     outtextxy(getmaxx div 2,round(getmaxy / 2.5),'Markball');

     setcolor(1);

     settextstyle(7{TSCR.CHR},horizdir,2);

     settextjustify(lefttext,centertext);

     if s2='Click to start' then

        outtextxy(10,10,'Press F1 for the help');

     setcolor(2);

     settextstyle(7{TSCR.CHR},horizdir,3);

     outtextxy(getmaxx div 2,round(getmaxy / 1.3), s2);

     i:=1;

     redvalue:=1;

     greenvalue2:=62;

     repeat

       repeat

             inc(redvalue,i);

             setRGBpalette(3,redvalue,redvalue,0);

             getmouseXY(x,y,lb,rb,tb);

             inc(greenvalue2,-i);

             setRGBpalette(2,0,greenvalue2,greenvalue2);

             setRGBpalette(1,Greenvalue2,0,0);

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

       i:=-i;

       if keypressed then

          case readkey of

               #59{F1}:

                       begin

                         text_na_ekran;

                         SetGraphMode(vgahi);

                         setcolor(lightgreen);

                         setlinestyle(0,2,3);

                         rectangle(0,0,getmaxx,getmaxy);

                         settextjustify(centertext,centertext);

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

                         redvalue:=1;

                         greenvalue2:=62;

                         setcolor(3);

                         outtextxy(getmaxx div 2,round(getmaxy /

2.5),'Markball');

                         setcolor(1);

                         settextstyle(7{TSCR.CHR},horizdir,2);

                         settextjustify(lefttext,centertext);

                         if s2='Click to start' then

                         outtextxy(10,10,'Press F1 for the help');

                         setcolor(2);

                         settextstyle(7{TSCR.CHR},horizdir,3);

                         outtextxy(getmaxx div 2,round(getmaxy / 1.3), s2);

              &nbs

Пред. 21 22 23 24 25 След.

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

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