1. PHP / Говнокод #6412

    +161

    1. 1
    2. 2
    3. 3
    4. 4
    /**
 * Корневая директория
 */
define('ROOT', dirname(dirname(dirname(__FILE__))) );

    В случае 5.3 было бы на один раз короче... :P

    istem, 19 Апреля 2011

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

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

    +99

    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
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    procedure TForm1.OvalButton1Click(Sender: TObject);
begin
 Randomize;
 Win  := Random(2);
//////////////////////////////////
 If Win = 1 then
 Begin
  NumericEdit1.Enabled := true;
  OvalButton1.Enabled := false;
  OvalButton2.Enabled := false;
  Timer1.Enabled := false;
  LEDMeter1.Position := 0;
  LEDDisplay1.Value := 30;
  Button1.Enabled := true;
  chet := chet + Trunc(NumericEdit1.Value *2);
  Memo1.Text := 'Поздравляю!';
  Label1.Caption := IntToStr(Chet) + '$';
  ShowMessage('Победа! Вы разминировали мину!');
 End
 else
 Begin
  NumericEdit1.Enabled := true;
  OvalButton1.Enabled := false;
  OvalButton2.Enabled := false;
  Timer1.Enabled := false;
  LEDMeter1.Position := 0;
  LEDDisplay1.Value := 30;
  Button1.Enabled := true;
  Memo1.Text := 'Проигрыш!';
  Label1.Caption := IntToStr(Chet) + '$';
  ShowMessage('Вы проиграли!');
  end;
end;

procedure TForm1.OvalButton2Click(Sender: TObject);
begin
 Randomize;
 Win  := Random(2);
///////////////////////////////
 If Win = 1 then
 Begin
  NumericEdit1.Enabled := true;
  OvalButton1.Enabled := false;
  OvalButton2.Enabled := false;
  Timer1.Enabled := false;
  LEDMeter1.Position := 0;
  LEDDisplay1.Value := 30;
  Button1.Enabled := true;
  Memo1.Text := 'Проигрыш';
  Label1.Caption := IntToStr(Chet) + '$';
  ShowMessage('Вы проиграли!');
 End
 else
 Begin
  NumericEdit1.Enabled := true;
  OvalButton1.Enabled := false;
  OvalButton2.Enabled := false;
  Timer1.Enabled := false;
  LEDMeter1.Position := 0;
  LEDDisplay1.Value := 30;
  chet := chet + Trunc(NumericEdit1.Value *2);
  Button1.Enabled := true;
  Memo1.Text := 'Поздравляю!';
  Label1.Caption := IntToStr(Chet) + '$';
  ShowMessage('Победа! Вы разминировали мину!');
  end;
end;

    MOAR из серии оффлайн симуляторов.

    Govnocoder#0xFF, 19 Апреля 2011

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

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

    +96

    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
    function OnShape(sh: TShape; X, Y: Integer) : TBrushStyle;
var r, cx, cy, d2: Integer;
begin
r := sh.Width div 2;
cx := sh.Left + r;
cy := sh.Top + r;
d2 := (X - cx) * (X - cx) + (Y - cy) * (Y - cy);
OnShape := bsClear;
if d2 < r*r then OnShape := bsSolid;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Shape1.Brush.Color := clRed;
Shape1.Brush.Style := OnShape(Shape1, X, Y);
Shape2.Brush.Color := clLime;
Shape2.Brush.Style := OnShape(Shape2, X, Y);
Shape3.Brush.Color := clYellow;
Shape3.Brush.Style := OnShape(Shape3, X, Y);
end;

    Откуда бы вы думали это? Правильно, "Занимательное программирование Delphi". Глава 14. Светофор.

    Govnocoder#0xFF, 19 Апреля 2011

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

  4. PHP / Говнокод #6409

    +155

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    {{if $remove_email eq "Y"}}
<script type="text/javascript">
	if( confirm("Are you sure you want to delete email \"{{$email|escape}}\"?") )
		document.location.href="http://{{$host}}/email.html?action=remove_email&confirm=Y";
</script>
{{/if}}

    Смарти феерия продолжается. Теперь редиректы с яваскриптом

    govno, 19 Апреля 2011

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

  5. C# / Говнокод #6408

    +111

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    // BasePage
public virtual void Page_Error(object sender, EventArgs e) { }

// Page
public override void Page_Error(object sender, EventArgs e) { }

    Авторы-индусы были по всей видимости не в курсе о существовании OnError(EventArgs)

    abatishchev, 19 Апреля 2011

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

  6. Python / Говнокод #6407

    −174

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    import hashlib
a='letsstart'
def h(inp):
    return hashlib.md5(inp).hexdigest()
while h(a) != a:
    a=h(a)
print 'I FIND IT!!! ITS ',a

    Давно хочу найти эту строку.

    ichi, 19 Апреля 2011

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

  7. PHP / Говнокод #6406

    +158

    1. 1
    {{capture assign=isSmtng}}1{{/capture}}

    Опять смарти. Кто-то обьяснит чем указанное решение лучше этого?
    {{assign var="isSmtng" value="1"}}

    govno, 19 Апреля 2011

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

  8. Куча / Говнокод #6405

    +144

    1. 1
    #catalog { width: 100$ }

    random2, 19 Апреля 2011

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

  9. Assembler / Говнокод #6404

    +225

    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
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    .386
.model flat,stdcall
 option  casemap:none
      include   c:\masm32\includes\windows.inc
      include   c:\masm32\includes\user32.inc
      include   c:\masm32\includes\kernel32.inc
      includelib c:\masm32\lib\user32.lib
      includelib c:\masm32\lib\kernel32.lib
 bufsize EQU 12
.data
  a dd 300
  b dd 500
  d dd 300
  fmt db "Max = %2d",0
  buf db bufsize dup(0)
  ctrlf db 0dh,0ah
  stdout dd ?
  cWritten dd ?
  result dd ?
.code
 start:
  invoke GetStdHandle,STD_OUTPUT_HANDLE
  mov stdout,eax
   mov eax,a            
   mov result,eax  ; изначально максимальный это a
   cmp eax,b       ; сравниваем со вторым числом
   jbe big1        ; если a<=b , значит b больше a
   ja min1         ; иначе a ещё максимальное
  big1:
    mov eax,b           
	mov result,eax  ;теперь b максимальное
    cmp eax,d 
	jbe big2   ; максимальное c 
	jmp print
	big2: 
	  mov eax,d 
	  mov result,eax ;максимальный c
	  jmp print
  min1:
    mov eax,d
	cmp eax,a
	jbe big3
	mov result,eax
	jmp print
	big3:
	  mov eax,a
	  mov result,eax
	  jmp print
   print:
    mov edx,result
    invoke wsprintf, ADDR buf, ADDR fmt, edx
    invoke WriteConsoleA, stdout, ADDR buf, bufsize, ADDR cWritten, NULL
    invoke WriteConsoleA, stdout, ADDR ctrlf, 2, ADDR cWritten, NULL
 end start

    С ума сойти. И это сравнение трёх чисел, которое делается в два простейших условия...

    Ymilij, 19 Апреля 2011

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

  10. PHP / Говнокод #6403

    +162

    1. 1
    2. 2
    3. 3
    4. 4
    $n = array(38, 95,10, 8, 95, 38, 10);
sort($n);
$n = implode(',', $n);
$uniq_num = preg_replace('#,?(\d+),\1,?#', '', $n);

    _oWo_, 19 Апреля 2011

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