Игра змейка

{Код игры}
 
program GameSnake;
 
Uses GraphABC;
type
  point = record 
    x, y: integer;
  end;
 
var
  x, y, i, v, right, left, up, down, key, score: integer;
  wall, snake, background, menu, food, body, control: picture;
  foods: array[1..2] of point;
  game, active, settings, readnickname, readSound: boolean;
  IG: array[1..3] of string;
  t: text;
 
 
 
procedure KeyDown(Key: integer);
begin
  if key = vk_left then left := 1;
  if key = vk_right then right := 1;
  if key = vk_up then up := 1;
  if key = vk_down then down := 1;
end;
 
procedure KeyUp(Key: integer);
begin
  if key = vk_left then left := 0;
  if key = vk_right then right := 0;
  if key = vk_up then up := 0;
  if key = vk_down then down := 0;
  if key = vk_escape then game := false;
  if key = vk_escape then settings := false;
 
end;
 
procedure MouseUp(x, y, mb: integer);
begin
  if (mb = 1) and (x > 125) and (x < 203) and (y > 105) and (y < 133) then game := true;
  if (mb = 1) and (x > 125) and (x < 210) and (y > 265) and (y < 295) then active := false;
  if (mb = 1) and (x > 125) and (x < 295) and (y > 185) and (y < 215) then  settings := true;
end;
 
procedure MouseUpSettings(x, y, mb: integer);
begin
  if (mb = 1) and (x > 340) and (x < 510) and (y > 99) and (y < 135) then readnickname := true;
  if (mb = 1) and (x > 230) and (x < 300) and (y > 179) and (y < 214) then readSound := true;
end;
 
begin
  Coordinate.Origin := (0, 0);
  Window.caption := 'Game_Snake_1.0';
  SetWindowSize(720, 532);
  Window.IsFixedSize := true;
  LockDrawing;
  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp;
  OnMouseUp := MouseUp;
  background := picture.Create('data/background.png');
  menu := picture.Create('data/menu.png');
  food := picture.Create('data/food.png');
  wall := picture.Create('data/wall.png');
  body := picture.Create('data/body.png');
  snake := picture.Create('data/snake.png');
  control := picture.Create('data/control.png');
  var Mchamping := System.Media.SoundPlayer.Create('data/champing.wav');
  var MSnake := System.Media.SoundPlayer.Create('data/snakeM.wav');
  x := 360; y := 200;
  score := 0;
  for i := 1 to 1 do
  begin
    foods[i].x := random(650);
    foods[i].y := random(462);
  end;
  settings:=false;
  game := false;
  active := true;
  while active do
  begin
    readnickname := false;
    readSound := false;
    ClearWindow;
    assign(t, 'data/info_game.txt');
    reset(t);
    for i := 1 to 3 do
    readln(t, IG[i]);
    close(t);
    menu.Draw(0, 0);
    Redraw;
    while settings do
    begin
      ClearWindow;
      OnMouseUp := MouseUpSettings;
      control.Draw(0, 0);
      SetFontSize(24);
      SetFontColor(clBlack);
      TextOut(340, 99, IG[1]);
      TextOut(230, 179, IG[2]);
      TextOut(230, 261, IG[3]);
      if (IG[2] <> 'on') and (IG[2] <> 'off') then 
      begin
        SetFontSize(15);
        SetFontColor(clRed);
        TextOut(82,465, 'Error:Invalid value terms');
      end;
      if readnickname then
      begin
        readln(IG[1]);
        readnickname := false;
      end;
      if readSound then
      begin
        readln(IG[2]);
        readSound := false;
      end;
      Redraw;
    end;
    while game do
    begin
      clearwindow;
      background.Draw(0, 0);
      wall.Draw(0,0);
      TextOut(10, 10, score.ToString); setbrushcolor(clTransparent);
      for i := 1 to 1 do food.Draw(foods[i].x, foods[i].y);
      snake.Draw(x, y);
      if left = 1 then 
      begin
        x := x - 2;
        right := 0;
        up := 0;
        down := 0;
      end;
      if right = 1 then 
      begin
        x := x + 2;
        left := 0;
        up := 0;
        down := 0;
      end;
      if up = 1 then 
      begin
        y := y - 2;
        right := 0;
        left := 0;
        down := 0;
      end;
      if down = 1 then 
      begin
        y := y + 2;
        right := 0;
        up := 0;
        left := 0;
      end;
      if (x <= 0) or (x >= 684) or (y <= 0) or (y >= 492) then
      begin
        x := 360; 
        y := 200;
        game := false;
      end;
      if (x + 20 >= foods[i].x + 2) and (y + 16 >= foods[i].y + 2) and (x <= foods[i].x + 23) and (y <= foods[i].y + 23) then
      begin
        foods[i].x := random(700);
        foods[i].y := random(380);
        Mchamping.Play();
        score := score + 1;
      end;
      Redraw;
    end;
  end;
  Halt;
end.
 
{Код игры}