65 lines
1.1 KiB
ObjectPascal
65 lines
1.1 KiB
ObjectPascal
|
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.
|