26 unit hwengine;

    26 unit hwengine;

    27 interface

    27 interface

    28 {$ELSE}

    28 {$ELSE}

    29 program hwengine;

    29 program hwengine;

    30 {$ENDIF}

    30 {$ENDIF}

    31 uses

    32 uses

    32     SDLh in 'SDLh.pas',

    33     SDLh in 'SDLh.pas',

    33     uConsts in 'uConsts.pas',

    34     uConsts in 'uConsts.pas',

    34     uGame in 'uGame.pas',

    35     uGame in 'uGame.pas',

    35     uMisc in 'uMisc.pas',

    36     uMisc in 'uMisc.pas',

   421 {$ENDIF}

   422 {$ENDIF}

   422 end;

   423 end;

   423 

   424 

   424 {$IFNDEF HWLIBRARY}

   425 {$IFNDEF HWLIBRARY}

   425 ////////////////////////////////

   426 ////////////////////////////////

   427 begin

   428 begin

   428     cScreenWidth:= w;

   429     cScreenWidth:= w;

   429     cScreenHeight:= h;

   430     cScreenHeight:= h;

   430     if cFullScreen then

   431     if cFullScreen then

   431         ParseCommand('/fullscr 1', true)

   432         ParseCommand('/fullscr 1', true)

   432     else

   433     else

   433         ParseCommand('/fullscr 0', true);

   434         ParseCommand('/fullscr 0', true);

   435 

   436 

   436 /////////////////////

   437 /////////////////////

   437 procedure DisplayUsage;

   438 procedure DisplayUsage;

   438 var i: LongInt;

   439 var i: LongInt;

   439 begin

   440 begin