37 lines
791 B
ObjectPascal
37 lines
791 B
ObjectPascal
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.
|
|
|