Мой индусский код! Я горжусь им!

[Vikenty]

Levsha100, твой код, не говнокод а юморокод

[m0nax]

			
			Perk[73].Name = "Выживание";
			Perk[73].SetReqStats(0, 0, 6, 0, 6, 0, 0);
			Perk[73].SetReqSkills(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40);
			Perk[73].AddSkills(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 25);
			Perk[73].MinLevel = 3;
			Perk[73].Text = "+25% к Скитальцу";
			Perk[73].CountPerk = 3;

с виду вполне такой нормальный код если не обращать внимания на 18 параметров у функций
но...да, предыдущие 500 строк остальные 72 элемента заполняются таким же образом

[Simply-Art]

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('Проснись и пой',mtInformation,[mbOK],0);
if rez=MB_OK then Form1.Close;
end;

Клевая кнопочка сохранения я так и не понял что за проект там был ... но программа полюбой закроеться

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.LoadFromFile('c:\autoexec.bat');
Label2.Caption:='3';
memo1.Lines.LoadFromFile('c:\autoexec.bat');
if memo2.Text='' then Memo1.Lines.Add('"Вирус необнаружен"') else Memo1.Lines.Add('"Возможно обнаружен вирус"');
end;

Вот это вообще шедевр, первый мой "антивирус"

procedure TForm1.Button1Click(Sender: TObject);
begin
if Memo1.Text='чит:издевательстра' then GroupBox5.Visible:=true else
IdUDPClient1.Send(Memo1.Text);
Memo2.Lines.Add('Я'+':'+#13#10+Memo1.Text);
Memo1.Clear;
end;

Это я делал чат для локалки, обработка клавиши отправить неграмотный еще был

Как это все давно было, я тогда только увидел делфи ...

[Пепел Феникса]

typedef struct
{
    struct
    {
        unsigned char mem:1;
        unsigned char reg:1;
        unsigned char areg:1;
        unsigned char imm:1;
        unsigned char farm:1;
        unsigned char rel:1;
        unsigned char spec_r:1;
        unsigned char s_reg:1;
    } type;
    unsigned char OPbyte_s;
} PhAsmOpcodeParam;

typedef struct
{
    unsigned short* mnemo;
    unsigned char type;
    unsigned char p_count;
    PhAsmOpcodeParam param[3];
    struct
    {
        unsigned char digit:3;
        unsigned char type:2;
        unsigned char useREX:1;
        unsigned char pref_p:2;
    } d_type;
    struct
    {
        unsigned char op_len:3;
        unsigned char use32:1;
        unsigned char use64:1;
        unsigned char rex_w:1;
        unsigned char lock_dig:1;
        unsigned char other:1;
    } a_info;
    unsigned char opcode[6];
} PhAsmOpcode;

после выходных я забыл половину значений(точнее их смысла)
собственно серая строчка в подписи связана именно с этим кодом.(там далее в C-файле идет массив этих структур)

где то еще программа была которая чтото делает, и помоему даже чтото полезное, но как хз.

[Tronix]

Вот тоже один из шедевров прошлого. Программка проверяла правильность штрих-кода и выдавала страну-производителя. Нет чтобы табличку построить - так нет, близкие условные джампы. Или включить near адресацию. Говнокод как он есть:

	cmp bl,1
	je France_jmp
	cmp ax,380
	je Bulgaria_jmp
	cmp ax,383
	je Slavonia_jmp
	cmp ax,385
	je Croatia_jmp
	mov bx,400
	mov dx,440
	call IfAnd
	cmp bl,1
	je Germany_jmp
	jmp next_s
USA_jmp: jmp USA
Grinford_jmp: jmp Grinford
France_jmp: jmp France
Bulgaria_jmp: jmp Bulgaria
Slavonia_jmp: jmp Slavonia
Croatia_jmp: jmp Croatia
Germany_jmp: jmp Germany

	next_s:
	mov bx,450
	mov dx,459
	call IfAnd
	cmp bl,1
	je Japan_jmp
	mov bx,460
	mov dx,469
	call IfAnd
	cmp bl,1
	je Russia_jmp
	cmp ax,471
	je Taiwan_jmp
	cmp ax,474
	je Estonia_jmp
	cmp ax,475
	je Litvia_jmp
	cmp ax,477
	jmp next_ss

Japan_jmp: jmp Japan
Russia_jmp: jmp Russia
Taiwan_jmp: jmp Taiwan
Estonia_jmp: jmp Estonia
Litvia_jmp: jmp Latvia
Lithuania_jmp: jmp Lithuania
Philippines_jmp: jmp Philippines
Ukraine_jmp: jmp Ukraine
Moldova_jmp: jmp Moldova
Hongkong_jmp: jmp Hongkong
Britain_jmp: jmp Britain
Greece_jmp: jmp Greece
Cyprus_jmp: jmp Cyprus
Macedonia_jmp: jmp Macedonia
Malta_jmp: jmp Malta
Ireland_jmp: jmp Ireland
Belgium_jmp: jmp Belgium
Portugal_jmp: jmp Portugal
Iceland_jmp: jmp Iceland
Denmark_jmp: jmp Denmark
next_ss:
	je Lithuania_jmp
	cmp ax,480
	je Philippines_jmp
	cmp ax,482
	je Ukraine_jmp
	cmp ax,484
	je Moldova_jmp
	cmp ax,489
	je Hongkong_jmp

PS: А интерфейс у нее ничо был для ассемблера...

[DomiNick]

   s:=Copy(Input, k, PosEx(PV[0], Input, k)-k);
   If (Pos(PV[1], s)<>0) Then
      s:='Значение_1'
   Else
      If (Pos(PV[2], s)<>0) Then
         s:='Значение_2'
      Else
         If (Pos(PV[3], s)<>0) Then
            s:='Значение_3'
         Else
            If (Pos(PV[4], s)<>0) Then
               s:='Значение_4'
            Else
               If (Pos(PV[5], s)<>0) Then
                  s:='Значение_5'
               Else
                        ...
                        ...
                              If (Pos(PV[N], s)<>0) Then
                                 s:='Значение_N'
                              Else
                                 s:='> Неизвестное значение:  '+s;

[Smitt&Wesson]

Сообщение от DomiNick

   s:=Copy(Input, k, PosEx(PV[0], Input, k)-k);
   If (Pos(PV[1], s)<>0) Then
      s:='Значение_1'
   Else
      If (Pos(PV[2], s)<>0) Then
         s:='Значение_2'
      Else
         If (Pos(PV[3], s)<>0) Then
            s:='Значение_3'
         Else
            If (Pos(PV[4], s)<>0) Then
               s:='Значение_4'
            Else
               If (Pos(PV[5], s)<>0) Then
                  s:='Значение_5'
               Else
                        ...
                        ...
                              If (Pos(PV[N], s)<>0) Then
                                 s:='Значение_N'
                              Else
                                 s:='> Неизвестное значение:  '+s;

DomiNick порадовал . Особенно последней строчкой. И так до бесконечности!
DomiNick++; Ещё раз - !

[Tronix]

DomiNick -

[russian-stalker]

А то, был и ещё какой...

var b1:MovieClip;
b1.alpha = 0;
var c1:MovieClip;
c1.alpha = 0;

var b2:MovieClip;
b2.alpha = 0;
var c2:MovieClip;
c2.alpha = 0;

var b3:MovieClip;
b3.alpha = 0;
var c3:MovieClip;
c3.alpha = 0;

var b4:MovieClip;
b4.alpha = 0;
var c4:MovieClip;
c4.alpha = 0;

var b5:MovieClip;
b5.alpha = 0;
var c5:MovieClip;
c5.alpha = 0;

var b6:MovieClip;
b6.alpha = 0;
var c6:MovieClip;
c6.alpha = 0;

var b7:MovieClip;
b7.alpha = 0;
var c7:MovieClip;
c7.alpha = 0;

var b8:MovieClip;
b8.alpha = 0;
var c8:MovieClip;
c8.alpha = 0;

var b9:MovieClip;
b9.alpha = 0;
var c9:MovieClip;
c9.alpha = 0;

var b10:MovieClip;
b10.alpha = 0;
var c10:MovieClip;
c10.alpha = 0;

var b11:MovieClip;
b11.alpha = 0;
var c11:MovieClip;
c11.alpha = 0;

[DomiNick]

Самое смешное что это рабочий вариант, который функционирует и поныне (просто как-то лень переделывать древнюю поделку)...

Анекдот в тему:

с програмерского форума:

наткнулись на багу VS2005 — после 128-го вложенного if-else-if условия просто напросто игнорируются. Пришлось переделать в switch-case