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

    • какая йопт рекурсия. Где ты видишь тут рекурсию. Рекурсия это когда процедура вызывает сама себя.
      Ответить
    • > begin SnakeDr:=key; CalcStep; end;
      вот и выхов +_+
      Ответить
    • Хорошая идея для триал-версии проги. Вывалевается после N нажатий клавиши.
      Ответить
      • после одного нажатия одной из следующих кнопок [#77,#75,#80,#72,#27] =)
        Ответить
    • - Лёка, мой Лёка..., - он терся об меня, прижимая к себе, я запустил руку себе сзади между ног и нащупал головку его члена, он водил бедрами и она то появлялась, то пряталась между моими ногами. Я раздвинул ноги и схватил весь его орган рукой. Пашка дрожал, не смотря на возбуждение, он, как и я замерз, зубы стучали, его бока покрылись гусиной кожей.
      Ответить

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