Школоло / Говнокод #1383 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 guest, (Updated )

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

  • ava guest # Ссылка на оригинал 0

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

  • ava guest # Ссылка на оригинал 0

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

    • ava guest # Ссылка на оригинал 0 ⇈

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

  • ava cp7 # Ссылка на оригинал 0

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

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

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓