- 1
- 2
// please don't change this
#define NUM_INVISIBLE_TYPES 1
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−4
// please don't change this
#define NUM_INVISIBLE_TYPES 1
Выдержка из исходников civilization 5.
Да, да, прекрасно, усложняйте моддинг
+26
$arr['body'][$row_num] = array(
$datas,
$tval,
$club1_link,
($results['results_url'] != '' ? '<a href="' . $results['results_url'] . '"' . ($results['results_class'] != '' ? $results['results_class'] : '') . '>' : '<span>') . $results['results'] . ($results['results_url'] != '' ? '</a>' : '</span>'),
$club2_link,
spb_stats_show_media_icons($row),
);
было еще хуже. каждая строка была адовый тернарник...
+140
define('SECOND', 1);
define('MINUTE', SECOND*60);
define('HOUR', MINUTE*60);
// ...
количество секунд в секунде — это определённо что-то новое.
+101
if( a.GetPixel(i, k).Name.ToString().Substring(0,6)=="ff0404")
http://www.cyberforum.ru/csharp-net/thread954611.html#post5057105
+130
Program KrestZero;
...
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
case m[arow,acol]of
1: DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpkrest);
0: DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpfon);
2: DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpnul);
end;
end;
function win:boolean;
var a:byte;
begin
result:=false;
k:=0;
for I := 0 to 2 do
if m[0,i]=a then k:=k+1;
if k=3 then begin result:=true; exit; end;
end;
procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
acol,arow:integer;
begin
DrawGrid1.MouseToCell(x,y,acol,arow);
if (m[arow,acol]<>0) then
ShowMessage('Нельзя!')
else
begin
inc(hod);
if hod mod 2 =1 then m[arow,acol]:=1
else m[arow,acol]:=2;
if win then ShowMessage('Победа!');
end;
end;
procedure TForm1.FormShow(Sender: TObject);
var i,j:byte;
begin
bmpkrest:=TBitmap.Create;
bmpkrest.LoadFromFile('krest.bmp');
bmpfon:=TBitmap.Create;
bmpfon.LoadFromFile('fon.bmp');
bmpnul:=TBitmap.Create;
bmpnul.LoadFromFile('nol.bmp');
for i:=0 to 2 do
for j:=0 to 2 do
m[i,j]:=0;
hod:=0;
end;
А вот так, товарищи, кодит препод в одной из шаражек в нашем родном Владикавказе.
В коде ничего не менял - выложил, как есть.
Одно только название - krestzero уже поднимает давление настроение.
+141
Тайна имени. Ада
др.-евр. - украшение
В детстве эти малышки доставляют много беспокойства родителям и воспитателям: они
импульсивны и упрямы, часто болеют - у них слабые легкие и горло, неустойчивая нервная
система. Учёба им даётся нелегко. Несколько мужской характер Ады с возрастом
почти не меняется: она так же импульсивна, упряма и смела. Добивается своих
целей не только пробивной способностью, но и большим трудолюбием. Пользуется
успехом у молодых людей.
Дисказ. Картинка прикреплейтед.
+165
function CheckNumField(value)
{
for(var i=0; i<value.length; i++)
{
switch(value.substr(i,1))
{
case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.':
return true;
break;
default:
return false;
break;
}
}
}
Проверочка текстового поля...
+69
С ДНЕМ МУДАКОВ ЗАДРОТЫ АЗАЗАЗА
13 СИНТЯБРЯ ДЕНЬ ЛАХОВ И ЗАДРОТАВ
p.s. мне всево 7 лет и у миня есть ifon 5
+151
if (!preg_match_all("!<tr class=\"dark\">\s+<td>.*?</td>\s+<td class=\"cell1\">.*?>stock.zip</td>\s+<td>(.*?)</td>\s+<td>.*?</td>\s+<td><a href=\"(.*?)\ ">.*?</a></td>\s+<td>.*?</td>\s+</tr>!is", $out['body'], $res))
exit(say("Не найден файл со стоком"));
грузим прайсы партнёра
−121
if(!(plant is CropBase && !(plant is TreeBase)))
Гениально-простое построение выражения