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

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

                       end;

               #13:exit;

          end;

     until rb or lb;

end;

procedure ochki(score:word);

var f:text;

    s:string[15];

   c:word;

    numb,mynumber:-5..20;

    player:t_mas;

    players_name:array [1..11] of string[15];

    x,y:word;

    i:char;

    myname:string[15];

    label ld;

begin

     assign(f,'record.txt');

     reset(f);

     readln(f);

     numb:=0;

     while not eof(f) do

           begin

                readln(f,c);

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

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

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