Говнокод #2793 — Pascal — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

Pascal / Говнокод #2793

+94.2

procedure TNamePlay.OKBtnClick(Sender: TObject);
var
 reg:treginifile;
 a,s,d,f,g,h,j,k,l,z,x:integer;
begin
if setp.CheckBox1.Checked =true then
playsound('Music\xxx.WAV',0,snd_async);

 if vopros.Easy.Checked=false then
  och.Caption:=inttostr(strtoint(och.caption)+50);
 with gamers do begin
   Reg := TReginifile.Create;
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   with reg do begin
    o1.caption:=readstring('Software\xxx\Gamers\Result','First','');
    o2.caption:=readstring('Software\xxx\Gamers\Result','Two','');
    o3.caption:=readstring('Software\xxx\Gamers\Result','Three','');
    o4.caption:=readstring('Software\xxx\Gamers\Result','Four','');
    o5.caption:=readstring('Software\xxx\Gamers\Result','Five','');
    o6.caption:=readstring('Software\xxx\Gamers\Result','Six','');
    o7.caption:=readstring('Software\xxx\Gamers\Result','Seven','');
    o8.caption:=readstring('Software\xxx\Gamers\Result','Eight','');
    o9.caption:=readstring('Software\xxx\Gamers\Result','Nine','');
    o10.caption:=readstring('Software\xxx\Gamers\Result','Ten','');
    g1.caption:=readstring('Software\xxx\Gamers','First','');
    g2.caption:=readstring('Software\xxx\Gamers','Two','');
    g3.caption:=readstring('Software\xxx\Gamers','Three','');
    g4.caption:=readstring('Software\xxx\Gamers','Four','');
    g5.caption:=readstring('Software\xxx\Gamers','Five','');
    g6.caption:=readstring('Software\xxx\Gamers','Six','');
    g7.caption:=readstring('Software\xxx\Gamers','Seven','');
    g8.caption:=readstring('Software\xxx\Gamers','Eight','');
    g9.caption:=readstring('Software\xxx\Gamers','Nine','');
    g10.caption:=readstring('Software\xxx\Gamers','Ten','');
   end;
 end;
 if password.Text='' then
  raise erangeerror.Create('Вы не ввели имени')
 else begin
  with gamers do begin
   a:=strtoint(o1.caption);
   s:=strtoint(o2.caption);
   d:=strtoint(o3.caption);
   f:=strtoint(o4.caption);
   g:=strtoint(o5.caption);
   h:=strtoint(o6.caption);
   j:=strtoint(o7.caption);
   k:=strtoint(o8.caption);
   l:=strtoint(o9.caption);
   z:=strtoint(o10.caption);
   x:=strtoint(nameplay.och.caption);
   if x>a then begin
    g10.Caption:=g9.Caption;
    o10.Caption:=o9.caption;
    g9.Caption:=g8.Caption;
    o9.Caption:=o8.caption;
    g8.Caption:=g7.Caption;
    o8.Caption:=o7.caption;
    g7.Caption:=g6.Caption;
    o7.Caption:=o6.caption;
    g6.Caption:=g5.Caption;
    o6.Caption:=o5.caption;
    g5.Caption:=g4.Caption;
    o5.Caption:=o4.caption;
    g4.Caption:=g3.Caption;
    o4.Caption:=o3.caption;
    g3.Caption:=g2.Caption;
    o3.Caption:=o2.caption;
    g2.Caption:=g1.Caption;
    o2.Caption:=o1.caption;
    g1.Caption:=nameplay.Password.Text;
    o1.Caption:=nameplay.och.Caption;
   end else if x=a then begin
    g1.Caption:=nameplay.Password.Text;
    o1.Caption:=nameplay.och.Caption;
   end else if x<a then begin
    if x>s then begin
     g10.Caption:=g9.Caption;
     o10.Caption:=o9.caption;
     g9.Caption:=g8.Caption;
     o9.Caption:=o8.caption;
     g8.Caption:=g7.Caption;
     o8.Caption:=o7.caption;
     g7.Caption:=g6.Caption;
     o7.Caption:=o6.caption;
     g6.Caption:=g5.Caption;
     o6.Caption:=o5.caption;
     g5.Caption:=g4.Caption;
     o5.Caption:=o4.caption;
     g4.Caption:=g3.Caption;
     o4.Caption:=o3.caption;
     g3.Caption:=g2.Caption;
     o3.Caption:=o2.caption;
     g2.Caption:=nameplay.Password.Text;
     o2.Caption:=nameplay.och.Caption;
    end else if x=s then begin
     g2.Caption:=nameplay.Password.Text;
     o2.Caption:=nameplay.och.Caption;
    end else if x<s then begin
...

Ололо, феерический говнокод! LOL

Запостил:

ancestor, 15 Марта 2010

Комментарии (17) RSS

guest 15.03.2010 04:19 # +10.8

Задолбали школьнеги.
Ответить
ancestor 15.03.2010 04:30 # −7.2

показать все, что скрытоДа, человек, который это кодил, был школьником и это было очень давно, сейчас мы с ним над этим ржали ))))
Ответить
- guest 19.03.2010 20:29 # +4.8
  
  Нет, он имел ввиду, что школьник здесь ты.
  Ответить
guest 15.03.2010 08:20 # −6.6

показать все, что скрытоЗадолбало быдло и дельфи.
Ответить
- guest 15.03.2010 09:15 # −5.2
  
  показать все, что скрытоЗадолбали умнеги, которых задолбал %lnguage_name%
  Ответить
  - guest 15.03.2010 10:35 # −7.2
    
    показать все, что скрытоЗадолбали умнеги, которые думают, что они самые умные.
    Ответить
- guest 15.03.2010 09:15 # −6.8
  
  показать все, что скрытоЗадолбали умнеги, которых задолбал %lnguage_name%
  Ответить
  - guest 15.03.2010 10:34 # −6.2
    
    показать все, что скрытоЗадолбали умнеги, которые любит повторять все 10-раз.
    Ответить
    - guest 15.03.2010 10:40 # +5.2
      
      да это копипейст :) тру-инструмент тру-говнокодера :)
      Ответить
      - guest 15.03.2010 14:44 # −6.4
        
        показать все, что скрытоЯ хз, почему два раза отправилось. При первой попытке вылез мессаг "неверно введён проверочный код", со второй получилось, и я увидел два поста.
        Ответить
ancestor 15.03.2010 12:51 # +6.6

Вы идиоты, быдло и школьники, язык тут не при чем :) Возвращайтесь на свои уютненькие чаны ;)
Ответить
guest 15.03.2010 13:22 # +5.2

бугага, индусы минуса наставили
Ответить
- guest 16.03.2010 13:42 # +3.8
  
  Индус индуса видит из далека ;)
  Ответить
guest 15.03.2010 18:41 # −14.8

показать все, что скрытоГде здесь С++?
Ответить
guest 16.03.2010 17:35 # +2.6

лол, одни минуса
индусы не хотят признавать свой код говном
Ответить
- guest 17.03.2010 07:31 # +1.4
  
  Говносленг перевесил говнокод
  Ответить
bugmenot 01.06.2010 21:40 # 0

'Software\xxx\Gamers' - это какой-то пр0н? Огласите!
Ответить

Говнокод: по колено в коде.

Pascal / Говнокод #2793

Комментарии (17) RSS

Добавить комментарий