Лучший говнокод за всё время

Лучший говнокод

В номинации:

Лучший рейтинг
Самый комментируемый

За время:

PHP / Говнокод #10169

+91

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

//Постраничная навигация
$result77 = mysql_query("SELECT str FROM ..."); 
$myrow77 = mysql_fetch_array($result77);
$num = $myrow77["str"];

// Извлекаем из URL текущую страницу
@$page = $_GET['page'];

// Определяем общее число сообщений в базе данных
$result00 = mysql_query("SELECT COUNT(*) FROM ...");
$temp = mysql_fetch_array($result00);
$posts = $temp[0];

// Находим общее число страниц
$total = (($posts - 1) / $num) + 1;
$total =  intval($total);

// Определяем начало сообщений для текущей страницы
$page = intval($page);
// Если значение $page меньше единицы или отрицательно
// переходим на первую страницу
// А если слишком большое, то переходим на последнюю
if(empty($page) or $page < 0) $page = 1;
if($page > $total) $page = $total;
// Вычисляем начиная с какого номера
// следует выводить сообщения
$start = $page * $num - $num;
// Выбираем $num сообщений начиная с номера $start                                     
$result_gb1 = mysql_query("SELECT * FROM . ORDER BY id DESC LIMIT $start, $num");
$myrow_gb1 = mysql_fetch_array($result_gb1);
$list = 1;

switch($page)
{
    case "2":
    $list = $num + 1;
    break;
    case "3":
    $list = $num * 2 + 1;
    break;
    case "4":
    $list = $num * 3 + 1;
    break;
    case "5":
    $list = $num * 4 + 1;
    break;
    case "6":
    $list = $num * 5 + 1;
    break;
    case "7":
    $list = $num * 6 + 1;
    break;
    case "8":
    $list = $num * 7 + 1;
    break;
}

Навигация по страницам, написанная человеком с гуманитарным складом ума...

Мартин, 02 Мая 2012

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

Куча / Говнокод #10010

+91

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

#include <amxmodx>

new g_MsgSync
new g_MsgSync2

new isConnected[33 char]

public plugin_init()
{
   register_plugin("Damager", "1.0", "Prayer")
   
   register_event("Damage", "EVENT_Damage", "b", "2!0", "3=0", "4!0")
   
   g_MsgSync = CreateHudSyncObj()
   g_MsgSync2 = CreateHudSyncObj()
}

public client_putinserver(id)
{
   isConnected{id} = true
}

public client_disconnect(id)
{
   isConnected{id} = false
}

public EVENT_Damage(id)
{ 
   if(isConnected{id})
   {
      static damage, pid
      damage = read_data(2)
      
      set_hudmessage(255, 0, 0, 0.45, 0.50, 2, 0.1, 4.0, 0.1, 0.1, -1)
      ShowSyncHudMsg(id, g_MsgSync2, "%d", damage)
   
      pid = get_user_attacker(id)
      
      if((pid > 0) && (pid < 33) && isConnected{pid})
      {
         set_hudmessage(0, 100, 200, -1.0, 0.55, 2, 0.1, 4.0, 0.02, 0.02, -1)
         ShowSyncHudMsg(pid, g_MsgSync, "%d", damage)
      }
   }
}

Это павн переработанный вельвом. Кто писал плагины для CS тот поймёт всю соль.

Dg_INC, 22 Апреля 2012

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

Pascal / Говнокод #9315

+91

01
02
03
04
05
06
07
08
09
10
11
12
13

if IsThemeActive then
begin
  ThemePartName := 'TAB';
  ThemeHandle := OpenThemeData(TabSheetQA.Handle, PWideChar(ThemePartName));
  if ThemeHandle <> 0 then
  begin
    ImageClipRect := ImageForBkColorRecalc.ClientRect;
    DrawThemeBackground(ThemeHandle, ImageForBkColorRecalc.Canvas.Handle,
      TABP_BODY, 0, ImageForBkColorRecalc.ClientRect, @ImageClipRect);
    BkColor := ImageForBkColorRecalc.Canvas.Pixels[0, 0];
  end;
  Exit;
end;

Надыбано в компоненте Delphi. Код получает начальный цвет градиента панелей Таб-контрола при включенных стилях XP и Aero. Для этого рисует на скрытом TImage его небольшой фрагмент и выдирает угловой пиксель.

Durik, 03 Февраля 2012

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

Pascal / Говнокод #6035

+91

1
2
3
4

procedure TForm.ButtoClick(Sender: TObject);{не вздумай нажимать на эту конопку, уебок!! тогда проект не будет падать!!}
begin
    {blah blah blah}
end;

нашел такой вот коммент в обработчике события 0_о

TheHamstertamer, 20 Марта 2011

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

Куча / Говнокод #3967

+91

1

<script type="text/javascript" style="margin-left:393px; margin-top:170px;">

стилизованый javascript

Alfred, 13 Августа 2010

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

Pascal / Говнокод #2157

+90.9

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

for i := 0 to 89 do begin
case i of
0:obj[0]:=obj[0]+1
1:obj[1]:=obj[1]+1
2:obj[2]:=obj[2]+1
3:obj[3]:=obj[3]+1
4:obj[4]:=obj[4]+1
5:obj[5]:=obj[5]+1
6:obj[6]:=obj[6]+1
7:obj[7]:=obj[7]+1
8:obj[8]:=obj[8]+1
9:obj[9]:=obj[9]+1
10:obj[10]:=obj[10]+1
11:obj[11]:=obj[11]+1
12:obj[12]:=obj[12]+1
13:obj[13]:=obj[13]+1
14:obj[14]:=obj[14]+1
15:obj[15]:=obj[15]+1
16:obj[16]:=obj[16]+1
17:obj[17]:=obj[17]+1
18:obj[18]:=obj[18]+1
19:obj[19]:=obj[19]+1
20:obj[20]:=obj[20]+1
21:obj[21]:=obj[21]+1
22:obj[22]:=obj[22]+1
23:obj[23]:=obj[23]+1
24:obj[24]:=obj[24]+1
25:obj[25]:=obj[25]+1
26:obj[26]:=obj[26]+1
27:obj[27]:=obj[27]+1
28:obj[28]:=obj[28]+1
29:obj[29]:=obj[29]+1
30:obj[30]:=obj[30]+1
31:obj[31]:=obj[31]+1
32:obj[32]:=obj[32]+1
33:obj[33]:=obj[33]+1
34:obj[34]:=obj[34]+1
35:obj[35]:=obj[35]+1
36:obj[36]:=obj[36]+1
37:obj[37]:=obj[37]+1
38:obj[38]:=obj[38]+1
39:obj[39]:=obj[39]+1
40:obj[40]:=obj[40]+1
41:obj[41]:=obj[41]+1
42:obj[42]:=obj[42]+1
43:obj[43]:=obj[43]+1
44:obj[44]:=obj[44]+1
45:obj[45]:=obj[45]+1
46:obj[46]:=obj[46]+1
47:obj[47]:=obj[47]+1
48:obj[48]:=obj[48]+1
49:obj[49]:=obj[49]+1
50:obj[50]:=obj[50]+1
51:obj[51]:=obj[51]+1
52:obj[52]:=obj[52]+1
53:obj[53]:=obj[53]+1
54:obj[54]:=obj[54]+1
55:obj[55]:=obj[55]+1
56:obj[56]:=obj[56]+1
57:obj[57]:=obj[57]+1
58:obj[58]:=obj[58]+1
59:obj[59]:=obj[59]+1
60:obj[60]:=obj[60]+1
61:obj[61]:=obj[61]+1
62:obj[62]:=obj[62]+1
63:obj[63]:=obj[63]+1
64:obj[64]:=obj[64]+1
65:obj[65]:=obj[65]+1
66:obj[66]:=obj[66]+1
67:obj[67]:=obj[67]+1
68:obj[68]:=obj[68]+1
69:obj[69]:=obj[69]+1
70:obj[70]:=obj[70]+1
71:obj[71]:=obj[71]+1
72:obj[72]:=obj[72]+1
73:obj[73]:=obj[73]+1
74:obj[74]:=obj[74]+1
75:obj[75]:=obj[75]+1
76:obj[76]:=obj[76]+1
77:obj[77]:=obj[77]+1
78:obj[78]:=obj[78]+1
79:obj[79]:=obj[79]+1
80:obj[80]:=obj[80]+1
81:obj[81]:=obj[81]+1
82:obj[82]:=obj[82]+1
83:obj[83]:=obj[83]+1
84:obj[84]:=obj[84]+1
85:obj[85]:=obj[85]+1
86:obj[86]:=obj[86]+1
87:obj[87]:=obj[87]+1
88:obj[88]:=obj[88]+1
89:obj[89]:=obj[89]+1
end;
end;

Надо Добавить единицу ко всем элементам массива

Tonnelll, 18 Ноября 2009

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

Pascal / Говнокод #17233

+90

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Procedure ArrDataToRawImage(Ptr: PRGB32; Size: TPoint; out RawImage: TRawImage);
Begin
RawImage.Init; { Calls raw.Description.Init as well }
RawImage.Description.PaletteColorCount:=0;
RawImage.Description.MaskBitsPerPixel:=0;
RawImage.Description.Width := Size.X;
RawImage.Description.Height:= Size.Y;
RawImage.Description.Format := ricfRGBA;
RawImage.Description.ByteOrder := riboLSBFirst;
RawImage.Description.BitOrder:= riboBitsInOrder; // should be fine
RawImage.Description.Depth:=24;
RawImage.Description.BitsPerPixel:=32;
RawImage.Description.LineOrder:=riloTopToBottom;
RawImage.Description.LineEnd := rileDWordBoundary;
RawImage.Description.RedPrec := 8;
RawImage.Description.GreenPrec:= 8;
RawImage.Description.BluePrec:= 8;
RawImage.Description.AlphaPrec:=0;
RawImage.Description.RedShift:=16;
RawImage.Description.GreenShift:=8;
RawImage.Description.BlueShift:=0;
RawImage.DataSize := RawImage.Description.Width * RawImage.Description.Height
* (RawImage.Description.bitsperpixel shr 3);
RawImage.Data := PByte(Ptr);
End;

with ... do? Не. не слышал.

Cynicrus, 01 Декабря 2014

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

Pascal / Говнокод #17232

+90

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

function TMFinder.FindDTMs(DTM: TMDTM; out Points: TPointArray; x1, y1, x2, y2, maxToFind: Integer): Boolean;
var
  Len: integer;
  DPoints: PMDTMPoint;
  b: array of array of Integer;
  ch: array of array of integer;
  W, H: integer;
  MA: TBox;
  MaxX, MaxY: integer;
  xx, yy: integer;
  i, xxx, yyy: Integer;
  StartX, StartY, EndX, EndY: integer;
  cd: TPRGB32Array;
  PtrData: TRetData;
  pc: Integer = 0;
  Found: boolean;
  goodPoints: array of Boolean;
  col_arr, tol_arr: array of Integer;
  ctsinfoarray: TCTSInfoArray;
  compare: TCTSCompareFunction;
label
  theEnd;
begin
  MA := ValidMainPointBox(DTM, x1, y1, x2, y2);
  Len := dtm.Count;
  DPoints := dtm.PPoints;
  setlength(goodPoints, Len);
  for i := 0 to Len - 1 do
    goodPoints[i] := not DPoints[i].bp;
  W := x2 - x1;
  H := y2 - y1;
  setlength(b, (W + 1));
  setlength(ch, (W + 1));
  for i := 0 to W do
  begin
    setlength(ch[i], (H + 1));
    FillChar(ch[i][0], SizeOf(Integer) * (H + 1), 0);
    setlength(b[i], (H + 1));
    FillChar(b[i][0], SizeOf(Integer) * (H + 1), 0);
  end;
  PtrData := TClient(Client).IOManager.ReturnData(x1, y1, W + 1, H + 1);
  SetLength(col_arr, Len);
  SetLength(tol_arr, Len);
  for i := 0 to Len - 1 do
  begin
    col_arr[i] := DPoints[i].c;
    tol_arr[i] := DPoints[i].t;
  end;
  ctsinfoarray := Create_CTSInfoArray(col_arr, tol_arr);
  compare := Get_CTSCompare(Self.CTS);
  cd := CalculateRowPtrs(PtrData, h + 1);
  MA.x1 := MA.x1 - x1;
  MA.y1 := MA.y1 - y1;
  MA.x2 := MA.x2 - x1;
  MA.y2 := MA.y2 - y1;
  MaxX := x2 - x1;
  MaxY := y2 - y1;
  for yy := MA.y1 to MA.y2 do
    for xx := MA.x1 to MA.x2 do
    begin
      for i := 0 to Len - 1 do
      begin
        Found := false;
        StartX := max(0, xx - DPoints[i].asz + DPoints[i].x);
        StartY := max(0, yy - DPoints[i].asz + DPoints[i].y);
        EndX := Min(MaxX, xx + DPoints[i].asz + DPoints[i].x);
        EndY := Min(MaxY, yy + DPoints[i].asz + DPoints[i].y);
        for xxx := StartX to EndX do
        begin
          for yyy := StartY to EndY do
          begin
            if ch[xxx][yyy] and (1 shl i) = 0 then
            begin
              ch[xxx][yyy] := ch[xxx][yyy] or (1 shl i);
              if compare(ctsinfoarray[i], @ cd[yyy][xxx]) then
                b[xxx][yyy] := b[xxx][yyy] or (1 shl i);
            end;
            if (b[xxx][yyy] and (1 shl i) <> 0) then
            begin
              if GoodPoints[i] then
              begin
                Found := true;
                break;
              end
              else
                goto AnotherLoopEnd;
            end;
          end;
          if Found then
            Break;
        end;
        if (not found) and (GoodPoints[i]) then
          goto AnotherLoopEnd;
      end;
      ClientTPA[pc] := Point(xx + x1, yy + y1);
      Inc(pc);
      if (pc = maxToFind) then
        goto theEnd;
    end;
  TheEnd: Free_CTSInfoArray(ctsinfoarray);

Охх...читать такое - можно и мозг повредить.

Cynicrus, 01 Декабря 2014

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

C++ / Говнокод #15830

+90

1
2
3
4
5
6
7
8

const struct TExceptionSafety {
            TQueue& _queue;
            ::std::condition_variable& _pushToQueue;
            ~TExceptionSafety(){
                if(!this->_queue.empty())
                    this->_pushToQueue.notify_one();
            }
        } exceptionSafety = {_queue, _pushToQueue};//Use BOOST_SCOPE_EXIT, Luke!

laMer007, 23 Апреля 2014

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

Говнокод: по колено в коде.