gh-scrum/src/debug_m.pas

unit debug_m;

interface

uses arena_m, cell_m, creature_m;

procedure Debug;
procedure DebugCell(cell: cellItemPtr);
procedure Print(var m: arenaMatrix);

procedure PrintCreatureDebug(var cr: creature);

implementation

uses crt;

const
    DebugMsg = '===============DEBUG===============';

var
    DebugTmp: integer = 2;

procedure Debug;
begin
    GotoXY(2, DebugTmp);
    writeln(DebugMsg);
    DebugTmp := DebugTmp + 1
end;

procedure DebugCell(cell: cellItemPtr);
begin
    GotoXY(2, DebugTmp);
    writeln('Cur X: ', cell^.x, ' Cur Y: ', cell^.y);
    DebugTmp := DebugTmp + 1
end;

procedure Print(var m: arenaMatrix);
var 
    i, j: integer;
begin
    for i := 1 to ArenaW do
    begin
        for j := 1 to ArenaH do
            if m[j][i] then
                write(1, ' ')
            else
                write(0, ' ');
        writeln
    end;
    GotoXY(1, 1) 
end;

procedure PrintCreatureDebug(var cr: creature);
var
    i: integer;
begin
    GotoXY(2, 2);
    for i := 1 to 20 do
        write(' ');
    GotoXY(2, 2);
    writeln(cr.curX, ' ', cr.curY, ' ', cr.dX, ' ', cr.dY)
end;

end.