По колено в коде — Говнокод.ру

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

+109

1
2
3
4
5

procedure TForm2.ExitButtonClick(Sender: TObject);
begin
Close;
Form1.Close;
end;

Об Application.Terminate даже и не догадываемся...

PEMOHT, 12 Декабря 2010

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

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

+105

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

case nd of
0..9:days.Caption := '00'+IntToStr(nd);
10..99:days.Caption := '0'+IntToStr(nd);
100..999:days.Caption := IntToStr(nd);
end;
case nh of
0..9:hrs.Caption := '0'+IntToStr(nh);
10..99:hrs.Caption := IntToStr(nh);
end;
case nm of
0..9:mins.Caption := '0'+IntToStr(nm);
10..99:mins.Caption := IntToStr(nm);
end;
case nsec of
0..9:secs1.Caption := '0'+IntToStr(nsec);
10..99:secs1.Caption := IntToStr(nsec);
end;
case nsec2 of
0..9:secs2.Caption := '0000000'+IntToStr(nsec2);
10..99:secs2.Caption := '000000'+IntToStr(nsec2);
100..999:secs2.Caption := '00000'+IntToStr(nsec2);
1000..9999:secs2.Caption := '0000'+IntToStr(nsec2);
10000..99999:secs2.Caption := '000'+IntToStr(nsec2);
100000..999999:secs2.Caption := '00'+IntToStr(nsec2);
1000000..9999999:secs2.Caption := '0'+IntToStr(nsec2);
10000000..99999999:secs2.Caption := IntToStr(nsec2);
end;

Таймер для дураков.

PEMOHT, 12 Декабря 2010

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

Python / Говнокод #4904

−167

1
2
3
4

if abs(self.__last_direction%360-direction.angle())==270:
            angle = 360*(self.__last_direction/360+1)+direction.angle()
        else:
            angle = 360*(self.__last_direction/360) + direction.angle()

крутим крутим спрайт

nbdarvin, 12 Декабря 2010

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

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

+167

1

while(!file_exists(getcwd()."/.htroot")){chdir('..');}

http://www.php.net/manual/en/function.require.php

if you want always include, require, open files using some 'root' folder based path you may may put file '.htroot' in 'root' folder and use this.

while(!file_exists(getcwd()."/.htroot")){chdir('..');}

This code change current dir to dir where '.htroot' file located and everywhere you can use relative to 'root' paths.

Please avoid absent of '.htroot' file.

qbasic, 12 Декабря 2010

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

Си / Говнокод #4902

+141

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

static int16_t have_upper_dot(cell *c)
{
 cell *cc;
 int16_t H;
 H=my_bases.ps;
 cc=c->prev;
 if ((cc->flg & c_f_dust) &&
      (c->w>4 && cc->h>=2 && cc->w>=2 &&
	(abs(cc->h-cc->w)<=H/6 || cc->h<cc->w && cc->w-cc->h<=H/4) &&
	cc->col+1>=c->col && cc->col+cc->w-5<=c->col+c->w ||
       c->w<=4 && abs(c->col-cc->col+(c->w-cc->w)/2)<=2) &&
      cc->row+cc->h-2<=my_bases.b2)
   return 1;
 cc=c->next;
 if ((cc->flg & c_f_dust) &&
      (c->w>4 && cc->h>=2 && cc->w>=2 &&
	(abs(cc->h-cc->w)<=H/6 || cc->h<cc->w && cc->w-cc->h<=H/4) &&
	cc->col+1>=c->col && cc->col+cc->w-5<=c->col+c->w ||
       c->w<=4 && abs(c->col-cc->col+(c->w-cc->w)/2)<=2) &&
      cc->row+cc->h-2<=my_bases.b2)
   return 1;
 return 0;
}

Из одной OCR программы.

f0ma, 12 Декабря 2010

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

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

+33

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

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">

<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1251">
<meta http-equiv="Pragma" content="no-cache">
<link rel=File-List href="SL_php2weeks_box.files/filelist.xml">

<title>PHP за 2 недели - курс обучения PHP от Школы Программирования</title>
<style type="text/css">
<!--
.style1 {font-family: Georgia, "Times New Roman", Times, serif}
.style5 {font-family: Georgia, "Times New Roman", Times, serif; font-style: italic; }
.style6 {font-family: Georgia, "Times New Roman", Times, serif; font-weight: bold; }
.style7 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style8 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-weight: bold;
	font-style: italic;
	color: #009000;
}
.style9 {
	font-family: Georgia, "Times New Roman", Times, serif;
	font-size: 18px;
}
.style10 {
	font-family: "Courier New", Courier, monospace;
	font-size: 12px;
}
.style11 {
	font-size: 24px;
	font-weight: bold;
}
.style12 {font-size: 24px; font-weight: bold; font-family: Georgia, "Times New Roman", Times, serif; }
.style13 {font-size: 24px; font-weight: bold; font-family: Georgia, "Times New Roman", Times, serif; font-style: italic; }
.style14 {font-family: Georgia, "Times New Roman", Times, serif; font-weight: bold; font-style: italic; }
.style15 {
	color: #0000FF;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style17 {font-family: Georgia, "Times New Roman", Times, serif; font-style: italic; font-size: 16px; }
.style18 {
	font-size: 20px
}
-->
</style>
</head>



<body lang=RU link=blue vlink=purple>

<!-- SmartResponder.ru PopOver code (begin) -->
<script language="javascript" type="text/javascript" src="popover.js"></script>
<span style="margin: 0pt; padding: 0pt; width: 400px; height: 400px; position: absolute; left: 0pt; top: 0pt; right: 0pt; z-index: 1; display: none;" id="SR_PopOver">
<table cellpadding="0" cellspacing="0" height="246" width="400">
<tbody>
<tr>
<td style="border: 1px solid rgb(0, 0, 0);">
<table bgcolor="#ffffff" cellpadding="3" cellspacing="0" height="100%" width="100%">
<tbody>
<tr bgcolor="#dddddd" valign="middle">
<td onMouseDown="popover_drag_start(event, this, 'SR_PopOver')" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 255); font-weight: bold;" align="center" width="100%">
<b>Подарок Вам - <font style="color:#009000;">Курс Web-Старт!</font><br /> 7 Бесплатных Видеоуроков По PHP!</b></td>
<td align="right">
<table cellspacing="0">
<tbody>

<tr>
<td style="padding: 0pt 3px; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; color: rgb(0, 0, 0); font-weight: bold;" onClick="popover_close(this, 'popover_start_to(\'SR_PopOver\', 21, 0, \'windowWidth\', parseInt(popover_obj.style.top) - popover_base_y)')" onMouseOver="this.style.cursor='pointer'" onMouseOut="this.style.cursor='default'">X</td>
</tr>
</tbody>
</table>

http://prog-school.ru/php2weeks/

вот как бывает! исходник страницы смотрите сами :)

brainstorm, 11 Декабря 2010

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

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

+167

1
2
3
4
5
6
7
8

if( $user_id < 0 )
    die( "I don't know you!" );

if( $action == '' )
    die( "I don't know, what you want!" );

if( $action == 'login' )
    die();

rat4, 11 Декабря 2010

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

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

+178

01
02
03
04
05
06
07
08
09
10

function verifyQuery($sql, $con) {
    if (!mysql_query($sql, $con)) {
        echo "Error occured in verifyQuery() in sqlfunctions.php <br>";
        echo "SQL sent : ";
        echo $sql;
        echo "<br>Database report: <br>";
        die('Error: ' . mysql_error());
    }
    return mysql_query($sql, $con);
}

fork, 11 Декабря 2010

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

C# / Говнокод #4898

+122

1
2
3
4
5
6
7
8

if (0 == comparer.Compare(s, hash)) 
{ 
    return true; 
} 
else 
{ 
    return false; 
}

MSDN. Не то чтобы ГК, но как-то странно.

andrewpey, 11 Декабря 2010

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

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