ПОЖИРАТЕЛЬ МИРОВ В ВЫЖИВАНИИ | PepeLand 6 Серия 9

1 и 4 команда шедевр

Я живу в Архангельске

hiter67💓

Ха-ха отсылка на амогус

Лайтматика?

Попробую ЭТО построить!

Кто из 2024

Построй ту машину бессмертия из 2б2т

Салам из Комсомольска на Амуре

Лол Террария

Кто играет в Майнкрафт в 40 лет?

Когда обгонишь перьмь

dddd

но саратов ты не обогнал

Мой город ваш канал давно обогнал)

Пожиратель миров в террарии?

```pascal
program SnakeGame;

const
Width = 20;
Height = 10;
SnakeBodyChar = 'X';
FruitChar = '*';

type
Direction = (Up, Down, Left, Right);
SnakeSegment = record
X, Y: integer;
end;

var
Snake: array [1..Width*Height] of SnakeSegment;
SnakeLength, FruitX, FruitY: integer;
GameOver: boolean;
HeadX, HeadY: integer;
Dir: Direction;

procedure InitializeSnake;
begin
SnakeLength := 1;
Snake[1].X := Width div 2;
Snake[1].Y := Height div 2;

HeadX := Snake[1].X;
HeadY := Snake[1].Y;
end;

procedure PlaceFruit;
begin
FruitX := Random(Width) + 1;
FruitY := Random(Height) + 1;
end;

procedure Draw;
var
i, j: integer;
begin
clrscr;

for i := 1 to Height do
begin
for j := 1 to Width do
begin
if (i = HeadY) and (j = HeadX) then
write(SnakeBodyChar)
else if (i = FruitY) and (j = FruitX) then
write(FruitChar)
else
write('.');
end;
writeln;
end;
end;

procedure Update;
begin
case Dir of
Up: HeadY := HeadY - 1;
Down: HeadY := HeadY + 1;
Left: HeadX := HeadX - 1;
Right: HeadX := HeadX + 1;
end;

if (HeadX = FruitX) and (HeadY = FruitY) then
begin
SnakeLength := SnakeLength + 1;
PlaceFruit;
end;

if (HeadX < 1) or (HeadX > Width) or (HeadY < 1) or (HeadY > Height) then
GameOver := true;
end;

begin
randomize;
InitializeSnake;
PlaceFruit;
GameOver := false;
Dir := Right;

while not GameOver do
begin
Draw;
Update;
// Пауза, чтобы видеть изменения (можно изменить для скорости змейки)
Delay(200);
end;

writeln('Game Over! Your score: ', SnakeLength - 1);

end.
```

Житель этого мира: привет, меня зовут селянен. Я обычный житель этого мира, я живу, эм, то есть жил в уютной деревне. Сейчас я живу в огромное яме, тут не много сыро.. И зомби много... Но это ведь для благово дела. Контент для канала.

Ты сказал вместо Иркутск,сказал Якутск

О, нифига, ты тоже адекватный человек и против войны

Как давно тут вставка в конце, хм...

Я с Воложского

Вы что тупые пожиратель миров босс в террарии

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

почему у пугода меньше подписчиком чем у альфедова?

10 минут офигенного эпика😊

и осталось 4

пожиратель жиров

Пойду убью глиста

Нету звука

Думаю про майн
Вспомнил тераррию

Погод слей ip сервера

И я который живу в калуге

зачем там табличка с надписью секс

Почему играет музыка босса?

Террария момент

Я пожиратель миров избранник богов,
Снова к битве готов
Твой мир теперь обречен в жертву он принесен
Трону из черепов

Когда на скелетрона?

Наберём ему полтора млн а то у меня в городе столько живёт

кажется кто-то разбил 3 теневых сферы в порче