- 1
- 2
- 3
- 4
- 5
- 6
- 7
local string s1;
s1 = "..\\Save";
PC = PlayerOwner();
PC.ConsoleCommand("set Core.System SavePath"@s1);
SaveGameList.FontScale = FNS_Medium;
SaveGameList.OnClickSound = CS_Down;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+123.6
local string s1;
s1 = "..\\Save";
PC = PlayerOwner();
PC.ConsoleCommand("set Core.System SavePath"@s1);
SaveGameList.FontScale = FNS_Medium;
SaveGameList.OnClickSound = CS_Down;
Вот так не надо переопределять пути :(
+124.7
MAIN_RULES ()
{
IF ((Tour==2) && (Time>105) {
Competition_Failed();
Test_System_Down();
}
IF
(smoking==true)
or
(alcohol==true)
or
(Come_Home>23:00)
THEN
Break_The_Competition!
}
Листовки, расклеенные в профилактории, где квартировались участники KPI-OPEN'09. Этот контест также отметился эпичным падением системы в основном туре соревнований, что отразилось на их содержании ;) Так что первый if - поздняя вставка за авторством участников контеста.
Алсо, на бредовость синтаксиса уже давно обратили внимание. И попытки его пригладить к стандартам какого-либо языка уже проводились (наиболее частое решение - довольно увесистая пачка сишных дефайнов). Хотя можете высказывать и свои идеи на этот счет, будет интересно)
+129.4
<a class="btn" href="#" onclick="{if $client->getId()}xmlrpc_choose_playlist(this,{$mp3->getId()},1,'top_month_mp3');return false;{else}xmlrpc_load_popup('login', null);{/if}">
<img src="views/default/images/add.gif" width="8" height="8" alt="Добавить в плейлист" title="Добавить в плейлист" />
</a>
Это кусок смартявского шаблона
Типа песенку в плейлист добавляем
а иногда таких песен на странице ни одна сотня )))
+156
Как корабль назовешь, как говорится...
Кто сможет объяснить, почему пользователь sbb (т.е. я) на говнокоде присутствует 2 раза?
http://www.govnokod.ru/user/92
http://www.govnokod.ru/user/91
+141.8
proc redraw_level {level val} {
global lnames countries towns provinces sublocations positions
set parent [expr $level - 1]
set pvalue [.f$parent.l get [lindex $positions $parent]]
set curlist [lindex $lnames $level]($pvalue)
if {$val!=""} {lappend $curlist $val}
.f$level.l delete 2 end
eval set list_vals $$curlist
eval .f$level.l insert end $list_vals
}
Поскольку начал писать на TCL пару дней назад, ну просто не знаю, как изящно сделать. Опять на DCL смахивает...
+80
Очередное обновление на сайте Говнокод.ру!
Что нового:
1) отсылка комментариев по Ctrl+Enter
2) Новый раздел "Сток", в котором будут собраны последнии комментарии
3) Мы наконец-то починили отсылку почты с сайта!
4) Из мелочей следует отметить сервис восстановления забытых паролей и автоматическое скрытые заминусованных комментариев
5) Говнокод.ру еще быстрее и еще стабильнее!
По всем вопросам, предложениям и баг-репортам обращаться по контактам, указанным на странице "Обратная связь" (ссылка внизу страницы)
+126.6
<meta млн="" $42="" за="" рынке,="" масличном="" на="" оператора="" украинского="" крупнейшего="" group,="" allseeds="" доли="" контрольной="" приобретении="" о="" соглашение="" подписала="" Украины,="" групп="" агропромышленных="" крупнейших="" из="" одна="" ,="" Групп="" Кернел="" content="" name="description"/>
Говнодвижок слепил описание странички.
+115.7
(defun create (a) ;; список из составляющих атомов списка A
(cond
((null a) nil)
((atom a) (list a))
(T (append (create (car a)) (create (cdr a))))
)
)
(defun uniq (a) ;; оставить только уникальные атомы
(cond
((null a) nil)
((member (car a) (cdr a)) (uniq (cdr a)))
(t (cons (car a) (uniq (cdr a))))
)
)
(defun compare (a b) ;; сравнение состава списков
(if (= (length a) (length b))
(diff a b)
nil
)
)
(defun diff (a b) ;; проверка состава 2x списков
(cond
((null a) T)
(T (if (member (car a) b)
(diff (cdr a) b)
nil )
)
)
)
(defun main (a b)
(compare
(uniq (create a))
(uniq (create b))
)
)
а нужно было всего то проверить состоят ли 2 списка из одних и тех же атомов
+124.3
Functions called:
fflush (4 times)
delete (11 times)
fclose (1 times)
free (11 times)
fread (3 times)
fopen (1 times)
vsnprintf (4 times)
new (11 times)
SysReallocMem (652 times)
SysFreeMem (13185 times)
SysGetMem (13188 times)
lstrlenA (1 times)
lstrcpynA (4 times)
calloc (1 times)
strlen (98 times)
realloc (1 times)
strdup (1 times)
malloc (8 times)
memcpy (4 times)
Resource types used:
object (11 allocs, 11 max)
memory block (13199 allocs, 4007 max)
file stream (1 allocs, 1 max)
file handle (1 allocs, 1 max)
+122.4
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" runat="Server">
<!--
POSTER PHOTO
-->
<div id="poster-photo-container">
<img src="images/photo-poster.jpg" alt="" class="poster-photo-image" />
<div id="feature-area-home">
<div id="login" class="boxed">
<h2 class="title">Аккаунт пользователя</h2>
<div class="content">
<fieldset>
<legend>Войти</legend>
<label for="inputtext1">Аккаунт :</label>
<input id="inputtext1" type="text" name="inputtext1" value="" />
<label for="inputtext2">Пароль :</label>
<input id="inputtext2" type="password" name="inputtext2" value="" />
<asp:Button ID="Button1" runat="server" Text="Войти" onclick="Button1_Click" />
<p><a href="#">Забыли пароль ?</p>
</a>
</fieldset>
</div>
</div>
</div>
</div>
<!--
CONTENT CONTAINER
-->
<div id="content-container-two-column">
<!--
CONTENT MAIN COLUMN
-->
<div id="content-main-two-column">
<h1>
<span lang="ru">Контроль измерительных приборов.</span> </h1>
<p>
Consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet
dolore magna aliquam erat volutpat.</p>
<div id="three-column-container">
<div id="three-column-side1">
<a href="Items.aspx">
<img src="images/home-photo-1.jpg" class="photo-border" alt="Enter Alt Text Here" /></a>
<h2>
<span lang="ru">Хромотографы ?</span></h2>
<p>
<span lang="ru">11111111</span></p>
<span lang="ru">
<a href="Items.aspx">Подробнее</a></span><img class="arrow" src="images/arrow.gif" alt="" /></div>
</div>
</div>
<!--
CONTENT SIDE COLUMN
-->
<div class="clear">
</div>
</div>
</asp:Content>
Найти DIV