Пост #1350
24.07.2026 09:53
// Змейка — классическая игра на языке Ы
// Управление: стрелки / WASD
// q — выход
функция змейка() ::> {
сырой_режим(истина)
вывести("\x1b[?1049h\x1b[?25l")
своя т = размер_терминала()
своя ширина = т[0]
своя высота = т[1]
своя поле_ш = ширина - 2
своя поле_в = высота - 3
если (поле_ш < 10) ступень ::> { поле_ш = 10 }
если (поле_в < 10) ступень ::> { поле_в = 10 }
своя длина_тела = 3
своя голова_х = 5
своя голова_у = поле_в / 2
своя напр_х = 1
своя напр_у = 0
// тело[0] = голова (O), тело[1..] = хвост (o)
своя тело = (голова_у * поле_ш + голова_х)..(голова_у * поле_ш + голова_х + 1)
тело = тело ++ ((голова_у * поле_ш + (голова_х - 1))..(голова_у * поле_ш + голова_х))
тело = тело ++ ((голова_у * поле_ш + (голова_х - 2))..(голова_у * поле_ш + (голова_х - 1)))
своя еда_поз = 0
своя еда_годна = ложь
своя счёт = 0
своя работаем = истина
своя игра_идёт = истина
пока (работаем) ступень ::> {
если (не еда_годна) ступень ::> {
еда_поз = случайное(поле_ш * поле_в)
еда_годна = истина
своя к = 0
пока (к < длина_тела) ступень ::> {
если (тело[к] == еда_поз) ступень ::> { еда_годна = ложь }
к = к + 1
}
}
своя буфер = "\x1b[H"
своя к = 0
буфер = буфер ++ "#"
пока (к < поле_ш) ступень ::> {
буфер = буфер ++ "#"
к = к + 1
}
буфер = буфер ++ "#\r\n"
своя у = 0
пока (у < поле_в) ступень ::> {
буфер = буфер ++ "#"
своя х = 0
пока (х < поле_ш) ступень ::> {
своя поз = у * поле_ш + х
своя символ = " "
если (поз == еда_поз) ступень ::> { символ = "*" }
иначе ступень ::> {
своя з = 0
пока (з < длина_тела) ступень ::> {
если (тело[з] == поз) ступень ::> {
если (з == 0) ступень ::> { символ = "O" }
иначе ступень ::> { символ = "o" }
}
з = з + 1
}
}
буфер = буфер ++ символ
х = х + 1
}
буфер = буфер ++ "#\r\n"
у = у + 1
}
к = 0
буфер = буфер ++ "#"
пока (к < поле_ш) ступень ::> {
буфер = буфер ++ "#"
к = к + 1
}
буфер = буфер ++ "#\r\n"
буфер = буфер ++ " Счёт: " ++ счёт ++ " Q:Выход"
если (не игра_идёт) ступень ::> { буфер = буфер ++ " ИГРА ОКОНЧЕНА!" }
вывести(буфер)
своя кл = клавиша()
если (кл == "q") ступень ::> { работаем = ложь }
если (игра_идёт) ступень ::> {
если (кл == "\x1b[A") ступень ::> {
если (напр_у != 1) ступень ::> {
напр_х = 0
напр_у = -1
}
}
}
если (игра_идёт) ступень ::> {
если (кл == "\x1b[B") ступень ::> {
если (напр_у != -1) ступень ::> {
напр_х = 0
напр_у = 1
}
}
}
если (игра_идёт) ступень ::> {
если (кл == "\x1b[D") ступень ::> {
если (напр_х != 1) ступень ::> {
напр_х = -1
напр_у = 0
}
}
}
если (игра_идёт) ступень ::> {
если (кл == "\x1b[C") ступень ::> {
если (напр_х != -1) ступень ::> {
напр_х = 1
напр_у = 0
}
}
}
если (игра_идёт) ступень ::> {
если (кл == "w") ступень ::> {
если (напр_у != 1) ступень ::> {
напр_х = 0
напр_у = -1
}
}
}
если (игра_идёт) ступень ::> {
если (кл == "s") ступень ::> {
если (напр_у != -1) ступень ::> {
напр_х = 0
напр_у = 1
}
}
}
если (игра_идёт) ступень ::> {
если (кл == "a") ступень ::> {
если (напр_х != 1) ступень ::> {
напр_х = -1
напр_у = 0
}
}
}
если (игра_идёт) ступень ::> {
если (кл == "d") ступень ::> {
если (напр_х != -1) ступень ::> {
напр_х = 1
напр_у = 0
}
}
}
если (игра_идёт) ступень ::> {
своя нов_х = голова_х + напр_х
своя нов_у = голова_у + напр_у
своя нов_поз = нов_у * поле_ш + нов_х
если (нов_х < 0) ступень ::> { игра_идёт = ложь }
если (нов_х >= поле_ш) ступень ::> { игра_идёт = ложь }
если (нов_у < 0) ступень ::> { игра_идёт = ложь }
если (нов_у >= поле_в) ступень ::> { игра_идёт = ложь }
если (игра_идёт) ступень ::> {
своя к_т = 1
пока (к_т < длина_тела) ступень ::> {
если (тело[к_т] == нов_поз) ступень ::> { игра_идёт = ложь }
к_т = к_т + 1
}
}
если (игра_идёт) ступень ::> {
если (нов_поз == еда_поз) ступень ::> {
длина_тела = длина_тела + 1
счёт = счёт + 1
еда_годна = ложь
}
// Новое тело: [нов_голова, тело[0], тело[1], ..., тело[длина_тела-2]]
своя новое_тело = (нов_поз..(нов_поз + 1))
своя предел = длина_тела - 1
своя к_дв = 0
пока (к_дв < предел) ступень ::> {
новое_тело = новое_тело ++ (тело[к_дв]..(тело[к_дв] + 1))
к_дв = к_дв + 1
}
тело = новое_тело
голова_х = нов_х
голова_у = нов_у
}
}
пауза(150)
}
вывести("\x1b[?1049l\x1b[?25h")
сырой_режим(ложь)
вывести("Счёт: " ++ счёт)
}
змейка()Ы скоро...
1
+1 / -0