Программирование / Курсовые / Arcanoid / Arcanoid / ARCUNIT

unit ArcUnit;
interface
 var Mouse:boolean;
 procedure Zastavka;
 procedure OutMenuStr(ns,CF: word);
 procedure RunMenu;
 procedure Menu;
 procedure Help;
implementation

uses graph, Crt, ArcUnitK;
const MaxNs = 2;
 procedure Zastavka;
 var drv,mode: Integer;
  begin
  drv:=vga;
mode:=2;
initgraph(drv,mode,'c:\progra~1\borland\tp\bgi');
setbkcolor(blue);
setcolor(red);
settextstyle(4,0,10);
outtextxy(95,100,'Arcanoid');
setcolor(white);
settextstyle(3,0,0);
outtextxy(150,250,'Esc - begin game');
outtextxy(150,285,'F1 - help');
outtextxy(150,310,'F2 - control');
   repeat ReadKey;
    if GetKey(kbEsc) or GetKey(13) then begin Break; Exit; end;
    if GetKey(60) then begin Menu; Break; end;
    if GetKey(59) then begin Help; Break; end;
   until KeyPressed;
closegraph;
end;

 {--------------------------}

procedure OutMenuStr(ns,CF: word);
 var im : word;
Begin
  GotoXY( 28,7); Write('‚лЎ®а гЇа ў«Ґ­Ёп');
  TextColor(white);TextBackGround(CF);
  case ns of
  1:begin GotoXY(20,10); for im:=1 to 30 do Write(' ');
          GotoXY(20,10); Write('1.“Їа ў«Ґ­ЁҐ б Є« ўЁ вгал.');
    end;
  2:begin GotoXY(20,11); for im:=1 to 30 do Write(' ');
          GotoXY(20,11); Write('2.“Їа ў«Ґ­ЁҐ ¬лимо.');
    end;
  end;
End;

procedure RunMenu;
var i : word;
 begin
  ClrScr; for i:=1 to MaxNs do OutMenuStr(i,0);
 end;
var ns : word;  Ch : char;

procedure Menu;
Begin
  closegraph;
  RunMenu; ns:=1;
  repeat
    if ns<>0 then OutMenuStr(ns,7);
    Ch:=ReadKey;
    if ns<>0 then OutMenuStr(ns,0);
    case Ch of
    #0:begin Ch:=ReadKey;
         case Ch of
         #72:if ns<>0 then if ns>1 then ns:=ns-1 else ns:=MaxNs;
         #80:if ns<>0 then if ns<MaxNs then ns:=ns+1 else ns:=1;
         end;
       end;
    #13:case ns of
        1:begin Mouse:=False; Break; Zastavka end;
        2:begin Mouse:=True; Break; Zastavka end;
        end;
    #27: begin Break; Zastavka end;
    end;
  until FALSE;
  TextBackGround(0); ClrScr; Zastavka
End;

procedure Help;
 begin
  closegraph;
  TextBackGround(blue);
  ClrScr;
  Textcolor(White);
  GotoXY( 35,2); Write('HELP');
  GotoXY( 25,7); Write(' “Їа ў«Ґ­ЁҐ б Є« ўЁ вгал: ');
  GotoXY( 25,9); Write('„Ґ©бвўЁҐ             Љ« ўЁи ');
  GotoXY( 25,10); Write('‚«Ґў®                a');
  GotoXY( 25,11); Write('‚Їа ў®               d');
  GotoXY( 25,14); Write('‚л室 ў® ўаҐ¬п ЁЈал  Esc');
  GotoXY( 30,20); Write('Press Enter to Exit');
  ReadLn; ClrScr; Zastavka;
 end;
end.