- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 
-(bool)hasInternetConnection
{
    return true;
}
-(void)checkInternetConnection
{
    NSLog(@"checking connection");
    mTmp.loggedIn = ([self hasInternetConnection]==YES) ? 0 : -1;
}
                                    Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−357.8
-(bool)hasInternetConnection
{
    return true;
}
-(void)checkInternetConnection
{
    NSLog(@"checking connection");
    mTmp.loggedIn = ([self hasInternetConnection]==YES) ? 0 : -1;
}
                                    
            Мой начальник-тимлид, американский индус по происхождению, узнав, что я уже несколько часов потратил на попытки неизвращенной реализации нужного нам "простого" функционала, сказал, что поможет мне, хоть я и не просил.
Уже через несколько минут я увидел у себя вот эти строки...
P.S. если кто не знает, то код на Objective-C
        
+162.5
$s_name=$_POST['s_name'];
$f_name=$_POST['f_name'];
$m_name=$_POST['m_name'];
$login=$_POST['login'];
$password1=$_POST['password1'];
$password2=$_POST['password2'];
$post_id=$_POST['post'];
$query="SELECT  person.login as login	FROM	person	ORDER BY ID";
$res=Select($query);
$flag=false;
		  While(OCIFetch($res))
		        {
			        $login_base=text($res,'LOGIN');
				if ($login==$login_base)
				{
				$flag=true;
				break;
				}
			}
		If($flag)
			{
			echo "</br><center><h3>Такой логин уже существует...придумайте еще что-нибудь!</center></h3></br>";
			?>
			<center><h4><a href="index.php?menu=reg">Назад</a></h4><center>
			<?
			}
               if (!$flag)
		   {
		     if ($password1==$password2)
		           {
		             If (($login!='') and ($password1!='') and ($s_name!='') and ($f_name!='') and ($m_name!=''))
			   {
                                 .... Ну и дальше  добавение и все такое))
                                    ммм.. альтернативные способы защиты от инъекций в запросах???)))
+153.6
var xmlhttp
var dlid;
function showHint(id)
{
xmlhttp=GetXmlHttpObject();
if (xmlhttp==null)
  {
  alert ("Your browser does not support XMLHTTP!");
  return;
  }
dlid="dl"+id;
var url="download.php";
xmlhttp.onreadystatechange=stateChanged;
xmlhttp.open("GET",url+"?update="+id,false);
xmlhttp.send(null);
window.location=url+"?id="+id;
}
function stateChanged()
{
if (xmlhttp.readyState==4)
  {
  document.getElementById(dlid).innerHTML=xmlhttp.responseText;
  }
}
function GetXmlHttpObject()
{
if (window.XMLHttpRequest)
  {
  // code for IE7+, Firefox, Chrome, Opera, Safari
  return new XMLHttpRequest();
  }
if (window.ActiveXObject)
  {
  // code for IE6, IE5
  return new ActiveXObject("Microsoft.XMLHTTP");
  }
return null;
}
                                    Разбираюсь с AJAX
+137.5
void TWindowTID::SetStyle(GtkWidget* widget, const char *form, gint Red_, gint Green_, gint Blue_)
{
    struct _GtkStyle *style;
    GdkColor bg;
    style=gtk_style_new();
    bg.red = Red_;
    bg.blue = Blue_;
    bg.green = Green_;
    if (form=="TEXT")
    {
        style->fg[GTK_STATE_NORMAL]=bg; //TEXT
    }
    else
        if (form=="BORDER")
        {
            style->base[GTK_STATE_NORMAL]=bg; //BORDER
        }
        else
            if (form=="ALL")
            {
                style->bg[GTK_STATE_NORMAL]=bg;
                style->base[GTK_STATE_NORMAL]=bg; //BORDER
                style->fg[GTK_STATE_NORMAL]=bg; //TEXT
            }
            else
                if (form=="button")
                {
                    style->bg[GTK_STATE_PRELIGHT]=bg;
                    style->base[GTK_STATE_PRELIGHT]=bg; //BORDER
                    style->bg[GTK_STATE_SELECTED]=bg;
                    style->base[GTK_STATE_SELECTED]=bg; //BORDER
                }
                else
                {
                    style->bg[GTK_STATE_NORMAL]=bg;
                }
    style->font = gdk_font_load("-adobe-helvetica-*-r-*-*-12-*-*-*-*-*-*-*");
    if ((GtkWidget *)widget!=NULL) gtk_widget_set_style((GtkWidget *)widget, style);
}
                                    Сравнение строк умиляет
+107.2
procedure TFormMoneyToBag.AMEditVirtualKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Field : string;
  Value : integer;
begin
  if (Key = 16) or (Key = 13) then begin
    with ADOHardCash.FieldByName('Dengi') do begin
      if AsString = '500 грн' then Field := '[500hrn]'
      else if AsString = '200 грн' then Field := '[200hrn]'
           else if AsString = '100 грн' then Field := '[100hrn]'
                else if AsString = '50 грн' then Field := '[50hrn]'
                     else if AsString = '20 грн' then Field := '[20hrn]'
                          else if AsString = '10 грн' then Field := '[10hrn]'
                               else if AsString = '5 грн' then Field := '[5hrn]'
                                    else if AsString = '2 грн' then Field := '[2hrn]'
                                         else if AsString = '1 грн' then Field := '[1hrn]'
                                              else if AsString = '1 грн монета' then Field := '[1hrnCoin]'
                                                   else if AsString = '50 коп' then Field := '[50kopCoin]'
                                                        else if AsString = '25 коп' then Field := '[25kopCoin]'
                                                             else if AsString = '10 коп' then Field := '[10kopCoin]'
                                                                  else if AsString = '5 коп' then Field := '[5kopCoin]'
                                                                       else if AsString = '2 коп' then Field := '[2kopCoin]'
                                                                            else if AsString = '1 коп' then Field := '[1kopCoin]'
    end;
    UpdateIncassationCurrentValue.Parameters.ParamByName('@IncassationId').Value := IncassationId;
    UpdateIncassationCurrentValue.Parameters.ParamByName('@Field').Value := Field;
    if AMEditVirtual.Text = '' then Value := 0 else Value := StrToInt(AMEditVirtual.Text);
    UpdateIncassationCurrentValue.Parameters.ParamByName('@Value').Value := Value;
    ExecStoredProc(UpdateIncassationCurrentValue);
    RequeryADO(ADOHardCash);
    RequeryADO(ADOCashDeskInfo);
    ButtonStatus;
    AMEditVirtual.Visible := false;
  end;
end;
                                    
            Сие Чудо техники заполняет параметры для выполнения хранимой процедуры на сервере.
Написал Большой Мудила, хотя в целом он хороший человек.
        
+147
final public function getModelId()
{
	return '42';
}
                                    
+118.9
.loginField {
color: красний;
}
                                    
+63.6
struct window_t
{
    int Frame;
    int Window;
    int Title;
};
int TWindowTID::CreateWindow(int width,int height,int posX,int posY,int WindowType,int &win)
{
    GtkWidget* fixed;
    fixed = get_new_fixed()
    window_t* w0 = new window_t;
    // здесь всякие разные манипуляции разной степени бессмысленности
    w0->Window=reinterpret_cast<int>(fixed);
    return static_cast<int>(w0->Window);
}
                                    Буйство кастов
+96.5
......
                 int a1=0,a2=0,a3=0,a4=0,a5=0,a6=0,a7=0,a8=0,a9=0,a10=0;
                 for (int i=0;i<arl->Count;i++)
                 {
                    if(arl[i]<0.1)
                    {
                        a1++;
                    }
                    if(arl[i]<0.2&&arl[i]>0.1)
                    {
                        a2++;
                    }
                    if(arl[i]<0.3&&arl[i]>0.2)
                    {
                        a3++;
                    }
                    if(arl[i]<0.4&&arl[i]>0.3)
                    {
                        a4++;
                    }
                    if(arl[i]<0.5&&arl[i]>0.4)
                    {
                        a5++;
                    }
                    if(arl[i]<0.6&&arl[i]>0.5)
                    {
                        a6++;
                    }
                    if(arl[i]<0.7&&arl[i]>0.6)
                    {
                        a7++;
                    }
                    if(arl[i]<0.8&&arl[i]>0.7)
                    {
                        a8++;
                    }
                    if(arl[i]<0.9&&arl[i]>0.8)
                    {
                        a9++;
                    }
                    if(arl[i]<1&&arl[i]>0.9)
                    {
                        a10++;
                    }
                 }
.....
                                    определение количества элементов в каждом диапазоне. Было написано быстро и влоб, т.к ничего красивее придумать не смог, да и времени не было.
+131.8
def ad30 // Все понятно из названия, да?
vgl start_naht 3
baw gr
spg ad40
aktuelle_naht = 3 ;
lad vsp 53 aktuelle_naht ;
spg up setze_npk_abs ;
vgl start_naht 3
baw gl
PPZ # R100 Z1 z1_start Z2 P8 Z3 P9 ;
z1_start = -1590
z1_ziel =  -2985
vgl tisch_nr 2
baw gl
spg ad31
z1_start = z1_start + tisch_abstand ;
z1_ziel  = z1_ziel  + tisch_abstand ;
def ad31
z1_soll = z1_start
lad r1 R65
lad r2 R66
R1.C = c3_soll ;
R2.C = c3_soll ;
R1.B = 0;
R2.B = 0;
spg up verschiebe_nahtanfang ; 
spg up fahre_z1 ;
PPZ # A1 -12.13 A2 -15.73 A3 114.05 A4 24 A5 40 A6 -208 Z1 z1_start Z2 P8 Z3 P9
pnd_amp = pnd_amp_laengs ;
pnd_len = pnd_amp * 0.8
dx = -delta_x_npk
ges_schweiss = ges_schweiss_orig * 0.85
npk 4 rel x dx  y 0 z delta_z_npk a 0 b 0 c 0
spg up laengsnaht_ohne_messen ;
; ------- Veraenderte Punkte speichern
vgl za_soll 90
baw kl
spg ad35
; ------- Oberseite -----------------------
lad r605 r1
lad r606 r2
spg ad36
; ------- Unterseite ----------------------
def ad35
lad r625 r1
lad r626 r2
def ad36
lad p1 pos
spg up freifahren
spg up anfahr_ges ;
p2 = p2 - ( z1_start - z1_ziel )
liz x p1 y p2 z p3 a p4 b p5 c p6 z1 z1_start z2 p8 z3 p9
spg up grundstellung
spg up brenner_reinigen ;
; --------------------------------------------------------------
; Schweissnaht 4 (Roboterseite)
; --------------------------------------------------------------
def ad40
vgl start_naht 4
baw gr
spg ad50
aktuelle_naht = 4 ;
lad vsp 53 aktuelle_naht ;
spg up brenner_reinigen ;
z1_start =   -1590
z1_ziel  =  -2985
vgl tisch_nr 2
baw gl
spg ad41
z1_start = z1_start + tisch_abstand ;
z1_ziel  = z1_ziel  + tisch_abstand ;
def ad41
z1_soll  = z1_start ;
lad r1 R67
lad r2 R68
                                    
            Это язык SRCL, используется на некоторых роботах, зовется высокоуровневым. Однако не умеет даже передавать параметры в функции.
Особенно умиляют команды типа PPZ и LIZ и названия типа aktuelle_naht - писал немец :)
В конце концов, чтобы запрограммировать этого робота пришлось писать свой конструктор программ, который выдавал эту лажу мегатоннами (а в чем еще измерять разрушительную силу этой хрени??).