1. Список говнокодов пользователя MAD_DEL

    Всего: 2

  2. Pascal / Говнокод #19251

    −103

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    tstar=record x1,y1:integer;bk:byte end;
tbtn=record x,y,w,h:integer;text:string;end;
twar=record mLife,Life,mFuel,Fuel,Power,DopPow,TDopP:integer;
x,y,w,h:integer;k,vis,deys:byte;end;
taster=record mLife,life:integer;x,y,w,h:integer;k,s,deys,vis:byte;end;
tpatr=record x,y,dx,dy,pow,k:integer;vis,kd,S:byte;end;
tSityr=record X,Y,S:integer;end;

// - пропускаю "многа букав"

procedure NewItem(IX,IY:integer;OI,I:byte);var spi:integer; begin
if NITM=5then NITM:=1 else inc(NITM);
with item[NITM]do if vis=0 then begin randomize;
x:=ix;w:=x+15;y:=iy;h:=y+15;spi:=MITM+10;
if oi=1 then s:=i else begin s:=1+RANDOM(spi);
if s>mitm then s:=1+random(2);end;
k:=1;vis:=1;end;end;

procedure NewPatr(px,py,DX1,DY1:integer;SP,Power:byte);
begin if Npatr=6000then npatr:=1 else inc(npatr);randomize;
with patr[npatr]do begin x:=px;y:=py;dx:=dx1;dy:=dy1;
pow:=power;vis:=1;k:=0;kd:=0;s:=SP;end;end;

    Один из первых проектов,
    писал без интернета и какой-либо помощи на Delphi 2,
    имея в руках лишь книжку Delphi 5, O_o
    узнал о правильном оформлении кода через год...

    MAD_DEL, 27 Декабря 2015

    Комментарии (5)

  3. C# / Говнокод #19230

    −104

    1. 1
    2. 2
    3. 3
    ((Action)(() =>
{
}))();

    Екатерина Фоменок делится умениями C#

    MAD_DEL, 24 Декабря 2015

    Комментарии (31)