- 1
- 2
// how high?
var yesman = function(){ return true; };
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+149.8
// how high?
var yesman = function(){ return true; };
Случайно обнаружил в исходнике AJAX фреймворка Dojo :)
+141.5
<?
class Sistem_Debuger implements Sistem_Debuger_Intarface {
protected $zhopa=array();
/* ... */
function AddZhopa($msg,$type){
$this->zhopa[]=$type.':'.$msg;
}
function ShoZaNax(){
if(!empty($this->zhopa)){
print "<pre>Админ, если ты это читаешь - тебе жопа!!\r\n";
print implode("\r\n",$this->zhopa);
print "</pre>";
die();
}
return false;
}
/* ... */
}
?>
поёт прям
−35.3
bool Update(float dt) // ага, вот так вот жестоко мы постепенно приведём всё к нормальным coding conventions ^_^
{
return update(dt);
}
bool update(float dt) // теперь возвращает true если value изменилось и false если нет
{
//bla-bla-bla
жестокое решение code standart'a
+103.8
if (intVal($arSection["PICTURE"]) <= 0 ? true : false)
+100.3
procedure TShemaForm.T1Timer(Sender: TObject);
begin
ShemaForm.Visible:=true;
ShemaForm.AlphaBlend:=true;
T1.Enabled:=false;
ShemaForm.AlphaBlendValue:=20;
T2.Enabled:=true;
end;
procedure TShemaForm.T2Timer(Sender: TObject);
begin
T2.Enabled:=false;
ShemaForm.AlphaBlendValue:=50;
T3.Enabled:=true;
end;
procedure TShemaForm.T3Timer(Sender: TObject);
begin
T3.Enabled:=false;
ShemaForm.AlphaBlendValue:=100;
T4.Enabled:=true;
end;
procedure TShemaForm.T4Timer(Sender: TObject);
begin
T4.Enabled:=false;
ShemaForm.AlphaBlendValue:=150;
T5.Enabled:=true;
end;
procedure TShemaForm.T5Timer(Sender: TObject);
begin
T5.Enabled:=false;
ShemaForm.AlphaBlendValue:=200;
T6.Enabled:=true;
end;
procedure TShemaForm.T6Timer(Sender: TObject);
begin
T6.Enabled:=false;
ShemaForm.AlphaBlendValue:=255;
ShemaForm.AlphaBlend:=false;
ShemaForm.SetFocus;
MaForm.ShemaB.BevelWidth:=2;
MaForm.ShemaB.Color:=$00C08080;
end;
Дипломный проект. Реализация плавного появления окна. На плавное исчезновение еще 6 таймеров
+149.2
function removeContent( &$cid, $sectionid, $option ) {
...
$state = '-2';
$ordering = '0';
//seperate contentids
mosArrayToInts( $cid );
$cids = 'id=' . implode( ' OR id=', $cid );
$query = "UPDATE #__content"
. "\n SET state = " . (int) $state . ", ordering = " . (int) $ordering
. "\n WHERE ( $cids )"
;
$database->setQuery( $query );
...
}
Взято из администрирования статичного контента CMS Joomla! 1.0.x. Забавно ребята приводят к целому типу только что собственноручно объявленные строкой переменные =)
+153
TSearchRec sr;
if(FindFirst(Dir+"\\"+mask,iattr,sr)==0)
{
do
{
AnsiString Processes=Dir+"\\"+sr.Name;
//куча кода
AnsiString newName=sr.Name;
//еще код
AnsiString TmpFile=Dir+"\\"+newName;
if(RenameFile(Processes,TmpFile))
{
...
}
{
...
continue;
}
}while(FindNext(sr)==0);
}
И почему программа "виснет"? Это в клиенте платежной системы... Рыдаю... (стр. 19)
+137
<html>
<head>
<title>Сибирский Джинсовый центр - джинсы и трикотаж оптом в Новосибирске</title>
</head>
<body>
<H1 ALIGN="center"><B>Компания СДц - более 1500 позиций фирменной джинсовой одежды на складе, поставки новых коллекций из Турции по предзаказу, франчайзинговая сеть брендовых магазинов по всей Сибири</B></H1>
Сибирский Джинсовый центр – один из крупнейших в Сибири поставщиков джинсов оптом, зимнего и летнего трикотажа, а также верхней одежды и сопутствующих аксессуаров. Компания является единственным официальным представителем в Сибирском регионе производителей модных женских и мужских джинсов VIGOSS, DLF, ENRICO BELENO, а также предлагает молодежную джинсовую одежду торговых марок Timezone, URBANO, BLKjeans со склада в Новосибирске.</body>
<DIV ALIGN="center">
<TABLE>
<TR>
<TD><img src="http://www.jeanscom.ru/collections/vig_autumn_winter_2008/2_small.jpg"></TD> <TD><img src="http://www.jeanscom.ru/collections/vig_autumn_winter_2008/2_small.jpg">
</TR>
<TR>
<TD><img src="http://www.jeanscom.ru/collections/vig_autumn_winter_2008/2_small.jpg"></TD> <TD><img src="http://www.jeanscom.ru/collections/vig_autumn_winter_2008/3_small.jpg"></TD>
</TR>
</TABLE>
oo
+68.9
class MainEntity extends Thread implements Runnable // изврат
{
protected Entry entry;
public MainEntity (Entry ent)
{
this.entry = ent;
setPriority ( NORM_PRIORITY - 1 ); //это списано, по-любому
run();
}
public void run()
{
try{
//тут кусок кода я опустил,
start();
}catch (Exception e){e.printStackTrace();}
}
public void start()
{
//тут кусок кода БЕЗ каких-либо условий
run();//Молодцы!!!
}
}
Этот код повесил IDE навечно.
В следующий раз буду читать, че резрабы прислали перед прогоном.
P.S.: Коменты в коде - мои, не удержался.
+151
library ExDouble;
uses
SysUtils,
Classes;
{$R *.res}
function calc_double(r: real): real; stdcall;
begin
result := 2;
end;
exports
calc_double index 1;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function calc_double(r: real): real; stdcall; external 'ExDouble.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>FloatToStr(calc_double(0))then
ShowMessage('')
else begin
ShowMessage('dsfgsdfg');
end;
end;
end.