Как написать змейку на паскале

Такая игра, как «Змейка», известна многим, не только детям, но и взрослым. В том случае, если человек знает хотя бы минимальные основы программирования посредством использования языка Паскаль, есть возможность написать её самостоятельно.

Змейка представляет собой игру, в которой по экрану полоска осуществляет перемещение. Изменять направление, в котором она будет двигаться, можно посредством использования клавиш влево, вправо, вниз и вверх. Ключевая цель игры заключается в том, что передвигающаяся змейка не должна столкнуться с «врагами», «препятствиями» и при этом собрать все возможные бонусы.

В процессе столкновениями с бонусом змейка будет автоматически увеличиваться. В том случае, если столкновение произойдет с препятствиями, то игра автоматически заканчивается и ее можно начинать с самого начала.

Решение задачи по созданию «Змейки» в Паскале

Рассматривая сам процесс написания кода программы к игре «Змейка», можно сказать, что для тех, кто только начинает заниматься программированием, задача достаточно сложная. Здесь даже можно остановиться на том варианте, когда по экрану будет перемещаться обыкновенная полоска, которую можно будет посредством клавиатуры перемещать в нужном направлении.

Ниже можно ознакомиться с вариантом кода для игры «Змейка». Но особенность этот варианта будет заключаться в том, что по площади экрана будет попросту перемещаться курсом посредством использования клавиш влево, вправо, вверх и вниз.

Как только он выйдет за границы, игра будет автоматически заканчиваться. При этом границы, за которые не может выйти курсор, в обязательном порядке должны быть прописаны в цикле while. Рассматривая ниже приведенный вариант, стоит обратить внимание на то, что у змейки будет полностью отсутствовать хвост.

Вариант реализации игры «Змейка» на языке программирования Паскаль будет выглядеть следующим образом:

В модуле graph также можно предложить следующую модель реализации этой игры на Паскале. Будет выглядеть она следующим образом:

Детальное описание разработки

Написание программы происходит в специальной среде программирования под наименованием TurboPascal. Именно в ней будет создано специальное контекстное меню, которое возникнет перед игроком в самом начале игрового процесса.

В этом меню каждый пользователь сможет найти подсказки по тому, как можно будет осуществлять процесс управления змейкой в процессе игры. На поле будет находиться змейка, которую нужно будет перемещать и бонусы, которые нужно будет собирать для ее дальнейшего перемещения.

Как только будет осуществлен процесс запуска программы, будут выполнены следующие действия:

• первоначально появится контекстное меню, в котором будет отображена специальная справка о том, каким образом можно будет осуществлять процесс управления змейкой;
• после этого игроку предлагается приступить к выполнению игрового процесса;
• после подтверждения перед игроком откроется специальное игровое поле зеленого цвета, где в точках с произвольными координатами будет появляться еда и бонусы, а также появиться змейка, которая сразу же начнет процесс движения в правую сторону.

Процесс управления змейкой можно реализовать посредством применения следующих клавиш:

• d – вправо;
• a – влево;
• s – вниз;
• w – вверх.

Хранение каждой из координат составляющих частей змейки будет происходить в специальной матрице. После того, как будет происходить процесс нажатия одной из клавиш, эти значения будут автоматически меняться и повторно сохраняться в матрице, а змейка при этом будет осуществлять свое передвижение.
В том случае, если координаты начала змейки и еды будут между собой совпадать, координаты, в которых находится еда и бонусы, будут автоматически меняться. При поедании змейкой еды или же бонусов ее длина будет автоматически изменяться на один сегмент.

Стоит обратить внимание на то, что на каждом из этапов змейка будет осуществлять проверку на то, не столкнулась ли змейка с препятствием. В том случае, если это все-таки произойдет, игровой процесс заканчивается, а игрок видит перед собой сообщение о проигрыше и возможность осуществить игру повторно в том случае, если он желает.

Если же игроку удастся собрать абсолютно все бонусы и всю еду до того момента, пока змейка достигнет максимально возможной длины, перед ним появится сообщение о том, что он выиграл. Поэтому, если кто-то думает, что игра «Змейка» является бесконечной, на самом деле это не так. В процессе написания игры указывается предельное значение длины змейки.

Рассматривая функциональное описание, стоит обратить внимание на то, что для точки есть необходимость выбрать тип данных spoint=record. Максимальная длина змейки будет выступать в качестве константы и здесь программист должен самостоятельно выбрать предельное значение. Если же рассматривать переменные, то среди них можно выделить следующие:

• координаты размещения еды и бонусов;
• длина змейки;
• координаты расположения головы змейки;
• координаты размещения отдельных частей тела змейки;
• флаг, отвечающий за конец игрового процесса;
• вектор, по которому будет происходить перемещение змейки.

Поэтому, чтобы реализовать такую игру, как «Змейка» посредством использования языка программирования Паскаль, можно сказать, что выполнить этот процесс вполне возможно. Но при этом у человека, который начинает изучать язык программирования, должны быть хотя бы минимальные знания в реализации этого процесса. В других случаях понадобиться большое количество сил и времени для того, чтобы без подготовки выполнить написание код программы к известной и популярной игре под наименованием «Змейка».

Uses graphABC,ABCObjects;
var
snake_lenght:integer{1};
i,xhead,yhead,z,appleX,appleY,t:integer;
head:CircleABC;
 
snake:array[1..4] of CircleABC;
apple:circleABC;
score:TextABC;
 
destructor Destroy;
 
procedure keyDown(key:integer);
begin
if(key=vk_Right) then z:=1; 
if(key=vk_Left) then z:=2; 
if(key=vk_Up) then z:=3; 
if(key=vk_Down) then z:=4; 
end;
 
 
begin
snake_lenght:=1;
for i:=0 to 6 do
begin
line(0,i*80,windowWidth,i*80);
end;
 
for i:=0 to 8 do
begin
line(i*80,0,i*80,windowHeight);
end;
 
xhead :=3*80-40;
yhead:=2*80-40;
 
appleX:=6*80-40;
appleY:=3*80-40;
 
apple:= CircleABC.Create(appleX,appleY,40,clRed);
 
head :=CircleABC.Create(xhead,yhead,40,clBlue);
 
 
for i:=1 to snake_lenght do
begin 
snake [i]:=CircleABC.Create(xhead,yhead+80*i,40,clBlue);
end;
 
 
score := TextABC.Create(5,0,80,'0',clGreen);
 
 
while(true) do
begin
onKeyDown :=keyDown;
 
if(z<>0)then
begin 
for i:= snake_lenght downto 2 do
begin
snake[i].MoveTo(snake[i-1].Position.X,snake[i-1].Position.Y);
end;
 
snake[1].MoveTo(xhead-40,yhead-40);
end;
 
if(z = 1) then xhead := xhead + 80
else if (z = 2) then xhead := xhead - 80
else if (z = 3) then yhead := yhead - 80
else if (z = 4) then yhead := yhead + 80;
 
 
if(xhead > windowWidth) then xhead := 40;
if(xhead < 0) then xhead := windowWidth - 40;
if(yhead > windowHeight) then yhead := 40;
if(yhead < 0) then yhead := windowHeight - 40;
 
if((xHead = appleX) and (yHead = appleY)) then
begin
if snake_lenght<4 then begin snake_lenght:=snake_lenght+1;
snake [snake_lenght]:=CircleABC.Create(snake[snake_lenght-1].Position.X,snake[snake_lenght-1].Position.Y,40,clBlue);end;
appleX := random(1,8)*80 - 40;
appleY := random(1,6)*80 - 40;
apple.MoveTo(appleX-40,appleY - 40);
score.Text := ((score.Text).ToInteger + 1).ToString();
 
end;
 
head.MoveTo(xhead-40,yhead-40);
sleep(500)
end;
 
 
end.

Exe Download

Code Download

uses crt;

const arenaSize=20;  //The size of the arena

startingSpeed=120;   //The starting speed(smaller=faster)

startingSize=18;     //The starting size of the snake

snakeColor=10;       //The snake color

foodColor=14;        //The food color

wallColor=9;         //The wall color

var xfood,yfood,count,size,cycle,i,last,first,score,negativePoints,food:integer;

keyCheck,sizeChange,foodNotOnSnake:boolean;

direction,d2:string;

speed:real;

Snake:array [1..2, 1..4000] of integer;

ch:char;

label start,lose;

begin

start:

begin

        clrscr;

        randomize;

        size:=startingSize+1;

        first:=size-1;

        speed:=startingSpeed;

        last:=0;

        score:=0;

        food:=0;

        negativePoints:=0;

        for count:=size downto 1 do

        begin

           snake[1,count]:=count+1;

           snake[2,count]:=2;

        end;

        direction:=’right’;

        repeat

        FoodNotOnSnake:=true;

        xfood:=random(arenaSize+8)+2;

        yfood:=random(arenaSize-2)+2;

        for i:=1 to first do

           for count:=first to size+1 do

              if ((xfood=snake[1,count])and(yfood=snake[2,count]))or((xfood=snake[1,i])and(yfood=snake[2,i])) then

                 foodNotOnSnake:=false;

        until foodNotOnSNake;

        xfood:=random(arenaSize+8)+2;

        yfood:=random(arenaSize-2)+2;

        textcolor(wallColor);

        gotoxy(1,1);

        write(#201);

        gotoxy(arenaSize+10,1);

        write(#187);

        gotoxy(1,arenaSize);

        write(#200);

        gotoxy(arenaSize+10,arenaSize);

        write(#188);

        for i:=2 to arenaSize+9 do

        begin

           gotoxy(i,1);

           write(#205);

           gotoxy(i,arenaSize);

           write(#205);

        end;

        for i:=2 to arenaSize-1 do

        begin

           gotoxy(1,i);

           write(#186);

           gotoxy(arenaSize+10,i);

           write(#186);

        end;

        textcolor(white);

        while (true) do

        begin

        speed:=speed-0.01;

        textcolor(foodColor);

        gotoxy(xfood,yfood);

        write(‘@’);

        textcolor(white);

        for count:=1 to size do

        begin

           textcolor(snakeColor);

           gotoxy(snake[1,count],snake[2,count]);

           if count=first+1 then

           begin

              case direction of

                 ‘up’:write(#30);

                 ‘down’:write(#31);

                 ‘left’:write(#17);

                 ‘right’:write(#16);

              end;

           end

           else

              write(#249);

           textcolor(white);

        end;

        gotoxy(1,1);

        for i:=1 to first-1 do

           for count:=first+1 to size-1 do

              if ((snake[1,first]=snake[1,count])and(snake[2,first]=snake[2,count]))or((snake[1,first]=snake[1,i])and(snake[2,first]=snake[2,i])) then

                 goto lose;

        sizeChange:=false;

        if (xfood=snake[1,first])and(yfood=snake[2,first]) then

        begin

           size:=size+1;

           snake[1,size]:=snake[1,last];

           snake[2,size]:=snake[2,last];

           sizeChange:=true;

           inc(food);

           speed:=speed-1;

           repeat

           FoodNotOnSnake:=true;

           xfood:=random(arenaSize+8)+2;

           yfood:=random(arenaSize-2)+2;

           for i:=1 to first-1 do

              for count:=first+1 to size+1 do

                 if ((xfood=snake[1,count])and(yfood=snake[2,count]))or((xfood=snake[1,i])and(yfood=snake[2,i])) then

                    foodNotOnSnake:=false;

        until foodNotOnSNake;

        end

        else inc(negativePoints);

        begin

        if last=size then

           last:=1

        else

           inc(last);

        end;

        if sizeChange then

        begin

           if first=size-1 then

              first:=1

           else

              inc(first);

        end

        else

        begin

        if first=size then

           first:=1

        else

           inc(first);

        end;

        gotoxy(snake[1,last],snake[2,last]);

        write(‘ ‘);

        if (snake[1,first]<2)or(snake[2,first]<2)or(snake[1,first]>=arenaSize+10)or(snake[2,first]>=arenaSize) then

           goto lose;

        if keypressed then

        begin

           ch:=readkey;

           if ch=’p’ then

              ch:=readkey;

           if ch=#0 then

           begin

              ch:=readkey;

              case ch of

                 #72:if direction<>’down’ then

                        direction:=’up’;

                 #80:if direction<>’up’ then

                        direction:=’down’;

                 #75:if direction<>’right’ then

                        direction:=’left’;

                 #77:if direction<>’left’ then

                        direction:=’right’;

              end;

           end

           else

           if ch=#27 then

              exit;

        end;

        if direction=’left’ then

        begin

           snake[1,last]:=snake[1,first]-1;

           snake[2,last]:=snake[2,first];

        end;

        if direction=’right’ then

        begin

           snake[1,last]:=snake[1,first]+1;

           snake[2,last]:=snake[2,first];

        end;

        if direction=’up’ then

        begin

           snake[1,last]:=snake[1,first];

           snake[2,last]:=snake[2,first]-1;

        end;

        if direction=’down’ then

        begin

           snake[1,last]:=snake[1,first];

           snake[2,last]:=snake[2,first]+1;

        end;

        score:=food*100-negativePoints;

        if score<0 then

           score:=0;

        gotoxy(5,arenaSize+1);

        write(‘Eaten food:’,food);

        delay(round(speed));

        end;

end;

        lose:

        begin

           textcolor(12);

           gotoxy(arenaSize+11,1);

           writeln(‘You lose!Your score is:’,score);

           gotoxy(arenaSize+11,2);

           write(‘Press any key to play again or Esc to quit…’);

           repeat

              ch:=readkey;

К оглавлению | Назад | Вперёд

Все программы, код которых выложен здесь, являются работоспособными. Ниже приведены возможные варианты реализации игр «Крестики-нолики» и «Змейка» на PascalABC.Net 3.0.

Крестики-нолики[править]

Управление:

• Левая кнопка мыши — установить крестик/нолик.

uses GraphABC;
const
  N = 2;
  Z = '0';
  K = 'X';
  Size = 200;
  Border = 1;
  Sx = 1200;
  Sy = 70;

var
  Matrix: array [0..N, 0..N] of char;
  Player1: boolean;

procedure Draw();
  procedure DrawZ(i, j: integer);
  begin
    SetPenColor(clCyan);
    SetPenWidth(4);
    var size2 := Size div 2;
    DrawCircle((i + 1) * Size - size2, (j + 1) * Size - size2, Round(size2 * 0.7));
  end;
  
  procedure DrawK(i, j: integer);
    procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1));

  begin
    SetPenColor(clPink);
    SetPenWidth(4);
    var size2 := Size div 2 * 0.3;
    var cx1 := i * Size + size2;
    var cy1 := j * Size + size2;
    var cx2 := (i + 1) * Size - size2;
    var cy2 := (j + 1) * Size - size2;
    RLine(cx1, cy1, cx2, cy2);
    RLine(cx1, cy2, cx2, cy1);
  end;

  begin
    ClearWindow(clBlack);
    if Player1 then SetWindowCaption('Ходит первый игрок') else SetWindowCaption('Ходит второй игрок');
    for var i := 0 to N do
      for var j := 0 to N do
      begin
        SetPenColor(clLightBlue);
        SetPenWidth(1);
        DrawRectangle(i * Size + Border, j * Size + Border, (i + 1) * Size - Border, (j + 1) * Size - Border);
        if Matrix[i, j] = Z then DrawZ(i, j)
        else if Matrix[i, j] = K then DrawK(i, j);
      end;
    Redraw();
  end;

function Won(c: char): boolean;
var
  count: byte;
begin
  Result := false;
  for var i := 0 to N do
  begin
    count := 0;
    for var j := 0 to N do
      if Matrix[i, j] = c then Inc(count);
    if count = 3 then Result := true;
  end;
  
  if not Result then
  begin
    for var i := 0 to N do
    begin
      count := 0;
      for var j := 0 to N do
        if Matrix[j, i] = c then Inc(count);
      if count = 3 then Result := true;
    end;
    
    if not Result then
    begin
      count := 0;
      for var i := 0 to N do
        if Matrix[i, i] = c then Inc(count);
      if count = 3 then Result := true;
      
      if not Result then
      begin
        count := 0;
        for var i := 0 to N do
          if Matrix[N - i, i] = c then Inc(count);
        if count = 3 then Result := true;
      end;
    end;
  end;
end;

function IsFull(): boolean;
begin
  Result := true;
  for var i := 0 to N do
    for var j := 0 to N do
      if (Matrix[i, j] <> Z) and (Matrix[i, j] <> K) then
      begin
        Result := false;
        break;
      end;
end;

procedure MouseDown(x, y, mb: integer);
  procedure ShowWinner(s: string; c: Color);
  begin
    SetWindowCaption('Результат игры');
    Sleep(2000);
    SetWindowSize(Sx, Sy);
    CenterWindow();
    ClearWindow(clBlack);
    
    SetFontSize(16);
    SetFontStyle(fsBold);
    SetFontColor(c);
    DrawTextCentered(0, 0, Sx, Sy, s);
    
    Redraw();
    Sleep(2000);
    Halt();
  end;

begin
  var i := x div Size;
  var j := y div Size;
  if (Matrix[i, j] <> Z) and (Matrix[i, j] <> K) then
  begin
    if Player1 then Matrix[i, j] := Z else Matrix[i, j] := K;
    Draw();
    
    var winnerExists := Won(Z) or Won(K);
    if winnerExists then
      if Player1 then ShowWinner('Игрок первый победил!', clLightBlue) else ShowWinner('Игрок второй победил!', clLightBlue);
    
    if IsFull() and not winnerExists then ShowWinner('Ничья!', clOrange);
    
    Player1 := not Player1;
  end;
end;

begin
  var Size2 := Size * 3;
  SetWindowIsFixedSize(true);
  SetWindowSize(Size2, Size2);
  CenterWindow();
  LockDrawing();
  
  Player1 := true;
  Draw();
  
  OnMouseDown := MouseDown;
end.

Змейка[править]

==Упрощенный вариант== (просто змейка которой можно управлять)

Управление:

• W — вверх.
• S — вниз.
• A — влево.
• D — вправо.

uses GraphABC;
const
  Size = 20;

var
  Snake: List<Point>;

procedure Draw();
begin
  ClearWindow();
  Polyline(Snake.ToArray());
  
  var c := Snake.Count - 1;
  Circle(Snake[c].X, Snake[c].Y, 5);
  Redraw();
end;

procedure KeyDown(Key: integer);
begin
  var c := Snake.Count - 2;
  case Key of
    VK_Left:
      begin
        Snake.RemoveAt(0);
        Snake.Add(new Point(Snake[c].X - Size, Snake[c].Y));
      end;
    VK_Right:
      begin
        Snake.RemoveAt(0);
        Snake.Add(new Point(Snake[c].X + Size, Snake[c].Y));
      end;
    VK_Up:
      begin
        Snake.RemoveAt(0);
        Snake.Add(new Point(Snake[c].X, Snake[c].Y  - Size));
      end;
    VK_Down:
      begin
        Snake.RemoveAt(0);
        Snake.Add(new Point(Snake[c].X, Snake[c].Y  + Size));
      end;
  end;
  Draw();
end;

begin
  LockDrawing();
  SetSmoothingOff();
  
  Snake := new List<Point>();
  for var x := 1 to 30 do
    Snake.Add(new Point(x * Size, Size));
  
  Draw();
  OnKeyDown := KeyDown;
end.

Возрастающая последовательность[править]

uses GraphABC, ABCObjects;
const
  Border = 100;


var
  Obj: CircleABC;
  DX, DY: integer;
  Move: boolean;
  Numbers: TCircles;

function IsEqual(L2: TCircles): boolean;
begin
  Result := true;
  for var i := 0 to L2.Count - 1 do
    if Numbers[i].Number <> L2[i].Number then
    begin
      Result := false;
      break;
    end;
end;

procedure MouseUp(x, y, mb: integer);
procedure MouseMove(x, y, mb: integer);
begin
  if mb = 1 then
    if not Move then
    begin
      for var i := 0 to Numbers.Count - 1 do
        if Numbers[i].PtInside(x, y) then
        begin
          DX := x - Numbers[i].Position.X;
          DY := y - Numbers[i].Position.Y;
          Obj := Numbers[i];
          
          Move := true;
          break;
        end;
    end
    else
      Obj.Position := new Point(x - Dx, y - Dy);
end;

begin
  var W := Window.Width - 2 * Border;
  var H := Window.Height - 2 * Border;
  
  Numbers := new TCircles();
  for var i := 0 to 6 do
  end
    Numbers.Add(new CircleABC(Border + Random(W), Border + Random(H), 30, clRandom()));
    Numbers.Last().Number := i;
  
  Move := false;
  OnMouseMove := MouseMove;
  OnMouseUp := MouseUp;
end.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #