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

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