Говнокод

TCalc = Class
  Public
    Order : 1..2;
    BMouseDown : Boolean;
    TSS : TPoint;
    mas : array[1..8,1..8] of Byte;
    Constructor Create;
    Procedure MouseDown (Stroka, Stolb : Byte; Var Bool : Boolean);
    Procedure FiguresCount (Var White, Black : Byte);
    Procedure Messages (i : Byte);
    Procedure Proverka (T : TPoint; Stroka, Stolb : Byte;
                        Var Bool, Double : Boolean; Var Dbl : TPoint);
    Procedure ReloadMas (Str, Stolb : Byte; Point : TPoint; Double : Boolean; DblP : TPoint);
    Procedure BoardHelp (Stroka, Stolb : Byte);
    Procedure NoChangeOrder (Stroka, Stolb : Byte; Var NoChangeOrder : Boolean);
    Procedure Proverka_GoTo (Str, Stolb : Byte; Var masBool : ArrBool;
                             Var masCoord : ArrCoord);
    Procedure Scanner (Var kol : Byte; Var ScanMas : ArrCoord);
    Procedure PlaySound (Wave : TLMDWaveComp; ind : Byte);
    Procedure FigureTrue (Str, Stolb : Byte);
    Procedure Damka_Go (Fig : TPoint; Str, Stolb : Byte;
                        Var Bool, Double : Boolean; Var Dbl : TPoint);
    Procedure IsDamka_Fight (X, Y : Byte; Var Bool : Boolean; Var Coord : TPoint);                    
end;

Объявление класса, отвечающего за логику в игре шашки.
Объектный подход :)

Запостил:

ClassVar, 16.11.2010 (Updated 24.03.2018)

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

ctm 16 лет ago # 0

ну да, объектный - класс же есть 🙂
все в паблике, методы (судя по названиям) все подряд, не только логические.
+1.
Ответить
psina-from-ua 16 лет ago # 0

За такой английский руки нужно отрывать!
Ответить
bugmenot 16 лет ago # 0

IsDamka_Fight ЛОЛИЩЕ
судя по именам, имплементация в лоб на неск. тыс. LoC тоже весёлая
Ответить
TarasB 16 лет ago # 0

Не понял, а где тут функция, отвечающая за ИИ?
Ответить
- ctm 16 лет ago # 0 ⇈
  
  скорее всего глубоко в... внутри каких-то методов 🙁
  названия тут те еще.
  Ответить
- Arigato 16 лет ago # 0 ⇈
  
  Может тут: Constructor Create;
  Ответить