109 

   109 

   110 var CursorPoint: TPoint;

   110 var CursorPoint: TPoint;

   111     TargetPoint: TPoint = (X: NoPointX; Y: 0);

   111     TargetPoint: TPoint = (X: NoPointX; Y: 0);

   112 

   112 

   113 implementation

   113 implementation

   115 {$IFDEF DEBUGFILE}

   115 {$IFDEF DEBUGFILE}

   116 var f: textfile;

   116 var f: textfile;

   117 {$ENDIF}

   117 {$ENDIF}

   118 

   118 

   119 

   119 

   135 procedure OutError(Msg: String; const isFatalError: boolean=false);

   135 procedure OutError(Msg: String; const isFatalError: boolean=false);

   136 begin

   136 begin

   137 {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}

   137 {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}

   138 if isFatalError then

   138 if isFatalError then

   139    begin

   139    begin

   140    WriteLn(Msg);

   141    WriteLn(Msg);

   141    SDL_Quit;

   142    SDL_Quit;

   142 //   Readln;

   143 //   Readln;

   143    halt(1)

   144    halt(1)

   144    end else WriteLnToConsole(Msg)

   145    end else WriteLnToConsole(Msg)