1. Список говнокодов пользователя TarasB

    Всего: 94

  2. Pascal / Говнокод #3329

    +86

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    procedure Click(H: hWnd);
begin
  SendMessage(H, wm_LButtonDown, 0, 0);
  SendMessage(H, wm_LButtonUp, 0, 0);
end;

    Как я круто по-хакерски сэмулировал нажатие на кнопку или на радиобаттон.

    TarasB, 26 Мая 2010

    Комментарии (30)

  3. Pascal / Говнокод #3328

    +107

    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
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    var
  OGTC: cardinal; // для сверки с таймером

procedure CheckPhys;
begin
  if OGTC < GetTickCount then begin
    Phys;   // тут считается вся игровая физика и все изменения состояний. Звуки тоже здесь.
    Inc(OGTC, dT);
  end;
end;

procedure Graph;     // процедура отрисовки графики
var
  i: integer;
begin
  CheckPhys;
  for i := 0 to ItemCount - 1 do with Items[i]^ do CopyPosition := Position; // делаем копию состояния перед отрисовкой мира!
  for i := 0 to ItemCount - 1 do begin
    ShowItem(Items[i]^);           // рисуем элемент мира
    CheckPhys;                     // проверяем, не пора ли снова считать физику
  end;
end;

procedure OnIdle;
begin
  if PlayingGame then Graph;
end;

    Надо, чтобы в игре скорость игрового процесса не зависела от тормозов графики. Даже когда кадр долго рисуется, звуки и движения делаются строго по таймеру. Создавать лишний поток мне в лом, и вообще я дико боюсь приколов с синхронизациями и так далее. Поэтому сделал такую хрень. Сэмулировал многопоточность банальным однопоточным кодом.

    TarasB, 26 Мая 2010

    Комментарии (129)

  4. Pascal / Говнокод #3143

    +102

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    // тут обычный паскалевский код...
if x > y then asm // если икс больше игрека
  mov eax, x  // то меняем их значения местами
  mov edx, y
  mov x, edx
  mov y, eax
end;

    Как поменять значения двух целочисленных переменных, не заводя третью? Года 3 назад я делал примерно так.

    TarasB, 01 Мая 2010

    Комментарии (83)

  5. Assembler / Говнокод #2172

    +240.1

    1. 1
    2. 2
    fld qword ptr [d]
call @ROUND

    Это творчество дельфийского компилятора на тему i := round(d);
    Он делает вызов функции ради одной пустяковой команды, что очень влияет на скорость.

    TarasB, 24 Ноября 2009

    Комментарии (269)