the editor unindents now on pressing }. have fun!

- fixed bugs... lalala
- updated debug-list
- fixed comment-bug
- now final edition...
- updated captions
- fixed configs-bug (configs weren't uploaded during FTP installations)

editor/editor2/AMXX_Edit_v2.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=2
 MinorVer=1
 Release=0
-Build=2
+Build=6
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=AMX Mod X
 FileDescription=Final
-FileVersion=2.1.0.2
+FileVersion=2.1.0.6
 InternalName=
 LegalCopyright=
 LegalTrademarks=

editor/editor2/UnitfrmMain.dfm

@@ -1569,7 +1569,7 @@ object frmMain: TfrmMain
           CommentStreamEnd = '*/'
           NumStyleBits = 5
         end>
-      LanguageManager.SelectedLanguage = 'SMALL'
+      LanguageManager.SelectedLanguage = 'null'
       FoldDrawFlags = [sciBelowIfNotExpanded]
       KeyCommands = <
         item

editor/editor2/UnitfrmMain.pas

@@ -995,9 +995,36 @@ begin
 end;
 
 procedure TfrmMain.acIdenterExecute(Sender: TObject);
+function GetMatchingBrace(eString: String): Integer;
+var a, b,c : integer;
+begin
+  Result := 0;
+  if Length(eString) < 1 then exit;
+
+  b := 0;
+  c := 0;
+
+  for a := 1 to Length(eString) do begin
+    if eString[a] = '(' then begin
+      b := b +1;
+      c := 1;
+    end
+    else if eString[a] = ')' then begin
+      b := b -1;
+      c := 1;
+    end;
+
+    if (b = 0) and (c = 1) then begin
+      Result := a;
+      exit;
+    end;
+  end;
+end;
+
 var eStr: TStringList;
     i, k: integer;
     eIdent, eTempIdent: Integer;
+    eString: String;
 begin
   Screen.Cursor := crHourGlass;
   sciEditor.Enabled := False;
@@ -1007,7 +1034,6 @@ begin
   for i := 0 to sciEditor.Lines.Count -1 do begin
     eStr.Add(TrimLeft(sciEditor.Lines[i]));
     // Remove strings and comments virtually because they could include brackets
-    if CountChars(eStr[i], '"') <> 0 then begin
     Caption := Format('AMXX-Edit v2 - Preparing (%s of %s lines)', [IntToStr(i+1), IntToStr(sciEditor.Lines.Count)]);
     while CountChars(eStr[i], '"') > 1 do
       eStr[i] := StringReplace(eStr[i], '"' + Between(eStr[i], '"', '"') + '"', '', [rfReplaceAll]);
@@ -1016,23 +1042,40 @@ begin
     if Pos('//', eStr[i]) <> 0 then
       eStr[i] := Copy(eStr[i], 1, Pos('//', eStr[i]) -2);
   end;
-  end;
 
   for i := 0 to eStr.Count -1 do begin
     if CountChars(eStr[i], '{') <> CountChars(eStr[i], '}') then
       eIdent := eIdent - CountChars(eStr[i], '}');
+
     sciEditor.Lines[i] := TrimLeft(sciEditor.Lines[i]);
+
     for k := 1 to eIdent + eTempIdent do
       sciEditor.Lines[i] := '	' + sciEditor.Lines[i];
     if eTempIdent <> 0 then
       eTempIdent := eTempIdent -1;
+
+    if (Pos('if', eStr[i]) = 1) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 3) then begin
+      eString := eStr[i];
+      Delete(eString, 1, 2);
+      if eString[1] <> Trim(eString)[1] then begin
+        eString := Trim(eString);
+        if GetMatchingBrace(eString) = Length(eString) then
+          eTempIdent := eTempIdent +1;
+      end;
+    end
+    else if (Pos('else', eStr[i]) = 1) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 3) then begin
+      eString := eStr[i];
+      Delete(eString, 1, 2);
+      if eString[1] <> Trim(eString)[1] then begin
+        eString := Trim(eString);
+        if GetMatchingBrace(eString) = Length(eString) then
+          eTempIdent := eTempIdent +1;
+      end;
+    end;
+
     if CountChars(eStr[i], '{') <> CountChars(eStr[i], '}') then
       eIdent := eIdent + CountChars(eStr[i], '{');
       
-    if (Pos('if', eStr[i]) = 1) and (Pos('{', eStr[i]) = 0) then
-      eTempIdent := eTempIdent +1
-    else if (Pos('else', eStr[i]) = 1) and (Pos('{', eStr[i]) = 0) then
-      eTempIdent := eTempIdent +1;
     Caption := Format('AMXX-Edit v2 - Setting indents (%s of %s lines)', [IntToStr(i+1), IntToStr(sciEditor.Lines.Count)]);
   end;
   Sleep(350);