1.1 --- a/sourcepawn/batchtool/compile.dpr	Fri Aug 10 22:29:54 2007 +0000
     1.2 +++ b/sourcepawn/batchtool/compile.dpr	Fri Aug 10 22:43:44 2007 +0000
     1.3 @@ -56,8 +56,12 @@
     1.4  
     1.5    cfg := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'compiler.ini');
     1.6    outdir := cfg.ReadString('Main', 'Output', '');
     1.7 -  if (outdir <> '') and (DirectoryExists(outdir)) then
     1.8 -    outdir := IncludeTrailingPathDelimiter(outdir)
     1.9 +  if (outdir <> '') then begin
    1.10 +    if (DirectoryExists(outdir)) then
    1.11 +      outdir := IncludeTrailingPathDelimiter(outdir)
    1.12 +    else if (DirectoryExists(ExtractFilePath(ParamStr(0)) + outdir)) then
    1.13 +      outdir := ExtractFilePath(ParamStr(0)) + IncludeTrailingPathDelimiter(outdir);
    1.14 +  end
    1.15    else
    1.16      outdir := '';
    1.17    cfg.Free;