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

    +98.7

    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
    Procedure Halt;
    begin
    if atomTest<>0 then GlobalDeleteAtom(atomTest);
    TerminateProcess(GetCurrentProcess,0);
    end;
    function RegisterSceenTimer(proc:tproc):dword;
    var i:dword;
    begin
    result:=0;
    for i:=1 to sMaxSceenGradient do
    if  not SceenGradient[i].isNotEmpty then break ;
    if i=sMaxSceenGradient then exit;
    SceenTimers[i]:=proc;
    result:=i;
    end;

    :D

    Запостил: Говногость, 13 Марта 2010

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

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