program go_hamster;
uses crt, keys_m, arena_graphics_m, graphics_m, game_m, debug_m;

function IsTerminalValid: boolean;
begin
    IsTerminalValid := (ScreenWidth >= ScreenW) and (ScreenHeight >= ScreenH)
end;

procedure PrintTerminalHelp;
begin
    writeln('Increase your terminal size and try again.');
    if ScreenWidth < ScreenW then
    begin
        writeln('Your terminal width: ', ScreenWidth,
                '. Required: ', ScreenW, '.')
    end;
    if ScreenHeight < ScreenH then
    begin
        writeln('Your terminal height: ', ScreenHeight,
                '. Required: ', ScreenH, '.')
    end
end;

var
    g: gameState;
begin
    if not IsTerminalValid then
    begin
        PrintTerminalHelp;
        exit
    end;
    InitGame(g);
    EraseAll;
    MainLoop(g)
end.