1. Pascal / Говнокод #1383

    +63.9

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    Procedure CalcStep;
var key : char;
{Calculates the direction}
begin
 if keypressed then
 begin
  key:=readkey;
  if key in [#77,#75,#80,#72,#27] then
   begin SnakeDr:=key; CalcStep; end;
 end
 else
 case SnakeDr of
  #72 : if snake[1].y=1 then snake[1].y:=23 else dec(snake[1].y);
  #80 : if snake[1].y=23 then snake[1].y:=1 else inc(snake[1].y);
  #75 : if snake[1].x=1 then snake[1].x:=78 else dec(snake[1].x);
  #77 : if snake[1].x=78 then snake[1].x:=1 else inc(snake[1].x);
 end;
end;

    Нашел тут собственное творчество. Судя по всему писал в нетрезвом состоянии, ибо сейчас с трудом понимаю, зачем здесь такая рекурсия? О_о

    Запостил: guest, 19 Июля 2009

    Комментарии (5) RSS

    • ava guest 10.08.2009 17:42 # −3

      какая йопт рекурсия. Где ты видишь тут рекурсию. Рекурсия это когда процедура вызывает сама себя.
      Ответить

    • ava guest 10.08.2009 20:24 # 0

      > begin SnakeDr:=key; CalcStep; end;
      вот и выхов +_+
      Ответить

    • ava guest 23.09.2009 18:57 # 0

      Хорошая идея для триал-версии проги. Вывалевается после N нажатий клавиши.
      Ответить

      • ava guest 21.10.2009 11:41 # 0

        после одного нажатия одной из следующих кнопок [#77,#75,#80,#72,#27] =)
        Ответить

    • ava cp7 25.08.2021 02:48 # 0

      - Лёка, мой Лёка..., - он терся об меня, прижимая к себе, я запустил руку себе сзади между ног и нащупал головку его члена, он водил бедрами и она то появлялась, то пряталась между моими ногами. Я раздвинул ноги и схватил весь его орган рукой. Пашка дрожал, не смотря на возбуждение, он, как и я замерз, зубы стучали, его бока покрылись гусиной кожей.
      Ответить

    Добавить комментарий