2048/GameClass.pas at master · Frintest/2048 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
unit GameClass;

interface

uses FieldClass, dataFromField, crt;

type
      Game = class
      private
            initialX, initialY, width, height, squaresCount, squareSize, totalCountHeight,
            gameOffset, fieldTopOffset, betweenOffset, totalCount, errorCode: integer;
            field: FieldClass.Field;

            function computeFieldInitialCoords: System.Tuple<integer, integer>;
            function computeGameSize: System.Tuple<integer, integer>;
            procedure render;
            procedure drawTotalCount;
      public
            constructor Create(_squaresCount,  _squareSize, _totalCountHeight,
            _gameOffset, _fieldTopOffset, _betweenOffset: integer);
            begin
                  self.squaresCount := _squaresCount;
                  self.squareSize := _squareSize;
                  self.totalCountHeight := _totalCountHeight;
                  self.gameOffset := _gameOffset;
                  self.fieldTopOffset := _fieldTopOffset;
                  self.betweenOffset := _betweenOffset;
                  self.errorCode := -1;

                  var coords := self.computeFieldInitialCoords();
                  var computedX, computedY: integer;
                  (computedX, computedY) := coords;
                  self.initialX := computedX;
                  self.initialY := computedY;
                  self.field := new FieldClass.Field(self.initialX, self.initialY, self.squaresCount, self.squareSize, self.errorCode);
            end;

            procedure init;
      end;

implementation

procedure Game.drawTotalCount;
begin
      gotoXY(self.gameOffset + 1, self.gameOffset + 1);
      textBackground(black);
      textColor(lightGray);
      write('Счёт: ');
      textColor(white);
      write(self.totalCount);
end;

function Game.computeFieldInitialCoords: System.Tuple<integer, integer>;
begin
      var coords: (integer, integer);
      var initialX, initialY: integer;

      initialX := self.gameOffset + 1;
      initialY := self.gameOffset + self.totalCountHeight + self.fieldTopOffset + 1;
      coords := (initialX, initialY);

      result := coords;
end;

function Game.computeGameSize: System.Tuple<integer, integer>;
begin
      var size: (integer, integer);
      var width, height: integer;

      width := self.gameOffset * 2 + self.squareSize *  self.squaresCount + self.betweenOffset * (self.squaresCount - 1);
      height := width + self.totalCountHeight + self.fieldTopOffset;
      size := (width, height);

      result := size;
end;

procedure Game.init;
begin
      var size := self.computeGameSize();
      var width, height: integer;

      (width, height) := size;
      self.width := width;
      self.height := height;

      setWindowSize(self.width, self.height);
      System.Console.CursorSize := 1;
      hideCursor();

      self.field.drawField();
      self.totalCount := requestTotalCount(self.field);
      self.drawTotalCount();

      while true do
            self.render();

      textColor(black);
      textBackground(black);
      readln;
end;

procedure Game.render;
begin
      self.field.handlersArrows();

      if self.field.IsRerender then
      begin
            self.field.drawField();
            self.totalCount := requestTotalCount(self.field);
            self.drawTotalCount();
      end;
end;
end.