1. Pascal / Говнокод #5261

    +114

    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
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    99. 99
    TMapObj = record
    Size: integer;
    Selected, Valid: boolean;
    case Kind: TKind of
// дохрена пропущено
   koTxr: (
        TxrFileName: string [31];
        tLast: integer;
        TxrCorrect: boolean;
        LODS: array [0 .. 3] of TBitmap;
        Pixel: TBitmap;
      );
      koItem: (
        Location: TLocation;
        ItemEndSel: boolean;        // выделена ли для перетаскивания
        TimeBeforeReborn: integer;  // времени до восстановления
        DescrIndex: integer;        // индекс описателя
        Rotation: integer;

        TeamColor, EnemyColor: integer;

        iLast: integer;

        CannotGet: boolean;

        case TKindItem of
          kiWeapon: (
            iwpFallen: boolean;
            iwpBulletsLeft: integer;
            iwpState: TWeaponState;
          );
          kiHuman: (
            ihState: integer;
          );
          kiFlag: (
            ifState: TFlagState;
            ifHome: integer;
          );
          kiScepter: (
            isState: TScepterState;
          );
      );
      koItemDescr: (
        ItemFileName: string [31];  // файл с описанием предмета
        idLast: integer;
        ItemCorrect: boolean;
        ItemName: string [31];      // название предмета
        SpriteIndName: string [31];
        SpriteInd: integer;         // картинка
        RebornTime: integer;        // время перерождения
        case KindItem: TKindItem of
          kiHealth: (
            hlCount: integer;
          );                          
          kiShield: (
            shCount: integer;
          );
          kiFlag: (
            flTeam: integer;
          );        
          kiSL: (
            slTeam: integer;
          );
          kiAmmo: (
            amCount: integer;
            amIndex: integer;       // тип патрона
          );
          kiWeapon: (                          // всё про пушку
            wpAmmoIndex: integer;              // тип патронов
            wpKeyNumber: integer;              // кнопка на клавиатуре
            wpBulletsInCharge: integer;        // патронов в обойме
            wpInitBullets: integer;            // изначальное число патронов
            wpMaxBullets: integer;             // максимальное число патронов
            wpShotBullets: integer;            // патронов за раз
            wpReloadTime, wpShotTime: integer; // время перезарядки, скорострельность (скорострельность в миллисекундах)
            wpDispersion, wpKickBack: integer; // разброс самого оружия и отдача
            wpBasic: integer;       // базовое ли
            wpDamage: integer;      // урон
            wpDistance, wpBulletSpeed: integer;    // предельная дальность выстрела, скорость пуль
            wpSound: integer;       // номер ноты
            wpColor: TColor;        // цвет
          );
      );   
      koBullet: (
        bLast: integer;

        BLocP: array [0 .. 1] of TPoint;
        BLocRoom: integer;

        BVector: TPoint;           // нормализованный вектор направления

        BDamage: integer;          // параметры, которые надо передавать в процедуру создания пули
        BSpeed: integer;
        BLengthLeft: integer;
        BOwner: integer;
        Bn, Bm: TDistFunc;
        BColor: TColor;
    );
end;

    Меня попросили показать, до чего может довести структурное программирование при отрицании ООП. Разветвлённая структура с кучей ветвей.
    Для лучшего эффекта обмазываться вместе с http://govnokod.ru/4249

    Запостил: TarasB, 13 Января 2011

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

    • ava Lure Of Chaos 13.01.2011 13:07 # +3

      о май гад.
      для таких вещей в ООП есть наследование )))
      Ответить

      • ava TarasB 13.01.2011 15:50 # +1

        Даже так: из-за таких вещей (в том числе) и изобрели ООП, в котором (в том числе) есть наследование.
        Ответить

    • ava StriderMan 13.01.2011 13:12 # +4

      сурово. Есть даже определенная неземная красота в этом.
      Ответить

    • ava firefred 24.08.2021 02:10 # 0

      Нет, главное к подружкам своим, таким же потаскушкам, она меня не ревновала, к проституткам каких иногда приводил прямо домой, в те дни, когда она была «занята» – тоже, а тут, к матери родной ревнует!
      Ответить

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