Hra Snake v Pascale

PROGRAM Had;
USES crt,graph;
VAR xx, yy: array [1..2000] of integer;
  a,b,bb,x,y,f,i,j,r,s,k,Px,Py,gd,gm,body: integer;
  Key : char;
  test: boolean;
  Str:string;

procedure kriz;
 BEGIN
  Px:=random(640);
  Py:=random(480);
  FOR i:=-3 TO 3 DO
   BEGIN
    PUTPIXEL(Px+i,Py,14); {14 = yellow}
    PUTPIXEL(Px,Py+i,14);
   END;
  a:=1;
 END;

BEGIN
 ClrScr;
 r:= 7; {rychlost hada}
 f:= 2; {2 = green }
 INITGRAPH(gd,gm,'c:\tpascal\bgi'); {cesta k graph.tpu}
 RANDOMIZE;
 a:=1;
 i:=1;
 test:=false;
 x := 100;
 y := 240;
 body := 0;
 SETCOLOR(f+1);
 RECTANGLE (0,0,639,479);
 REPEAT kriz; UNTIL a = 1; {prvy krizik}
 i := 1;
 REPEAT
  PUTPIXEL (x,y,f); {vykresli hada }
  DELAY (r); {rychlost hada}
  PUTPIXEL (xx[a],yy[a],0); { 0=black }
  xx[a] := x; {pohyb}
  yy[a] := y;
  a := a+1;
  IF a=150*i+1 THEN a:=1; { spodna hranica }
  IF test = false THEN x := x+1; { zisti pohyb hada}
  IF ORD (key) = 72 THEN y := y-1; { hore }
  IF ORD (key) = 75 THEN x := x-1; { vlavo }
  IF ORD (key) = 77 THEN x := x+1; { vpravo}
  IF ORD (key) = 80 THEN y := y+1; { dole }
  IF GETPIXEL (x,y) = f+1 THEN key := 'x';
  IF GETPIXEL (x,y) = f THEN key := 'x';
  IF GETPIXEL (x,y) = 14 THEN { 14=yellow }
  BEGIN
   FOR b := y-10 TO y+10 DO
    BEGIN
     FOR bb := x-10 TO x+10 DO
      BEGIN
       IF GETPIXEL(bb,b)=14 THEN
       BEGIN
        PUTPIXEL(bb,b,0); { 0 = black }
        body:=body + 1;
       END;
      END;
    END;
   REPEAT {vykresli druhy a dalsie kriziky}
    Px := RANDOM (640);
    Py := RANDOM (480);
    IF GETPIXEL (Px,Py) = 0 THEN
     BEGIN
      FOR b:=-3 TO 3 DO
      BEGIN
       PUTPIXEL (Px+b, Py ,14); { 14 = yellow }
       PUTPIXEL (Px, Py+b, 14);
      END;
      b:=1;
     END
     ELSE b:=0;
   UNTIL b=1;
   i:=i+1;
  END;
  IF KEYPRESSED THEN test := true; {kontrola toho isteho pohybu}
  IF KEYPRESSED THEN key := readkey; { pohyb do strany}
 UNTIL (key = 'x') OR (i = 11);
 IF key = 'x' THEN
 BEGIN
  SETTEXTSTYLE (1,0,8);
  SETCOLOR (10); { light green }
  OUTTEXTXY (100,200,'GAME OVER...'); { efektny koniec }
 END;
 IF i=11 THEN
 BEGIN
  SETCOLOR (10); { light green }
  SETTEXTSTYLE (3,0,8);
  CLEARDEVICE;
  OUTTEXTXY (150,200,'VITAZ!'); { koniec s vitazom }
 END; {DELAY (500);}
 READKEY;
 CLOSEGRAPH;
 CLRSCR;
 j:=27;
 Str:='N A H R A L  SI : ';
 FOR s:=1 TO 18 DO
 BEGIN
  {SOUND (200);}
  delay(50);
  GOTOXY (j,12);WRITE (Str[s]);
  DELAY (50);
  {nosound;}
  j:=j+1;
 END;
 REPEAT
  FOR K:=1 TO 3 DO
  BEGIN
{   TEXTCOLOR (0);
   GOTOXY (57,12);WRITELN ((body DIV 13)*100 ,' BODOV');
   DELAY (300);}
   TEXTCOLOR (13);
   GOTOXY (47,12);WRITELN ((body DIV 13)*100 ,' BODOV');
   DELAY (100); WRITELN;
   NORMVIDEO;
   WRITELN; WRITE('Stlac Enter...');
  END;
 UNTIL KEYPRESSED;
 READLN;
END.