- 1
http://nemolaboratory.ru/blog/about_a_miscellaneous/Nemo-Laboratory-About
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
http://nemolaboratory.ru/blog/about_a_miscellaneous/Nemo-Laboratory-About
Напишите здесь все свои замечания, буду благодарен
+123
<? include ("header.php");
include ("../setup.php");
$resultg=mysql_query("select * from seting ");
$rog=mysql_fetch_array($resultg);
?>
<center><h4><font color=7C87C2>Настройка Казино</font></h4><br></center>
<table border="0" align="center" cellpadding="0" cellspacing="10">
<FORM action=config.php method=post>
<TR><td>Логин админа : </td><TD><INPUT size=40 name=alog value=<? echo $rog[0] ?>></TD></TR>
<TR><td>Пароль админа </td><TD><INPUT size=40 name=apas value=<? echo $rog[1] ?>></TD></TR>
<TR><td>Email казино</td><TD><INPUT size=40 name=adm_email value=<? echo $rog[2] ?>></TD></TR>
<TR><td>ICQ казино (если нет то пусто)</td><TD><INPUT size=40 name=icq value=<? echo $rog['icq'] ?>></TD></TR>
<TR><td>url казино (начиная с http:// и без "/" конце)</td><TD><INPUT size=40 name=cas_url value=<? echo $rog[3] ?>></TD></TR>
<TR><td>Название казино</td><TD><INPUT size=40 name=cas_name value=<? echo $rog[4] ?>></TD></TR>
<TR><td>Партнерские</td><TD><INPUT size=20 name=pcash value=<? echo $rog['pcash'] ?>> %</TD></TR>
<TR><td><b>Высылать Email админу:</b></td><TD></TD></TR>
<TR><td>При пополнение счета</td><TD><input type=checkbox name="paymail" value="yes"<? if($rog["paymail"] == 'yes') { echo ' checked'; } ?>></TD></TR>
<TR><td>Зарегился новый игрок</td><TD><input type=checkbox name="regmail" value="yes"<? if($rog["regmail"] == 'yes') { echo ' checked'; } ?>></TD></TR>
<TR><td>Вывод средств</td><TD><input type=checkbox name="zakmail" value="yes"<? if($rog["zakmail"] == 'yes') { echo ' checked'; } ?>></TD></TR>
<TR>
<td bgcolor="#FFFFFF"><font face="Verdana" size="2">
<span style="background-color: #FFFFFF">Сумма ежедневных бонусов WMR(разделитель .)</span></font></td>
<TD bgcolor="#FFFFFF"><font face="Verdana">
<INPUT size=10 name=us_bonus value="<? echo $rog['bonus'] ?>"></font></TD>
</TR>
<TR><td><b>Настройка Roboxchange.com</b></td><TD></TD></TR>
<TR><td>LOGIN в Robox</td><TD><INPUT size=40 name=mrh_login value=<? echo $rog[5] ?>></TD></TR>
<TR><td>PASS1 в Robox</td><TD><INPUT size=40 name=mrh_pass1 value=<? echo $rog[6] ?>></TD></TR>
<TR><td>PASS2 в Robox</td><TD><INPUT size=40 name=mrh_pass2 value=<? echo $rog[7] ?>></TD></TR>
<TR><TD><INPUT type=hidden value=1 name=send><INPUT type=hidden value=<? echo $rog[cas_bon] ?> name=cas_bon><INPUT type=submit value="Сохранить"></TD></TR>
</FORM>
</table>
<?
if ($send=="1"){
mysql_query("UPDATE seting SET alog='$alog',apas='$apas',adm_email='$adm_email',cas_url='$cas_url',cas_name='$cas_name',mrh_login='$mrh_login',mrh_pass1='$mrh_pass1',mrh_pass2='$mrh_pass2',pcash='$pcash',cas_bon='$cas_bon',bonus='$us_bonus',paymail='$paymail',regmail='$regmail',zakmail='$zakmail',icq='$icq'");
echo "<script> alert('Настройки сохранены!'); document.location.href='config.php';</script>";
}
include ("footer.php"); ?>
Кусок Скрипта готового Казино
+178
прислали реальный код:
while(i --> 10) { }
придумано, но выглядят эффектно:
while (i <- 10) {}
while( *i* *i* *i* *i* (4 /* раза повторить *i* */) > 0) {}
int n = i ** i;
int n = i ********* i;
int n = a / * b; // это не открытие комментария - там пробел есть
int n = a? 0:-E; /* типа смайлик 0 : - E в коде */
или даже
while(myclass<i> *a2) {}
что на самом деле является вот этим:
int myclass = 0;
int *a2 = &myclass;
while( (myclass < i) > *a2) {}
о неправильной расстановке пробелов...
или за что нужно убивать.
+148
$temp_leader=array();
//получаю список всех пользователей
$resUser = CUser::GetList($by = 'ID', $order = 'ASC', array("ACTIVE"=>"Y"));
while ($arUser = $resUser->Fetch())
{
//получаю для конкретного юзера элементы
$resElementUser = CIBlockElement::GetList(Array(), Array('ACTIVE'=>"Y", 'IBLOCK_ID'=>"45", 'CREATED_BY'=>$arUser['ID'], ">PROPERTY_POINT_FISH"=>"1"), false, false, Array("PROPERTY_POINT_FISH", "ID"));
$p=0;
while ($arElementUser = $resElementUser->Fetch())
{
$p++;
$arElementUser111[] = $arElementUser;
$tempElementUser[] = $arElementUser;
}
for ($i=0; $i<$p; $i++)
{
$temp_fish[$i] = $arElementUser111[$i]["PROPERTY_POINT_FISH_VALUE"];
}
//надо подсчитать количество видов у пользователя
if (count($temp_fish)>0)
{
if (count($temp_fish) == 1)
{
$count_fish = 1;
}
else
{
$res = array_count_values($temp_fish);
$count_fish = count($res);
}
//если еще меньше 6 лидеров то надо в массив писать лидера без проверок
if (count($temp_leader)<6)
{
$temp_leader[]=$count_fish;
$temp_login[]= get_user_name($arUser['ID']);
$temp_user[]=$arUser['ID'];
}
//иначе выявляю min и запоминаю позицию его и если у текущего пользователя больше min то пишем в массив
else
{
$min = $temp_leader[0];
$temp_pos = 0;
for ($i=1; $i<7; $i++)
{
if ($temp_leader[$i] < $min) {$min=$temp_leader[$i]; $temp_pos = $i;}
}
if ($count_fish > $min)
{
$temp_leader[$temp_pos] = $count_fish;
$temp_login[$temp_pos]= get_user_name($arUser['ID']);
$temp_user[$temp_pos] = $arUser['ID'];
}
}
unset($temp_fish);
unset($tempElementUser);
unset($arElementUser111);
}
}
for ($i=0;$i<count($temp_leader);$i++)
{
for ($j=count($temp_leader)-1; $j>$i; $j--)
{
if ($temp_leader[$j-1]<$temp_leader[$j])
{
$per = $temp_leader[$j-1];
$temp_leader[$j-1] = $temp_leader[$j];
$temp_leader[$j] = $per;
$per1 = $temp_login[$j-1];
$temp_login[$j-1] = $temp_login[$j];
$temp_login[$j] = $per1;
$per2 = $temp_user[$j-1];
$temp_user[$j-1] = $temp_user[$j];
$temp_user[$j] = $per2;
}
}
}
+129
if (obj == null)
return 0;
if (obj == DBNull.Value)
return 0;
return int.Parse (obj.ToString ());
в столбце хранится Integer...
+144
Response.Write ("<script>window.open (\"~/DownloadFile.aspx?FileID=" + e.id + "\")</script>");
+137
<html>
<head>
<meta http-equiv='content-type' content='text/html; charset=windows-1251' />
</head>
<body onload="try { document.getElementById('l').submit(); } catch(e) { document.getElementsByTagName('form')[0].submit(); }">
<form id='l' method='post' action='http://vkontakte.ru/login.php'>
<input type='hidden' name='s' value='53e713f48947d0cc53226754900179a58f3de5a05c24158804e3158f' />
<input type='hidden' name='op' value='slogin' />
<input type='hidden' name='redirect' value='1' />
<input type='hidden' name='expire' value='0' />
<input type='hidden' name='to' value='' />
</form>
</body>
</html>
Нет, ну серьезно, зачем это?
Этот велосипед для того, чтобы логинить сразу и на vk.com, и на vkontakte.ru?
Так при разлогине такого нет, vk.com остается залогиненым вроде как.
И через vk.com сидеть невозможно, если на vkontakte.ru не залогинен - много ссылок ведут на vkontakte.ru (неотрефакторили, видимо).
И вообще - <meta http-equiv='content-type' content='text/html; charset=windows-1251' /> на самом популярном российском сайте, который к тому же стремится стать интернациональным...
Я даже не знаю, как это помягче обозвать.
+143
uses graph, crt;
var gd,gm,i:integer;
x0,y0,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,l,r:integer;
procedure calculationx(r:integer);
begin
x1:=x0;
x2:=x0+trunc(r*sin(36*pi/180));
x3:=x0-trunc(r*cos(18*pi/180));
x4:=x0+trunc(r*cos(18*pi/180));
x5:=x0-trunc(r*sin(36*pi/180));
end;
procedure drow(x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer);
begin
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x4,y4,x5,y5);
line(x5,y5,x1,y1);
end;
procedure stars(r:integer); var y1,y2,y3,y4,y5:integer;
begin
calculationx(r);
y1:=y0-r;
y2:=y0+trunc(r*cos(36*pi/180));
y3:=y0-trunc(r*sin(18*pi/180));
y4:=y0-trunc(r*sin(18*pi/180));
y5:=y0+trunc(r*cos(36*pi/180));
drow(x1,y1,x2,y2,x3,y3,x4,y4,x5,y5);
r:=trunc(r*sin(18*pi/180)/sin(126*pi/180));
calculationx(r);
y1:=y0+r;
y2:=y0-trunc(r*cos(36*pi/180));
y3:=y0+trunc(r*sin(18*pi/180));
y4:=y0+trunc(r*sin(18*pi/180));
y5:=y0-trunc(r*cos(36*pi/180));
drow(x1,y1,x2,y2,x3,y3,x4,y4,x5,y5);
if (r>0) then stars(trunc(r*sin(18*pi/180)/sin(126*pi/180)));
end;
begin
read(l);
initgraph(gd,gm,'');
x0:=getmaxx div 2;
y0:=getmaxy div 2;
r:=trunc(l/cos(18*pi/180)/2);
{circle(x0,y0,r);}
stars(r);
readkey;
end.
классический унылый быдлокод, или "за что я ненавижу паскаль"
описание автора:
Известно, что у правильной пятиконечной звезды вершины лежат в вершинах правильного пятиугольника. Так же пятиугольник образуется при пересечении ее сторон. Так что в пентаграмму можно вписать еще одну пентаграмму. Что, собственно, я и сделала.
После несложных операций с рисунками мне удалось определить углы между стороной пентакла и отрезком, соединяющим вершину и центр, и между стороной правильного пятиугольника и высотой (медианой) к ней. Из углов удалось рассчитать нужные соотношения.
Попробуйте самостоятельно посчитать их, прежде чем читать решение.
Построение
Программа нарисует звезду по длине ее стороны. Т.е. программе нужен расчет координат вершин и длины меньшей звезды от большей. Я использовала рекурсию для рисования звезды.
http://clubs.ya.ru/4611686018427394475/replies.xml?item_no=1045&nocookiesupport =yes
+98
//
// Замена блоков __try/__finally нашей реализацией. Примеры использования:
// NTSTATUS SomeFunc() {
// X *p = NULL;
// NTSTATUS status = STATUS_SUCCESS;
// Try {
// p = new(NonPagedPool) X;
// if (!p) Leave(status = STATUS_INSUFFICIENT_RESOURCES);
//
// status = SomeKernelFunc();
// LeaveNS(status = STATUS_UNSUCCESSFUL);
// } Finally {
// if (p) delete p;
// }
// return status;
// }
//
#define Try if (1)
#define Finally try_exit: NOTHING
#define Leave(s) { s; goto try_exit; }
#define LeaveNS(s) {if (!NT_SUCCESS(status)) Leave(s);}
#define Run(s) {status = s; LeaveNS(;);}
Суровые исключения для Win32 драйвера
+168
function format_number($param) {
$array_number = explode('.', $param);
if (!isset($array_number[1])) {
echo $array_number[0].'.00';
} else {
echo $param;
}
}
Я задал ПХПисту задачку, чтобы он выводил цифры в таблице с 2 знаками после запятой.