62 

    62 

    63     GameTicks     : LongWord = 0;

    63     GameTicks     : LongWord = 0;

    64 

    64 

    65     cSkyColor     : Cardinal = 0;

    65     cSkyColor     : Cardinal = 0;

    66     cWaterColor   : Cardinal = $005ACE;

    66     cWaterColor   : Cardinal = $005ACE;

    68     cWhiteColor   : Cardinal = $FFFFFF;

    67     cWhiteColor   : Cardinal = $FFFFFF;

    69     cConsoleSplitterColor : Cardinal = $FF0000;

    68     cConsoleSplitterColor : Cardinal = $FF0000;

    70     cColorNearBlack       : Cardinal = 16;

    69     cColorNearBlack       : Cardinal = 16;

    71     cExplosionBorderColor : LongWord = $808080;

    70     cExplosionBorderColor : LongWord = $808080;

    72 

    71 

   147    end

   146    end

   148 end;

   147 end;

   149 

   148 

   150 procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);

   149 procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);

   151 begin

   150 begin

   153 end;

   152 end;

   154 

   153 

   155 procedure SDLTry(Assert: boolean; isFatal: boolean);

   154 procedure SDLTry(Assert: boolean; isFatal: boolean);

   156 begin

   155 begin

   157 if not Assert then OutError(SDL_GetError, isFatal)

   156 if not Assert then OutError(SDL_GetError, isFatal)