1. 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) RSS

    • ava glauberov 27.12.2015 12:50 # −1

      фу, как ужасно!)
      ставлю плюс!))
      Ответить

    • ava bormand 27.12.2015 13:45 # 0

      Пробел и энтер плохо нажимались?
      Ответить

      • ava 1024-- 27.12.2015 13:52 # +2 

        if NITM=5then

        Человек выучил грамматику языка, на котором пишет.
        Ответить

    • ava kegdan 27.12.2015 13:50 # +3

      Тут не "Многа букав" тут "мала прабелав"
      Ответить

    • ava braun3812 07.04.2016 10:33 # 0

      Зато мама на всю жизнь теперь тебя запомнила, как крутой хакер.
      Ответить

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