Added AMXX-Studio to CVS

editor/studio/SciSearchReplace.pas

@@ -0,0 +1,351 @@
+//CE_Desc_Include(helpdescriptions.txt)
+{$Include SciCommonDef.Inc}
+unit SciSearchReplace;
+{
+ Unit    : SciSearchReplace
+ Purpose : Search and Replace for TScintilla based on Synedit Dialogs
+ Created : 20/03/2003
+ Original Author  : Kiriakos Vlahos (kvlahos@london.edu)
+ History : 29/09/2004 Initial Release with Delphi Scintilla Interface Components
+                      Changed Editor property from TScintilla to TScintillaBase class.
+                      Wasn't any need for the extra properties to use this dialog.
+                      hdalis (hdalis@users.sourceforge.net)
+           06/02/2005 Fixed a bug that caused the beginundoaction to be started,
+                      but not finished.. i.e it treated all changes after a replace all
+                      to belonging to the same undo operation..
+                      hdalis (hdalis@users.sourceforge.net)
+           15/02/2005 Somewhat fixed a bug which caused the component to hang when
+                      search/replace for the regular expression '$'..
+                      it became an endless loop..
+                      if SelWord is true, we get the word under the caret as the searchword
+                      instead of the need to select the word first.. If there isn't a word
+                      under the caret, uses the previous searchtext if any..
+                      hdalis (hdalis@users.sourceforge.net)
+           07/29/2005 Fixed "Search from caret"-bug
+}
+
+interface
+Uses
+  Types, Classes, Controls, Forms, SciLexer;
+
+Type
+
+  TSciSearchReplace = class(TComponent)
+  private
+    FSearchForSelWord : boolean;
+    FEditor : TScintillaBase;
+    FSearchFromCaretInt: boolean;
+    FFoundText : String;
+    FOnTextFound : TNotifyEvent;
+    FOnTextNotFound : TNotifyEvent;
+    FOnTextReplaced : TNotifyEvent;
+  protected
+      procedure Notification(AComponent: TComponent;
+                Operation: TOperation);  override;
+  public
+    // Search Options
+    SearchBackwards: boolean;
+    SearchCaseSensitive: boolean;
+    SearchSelectionOnly: boolean;
+    SearchWholeWords: boolean;
+    SearchRegex: boolean;
+    SearchText: string;
+    SearchTextHistory: string;
+    ReplaceText: string;
+    ReplaceTextHistory: string;
+    ReplacedCount : Integer;
+
+    property FoundText : string read fFoundText;
+    procedure DoSearchReplaceText(AReplace, ABackwards: boolean);
+    procedure ShowSearchReplaceDialog(AReplace: boolean);
+    constructor Create(AOwner : TComponent);override;
+  published
+    property SearchForSelWord : boolean read FSearchForSelWord write FSearchForSelWord;
+    property SearchFromCaret: boolean read FSearchFromCaretInt write FSearchFromCaretInt;
+    property Editor : TScintillaBase read FEditor write FEditor;
+    property OnTextFound : TNotifyEvent read FOnTextFound write FOnTextFound;
+    property OnTextNotFound : TNotifyEvent read FOnTextNotFound write FOnTextNotFound;
+    property OnTextReplaced : TNotifyEvent read FOnTextReplaced write FOnTextReplaced;
+  end;
+
+implementation
+
+Uses
+ SciSearchTextDlg, SciConfirmReplaceDlg, SciReplaceTextDlg, SciSupport,sciUtils;
+
+{ TSciSearchReplace }
+constructor TSciSearchReplace.Create(AOwner : TComponent);
+begin
+  ReplacedCount:=0;
+  SearchFromCaret:=True;
+  Inherited;
+end;
+
+procedure TSciSearchReplace.DoSearchReplaceText(AReplace, ABackwards: boolean);
+var
+  Options: Integer;
+  StartPosition, EndPosition : Integer;
+  TargetStart, TargetEnd, posFind : Integer;
+  APos: TPoint;
+  EditRect: TRect;
+  DlgRes : Integer;
+  lastMatch,lenTarget,MovePastEOL : Integer;
+  chNext : Integer;
+  findLen : Integer;
+  LenFound, LenReplaced : Integer;
+//  lastMatch : Integer;
+  doendundo : Boolean;
+begin
+  doendundo:=false;
+  if not Assigned(FEditor) then Exit;
+  Options := 0;
+  if SearchCaseSensitive then
+    Options := Options or SCFIND_MATCHCASE;
+  if SearchWholeWords then
+    Options := Options or SCFIND_WHOLEWORD;
+  if SearchRegex then
+    Options := Options or SCFIND_REGEXP;
+  if SearchText='' then Exit;
+  if ABackwards then
+  begin
+    if fSearchFromCaretInt and not SearchSelectionOnly then
+      StartPosition := FEditor.GetSelectionStart - 1
+    else if SearchSelectionOnly then
+      StartPosition := FEditor.GetSelectionEnd
+    else
+      StartPosition := FEditor.GetLength;
+    if SearchSelectionOnly then
+      EndPosition := FEditor.GetSelectionStart
+    else
+      EndPosition := 0;
+  end else
+  begin
+    if fSearchFromCaretInt and not SearchSelectionOnly then
+      StartPosition := FEditor.GetSelectionEnd + 1
+    else if SearchSelectionOnly then
+      StartPosition := FEditor.GetSelectionStart
+    else
+      StartPosition := 0;
+    if SearchSelectionOnly then
+      EndPosition := FEditor.GetSelectionEnd
+    else
+      EndPosition := FEditor.GetLength;
+  end;
+  findLen:=Length(SearchText);
+
+  with FEditor do
+  begin
+    SetTargetStart(StartPosition);
+    SetTargetEnd(EndPosition);
+    SetSearchFlags(Options);
+    posFind := SearchInTarget(findLen, PChar(SearchText));
+    if (posFind < 0) then
+    begin
+      if Assigned(FOnTextNotFound) then
+        FOnTextNotFound(Self);
+    end else
+    begin
+      lastMatch:=posFind;
+      TargetStart := GetTargetStart;
+      TargetEnd := GetTargetEnd;
+      LenFound := TargetEnd - TargetStart;
+      LenReplaced := LenFound;
+      EnsureRangeVisible(TargetStart, TargetEnd);
+      SetSel(TargetStart, TargetEnd);
+			FFoundText := FEditor.SelText;
+      if Assigned(FOnTextFound) then
+        FOnTextFound(Self);
+
+      // Replace code
+      if AReplace then
+      begin
+        DlgRes := mrYes;
+
+        if ConfirmReplaceDialog = nil then
+          ConfirmReplaceDialog := TConfirmReplaceDialog.Create(Application);
+        ReplacedCount:=0;
+        while (posFind >= 0) and (DlgRes <> mrCancel) do
+        begin
+          lenTarget:=GetTargetEnd-GetTargetStart;
+          movePastEOL:=0;
+          if lenTarget<=0 then
+          begin
+            chNext:=GetCharAt(GetTargetEnd);
+            if (chNext=10) or (chNext=13) then MovePastEOL:=1;
+          end;
+          if not (DlgRes = mrYesToAll) then
+          begin
+            APos := Point(PointXFromPosition(TargetStart), PointYFromPosition(TargetStart));
+            APos := ClientToScreen(APos);
+            EditRect := FEditor.ClientRect;
+            EditRect.TopLeft := ClientToScreen(EditRect.TopLeft);
+            EditRect.BottomRight := ClientToScreen(EditRect.BottomRight);
+
+            ConfirmReplaceDialog.PrepareShow(EditRect, APos.X, APos.Y,
+              APos.Y + 2 * FEditor.TextHeight(LineFromPosition(TargetStart)), SearchText);
+            DlgRes :=ConfirmReplaceDialog.ShowModal;
+            if (DlgRes = mrYesToAll) and (doendundo=false) then
+            begin
+              FEditor.BeginUndoAction;
+              doendundo:=True;
+            end;
+
+          end;
+
+
+          if DlgRes in [mrYes, mrYesToAll] then
+          begin
+            // Replace
+            if SearchRegex then
+              LenReplaced := ReplaceTargetRE(Length(ReplaceText), PChar(ReplaceText))
+            else
+              LenReplaced := ReplaceTarget(Length(ReplaceText), PChar(ReplaceText));
+            Inc(ReplacedCount);
+
+            lastMatch:=posFind + lenReplaced + movepastEOL;
+            if lenTarget=0 then
+            lastMatch:=PositionAfter(lastMatch);
+
+            TargetEnd := TargetStart + LenReplaced -1+movePastEOL;
+            if Assigned(FOnTextReplaced) then FOnTextReplaced(Self);
+          end;
+          if DlgRes in [mrYes, mrNo, mrYesToAll] then
+          begin
+            // carry on
+            if lastMatch>=endPosition then
+            begin
+              posFind:=-1;
+            end else
+            begin
+              if ABackwards then
+              begin
+                SetTargetStart(TargetStart - 1);
+                SetTargetEnd(EndPosition);
+              end else
+              begin
+                SetTargetStart(TargetEnd + 1);
+                EndPosition := EndPosition + LenReplaced - LenFound;
+                SetTargetEnd(EndPosition);
+              end;
+              SetTargetEnd(EndPosition);
+              SetSearchFlags(Options);
+              posFind := SearchInTarget(Length(SearchText), PChar(SearchText));
+            end;
+            if posFind >= 0 then
+            begin
+              TargetStart := GetTargetStart;
+              TargetEnd := GetTargetEnd;
+              lastMatch:=TargetStart;
+              LenFound := TargetEnd - TargetStart;
+              LenReplaced := LenFound;
+              EnsureRangeVisible(TargetStart, TargetEnd);
+              SetSel(TargetStart, TargetEnd);
+            end;
+          end else
+            break;
+        end;   // While
+        if doendundo then
+          FEditor.EndUndoAction;
+
+        // Restore original selection if Searching in Selection
+        if SearchSelectionOnly then
+        begin
+          if ABackwards then
+            SetSel(EndPosition, StartPosition)
+          else
+            SetSel(StartPosition, EndPosition);
+          EnsureRangeVisible(GetSelectionStart, GetSelectionEnd);
+        end;
+      end;  // if AReplace
+    end;  //if (posFind < 0)
+  end; // with FEditor
+
+  if ConfirmReplaceDialog <> nil then
+  begin
+    ConfirmReplaceDialog.Free;
+    ConfirmReplaceDialog := nil;
+  end;
+end;
+
+procedure TSciSearchReplace.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (AComponent = FEditor) and (Operation = opRemove) then FEditor := nil;
+end;
+
+procedure TSciSearchReplace.ShowSearchReplaceDialog(AReplace: boolean);
+var
+  dlg: TTextSearchDialog;
+  SelectedText : string;
+begin
+  if not Assigned(FEditor) then Exit;
+  if AReplace then
+    dlg := TTextReplaceDialog.Create(Self)
+  else
+    dlg := TTextSearchDialog.Create(Self);
+  with dlg do
+  try
+    // assign search options
+    SearchBackwards := Self.SearchBackwards;
+    SearchCaseSensitive := Self.SearchCaseSensitive;
+    SearchFromCursor := Self.SearchFromCaret;
+    SearchInSelectionOnly := Self.SearchSelectionOnly;
+    SelectedText := FEditor.SelText;
+    if (SelectedText <> '') and (Pos(#10, SelectedText) > 0) or (Pos(#13, SelectedText) > 0) then
+      SearchInSelectionOnly := True
+    else
+      SearchInSelectionOnly := False;
+
+    // start with last search text
+
+    if FSearchForSelWord and not SearchInSelectionOnly
+    then
+    begin
+      if Editor.SelectionWord(True)<>'' then
+        SearchText:=Editor.SelectionWord(True)
+      else
+        SearchText := Self.SearchText;
+    end else
+      SearchText := Self.SearchText;
+    SearchTextHistory := Self.SearchTextHistory;
+    if AReplace then
+    with dlg as TTextReplaceDialog do
+    begin
+      ReplaceText := Self.ReplaceText;
+      ReplaceTextHistory := Self.ReplaceTextHistory;
+    end;
+    SearchWholeWords := Self.SearchWholeWords;
+    if ShowModal = mrOK then
+    begin
+      Self.SearchBackwards := SearchBackwards;
+      Self.SearchCaseSensitive := SearchCaseSensitive;
+      Self.SearchFromCaret := SearchFromCursor;
+      Self.SearchSelectionOnly := SearchInSelectionOnly;
+      Self.SearchWholeWords := SearchWholeWords;
+      Self.SearchRegex := SearchRegularExpression;
+      Self.SearchText := SearchText;
+      Self.SearchTextHistory := SearchTextHistory;
+
+      if AReplace then
+        with dlg as TTextReplaceDialog do
+        begin
+          Self.ReplaceText := ReplaceText;
+          Self.ReplaceTextHistory := ReplaceTextHistory;
+        end;
+      fSearchFromCaretInt := Self.SearchFromCaret;
+      if SearchText <> '' then
+      begin
+        DoSearchReplaceText(AReplace, Self.SearchBackwards);
+        fSearchFromCaretInt := True;
+      end;
+      Self.SearchSelectionOnly := False;
+    end;
+  finally
+    dlg.Free;
+  end;
+end;
+
+initialization
+  ConfirmReplaceDialog := nil;
+end.

editor/studio/UnitCodeExplorerUpdater.pas

@@ -0,0 +1,321 @@
+unit UnitCodeExplorerUpdater;
+
+interface
+
+uses
+  Classes, Forms, SysUtils, ComCtrls, Windows, ScintillaLanguageManager,
+  Dialogs, CommCtrl;
+
+type
+  TCodeExplorerUpdater = class(TThread)
+  private
+    eConstants: TStringList;
+    eDefined: TStringList;
+    eCVars: TStringList;
+    eIncluded: TStringList;
+    eMethodsDefault, eMethodsEvents, eStocks: TStringList;
+    eNatives: TStringList;
+    eForwards: TStringList;
+    eVariables: TStringList;
+
+    eCode: TStringList;
+    
+    eAutoComplete, eCallTips, eKeywords: String;
+  protected
+    procedure Execute; override;
+    procedure GetCode;
+    procedure SetValuesPAWN;
+  end;
+
+implementation
+
+uses UnitfrmMain, UnitLanguages, UnitMainTools, UnitCodeUtils,
+  UnitTextAnalyze, UnitfrmSettings, UnitPlugins;
+
+{ TCodeExplorerUpdater }
+
+procedure TCodeExplorerUpdater.Execute;
+var eStr: TStringList;
+begin
+  eCode := TStringList.Create;
+  eConstants := TStringList.Create;
+  eDefined := TStringList.Create;
+  eCVars := TStringList.Create;
+  eIncluded := TStringList.Create;
+  eMethodsDefault := TStringList.Create;
+  eMethodsEvents := TStringList.Create;
+  eStocks := TStringList.Create;
+  eNatives := TStringList.Create;
+  eForwards := TStringList.Create;
+  eVariables := TStringList.Create;
+  eStr := TStringList.Create;
+
+  repeat
+    Synchronize(GetCode);
+    eAutoComplete := '';
+    eCallTips := '';
+    eKeywords := '';
+
+    if (not Application.Terminated) and (Started) and (not frmMain.pnlLoading.Visible) and (frmMain.trvExplorer.Visible) then begin
+      if Plugin_UpdateCodeExplorer(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tsMain.Items[frmMain.tsMain.ActiveTabIndex].Caption, True) then begin
+        try
+          if (frmMain.tsMain.ActiveTabIndex = 0) then begin
+            // analyze code
+            with ParseCodePAWN(eCode, ExtractFileName(ActiveDoc.FileName)) do begin
+              eConstants.Assign(Constants);
+              eDefined.Assign(Defined);
+              eCVars.Assign(CVars);
+              eIncluded.Assign(Included);
+              eMethodsDefault.Assign(MethodsDefault);
+              eMethodsEvents.Assign(Events);
+              eStocks.Assign(Stocks);
+              eNatives.Assign(Natives);
+              eForwards.Assign(Forwards);
+              eVariables.Assign(Variables);
+
+              eAutoComplete := eAutoComplete + #13 + AutoComplete.Text;
+              eCallTips := eCallTips + #13 + CallTips.Text;
+              eKeywords := eKeywords + #13 + HighlightKeywords.Text;
+
+              DestroyResult;
+            end;
+            // apply changes
+            Synchronize(SetValuesPAWN);
+          end;
+        except
+          // GABEM
+        end;
+      end;
+      Sleep(1000);
+    end
+    else
+      Sleep(50);
+  until (Application.Terminated);
+
+  eCode.Free;
+  eConstants.Free;
+  eDefined.Free;
+  eCVars.Free;
+  eIncluded.Free;
+  eMethodsDefault.Free;
+  eMethodsEvents.Free;
+  eStocks.Free;
+  eNatives.Free;
+  eForwards.Free;
+  eVariables.Free;
+  eStr.Free;
+end;
+
+procedure TCodeExplorerUpdater.GetCode;
+begin
+  eCode.Assign(frmMain.sciEditor.Lines);
+end;
+
+procedure TCodeExplorerUpdater.SetValuesPAWN;
+function GetNode(eText: String): TTreeNode;
+var i: integer;
+begin
+  Result := nil;
+
+  for i := 0 to frmMain.trvExplorer.Items.Count -1 do begin
+    if (frmMain.trvExplorer.Items[i].Text = eText) then begin
+      if (frmMain.trvExplorer.Items[i].ImageIndex = 42) or (frmMain.trvExplorer.Items[i].ImageIndex = 43) then begin
+        Result := frmMain.trvExplorer.Items[i];
+        exit;
+      end;
+    end;
+  end;
+end;
+
+var exConstants, exDefined, exIncluded, exMethods, exDefault, exEvents,
+    exStocks, exNatives, exForwards, exVariables, exCVars: Boolean;
+    i, eSelStart, eSelLength: integer;
+    LineMaxSubord: integer;
+    eStr: TStringList;
+    eScrollPosX, eScrollPosY: Integer;
+begin
+  if frmMain.trvExplorer.Items.Count = 0 then exit;
+
+  frmMain.trvExplorer.Items.BeginUpdate;
+  eScrollPosX := GetScrollPos(frmMain.trvExplorer.Handle, SB_HORZ);
+  eScrollPosY := GetScrollPos(frmMain.trvExplorer.Handle, SB_VERT);
+
+  // Get Expanded-State and delete children
+  with GetNode('Constants') do begin
+    exConstants := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('CVars') do begin
+    exCVars := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Defined') do begin
+    exDefined := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Included') do begin
+    exIncluded := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Default') do begin
+    exDefault := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Events') do begin
+    exEvents := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Stocks') do begin
+    exStocks := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Methods') do begin
+    exMethods := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Natives') do begin
+    exNatives := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Forwards') do begin
+    exForwards := Expanded;
+    DeleteChildren;
+  end;
+  with GetNode('Variables') do begin
+    exVariables := Expanded;
+    DeleteChildren;
+  end;
+  // Create new children
+  with frmMain.trvExplorer.Items.AddChild(GetNode('Defined'), 'CVars') do begin
+    ImageIndex := 42;
+    SelectedIndex := 42;
+  end;
+  with frmMain.trvExplorer.Items.AddChild(GetNode('Methods'), 'Default') do begin
+    ImageIndex := 42;
+    SelectedIndex := 42;
+  end;
+  with frmMain.trvExplorer.Items.AddChild(GetNode('Methods'), 'Events') do begin
+    ImageIndex := 42;
+    SelectedIndex := 42;
+  end;
+  with frmMain.trvExplorer.Items.AddChild(GetNode('Methods'), 'Stocks') do begin
+    ImageIndex := 42;
+    SelectedIndex := 42;
+  end;
+
+  for i := 0 to eConstants.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Constants'), eConstants[i], Pointer(eConstants.Objects[i])) do begin
+      ImageIndex := 48;
+      SelectedIndex := 48;
+    end;
+  end;
+  for i := 0 to eDefined.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Defined'), eDefined[i], Pointer(eDefined.Objects[i])) do begin
+      ImageIndex := 48;
+      SelectedIndex := 48;
+    end;
+  end;
+  for i := 0 to eCVars.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('CVars'), eCVars[i], Pointer(eCVars.Objects[i])) do begin
+      ImageIndex := 35;
+      SelectedIndex := 35;
+    end;
+  end;
+  for i := 0 to eIncluded.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Included'), eIncluded[i], Pointer(eIncluded.Objects[i])) do begin
+      ImageIndex := 34;
+      SelectedIndex := 34;
+    end;
+  end;
+  for i := 0 to eMethodsDefault.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Default'), eMethodsDefault[i], Pointer(eMethodsDefault.Objects[i])) do begin
+      ImageIndex := 12;
+      SelectedIndex := 12;
+    end;
+  end;
+  for i := 0 to eMethodsEvents.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Events'), eMethodsEvents[i], Pointer(eMethodsEvents.Objects[i])) do begin
+      ImageIndex := 47;
+      SelectedIndex := 47;
+    end;
+  end;
+  for i := 0 to eStocks.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Stocks'), eStocks[i], Pointer(eStocks.Objects[i])) do begin
+      ImageIndex := 12;
+      SelectedIndex := 12;
+    end;
+  end;
+  for i := 0 to eNatives.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Natives'), eNatives[i], Pointer(eNatives.Objects[i])) do begin
+      ImageIndex := 47;
+      SelectedIndex := 47;
+    end;
+  end;
+  for i := 0 to eForwards.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Forwards'), eForwards[i], Pointer(eForwards.Objects[i])) do begin
+      ImageIndex := 47;
+      SelectedIndex := 47;
+    end;
+  end;
+  for i := 0 to eVariables.Count -1 do begin
+    with frmMain.trvExplorer.Items.AddChildObject(GetNode('Variables'), eVariables[i], Pointer(eVariables.Objects[i])) do begin
+      ImageIndex := 35;
+      SelectedIndex := 35;
+    end;
+  end;
+
+  GetNode('Constants').Expanded := exConstants;
+  GetNode('Defined').Expanded := exDefined;
+  GetNode('CVars').Expanded := exCVars;
+  GetNode('Included').Expanded := exIncluded;
+  GetNode('Methods').Expanded := exMethods;
+  GetNode('Default').Expanded := exDefault;
+  GetNode('Events').Expanded := exEvents;
+  GetNode('Stocks').Expanded := exStocks;
+  GetNode('Natives').Expanded := exNatives;
+  GetNode('Forwards').Expanded := exForwards;
+  GetNode('Variables').Expanded := exVariables;
+
+  SetScrollPos(frmMain.trvExplorer.Handle, SB_HORZ, eScrollPosX, False);
+  SetScrollPos(frmMain.trvExplorer.Handle, SB_VERT, eScrollPosY, False);
+  frmMain.trvExplorer.Items.EndUpdate;
+
+  if (not frmMain.pnlLoading.Visible) and (not frmMain.sciEditor.AutoCActive) and (not frmMain.sciEditor.CallTipActive) then begin
+    frmMain.sciAutoComplete.AStrings.Text := eAutoComplete;
+    for i := frmMain.sciAutoComplete.AStrings.Count -1 downto 0 do begin
+      if Length(Trim(frmMain.sciAutoComplete.AStrings[i])) <= 1 then
+        frmMain.sciAutoComplete.AStrings.Delete(i);
+    end;
+    frmMain.sciCallTips.ApiStrings.Text := eCallTips;
+    for i := frmMain.sciCallTips.ApiStrings.Count -1 downto 0 do begin
+      if Length(Trim(frmMain.sciCallTips.ApiStrings[i])) <= 1 then
+        frmMain.sciCallTips.ApiStrings.Delete(i);
+    end;
+
+    with TSciKeywords(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Find('Pawn').Keywords.Items[1])) do begin
+      eStr := TStringList.Create;
+      for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+        if not frmMain.sciEditor.GetFoldExpanded(i) then
+          eStr.Add(IntToStr(i));
+      end;
+      
+      Keywords.Text := eKeywords;
+      frmMain.sciEditor.LanguageManager.Update;
+
+      for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+        if eStr.IndexOf(IntToStr(i)) <> -1 then begin
+          LineMaxSubord := frmMain.sciEditor.GetLastChild(i, -1);
+          frmMain.sciEditor.SetFoldExpanded(i, False);
+          if LineMaxSubord > i then
+            frmMain.sciEditor.HideLines(i+1, LineMaxSubord);
+        end;
+      end;
+
+      eStr.Free;
+    end;
+  end;
+
+  Plugin_UpdateCodeExplorer(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tsMain.Items[frmMain.tsMain.ActiveTabIndex].Caption, False);
+end;
+
+end.

editor/studio/UnitCodeInspector.pas

@@ -0,0 +1,417 @@
+unit UnitCodeInspector;
+
+interface
+
+uses SysUtils, Classes, Windows, JvInspector, UnitMainTools, Contnrs;
+
+type
+  TSelectionTextList = class(TStringList)
+  private
+    FSelected: Integer;
+    function GetSelectedText: string;
+    function GetSelected: Integer;
+    procedure SetSelectedText(const Value: string);
+    procedure SetSelected(const Value: Integer);
+  public
+    property Selected: Integer read GetSelected write SetSelected;
+    property SelectedText: string read GetSelectedText write SetSelectedText;
+  end;
+
+  TJvInspectorSelectionTextListItem = class(TJvCustomInspectorItem)
+  protected
+    function GetDisplayValue: string; override;
+    procedure GetValueList(const Strings: TStrings); override;
+    procedure SetDisplayValue(const Value: string); override;
+    procedure SetFlags(const Value: TInspectorItemFlags); override;
+  end;
+
+  TStringWrapper = class(TObject)
+  public
+    Value: string;
+    constructor Create(const AValue: string);
+  end;
+
+  TSTLWrapper = class(TObject)
+  public
+    STL: TSelectionTextList;
+    Value: String;
+    constructor Create(const ASTL: TSelectionTextList; const AValue: String);
+  end;
+
+function AddField(eName, eCategory, eValue: String): TJvCustomInspectorItem;
+function AddCombo(eName, eCategory, eValue: String; eValues: array of string): TJvCustomInspectorItem;
+
+procedure UpdateCI;
+procedure UpdateCI_PAWN;
+
+var eFormatSettings: String;
+    eAllIncluded: TStringArray;
+    
+    FItems: TObjectList;
+    STLItem: TSelectionTextList;
+
+implementation
+
+uses UnitfrmMain, UnitLanguages, UnitCodeUtils, UnitMenuGenerators,
+  UnitPlugins;
+
+var eBraceTexts: TStringList;
+
+{ "Combobox"-Item }
+
+function TSelectionTextList.GetSelected: Integer;
+begin
+  if FSelected < -1 then
+    FSelected := -1
+  else if FSelected >= Count then
+    FSelected := Count - 1;
+  Result := FSelected;
+end;
+
+function TSelectionTextList.GetSelectedText: string;
+begin
+  if Selected >= 0 then
+    Result := Strings[Selected]
+  else
+    Result := '';
+end;
+
+procedure TSelectionTextList.SetSelected(const Value: Integer);
+begin
+  FSelected := Value;
+  GetSelected; // adjust FSelected
+end;
+
+procedure TSelectionTextList.SetSelectedText(const Value: string);
+begin
+  FSelected := IndexOf(Value);
+end;
+
+function TJvInspectorSelectionTextListItem.GetDisplayValue: string;
+begin
+  Result := TSelectionTextList(Data.AsOrdinal).SelectedText;
+end;
+
+procedure TJvInspectorSelectionTextListItem.GetValueList(const Strings: TStrings);
+begin
+  Strings.Assign(TSelectionTextList(Data.AsOrdinal));
+end;
+
+procedure TJvInspectorSelectionTextListItem.SetDisplayValue(const Value: string);
+begin
+  TSelectionTextList(Data.AsOrdinal).SelectedText := Value;
+end;
+
+procedure TJvInspectorSelectionTextListItem.SetFlags(const Value: TInspectorItemFlags);
+begin
+  inherited SetFlags(Value + [iifValueList]);
+end;
+
+constructor TStringWrapper.Create(const AValue: string);
+begin
+  inherited Create;
+  Value := AValue;
+end;
+
+{ Codeinspector Add Functions }
+
+function AddCombo(eName, eCategory, eValue: String; eValues: array of string): TJvCustomInspectorItem;
+var
+  i: integer;
+  eParent: TJvCustomInspectorItem;
+  Item: TSTLWrapper;
+  Found: Boolean;
+begin
+  eParent := nil;
+  for i := 0 to frmMain.jviCode.Root.Count -1 do
+  begin
+    if (frmMain.jviCode.Root.Items[i].DisplayName = eCategory) and (frmMain.jviCode.Root.Items[i] is TJvInspectorCustomCategoryItem) then
+    begin
+      eParent := frmMain.jviCode.Root.Items[i];
+      Break;
+    end;
+  end;
+  if eParent = nil then
+  begin
+    eParent := TJvInspectorCustomCategoryItem.Create(frmMain.jviCode.Root, nil);
+    eParent.DisplayName := eCategory;
+  end;
+
+  if eName <> '' then
+  begin
+    STLItem := TSelectionTextList.Create;
+    Found := False;
+    for i := 0 to High(eValues) do begin
+      STLItem.Add(eValues[i]);
+      if eValues[i] = eValue then
+        Found := True;
+    end;
+
+    if not Found then begin
+      STLItem.Add(eValue);
+      STLItem.Sort;
+    end;
+
+    Item := TSTLWrapper.Create(STLItem, eValue);
+    FItems.Add(Item);
+    FItems.Add(STLItem);
+    
+    STLItem.SelectedText := Item.Value;
+    Result := TJvInspectorVarData.New(eParent, eName, TypeInfo(TSelectionTextList), @Item.STL);
+    frmMain.jviCode.Root.Sort;
+    eParent.Expanded := True;
+  end
+  else
+  begin
+    Result := nil;
+    frmMain.jviCode.Root.Sort;
+  end;
+end;
+
+function AddField(eName, eCategory, eValue: String): TJvCustomInspectorItem;
+var
+  i: integer;
+  eParent: TJvCustomInspectorItem;
+  Item: TStringWrapper;
+begin
+  eParent := nil;
+  for i := 0 to frmMain.jviCode.Root.Count -1 do
+  begin
+    if (frmMain.jviCode.Root.Items[i].DisplayName = eCategory) and (frmMain.jviCode.Root.Items[i] is TJvInspectorCustomCategoryItem) then
+    begin
+      eParent := frmMain.jviCode.Root.Items[i];
+      Break;
+    end;
+  end;
+  if eParent = nil then
+  begin
+    eParent := TJvInspectorCustomCategoryItem.Create(frmMain.jviCode.Root, nil);
+    eParent.DisplayName := eCategory;
+  end;
+
+  if eName <> '' then
+  begin
+    Item := TStringWrapper.Create(eValue); // StringWrapper erzeugen, damit der String erhalten bleibt
+    FItems.Add(Item); // und das Item in die Liste eintragen, damit kein Speicherleck entsteht
+    Result := TJvInspectorVarData.New(eParent, eName, TypeInfo(String), @Item.Value);
+    frmMain.jviCode.Root.Sort;
+    eParent.Expanded := True;
+  end
+  else
+  begin
+    Result := nil;
+    frmMain.jviCode.Root.Sort;
+  end;
+end;
+
+{ Parse Functions }
+
+procedure UpdateCI;
+begin
+  if not Plugin_UpdateCodeInspector(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tsMain.Items[frmMain.tsMain.ActiveTabIndex].Caption, True) then exit;
+
+  if GetCurrLang.Name = 'Pawn' then begin
+    UpdateCI_PAWN;
+    Plugin_UpdateCodeInspector(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tsMain.Items[frmMain.tsMain.ActiveTabIndex].Caption, False);
+  end;
+end;
+
+procedure UpdateCI_PAWN;
+procedure HideBracesAndStrings(var eStr: String);
+begin
+  while Between(eStr, '{', '}') <> '' do begin
+    eBraceTexts.Add('{' + Between(eStr, '{', '}') + '}');
+    eStr := StringReplace(eStr, '{' + Between(eStr, '{', '}') + '}', #1 + IntToStr(eBraceTexts.Count) + #1, []);
+  end;
+  while CountChars(eStr, '"') > 1 do begin
+    eBraceTexts.Add('"' + StringReplace(Between(eStr, '"', '"'), ':', #3, [rfReplaceAll]) + '"');
+    eStr := StringReplace(eStr, '"' + Between(eStr, '"', '"') + '"', #2 + IntToStr(eBraceTexts.Count) + #2, []);
+  end;
+end;
+
+function ShowBracesAndStrings(eStr: String): String;
+var k: integer;
+begin
+  while Between(eStr, #1, #1) <> '' do begin
+     k := StrToInt(Between(eStr, #1, #1));
+     eStr := StringReplace(eStr, #1 + IntToStr(k) + #1, eBraceTexts[k -1], []);
+  end;
+  while Between(eStr, #2, #2) <> '' do begin
+    k := StrToInt(Between(eStr, #2, #2));
+    eStr := StringReplace(eStr, #2 + IntToStr(k) + #2, eBraceTexts[k -1], []);
+  end;
+  Result := eStr;
+end;
+
+var eCurrLine, eBackupLine: String;
+    i, k: integer;
+    eStr: TStringList;
+    eVars, eConsts: Integer;
+    eVarName, eVarType, eVarValue: String;
+begin
+  eBackupLine := frmMain.sciEditor.Lines[frmMain.sciEditor.GetCurrentLineNumber];
+  eCurrLine := Trim(StringReplace(eBackupLine, #9, #32, [rfReplaceAll]));
+  eCurrLine := RemoveStringsAndComments(eCurrLine, False);
+  eAllIncluded := GetAllIncludeFiles;
+  eStr := TStringList.Create;
+  eBraceTexts := TStringList.Create;
+  eVars := 0;
+  eConsts := 0;
+  frmMain.jviCode.Clear;
+  FItems.Clear;
+
+  eFormatSettings := '';
+  { Constants and Variables }
+  if (IsAtStart('new', eCurrLine, False)) then begin // const or variable
+    Delete(eCurrLine, 1, 4);
+
+    // done? okay, split all items if there are more than one; and if not, it's okay...
+    HideBracesAndStrings(eCurrLine);
+    eStr.Text := StringReplace(eCurrLine, ',', #13, [rfReplaceAll]);
+
+    for i := 0 to eStr.Count - 1 do begin
+      eStr[i] := ShowBracesAndStrings(eStr[i]);
+      eVarType := '';
+      eVarValue := '';
+      
+      if (Trim(eStr[i]) <> '') then begin
+        eVarName := Trim(RemoveSemicolon(eStr[i]));
+        if Pos(':', eVarName) <> 0 then begin
+          eVarType := Trim(Copy(eVarName, 1,  Pos(':', eVarName) -1));
+          eVarName := Trim(Copy(eVarName, Pos(':', eVarName) +1, Length(eVarName)));
+        end;
+
+        if Pos('=', eVarName) <> 0 then begin // constant
+          Inc(eConsts, 1);
+          eFormatSettings := eFormatSettings + '-Constant ' + IntToStr(eConsts) + '-';
+
+          eVarValue := Trim(Copy(eVarName, Pos('=', eVarName) +1, Length(eVarName)));
+          eVarValue := StringReplace(eVarValue, #3, ':', [rfReplaceAll]);
+          eVarName := Trim(Copy(eVarName, 1, Pos('=', eVarName) -1));
+
+          AddField(lName, 'Constant ' + IntToStr(eConsts), eVarName);
+          if eVarType <> '' then
+            AddField(lType, 'Constant ' + IntToStr(eConsts), eVarType);
+          if eVarValue <> '' then
+            AddField(lValue, 'Constant ' + IntToStr(eConsts), eVarValue);
+        end
+        else begin // variable
+          Inc(eVars, 1);
+          eFormatSettings := eFormatSettings + '-Variable ' + IntToStr(eVars) + '-';
+          AddField(lName, 'Variable ' + IntToStr(eVars), eVarName);
+          if eVarType <> '' then
+            AddField(lType, 'Variable ' + IntToStr(eVars), eVarType);            
+       end;
+      end;
+    end;
+
+    if frmMain.jviCode.Root.Count = 1 then
+      frmMain.jviCode.Root.Items[0].DisplayName := Copy(frmMain.jviCode.Root.Items[0].DisplayName, 1, Length(frmMain.jviCode.Root.Items[0].DisplayName) -2);
+  end
+  { Conditions }
+  else if (IsAtStart('if', eCurrLine, False)) then begin
+    if (CountChars(eCurrLine, '(') = CountChars(eCurrLine, ')')) and (CountChars(eCurrLine, '(') <> 0) then begin
+      eCurrLine := Copy(eCurrLine, 1, GetMatchingBrace(eCurrLine) -1);
+      eCurrLine := Copy(eCurrLine, Pos('(', eCurrLine) +1, Length(eCurrLine));
+      eFormatSettings := StringReplace(eBackupLine, '(' + eCurrLine + ')', #1#3#3#7, []);
+      HideBracesAndStrings(eCurrLine);
+      eStr.Text := StringReplace(eCurrLine, '||', #13, [rfReplaceAll]);
+      k := eStr.Count -1; // from 0 to k -> OR operators
+      eStr.Text := StringReplace(eStr.Text, '&&', #13, [rfReplaceAll]);
+
+      for i := 0 to eStr.Count -1 do begin
+        eStr[i] := Trim(ShowBracesAndStrings(eStr[i]));
+        if (Pos('(', eStr[i]) = 1) and (Pos(')', eStr[i]) = Length(eStr[i])) then
+          eStr[i] := Copy(Copy(eStr[i], 2, Length(eStr[i])), 1, Length(eStr[i]) -1);
+
+        if eStr.Count = 1 then
+          eCurrLine := 'If-Condition'
+        else
+          eCurrLine := 'If-Condition ' + IntToStr(frmMain.jviCode.Root.Count +1);
+
+        if i <> eStr.Count -1 then begin
+          if i < k then
+            AddCombo('Operator', eCurrLine, '||', ['||', '&&'])
+          else
+            AddCombo('Operator', eCurrLine, '&&', ['||', '&&']);
+        end;
+        AddField('Condition', eCurrLine, eStr[i]);
+      end;
+    end
+    else
+      AddField('', 'Invalid condition', '');
+  end
+  { Defined }
+  else if (IsAtStart('#define', eCurrLine, False)) then begin
+    eCurrLine := Trim(Copy(eCurrLine, 8, Length(eCurrLine)));
+    HideBracesAndStrings(eCurrLine);
+    eCurrLine := StringReplace(eCurrLine, #9, #32, [rfReplaceAll]);
+    eCurrLine := ShowBracesAndStrings(eCurrLine);
+    AddField('Name', 'Defined', Copy(eCurrLine, 1, Pos(#32, eCurrLine) -1));
+    eCurrLine := Trim(Copy(eCurrLine, Pos(#32, eCurrLine) +1, Length(eCurrLine)));
+    AddField('Value', 'Defined', eCurrLine);
+  end
+  { Included }
+  else if (IsAtStart('#include', eCurrLine, False)) then begin
+    eCurrLine := Trim(StringReplace(eCurrLine, #9, #32, [rfReplaceAll]));
+    if Between(eCurrLine, '<', '>') <> '' then begin
+      eCurrLine := Between(eCurrLine, '<', '>');
+      eFormatSettings := StringReplace(eBackupLine, '<' + eCurrLine + '>', '<-Filename->', []);
+    end
+    else if Between(eCurrLine, '"', '"') <> '' then begin
+      eCurrLine := Between(eCurrLine, '"', '"');
+      eFormatSettings := StringReplace(eBackupLine, '"' + eCurrLine + '"', '"-Filename-"', []);
+    end
+    else begin
+      eCurrLine := Copy(eCurrLine, 9, Length(eCurrLine));
+      eFormatSettings := '#include -Filename-';
+    end;
+    eCurrLine := Trim(eCurrLine);
+    AddCombo('File', 'Included', eCurrLine, eAllIncluded);
+  end
+  { Assignments }
+  else begin
+    if (Pos('=', eCurrLine) <> 0) then begin
+      eCurrLine := Trim(eCurrLine);
+      while Pos(eCurrLine[1], frmMain.sciEditor.WordChars + '[]') <> 0 do
+        Delete(eCurrLine, 1, 1);
+      eCurrLine := Trim(eCurrLine);
+      if Pos('=', eCurrLine) <= 2 then begin
+        while (Pos(Copy(eCurrLine, 1, 1), frmMain.sciEditor.WordChars + #32 + #9) = 0) and (Length(eCurrLine) <> 0) do begin
+           eFormatSettings := eFormatSettings + eCurrLine[1];
+           Delete(eCurrLine, 1, 1);
+        end;
+        eCurrLine := RemoveSemicolon(Trim(eBackupLine));
+        eCurrLine := StringReplace(eCurrLine, #9, #32, [rfReplaceAll]);
+        AddField('a', 'Assignment', Copy(eCurrLine, 1, Pos(eFormatSettings, eCurrLine) - Length(eFormatSettings)));
+        AddField('b', 'Assignment', Trim(Copy(eCurrLine, Pos(eFormatSettings, eCurrLine) + Length(eFormatSettings), Length(eCurrLine))));
+        AddField('Operator', 'Assignment', eFormatSettings);
+      end
+      else
+        AddField('', 'No information available.', '');
+    end
+    else
+      AddField('', 'No information available.', '');
+  end;
+  eStr.Free;
+  eBraceTexts.Free;
+end;
+
+{ TSTLWrapper }
+
+constructor TSTLWrapper.Create(const ASTL: TSelectionTextList;
+  const AValue: String);
+begin
+  STL := ASTL;
+  Value := AValue;
+end;
+
+initialization
+
+FItems := TObjectList.Create;
+
+finalization
+
+FItems.Free;
+
+end.

editor/studio/UnitCodeSnippets.pas

@@ -0,0 +1,92 @@
+unit UnitCodeSnippets;
+
+interface
+
+uses SysUtils, Classes, Windows;
+
+function GetSnippet(Lang, Ident: String): String;
+function GetSnippetList(Lang: String): TStringList;
+procedure AddSnippet(Lang, Ident, Code: String);
+procedure DelSnippet(Lang, Ident: String);
+procedure SetSnippet(Lang, Ident, Code: String);
+
+implementation
+
+function GetSnippet(Lang, Ident: String): String;
+var eFile: TStringList;
+    i: Integer;
+begin
+  eFile := TStringList.Create;
+  eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+  for i := 0 to eFile.Count -1 do begin
+    if Pos(Ident + #1, eFile[i]) = 1 then begin
+      Result := eFile[i];
+      Delete(Result, 1, Length(Ident) +1);
+      Result := StringReplace(Result, #2, #13#10, [rfReplaceAll]);
+    end;
+  end;
+  eFile.Free;
+end;
+
+function GetSnippetList(Lang: String): TStringList;
+var i: Integer;
+begin
+  Result := TStringList.Create;
+  if FileExists(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl') then begin
+    Result.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+    for i := 0 to Result.Count -1 do
+      Result[i] := Copy(Result[i], 1, Pos(#1, Result[i]) -1);
+  end;
+end;
+
+procedure AddSnippet(Lang, Ident, Code: String);
+var eFile: TStringList;
+begin
+  Code := StringReplace(Code, #13#10, #2, [rfReplaceAll]);
+
+  eFile := TStringList.Create;
+  eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+  eFile.Add(Ident + #1 + Code);
+  eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+  eFile.Free;
+end;
+
+procedure DelSnippet(Lang, Ident: String);
+var eFile: TStringList;
+    i: Integer;
+begin
+  eFile := TStringList.Create;
+  eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+  for i := eFile.Count -1 downto 0 do begin
+    if Pos(Ident + #1, eFile[i]) = 1 then
+      eFile.Delete(i);
+  end;
+  eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+  eFile.Free;
+end;
+
+procedure SetSnippet(Lang, Ident, Code: String);
+var eFile: TStringList;
+    i: Integer;
+begin
+  Code := StringReplace(Code, #13#10, #2, [rfReplaceAll]);
+
+  eFile := TStringList.Create;
+  eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+  { If item exists... }
+  for i := 0 to eFile.Count -1 do begin
+    if Pos(Ident + #1, eFile[i]) = 1 then begin
+      eFile[i] := Ident + #1 + Code;
+      eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+      eFile.Free;
+
+      exit;
+    end;
+  end;
+  { else... }
+  eFile.Add(Ident + #1 + Code);
+  eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl');  // ... .csl = CodeSnippetList
+  eFile.Free;
+end;
+
+end.

editor/studio/UnitCodeUtils.pas

@@ -0,0 +1,431 @@
+unit UnitCodeUtils;
+
+interface
+
+uses SysUtils, Classes, Forms, Controls, Windows, ScintillaLanguageManager,
+     RichEdit, ComCtrls, JvInspector;
+
+function IsAtStart(eSubStr, eStr: String; AllowFunctions: Boolean = True): Boolean;
+function GetIndents(Line: Integer = -1): String;
+function GetStyleAt(ePos: Integer): TSciStyle;
+function LineFromPos(ePos: Integer): Integer;
+function RemoveSemicolon(eStr: String): String;
+procedure IndentCode;
+procedure UnindentCode;
+function Between(eText, eFirst, eSecond: String): String;
+procedure Delay(eTime: Integer);
+function CountChars(eIn: String; eChar: Char): Integer;
+function RemoveStringsAndComments(eLine: String; eRemoveStrings: Boolean): String;
+function GetMatchingBrace(eString: String): Integer;
+function GetColoredLine(eLine: Integer): String;
+
+function GetRTFText(ARichEdit: TRichedit): string;
+procedure SetRTFText(ARichEdit: TRichedit; ARTFText: String);
+
+implementation
+
+uses UnitfrmMain, UnitMainTools, UnitLanguages;
+
+function IsAtStart(eSubStr, eStr: String; AllowFunctions: Boolean = True): Boolean;
+begin
+  eStr := LowerCase(Trim(StringReplace(eStr, #9, #32, [rfReplaceAll])));
+  eSubStr := LowerCase(eSubStr);
+  if Pos(eSubStr + #32, eStr) = 1 then
+    Result := True
+  else if (Pos(eSubStr + '(', eStr) = 1) and (AllowFunctions) then
+    Result := True
+  else
+    Result := False;
+end;
+
+function GetIndents(Line: Integer = -1): String;
+var i: integer;
+begin
+  Result := '';
+  if Line = -1 then
+    Line := frmMain.sciEditor.GetCurrentLineNumber;
+
+  if Length(frmMain.sciEditor.Lines[Line]) <> 0 then begin
+    for i := 1 to Length(frmMain.sciEditor.Lines[Line]) do begin
+      if (frmMain.sciEditor.Lines[Line][i] <> #32) and (frmMain.sciEditor.Lines[Line][i] <> #9) then
+        break
+      else
+        Result := Result + frmMain.sciEditor.Lines[Line][i];
+    end;
+  end;
+end;
+
+function GetStyleAt(ePos: Integer): TSciStyle;
+var eBits: Integer;
+    eStyleNo: Byte;
+    i: integer;
+begin
+  Result := nil;
+
+  eStyleNo := Byte(frmMain.sciEditor.GetStyleAt(ePos));
+  eBits := frmMain.sciEditor.GetStyleBits;
+
+  if eBits = 5 then
+    eStyleNo := eStyleNo and $1f //Strip away the indicators (3 bits)
+  else if eBits = 7 then
+    eStyleNo := eStyleNo and $7f //Strip away the indicators (1 bit)
+  else if eBits = 6 then
+    eStyleNo := eStyleNo and $3f; //Strip away the indicators (2 bits)  
+
+  if eStyleNo <> 32 then begin
+    with frmMain.sciEditor.LanguageManager.LanguageList.Find(ActiveDoc.Highlighter).Styles do begin
+      for i := 0 to Count -1 do begin
+        if TSciStyle(Items[i]).StyleNumber = eStyleNo then
+          Result := TSciStyle(Items[i]);
+      end;
+    end;
+  end;
+end;
+
+function LineFromPos(ePos: Integer): Integer;
+var i: integer;
+    eLength: Integer;
+begin
+  Result := -1;
+  eLength := 0;
+
+  for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+    eLength := eLength + Length(frmMain.sciEditor.Lines[i]);
+    if eLength >= ePos then begin
+      Result := i;
+      break;
+    end;
+  end;
+end;
+
+function RemoveSemicolon(eStr: String): String;
+begin
+  if Length(eStr) <> 0 then begin
+    if eStr[Length(eStr)] = ';' then
+      Result := Copy(eStr, 1, Length(eStr) -1)
+    else
+      Result := eStr;
+  end
+  else
+    Result := eStr;
+end;
+
+procedure IndentCode;
+var eStr: TStringList;
+    i, k: integer;
+    eIdent, eTempIdent: Integer;
+    eString: String;
+begin
+  Screen.Cursor := crHourGlass;
+  frmMain.sciEditor.Enabled := False;
+  eStr := TStringList.Create;
+  eIdent := 0;
+  eTempIdent := 0;
+
+  ShowProgress;
+  frmMain.pbLoading.Max := frmMain.sciEditor.Lines.Count *2 -2;
+  for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+    if Cancel then begin
+      Cancel := False;
+      exit;
+    end;
+    eStr.Add(TrimLeft(frmMain.sciEditor.Lines[i]));
+    // Remove strings and comments virtually because they could include brackets
+    frmMain.pbLoading.Position := i;
+    SetProgressStatus('Indenting Code...');
+    eStr[i] := RemoveStringsAndComments(eStr[i], True);
+  end;
+
+  for i := 0 to eStr.Count -1 do begin
+    if CountChars(eStr[i], '{') <> CountChars(eStr[i], '}') then
+      eIdent := eIdent - CountChars(eStr[i], '}');
+    frmMain.sciEditor.Lines[i] := TrimLeft(frmMain.sciEditor.Lines[i]);
+
+    for k := 1 to eIdent + eTempIdent do
+      frmMain.sciEditor.Lines[i] := '	' + frmMain.sciEditor.Lines[i];
+    if eTempIdent <> 0 then
+      eTempIdent := eTempIdent -1;
+
+    if (IsAtStart('if', eStr[i], True)) 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]) or (eString[1] = '(') then begin
+        eString := Trim(eString);
+        if GetMatchingBrace(eString) = Length(eString) then
+          eTempIdent := eTempIdent +1;
+      end;
+    end
+    else if (IsAtStart('for', eStr[i], True)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 4) then begin
+      eString := eStr[i];
+      Delete(eString, 1, 3);
+      if (eString[1] <> Trim(eString)[1]) or (eString[1] = '(') then begin
+        eString := Trim(eString);
+        if GetMatchingBrace(eString) = Length(eString) then
+          eTempIdent := eTempIdent +1;
+      end;
+    end
+    else if (IsAtStart('else', eStr[i], False)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 5) then begin
+      eString := eStr[i];
+      Delete(eString, 1, 4);
+      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('{', eStr[i]) = 0) and (Length(eStr[i]) > 6) then begin
+      if (IsAtStart('stock', eStr[i], False)) or (IsAtStart('while', eStr[i], True)) then begin
+        eString := eStr[i];
+        Delete(eString, 1, 5);
+        if (eString[1] <> Trim(eString)[1]) or (eString[1] = '(') then begin
+          eString := Trim(eString);
+          if GetMatchingBrace(eString) = Length(eString) then
+            eTempIdent := eTempIdent +1;
+        end;
+      end;
+    end;
+    
+    if (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 7) then begin
+      if (Pos('public', eStr[i]) = 1) or (Pos('native', eStr[i]) = 1) then begin
+        eString := eStr[i];
+        Delete(eString, 1, 6);
+        if eString[1] <> Trim(eString)[1] then begin
+          eString := Trim(eString);
+          if GetMatchingBrace(eString) = Length(eString) then
+            eTempIdent := eTempIdent +1;
+        end;
+      end;
+    end
+    else if (IsAtStart('forward', eStr[i], False)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 8) then begin
+      eString := eStr[i];
+      Delete(eString, 1, 7);
+      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], '{');
+
+    frmMain.pbLoading.Position := frmMain.sciEditor.Lines.Count + i -1;
+    SetProgressStatus('Indenting Code...');
+  end;
+
+  ActiveDoc.Modified := True;
+  frmMain.mnuModified.Caption := lModified;
+  HideProgress;
+  
+  frmMain.sciEditor.Enabled := True;
+  Screen.Cursor := crDefault;
+end;
+
+procedure UnindentCode;
+var i: integer;
+begin
+  Screen.Cursor := crHourGlass;
+  frmMain.sciEditor.Enabled := False;
+  ShowProgress;
+  frmMain.pbLoading.Max := frmMain.sciEditor.Lines.Count -1;
+  for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+    if Cancel then begin
+      Cancel := False;
+      exit;
+    end;
+
+    frmMain.sciEditor.Lines[i] := TrimLeft(frmMain.sciEditor.Lines[i]);
+    frmMain.pbLoading.Position := i;
+    SetProgressStatus('Unintending Code...');
+  end;
+  HideProgress;
+  frmMain.sciEditor.Enabled := True;
+  Screen.Cursor := crDefault;
+end;
+
+function RemoveStringsAndComments(eLine: String; eRemoveStrings: Boolean): String;
+begin
+  // Remove comments
+  if (Pos(GetCurrLang.CommentBoxStart, eLine) = 1) or (Pos(GetCurrLang.CommentBoxMiddle, eLine) = 1) or (Pos(GetCurrLang.CommentBoxEnd, eLine) = 1) or (Pos(GetCurrLang.CommentBlock, eLine) = 1) then
+    eLine := '';
+  if Pos(GetCurrLang.CommentBlock, eLine) <> 0 then
+    eLine := Copy(eLine, 1, Pos('//', eLine) -2);
+  if (Pos(GetCurrLang.CommentStreamStart, eLine) < Pos(GetCurrLang.CommentStreamEnd, eLine)) and (Pos(GetCurrLang.CommentStreamStart, eLine) <> 0) then
+    eLine := StringReplace(eLine, GetCurrLang.CommentStreamStart + Between(eLine, GetCurrLang.CommentStreamStart, GetCurrLang.CommentStreamEnd) + GetCurrLang.CommentStreamEnd, '', [rfReplaceAll]); // maybe not the best method, but simple and quite easy
+  // Remove quotes
+  if eRemoveStrings then begin
+    while CountChars(eLine, '"') > 1 do
+      eLine := StringReplace(eLine, '"' + Between(eLine, '"', '"') + '"', '', [rfReplaceAll]);
+  end;
+  
+  Result := eLine;
+end;
+
+procedure Delay(eTime: Integer);
+var i: integer;
+begin
+  for i := 1 to eTime do begin
+    Sleep(1);
+    Application.ProcessMessages;
+    if Application.Terminated then
+      exit;
+  end;
+end;
+
+function CountChars(eIn: String; eChar: Char): Integer;
+var i: integer;
+begin
+  Result := 0;
+  if Length(eIn) <> 0 then begin
+    for i := 1 to Length(eIn) do begin
+      if eIn[i] = eChar then
+        Inc(Result, 1);
+    end;
+  end;
+end;
+
+function Between(eText, eFirst, eSecond: String): String;
+var eTemp: String;
+begin
+  if (Pos(eFirst, eText) = 0) or (Pos(eSecond, eText) = 0) then
+    Result := ''
+  else begin
+    eTemp := eText;
+    Delete(eTemp, 1, Pos(eFirst, eText) + Length(eFirst) - 1);
+    Delete(eTemp, Pos(eSecond, eTemp), Length(eTemp));
+    Result := eTemp;
+  end;
+end;
+
+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;
+
+function GetColoredLine(eLine: Integer): String;
+var eCurrStyle: String;
+    eChars: Integer;
+    i: integer;
+begin
+  eChars := 0;
+  if eLine <> 0 then begin
+    for i := 0 to eLine -1 do
+      eChars := eChars + Length(frmMain.sciEditor.Lines[i]) + 2; // +2 for #13#10
+  end;
+
+  eCurrStyle := '';
+  Result := IntToStr(eLine +1) + '] ';
+  if Length(frmMain.sciEditor.Lines[eLine]) = 0 then exit;
+
+  for i := 0 to Length(frmMain.sciEditor.Lines[eLine]) -1 do begin
+    if eCurrStyle <> GetStyleAt(eChars + i).Name then begin
+      eCurrStyle := GetStyleAt(eChars + i).Name;
+      
+      if (eCurrStyle = 'White Space') and (Length(Result) <> Length(IntToStr(eLine +1) + '] ')) then
+        Result := Result + '';
+      if eCurrStyle = 'Ok Braces' then
+        Result := Result + '02';
+      if eCurrStyle = 'Bad Braces' then
+        Result := Result + '04';
+      if eCurrStyle = 'White Space' then
+        Result := Result + '12';
+      if eCurrStyle = 'Comment' then
+        Result := Result + '07';
+      if eCurrStyle = 'Line Comment' then
+        Result := Result + '07';
+      if eCurrStyle = 'Doc Comment' then
+        Result := Result + '07';
+      if eCurrStyle = 'Number' then
+        Result := Result + '12';
+      if eCurrStyle = 'Keyword' then
+        Result := Result + '03';
+      if eCurrStyle = 'Double quoted string' then
+        Result := Result + '04';
+      if eCurrStyle = 'Single quoted string' then
+        Result := Result + '04';
+      if eCurrStyle = 'Symbols/UUID' then
+        Result := Result + '04';
+      if eCurrStyle = 'Preprocessor' then
+        Result := Result + '07';
+      if eCurrStyle = 'Operators' then
+        Result := Result + '12';
+      if eCurrStyle = 'Identifier' then
+        Result := Result + '12';
+      if eCurrStyle = 'Regular expressions' then
+        Result := Result + '10';
+      if eCurrStyle = 'Doc Comment Line' then
+        Result := Result + '07';
+      if eCurrStyle = 'User-defined keywords' then
+        Result := Result + '04';
+    end;
+    Result := Result + frmMain.sciEditor.Lines[eLine][i +1];
+  end;
+  Result := StringReplace(Result, '	', '  ', [rfReplaceAll]);
+end;
+
+{ ------------------ NOTES ------------------ }
+
+function GetRTFText(ARichEdit: TRichedit): string;
+var
+  ss: TStringStream;
+  emptystr: string;
+
+  eStr: TStringList;
+  i: integer;
+begin
+  Result := '';
+  
+  emptystr := '';
+  ss := TStringStream.Create(emptystr);
+  eStr := TStringList.Create;
+  try
+    ARichEdit.PlainText := False;
+    ARichEdit.Lines.SaveToStream(ss);
+    eStr.Text := StringReplace(ss.DataString, '\', '\\ ', [rfReplaceAll]);
+    for i := 0 to eStr.Count -1 do
+      Result := Result + '\n' + eStr[i];
+    Delete(Result, 1, 2);
+  finally
+    ss.Free;
+    eStr.Free;
+  end;
+end;
+
+procedure SetRTFText(ARichEdit: TRichedit; ARTFText: String);
+var
+  ss: TStringStream;
+begin
+  ARTFText := StringReplace(ARTFText, '\n', #13#10, [rfReplaceAll]);
+  ARTFText := StringReplace(ARTFText, '\\ ', '\', [rfReplaceAll]);
+
+  ss := TStringStream.Create(ARTFText);
+  try
+    ARichEdit.PlainText := False;
+    ARichEdit.Lines.LoadFromStream(ss);
+  finally
+    ss.Free;
+  end;
+end;
+
+end.

editor/studio/UnitCompile.pas

@@ -0,0 +1,300 @@
+unit UnitCompile;
+
+interface
+
+uses SysUtils, Classes, Windows, Forms, Controls, ShellAPI, Messages, IdFTP,
+  IdFTPCommon;
+
+type TPAWNCompileThread = class(TThread)
+  protected
+    Stream: TStringStream;
+
+    Output: TStringList;
+    Finished: Boolean;
+    procedure Execute; override;
+    procedure ProcessItem(eLineStr: String);
+    procedure AddOutput;
+    procedure StartHL;
+    procedure Upload;
+  public
+    FileName: string;
+    Compiler: string;
+    Args: string;
+    Target: string;
+    Flags: Integer;
+  end;
+
+function DoCompilePAWN(eFlags: Integer): Boolean;
+
+implementation
+
+uses UnitfrmSettings, UnitLanguages, UnitMainTools, UnitfrmMain,
+  UnitCodeUtils, UnitPlugins;
+
+function DoCompilePAWN(eFlags: Integer): Boolean;
+var eFile: string;
+begin
+  Result := False;
+  if not FileExists(frmSettings.txtPAWNCompilerPath.Text) then begin
+    MessageBox(frmMain.Handle, PChar(lPAWNCompilerNotFound), PChar(Application.Title), MB_ICONERROR);
+    exit;
+  end;
+
+  Screen.Cursor := crHourGlass;
+  if (ActiveDoc.Untitled) then
+    eFile := ExtractFilePath(ParamStr(0)) + 'Untitled.sma'
+  else
+    eFile := ActiveDoc.FileName;
+  frmMain.sciEditor.Lines.SaveToFile(eFile);
+
+  if Plugin_VisibleControlChange(CTRL_OUTPUT, True) then begin
+    frmMain.lstOutput.Clear;
+    frmMain.splOutput.Show;
+    frmMain.lstOutput.Show;
+    Plugin_VisibleControlChange(CTRL_OUTPUT, True);
+  end;
+
+  with TPawnCompileThread.Create(True) do begin
+    FileName := eFile;
+    Compiler := frmSettings.txtPAWNCompilerPath.Text;
+    if DirectoryExists(frmSettings.txtPAWNOutput.Text) then
+      Target := IncludeTrailingPathDelimiter(frmSettings.txtPAWNOutput.Text) + ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')
+    else
+      Target := ChangeFileExt(eFile, '.amxx');
+
+    Args := frmSettings.txtPAWNArgs.Text;
+    if Args <> '' then
+      Args := Args + #32;
+    Flags := eFlags;
+      
+    Resume;
+  end;
+end;
+
+{ TPAWNCompileThread }
+
+procedure TPAWNCompileThread.ProcessItem(eLineStr: String);
+var eLine: Integer;
+    eTemp: String;
+begin
+  eLine := -1;
+  if Pos(LowerCase(FileName), LowerCase(eLineStr)) = 1 then begin
+    Delete(eLineStr, 1, Length(FileName));
+    if IsNumeric(Between(eLineStr, '(', ')')) then
+      eLine := StrToInt(Between(eLineStr, '(', ')'));
+
+    eTemp := Between(eLineStr, ':', ':');
+
+    Delete(eLineStr, 1, Pos(':', eLineStr) +1);
+    Delete(eLineStr, 1, Pos(':', eLineStr) +1);
+    if eLineStr <> '' then
+      eLineStr[1] := UpperCase(eLineStr[1])[1];
+    if Pos('error', eTemp) <> 0 then
+      eLineStr := Format(lError, [Trim(eLineStr), eLine])
+    else if Pos('warning', eTemp) <> 0 then
+      eLineStr := Format(lWarning, [Trim(eLineStr), eLine])
+    else
+      eLineStr := Format(lOther, [Trim(eLineStr), eLine]);
+  end;
+  
+  if frmMain.lstOutput.ItemIndex = -1 then begin
+    if Pos('error', eTemp) <> 0 then begin
+      frmMain.lstOutput.SetFocus;
+      frmMain.lstOutput.ItemIndex := frmMain.lstOutput.Items.Add(eLineStr);
+      frmMain.SetErrorLine(eLine);
+    end
+    else if eLineStr = 'Done.' then begin
+      if (DirectoryExists(GetAMXXDir(True) + 'plugins\')) and (GetAMXXDir(True) <> '') then begin
+        if LowerCase(IncludeTrailingPathDelimiter(frmSettings.txtPAWNOutput.Text)) <> LowerCase(GetAMXXDir(True) + 'plugins\') then begin
+          if FileExists(GetAMXXDir(True) + 'plugins\' + ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')) then
+            DeleteFile(PChar(GetAMXXDir(True) + 'plugins\' + ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')));
+          if frmSettings.txtPAWNOutput.Text = '' then
+            CopyFile(PChar(ChangeFileExt(ActiveDoc.FileName, '.amxx')), PChar(GetAMXXDir(True) + 'plugins\' + ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')), False)
+          else
+            CopyFile(PChar(frmSettings.txtPAWNOutput.Text + ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')), PChar(GetAMXXDir(True) + 'plugins\' + ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')), False);
+          frmMain.lstOutput.Items.Add('Copied output file to: ' + GetAMXXDir(True)+ 'plugins\');
+        end;
+      end;
+
+      if Flags = COMP_STARTHL then // Start HL
+        Synchronize(StartHL)
+      else if Flags = COMP_UPLOAD then
+        Synchronize(Upload)
+      else begin
+        frmMain.lstOutput.ItemIndex := frmMain.lstOutput.Items.Add('Done.');
+        frmMain.lstOutput.Perform(WM_VSCROLL, SB_BOTTOM, 0);
+      end;
+      Plugin_Compile(Flags, GetCurrLang.Name, ActiveDoc.FileName, False);
+    end
+    else begin
+      frmMain.lstOutput.Items.Add(eLineStr);
+      frmMain.lstOutput.Perform(WM_VSCROLL, SB_BOTTOM, 0);
+    end;
+  end
+  else
+    frmMain.lstOutput.Items.Add(eLineStr);
+end;
+
+procedure TPAWNCompileThread.AddOutput;
+var i, eIndex: integer;
+begin
+ if Output.Count > 1 then begin
+    eIndex := frmMain.lstOutput.ItemIndex;
+    frmMain.lstOutput.Items.BeginUpdate;
+    frmMain.lstOutput.Items.Clear;
+    if Finished then begin
+      for i := 0 to Output.Count -1 do
+        ProcessItem(Output[i]);
+    end
+    else begin
+      for i := 0 to Output.Count -2 do
+        ProcessItem(Output[i]);
+    end;
+    frmMain.lstOutput.Items.EndUpdate;
+    frmMain.lstOutput.ItemIndex := eIndex;
+    frmMain.Repaint;
+    Application.ProcessMessages;
+  end;
+end;
+
+procedure TPAWNCompileThread.Execute;
+var StartupInfo: TStartupInfo;
+    ProcessInfo: TProcessInformation;
+    SecurityAttr: TSecurityAttributes;
+    PipeOutputRead: THandle;
+    PipeOutputWrite: THandle;
+    PipeErrorsRead: THandle;
+    PipeErrorsWrite: THandle;
+    Succeed: Boolean;
+    Buffer: array[0..255] of Char;
+    NumberOfBytesRead: DWORD;
+begin
+  Output := TStringList.Create;
+  FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);
+  FillChar(SecurityAttr, SizeOf(TSecurityAttributes), 0);
+  SecurityAttr.nLength := SizeOf(SecurityAttr);
+  SecurityAttr.bInheritHandle := True;
+  SecurityAttr.lpSecurityDescriptor := nil;
+  CreatePipe(PipeOutputRead, PipeOutputWrite, @SecurityAttr, 0);
+  CreatePipe(PipeErrorsRead, PipeErrorsWrite, @SecurityAttr, 0);
+  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
+  StartupInfo.cb := SizeOf(StartupInfo);
+  StartupInfo.hStdInput := 0;
+  StartupInfo.hStdOutput := PipeOutputWrite;
+  StartupInfo.hStdError := PipeErrorsWrite;
+  StartupInfo.wShowWindow := SW_HIDE;
+  StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
+  if CreateProcess(nil, PChar(Compiler + ' "' + FileName + '" ' + Args + '"-o' + Target + '"'), nil, nil, True, CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then begin
+    CloseHandle(PipeOutputWrite);
+    CloseHandle(PipeErrorsWrite);
+
+    Stream := TStringStream.Create('');
+    try
+      Finished := False;
+      while True do begin
+        Succeed := ReadFile(PipeOutputRead, Buffer, 255, NumberOfBytesRead, nil);
+        if not Succeed then break;
+        Stream.Write(Buffer, NumberOfBytesRead);
+        Output.Text := Stream.DataString;
+        Synchronize(AddOutput);
+      end;
+      Finished := True;
+      Synchronize(AddOutput);
+    finally
+      Stream.Free;
+    end;
+    CloseHandle(PipeOutputRead);
+    try
+      while True do begin
+        Succeed := ReadFile(PipeErrorsRead, Buffer, 255, NumberOfBytesRead, nil);
+        if not Succeed then Break;
+        { and here the errors }
+      end;
+    finally
+    end;
+    CloseHandle(PipeErrorsRead);
+    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
+    CloseHandle(ProcessInfo.hProcess);
+  end
+  else begin
+    CloseHandle(PipeOutputRead);
+    CloseHandle(PipeOutputWrite);
+    CloseHandle(PipeErrorsRead);
+    CloseHandle(PipeErrorsWrite);
+  end;
+  Screen.Cursor := crDefault;
+  Output.Free;
+end;
+
+procedure TPAWNCompileThread.StartHL;
+begin
+  frmMain.lstOutput.ItemIndex := frmMain.lstOutput.Items.Add('Done.');
+  frmMain.lstOutput.Items.Add('');
+  frmMain.lstOutput.ItemIndex := frmMain.lstOutput.Items.Add(lStartingHalfLife);
+  if (FileExists(frmSettings.txtHLExec.Text)) and (frmSettings.txtHLExec.Text <> '') then begin
+    ShellExecute(frmMain.Handle, 'open', PChar(frmSettings.txtHLExec.Text), PChar(frmSettings.txtCustomParameters.Text), PChar(ExtractFilePath(frmSettings.txtHLExec.Text)), SW_SHOW);
+    frmMain.lstOutput.ItemIndex := frmMain.lstOutput.Items.Add('Done.');
+  end
+  else begin
+    frmMain.lstOutput.ItemIndex := frmMain.lstOutput.Items.Add(lHLNotFound);
+    frmMain.lstOutput.ItemIndex := frmMain.lstOutput.Items.Add(lCheckSettingsTryAgain);
+    MessageBeep(MB_ICONWARNING);
+  end;
+end;
+
+procedure TPAWNCompileThread.Upload;
+procedure AddOutput(eItem: String);
+var eAddedIndex: Integer;
+begin
+  eAddedIndex := frmMain.lstOutput.Items.Add(eItem);
+
+  frmMain.lstOutput.ItemIndex := eAddedIndex;
+  repeat
+    Delay(50);
+    frmMain.lstOutput.Repaint;
+  until frmMain.lstOutput.ItemIndex = eAddedIndex;
+end;
+
+begin
+  AddOutput('Done.');
+  if frmMain.IdFTP.Connected then
+    frmMain.IdFTP.Disconnect;
+
+  AddOutput('');
+  AddOutput(lConnecting);
+
+  if TryConnect = 0 then begin
+    AddOutput(lChangingDir);
+
+    try
+      frmMain.IdFTP.ChangeDir(frmSettings.txtDefaultDir.Text + 'plugins/');
+      AddOutput(lUploadingFile);
+    except
+      MessageBox(frmMain.Handle, PChar(lInvalidDirectory), PChar(Application.Title), MB_ICONERROR);
+      AddOutput(lUploadFailed);
+
+      if frmMain.IdFTP.Connected then
+        frmMain.IdFTP.Disconnect;
+      exit;
+    end;
+
+    try
+      frmMain.IdFTP.TransferType := ftBinary;
+      frmMain.IdFTP.Put(Target, ExtractFileName(Target));
+      AddOutput(lDone);
+    except
+      on E: Exception do begin
+        MessageBox(frmMain.Handle, PChar(lErrorUpload + #13 + E.Message), PChar(Application.Title), MB_ICONERROR);
+        AddOutput(lUploadFailed);
+      end;
+    end;
+    
+    if frmMain.IdFTP.Connected then
+      frmMain.IdFTP.Disconnect;
+  end
+  else
+    AddOutput(lUploadFailed);
+end;
+
+end.
+

editor/studio/UnitLanguages.pas

@@ -0,0 +1,164 @@
+unit UnitLanguages;
+
+interface
+
+uses SysUtils, IniFiles;
+
+var lInvalidFile: String;
+    lWarnHighlighterReset: String;
+    lHighlighterResetDone: String;
+    lModified: String;
+    lLnCh: String;
+    lCloseModify: String;
+    lSelectOutputPAWN: String;
+    lSelectOutputCPP: String;
+    lDynamic: String;
+    lOutputHint: String;
+    lAddCodeSnippetCaption: String;
+    lAddCodeSnippetPrompt: String;
+    lEmptyCodeSnippetTitle: String;
+    lCodeSnippetExists: String;
+    lEnterSearchText: String;
+    lPrintSelection: String;
+    lNoFilesToSave: String;
+    lSaveAllCaption1: String;
+    lSaveAllCaption2: String;
+    lCloseAllCaption1: String;
+    lCloseAllCaption2: String;
+    lNoMIRCWindowOpen: String;
+    lSelectChannel: String;
+    lSelectChannelPrompt: String;
+    lWarnBigPluginPaste: String;
+    lConnect: String;
+    lConnecting: String;
+    lDisconnect: String;
+    lLoginIncorrect: String;
+    lHostNotFound: String;
+    lConnectionRefused: String;
+    lWrongPort: String;
+    lScanning: String;
+    lFillInEachField: String;
+    lPastingCodeEscStop: String;
+    lInvalidDirectory: String;
+    lFailedLoadNotes: String;
+    lPAWNCompilerNotFound: String;
+    lError: String;
+    lWarning: String;
+    lOnLine: String;
+    lOther: String;
+    lStartingHalfLife: String;
+    lHLNotFound: String;
+    lCheckSettingsTryAgain: String;
+    lUploadingFile: String;
+    lErrorUpload: String;
+    lChangingDir: String;
+    lDone: String;
+    lUploadFailed: String;
+    lNoUntitledRegister: String;
+    lAlreadyRegistered: String;
+    lSuccessfulRegistered: String;
+    lFailedUpdatePluginsIni: String;
+    lInternetExplorerRequired: String;
+    lUseMOTDAgain: String;
+    lName: String;
+    lType: String;
+    lValue: String;
+    lVariable: String;
+    lAddItemCaption: String;
+    lAddItemPrompt: String;
+    lEnterTitle: String;
+    lAddItems: String;
+    lInvalidPlugin: String;
+    lPlayersAlreadyAdded: String;
+    lFailedLoadCache: String;
+    lAlreadyUnLoaded: String;
+    lAlreadyLoaded: String;
+    lSelectAMXXCaption: String;
+    lPluginError: String;
+    lSaveCaption: String;
+    lCloseCaption: String;
+    lNoCPP: String;
+
+procedure ResetToEnglish;
+
+implementation
+
+procedure ResetToEnglish;
+begin
+  // Messages
+  lInvalidFile := 'The file couldn''t be found. Check the path and try again.';
+  lWarnHighlighterReset := 'Warning: All settings concerning the editor will be reset to default. Continue?';
+  lHighlighterResetDone := 'Reset successful. Restart AMXX-Studio and the changes will take affect.';
+  lModified := 'Modified';
+  lLnCh := 'Ln %u Ch %u';
+  lCloseModify := 'The file "%s" has been modified. Save it before closing?';
+  lSelectOutputPAWN := 'Please select the default output folder for compiled PAWN Plug-Ins:';
+  lSelectOutputCPP := 'Please select the default output folder for compiled C++ libraries:';
+  lDynamic := 'Dynamic';
+  lOutputHint := 'The output will be copied to the source''s directory.';
+  lAddCodeSnippetCaption := 'Add Code-Snippet';
+  lAddCodeSnippetPrompt := 'Please enter the title of the new Code-Snippet:';
+  lEmptyCodeSnippetTitle := 'You have to enter a title before adding a new Code-Snippet!';
+  lCodeSnippetExists := 'The entered Code-Snippet is already added. Please select another title.';
+  lEnterSearchText := 'You forgot to enter the text you want to search.';
+  lPrintSelection := 'Print only selection?';
+  lNoFilesToSave := 'There are no modified files to save!';
+  lSaveAllCaption1 := 'Save all files';
+  lSaveAllCaption2 := 'Please select all files you want to save:';
+  lCloseAllCaption1 := 'Close all files';
+  lCloseAllCaption2 := 'Please select all files you want to close:';
+  lNoMIRCWindowOpen := 'You have to open mIRC first to use IRC Paster!';
+  lSelectChannel := 'Select channel';
+  lSelectChannelPrompt := 'Please enter the channel the code shall be sent to:';
+  lWarnBigPluginPaste := 'Warning: The plugin is quite large, if you post it to a channel it MAY result in a ban. Are you sure to paste it?'; 
+  lConnect := 'Connect';
+  lConnecting := 'Connecting...';
+  lDisconnect := 'Disconnect';
+  lLoginIncorrect := 'Login incorrect. Check your FTP settings and try again.';
+  lHostNotFound := 'The entered host couldn''t be found. Check your settings and try again.';
+  lConnectionRefused := 'The host refused the connection. Check your port and try again.';
+  lWrongPort := 'The port you entered is definitely wrong. Check it and try again.';
+  lScanning := 'Scanning...';
+  lFillInEachField := 'Please fill in each field!';
+  lPastingCodeEscStop := 'Pasting Code, press Esc to stop...';
+  lInvalidDirectory := 'Could not change FTP directory. Update it and try again.';
+  lFailedLoadNotes := 'Failed to load the notes!';
+  lPAWNCompilerNotFound := 'PAWN compiler not found. Please check your settings and try again.';
+  lError := 'Error: %s on line %u';
+  lWarning := 'Warning: %s on line %u';
+  lOther := '%s on line %u';
+  lStartingHalfLife := 'Starting Half-Life...';
+  lHLNotFound := 'Could not find the set Half-Life executable.';
+  lCheckSettingsTryAgain := 'Check your settings and try again.';
+  lUploadingFile := 'Done, uploading file...';
+  lErrorUpload := 'Failed to upload the plugin:';
+  lChangingDir := 'Connected, changing directory...';
+  lDone := 'Done.';
+  lUploadFailed := 'Upload failed!';
+  lNoUntitledRegister := 'You cannot register an untitled document';
+  lAlreadyRegistered := 'This plugin is already registered!';
+  lSuccessfulRegistered := 'The plugin has been registered successfully!';
+  lFailedUpdatePluginsIni := 'Failed to update plugins.ini!';
+  lInternetExplorerRequired := 'Microsoft Internet Explorer 6.0 is required to use this function.';
+  lUseMOTDAgain := 'When you finished, use this function again to convert the HTML code to a PAWN string.';
+  lName := 'Name';
+  lType := 'Type';
+  lValue := 'Value';
+  lVariable := 'Variable';
+  lAddItemCaption := 'Add menu item';
+  lAddItemPrompt := 'Please enter the menu item you want to add:';
+  lEnterTitle := 'You forgot to enter a title!';
+  lAddItems := 'You forgot to add the menu items!';
+  lInvalidPlugin := 'Couldn''t find the register_plugin()-event. Add it and try again.';
+  lPlayersAlreadyAdded := 'PLAYERS item is already added!';
+  lFailedLoadCache := 'Failed to load file cache!';
+  lAlreadyUnLoaded := 'Plugin is already unloaded!';
+  lAlreadyLoaded := 'Plugin is already loaded!';
+  lSelectAMXXCaption := 'Please select the AMX Mod X directory on your listen server:';
+  lPluginError := 'A plugin raised this error:';
+  lSaveCaption := 'Save';
+  lCloseCaption := 'Close';
+  lNoCPP := 'Sorry, the C++ IDE is not enabled.';
+end;
+
+end.

editor/studio/UnitMenuGenerators.pas

@@ -0,0 +1,548 @@
+unit UnitMenuGenerators;
+
+interface
+
+uses SysUtils, Classes, Windows, Forms, Graphics;
+
+procedure GenerateSimpleMenu;
+
+{ Yes, this is from AMXX-Edit v2. I'm too lazy to rewrite it... }
+{ >:( }
+
+function AddOldMenu: Boolean;
+function AddOldPlayerMenu: Boolean;
+function GetFirst(eStart: String; eSearchMain: Boolean): Integer;
+function GetLast(eStart: String; eSearchMain: Boolean): Integer;
+function GetLine(eExpression: String; eAllowFunction, eBreak: Boolean): Integer;
+function AddIfDoesntExist(eInclude: String): Boolean;
+function GetColoredMenu: String;
+function PluginInitLine: Integer;
+
+implementation
+
+uses UnitCodeUtils, UnitfrmMain, UnitfrmMenuGenerator, UnitLanguages;
+
+function GetLine(eExpression: String; eAllowFunction, eBreak: Boolean): Integer;
+var i: integer;
+begin
+  Result := -1;
+  for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+    if IsAtStart(eExpression, frmMain.sciEditor.Lines[i], eAllowFunction) then begin
+      Result := i;
+      if eBreak then
+        Break;
+    end;
+  end;
+end;
+
+procedure GenerateSimpleMenu;
+var eRP, eVL: Integer; // RegisterPlugin, VariableLine
+    eStr: TStringList;
+    eIndents, eInternalTitle: String;
+    i: integer;
+begin
+  { Get Line Numbers }
+  eVL := GetLine('#define', False, False);
+  if eVL = -1 then
+    eVL := GetLine('#include', False, False);
+  if eVL = -1 then
+    eVL := 0;
+
+  eRP := PluginInitLine;
+
+  if eRP <> -1 then begin
+    eInternalTitle := StringReplace(frmMenuGenerator.txtNTitle.Text, #32, '', [rfReplaceAll]);
+    eStr := TStringList.Create;
+    // Register Vars
+    eVL := eVL +1;
+    eIndents := GetIndents(eVL);
+    eStr.Add(eIndents + 'new m' + eInternalTitle + ' // Menu');
+    eStr.Add(eIndents + 'new mcb' + eInternalTitle + ' // Menu Callback');
+    frmMain.sciEditor.Lines.Insert(eVL, eStr.Text);
+
+
+    // Register function
+    eRP := PluginInitLine;
+    eIndents := GetIndents(eRP);
+    eStr.Clear;
+    eStr.Add(eIndents + '/* Menu ' + frmMenuGenerator.txtNTitle.Text + ' */');
+    eStr.Add(eIndents + '/* Use menu_display(id, m' + eInternalTitle + ', 0) to show the menu to an user. */');
+    eStr.Add(eIndents + 'm' + eInternalTitle + ' = menu_create("' + frmMenuGenerator.txtNTitle.Text + '", "mh_' + eInternalTitle + '")');
+    eStr.Add(eIndents + 'mcb' + eInternalTitle + ' = menu_makecallback("mcb_' + eInternalTitle + '")');
+    for i := 0 to frmMenuGenerator.lstNMenuItems.Items.Count -1 do
+      eStr.Add(eIndents + 'menu_additem(m' + eInternalTitle + ', "' + frmMenuGenerator.lstNMenuItems.Items[i] + '", "ma_' + eInternalTitle + '", ' + frmMenuGenerator.cboAccess.Text + ', mcb' + eInternalTitle + ')');
+    eStr.Add(eIndents + '/* Menu End */');
+    frmMain.sciEditor.Lines.Insert(eRP, eStr.Text);
+    // Rest
+    eStr.Clear;
+    eStr.Add('');
+    eStr.Add('');
+    eStr.Add('/* Menu ' + frmMenuGenerator.txtNTitle.Text + ' */');
+    eStr.Add(''); 
+    eStr.Add('public mh_' + eInternalTitle + '(id, menu, item) {');
+    eStr.Add(#9 + '/* This event is called when someone presses a key on this menu */');
+    eStr.Add('}');
+    eStr.Add('');
+    eStr.Add('public ma_' + eInternalTitle + '(id) {');
+    eStr.Add(#9 + '/* This event is called when an item was selected */');
+    eStr.Add('}');
+    eStr.Add('');
+    eStr.Add('public mcb_' + eInternalTitle + '(id, menu, item) {');
+    eStr.Add(#9 + '/* This is the callback-event, here you can set items enabled or disabled. */');
+    eStr.Add(#9 + '/* If you want to enable an item, use: return ITEM_ENABLED */');
+    eStr.Add(#9 + '/* If you want to disable an item, use: return ITEM_DISABLED */');
+    eStr.Add('}');
+    eStr.Add(''); 
+    frmMain.sciEditor.Lines.AddStrings(eStr); 
+
+    eStr.Free;
+  end
+  else
+    MessageBox(frmMenuGenerator.Handle, PChar(lInvalidPlugin), PChar(Application.Title), MB_ICONERROR);
+end;
+
+{ Normal Menu }
+
+function AddOldMenu: Boolean;
+var eColoredMenu, DefinedKeys: String;
+    i: integer;
+    eStr: TStringList;
+begin
+  Result := GetFirst('public Show' + frmMenuGenerator.txtMenuName.Text, True) = -1;
+  if not Result then
+    exit;
+    
+  eStr := TStringList.Create;
+  { Transform text }
+  eColoredMenu := GetColoredMenu;
+  { Add functions }
+  eStr.Add(Format('public Show%s(id) {', [frmMenuGenerator.txtMenuName.Text]));
+  eStr.Add('	show_menu(id, Keys' + frmMenuGenerator.txtMenuName.Text + ', "' + eColoredMenu + '", -1, "' + frmMenuGenerator.txtMenuName.Text + '")');
+  if frmMenuGenerator.chkAddComment.Checked then
+    eStr[eStr.Count -1] := eStr[eStr.Count -1] + ' // Display menu';
+  eStr.Add('}');
+  eStr.Add('');
+  eStr.Add('public Pressed' + frmMenuGenerator.txtMenuName.Text + '(id, key) {');
+  if frmMenuGenerator.chkAddComment.Checked then begin
+    eStr.Add('	/* Menu:');
+    for i := 0 to frmMenuGenerator.rtfMenu.Lines.Count -1 do
+      eStr.Add('	* ' + frmMenuGenerator.rtfMenu.Lines[i]);
+    eStr.Add('	*/');
+    eStr.Add(''); 
+  end;
+  eStr.Add('	switch (key) {');
+  DefinedKeys := '';
+  for i := 1 to Length(frmMenuGenerator.txtKeys.Text) do begin
+    if frmMenuGenerator.txtKeys.Text[i] = '0' then begin
+      DefinedKeys := DefinedKeys + '|(1<<9)';
+      if frmMenuGenerator.chkAddComment.Checked then
+        eStr.Add('		case 9: { // 0')
+      else
+        eStr.Add('		case 9: {');
+      eStr.Add('			');
+      eStr.Add('		}');
+    end
+    else begin
+      DefinedKeys := DefinedKeys + '|(1<<' + IntToStr(StrToInt(frmMenuGenerator.txtKeys.Text[i]) -1) + ')';
+      if frmMenuGenerator.chkAddComment.Checked then
+        eStr.Add('		case ' + IntToStr(StrToInt(frmMenuGenerator.txtKeys.Text[i]) -1) + ': { // ' + frmMenuGenerator.txtKeys.Text[i])
+      else
+        eStr.Add('		case ' + IntToStr(StrToInt(frmMenuGenerator.txtKeys.Text[i]) -1) + ': {');
+      eStr.Add('			');
+      eStr.Add('		}');
+    end;
+  end;
+  Delete(DefinedKeys, 1, 1);
+  if frmMenuGenerator.chkAddComment.Checked then
+    DefinedKeys := DefinedKeys + ' // Keys: ' + frmMenuGenerator.txtKeys.Text;
+  eStr.Add('	}');
+  eStr.Add('}');
+  // Insert
+  AddIfDoesntExist('amxmodx');
+  i := GetFirst('#define', True) +2;
+  if i = 1 then
+    i := GetFirst('#include', True) +2;
+  if i = 1 then
+    i := 0;
+    
+  frmMain.sciEditor.Lines.Insert(i, Format('#define Keys%s %s', [frmMenuGenerator.txtMenuName.Text, DefinedKeys]));
+  frmMain.sciEditor.Lines.Text := frmMain.sciEditor.Lines.Text + #13 + eStr.Text;
+  if frmMenuGenerator.chkRegisterMenuCommand.Checked then begin
+    i := GetFirst('register_plugin', True) +2;
+    if i = 1 then
+      i := GetFirst('public plugin_init()', True) +2;
+    if i = 1 then begin
+      eStr.Clear;
+      eStr.Add('public plugin_init() {');
+      eStr.Add('	register_menucmd(register_menuid("' + frmMenuGenerator.txtMenuName.Text + '"), Keys' + frmMenuGenerator.txtMenuName.Text + ', "Pressed' + frmMenuGenerator.txtMenuName.Text + '")');
+      eStr.Add('}');
+      frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +2, '');
+      frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +3, eStr.Text);
+    end
+    else
+      frmMain.sciEditor.Lines.Insert(i, '	register_menucmd(register_menuid("' + frmMenuGenerator.txtMenuName.Text + '"), Keys' + frmMenuGenerator.txtMenuName.Text + ', "Pressed' + frmMenuGenerator.txtMenuName.Text + '")');
+  end;
+  eStr.Free;
+end;
+
+{ Player Menu }
+
+function AddOldPlayerMenu: Boolean;
+function PrepareItem(eItem: String; eDisabled: Boolean): String; // Remove colors etc.
+begin
+  eItem := StringReplace(eItem, '\w', '', [rfReplaceAll, rfIgnoreCase]);
+  eItem := StringReplace(eItem, '\y', '', [rfReplaceAll, rfIgnoreCase]);
+  eItem := StringReplace(eItem, '\r', '', [rfReplaceAll, rfIgnoreCase]);
+  eItem := StringReplace(eItem, '\d', '', [rfReplaceAll, rfIgnoreCase]);
+  eItem := StringReplace(eItem, '%n', '%i', [rfIgnoreCase]);
+  eItem := StringReplace(eItem, '%v', '%s', [rfIgnoreCase]);
+  if eDisabled then
+    eItem := '\d' + eItem
+  else
+    eItem := '\w' + eItem;
+  Result := eItem + '^n';
+end;
+
+var i: integer;
+    eStr: TStringList;
+    ePlayersFrom, ePlayersTo: Integer; // Players
+    ePlayerFormat: String;
+    eNext, eExit: Integer; // Next and Back/Exit
+    eNextText, eBackText, eExitText: String;
+    eCurLineIndex: Integer; // Current ..
+    eCurLine: String;       // .. line
+    DefinedKeys: String; // Action Keys
+begin
+  Result := GetFirst('public Show' + frmMenuGenerator.txtMenuName.Text, True) = -1;
+  if not Result then begin
+    MessageBox(frmMenuGenerator.Handle, 'Menu already exists. Please choose another name.', 'Warning', MB_ICONWARNING);
+    exit;
+  end;
+
+  {
+    Kick player
+
+    $players(1,8,%n. %v)
+    $next(9,9. Next)
+
+    $exitorback(0, 0. Exit, 0. Back)
+  }
+
+  eCurLine := frmMenuGenerator.rtfMenu.Lines[0];
+  eCurLineIndex := 0;
+  eNext := -1;
+  eExit := -1;
+  eStr := TStringList.Create;
+  // Prepare Values
+  try
+    { Players }
+    eCurLineIndex := GetFirst('$players', False);
+    eCurLine := frmMenuGenerator.rtfMenu.Lines[eCurLineIndex];
+    ePlayersFrom := StrToInt(Between(LowerCase(Trim(eCurLine)), '$players(', ','));
+    ePlayersTo := StrToInt(Between(Trim(LowerCase(eCurLine)), ',', ','));
+    while CountChars(eCurLine, ',') > 1 do
+      Delete(eCurLine, 1, 1);
+    ePlayerFormat := Between(LowerCase(eCurLine), ',', ')');
+    { Next }
+    if GetFirst('$next', False) <> -1 then begin
+      eCurLineIndex := GetFirst('$next', False);
+      eCurLine := frmMenuGenerator.rtfMenu.Lines[eCurLineIndex];
+      eNext := StrToInt(Trim(Between(eCurLine, '(', ',')));
+      eNextText := Between(eCurLine, ',', ')');
+    end;
+    { Exit or Back }
+    if GetFirst('$exitorback', False) <> -1 then begin
+      eCurLineIndex := GetFirst('$exitorback', False);
+      eCurLine := frmMenuGenerator.rtfMenu.Lines[eCurLineIndex];
+      eExit := StrToInt(Trim(Between(eCurLine, '(', ',')));
+      eExitText := Between(eCurLine, ',', ',');
+      while CountChars(eCurLine, ',') > 1 do
+        Delete(eCurLine, 1, 1);
+      eBackText := Between(eCurLine, ',', ')');
+    end;
+  except
+    MessageBox(frmMenuGenerator.Handle, PChar(Format('Syntax error at line %s: ' + #13 + '%s', [IntToStr(eCurLineIndex +1), frmMenuGenerator.rtfMenu.Lines[eCurLineIndex]])), 'Error', MB_ICONERROR);
+    Result := False;
+    exit;
+  end;
+  // Check Keys
+  { Players }
+  if (ePlayersFrom < 0) or (ePlayersFrom > ePlayersTo) then begin
+    MessageBox(frmMenuGenerator.Handle, 'Invalid start key (players)', 'Warning', MB_ICONWARNING);
+    Result := False;
+    exit;
+  end;
+  if (ePlayersTo < 0) or (ePlayersTo > 9) then begin
+    MessageBox(frmMenuGenerator.Handle, 'Invalid stop key (players)', 'Warning', MB_ICONWARNING);
+    Result := False;
+    exit;
+  end;
+  { Next, Exit and Custom keys}
+  eCurLine := '';
+  for i := ePlayersFrom to ePlayersTo do
+    eCurLine := eCurLine + IntToStr(i);
+
+  if Pos(IntToStr(eNext), eCurLine) > 0 then begin
+    MessageBox(frmMenuGenerator.Handle, PChar(Format('"Next" key already in use (%s). Delete it or choose another one and try again.', [IntToStr(eNext)])), 'Warning', MB_ICONWARNING);
+    Result := False;
+    exit;
+  end;
+  if Pos(IntToStr(eExit), eCurLine) > 0 then begin
+    MessageBox(frmMenuGenerator.Handle, PChar(Format('"Exit" key already in use (%s). Delete it or choose another one and try again.', [IntToStr(eExit)])), 'Warning', MB_ICONWARNING);
+    Result := False;
+    exit;
+  end;
+  eCurLine := eCurLine + IntToStr(eNext);
+  eCurLine := eCurLine + IntToStr(eExit);
+  // Insert Code
+  try
+    { Includes }
+    AddIfDoesntExist('amxmodx');
+    AddIfDoesntExist('amxmisc');
+    { Define Keys }
+    DefinedKeys := '';
+    if Length(eCurLine) <> 0 then begin
+      for i := 1 to Length(eCurLine) do begin
+        if eCurLine[i] = '0' then
+          DefinedKeys := DefinedKeys + '|(1<<9)'
+        else begin
+          eCurLine[i] := IntToStr(StrToInt(eCurLine[i]) -1)[1];
+          DefinedKeys := DefinedKeys + '|(1<<' + eCurLine[i] + ')';
+        end;
+      end;
+      Delete(DefinedKeys, 1, 1);
+    end;
+    i := GetLast('#define', True) +2;
+    if i = 1 then
+      i := GetLast('#include', True) +2;
+    if i = 1 then
+      i := 0;
+    frmMain.sciEditor.Lines.Insert(i, Format('#define Keys%s %s', [frmMenuGenerator.txtMenuName.Text, DefinedKeys]));
+    frmMain.sciEditor.Lines.Insert(i +1, 'new MenuPos' + frmMenuGenerator.txtMenuName.Text);
+    frmMain.sciEditor.Lines.Insert(i +2, 'new MenuPlayers' + frmMenuGenerator.txtMenuName.Text + '[32]');
+    { Register }
+    i := GetFirst('register_plugin', True) +2;
+    if i = 1 then
+      i := GetFirst('public plugin_init()', True) +2;
+    if i = 1 then begin
+      eStr.Clear;
+      eStr.Add('public plugin_init() {');
+      eStr.Add('	register_menucmd(register_menuid("' + frmMenuGenerator.txtMenuName.Text + '"), Keys' + frmMenuGenerator.txtMenuName.Text + ', "Pressed' + frmMenuGenerator.txtMenuName.Text + '")');
+      eStr.Add('}');
+      frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +2, '');
+      frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +3, eStr.Text);
+    end
+    else
+      frmMain.sciEditor.Lines.Insert(i, '	register_menucmd(register_menuid("' + frmMenuGenerator.txtMenuName.Text + '"), Keys' + frmMenuGenerator.txtMenuName.Text + ', "Pressed' + frmMenuGenerator.txtMenuName.Text + '")');
+    { Show Menu Functions (thx to xeroblood for code example) }
+    eStr.Clear;
+    eStr.Add('public Show' + frmMenuGenerator.txtMenuName.Text + '(id) {');
+    eStr.Add('	ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, MenuPos' + frmMenuGenerator.txtMenuName.Text + ' = 0)');
+    eStr.Add('	return PLUGIN_HANDLED');
+    eStr.Add('}');
+    eStr.Add('');
+    eStr.Add('public ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, position) {');
+    if frmMenuGenerator.chkAddComment.Checked then
+      eStr.Add('	// Menu stuff //');
+    eStr.Add('	if (position < 0) { return 0; }');
+    eStr.Add('	');
+    eStr.Add('	new i, k');
+    eStr.Add('	new MenuBody[255]');
+    eStr.Add('	new CurrentKey = ' + IntToStr(ePlayersFrom -1));
+    eStr.Add('	new Start = position * ' + IntToStr(ePlayersTo - ePlayersFrom));
+    eStr.Add('	new Num');
+    eStr.Add('	new UserName[32]');
+    eStr.Add('	');
+    eStr.Add('	get_players(MenuPlayers' + frmMenuGenerator.txtMenuName.Text + ', Num)');
+    eStr.Add('	if (Start >= Num) { Start = position = MenuPos' + frmMenuGenerator.txtMenuName.Text + ' = 0; }');
+    eCurLine := GetColoredMenu;
+    eCurLine := Copy(eCurLine, 1, Pos('$players', eCurLine) -3);
+    Insert('\R%d/%d^n\w', eCurLine, Pos('^n', eCurLine));
+    eStr.Add('	new Len = format(MenuBody, 255, "' + eCurLine + '", position+1, (Num / ' + IntToStr(ePlayersTo - ePlayersFrom) + ' + ((Num % ' + IntToStr(ePlayersTo - ePlayersFrom) + ') ? 1 : 0 )) )');
+    eStr.Add('	new End = Start + ' + IntToStr(ePlayersTo - ePlayersFrom));
+    if eExit = 0 then
+      eStr.Add('	new Keys = (1<<9)')
+    else
+      eStr.Add('	new Keys = (1<<' + IntToStr(eExit -1) + ')');
+    eStr.Add('	if (End > Num) { End = Num; }');
+    eStr.Add('	');
+    eStr.Add('	for(i=Start;i<End;i++) {');
+    eStr.Add('		k = MenuPlayers' + frmMenuGenerator.txtMenuName.Text + '[i]');
+    eStr.Add('		get_user_name(k, UserName, 31)');
+    // Any conditions?
+//    if (frmMenuGenerator.chkImmunity.Checked) and (frmMenuGenerator.chkAlive.Checked) then
+//      eStr.Add('		if ((get_user_flags(k) & ADMIN_IMMUNITY) || !is_user_alive(k)) {')
+//    else if (frmMenuGenerator.chkImmunity.Checked) then
+//      eStr.Add('		if (get_user_flags(k) & ADMIN_IMMUNITY) {')
+//    else if (frmMenuGenerator.chkAlive.Checked) then
+//      eStr.Add('		if (!is_user_alive(k)) {');
+//    if (frmMenuGenerator.chkImmunity.Checked) or (frmMenuGenerator.chkAlive.Checked) then begin
+//      eStr.Add('			CurrentKey++');
+//      eStr.Add('			Len += format(MenuBody[Len], (255-Len), "' + PrepareItem(ePlayerFormat, True) + '", CurrentKey, UserName)');
+//      eStr.Add('		}');
+//      eStr.Add('		else {');
+//      eStr.Add('			Keys |= (1<<CurrentKey++)');
+//      eStr.Add('			Len += format(MenuBody[Len], (255-Len), "' + PrepareItem(ePlayerFormat, False) + '", CurrentKey, UserName)');
+//      eStr.Add('		}');
+//    end
+//    else begin
+      eStr.Add('		Keys |= (i<<CurrentKey++)');
+      eStr.Add('		Len += format(MenuBody[Len], (255-Len), "' + PrepareItem(ePlayerFormat, False) + '", CurrentKey, UserName)');
+//    end;
+    eStr.Add('	}');
+    eStr.Add('	if (End != Num) {');
+    eStr.Add('		format(MenuBody[Len], (255-Len), "^n\w' + eNextText + '^n%s", position ? "\w' + eBackText + '" : "\w' + eExitText + '")');
+    eStr.Add('		Keys |= (1<<' + IntToStr(eNext -1) + ')');
+    eStr.Add('	}');
+    eStr.Add('	else {');
+    eStr.Add('		format(MenuBody[Len], (255-Len), "^n%s", position ? "\w' + eBackText + '" : "\w' + eExitText + '")');
+    eStr.Add('	}');
+    eStr.Add('	show_menu(id, Keys, MenuBody, -1)');
+    eStr.Add('	return 0');
+    eStr.Add('}');
+    eStr.Add('');
+    eStr.Add('public Pressed' + frmMenuGenerator.txtMenuName.Text + '(id, key) {');
+    eStr.Add('	switch (key) {');
+    if frmMenuGenerator.chkAddComment.Checked then begin
+      if eNext <> 0 then
+        eStr.Add('		case ' + IntToStr(eNext -1) + ': ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, ++MenuPos' + frmMenuGenerator.txtMenuName.Text + ') // More Option')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, ++MenuPos' + frmMenuGenerator.txtMenuName.Text + ') // More Option');
+
+      if eExit <> 0 then
+        eStr.Add('		case ' + IntToStr(eExit -1) + ': ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, --MenuPos' + frmMenuGenerator.txtMenuName.Text + ') // Back Option')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, --MenuPos' + frmMenuGenerator.txtMenuName.Text + ') // Back Option');
+    end
+    else begin
+      if eNext <> 0 then
+        eStr.Add('		case ' + IntToStr(eNext -1) + ': ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, ++MenuPos' + frmMenuGenerator.txtMenuName.Text + ')')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, ++MenuPos' + frmMenuGenerator.txtMenuName.Text + ')');
+      if eExit <> 0 then
+        eStr.Add('		case ' + IntToStr(eExit -1) + ': ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, --MenuPos' + frmMenuGenerator.txtMenuName.Text + ')')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuGenerator.txtMenuName.Text + '(id, --MenuPos' + frmMenuGenerator.txtMenuName.Text + ')');
+    end;
+    eStr.Add('		default: {');
+    if frmMenuGenerator.chkAddComment.Checked then
+      eStr.Add('			// Get User ID and Username');
+    eStr.Add('			new PlayerID = MenuPlayers' + frmMenuGenerator.txtMenuName.Text + '[MenuPos' + frmMenuGenerator.txtMenuName.Text + ' * ' + IntToStr(ePlayersTo - ePlayersFrom) + ' + key]');
+    eStr.Add('			new UserName[32]');
+    eStr.Add('			get_user_name(PlayerID, UserName, 31)');
+    if frmMenuGenerator.chkAddComment.Checked then
+      eStr.Add('			// Do actions here')
+    else
+      eStr.Add('			');
+    eStr.Add('		}');
+    eStr.Add('	}');
+    eStr.Add('	return PLUGIN_HANDLED');
+    eStr.Add('}');
+    frmMain.sciEditor.Lines.Text := frmMain.sciEditor.Lines.Text + #13 + eStr.Text; 
+  except
+    MessageBox(frmMenuGenerator.Handle, PChar('An error occured while inserting code!'), 'Warning', MB_ICONWARNING);
+  end;
+  eStr.Free;
+end;
+
+{ Functions }
+
+function GetFirst(eStart: String; eSearchMain: Boolean): Integer;
+var i: integer;
+begin
+  eStart := LowerCase(Trim(eStart));
+  Result := -1;
+  if eSearchMain then begin
+    for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+      if Pos(eStart, LowerCase(Trim(frmMain.sciEditor.Lines[i]))) = 1 then begin
+        Result := i;
+        exit;
+      end;
+    end;
+  end
+  else begin
+    for i := 0 to frmMenuGenerator.rtfMenu.Lines.Count -1 do begin
+      if Pos(eStart, LowerCase(Trim(frmMenuGenerator.rtfMenu.Lines[i]))) = 1 then begin
+        Result := i;
+        exit;
+      end;
+    end;
+  end;
+end;
+
+function GetLast(eStart: String; eSearchMain: Boolean): Integer;
+var i: integer;
+begin
+  eStart := LowerCase(Trim(eStart));
+  Result := -1;
+  if eSearchMain then begin
+    for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+      if Pos(eStart, LowerCase(Trim(frmMain.sciEditor.Lines[i]))) = 1 then
+        Result := i;
+    end;
+  end
+  else begin
+    for i := 0 to frmMenuGenerator.rtfMenu.Lines.Count -1 do begin
+      if Pos(eStart, LowerCase(Trim(frmMenuGenerator.rtfMenu.Lines[i]))) = 1 then
+        Result := i;
+    end;
+  end;
+end;
+
+function AddIfDoesntExist(eInclude: String): Boolean;
+var i: integer;
+begin
+  Result := True;
+  eInclude := LowerCase(eInclude);
+  for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+    if (Pos('<', frmMain.sciEditor.Lines[i]) <> 0) or (Pos('"', frmMain.sciEditor.Lines[i]) <> 0) then begin
+      if LowerCase(Between(frmMain.sciEditor.Lines[i], '<', '>')) = eInclude then
+        exit;
+      if LowerCase(Between(frmMain.sciEditor.Lines[i], '"', '"')) = eInclude then
+        exit;
+    end;
+  end;
+
+  i := GetLast('#include', True);
+  if i = -1 then
+    i := 0;
+    
+  frmMain.sciEditor.Lines.Insert(i, '#include <' + eInclude + '>');
+end;
+
+function GetColoredMenu: String;
+var i: integer;
+    eCurColor: TColor;
+begin
+  eCurColor := clWhite;
+  Result := '';
+  for i := 0 to Length(frmMenuGenerator.rtfMenu.Lines.Text) -1 do begin
+    frmMenuGenerator.rtfMenu.SelStart := i;
+    if frmMenuGenerator.rtfMenu.SelAttributes.Color <> eCurColor then begin
+      eCurColor := frmMenuGenerator.rtfMenu.SelAttributes.Color;
+      case eCurColor of
+        clWhite : Result := Result + '\w';
+        clYellow: Result := Result + '\y';
+        clRed   : Result := Result + '\r';
+        clGray  : Result := Result + '\d';
+      end;
+    end;
+    Result := Result + frmMenuGenerator.rtfMenu.Lines.Text[i+1];
+  end;
+  frmMenuGenerator.rtfMenu.SelStart := 0;
+  Result := StringReplace(Result, #13, '^n', [rfReplaceAll]);
+  Result := StringReplace(Result, #10, '', [rfReplaceAll]);
+end;
+
+function PluginInitLine: Integer;
+begin
+  Result := GetLine('register_concmd', True, False);
+  if Result = -1 then
+    Result := GetLine('register_clcmd', True, False);
+  if Result = -1 then
+    Result := GetLine('register_plugin', True, True);
+  if Result = -1 then
+    Result := GetLine('public plugin_init', True, True);
+end;
+
+end.

editor/studio/UnitPlugins.pas

@@ -0,0 +1,883 @@
+unit UnitPlugins;
+
+interface
+
+uses SysUtils, Classes, Windows, Messages, Forms, ComCtrls;
+
+type TCodeSnippetClick = function (pTitle, pCategory: PChar; pCode: PChar): Integer; cdecl;
+     TFileAction = function (pFilename: PChar): Integer; cdecl;
+     TDocChange = function (pIndex: DWord; pFilename: PChar; pHighlighter: PChar; pRestoreCaret: Boolean): Integer; cdecl;
+     TProjectsChange = function (pOldIndex, pNewIndex: DWord): Integer; cdecl;
+     TCreateNewFile = function (Item: PByte): Integer; cdecl;
+     TDisplaySearch = function (pSearchList: PChar; pSelected: PChar): Integer; cdecl;
+     TSearch = function (pExpression: PChar; pCaseSensivity, pWholeWords, pSearchFromCaret, pSelectedOnly, pRegEx, pForward: Boolean): Integer; cdecl;
+     TSearchReplace = function (pExpression, pReplace, pExpList, pRepList: PChar; pCaseSensivity, pWholeWords, pSearchFromCaret, pSelectedOnly, pRegEx, pForward: Boolean): Integer; cdecl;
+     TVisibleControlChange = function (pControl: DWord; pShow: Boolean): Integer; cdecl;
+     TCompile = function (pCompileType: DWord; Lang, Filename: PChar): Integer; cdecl;
+     TShowHelp = function (pHelpType: DWord): Integer; cdecl;
+     TCustomItemClick = function (pCaption: PChar): Integer; cdecl;
+     TThemeChanged = function (pTheme: PChar): Integer; cdecl;
+
+     TModified = function (pText: PChar): Integer; cdecl;
+     TKeyPress = function (var pKey: Char): Integer; cdecl;
+     TEditorClick = function (pDoubleClick: Boolean): Integer; cdecl;
+     TUpdateSel = function (pSelStart, pSelLength, pFirstVisibleLine: DWord): Integer; cdecl;
+     TCallTipShow = function (pList: PChar): Integer; cdecl;
+     TCallTipClick = function (pPosition: DWord): Integer; cdecl;
+     TAutoCompleteShow = function (pList: PChar): Integer; cdecl;
+     TAutoCompleteSelect = function (pText: PChar): Integer; cdecl;
+
+     TAppMsg = function (pHwnd: HWND; pMessage: DWord; pWParam, pLParam: Integer; pTime: DWord; pPt: TPoint): Integer; cdecl;
+     TUpdateCodeTools = function (pLang, pFilename, pCurrProjects: PChar): Integer; cdecl;
+     TOutputEvent = function (pItemIndex: Integer): Integer; cdecl;
+
+type TIntegerArray = array of Integer;
+
+type TLoadInfo = record
+  { Plugin Values }
+  sPluginName: PChar;
+  sPluginDescription: PChar;
+  { Form Handles }
+  hAllFilesForm: HWND;
+  hAutoIndent: HWND;
+  hClose: HWND;
+  hConnGen: HWND;
+  hGoToLine: HWND;
+  hHTMLPreview: HWND;
+  hHudMsgGenerator: HWND;
+  hInfo: HWND;
+  hMainForm: HWND;
+  hMenuGenerator: HWND;
+  hMOTDGen: HWND;
+  hPluginsIniEditor: HWND;
+  hReplace: HWND;
+  hSearch: HWND;
+  hSelectColor: HWND;
+  hSettings: HWND;
+  hSocketsTerminal: HWND;
+  hSplashscreen: HWND;
+  { Important Control Handles }
+  hOutput: HWND;
+  hCodeExplorer: HWND;
+  hCodeInspector: HWND; // even if it won't be useful
+  hNotes: HWND;
+  { Other }
+  pApplication: Pointer; // this is only useful for Delphi developers
+end;
+
+type PLoadInfo = ^TLoadInfo;
+     TLoadPlugin = procedure (var LoadInfo: PLoadInfo); cdecl;
+     TUnloadPlugin = procedure; cdecl;
+
+procedure SendToMainApp(eData: String);
+
+function LoadPlugin(ListItem: TListItem): Boolean;
+procedure UnloadPlugin(ListItem: TListItem);
+
+function Plugin_CodeSnippetClick(Title, Category: String; Code: String): Boolean;
+function Plugin_FileLoad(Filename: String; Loading: Boolean): Boolean;
+function Plugin_FileSave(Filename: String; Saving: Boolean): Boolean;
+function Plugin_DocChange(Index: Integer; Filename, Highlighter: String; RestoreCaret, Changing: Boolean): Boolean;
+function Plugin_ProjectsChange(OldIndex, NewIndex: Integer; Changing: Boolean): Boolean;
+function Plugin_CreateNewFile(Item: Byte; Creating: Boolean): Boolean;
+function Plugin_Search(SearchList, Selected: String; Displaying, SearchAgain: Boolean): Boolean;
+function Plugin_SearchReplace(Expression, Replace, ExpList, RepList: String; CaseSensivity, WholeWords, SearchFromCaret, SelectedOnly, RegEx, Forward: Boolean): Boolean;
+function Plugin_VisibleControlChange(Control: Integer; Show: Boolean): Boolean;
+function Plugin_Compile(CompileType: Integer; Lang, Filename: String; Compiling: Boolean): Boolean;
+function Plugin_ShowHelp(HelpType: Integer): Boolean;
+function Plugin_CustomItemClick(Caption: String): Boolean;
+function Plugin_ThemeChange(Theme: String): Boolean;
+
+function Plugin_Modified(Code: PChar): Boolean;
+function Plugin_KeyPress(var Key: Char): Boolean;
+function Plugin_EditorClick(DoubleClick: Boolean): Boolean;
+function Plugin_UpdateSel(SelStart, SelLength, FirstVisibleLine: Integer): Boolean;
+function Plugin_CallTipShow(List: PChar): Boolean;
+function Plugin_CallTipClick(Position: Integer): Boolean;
+function Plugin_AutoCompleteShow(List: PChar): Boolean;
+function Plugin_AutoCompleteSelect(Text: PChar): Boolean;
+
+function Plugin_AppMsg(hwnd: HWND; Message: DWord; wParam, lParam: Integer; time: DWord; pt: TPoint): Boolean;
+function Plugin_UpdateCodeExplorer(Lang, Filename, CurrProjects: String; Updating: Boolean): Boolean;
+function Plugin_UpdateCodeInspector(Lang, Filename, CurrProjects: String; Updating: Boolean): Boolean;
+function Plugin_OutputDblClick(ItemIndex: Integer): Boolean;
+function Plugin_OutputPopup(ItemIndex: Integer): Boolean;
+
+const { Return values for dlls }
+      PLUGIN_CONTINUE = 0; // continue...
+      PLUGIN_STOP = 1; // stop calling funcs and don't handle the command
+      PLUGIN_HANDLED = 2; // don't handle the command
+      { Compile values }
+      COMP_DEFAULT = 0;
+      COMP_STARTHL = 1;
+      COMP_UPLOAD = 2;
+      { Help values }
+      HELP_DEFAULT = 0;
+      HELP_SEARCH = 1;
+      HELP_FORUMS = 2;
+      HELP_ABOUT = 3;
+      { Controls for visible state }
+      CTRL_OUTPUT = 0; // Output list
+      CTRL_CODETOOLS_MAIN = 1; // Code-Tools window
+      CTRL_CODETOOLS_ITEM = 2; // Code-Tools tab
+      CTRL_NOTES = 3; // Notes tab
+      { Languages }
+      NEW_PAWN_PLUGIN = 0;
+      NEW_PAWN_EMPTYPLUGIN = 1;
+      NEW_PAWN_HEADER = 2;
+      NEW_CPP_MODULE = 3;
+      NEW_CPP_UNIT = 4;
+      NEW_CPP_HEADER = 5;
+      NEW_OTHER_TEXTFILE = 6;
+      NEW_OTHER_HTML = 7;
+      NEW_OTHER_SQL = 8;
+      NEW_OTHER_XML = 9;
+
+implementation
+
+uses UnitfrmSettings, UnitMainTools, UnitfrmAllFilesForm,
+  UnitfrmAutoIndent, UnitfrmClose, UnitfrmConnGen, UnitfrmGoToLine,
+  UnitfrmHTMLPreview, UnitfrmHudMsgGenerator, UnitfrmInfo, UnitfrmMain,
+  UnitfrmMenuGenerator, UnitfrmMOTDGen, UnitfrmPluginsIniEditor,
+  UnitfrmReplace, UnitfrmSearch, UnitfrmSelectColor,
+  UnitfrmSocketsTerminal, UnitfrmSplashscreen, UnitLanguages;
+
+function LoadPlugin(ListItem: TListItem): Boolean;
+var eLoadInfo: TLoadInfo;
+    LoadInfo: PLoadInfo;
+    eHandle: Cardinal;
+    eFunc, eFunc2: TLoadPlugin;
+begin
+  Result := False;
+
+  with eLoadInfo do begin
+    sPluginName := 'Untitled';
+    sPluginDescription := 'No description';
+    { Handles }
+    hAllFilesForm := frmAllFilesForm.Handle;
+    hAutoIndent := frmAutoIndent.Handle;
+    hClose := frmClose.Handle;
+    hConnGen := frmConnGen.Handle;
+    hGoToLine := frmGoToLine.Handle;
+    hHTMLPreview := frmHTMLPreview.Handle;
+    hHudMsgGenerator := frmHudMsgGenerator.Handle;
+    hInfo := frmInfo.Handle;
+    hMainForm := frmMain.Handle;
+    hMenuGenerator := frmMenuGenerator.Handle;
+    hMOTDGen := frmMOTDGen.Handle;
+    hPluginsIniEditor := frmPluginsIniEditor.Handle;
+    hReplace := frmReplace.Handle;
+    hSearch := frmSearch.Handle;
+    hSelectColor := frmSelectColor.Handle;
+    hSettings := frmSettings.Handle;
+    hSocketsTerminal := frmSocketsTerminal.Handle;
+    hSplashscreen := frmSplashscreen.Handle;
+    { Important Control Handles }
+    hOutput := frmMain.lstOutput.Handle;
+    hCodeExplorer := frmMain.trvExplorer.Handle;
+    hCodeInspector := frmMain.jviCode.Handle; // even if it won't be useful
+    hNotes := frmMain.rtfNotes.Handle;
+    { Other }
+    pApplication := @Application; // this is only useful for Delphi developers
+  end;
+
+  eHandle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'plugins\' + ListItem.SubItems[0]));
+  if eHandle = 0 then exit;
+  @eFunc := GetProcAddress(eHandle, 'pftPluginLoad');
+  @eFunc2 := GetProcAddress(eHandle, 'pftPluginUnload');
+  
+  if @eFunc2 <> nil then begin
+    if @eFunc <> nil then begin
+      ListItem.Data := Pointer(eHandle);
+      ListItem.SubItems[2] := 'Loaded';
+      LoadInfo := @eLoadInfo;
+      eFunc(LoadInfo);
+      ListItem.Caption := eLoadInfo.sPluginName;
+      ListItem.SubItems[1] := eLoadInfo.sPluginDescription;
+    end
+    else
+      MessageBox(Application.Handle, PChar('Error loading plugin:' + #13 + 'pftPluginLoad function not found.'), PChar(ExtractFileName(ExtractFilePath(ParamStr(0)) + 'plugins\' + ListItem.SubItems[0])), MB_ICONERROR);
+  end
+  else
+    MessageBox(Application.Handle, PChar('Error loading plugin:' + #13 + 'pftPluginUnload function not found.'), PChar(ExtractFileName(ExtractFilePath(ParamStr(0)) + 'plugins\' + ListItem.SubItems[0])), MB_ICONERROR);
+end;
+
+procedure UnloadPlugin(ListItem: TListItem);
+var eFunc: TUnloadPlugin;
+begin
+  @eFunc := GetProcAddress(Cardinal(ListItem.Data), 'pftPluginUnload');
+  if @eFunc <> nil then
+    eFunc;
+  FreeLibrary(Cardinal(ListItem.Data));
+  
+  ListItem.Data := nil;
+  ListItem.Caption := '-';
+  ListItem.SubItems[1] := '-';
+  ListItem.SubItems[2] := 'Unloaded';
+end;
+
+procedure SendToMainApp(eData: String);
+var HTargetWnd: HWND;
+    ACopyDataStruct: TCopyDataStruct;  
+begin
+  with ACopyDataStruct do  
+  begin  
+    dwData := 0;  
+    cbData := Length(eData) + 1;
+    lpData := PChar(eData);  
+  end;  
+
+  HTargetWnd := FindWindow('TfrmMain', 'AMXX-Studio');     
+  if HTargetWnd <> 0 then  
+    SendMessage(HTargetWnd, WM_COPYDATA, 0, LongInt(@ACopyDataStruct));
+end;
+
+
+function GetDLLHandles: TIntegerArray;
+var i, eCount: integer;
+begin
+  SetLength(Result, 0);
+  eCount := 0;
+
+  if not Started then exit;
+
+  for i := 0 to frmSettings.lvPlugins.Items.Count -1 do begin
+    if frmSettings.lvPlugins.Items[i].Data <> nil then begin
+      SetLength(Result, eCount +1);
+      Result[eCount] := Cardinal(frmSettings.lvPlugins.Items[i].Data);
+      Inc(eCount, 1);
+    end;
+  end;
+end;
+
+function Plugin_CodeSnippetClick(Title, Category: String; Code: String): Boolean;
+var Func: TCodeSnippetClick;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftCodeSnippetClick');
+
+    if @Func <> nil then begin
+      case Func(PChar(Title), PChar(Category), PChar(Code)) of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_FileLoad(Filename: String; Loading: Boolean): Boolean;
+var Func: TFileAction;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Loading then
+      @Func := GetProcAddress(Handles[i], 'pftLoading')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftLoaded');
+
+    if @Func <> nil then begin
+      case Func(PChar(Filename)) of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_FileSave(Filename: String; Saving: Boolean): Boolean;
+var Func: TFileAction;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Saving then
+      @Func := GetProcAddress(Handles[i], 'pftSaving')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftSaved');
+
+    if @Func <> nil then begin
+      case Func(PChar(Filename)) of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_DocChange(Index: Integer; Filename, Highlighter: String; RestoreCaret, Changing: Boolean): Boolean;
+var Func: TDocChange;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Changing then
+      @Func := GetProcAddress(Handles[i], 'pftDocChanging')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftDocChanged');
+
+    if @Func <> nil then begin
+      case Func(Index, PChar(Filename), PChar(Highlighter), RestoreCaret) of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_ProjectsChange(OldIndex, NewIndex: Integer; Changing: Boolean): Boolean;
+var Func: TProjectsChange;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Changing then
+      @Func := GetProcAddress(Handles[i], 'pftProjectsChanging')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftProjectsChanged');
+
+    if @Func <> nil then begin
+      case Func(OldIndex, NewIndex) of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_CreateNewFile(Item: Byte; Creating: Boolean): Boolean;
+var Func: TCreateNewFile;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Creating then
+      @Func := GetProcAddress(Handles[i], 'pftCreatingNewFile')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftCreatedNewFile');
+
+    if @Func <> nil then begin
+      case Func(PByte(Item)) of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_Search(SearchList, Selected: String; Displaying, SearchAgain: Boolean): Boolean;
+var Func: TDisplaySearch;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Displaying then
+      @Func := GetProcAddress(Handles[i], 'pftDisplayingSearch')
+    else if SearchAgain then
+      @Func := GetProcAddress(Handles[i], 'pftSearchAgain')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftSearch');
+
+    if @Func <> nil then begin
+      case Func(PChar(SearchList), PChar(Selected)) of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_SearchReplace(Expression, Replace, ExpList, RepList: String; CaseSensivity, WholeWords, SearchFromCaret, SelectedOnly, RegEx, Forward: Boolean): Boolean;
+var Func: TSearchReplace;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftSearchReplace');
+
+    if @Func <> nil then begin
+      case Func(PChar(Expression), PChar(Replace), PChar(ExpList), PChar(RepList), CaseSensivity, WholeWords, SearchFromCaret, SelectedOnly, RegEx, Forward)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_VisibleControlChange(Control: Integer; Show: Boolean): Boolean;
+var Func: TVisibleControlChange;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftVisibleControlChange');
+
+    if @Func <> nil then begin
+      case Func(Control, Show)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_Compile(CompileType: Integer; Lang, Filename: String; Compiling: Boolean): Boolean;
+var Func: TCompile;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Compiling then
+      @Func := GetProcAddress(Handles[i], 'pftCompiling')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftCompile');
+
+    if @Func <> nil then begin
+      case Func(CompileType, PChar(Lang), PChar(Filename))  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_ShowHelp(HelpType: Integer): Boolean;
+var Func: TShowHelp;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftShowHelp');
+
+    if @Func <> nil then begin
+      case Func(HelpType)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_CustomItemClick(Caption: String): Boolean;
+var Func: TCustomItemClick;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftCustomItemClick');
+
+    if @Func <> nil then begin
+      case Func(PChar(Caption))  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_ThemeChange(Theme: String): Boolean;
+var Func: TThemeChanged;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftThemeChanged');
+
+    if @Func <> nil then begin
+      case Func(PChar(Theme))  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_Modified(Code: PChar): Boolean;
+var Func: TModified;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftModified');
+
+    if @Func <> nil then begin
+      case Func(Code)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_KeyPress(var Key: Char): Boolean;
+var Func: TKeyPress;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftKeyPress');
+
+    if @Func <> nil then begin
+      case Func(Key)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_EditorClick(DoubleClick: Boolean): Boolean;
+var Func: TEditorClick;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if DoubleClick then
+      @Func := GetProcAddress(Handles[i], 'pftDoubleClick')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftClick');
+
+    if @Func <> nil then begin
+      case Func(DoubleClick)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_UpdateSel(SelStart, SelLength, FirstVisibleLine: Integer): Boolean;
+var Func: TUpdateSel;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftUpdateSel');
+
+    if @Func <> nil then begin
+      case Func(SelStart, SelLength, FirstVisibleLine)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_CallTipShow(List: PChar): Boolean;
+var Func: TCallTipShow;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftCallTipShow');
+
+    if @Func <> nil then begin
+      case Func(List)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_CallTipClick(Position: Integer): Boolean;
+var Func: TCallTipClick;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftCallTipClick');
+
+    if @Func <> nil then begin
+      case Func(Position)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_AutoCompleteShow(List: PChar): Boolean;
+var Func: TAutoCompleteShow;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftAutoCompleteShow');
+
+    if @Func <> nil then begin
+      case Func(List)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_AutoCompleteSelect(Text: PChar): Boolean;
+var Func: TAutoCompleteSelect;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftAutoCompleteSelect');
+
+    if @Func <> nil then begin
+      case Func(Text)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_AppMsg(hwnd: HWND; Message: DWord; wParam, lParam: Integer; time: DWord; pt: TPoint): Boolean;
+var Func: TAppMsg;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftMessage');
+
+    if @Func <> nil then begin
+      case Func(hwnd, Message, wParam, lParam, time, pt)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;                                 
+
+function Plugin_UpdateCodeExplorer(Lang, Filename, CurrProjects: String; Updating: Boolean): Boolean;
+var Func: TUpdateCodeTools;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Updating then
+      @Func := GetProcAddress(Handles[i], 'pftUpdatingCodeExplorer')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftUpdatedCodeExplorer');
+
+    if @Func <> nil then begin
+      case Func(PChar(Lang), PChar(Filename), PChar(CurrProjects))  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_UpdateCodeInspector(Lang, Filename, CurrProjects: String; Updating: Boolean): Boolean;
+var Func: TUpdateCodeTools;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    if Updating then
+      @Func := GetProcAddress(Handles[i], 'pftUpdatingCodeInspector')
+    else
+      @Func := GetProcAddress(Handles[i], 'pftUpdatedCodeInspector');
+
+    if @Func <> nil then begin
+      case Func(PChar(Lang), PChar(Filename), PChar(CurrProjects))  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_OutputDblClick(ItemIndex: Integer): Boolean;
+var Func: TOutputEvent;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftOutputDoubleClick');
+
+    if @Func <> nil then begin
+      case Func(ItemIndex)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function Plugin_OutputPopup(ItemIndex: Integer): Boolean;
+var Func: TOutputEvent;
+    i: integer;
+    Handles: TIntegerArray;
+begin
+  Result := True;
+
+  Handles := GetDLLHandles;
+  for i := 0 to High(Handles) do begin
+    @Func := GetProcAddress(Handles[i], 'pftOutputPopup');
+
+    if @Func <> nil then begin
+      case Func(ItemIndex)  of
+        PLUGIN_HANDLED: Result := False;
+        PLUGIN_STOP: begin
+          Result := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+
+end.

editor/studio/UnitReadThread.pas

@@ -0,0 +1,58 @@
+unit UnitReadThread; // from AMXX-Edit v2
+
+interface
+
+uses
+  Classes, SysUtils, Graphics;
+
+type
+  TReadThread = class(TThread)
+  public
+    ReadTCP: Boolean;
+  protected
+    Read: String;
+    procedure Execute; override;
+    procedure AddRead;
+  end;
+
+implementation
+
+uses UnitfrmSocketsTerminal;
+
+{ TReadThread }
+
+procedure TReadThread.AddRead;
+begin
+  frmSocketsTerminal.OnRead(Read);
+end;
+
+procedure TReadThread.Execute;
+begin
+  if ReadTCP then begin
+    frmSocketsTerminal.IdTCPClient.ReadTimeout := 50;
+    repeat
+      try
+        Read := frmSocketsTerminal.IdTCPClient.ReadLn;
+        Synchronize(AddRead);
+      except
+        // nothing
+      end;
+    until (Terminated) or (not frmSocketsTerminal.IdTCPClient.Connected);
+  end
+  else begin
+    frmSocketsTerminal.IdUDPClient.ReceiveTimeout := 50;
+    repeat
+      try
+        Read := frmSocketsTerminal.IdUDPClient.ReceiveString;
+        if Read <> '' then // if ReadTimeout then Read = ''
+          Synchronize(AddRead);
+      except
+        // nothing
+      end;
+    until (Terminated) or (not frmSocketsTerminal.IdUDPClient.Active);
+  end;
+  Free;
+end;
+
+end.
+ 

editor/studio/UnitTextAnalyze.pas

@@ -0,0 +1,404 @@
+unit UnitTextAnalyze;
+
+interface
+
+uses SysUtils, Classes, Windows, Forms;
+
+type TPAWNParseResult = class
+  public
+    Constants: TStringList;
+    Defined: TStringList;
+    CVars: TStringList;
+    Included: TStringList;
+    MethodsDefault: TStringList;
+    Events: TStringList;
+    Stocks: TStringList;
+    Natives: TStringList;
+    Forwards: TStringList;
+    Variables: TStringList;
+
+    CallTips: TStringList;
+    AutoComplete: TStringList;
+    HighlightKeywords: TStringList;
+
+    constructor Create; reintroduce;
+    procedure DestroyResult;
+  end;
+
+function ParseCodePAWN(eCode: TStringList; FileName: String; IsRecursive: Boolean = False): TPAWNParseResult;
+function UpdateIncPath(eInput: String): String;
+
+var eCPUSpeed: Integer = 1;
+
+implementation
+
+uses UnitCodeExplorerUpdater, UnitCodeUtils, UnitfrmSettings,
+  UnitMainTools, UnitfrmMain;
+
+var eLookedUpIncluded: TStringList;
+
+function UpdateIncPath(eInput: String): String;
+begin
+  if FileExists(ExtractFilePath(frmSettings.txtPAWNCompilerPath.Text) + eInput + '.inc') then
+    Result := ExtractFilePath(frmSettings.txtPAWNCompilerPath.Text) + eInput + '.inc'
+  else if FileExists(ExtractFilePath(frmSettings.txtPAWNCompilerPath.Text) + 'include\' + eInput + '.inc') then
+    Result := ExtractFilePath(frmSettings.txtPAWNCompilerPath.Text) + 'include\' + eInput + '.inc'
+  else if (FileExists(ExtractFilePath(ActiveDoc.FileName) + eInput + '.inc')) and (not ActiveDoc.Modified) then
+    Result := ExtractFilePath(ActiveDoc.FileName) + eInput + '.inc'
+  else
+    Result := '';
+end;
+
+function ParseCodePAWN(eCode: TStringList; FileName: String; IsRecursive: Boolean = False): TPAWNParseResult;
+var i, k: integer;
+    eString, eTemp: string;
+    eStr, ePreEvents: TStringList;
+    eStartLine, eBracesOpen: Integer;
+    eTimeToSleep: Integer;
+    eAddingEnum: Integer;
+    eTempResult: TPawnParseResult;
+    eProcedureAdded: Boolean;
+begin
+  Result := TPawnParseResult.Create;
+  if not IsRecursive then
+    eLookedUpIncluded.Clear;
+
+  eStr := TStringList.Create;
+  ePreEvents := TStringList.Create;
+  eBracesOpen := 0;
+  eStartLine := -1;
+  eTimeToSleep := 0;
+  eAddingEnum := 0;
+
+  for i := 0 to eCode.Count - 1 do begin
+    if (Application.Terminated) or (not Started) or (frmMain.pnlLoading.Visible) or (not frmMain.trvExplorer.Visible) then exit;
+
+    eString := RemoveStringsAndComments(Trim(eCode[i]), True);
+    eProcedureAdded := False;
+    Inc(eTimeToSleep, 1);
+
+    if eTimeToSleep = eCPUSpeed then begin
+      Sleep(1);
+      eTimeToSleep := 0;
+    end;
+
+    { Constants and Variables }
+    if (IsAtStart('new', eString)) and (eBracesOpen = 0) and (not IsRecursive) then begin // const or variable
+      Delete(eString, 1, 4);
+      eString := Trim(eString);
+      // we don't need braces so delete them...
+      while (CountChars(eString, '{') <> 0) and (CountChars(eString, '}') <> 0) and (Pos('{', eString) < Pos('}', eString)) do
+        eString := StringReplace(eString, '{' + Between(eString, '{', '}') + '}', '', [rfReplaceAll]);
+      while (CountChars(eString, '[') <> 0) and (CountChars(eString, ']') <> 0) and (Pos('[', eString) < Pos(']', eString)) do
+        eString := StringReplace(eString, '[' + Between(eString, '[', ']') + ']', '', [rfReplaceAll]);
+      // done? okay, split all items if there are more than one; and if not, it's okay...
+      eStr.Text := StringReplace(eString, ',', #13, [rfReplaceAll]);
+      for k := 0 to eStr.Count - 1 do begin
+        if (Trim(eStr[k]) <> '') and (eStr[k] <> '}') then begin
+          eTemp := Trim(RemoveSemicolon(eStr[k]));
+
+          if Pos(':', eTemp) <> 0 then
+            eTemp := Copy(eTemp, Pos(':', eTemp) + 1, Length(eTemp));
+
+          if Pos('=', eTemp) <> 0 then begin // constant
+            Result.Constants.AddObject(Copy(eTemp, 1, Pos('=', eTemp) - 1), TObject(i));
+            Result.AutoComplete.Add(Copy(eTemp, 1, Pos('=', eTemp) - 1));
+          end
+          else begin // variable
+            Result.Variables.AddObject(eTemp, TObject(i));
+            Result.AutoComplete.Add(eTemp);
+          end;
+        end;
+      end;
+      eString := RemoveStringsAndComments(Trim(eCode[i]), True);
+    end
+    { Included }
+    else if (IsAtStart('#include', eString)) then begin
+      if Between(eString, '<', '>') <> '' then begin
+        eString := Between(eString, '<', '>');
+        if ExtractFileExt(eString) <> '' then
+          ChangeFileExt(eString, '');
+      end
+      else if Between(eString, '"', '"') <> '' then begin
+        eString := Between(eString, '"', '"');
+        if ExtractFileExt(eString) <> '' then
+          ChangeFileExt(eString, '');
+      end
+      else begin
+        eString := Copy(eString, 9, Length(eString));
+        if ExtractFileExt(eString) <> '' then
+          ChangeFileExt(eString, '');
+      end;
+      eString := Trim(eString);
+      Result.Included.AddObject(eString, TObject(i));
+
+      // Recursive update
+      if (eLookedUpIncluded.IndexOf(eString) = -1) then begin
+        eLookedUpIncluded.Add(eString);
+        eTemp := UpdateIncPath(eString);
+
+        if (eString <> '') and (FileExists(eTemp)) then begin
+          // Load code and parse
+          try
+            eStr.LoadFromFile(eTemp);
+            if Application.Terminated then exit;
+            eTempResult := ParseCodePAWN(eStr, ExtractFileName(eTemp), True);
+            // Assign parsed values
+            Result.AutoComplete.AddStrings(eTempResult.AutoComplete);
+            Result.CallTips.AddStrings(eTempResult.CallTips);
+            Result.HighlightKeywords.AddStrings(eTempResult.HighlightKeywords);
+            // free
+            eTempResult.DestroyResult;
+            eTempResult := nil;
+          except
+            // mmmm.. burger
+          end;
+          // wait
+          Sleep(20);
+        end;
+      end;
+    end
+    { CVars }
+    else if (IsAtStart('register_cvar', eString)) and (not IsRecursive) then begin
+      if Between(eString, '"', '"') <> '' then
+        Result.CVars.AddObject(Between(eString, '"', '"'), TObject(i));
+    end
+    { Defined }
+    else if (IsAtStart('#define', eString)) then begin
+      eString := Copy(eString, 8, Length(eString));
+      eString := Trim(eString);
+      Result.CallTips.Add(eString + '-> ' + FileName);
+      if Pos(#32, eString) <> 0 then
+        eString := Copy(eString, 1, Pos(#32, eString) - 1);
+      if Pos('	', eString) <> 0 then
+        eString := Copy(eString, 1, Pos('	', eString) - 1);
+      Result.Defined.AddObject(eString, TObject(i));
+      Result.AutoComplete.Add(eString);
+    end
+    { Events (Part 1) }
+    else if (IsAtStart('register_event(', eString)) and (not IsRecursive) then begin
+      if CountChars(eString, '"') >= 4 then begin
+        eTemp := StringReplace(eString, '"' + Between(eString, '"', '"') + '"', '', []);
+        ePreEvents.Add(Between(eString, '"', '"'));
+      end;
+    end;
+
+    { Functions (1), this is adapted from AMXX-Edit v2 [see TextAnalyze.pas] }
+    eBracesOpen := eBracesOpen + CountChars(eString, '{');
+    eBracesOpen := eBracesOpen - CountChars(eString, '}');
+
+    if Pos('{', eString) <> 0 then begin
+      { Enums -> }
+      if eAddingEnum = 1 then begin
+        eAddingEnum := 2;
+        Delete(eString, 1, Pos('{', eString) + 1);
+      end
+      else begin
+        if eStartLine = -1 then begin
+          eProcedureAdded := True;
+          eStartLine := i;
+        end;
+      end;
+      { <- Enums }
+    end;
+    if (Pos('}', eString) <> 0) and (not IsAtStart('new', Trim(eCode[eStartLine]))) then begin
+      { Enums -> }
+      if eAddingEnum <> 0 then
+        eAddingEnum := 0;
+        
+      { <- Enums }
+      if (eBracesOpen = 0) and (Length(Trim(eCode[eStartLine])) > 1) then begin
+        eTemp := Trim(RemoveSemicolon(Trim(eCode[eStartLine])));
+
+        if eTemp[Length(eTemp)] = '{' then
+          eTemp := Trim(Copy(eTemp, 1, Length(eTemp) -1));
+
+        // Analyze type
+        k := 0;
+        if IsAtStart('public', eTemp) then
+          k := 1
+        else if IsAtStart('stock', eTemp) then
+          k := 2
+        else if IsAtStart('native', eTemp) then
+          k := 3
+        else if IsAtStart('forward', eTemp) then
+          k := 4
+        else if Pos('enum', LowerCase(eTemp)) = 1 then // no method
+          k := 5;
+
+        // Remove type
+        if (Pos(#32, eTemp) <> 0) and (Pos(#32, eTemp) < Pos('(', eTemp)) then
+          eTemp := Copy(eCode[eStartLine], Pos(#32, eCode[eStartLine]) + 1, Length(eCode[eStartLine]))
+        else if (Pos(#9, eTemp) <> 0) and (Pos(#9, eTemp) < Pos('(', eTemp)) then
+          eTemp := Copy(eTemp, Pos(#9, eTemp) + 1, Length(eTemp));
+        // Remove return-type
+        if (Pos(':', eTemp) <> 0) and (Pos(':', eTemp) < Pos('(', eTemp)) then
+          Delete(eTemp, 1, Pos(':', eTemp));
+
+        if Pos('operator', eTemp) = 1 then
+          k := 6;
+
+        if k < 5 then
+          Result.CallTips.Add(eTemp + '-> ' + FileName);
+        // Copy function-name
+        if Pos('(', eTemp) <> 0 then
+          eTemp := Copy(eTemp, 1, Pos('(', eTemp) - 1);
+        eTemp := Trim(eTemp);
+
+        if k < 5 then begin
+          Result.AutoComplete.Add(eTemp);
+          Result.HighlightKeywords.Add(eTemp);
+        end;
+        
+        if eTemp <> '' then begin
+          case k of
+            0: begin
+              if not IsRecursive then
+                Result.MethodsDefault.AddObject(eTemp, TObject(eStartLine)); // Default Method
+            end;
+            1: begin
+                k := ePreEvents.IndexOf(eTemp);
+                if k <> -1 then begin
+                  Result.Events.AddObject(eTemp, ePreEvents.Objects[k]);
+                  ePreEvents.Delete(k);
+                end
+                else
+                  Result.MethodsDefault.AddObject(eTemp, TObject(eStartLine));
+              end;
+            2: Result.Stocks.AddObject(eTemp, TObject(eStartLine));
+            3: Result.Natives.AddObject(eTemp, TObject(eStartLine));
+            4: Result.Forwards.AddObject(eTemp, TObject(eStartLine));
+          end;
+        end;
+        eStartLine := -1;
+        eBracesOpen := 0;
+      end;
+    end
+    else if (eAddingEnum = 2) and (Pos('enum', LowerCase(eString)) <> 1) then begin
+      if Pos(' ', eString) <> 0 then
+        eString := Copy(eString, 1, Pos(' ', eString) - 1);
+      if Pos(',', eString) <> 0 then
+        eString := Copy(eString, 1, Pos(',', eString) - 1);
+      if Pos('	', eString) <> 0 then
+        eString := Copy(eString, 1, Pos('	', eString) - 1);
+      if Pos(':', eString) <> 0 then
+        eString := Copy(eString, 1, Pos(':', eString) - 1);
+      Result.AutoComplete.Add(eString);
+    end;
+
+    { Enums }
+    if IsAtStart('enum', eString) then begin
+      if Pos('{', eString) <> 0 then
+        eAddingEnum := 2 // Add values immediately
+      else
+        eAddingEnum := 1; // Wait for next brace and add then
+    end;
+
+    { Functions (2) }
+    if (IsAtStart('forward', eString)) or (IsAtStart('public', eString)) or (IsAtStart('native', eString)) or (IsAtStart('stock', eString)) then begin
+      if (not eProcedureAdded) and (Pos('(', eString) <> 0) then begin
+        eTemp := Trim(RemoveSemicolon(eString));
+        if eTemp[Length(eTemp)] = '{' then
+          eTemp := Trim(Copy(eTemp, 1, Length(eTemp) -1));
+
+        // Remove type
+        if (Pos(#32, eTemp) <> 0) and (Pos(#32, eTemp) < Pos('(', eTemp)) then
+          eTemp := Copy(eTemp, Pos(#32, eTemp) + 1, Length(eTemp));
+        if (Pos(#9, eTemp) <> 0) and (Pos(#9, eTemp) < Pos('(', eTemp)) then
+          eTemp := Copy(eTemp, Pos(#9, eTemp) + 1, Length(eTemp));
+        // Remove return-type
+        if (Pos(':', eTemp) <> 0) and (Pos(':', eTemp) < Pos('(', eTemp)) then
+          Delete(eTemp, 1, Pos(':', eTemp));
+
+        if (Pos('enum', eTemp) = Pos('operator', eTemp)) and (Pos('enum', eTemp) = 0) then
+          Result.CallTips.Add(eTemp + '-> ' + FileName);
+          
+        // Copy function-name
+        if Pos('(', eTemp) <> 0 then
+        eTemp := Copy(eTemp, 1, Pos('(', eTemp) - 1);
+          eTemp := Trim(eTemp);
+
+        if (Pos('enum', eTemp) = Pos('operator', eTemp)) and (Pos('enum', eTemp) = 0) then begin
+          Result.AutoComplete.Add(eTemp);
+          Result.HighlightKeywords.Add(eTemp);
+        end;
+
+        if eTemp <> '' then begin
+          if IsAtStart('forward', eString) then
+            Result.Forwards.AddObject(eString, TObject(i))
+          else if IsAtStart('public', eString) then begin
+            k := ePreEvents.IndexOf(eTemp);
+            if k <> -1 then begin
+              Result.Events.AddObject(eTemp, ePreEvents.Objects[k]);
+              ePreEvents.Delete(k);
+            end
+            else
+              Result.MethodsDefault.AddObject(eTemp, TObject(i));
+          end
+          else if IsAtStart('native', eString) then
+            Result.Natives.AddObject(eTemp, TObject(i))
+          else if IsAtStart('stock', eString) then
+            Result.Stocks.AddObject(eTemp, TObject(i))
+          else if (Pos('enum', eTemp) = Pos('operator', eTemp)) and (Pos('enum', eTemp) = 0) then
+            Result.MethodsDefault.AddObject(eTemp, TObject(i));
+        end;
+      end;
+    end;    
+  end;
+  ePreEvents.Free;
+  eStr.Free;
+end;
+
+{ TPAWNParseResult }
+
+constructor TPAWNParseResult.Create;
+begin
+  inherited Create;
+
+  Constants := TStringList.Create;
+  Defined := TStringList.Create;
+  CVars := TStringList.Create;
+  Included := TStringList.Create;
+  MethodsDefault := TStringList.Create;
+  Events := TStringList.Create;
+  Stocks := TStringList.Create;
+  Natives := TStringList.Create;
+  Forwards := TStringList.Create;
+  Variables := TStringList.Create;
+
+  CallTips := TStringList.Create;
+  AutoComplete := TStringList.Create;
+  HighlightKeywords := TStringList.Create;
+end;
+
+procedure TPAWNParseResult.DestroyResult;
+begin
+  Constants.Free;
+  Defined.Free;
+  CVars.Free;
+  Included.Free;
+  MethodsDefault.Free;
+  Events.Free;
+  Stocks.Free;
+  Natives.Free;
+  Forwards.Free;
+  Variables.Free;
+
+  CallTips.Free;
+  AutoComplete.Free;
+  HighlightKeywords.Free;
+
+  Free;
+end;
+
+initialization
+
+  eLookedUpIncluded := TStringList.Create;
+
+finalization
+
+  eLookedUpIncluded.Free;
+
+
+end.
+

editor/studio/UnitfrmAllFilesForm.pas

@@ -0,0 +1,31 @@
+unit UnitfrmAllFilesForm;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, mbTBXListBox,
+  mbTBXCheckListBox;
+
+type
+  TfrmAllFilesForm = class(TForm)
+    lblCaption: TLabel;
+    lstFiles: TmbTBXCheckListBox;
+    cmdOK: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    procedure FormShow(Sender: TObject);
+  end;
+
+var
+  frmAllFilesForm: TfrmAllFilesForm;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmAllFilesForm.FormShow(Sender: TObject);
+begin
+  lstFiles.SetFocus;
+end;
+
+end.

editor/studio/UnitfrmAutoIndent.pas

@@ -0,0 +1,24 @@
+unit UnitfrmAutoIndent;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TFlatCheckBoxUnit, TFlatButtonUnit;
+
+type
+  TfrmAutoIndent = class(TForm)
+    chkUnindentPressingClosingBrace: TFlatCheckBox;
+    chkUnindentLine: TFlatCheckBox;
+    chkIndentOpeningBrace: TFlatCheckBox;
+    cmdClose: TFlatButton;
+  end;
+
+var
+  frmAutoIndent: TfrmAutoIndent;
+
+implementation
+
+{$R *.DFM}
+
+end.

editor/studio/UnitfrmClose.pas

@@ -0,0 +1,61 @@
+unit UnitfrmClose;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, CheckLst, TFlatSpeedButtonUnit, ComCtrls,
+  JvExComCtrls, JvComCtrls, JvCheckTreeView;
+
+type
+  TfrmClose = class(TForm)
+    shpFiles: TShape;
+    cmdSave: TFlatSpeedButton;
+    cmdCancel: TFlatSpeedButton;
+    lblInfo: TLabel;
+    trvFiles: TJvCheckTreeView;
+    procedure trvFilesMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+  end;
+
+var
+  frmClose: TfrmClose;
+
+implementation
+
+uses UnitLanguages;
+
+{$R *.DFM}
+
+procedure TfrmClose.trvFilesMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var eClose: Boolean;
+    i, k: integer;
+begin
+  if Assigned(trvFiles.GetNodeAt(X, Y)) then begin
+    if not Assigned(trvFiles.GetNodeAt(X, Y).Parent) then begin
+      eClose := trvFiles.Checked[trvFiles.GetNodeAt(X, Y)];
+      with trvFiles.GetNodeAt(X, Y) do begin
+        for i := 0 to Count -1 do
+          trvFiles.Checked[Item[i]] := eClose;
+      end;
+    end;
+  end;
+
+  eClose := True;
+  for i := 0 to trvFiles.Items.Count -1 do begin
+    for k := 0 to trvFiles.Items[i].Count -1 do begin
+      if (trvFiles.Checked[trvFiles.Items[i].Item[k]]) then begin
+        eClose := False;
+        break;
+      end;
+    end;
+  end;
+
+  if eClose then
+    cmdSave.Caption := lCloseCaption
+  else
+    cmdSave.Caption := lSaveCaption;
+end;
+
+end.

editor/studio/UnitfrmConnGen.pas

@@ -0,0 +1,40 @@
+unit UnitfrmConnGen;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, SpTBXEditors, TntStdCtrls, TBXDkPanels,
+  SpTBXDkPanels;
+
+type
+  TfrmConnGen = class(TForm)
+    lblState: TLabel;
+    pnlSettings: TPanel;
+    lblHost: TLabel;
+    txtHost: TSpTBXEdit;
+    lblPort: TLabel;
+    txtPort: TSpTBXEdit;
+    lblProtocol: TLabel;
+    cboProtocol: TSpTBXComboBox;
+    cmdOK: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    lblSocketName: TLabel;
+    txtName: TSpTBXEdit;
+    procedure txtNameKeyPress(Sender: TObject; var Key: Char);
+  end;
+
+var
+  frmConnGen: TfrmConnGen;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmConnGen.txtNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #32 then
+    Key := #0;
+end;
+
+end.

editor/studio/UnitfrmGoToLine.pas

@@ -0,0 +1,51 @@
+unit UnitfrmGoToLine;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, mbTBXEdit, mbTBXValidateEdit, TBXDkPanels,
+  SpTBXDkPanels, SpTBXEditors;
+
+type
+  TfrmGoToLine = class(TForm)
+    lblCaption: TLabel;
+    txtGoToLine: TSpTBXEdit;
+    cmdOK: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    procedure txtGoToLineChange(Sender: TObject);
+    procedure txtGoToLineKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+  end;
+
+var
+  frmGoToLine: TfrmGoToLine;
+
+implementation
+
+uses UnitMainTools;
+
+{$R *.DFM}
+
+procedure TfrmGoToLine.txtGoToLineChange(Sender: TObject);
+begin
+  if not IsNumeric(txtGoToLine.Text) then
+    txtGoToLine.Text := '1'
+  else if txtGoToLine.Text = '0' then
+    txtGoToLine.Text := '1';
+end;
+
+procedure TfrmGoToLine.txtGoToLineKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then begin
+    cmdOK.Click;
+    Key := #0;
+  end;
+end;
+
+procedure TfrmGoToLine.FormShow(Sender: TObject);
+begin
+  txtGoToLine.SetFocus;
+end;
+
+end.

editor/studio/UnitfrmHTMLPreview.pas

@@ -0,0 +1,73 @@
+unit UnitfrmHTMLPreview;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, OleCtrls, SHDocVw, ActiveX;
+
+type
+  TfrmHTMLPreview = class(TForm)
+    wbPreview: TWebBrowser;
+    tmrLoad: TTimer;
+    procedure tmrLoadTimer(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  public
+    procedure LoadCode(eHTML: String);
+  end;
+
+var
+  frmHTMLPreview: TfrmHTMLPreview;
+
+implementation
+
+uses UnitMainTools, UnitfrmMain;
+
+{$R *.DFM}
+
+{ TfrmHTMLPreview }
+
+procedure TfrmHTMLPreview.LoadCode(eHTML: String);
+var sl: TStringList;
+    ms: TMemoryStream;
+begin
+  wbPreview.Navigate('about:blank');
+  while wbPreview.ReadyState < READYSTATE_INTERACTIVE do
+   Application.ProcessMessages;
+
+  if Assigned(wbPreview.Document) then
+  begin
+    sl := TStringList.Create;
+    try
+      ms := TMemoryStream.Create;
+      try
+        sl.Text := eHTML;
+        sl.SaveToStream(ms);
+        ms.Seek(0, 0);
+        (wbPreview.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
+      finally
+        ms.Free;
+      end;
+    finally
+      sl.Free;
+    end;
+  end;
+end;
+
+procedure TfrmHTMLPreview.tmrLoadTimer(Sender: TObject);
+begin
+  if not Started then exit;
+  
+  if (Visible) and (not Focused) then begin
+    if (LowerCase(ExtractFileExt(ActiveDoc.FileName)) = '.htm') or (LowerCase(ExtractFileExt(ActiveDoc.FileName)) = '.html') then
+      LoadCode(frmMain.sciEditor.Lines.Text);
+  end;
+end;
+
+procedure TfrmHTMLPreview.FormShow(Sender: TObject);
+begin
+  Left := frmMain.Left + frmMain.Width - Width - 50;
+  Top := frmMain.Top + 30;
+end;
+
+end.

editor/studio/UnitfrmHudMsgGenerator.pas

@@ -0,0 +1,273 @@
+unit UnitfrmHudMsgGenerator;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, TBXDkPanels, SpTBXDkPanels, ExtCtrls, StdCtrls, SpTBXEditors,
+  mbTBXEdit, mbTBXSpinEdit, mbTBXFloatSpinEdit, TB2Item, TBX, SpTBXItem,
+  TB2Dock, TB2Toolbar, ImgList, TFlatEditUnit, TFlatButtonUnit,
+  TFlatMemoUnit, Math, TFlatCheckBoxUnit;
+
+type
+  TfrmHudMsgGenerator = class(TForm)
+    pnlPosition: TPanel;
+    lblPosition: TLabel;
+    lblXPos: TLabel;
+    lblYPos: TLabel;
+    pnlHudmessage: TPanel;
+    imgHudmessage: TImage;
+    pnlColor: TPanel;
+    lblColor: TLabel;
+    imgColor: TImage;
+    txtXPos: TFlatEdit;
+    txtYPos: TFlatEdit;
+    cmdSelectColor: TFlatButton;
+    cmdGenerate: TFlatButton;
+    cmdCancel: TFlatButton;
+    lblHudMsg: TLabel;
+    pnlText: TPanel;
+    txtText: TFlatEdit;
+    txtTimeToShow: TFlatEdit;
+    lblTimeToShow: TLabel;
+    lblText: TLabel;
+    lblOther: TLabel;
+    chkXCenter: TFlatCheckBox;
+    chkYCenter: TFlatCheckBox;
+    procedure lblHudMsgMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure lblHudMsgMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
+    procedure lblHudMsgMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure txtXPosKeyPress(Sender: TObject; var Key: Char);
+    procedure txtYPosKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+    procedure txtTextKeyPress(Sender: TObject; var Key: Char);
+    procedure cmdSelectColorClick(Sender: TObject);
+    procedure txtTextChange(Sender: TObject);
+    procedure txtTimeToShowKeyPress(Sender: TObject; var Key: Char);
+    procedure txtTimeToShowChange(Sender: TObject);
+    procedure chkXCenterClick(Sender: TObject);
+    procedure chkYCenterClick(Sender: TObject);
+    procedure txtPosExit(Sender: TObject);
+  private
+    eDown: Boolean;
+    eStartPos: TPoint;
+    procedure PaintColor;
+    procedure CenterX;
+    procedure CenterY;
+  public
+    CurrColor: TColor;
+  end;
+
+var
+  frmHudMsgGenerator: TfrmHudMsgGenerator;
+
+implementation
+
+uses UnitfrmSelectColor, UnitMainTools;
+
+{$R *.dfm}
+
+procedure TfrmHudMsgGenerator.lblHudMsgMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  eStartPos.X := X;
+  eStartPos.Y := Y;
+  eDown := True;
+end;
+
+procedure TfrmHudMsgGenerator.lblHudMsgMouseMove(Sender: TObject;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  if eDown then begin
+    { X Pos }
+    if not chkXCenter.Checked then begin
+      lblHudMsg.Left := lblHudMsg.Left + (X - eStartPos.X);
+      if lblHudMsg.Left < 0 then
+        lblHudMsg.Left := 0
+      else if lblHudMsg.Left > pnlHudmessage.Width then
+        lblHudMsg.Left := pnlHudmessage.Width;
+      txtXPos.Text := FloatToStr(RoundTo(lblHudMsg.Left / pnlHudmessage.Width, -2));
+    end;
+    
+    { Y Pos }
+    if not chkYCenter.Checked then begin
+     lblHudMsg.Top := lblHudMsg.Top + (Y - eStartPos.Y);
+      if lblHudMsg.Top < 0 then
+        lblHudMsg.Top := 0
+      else if lblHudMsg.Top > pnlHudmessage.Height then
+        lblHudMsg.Top := pnlHudmessage.Height;
+      txtYPos.Text := FloatToStr(RoundTo(lblHudMsg.Top / pnlHudmessage.Height, -2));
+    end;
+  end;
+end;
+
+procedure TfrmHudMsgGenerator.lblHudMsgMouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  eDown := False;
+end;
+
+procedure TfrmHudMsgGenerator.PaintColor;
+begin
+  imgColor.Canvas.Pen.Color := $008396A0;
+  imgColor.Canvas.Brush.Color := CurrColor;
+  imgColor.Canvas.Rectangle(0, 0, 31, 31);
+end;
+
+procedure TfrmHudMsgGenerator.txtXPosKeyPress(Sender: TObject;
+  var Key: Char);
+var eXVal: Real;       
+begin
+  if Key = '.' then
+    Key := ','
+  else if Key = #13 then begin
+    try
+      eXVal := RoundTo(StrToFloat(txtXPos.Text), -2);
+      txtXPos.Text := FloatToStr(eXVal);
+      if Pos(',', txtXPos.Text) = 0 then
+        txtXPos.Text := txtXPos.Text + ',0';
+      lblHudMsg.Left := Round(eXVal * pnlHudmessage.Width);
+      Key := #0;
+    except
+      txtXPos.Text := '0,00';
+      lblHudMsg.Left := 0;
+    end;
+  end;
+end;
+
+procedure TfrmHudMsgGenerator.txtYPosKeyPress(Sender: TObject;
+  var Key: Char);
+var eYVal: Real;
+begin
+  if Key = '.' then
+    Key := ','
+  else if Key = #13 then begin
+    try
+      eYVal := RoundTo(StrToFloat(txtYPos.Text), -2);
+      txtYPos.Text := FloatToStr(eYVal);
+      if Pos(',', txtYPos.Text) = 0 then
+        txtYPos.Text := txtYPos.Text + ',0';
+      lblHudMsg.Top := Round(eYVal * pnlHudmessage.Height);
+      Key := #0;
+    except
+      txtYPos.Text := '0,00';
+      lblHudMsg.Left := 0;
+    end;
+  end;
+end;
+
+procedure TfrmHudMsgGenerator.FormShow(Sender: TObject);
+begin
+  CurrColor := clRed;
+  PaintColor;
+end;
+
+procedure TfrmHudMsgGenerator.txtTextKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key = #13 then begin
+    txtText.SelText := '\n';
+    Key := #0;
+  end;
+end;
+
+procedure TfrmHudMsgGenerator.cmdSelectColorClick(Sender: TObject);
+begin
+  frmSelectColor.chkDefault1.Enabled := False;
+  frmSelectColor.chkDefault2.Enabled := False;
+  ShowColorDialog(CurrColor, imgColor);
+  lblHudMsg.Font.Color := CurrColor;
+  frmSelectColor.chkDefault1.Enabled := True;
+  frmSelectColor.chkDefault2.Enabled := True;
+end;
+
+procedure TfrmHudMsgGenerator.txtTextChange(Sender: TObject);
+begin
+  if txtText.Text = '' then
+    lblHudMsg.Caption := 'Custom Hudmessage'
+  else
+    lblHudMsg.Caption := stringReplace(txtText.Text, '\n', #13, [rfReplaceAll]);
+
+  if chkXCenter.Checked then
+    CenterX;
+  if chkYCenter.Checked then
+    CenterY;
+end;
+
+procedure TfrmHudMsgGenerator.txtTimeToShowKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key = '.' then
+    Key := ',';
+end;
+
+procedure TfrmHudMsgGenerator.txtTimeToShowChange(Sender: TObject);
+var eVal: Real;
+begin
+  try
+    eVal := Round(StrToFloat(txtTimeToShow.Text));
+    if eVal < 0 then begin
+      eVal := 0.0;
+      txtTimeToShow.Text := FloatToStr(eVal);
+    end;
+  except
+    txtTimeToShow.Text := '12,0';
+  end;
+end;
+
+procedure TfrmHudMsgGenerator.chkXCenterClick(Sender: TObject);
+var eChar: Char;
+begin
+  if chkXCenter.Checked then begin
+    txtXPos.Text := '-1,0';
+    CenterX;
+  end
+  else begin
+    txtXPos.Text := '0,5';
+    eChar := #13;
+    txtXPosKeyPress(Sender, eChar);
+  end;
+    
+  txtXPos.Enabled := not chkXCenter.Checked;
+end;
+
+procedure TfrmHudMsgGenerator.chkYCenterClick(Sender: TObject);
+var eChar: Char;
+begin
+  if chkYCenter.Checked then begin
+    txtYPos.Text := '-1,0';
+    CenterY;
+  end
+  else begin
+    txtYPos.Text := '0,5';
+    eChar := #13;
+    txtYPosKeyPress(Sender, eChar);
+  end;
+    
+  txtYPos.Enabled := not chkYCenter.Checked;
+end;
+
+procedure TfrmHudMsgGenerator.CenterX;
+begin
+  lblHudMsg.Left := (pnlHudmessage.Width div 2) - (lblHudMsg.Width div 2);
+end;
+
+procedure TfrmHudMsgGenerator.CenterY;
+begin
+  lblHudMsg.Top := (pnlHudmessage.Height div 2) - (lblHudMsg.Height div 2);
+end;
+
+procedure TfrmHudMsgGenerator.txtPosExit(Sender: TObject);
+var eChar: Char;
+begin
+  eChar := #13;
+  if Sender = txtXPos then
+    txtXPos.OnKeyPress(txtXPos, eChar)
+  else
+    txtYPos.OnKeyPress(txtXPos, eChar);
+end;
+
+end.

editor/studio/UnitfrmInfo.pas

@@ -0,0 +1,56 @@
+unit UnitfrmInfo;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, JvExControls,
+  JvComponent, JvScrollText, ShellAPI, IdHTTP, jpeg, Dialogs;
+
+type
+  TfrmInfo = class(TForm)
+    lblInfo3: TLabel;
+    lblInfo2: TLabel;
+    lblInfo1: TLabel;
+    imgAMXXLarge: TImage;
+    cmdClose: TSpTBXButton;
+    pnlGallery: TPanel;
+    Label1: TLabel;
+    imgGabeN: TImage;
+    imgBurger: TImage;
+    Label2: TLabel;
+    Label3: TLabel;
+    imgYams: TImage;
+    procedure imgGabeNDblClick(Sender: TObject);
+    procedure imgBurgerDblClick(Sender: TObject);
+    procedure imgYamsDblClick(Sender: TObject);
+  end;
+
+var
+  frmInfo: TfrmInfo;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmInfo.imgGabeNDblClick(Sender: TObject);
+begin
+  ShellExecute(Handle, 'open', PChar('http://sniperbeamer.de/gallery/gaben.php'), nil, nil, SW_SHOW);
+end;
+
+procedure TfrmInfo.imgBurgerDblClick(Sender: TObject);
+begin
+  MessageBeep(MB_ICONQUESTION);
+  if MessageBox(Handle, 'Do you want a BIG TASTY BURGER?', 'all-in-one-messagebox', MB_ICONQUESTION + MB_YESNO) = mrYes then begin
+    ShellExecute(Handle, 'open', 'http://www.amxmodx.org/forums/viewtopic.php?t=14658&karma_up=8284', nil, nil, SW_SHOW);
+    Sleep(5000);
+    MessageBox(Handle, 'zomg you won''t get one. GabeN (tm) has already eaten each burger on THIS F**KIN'' BURGERLESS WORLD >_< :( Sorry.', 'all-in-one-messagebox', MB_ICONERROR);
+  end;
+end;
+
+procedure TfrmInfo.imgYamsDblClick(Sender: TObject);
+begin
+  MessageBox(Handle, 'myam(s) myam(s), myam(s)...', 'all-in-one-messagebox', MB_ICONINFORMATION);
+end;
+
+end.

editor/studio/UnitfrmMOTDGen.pas

@@ -0,0 +1,30 @@
+unit UnitfrmMOTDGen;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, mxFlatControls, TBXDkPanels, SpTBXDkPanels;
+
+type
+  TfrmMOTDGen = class(TForm)
+    txtMOTD: TmxFlatMemo;
+    cmdClose: TSpTBXButton;
+    cmdCopy: TSpTBXButton;
+    procedure cmdCopyClick(Sender: TObject);
+  end;
+
+var
+  frmMOTDGen: TfrmMOTDGen;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmMOTDGen.cmdCopyClick(Sender: TObject);
+begin
+  txtMOTD.CopyToClipboard;
+  txtMOTD.CopyToClipboard;
+end;
+
+end.

editor/studio/UnitfrmMenuGenerator.pas

@@ -0,0 +1,295 @@
+unit UnitfrmMenuGenerator;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, JvExControls,
+  JvComponent, JvPageList, TFlatRadioButtonUnit, TFlatMemoUnit,
+  TFlatEditUnit, TB2Dock, TB2Toolbar, TBX, SpTBXItem, ImgList, TB2Item,
+  Dialogs, TFlatComboBoxUnit, ComCtrls, ClipBrd, TFlatCheckBoxUnit;
+
+type
+  TfrmMenuGenerator = class(TForm)
+    jplMain: TJvPageList;
+    jspSelectType: TJvStandardPage;
+    pnlSelectType: TPanel;
+    lblSelectInfo: TLabel;
+    optSimpleOldMenu: TSpTBXRadioButton;
+    optPlayerMenu: TSpTBXRadioButton;
+    optSimpleMenu: TSpTBXRadioButton;
+    cmdCancel: TSpTBXButton;
+    cmdNext: TSpTBXButton;
+    jspOldMenuAdd1: TJvStandardPage;
+    optOldPlayerMenu: TSpTBXRadioButton;
+    jspNewMenuAdd: TJvStandardPage;
+    ilImages: TImageList;
+    pnlBack: TPanel;
+    pnlMenu: TPanel;
+    tbxMenuItems: TSpTBXToolbar;
+    mnuAdd: TSpTBXItem;
+    mnuRemove: TSpTBXItem;
+    sepItems: TSpTBXSeparatorItem;
+    mnuUp: TSpTBXItem;
+    mnuMoveDown: TSpTBXItem;
+    lstNMenuItems: TListBox;
+    txtNTitle: TFlatEdit;
+    lblNTitle: TLabel;
+    lblMenuNItemsCaption: TLabel;
+    cmdNCreate: TSpTBXButton;
+    cmdBack: TSpTBXButton;
+    pnlAccess: TPanel;
+    lblAccess: TLabel;
+    cboAccess: TFlatComboBox;
+    lblState: TLabel;
+    tbxColors: TSpTBXToolbar;
+    mnuYellow: TSpTBXItem;
+    mnuWhite: TSpTBXItem;
+    mnuRed: TSpTBXItem;
+    mnuGray: TSpTBXItem;
+    pnlControls: TPanel;
+    rtfMenu: TRichEdit;
+    sepColors: TSpTBXSeparatorItem;
+    mnuCopy: TSpTBXItem;
+    cmdOldNext1: TSpTBXButton;
+    cmdOldBack1: TSpTBXButton;
+    lblHelp: TLabel;
+    jspOldMenuAdd2: TJvStandardPage;
+    Panel1: TPanel;
+    txtKeys: TFlatEdit;
+    lblKeys: TLabel;
+    txtMenuName: TFlatEdit;
+    lblName: TLabel;
+    chkAddComment: TFlatCheckBox;
+    chkRegisterMenuCommand: TFlatCheckBox;
+    chkUseTime: TFlatCheckBox;
+    txtTime: TFlatEdit;
+    Label1: TLabel;
+    cmdOldNext2: TSpTBXButton;
+    cmdOldBack2: TSpTBXButton;
+    procedure mnuAddClick(Sender: TObject);
+    procedure mnuRemoveClick(Sender: TObject);
+    procedure mnuUpClick(Sender: TObject);
+    procedure mnuMoveDownClick(Sender: TObject);
+    procedure cmdNCreateClick(Sender: TObject);
+    procedure cmdBackClick(Sender: TObject);
+    procedure cmdNextClick(Sender: TObject);
+    procedure lblHelpMouseEnter(Sender: TObject);
+    procedure lblHelpMouseLeave(Sender: TObject);
+    procedure mnuYellowClick(Sender: TObject);
+    procedure mnuWhiteClick(Sender: TObject);
+    procedure mnuRedClick(Sender: TObject);
+    procedure mnuGrayClick(Sender: TObject);
+    procedure rtfMenuMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure rtfMenuKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure cmdOldNext1Click(Sender: TObject);
+    procedure mnuCopyClick(Sender: TObject);
+    procedure cmdOldNext2Click(Sender: TObject);
+    procedure lblHelpClick(Sender: TObject);
+  private
+    procedure UpdateColor;
+    procedure UpdateMenu(Sender: TObject);
+  end;
+
+var
+  frmMenuGenerator: TfrmMenuGenerator;
+
+implementation
+
+uses UnitLanguages, UnitMenuGenerators, UnitCodeUtils, UnitMainTools;
+
+{$R *.DFM}
+
+procedure TfrmMenuGenerator.mnuAddClick(Sender: TObject);
+var eStr: String;
+begin
+  if InputQuery(lAddItemCaption, lAddItemPrompt, eStr) then begin
+    if (optPlayerMenu.Checked) and (UpperCase(eStr) = 'PLAYERS') then begin
+      eStr := 'PLAYERS';
+      if lstNMenuItems.Items.IndexOf('PLAYERS') <> -1 then begin
+        MessageBox(Handle, PChar(lPlayersAlreadyAdded), PChar(Application.Title), MB_ICONERROR);
+      end;
+    end;
+    lstNMenuItems.ItemIndex := lstNMenuItems.Items.Add(eStr);
+  end;
+end;
+
+procedure TfrmMenuGenerator.mnuRemoveClick(Sender: TObject);
+begin
+  if lstNMenuItems.ItemIndex <> -1 then
+    lstNMenuItems.DeleteSelected;
+end;
+
+procedure TfrmMenuGenerator.mnuUpClick(Sender: TObject);
+begin
+  if lstNMenuItems.ItemIndex > 0 then
+    lstNMenuItems.Items.Exchange(lstNMenuItems.ItemIndex, lstNMenuItems.ItemIndex -1);
+end;
+
+procedure TfrmMenuGenerator.mnuMoveDownClick(Sender: TObject);
+begin
+  if (lstNMenuItems.ItemIndex <> -1) and (lstNMenuItems.ItemIndex <> lstNMenuItems.Items.Count -1) then
+    lstNMenuItems.Items.Exchange(lstNMenuItems.ItemIndex, lstNMenuItems.ItemIndex +1); 
+end;
+
+procedure TfrmMenuGenerator.cmdNCreateClick(Sender: TObject);
+begin
+  if txtNTitle.Text = '' then
+    MessageBox(Handle, PChar(lEnterTitle), PChar(Application.Title), MB_ICONERROR)
+  else if lstNMenuItems.Items.Count = 0 then
+    MessageBox(Handle, PChar(lAddItems), PChar(Application.Title), MB_ICONERROR)
+  else if self.optSimpleMenu.Checked then begin
+    GenerateSimpleMenu;
+    ModalResult := mrOk;
+  end;
+end;
+
+procedure TfrmMenuGenerator.cmdBackClick(Sender: TObject);
+begin
+  jplMain.ActivePageIndex := 0;
+  lblState.Caption := 'Menu Generator';
+end;
+
+procedure TfrmMenuGenerator.cmdNextClick(Sender: TObject);
+begin
+  // New style
+  if optSimpleMenu.Checked then begin
+    jplMain.ActivePageIndex := 1;
+    lblState.Caption := 'Create a simple menu';
+  end;
+  // Old style
+  if optSimpleOldMenu.Checked then begin
+    jplMain.ActivePageIndex := 2;
+    lblState.Caption := 'Create a simple menu';
+    lblHelp.Hide;
+  end;
+  if optOldPlayerMenu.Checked then begin
+    jplMain.ActivePageIndex := 2;
+    lblState.Caption := 'Create a player menu';
+    lblHelp.Show;
+  end;
+end;
+
+procedure TfrmMenuGenerator.lblHelpMouseEnter(Sender: TObject);
+begin
+  lblHelp.Font.Color := clHotLight;
+  lblHelp.Font.Style := [fsUnderline];
+end;
+
+procedure TfrmMenuGenerator.lblHelpMouseLeave(Sender: TObject);
+begin
+  lblHelp.Font.Color := clWindowText;
+  lblHelp.Font.Style := [];
+end;
+
+procedure TfrmMenuGenerator.mnuYellowClick(Sender: TObject);
+begin
+  rtfMenu.SelAttributes.Color := clYellow;
+  UpdateMenu(Sender);
+end;
+
+procedure TfrmMenuGenerator.mnuWhiteClick(Sender: TObject);
+begin
+  rtfMenu.SelAttributes.Color := clWhite;
+  UpdateMenu(Sender);
+end;
+
+procedure TfrmMenuGenerator.mnuRedClick(Sender: TObject);
+begin
+  rtfMenu.SelAttributes.Color := clRed;
+  UpdateMenu(Sender);
+end;
+
+procedure TfrmMenuGenerator.mnuGrayClick(Sender: TObject);
+begin
+  rtfMenu.SelAttributes.Color := clGray;
+  UpdateMenu(Sender);
+end;
+
+procedure TfrmMenuGenerator.UpdateColor;
+begin
+  case rtfMenu.SelAttributes.Color of
+    clYellow: mnuYellow.Checked := True;
+    clWhite: mnuWhite.Checked := True;
+    clRed: mnuRed.Checked := True;
+    clGray: mnuGray.Checked := True;
+  end;
+end;
+
+procedure TfrmMenuGenerator.UpdateMenu(Sender: TObject);
+begin
+  mnuYellow.Checked := Sender = mnuYellow;
+  mnuWhite.Checked := Sender = mnuWhite;
+  mnuRed.Checked := Sender = mnuRed;
+  mnuGray.Checked := Sender = mnuGray;
+end;
+
+procedure TfrmMenuGenerator.rtfMenuMouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  UpdateColor;
+end;
+
+procedure TfrmMenuGenerator.rtfMenuKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  UpdateColor;
+end;
+
+procedure TfrmMenuGenerator.cmdOldNext1Click(Sender: TObject);
+var i: integer;
+begin
+  if Trim(rtfMenu.Text) = '' then begin
+    MessageBox(Handle, 'The menu is empty!', PChar(Application.Title), MB_ICONERROR);
+    exit;
+  end;
+
+  txtKeys.Clear;
+  for i := 0 to rtfMenu.Lines.Count -1 do begin
+    if IsNumeric(Copy(rtfMenu.Lines[i], 1, 1)) then
+      txtKeys.Text := txtKeys.Text + rtfMenu.Lines[i][1];
+  end;
+  jplMain.ActivePageIndex := 3;
+end;
+
+procedure TfrmMenuGenerator.mnuCopyClick(Sender: TObject);
+begin
+  Clipboard.SetTextBuf(PChar(GetColoredMenu));
+  MessageBox(Handle, 'Okay, menu copied to clipboard.', PChar(Application.Title), MB_ICONINFORMATION);
+end;
+
+procedure TfrmMenuGenerator.cmdOldNext2Click(Sender: TObject);
+begin
+  if optSimpleOldMenu.Checked then
+    AddOldMenu
+  else
+    AddOldPlayerMenu;
+  ModalResult := mrOk;
+end;
+
+procedure TfrmMenuGenerator.lblHelpClick(Sender: TObject);
+var eMsg: String;
+begin
+  eMsg :=        '1. Choose a menu title (e.g. Kick player)' + #13;
+  eMsg := eMsg + '2. Set dynamic players with $players in this format:' + #13;
+  eMsg := eMsg + '   $players(StartKey, StopKey, Caption)' + #13;
+  eMsg := eMsg + '   Variables in caption are: %n (Key) and %v(Player)' + #13;
+  eMsg := eMsg + '3. Set Next and Back keys using $next(Key, Caption)' + #13;
+  eMsg := eMsg + '   and $exitorback(Key, ExitCaption, BackCaption)' + #13;
+  eMsg := eMsg + #13;
+  eMsg := eMsg + 'Show example?';
+
+  if MessageBox(Handle, PChar(eMsg), PChar(Application.Title), MB_ICONQUESTION + MB_YESNO) = mrYes then begin
+    rtfMenu.Clear;
+    rtfMenu.SelAttributes.Color := clYellow;
+    rtfMenu.SelText := 'Kick player' + #13 + #13;
+    rtfMenu.SelStart := Length(rtfMenu.Lines.Text);
+    rtfMenu.SelAttributes.Color := clWhite;
+    rtfMenu.SelText := '$players(1,8,%n. %v)' + #13 + '$next(9,9. Next)' + '$exitorback(0,0. Exit,0. Back)';
+    rtfMenu.SelStart := 0;
+  end;
+end;
+
+end.

editor/studio/UnitfrmPluginsIniEditor.pas

@@ -0,0 +1,160 @@
+unit UnitfrmPluginsIniEditor;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, mbTBXMemo, Dialogs,
+  IdFTPCommon;
+
+type
+  TfrmPluginsIniEditor = class(TForm)
+    txtFile: TmbTBXMemo;
+    cmdOK: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    pnlEditType: TPanel;
+    chkEditFTP: TSpTBXCheckBox;
+    chkEditLocal: TSpTBXCheckBox;
+    cmdRemove: TSpTBXButton;
+    odOpen: TOpenDialog;
+    procedure chkEditFTPClick(Sender: TObject);
+    procedure chkEditLocalClick(Sender: TObject);
+    procedure cmdRemoveClick(Sender: TObject);
+  end;
+
+var
+  frmPluginsIniEditor: TfrmPluginsIniEditor;
+
+implementation
+
+uses UnitfrmMain, UnitfrmSettings, UnitMainTools, UnitLanguages;
+
+{$R *.DFM}
+
+procedure TfrmPluginsIniEditor.chkEditFTPClick(Sender: TObject);
+begin
+  if Screen.Cursor = crHourGlass then exit;
+
+  Screen.Cursor := crHourGlass;
+
+  if not frmMain.IdFTP.Connected then begin
+    if TryConnect <> 0 then begin
+      cmdRemove.Enabled := False;
+      exit;
+    end;
+  end;
+
+  try
+    frmMain.IdFTP.ChangeDir(frmSettings.txtDefaultDir.Text + 'configs/');
+  except
+    frmMain.IdFTP.Disconnect;
+    MessageBox(Application.Handle, PChar(lInvalidDirectory), PChar(Application.Title), MB_ICONERROR);
+    chkEditFTP.Checked := False;
+    chkEditLocal.Checked := True;
+    cmdRemove.Enabled := False;
+    Screen.Cursor := crDefault;
+    exit;
+  end;
+
+  frmMain.IdFTP.TransferType := ftASCII;
+  frmMain.IdFTP.Get('plugins.ini', ExtractFilePath(ParamStr(0)) + 'plugins.ini', True);
+  frmPluginsIniEditor.txtFile.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'plugins.ini');
+  DeleteFile(PChar(ExtractFilePath(ParamStr(0)) + 'plugins.ini'));
+
+  chkEditFTP.Checked := True;
+  chkEditLocal.Checked := False;
+  cmdRemove.Enabled := True;
+  Screen.Cursor := crDefault;
+end;
+
+procedure TfrmPluginsIniEditor.chkEditLocalClick(Sender: TObject);
+begin
+  if Screen.Cursor = crHourGlass then exit;
+
+  Screen.Cursor := crHourGlass;
+  if not FileExists(GetAMXXDir(True) + 'configs\plugins.ini') then begin
+    if odOpen.Execute then begin
+      txtFile.Lines.LoadFromFile(odOpen.FileName);
+      cmdRemove.Enabled := Pos('amxmodx', LowerCase(odOpen.FileName)) <> 0;
+    end
+    else
+      cmdRemove.Enabled := False;
+  end
+  else begin
+    txtFile.Lines.LoadFromFile(GetAMXXDir(True) + 'configs\plugins.ini');
+    odOpen.FileName := GetAMXXDir(True) + 'configs\plugins.ini';
+    cmdRemove.Enabled := True;
+  end;
+  chkEditFTP.Checked := False;
+  chkEditLocal.Checked := True;
+  Screen.Cursor := crDefault;
+end;
+
+procedure TfrmPluginsIniEditor.cmdRemoveClick(Sender: TObject);
+function RemComments(eLine: String): String;
+var a, b: integer;
+begin
+  if Length(eLine) > 0 then begin
+    b := 0;
+    for a := 1 to Length(eLine) -1 do begin
+      if (eLine[a] = ';') or (eLine[a] = '/') then begin
+        b := a;
+        break;
+      end;
+    end;
+
+    if (b = 0) and (Pos(' debug', LowerCase(eLine)) <> 0) then
+      b := Pos(' debug', LowerCase(eLine));
+    if b <> 0 then
+      eLine := Trim(Copy(eLine, 1, b -1));
+  end;
+  Result := Trim(eLine);
+end;
+
+var eStr: TStringList;
+    a,b: integer;
+    eFound: Boolean;
+begin
+  Screen.Cursor := crHourGlass;
+  if chkEditFTP.Checked then begin
+    if not frmMain.IdFTP.Connected then begin
+      if TryConnect <> 0 then begin
+        Screen.Cursor := crDefault;
+        exit;
+      end;
+    end;
+
+    eStr := TStringList.Create;
+    try
+      frmMain.IdFTP.ChangeDir(frmSettings.txtDefaultDir.Text + 'plugins/');
+      frmMain.IdFTP.List(eStr, '', False);
+      for a := txtFile.Lines.Count -1 downto 0 do begin
+        if (Copy(txtFile.Lines[a], 1, 1) <> ';') and (Copy(txtFile.Lines[a], 1, 1) <> '/') and (Trim(txtFile.Lines[a]) <> '') then begin
+          eFound := False;
+          for b := 0 to eStr.Count -1 do begin
+            if RemComments(txtFile.Lines[a]) = eStr[b] then
+              eFound := True;
+          end;
+
+          if not eFound then
+            txtFile.Lines.Delete(a); 
+        end;
+      end;
+    except
+      MessageBox(Application.Handle, PChar(lInvalidDirectory), PChar(Application.Title), MB_ICONERROR);
+    end;
+    
+    eStr.Free;
+  end
+  else begin
+    for a := txtFile.Lines.Count -1 downto 0 do begin
+      if (Copy(txtFile.Lines[a], 1, 1) <> ';') and (Copy(txtFile.Lines[a], 1, 1) <> '/') then begin
+        if (not FileExists(Copy(ExtractFilePath(odOpen.FileName), 1, Length(ExtractFilePath(odOpen.FileName)) -8) + 'plugins\' + RemComments(txtFile.Lines[a]))) and (Trim(txtFile.Lines[a]) <> '') then
+          txtFile.Lines.Delete(a);
+      end;
+    end;
+  end;
+  Screen.Cursor := crDefault;
+end;
+
+end.

editor/studio/UnitfrmReplace.pas

@@ -0,0 +1,78 @@
+unit UnitfrmReplace;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TntStdCtrls, SpTBXEditors, SpTBXDkPanels,
+  TBXDkPanels;
+
+type
+  TfrmReplace = class(TForm)
+    lblSearchFor: TLabel;
+    cboSearchFor: TSpTBXComboBox;
+    lblReplaceWith: TLabel;
+    cboReplaceWith: TSpTBXComboBox;
+    pnlOptions: TSpTBXGroupBox;
+    chkCaseSensivity: TSpTBXCheckBox;
+    chkWholeWordsOnly: TSpTBXCheckBox;
+    chkSearchFromCaret: TSpTBXCheckBox;
+    chkSelectedTextOnly: TSpTBXCheckBox;
+    chkRegularExpression: TSpTBXCheckBox;
+    pnlDirection: TSpTBXGroupBox;
+    chkForward: TSpTBXCheckBox;
+    chkBackward: TSpTBXCheckBox;
+    cmdOK: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    bvlReplaceAll: TBevel;
+    chkReplaceAll: TSpTBXCheckBox;
+    procedure FormCreate(Sender: TObject);
+    procedure OnDirectionChange(Sender: TObject);
+    procedure cmdOKClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  public
+    eChange: Boolean;
+  end;
+
+var
+  frmReplace: TfrmReplace;
+
+implementation
+
+uses UnitLanguages;
+
+{$R *.DFM}
+
+procedure TfrmReplace.FormCreate(Sender: TObject);
+begin
+  eChange := True;
+end;
+
+procedure TfrmReplace.OnDirectionChange(Sender: TObject);
+begin
+  if not eChange then exit;
+  eChange := False;
+  chkForward.Checked := Sender = chkForward;
+  chkBackward.Checked := Sender = chkBackward;
+  eChange := True;
+end;
+
+procedure TfrmReplace.cmdOKClick(Sender: TObject);
+begin
+  if cboSearchFor.Text = '' then
+    MessageBox(Handle, PChar(lEnterSearchText), PChar(Application.Title), MB_ICONERROR)
+  else begin
+    if cboSearchFor.Items.IndexOf(cboSearchFor.Text) = -1 then
+      cboSearchFor.Items.Add(cboSearchFor.Text);
+    if (cboReplaceWith.Text <> '') and (cboReplaceWith.Items.IndexOf(cboReplaceWith.Text) = -1) then
+      cboReplaceWith.Items.Add(cboReplaceWith.Text); 
+    ModalResult := mrOK;
+  end;
+end;
+
+procedure TfrmReplace.FormShow(Sender: TObject);
+begin
+  cboSearchFor.SetFocus;
+end;
+
+end.

editor/studio/UnitfrmSearch.pas

@@ -0,0 +1,81 @@
+unit UnitfrmSearch;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TntStdCtrls, SpTBXEditors, SpTBXDkPanels,
+  TBXDkPanels, Dialogs;
+
+type
+  TfrmSearch = class(TForm)
+    pnlOptions: TSpTBXGroupBox;
+    lblSearchFor: TLabel;
+    cboSearchFor: TSpTBXComboBox;
+    pnlDirection: TSpTBXGroupBox;
+    chkCaseSensivity: TSpTBXCheckBox;
+    chkWholeWordsOnly: TSpTBXCheckBox;
+    chkSearchFromCaret: TSpTBXCheckBox;
+    chkSelectedTextOnly: TSpTBXCheckBox;
+    chkRegularExpression: TSpTBXCheckBox;
+    cmdOK: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    chkForward: TSpTBXCheckBox;
+    chkBackward: TSpTBXCheckBox;
+    procedure FormCreate(Sender: TObject);
+    procedure OnDirectionClick(Sender: TObject);
+    procedure cmdOKClick(Sender: TObject);
+    procedure cboSearchForKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+  public
+    eChange: Boolean;
+  end;
+
+var
+  frmSearch: TfrmSearch;
+
+implementation
+
+uses UnitLanguages, UnitPlugins;
+
+{$R *.DFM}
+
+procedure TfrmSearch.FormCreate(Sender: TObject);
+begin
+  eChange := True;
+end;
+
+procedure TfrmSearch.OnDirectionClick(Sender: TObject);
+begin
+  if not eChange then exit;
+  eChange := False;
+  chkForward.Checked := Sender = chkForward;
+  chkBackward.Checked := Sender = chkBackward;
+  eChange := True;
+end;
+
+procedure TfrmSearch.cmdOKClick(Sender: TObject);
+begin
+  if cboSearchFor.Text = '' then
+    MessageBox(Handle, PChar(lEnterSearchText), PChar(Application.Title), MB_ICONERROR)
+  else begin
+    if cboSearchFor.Items.IndexOf(cboSearchFor.Text) = -1 then
+      cboSearchFor.Items.Add(cboSearchFor.Text);
+    ModalResult := mrOK;
+  end;
+end;
+
+procedure TfrmSearch.cboSearchForKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then begin
+    cmdOk.Click;
+    Key := #0;
+  end;
+end;
+
+procedure TfrmSearch.FormShow(Sender: TObject);
+begin
+  cboSearchFor.SetFocus;
+end;
+
+end.

editor/studio/UnitfrmSelectColor.pas

@@ -0,0 +1,265 @@
+unit UnitfrmSelectColor; // adapted from OfficeMoreColorsDialog
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  ComCtrls, HexaColorPicker, HSLColorPicker, StdCtrls, ExtCtrls, RGBHSLUtils,
+  mbXPSpinEdit, mbColorPreview, mbXPSizeGrip, StrUtils, HTMLColors;
+
+type
+  TfrmSelectColor = class(TForm)
+    Pages: TPageControl;
+    Standard: TTabSheet;
+    Custom: TTabSheet;
+    Hexa: THexaColorPicker;
+    HSL: THSLColorPicker;
+    lblColor2: TLabel;
+    lblColor1: TLabel;
+    lblColorModel: TLabel;
+    ColorModel: TComboBox;
+    LRed: TLabel;
+    LGreen: TLabel;
+    LBlue: TLabel;
+    lblNew: TLabel;
+    lblCurrent: TLabel;
+    cmdOK: TButton;
+    cmdCancel: TButton;
+    ERed: TmbXPSpinEdit;
+    EGreen: TmbXPSpinEdit;
+    EBlue: TmbXPSpinEdit;
+    NewSwatch: TmbColorPreview;
+    OldSwatch: TmbColorPreview;
+    chkDefault1: TCheckBox;
+    bvlSpace1: TBevel;
+    bvlSpace2: TBevel;
+    chkDefault2: TCheckBox;
+    procedure ColorModelChange(Sender: TObject);
+    procedure HSLChange(Sender: TObject);
+    procedure ERedChange(Sender: TObject);
+    procedure EGreenChange(Sender: TObject);
+    procedure EBlueChange(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure HexaChange(Sender: TObject);
+    procedure NewSwatchColorChange(Sender: TObject);
+    procedure OldSwatchColorChange(Sender: TObject);
+    function GetHint(c: TColor): string;
+    procedure SetAllToSel(c: TColor);
+    procedure PagesChange(Sender: TObject);
+    procedure chkDefault2Click(Sender: TObject);
+  protected
+    procedure CreateParams(var Params: TCreateParams); override;
+    procedure CreateWnd; override;
+  end;
+
+var
+  frmSelectColor: TfrmSelectColor;
+  h, s, l: integer;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrmSelectColor.CreateParams(var Params: TCreateParams);
+begin 
+  inherited CreateParams(Params); 
+  Params.Style := WS_CAPTION or WS_SYSMENU;
+  Params.ExStyle := WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE; 
+end; 
+
+procedure TfrmSelectColor.CreateWnd;
+begin 
+  inherited CreateWnd; 
+  SendMessage(Self.Handle, WM_SETICON, 1, 0); 
+end; 
+
+procedure TfrmSelectColor.ColorModelChange(Sender: TObject);
+begin
+ case ColorModel.ItemIndex of
+  0:
+   begin
+    LRed.Caption := '&Red:';
+    LGreen.Caption := '&Green:';
+    LBlue.Caption := '&Blue:';
+    ERed.MaxValue := 255;
+    EGreen.MaxValue := 255;
+    EBlue.MaxValue := 255;
+    ERed.Value := GetRValue(NewSwatch.Color);
+    EGreen.Value := GetGValue(NewSwatch.Color);
+    EBlue.Value := GetBValue(NewSwatch.Color);
+   end;
+  1:
+   begin
+    LRed.Caption := 'H&ue:';
+    LGreen.Caption := '&Sat:';
+    LBlue.Caption := '&Lum:';
+    ERed.MaxValue := 238;
+    EGreen.MaxValue := 240;
+    EBlue.MaxValue := 240;
+    RGBtoHSLRange(NewSwatch.Color, h, s, l);
+    ERed.Value := h;
+    EGreen.Value := s;
+    EBlue.Value := l;
+   end;
+ end;
+end;
+
+procedure TfrmSelectColor.HSLChange(Sender: TObject);
+begin
+ if HSL.Manual then
+  case ColorModel.ItemIndex of
+   0:
+    begin
+      ERed.Value := HSL.RValue;
+      EGreen.Value := HSL.GValue;
+      EBlue.Value := HSL.BValue;
+      NewSwatch.Color := HSL.SelectedColor;
+    end;
+   1:
+    begin
+      ERed.Value := HSL.HValue;
+      EGreen.Value := HSL.SValue;
+      EBlue.Value := HSL.LValue;
+      NewSwatch.Color := HSL.SelectedColor;
+    end;
+  end;
+end;
+
+procedure TfrmSelectColor.ERedChange(Sender: TObject);
+begin
+if (ERed.Text <> '') and ERed.Focused then
+ case ColorModel.ItemIndex of
+  0:
+   begin
+    HSL.RValue := ERed.Value;
+    NewSwatch.Color := RGB(ERed.Value, EGreen.Value, EBlue.Value);
+   end;
+  1:
+   begin
+    HSL.HValue := ERed.Value;
+    NewSwatch.Color := HSLRangeToRGB(ERed.Value, EGreen.Value, EBlue.Value);
+   end;
+ end;
+end;
+
+procedure TfrmSelectColor.EGreenChange(Sender: TObject);
+begin
+if (EGreen.Text <> '') and EGreen.Focused then
+ case ColorModel.ItemIndex of
+  0:
+   begin
+    HSL.GValue := EGreen.Value;
+    NewSwatch.Color := RGB(ERed.Value, EGreen.Value, EBlue.Value);
+   end;
+  1:
+   begin
+    HSL.SValue := EGreen.Value;
+    NewSwatch.Color := HSLRangeToRGB(ERed.Value, EGreen.Value, EBlue.Value);
+   end;
+ end;
+end;
+
+procedure TfrmSelectColor.EBlueChange(Sender: TObject);
+begin
+if (EBlue.Text <> '') and EBlue.Focused then
+ case ColorModel.ItemIndex of
+  0:
+   begin
+    HSL.BValue := EBlue.Value;
+    NewSwatch.Color := RGB(ERed.Value, EGreen.Value, EBlue.Value);
+   end;
+  1:
+   begin
+    HSL.LValue := EBlue.Value;
+    NewSwatch.Color := HSLRangeToRGB(ERed.Value, EGreen.Value, EBlue.Value);
+   end;
+ end;
+end;
+
+procedure TfrmSelectColor.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+ case Key of
+  VK_RETURN: ModalResult := mrOK;
+  VK_ESCAPE: ModalResult := mrCancel;
+ end;
+end;
+
+procedure TfrmSelectColor.HexaChange(Sender: TObject);
+begin
+ NewSwatch.Color := Hexa.SelectedColor;
+end;
+
+function TfrmSelectColor.GetHint(c: TColor): string;
+begin
+ Result := Format('RGB(%u, %u, %u)'#13'Hex: %s', [GetRValue(c), GetGValue(c), GetBValue(c), ColorToHex(c)]);
+end;
+
+procedure TfrmSelectColor.NewSwatchColorChange(Sender: TObject);
+begin
+ NewSwatch.Hint := GetHint(NewSwatch.Color);
+end;
+
+procedure TfrmSelectColor.OldSwatchColorChange(Sender: TObject);
+begin
+ OldSwatch.Hint := GetHint(OldSwatch.Color);
+ SetAllToSel(OldSwatch.Color);
+end;
+
+procedure TfrmSelectColor.SetAllToSel(c: TColor);
+begin
+ case Pages.ActivePageIndex of
+  // Standard Page
+  0: Hexa.SelectedColor := c;
+  // Custom Page
+  1:
+   begin
+    HSL.SelectedColor := c;
+    case ColorModel.ItemIndex of
+     0:
+      begin
+       ERed.Value := GetRValue(c);
+       EGreen.Value := GetGValue(c);
+       EBlue.Value := GetBValue(c);
+      end;
+     1:
+      begin
+       RGBtoHSLRange(c, h, s, l);
+       ERed.Value := h;
+       EGreen.Value := s;
+       EBlue.Value := l;
+      end;
+    end;
+   end;
+ end;
+ NewSwatch.Color := c;
+end;
+
+procedure TfrmSelectColor.PagesChange(Sender: TObject);
+begin
+ SetAllToSel(NewSwatch.Color);
+end;
+
+procedure TfrmSelectColor.chkDefault2Click(Sender: TObject);
+begin
+  chkDefault1.Checked := (Sender As TCheckBox).Checked;
+  chkDefault2.Checked := (Sender As TCheckBox).Checked;
+
+  lblColor1.Enabled := not (Sender As TCheckBox).Checked;
+  bvlSpace1.Enabled := not (Sender As TCheckBox).Checked;
+  Hexa.Enabled := not (Sender As TCheckBox).Checked;
+  lblColor2.Enabled := not (Sender As TCheckBox).Checked;
+  lblColorModel.Enabled := not (Sender As TCheckBox).Checked;
+  LRed.Enabled := not (Sender As TCheckBox).Checked;
+  LGreen.Enabled := not (Sender As TCheckBox).Checked;
+  LBlue.Enabled := not (Sender As TCheckBox).Checked;
+  bvlSpace2.Enabled := not (Sender As TCheckBox).Checked;
+  HSL.Enabled := not (Sender As TCheckBox).Checked;
+  ColorModel.Enabled := not (Sender As TCheckBox).Checked;
+  ERed.Enabled := not (Sender As TCheckBox).Checked;
+  EGreen.Enabled := not (Sender As TCheckBox).Checked;
+  EBlue.Enabled := not (Sender As TCheckBox).Checked;
+end;
+
+end.

editor/studio/UnitfrmSettings.pas

@@ -0,0 +1,949 @@
+unit UnitfrmSettings;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, JvExControls, JvComponent, JvPageList,
+  ComCtrls, JvExComCtrls, JvPageListTreeView, TBXDkPanels, SpTBXDkPanels,
+  SpTBXEditors, IniFiles, TFlatButtonUnit, TFlatEditUnit, TFlatCheckBoxUnit,
+  TFlatListBoxUnit, TFlatComboBoxUnit, mbXPFontCombo, ScintillaLanguageManager,
+  SciKeyBindings, menus, TFlatTabControlUnit, TFlatMemoUnit,
+  TFlatRadioButtonUnit, sciLexer, sciLexerMod, sciLexerMemo, Dialogs,
+  FileCtrl, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
+  IdFTP, IdException, ImgList, JvxSlider;
+
+type
+  TfrmSettings = class(TForm)
+    trvSettings: TJvSettingsTreeView;
+    jplSettings: TJvPageList;
+    jspHighlighter: TJvStandardPage;
+    jspTools: TJvStandardPage;
+    jspShortcuts: TJvStandardPage;
+    jspCompiler: TJvStandardPage;
+    jspFTP: TJvStandardPage;
+    jspPlugIns: TJvStandardPage;
+    jspMisc: TJvStandardPage;
+    jspCodeSnippets: TJvStandardPage;
+    lblCurrSetting: TLabel;
+    pnlControls: TPanel;
+    bvlControls: TBevel;
+    cmdOK: TFlatButton;
+    cmdCancel: TFlatButton;
+    lblStyles: TLabel;
+    cboLanguage: TFlatComboBox;
+    lblLanguage: TLabel;
+    pnlHighlighter: TPanel;
+    lblProperties: TLabel;
+    cboFont: TmbXPFontCombo;
+    lblFont: TLabel;
+    chkBold: TFlatCheckBox;
+    chkItalic: TFlatCheckBox;
+    chkUnderlined: TFlatCheckBox;
+    chkVisible: TFlatCheckBox;
+    pnlColors: TPanel;
+    cmdSelectBackground: TFlatButton;
+    imgBackground: TImage;
+    lblBackground: TLabel;
+    cmdSelectForeground: TFlatButton;
+    imgForeground: TImage;
+    lblForeground: TLabel;
+    lblFontSize: TLabel;
+    txtFontSize: TFlatEdit;
+    chkUseDefaultFont: TFlatCheckBox;
+    cmdReset: TFlatButton;
+    pnlDefaultNewPluginValues: TPanel;
+    lblDefaultInfo: TLabel;
+    lblDefaultAuthor: TLabel;
+    txtDefaultAuthor: TFlatEdit;
+    lblDefaultVersion: TLabel;
+    lblDefaultName: TLabel;
+    txtDefaultName: TFlatEdit;
+    txtDefaultVersion: TFlatEdit;
+    shpStyles: TShape;
+    lstStyles: TListBox;
+    chkHighlightBraces: TFlatCheckBox;
+    chkAutoCloseBraces: TFlatCheckBox;
+    chkAutoCloseQuotes: TFlatCheckBox;
+    chkClearUndoAfterSave: TFlatCheckBox;
+    bvlTools1: TBevel;
+    chkWordWrap: TFlatCheckBox;
+    lblCodeFolding: TLabel;
+    pnlCodeFolding: TPanel;
+    cboCodeFolding: TFlatComboBox;
+    lblCodeFoldingStyle: TLabel;
+    lvShortcuts: TListView;
+    hkShortcut: THotKey;
+    cmdApply: TFlatButton;
+    shpShortcuts: TShape;
+    ftcCodeSnippets: TFlatTabControl;
+    shpCodeSnippets: TShape;
+    shpCodeSnippet: TShape;
+    lstCodeSnippets: TListBox;
+    txtCodeSnippet: TMemo;
+    cmdCSAdd: TFlatButton;
+    cmdCSRemove: TFlatButton;
+    chkShowStatusbar: TFlatCheckBox;
+    lblCaret: TLabel;
+    pnlCaret: TPanel;
+    cmdSelectCaretFore: TFlatButton;
+    imgCaretFore: TImage;
+    lblSelectCaretFore: TLabel;
+    cmdSelectCaretBack: TFlatButton;
+    imgCaretBack: TImage;
+    lblSelectCaretBack: TLabel;
+    bvlCaret1: TBevel;
+    chkShowCaret: TFlatCheckBox;
+    lblCaretPeriod: TLabel;
+    txtPeriod: TFlatEdit;
+    pnlNotes: TPanel;
+    lblSaveNotesTo: TLabel;
+    optFileComment: TFlatRadioButton;
+    optConfig: TFlatRadioButton;
+    shpPlugins: TShape;
+    lvPlugins: TListView;
+    cmdReload: TFlatButton;
+    cmdLoad: TFlatButton;
+    cmdUnload: TFlatButton;
+    cmdRemove: TFlatButton;
+    chkRestoreCaret: TFlatCheckBox;
+    txtLines: TFlatEdit;
+    bvlCaret2: TBevel;
+    optDontSave: TFlatRadioButton;
+    lblPAWN: TLabel;
+    pnlSMALLCompiler: TPanel;
+    lblCPPCompiler: TLabel;
+    pnlCPPCompiler: TPanel;
+    lblPAWNCompilerPath: TLabel;
+    txtPAWNCompilerPath: TFlatEdit;
+    cmdBrowsePAWNCompiler: TFlatButton;
+    txtCPPCompilerPath: TFlatEdit;
+    lblCPPCompilerPath: TLabel;
+    cmdBrowseCPPCompiler: TFlatButton;
+    lblCPPHint: TLabel;
+    lblCPPCompilerArgs: TLabel;
+    txtCPPCompilerArguments: TFlatEdit;
+    txtCPPOutput: TFlatEdit;
+    lblCPPOutput: TLabel;
+    txtPAWNOutput: TFlatEdit;
+    txtPAWNArgs: TFlatEdit;
+    lblPAWNArgs: TLabel;
+    lblSPAWNOutput: TLabel;
+    cmdBrowseOutputPAWN: TFlatButton;
+    cmdBrowseOutputCPP: TFlatButton;
+    pnlFTPData: TPanel;
+    lblFTPData: TLabel;
+    chkPassive: TFlatCheckBox;
+    txtHost: TFlatEdit;
+    lblHost: TLabel;
+    txtPort: TFlatEdit;
+    txtUsername: TFlatEdit;
+    txtPassword: TFlatEdit;
+    lblPassword: TLabel;
+    lblUsername: TLabel;
+    lblPort: TLabel;
+    pnlDefaultPath: TPanel;
+    pnlDirectory: TPanel;
+    trvDirectories: TTreeView;
+    txtDefaultDir: TFlatEdit;
+    cmdConnect: TFlatButton;
+    lblDefaultDir: TLabel;
+    lblDefaultDirectory: TLabel;
+    odBrowse: TOpenDialog;
+    ilImages: TImageList;
+    jspProxy: TJvStandardPage;
+    pnlProxy: TPanel;
+    txtProxyPassword: TFlatEdit;
+    txtProxyUsername: TFlatEdit;
+    lblProxyPassword: TLabel;
+    lblProxyUsername: TLabel;
+    txtProxyHost: TFlatEdit;
+    txtProxyPort: TFlatEdit;
+    lblProxyPort: TLabel;
+    lblProxyHost: TLabel;
+    cboProxy: TFlatComboBox;
+    lblProxy: TLabel;
+    pnlPCSpeed: TPanel;
+    lblCPUSpeed: TLabel;
+    sldSpeed: TJvxSlider;
+    lblSlow: TLabel;
+    lblAverage: TLabel;
+    lblFast: TLabel;
+    jspHalfLife: TJvStandardPage;
+    pnlHLExecutable: TPanel;
+    lblHLExec: TLabel;
+    txtHLExec: TFlatEdit;
+    cmdBrowseHL: TFlatButton;
+    lblCustomParameters: TLabel;
+    txtCustomParameters: TFlatEdit;
+    chkIndentGuides: TFlatCheckBox;
+    lblAutoIndent: TLabel;
+    pnlAutoIndent: TPanel;
+    chkAutoIndent: TFlatCheckBox;
+    cmdAdvancedAutoIndent: TFlatButton;
+    txtAMXXDir: TFlatEdit;
+    lblAMXXDir: TLabel;
+    cmdBrowseAMXXDir: TFlatButton;
+    procedure jplSettingsChange(Sender: TObject);
+    procedure txtLinesChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure chkRestoreCaretClick(Sender: TObject);
+    procedure txtFontSizeChange(Sender: TObject);
+    procedure cboLanguageChange(Sender: TObject);
+    procedure chkUseDefaultFontClick(Sender: TObject);
+    procedure cboFontChange(Sender: TObject);
+    procedure chkBoldClick(Sender: TObject);
+    procedure chkItalicClick(Sender: TObject);
+    procedure chkUnderlinedClick(Sender: TObject);
+    procedure chkVisibleClick(Sender: TObject);
+    procedure cmdResetClick(Sender: TObject);
+    procedure lstStylesClick(Sender: TObject);
+    procedure lvShortcutsClick(Sender: TObject);
+    procedure trvSettingsChanging(Sender: TObject; Node: TTreeNode;
+      var AllowChange: Boolean);
+    procedure txtPeriodChange(Sender: TObject);
+    procedure txtPortChange(Sender: TObject);
+    procedure lvShortcutsSelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
+    procedure cmdApplyClick(Sender: TObject);
+    procedure cmdSelectForegroundClick(Sender: TObject);
+    procedure cmdSelectBackgroundClick(Sender: TObject);
+    procedure cmdSelectCaretForeClick(Sender: TObject);
+    procedure cmdSelectCaretBackClick(Sender: TObject);
+    procedure cmdBrowsePAWNCompilerClick(Sender: TObject);
+    procedure cmdBrowseCPPCompilerClick(Sender: TObject);
+    procedure cmdBrowseOutputPAWNClick(Sender: TObject);
+    procedure cmdBrowseOutputCPPClick(Sender: TObject);
+    procedure txtPAWNOutputExit(Sender: TObject);
+    procedure txtCPPOutputChange(Sender: TObject);
+    procedure cmdCSAddClick(Sender: TObject);
+    procedure cmdCSRemoveClick(Sender: TObject);
+    procedure lstCodeSnippetsClick(Sender: TObject);
+    procedure ftcCodeSnippetsTabChanged(Sender: TObject);
+    procedure txtCodeSnippetKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure cmdConnectClick(Sender: TObject);
+    procedure trvDirectoriesExpanded(Sender: TObject; Node: TTreeNode);
+    procedure trvDirectoriesChange(Sender: TObject; Node: TTreeNode);
+    procedure trvDirectoriesExpanding(Sender: TObject; Node: TTreeNode;
+      var AllowExpansion: Boolean);
+    procedure trvDirectoriesCollapsing(Sender: TObject; Node: TTreeNode;
+      var AllowCollapse: Boolean);
+    procedure cboProxyChange(Sender: TObject);
+    procedure txtProxyPortChange(Sender: TObject);
+    procedure jplSettingsChanging(Sender: TObject; PageIndex: Integer;
+      var AllowChange: Boolean);
+    procedure txtProxyHostChange(Sender: TObject);
+    procedure cmdBrowseHLClick(Sender: TObject);
+    procedure cmdAdvancedAutoIndentClick(Sender: TObject);
+    procedure cmdReloadClick(Sender: TObject);
+    procedure cmdUnloadClick(Sender: TObject);
+    procedure cmdLoadClick(Sender: TObject);
+    procedure cmdRemoveClick(Sender: TObject);
+    procedure cmdBrowseAMXXDirClick(Sender: TObject);
+  public
+    Foreground, Background: TColor;
+    CaretFore, CaretBack: TColor;
+    procedure UpdateItemIndex;
+    procedure PaintForeground(eColor: TColor);
+    procedure PaintBackground(eColor: TColor);
+    procedure PaintCaretFore(eColor: TColor);
+    procedure PaintCaretBack(eColor: TColor);
+    procedure EnableControls(eEnable: Boolean); // For Proxy
+  end;
+
+var
+  frmSettings: TfrmSettings;
+  eConfig: TIniFile;
+
+implementation
+
+uses UnitMainTools, UnitfrmMain, UnitfrmSelectColor, UnitLanguages,
+  UnitCodeSnippets, UnitfrmAutoIndent, UnitPlugins;
+
+{$R *.DFM}
+
+procedure TfrmSettings.jplSettingsChange(Sender: TObject);
+begin
+  if not Started then exit;
+
+  if Assigned(trvSettings.Selected.Parent) then
+    lblCurrSetting.Caption := trvSettings.Selected.Parent.Text + ' - ' + (jplSettings.ActivePage as TJvStandardPage).Caption
+  else
+    lblCurrSetting.Caption := (jplSettings.ActivePage as TJvStandardPage).Caption;
+
+  txtPAWNOutputExit(Sender);
+  txtCPPOutputChange(Sender);
+end;
+
+procedure TfrmSettings.txtLinesChange(Sender: TObject);
+begin
+  if not IsNumeric(txtLines.Text) then
+    txtLines.Text := '600';
+end;
+
+procedure TfrmSettings.FormCreate(Sender: TObject);
+begin
+  eConfig := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config\Settings.ini');
+  ReloadIni;
+  case eConfig.ReadInteger('Misc', 'WindowState', 0) of
+    0: frmMain.WindowState := wsNormal;
+    1: frmMain.WindowState := wsMaximized;
+    2: frmMain.WindowState := wsMinimized;
+  end;
+
+  PaintForeground(clBlack);
+  PaintBackground(clBlack);
+  PaintCaretFore(clBlack);
+  PaintCaretBack(clBlack);
+end;
+
+procedure TfrmSettings.FormDestroy(Sender: TObject);
+begin
+  case frmMain.WindowState of
+    wsNormal   : eConfig.WriteInteger('Misc', 'WindowState', 0);
+    wsMaximized: eConfig.WriteInteger('Misc', 'WindowState', 1);
+    else         eConfig.WriteInteger('Misc', 'WindowState', 2);
+  end;
+
+  if frmMain.IdFTP.Connected then
+    frmMain.IdFTP.Disconnect;
+  
+  eConfig.Free;
+end;
+
+procedure TfrmSettings.FormShow(Sender: TObject);
+var i: integer;
+begin
+  txtLines.Enabled := chkRestoreCaret.Checked;
+  cboLanguage.OnChange(Self);
+  for i := 0 to trvSettings.Items.Count -1 do
+    trvSettings.Items[i].Expand(True);
+end;
+
+procedure TfrmSettings.chkRestoreCaretClick(Sender: TObject);
+begin
+  txtLines.Enabled := chkRestoreCaret.Checked;
+end;
+
+procedure TfrmSettings.txtFontSizeChange(Sender: TObject);
+begin
+  if not IsNumeric(txtFontSize.Text) then begin
+    txtFontSize.Text := '0';
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontSize := 0;
+  end
+  else
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontSize := StrToInt(txtFontSize.Text);
+end;
+
+{ For Highlighter Section }
+
+procedure TfrmSettings.PaintBackground(eColor: TColor);
+begin
+  imgBackground.Canvas.Pen.Color := $008396A0;
+  imgBackground.Canvas.Brush.Color := eColor;
+  imgBackground.Canvas.Rectangle(0, 0, 19, 19);
+end;
+
+procedure TfrmSettings.PaintForeground(eColor: TColor);
+begin
+  imgForeground.Canvas.Pen.Color := $008396A0;
+  imgForeground.Canvas.Brush.Color := eColor;
+  imgForeground.Canvas.Rectangle(0, 0, 19, 19);
+end;
+
+procedure TfrmSettings.cboLanguageChange(Sender: TObject);
+var i: integer;
+begin
+  lstStyles.Items.Clear;
+  for i := 0 to TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Count -1 do
+    lstStyles.Items.Add(TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[i]).Name);
+
+  if lstStyles.Items.Count > 0 then
+    lstStyles.ItemIndex := 0;
+  cboFont.Enabled := lstStyles.Items.Count <> 0;
+  chkUseDefaultFont.Enabled := lstStyles.Items.Count <> 0;
+  chkBold.Enabled := lstStyles.Items.Count <> 0;
+  chkItalic.Enabled := lstStyles.Items.Count <> 0;
+  chkUnderlined.Enabled := lstStyles.Items.Count <> 0;
+  chkVisible.Enabled := lstStyles.Items.Count <> 0;
+  cmdSelectForeground.Enabled := lstStyles.Items.Count <> 0;
+  cmdSelectBackground.Enabled := lstStyles.Items.Count <> 0;
+  
+  UpdateItemIndex;
+end;
+
+procedure TfrmSettings.chkUseDefaultFontClick(Sender: TObject);
+begin
+  cboFont.Enabled := not chkUseDefaultFont.Checked;
+  if chkUseDefaultFont.Checked then
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := ''
+  else
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Selected;
+end;
+
+procedure TfrmSettings.cboFontChange(Sender: TObject);
+begin
+  if (not chkUseDefaultFont.Checked) then
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Selected;
+end;
+
+procedure TfrmSettings.chkBoldClick(Sender: TObject);
+begin
+  if chkBold.Checked then
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles + [fsBold]
+  else
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles - [fsBold];
+end;
+
+procedure TfrmSettings.chkItalicClick(Sender: TObject);
+begin
+  if chkItalic.Checked then
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles + [fsItalic]
+  else
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles - [fsItalic];
+end;
+
+procedure TfrmSettings.chkUnderlinedClick(Sender: TObject);
+begin
+  if chkUnderlined.Checked then
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles + [fsUnderline]
+  else
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles - [fsUnderline];
+end;
+
+procedure TfrmSettings.chkVisibleClick(Sender: TObject);
+begin
+  TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).Visible := chkVisible.Checked;
+end;
+
+procedure TfrmSettings.cmdResetClick(Sender: TObject);
+begin
+  if MessageBox(Handle, PChar(lWarnHighlighterReset), 'AMXX-Studio', MB_ICONWARNING + MB_YESNO) = mrYes then begin
+    DeleteFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\Editor.sci'));
+    cmdReset.Enabled := False;
+    cboLanguage.Enabled := False;
+    lstStyles.Enabled := False;
+    lblFont.Enabled := False;
+    cboFont.Enabled := False;
+    chkUseDefaultFont.Enabled := False;
+    chkBold.Enabled := False;
+    chkItalic.Enabled := False;
+    chkUnderlined.Enabled := False;
+    chkVisible.Enabled := False;
+    lblFontSize.Enabled := False;
+    txtFontSize.Enabled := False;
+    lblForeground.Enabled := False;
+    cmdSelectForeground.Enabled := False;
+    lblBackground.Enabled := False;
+    cmdSelectBackground.Enabled := False;
+    MessageBox(Handle, PChar(lHighlighterResetDone), 'AMXX-Studio', MB_ICONINFORMATION);
+  end;
+end;
+
+procedure TfrmSettings.UpdateItemIndex;
+begin
+  lblFont.Enabled := lstStyles.ItemIndex <> -1;
+  cboFont.Enabled := lstStyles.ItemIndex <> -1;
+  chkUseDefaultFont.Enabled := lstStyles.ItemIndex <> -1;
+  chkBold.Enabled := lstStyles.ItemIndex <> -1;
+  chkItalic.Enabled := lstStyles.ItemIndex <> -1;
+  chkUnderlined.Enabled := lstStyles.ItemIndex <> -1;
+  chkVisible.Enabled := lstStyles.ItemIndex <> -1;
+  lblFontSize.Enabled := lstStyles.ItemIndex <> -1;
+  txtFontSize.Enabled := lstStyles.ItemIndex <> -1;
+  lblForeground.Enabled := lstStyles.ItemIndex <> -1;
+  cmdSelectForeground.Enabled := lstStyles.ItemIndex <> -1;
+  lblBackground.Enabled := lstStyles.ItemIndex <> -1;
+  cmdSelectBackground.Enabled := lstStyles.ItemIndex <> -1;
+
+  if lstStyles.ItemIndex <> -1 then begin
+    with TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]) do begin
+      chkUseDefaultFont.Checked := FontName = '';
+      if FontName <> '' then
+        cboFont.Selected := FontName;
+      cboFont.Enabled := FontName <> '';
+      chkBold.Checked := fsBold in FontStyles;
+      chkItalic.Checked := fsItalic in FontStyles;
+      chkUnderlined.Checked := fsUnderline in FontStyles;
+      chkVisible.Checked := Visible;
+      txtFontSize.Text := IntToStr(TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontSize);
+
+      PaintForeground(ForeColor);
+      PaintBackground(BackColor);
+    end;
+  end;
+end;
+
+procedure TfrmSettings.lstStylesClick(Sender: TObject);
+begin
+  UpdateItemIndex;
+end;
+
+procedure TfrmSettings.lvShortcutsClick(Sender: TObject);
+begin
+  cmdApply.Enabled := Assigned(lvShortcuts.Selected);
+  hkShortcut.Enabled := cmdApply.Enabled;
+  if cmdApply.Enabled then
+    hkShortcut.HotKey := TextToShortCut(lvShortcuts.Selected.Subitems[0]);
+end;
+
+procedure TfrmSettings.trvSettingsChanging(Sender: TObject;
+  Node: TTreeNode; var AllowChange: Boolean);
+begin
+  if (not Started) then exit;
+
+  if (Assigned(Node.Parent)) and (not cmdReset.Enabled) then
+    AllowChange := Node.Parent.Index <> 0
+  else
+    AllowChange := True;
+end;
+
+procedure TfrmSettings.txtPeriodChange(Sender: TObject);
+begin
+  if not IsNumeric(txtPeriod.Text) then
+    txtPeriod.Text := '1024';
+end;
+
+procedure TfrmSettings.txtPortChange(Sender: TObject);
+begin
+  if not IsNumeric(txtPort.Text) then
+    txtPort.Text := '21';
+end;
+
+procedure TfrmSettings.PaintCaretBack(eColor: TColor);
+begin
+  imgCaretBack.Canvas.Pen.Color := $008396A0;
+  imgCaretBack.Canvas.Brush.Color := eColor;
+  imgCaretBack.Canvas.Rectangle(0, 0, 19, 19);
+end;
+
+procedure TfrmSettings.PaintCaretFore(eColor: TColor);
+begin
+  imgCaretFore.Canvas.Pen.Color := $008396A0;
+  imgCaretFore.Canvas.Brush.Color := eColor;
+  imgCaretFore.Canvas.Rectangle(0, 0, 19, 19);
+end;
+
+procedure TfrmSettings.lvShortcutsSelectItem(Sender: TObject;
+  Item: TListItem; Selected: Boolean);
+begin
+  lvShortcuts.OnClick(Sender);
+end;
+
+procedure TfrmSettings.cmdApplyClick(Sender: TObject);
+begin
+  if Assigned(lvShortcuts.Selected) then
+    lvShortcuts.Selected.SubItems[0] := ShortcutToText(hkShortcut.HotKey);
+end;
+
+procedure TfrmSettings.cmdSelectForegroundClick(Sender: TObject);
+begin
+  if ShowColorDialog(Foreground, imgForeground) then
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).ForeColor := Foreground;
+end;
+
+procedure TfrmSettings.cmdSelectBackgroundClick(Sender: TObject);
+begin
+  if ShowColorDialog(Background, imgBackground) then
+    TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).BackColor := Background;
+end;
+
+procedure TfrmSettings.cmdSelectCaretForeClick(Sender: TObject);
+begin
+  ShowColorDialog(CaretFore, imgCaretFore);
+end;
+
+procedure TfrmSettings.cmdSelectCaretBackClick(Sender: TObject);
+begin
+  ShowColorDialog(CaretBack, imgCaretBack);
+end;
+
+procedure TfrmSettings.cmdBrowsePAWNCompilerClick(Sender: TObject);
+begin
+  if odBrowse.Execute then
+    txtPAWNCompilerPath.Text := odBrowse.FileName;
+end;
+
+procedure TfrmSettings.cmdBrowseCPPCompilerClick(Sender: TObject);
+begin
+  if odBrowse.Execute then
+    txtCPPCompilerPath.Text := odBrowse.FileName;
+end;
+
+procedure TfrmSettings.cmdBrowseOutputPAWNClick(Sender: TObject);
+var eDir: String;
+begin
+  if SelectDirectory(lSelectOutputPAWN, txtPAWNOutput.Text, eDir) then
+    txtPAWNOutput.Text := eDir;
+end;
+
+procedure TfrmSettings.cmdBrowseOutputCPPClick(Sender: TObject);
+var eDir: String;
+begin
+  if SelectDirectory(lSelectOutputCPP, txtCPPOutput.Text, eDir) then
+    txtCPPOutput.Text := eDir;
+end;
+
+procedure TfrmSettings.txtPAWNOutputExit(Sender: TObject);
+var eHDC: HDC;
+    eCanvas: TCanvas;
+begin
+  if (txtPAWNOutput.Text = '') and (not txtPAWNOutput.Focused) then begin
+    eHDC := GetDC(txtPAWNOutput.Handle);
+    eCanvas := TCanvas.Create;
+    eCanvas.Handle := eHDC;
+    eCanvas.Font.Name := 'Tahoma';
+    eCanvas.Font.Color := clBtnShadow;
+    eCanvas.Font.Size := 7;
+    eCanvas.TextOut(1, 1, lDynamic);
+    eCanvas.Free; 
+    txtPAWNOutput.Hint := lOutputHint;
+  end
+  else
+    txtPAWNOutput.Hint := '';
+end;
+
+procedure TfrmSettings.txtCPPOutputChange(Sender: TObject);
+var eHDC: HDC;
+    eCanvas: TCanvas;
+begin
+  if (txtCPPOutput.Text = '') and (not txtCPPOutput.Focused) then begin
+    eHDC := GetDC(txtCPPOutput.Handle);
+    eCanvas := TCanvas.Create;
+    eCanvas.Handle := eHDC;
+    eCanvas.Font.Name := 'Tahoma';
+    eCanvas.Font.Color := clBtnShadow;
+    eCanvas.Font.Size := 7;
+    eCanvas.TextOut(1, 1, lDynamic);
+    eCanvas.Free;
+    txtCPPOutput.Hint := lOutputHint;
+  end
+  else
+    txtCPPOutput.Hint := '';
+end;
+
+procedure TfrmSettings.cmdCSAddClick(Sender: TObject);
+var eStr: String;
+begin
+  if InputQuery(lAddCodeSnippetCaption, lAddCodeSnippetPrompt, eStr) then begin
+    eStr := StringReplace(eStr, '=', '', [rfReplaceAll]);
+    if eStr = '' then begin
+      MessageBox(Handle, PChar(lEmptyCodeSnippetTitle), PChar(Application.Title), MB_ICONWARNING);
+      cmdCSAdd.Click;
+    end
+    else begin
+      if lstCodeSnippets.Items.IndexOf(eStr) = -1 then begin
+        lstCodeSnippets.ItemIndex := lstCodeSnippets.Items.Add(eStr);
+        AddSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], eStr, '');
+        txtCodeSnippet.Enabled := True;
+        lstCodeSnippetsClick(Sender);
+      end
+      else
+        MessageBox(Handle, PChar(lCodeSnippetExists), PChar(Application.Title), MB_ICONWARNING);
+    end;
+  end;
+end;
+
+procedure TfrmSettings.cmdCSRemoveClick(Sender: TObject);
+begin
+  if lstCodeSnippets.ItemIndex <> -1 then begin
+    DelSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], lstCodeSnippets.Items[lstCodeSnippets.ItemIndex]);
+    lstCodeSnippets.Items.Delete(lstCodeSnippets.ItemIndex); 
+    if lstCodeSnippets.Items.Count > 0 then
+      lstCodeSnippets.ItemIndex := 0
+    else
+      txtCodeSnippet.Clear;
+    lstCodeSnippetsClick(Sender);
+  end;
+  cmdCSRemove.Enabled := lstCodeSnippets.ItemIndex <> -1;
+  txtCodeSnippet.Enabled := lstCodeSnippets.Items.Count > 0;
+end;
+
+procedure TfrmSettings.lstCodeSnippetsClick(Sender: TObject);
+begin
+  cmdCSRemove.Enabled := lstCodeSnippets.ItemIndex <> -1;
+  if cmdCSRemove.Enabled then
+    txtCodeSnippet.Lines.Text := GetSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], lstCodeSnippets.Items[lstCodeSnippets.ItemIndex]);
+end;
+
+procedure TfrmSettings.ftcCodeSnippetsTabChanged(Sender: TObject);
+begin
+  lstCodeSnippets.Items.Text := GetSnippetList(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab]).Text;
+  if lstCodeSnippets.Items.Count > 0 then
+    lstCodeSnippets.ItemIndex := 0
+  else
+    txtCodeSnippet.Clear;
+  lstCodeSnippetsClick(Sender);
+  txtCodeSnippet.Enabled := lstCodeSnippets.Items.Count > 0;
+  cmdCSRemove.Enabled := lstCodeSnippets.ItemIndex <> -1;
+end;
+
+procedure TfrmSettings.txtCodeSnippetKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  SetSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], lstCodeSnippets.Items[lstCodeSnippets.ItemIndex], txtCodeSnippet.Lines.Text);
+end;
+
+procedure TfrmSettings.cmdConnectClick(Sender: TObject);
+var i: integer;
+    eStr: TStringList;
+    CurNode: TTreeNode;
+begin
+  { The following functions are copied from my installer }
+
+  if (Trim(txtHost.Text) = '') or (Trim(txtUsername.Text) = '') or (Trim(txtPassword.Text) = '') then
+    MessageBox(Handle, PChar(lFillInEachField), PChar(Application.Title), MB_ICONWARNING)
+  else if cmdConnect.Caption = lConnect then begin
+    // ... design stuff ...
+    Screen.Cursor := crHourGlass;
+    cmdConnect.Enabled := False;
+    txtHost.Enabled := False;
+    txtPort.Enabled := False;
+    txtUsername.Enabled := False;
+    txtPassword.Enabled := False;
+    chkPassive.Enabled := False;
+    cmdConnect.Caption := lConnecting;
+    // ... disconnect if already connected ...
+    if frmMain.IdFTP.Connected then
+      frmMain.IdFTP.Disconnect;
+    // ... set values, connect and check errors etc ...
+    i := TryConnect;
+    case i of
+      1: begin
+        txtUsername.SetFocus;
+        txtUsername.SelectAll;
+      end;
+      2: begin
+        txtHost.SetFocus;
+        txtHost.SelectAll;
+      end;
+      3, 4: begin
+        txtPort.SetFocus;
+        txtPort.SelectAll;
+      end;
+    end;
+
+    if i <> 0 then begin
+      // reset button properties
+      cmdConnect.Enabled := True;
+      txtHost.Enabled := True;
+      txtPort.Enabled := True;
+      txtUsername.Enabled := True;
+      txtPassword.Enabled := True;
+      chkPassive.Enabled := True;
+      cmdConnect.Caption := lConnect;
+      Screen.Cursor := crDefault;
+      // ... connect failed, leave procedure ...
+      exit;
+    end;
+    // ... connect successful, change captions ...
+    trvDirectories.Enabled := True;
+    cmdConnect.Enabled := True;
+    cmdConnect.Caption := lDisconnect;
+    // ... scan for initial directory ...
+    eStr := TStringList.Create;
+    eStr.Text := StringReplace(frmMain.IdFTP.RetrieveCurrentDir, '/', #13, [rfReplaceAll]);
+    for i := eStr.Count -1 downto 0 do begin
+      if eStr[i] = '' then
+        eStr.Delete(i);
+    end;
+
+    CurNode := nil;
+    if eStr.Count <> 0 then begin
+      for i := 0 to eStr.Count -1 do
+        CurNode := trvDirectories.Items.AddChild(CurNode, eStr[i]);
+    end;
+    if trvDirectories.Items.Count <> 0 then
+      trvDirectories.Items.Item[0].Expand(True); 
+    eStr.Free;
+    
+    // ... scan for directories ...
+    with GetAllDirs do begin
+      for i := 0 to Count -1 do
+        trvDirectories.Items.AddChild(trvDirectories.Items.AddChild(CurNode, Strings[i]), 'Scanning...');
+      Free;
+    end;
+
+    if Assigned(CurNode) then
+      CurNode.Expand(False);
+    Screen.Cursor := crDefault;
+  end
+  else begin
+    Screen.Cursor := crHourGlass;
+    frmMain.IdFTP.Quit;
+    trvDirectories.Items.Clear;
+    cmdConnect.Enabled := True;
+    trvSettings.Enabled := True;
+    txtHost.Enabled := True;
+    txtPort.Enabled := True;
+    txtUsername.Enabled := True;
+    txtPassword.Enabled := True;
+    chkPassive.Enabled := True;
+    cmdConnect.Caption := lConnect;
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TfrmSettings.trvDirectoriesExpanded(Sender: TObject;
+  Node: TTreeNode);
+var ePath: String;
+    CurNode: TTreeNode;
+    i: integer;
+begin
+  if Node.Item[0].Text = lScanning then begin // no directories have been added yet
+    Screen.Cursor := crHourGlass;
+    // get complete path
+    ePath := '/';
+    CurNode := Node;
+    repeat
+      ePath := '/' + CurNode.Text + ePath;
+      CurNode := CurNode.Parent;
+    until (not Assigned(CurNode));
+    // change dir and add directories in it
+    try
+      Repaint;
+      frmMain.IdFTP.ChangeDir(ePath);
+      with GetAllDirs do begin
+        Node.Item[0].Free;
+        for i := 0 to Count -1 do begin
+          trvDirectories.Items.AddChild(trvDirectories.Items.AddChild(Node, Strings[i]), lScanning);
+        end;
+        Free;
+      end;
+    finally
+      Application.ProcessMessages;
+    end;
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TfrmSettings.trvDirectoriesChange(Sender: TObject;
+  Node: TTreeNode);
+var ePath: String;
+    CurNode: TTreeNode;
+begin
+  if Screen.Cursor <> crDefault then exit; // on disconnect this event is also raised
+
+  // get complete path
+  ePath := '/';
+  CurNode := Node;
+  repeat
+    ePath := '/' + CurNode.Text + ePath;
+    CurNode := CurNode.Parent;
+  until (not Assigned(CurNode));
+  // change path
+  txtDefaultDir.Text := ePath;
+end;
+
+procedure TfrmSettings.trvDirectoriesExpanding(Sender: TObject;
+  Node: TTreeNode; var AllowExpansion: Boolean);
+begin
+  Node.ImageIndex := 1;
+  Node.SelectedIndex := 1;
+end;
+
+procedure TfrmSettings.trvDirectoriesCollapsing(Sender: TObject;
+  Node: TTreeNode; var AllowCollapse: Boolean);
+begin
+  Node.ImageIndex := 0;
+  Node.SelectedIndex := 0;
+end;
+
+procedure TfrmSettings.cboProxyChange(Sender: TObject);
+begin
+  EnableControls(cboProxy.ItemIndex <> 0); // 0 = None
+  SetProxySettings;
+end;
+
+procedure TfrmSettings.EnableControls(eEnable: Boolean);
+begin
+  lblProxyHost.Enabled := eEnable;
+  lblProxyPassword.Enabled := eEnable;
+  lblProxyPort.Enabled := eEnable;
+  lblProxyUsername.Enabled := eEnable;
+  txtProxyHost.Enabled := eEnable;
+  txtProxyPort.Enabled := eEnable;
+  txtProxyUsername.Enabled := eEnable;
+  txtProxyPassword.Enabled := eEnable;
+end;
+
+procedure TfrmSettings.txtProxyPortChange(Sender: TObject);
+begin
+  if not IsNumeric(txtProxyPort.Text) then
+    txtProxyPort.Text := '8080';
+  SetProxySettings;
+end;
+
+procedure TfrmSettings.jplSettingsChanging(Sender: TObject;
+  PageIndex: Integer; var AllowChange: Boolean);
+begin
+  if (frmMain.IdFTP.Connected) and (jplSettings.Pages[PageIndex] = jspProxy) then
+    AllowChange := False;
+end;
+
+procedure TfrmSettings.txtProxyHostChange(Sender: TObject);
+begin
+  SetProxySettings;
+end;
+
+procedure TfrmSettings.cmdBrowseHLClick(Sender: TObject);
+begin
+  if odBrowse.Execute then
+    txtHLExec.Text := odBrowse.FileName;
+end;
+
+procedure TfrmSettings.cmdAdvancedAutoIndentClick(Sender: TObject);
+begin
+  frmAutoIndent.ShowModal;
+end;
+
+procedure TfrmSettings.cmdReloadClick(Sender: TObject);
+begin
+  if Assigned(lvPlugins.Selected) then begin
+    if lvPlugins.Selected.SubItems[2] = 'Loaded' then
+      cmdUnload.Click;
+    cmdLoad.Click;
+  end;
+end;
+
+procedure TfrmSettings.cmdUnloadClick(Sender: TObject);
+begin
+  if Assigned(lvPlugins.Selected) then begin
+    if lvPlugins.Selected.SubItems[2] = 'Unloaded' then
+      MessageBox(Handle, PChar(lAlreadyUnLoaded), PChar(Application.Title), MB_ICONERROR)
+    else
+      UnloadPlugin(lvPlugins.Selected);
+  end;
+end;
+
+procedure TfrmSettings.cmdLoadClick(Sender: TObject);
+begin
+  if Assigned(lvPlugins.Selected) then begin
+    if lvPlugins.Selected.SubItems[2] = 'Loaded' then
+      MessageBox(Handle, PChar(lAlreadyLoaded), PChar(Application.Title), MB_ICONERROR)
+    else
+      LoadPlugin(lvPlugins.Selected);
+  end;
+end;
+
+procedure TfrmSettings.cmdRemoveClick(Sender: TObject);
+begin
+  if Assigned(lvPlugins.Selected) then begin
+    if lvPlugins.Selected.SubItems[2] = 'Loaded' then
+      cmdUnload.Click;
+    DeleteFile(PChar(ExtractFilePath(ParamStr(0)) + 'plugins\' + lvPlugins.Selected.SubItems[0]));
+    lvPlugins.DeleteSelected;
+  end;
+end;
+
+procedure TfrmSettings.cmdBrowseAMXXDirClick(Sender: TObject);
+var eStr: String;
+begin
+  if SelectDirectory(lSelectAMXXCaption, ExtractFilePath(txtHLExec.Text), eStr) then
+    txtAMXXDir.Text := eStr;
+end;
+
+end.

editor/studio/UnitfrmSocketsTerminal.dfm

@@ -0,0 +1,189 @@
+object frmSocketsTerminal: TfrmSocketsTerminal
+  Left = 584
+  Top = 418
+  ActiveControl = rtfEnter
+  BorderStyle = bsDialog
+  Caption = 'Socket Terminal'
+  ClientHeight = 230
+  ClientWidth = 369
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  FormStyle = fsStayOnTop
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnClose = FormClose
+  PixelsPerInch = 96
+  TextHeight = 13
+  object pnlSettings: TPanel
+    Left = 0
+    Top = 141
+    Width = 369
+    Height = 89
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    object lblStatusCaption: TLabel
+      Left = 2
+      Top = 72
+      Width = 35
+      Height = 13
+      Caption = 'Status:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lblStatus: TLabel
+      Left = 40
+      Top = 72
+      Width = 69
+      Height = 13
+      Caption = 'not connected'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clRed
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lblSettings: TLabel
+      Left = 4
+      Top = 6
+      Width = 43
+      Height = 13
+      Caption = 'Settings:'
+    end
+    object pnlSettings2: TPanel
+      Left = 4
+      Top = 24
+      Width = 361
+      Height = 41
+      BevelOuter = bvLowered
+      TabOrder = 0
+      object lblHost: TLabel
+        Left = 4
+        Top = 3
+        Width = 26
+        Height = 13
+        Caption = 'Host:'
+      end
+      object lblPort: TLabel
+        Left = 184
+        Top = 3
+        Width = 24
+        Height = 13
+        Caption = 'Port:'
+      end
+      object txtHost: TFlatEdit
+        Left = 4
+        Top = 17
+        Width = 173
+        Height = 19
+        ColorFlat = clWhite
+        TabOrder = 0
+      end
+      object txtPort: TFlatEdit
+        Left = 184
+        Top = 17
+        Width = 39
+        Height = 19
+        ColorFlat = clWhite
+        TabOrder = 1
+        Text = '1'
+        OnChange = txtPortChange
+      end
+      object optUDP: TFlatRadioButton
+        Left = 230
+        Top = 20
+        Width = 39
+        Height = 17
+        Caption = 'UDP'
+        TabOrder = 3
+        OnClick = optTCPClick
+      end
+      object optTCP: TFlatRadioButton
+        Left = 230
+        Top = 4
+        Width = 35
+        Height = 15
+        Caption = 'TCP'
+        Checked = True
+        TabOrder = 2
+        TabStop = True
+        OnClick = optTCPClick
+      end
+      object cmdConnect: TFlatButton
+        Left = 278
+        Top = 10
+        Width = 77
+        Height = 21
+        ColorHighLight = 8623776
+        ColorShadow = 8623776
+        Caption = 'Connect'
+        TabOrder = 4
+        OnClick = cmdConnectClick
+      end
+    end
+  end
+  object rtfEnter: TRichEdit
+    Left = 0
+    Top = 121
+    Width = 369
+    Height = 20
+    Align = alBottom
+    TabOrder = 1
+    WantReturns = False
+    OnKeyPress = rtfEnterKeyPress
+  end
+  object rtfReceived: TRichEdit
+    Left = 0
+    Top = 0
+    Width = 369
+    Height = 121
+    Align = alClient
+    ScrollBars = ssVertical
+    TabOrder = 0
+  end
+  object IdTCPClient: TIdTCPClient
+    MaxLineAction = maSplit
+    OnDisconnected = IdTCPClientDisconnected
+    OnConnected = IdTCPClientConnected
+    Port = 0
+    Left = 4
+    Top = 4
+  end
+  object IdUDPClient: TIdUDPClient
+    OnStatus = IdUDPClientStatus
+    Port = 0
+    Left = 4
+    Top = 34
+  end
+  object alCopyPaste: TActionList
+    Left = 4
+    Top = 64
+    object acCopy: TAction
+      Caption = 'Copy'
+      ShortCut = 16451
+      OnExecute = acCopyExecute
+    end
+    object acPaste: TAction
+      Caption = 'Paste'
+      ShortCut = 16470
+      OnExecute = acPasteExecute
+    end
+    object acUndo: TAction
+      Caption = 'Undo'
+      OnExecute = acUndoExecute
+    end
+    object acSelectAll: TAction
+      Caption = 'Select all'
+      OnExecute = acSelectAllExecute
+    end
+  end
+end

editor/studio/UnitfrmSocketsTerminal.pas

@@ -0,0 +1,259 @@
+unit UnitfrmSocketsTerminal; // the "old" dialog from AMXX-Edit v2
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, StdCtrls, ComCtrls, TFlatEditUnit,
+  TFlatRadioButtonUnit, TFlatButtonUnit, IdUDPBase, IdUDPClient,
+  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, UnitReadThread,
+  ActnList;
+
+type
+  TfrmSocketsTerminal = class(TForm)
+    pnlSettings: TPanel;
+    rtfEnter: TRichEdit;
+    rtfReceived: TRichEdit;
+    lblStatusCaption: TLabel;
+    lblStatus: TLabel;
+    lblSettings: TLabel;
+    pnlSettings2: TPanel;
+    lblHost: TLabel;
+    txtHost: TFlatEdit;
+    txtPort: TFlatEdit;
+    lblPort: TLabel;
+    optUDP: TFlatRadioButton;
+    optTCP: TFlatRadioButton;
+    cmdConnect: TFlatButton;
+    IdTCPClient: TIdTCPClient;
+    IdUDPClient: TIdUDPClient;
+    alCopyPaste: TActionList;
+    acCopy: TAction;
+    acPaste: TAction;
+    acUndo: TAction;
+    acSelectAll: TAction;
+    procedure txtPortChange(Sender: TObject);
+    procedure cmdConnectClick(Sender: TObject);
+    procedure optTCPClick(Sender: TObject);
+    procedure IdTCPClientConnected(Sender: TObject);
+    procedure IdTCPClientDisconnected(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure rtfEnterKeyPress(Sender: TObject; var Key: Char);
+    procedure IdUDPClientStatus(ASender: TObject; const AStatus: TIdStatus;
+      const AStatusText: String);
+    procedure acCopyExecute(Sender: TObject);
+    procedure acPasteExecute(Sender: TObject);
+    procedure acUndoExecute(Sender: TObject);
+    procedure acSelectAllExecute(Sender: TObject);
+  private
+    ReadThread: TReadThread;
+  public
+    procedure Append(eText: String; eColor: TColor = clBlack);
+    procedure SetStatus(eStatus: String; eColor: TColor);
+    procedure OnRead(eRead: String);
+    procedure EnableControls(eValue: Boolean);
+  end;
+
+var
+  frmSocketsTerminal: TfrmSocketsTerminal;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrmSocketsTerminal.Append(eText: String; eColor: TColor);
+begin
+  eText := Format('[%s] %s', [TimeToStr(Time), eText]);
+  rtfReceived.SelStart := Length(rtfReceived.Lines.Text);
+  rtfReceived.SelAttributes.Color := eColor;
+  rtfReceived.SelText := eText + #13#10;
+  rtfReceived.Perform(WM_VSCROLL, SB_BOTTOM, 0); 
+end;
+
+procedure TfrmSocketsTerminal.OnRead(eRead: String);
+begin
+  Append(eRead, clWindowText);
+end;
+
+procedure TfrmSocketsTerminal.SetStatus(eStatus: String; eColor: TColor);
+begin
+  lblStatus.Caption := eStatus;
+  lblStatus.Font.Color := eColor;
+end;
+
+procedure TfrmSocketsTerminal.txtPortChange(Sender: TObject);
+begin
+  try
+    StrToInt(txtPort.Text);
+  except
+    txtPort.Text := '1';
+  end;
+end;
+
+procedure TfrmSocketsTerminal.cmdConnectClick(Sender: TObject);
+begin
+  if Tag = 0 then begin
+    if optTCP.Checked then begin
+      IdTCPClient.Host := txtHost.Text;
+      IdTCPClient.Port := StrToInt(txtPort.Text);
+      EnableControls(False);
+      Append('Connecting to ' + txtHost.Text + ':' + txtPort.Text + '...', clHighlight);
+      try
+        IdTCPClient.Connect;
+        ReadThread := TReadThread.Create(True);
+        ReadThread.ReadTCP := True;
+        ReadThread.Resume;
+      except
+        on E: Exception do begin
+          MessageBox(Handle, PChar('Couldn''t connect to server:' + #13 + E.Message), 'Warning', MB_ICONWARNING);
+          EnableControls(True);
+        end;
+      end;
+    end
+    else begin
+      IdUDPClient.Host := txtHost.Text;
+      IdUDPClient.Port := StrToInt(txtPort.Text);
+      EnableControls(False);
+      try
+        IdUDPClient.Active := True;
+        ReadThread := TReadThread.Create(True);
+        ReadThread.ReadTCP := False;
+        ReadThread.Resume;
+        SetStatus('socket active', clGreen);
+        Append('Opened socket to ' + txtHost.Text + ':' + txtPort.Text + '!', clGreen);
+      except
+        on E: Exception do begin
+          MessageBox(Handle, PChar('Couldn''t activate socket:' + #13 + E.Message), 'Warning', MB_ICONWARNING);
+          EnableControls(True);
+        end;
+      end;
+    end;
+  end
+  else begin
+    if optTCP.Checked then begin
+      Screen.Cursor := crHourGlass;
+      IdTCPClient.Disconnect;
+      ReadThread.Terminate;
+      while Tag <> 0 do begin
+        Sleep(5);
+        Application.ProcessMessages;
+      end;
+      Screen.Cursor := crDefault;
+    end
+    else begin
+      Screen.Cursor := crHourGlass;
+      IdUDPClient.Active := False;
+      ReadThread.Terminate;
+      EnableControls(True);
+      SetStatus('socket inactive', clRed);
+      Append('Closed socket to ' + txtHost.Text + ':' + txtPort.Text + '!', clRed);
+      Screen.Cursor := crDefault;
+    end;
+  end;
+end;
+
+procedure TfrmSocketsTerminal.optTCPClick(Sender: TObject);
+begin
+  if optTCP.Checked then begin
+    if not IdTCPClient.Connected then
+      SetStatus('not connected', clRed);
+  end
+  else begin
+    if not IdUDPClient.Active then
+      SetStatus('socket inactive', clRed);
+  end;
+end;
+
+procedure TfrmSocketsTerminal.EnableControls(eValue: Boolean);
+begin
+  txtHost.Enabled := eValue;
+  txtPort.Enabled := eValue;
+  lblHost.Enabled := eValue;
+  lblPort.Enabled := eValue;
+  optTCP.Enabled  := eValue;
+  optUDP.Enabled  := eValue;
+  if eValue then begin
+    cmdConnect.Caption := 'Connect';
+    Tag := 0;
+  end
+  else begin
+    cmdConnect.Caption := 'Disconnect';
+    Tag := 1;
+  end;
+end;
+
+procedure TfrmSocketsTerminal.IdTCPClientConnected(Sender: TObject);
+begin
+  Append('Established connection to ' + txtHost.Text + ':' + txtPort.Text, clGreen);
+  SetStatus('connected', clGreen);
+end;
+
+procedure TfrmSocketsTerminal.IdTCPClientDisconnected(Sender: TObject);
+begin
+  Append('Disconnected from ' + txtHost.Text + ':' + txtPort.Text, clMaroon);
+  EnableControls(True);
+  SetStatus('not connected', clRed);
+end;
+
+procedure TfrmSocketsTerminal.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  if Tag = 1 then
+    cmdConnect.Click;
+end;
+
+procedure TfrmSocketsTerminal.rtfEnterKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Tag = 1 then begin
+    if (Key = #13) and (rtfEnter.Text <> '') then begin
+      if IdTCPClient.Connected then
+        IdTCPClient.WriteLn(rtfEnter.Text)
+      else
+        IdUDPClient.Send(rtfEnter.Text); 
+      Append(rtfEnter.Text, clNavy);
+      rtfEnter.Clear;
+      Key := #0;
+    end;
+  end;
+end;
+
+procedure TfrmSocketsTerminal.IdUDPClientStatus(ASender: TObject;
+  const AStatus: TIdStatus; const AStatusText: String);
+begin
+  Append(AStatusText, clGray);
+end;
+
+procedure TfrmSocketsTerminal.acCopyExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).CopyToClipboard;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).CopyToClipboard;
+end;
+
+procedure TfrmSocketsTerminal.acPasteExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).PasteFromClipboard;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).PasteFromClipboard;
+end;
+
+procedure TfrmSocketsTerminal.acUndoExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).Undo;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).Undo;
+end;
+
+procedure TfrmSocketsTerminal.acSelectAllExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).SelectAll;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).SelectAll;
+end;
+
+end.

editor/studio/UnitfrmSplashscreen.pas

@@ -0,0 +1,173 @@
+unit UnitfrmSplashscreen;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, SciLexerMemo, JvInspector,
+  UnitfrmMain, UnitfrmSettings, UnitfrmSelectColor, UnitfrmSearch,
+  UnitfrmReplace, UnitfrmAllFilesForm, UnitfrmGoToLine,
+  UnitfrmPluginsIniEditor, UnitfrmSocketsTerminal, UnitfrmInfo, TBX,
+  TB2Item, SpTBXItem, Dialogs;
+
+type
+  TfrmSplashscreen = class(TForm)
+    imgSplashscreen: TImage;
+    lblStudio: TLabel;
+    tmrHide: TTimer;
+    procedure FormShow(Sender: TObject);
+    procedure tmrHideTimer(Sender: TObject);
+  public
+    procedure OnMessage(var Msg: TMsg; var Handled: Boolean);
+  end;
+
+var
+  frmSplashscreen: TfrmSplashscreen;
+
+implementation
+
+uses UnitCodeExplorerUpdater, UnitCodeSnippets, UnitCodeUtils,
+  UnitLanguages, UnitMainTools, UnitReadThread, UnitfrmHudMsgGenerator,
+  UnitfrmAutoIndent, UnitfrmHTMLPreview, UnitCodeInspector, UnitPlugins,
+  UnitfrmMenuGenerator, UnitfrmMOTDGen, UnitfrmClose, UnitfrmConnGen;
+
+
+{$R *.DFM}
+
+procedure TfrmSplashscreen.FormShow(Sender: TObject);
+var eCache: TStringList;
+    i: integer;
+    eExt: String;
+begin
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmMain, frmMain);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmAutoIndent, frmAutoIndent);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmSettings, frmSettings);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmSelectColor, frmSelectColor);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmInfo, frmInfo);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmSearch, frmSearch);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmReplace, frmReplace);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmAllFilesForm, frmAllFilesForm);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmGoToLine, frmGoToLine);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmPluginsIniEditor, frmPluginsIniEditor);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmSocketsTerminal, frmSocketsTerminal);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmHudMsgGenerator, frmHudMsgGenerator);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmMenuGenerator, frmMenuGenerator);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmMOTDGen, frmMOTDGen);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmClose, frmClose);
+  Application.ProcessMessages;
+  Repaint;
+  Application.CreateForm(TfrmConnGen, frmConnGen);
+  Application.ProcessMessages;
+  Repaint;
+  
+  if IEInstalled then begin
+    Application.CreateForm(TfrmHTMLPreview, frmHTMLPreview);
+    Application.ProcessMessages;
+    Repaint;
+  end
+  else
+    frmMain.mnuMOTDGenerator.Enabled := False;
+
+  Application.OnMessage := OnMessage;
+
+  with frmMain do begin
+    sciPropertyLoader.FileName := ExtractFilePath(ParamStr(0)) + 'config\Editor.sci';
+    if FileExists(sciPropertyLoader.FileName) then
+      sciPropertyLoader.Load
+    else
+      sciPropertyLoader.Save; // create new if it doesnt exist...
+
+    sciEditor.Gutter1.Width := 40;
+    sciEditor.Gutter1.MarginType := gutLineNumber;
+    LoadCodeSnippets('Pawn');
+    ResetToEnglish;
+    TJvCustomInspectorData.ItemRegister.Add(TJvInspectorTypeInfoRegItem.Create(TJvInspectorSelectionTextListItem, TypeInfo(TSelectionTextList)));
+
+    eCache := TStringList.Create;
+    if FileExists(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg') then
+      eCache.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg');
+    for i := 1 to ParamCount do begin
+      if eCache.IndexOf(ParamStr(i)) = -1 then
+        eCache.Add(ParamStr(i));
+    end;
+    
+    for i := 0 to eCache.Count -1 do begin
+      if FileExists(eCache[i]) then begin
+        eExt := ExtractFileExt(eCache[i]);
+        eExt := LowerCase(eExt);
+        if (eExt = '.sma') or (eExt = '.inc') then // PAWN files
+          PAWNProjects.Open(eCache[i])
+        else if (eExt = '.cpp') or (eExt = '.h') then // C++ files
+          CPPProjects.Open(eCache[i])
+        else if (eExt = '.htm') or (eExt = '.html') then // HTML files
+          OtherProjects.Open(eCache[i], 'HTML')
+        else if (eExt = '.sql') then // SQL databases
+          OtherProjects.Open(eCache[i], 'SQL')
+        else if (eExt = '.xml') then // XML files
+          OtherProjects.Open(eCache[i], 'XML')
+        else // Other files and/or Textfiles
+          OtherProjects.Open(eCache[i], 'null');
+      end;
+    end;
+    eCache.Free;
+
+    if PAWNProjects.Count > 1 then
+      PAWNProjects.Close(0);
+    if CPPProjects.Count > 1 then
+      CPPProjects.Close(0);
+    if OtherProjects.Count > 1 then
+      OtherProjects.Close(0);
+
+    ActivateProjects(0, False); // Started := True is already set here
+    PAWNProjects.Activate(PAWNProjects.Count -1, False, False); 
+    UpdateCI;
+    LoadPlugins;
+  end;
+
+  tmrHide.Enabled := True;
+end;
+
+procedure TfrmSplashscreen.OnMessage(var Msg: TMsg; var Handled: Boolean);
+begin
+  Handled := not Plugin_AppMsg(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam, Msg.time, Msg.pt);
+end;
+
+procedure TfrmSplashscreen.tmrHideTimer(Sender: TObject);
+begin
+  Hide;
+  frmMain.Show;
+
+  tmrHide.Enabled := False;
+end;
+
+end.

editor/studio/UnitfrmTextAnalyze.~pa

@@ -0,0 +1,198 @@
+unit UnitfrmTextAnalyze;
+
+interface
+
+uses SysUtils, Classes;
+
+type TPAWNParseResult = class
+  public
+
+end
+
+function ParseCodePAWN(eCode: TStringList): TPAWNParseResult;
+
+implementation
+
+function ParseCodePAWN(eCode: TStringList): TPAWNParseResult;
+var i, k: integer;
+    eTrimmed, eLowered, eNoComments: String;
+    eStr, ePreEvents: TStringList;
+    eStartLine, eBracesOpen: Integer;
+    eTemp: String;
+begin
+  Synchronize(GetCodeAndPos);
+  eConstants.Clear;
+  eDefined.Clear;
+  eCVars.Clear;
+  eIncluded.Clear;
+  eMethodsDefault.Clear;
+  eMethodsEvents.Clear;
+  eStocks.Clear;
+  eNatives.Clear;
+  eForwards.Clear;
+  eVariables.Clear;
+  ePreEvents.Clear;
+  eBracesOpen := 0;
+  eCurrLine := 0;
+  eStartLine := -1;
+  for i := 0 to eCode.Count -1 do begin
+    eTrimmed := Trim(eCode[i]);
+    eLowered := LowerCase(eTrimmed);
+    eNoComments := RemoveStringsAndComments(eTrimmed);
+
+    { Constants and Variables }
+    if (Pos('new ', eLowered) = 1) and (eBracesOpen = 0) then begin // const or variable
+      Delete(eTrimmed, 1, 4);
+      eLowered := Trim(eTrimmed);
+      // we don't need braces so delete them...
+      while (CountChars(eTrimmed, '{') = CountChars(eTrimmed, '}')) and (CountChars(eTrimmed, '{') <> 0) and (Pos('{', eTrimmed) < Pos('}', eTrimmed)) do
+        eTrimmed := StringReplace(eTrimmed, '{' + Between(eTrimmed, '{', '}') + '}', '', [rfReplaceAll]);
+      while (CountChars(eTrimmed, '[') = CountChars(eTrimmed, ']')) and (CountChars(eTrimmed, '[') <> 0) and (Pos('[', eTrimmed) < Pos(']', eTrimmed)) do
+        eTrimmed := StringReplace(eTrimmed, '[' + Between(eTrimmed, '[', ']') + ']', '', [rfReplaceAll]);
+      // done? okay, split all items if there are more than one; and if not, it's okay...
+      eStr.Text := StringReplace(eTrimmed, ',', #13, [rfReplaceAll]);
+      for k := 0 to eStr.Count -1 do begin
+        if Trim(eStr[k]) <> '' then begin
+          if Pos(':', eStr[k]) <> 0 then
+            eStr[k] := Copy(eStr[k], Pos(':', eStr[k]) +1, Length(eStr[k]));
+          eStr[k] := Trim(RemoveSemicolon(eStr[k]));
+          if Pos('=', eStr[k]) <> 0 then // constant
+            eConstants.AddObject(Copy(eStr[k], 1, Pos('=', eStr[k]) -1), TObject(i))
+          else
+            eVariables.AddObject(eStr[k], TObject(i));
+          end;
+        end;
+      end
+      { Included }
+      else if Pos('#include ', eLowered) = 1 then begin
+        if Between(eTrimmed, '<', '>') <> '' then begin
+          eTrimmed := Between(eTrimmed, '<', '>');
+          if ExtractFileExt(eTrimmed) <> '' then
+            ChangeFileExt(eTrimmed, '');
+        end
+        else if Between(eTrimmed, '"', '"') <> '' then begin
+          eTrimmed := Between(eTrimmed, '"', '"');
+          if ExtractFileExt(eTrimmed) <> '' then
+            ChangeFileExt(eTrimmed, '');
+        end
+        else begin
+          eTrimmed := Copy(eTrimmed, 9, Length(eTrimmed));
+          if ExtractFileExt(eTrimmed) <> '' then
+            ChangeFileExt(eTrimmed, '');
+        end;
+        eTrimmed := Trim(eTrimmed);
+        eIncluded.AddObject(eTrimmed, TObject(i));
+      end
+      { CVars }
+      else if Pos('register_cvar(', eLowered) = 1 then begin
+        if Between(eTrimmed, '"', '"') <> '' then
+          eCVars.AddObject(Between(eTrimmed, '"', '"'), TObject(i));
+      end
+      { Defined }
+      else if Pos('#define ', eLowered) = 1 then begin
+        eTrimmed := Copy(eTrimmed, 8, Length(eTrimmed));
+        eTrimmed := Trim(eTrimmed);
+        if Pos(#32, eTrimmed) <> 0 then
+          eTrimmed := Copy(eTrimmed, 1, Pos(#32, eTrimmed) -1);
+        eDefined.AddObject(eTrimmed, TObject(i));
+      end
+      { Events (Part 1) }
+      else if Pos('register_event(', eLowered) = 1 then begin
+        if CountChars(eLowered, '"') >= 4 then
+          ePreEvents.Add(Between(eTrimmed, '"', '"'));
+      end;
+
+      { Functions, this is adapted from AMXX-Edit v2 [see TextAnalyze.pas] }
+      if Pos('{', eNoComments) <> 0 then begin
+        if eStartLine = -1 then
+          eStartLine := i;
+        Inc(eBracesOpen, CountChars(eTrimmed, '{'));
+      end;
+      if Pos('}', eNoComments) <> 0 then begin
+        Inc(eBracesOpen, -CountChars(eTrimmed, '}'));
+        if (eBracesOpen = 0) then begin
+          eTemp := Trim(StringReplace(eCode[eStartLine], '{', '', [rfReplaceAll]));
+          // Analyze type
+          k := 0;
+          if Pos('public ', LowerCase(eTemp)) = 1 then
+            k := 1
+          else if Pos('stock ', LowerCase(eTemp)) = 1 then
+            k := 2
+          else if Pos('native ', LowerCase(eTemp)) = 1 then
+              k := 3
+            else if Pos('forward ', LowerCase(eTemp)) = 1 then
+              k := 4;
+            // Remove type
+            if (Pos(#32, eTemp) <> 0) and (Pos(#32, eTemp) < Pos('(', eTemp)) then
+              eTemp := Copy(eCode[eStartLine], Pos(#32, eCode[eStartLine]) +1, Length(eCode[eStartLine]));
+            // Copy function-name
+            if Pos('(', eTemp) <> 0 then
+              eTemp := Copy(eTemp, 1, Pos('(', eTemp) -1);
+            // Remove return-type
+            if Pos(':', eTemp) <> 0 then
+              Delete(eTemp, 1, Pos(':', eTemp));
+            eTemp := Trim(eTemp);
+
+            if eTemp <> '' then begin
+              case k of
+                0: eMethodsDefault.AddObject(eTemp, TObject(i)); // Default Method
+                1: begin
+                  k := ePreEvents.IndexOf(eTemp);
+                  if k <> -1 then begin
+                    eMethodsEvents.AddObject(eTemp, ePreEvents.Objects[k]);
+                    ePreEvents.Delete(k);
+                  end
+                  else
+                    eMethodsDefault.AddObject(eTemp, TObject(i));
+                end;
+                2: eStocks.AddObject(eTemp, TObject(i));
+                3: eNatives.AddObject(eTemp, TObject(i));
+                4: eForwards.AddObject(eTemp, TObject(i));
+              end;
+            end;
+            eStartLine := -1;
+            eBracesOpen := -2;
+          end;
+        end;
+        if (Pos('forward ', eLowered) = 1) or (Pos('public ', eLowered) = 1) or (Pos('native ', eLowered) = 1) or (Pos('stock ', eLowered) = 1) then begin
+          eBracesOpen := 0;
+          if ((Pos('{', eLowered) = 0)) or (Pos('{', eLowered) <> 0) and (Pos('}', eLowered) <> 0) then begin
+            eTemp := eTrimmed;
+            // Remove type
+            if (Pos(#32, eTemp) <> 0) and (Pos(#32, eTemp) < Pos('(', eTemp)) then
+              eTemp := Copy(eTemp, Pos(#32, eTemp) +1, Length(eTemp));
+            // Copy function-name
+            if Pos('(', eTemp) <> 0 then
+              eTemp := Copy(eTemp, 1, Pos('(', eTemp) -1);
+            // Remove return-type
+            if Pos(':', eTemp) <> 0 then
+              Delete(eTemp, 1, Pos(':', eTemp));
+            eTemp := Trim(eTemp);
+            
+            if eTemp <> '' then begin
+              if Pos('forward', eLowered) = 1 then
+                eForwards.AddObject(eTrimmed, TObject(i))
+              else if Pos('public', eLowered) = 1 then begin
+                k := ePreEvents.IndexOf(eTemp);
+                if k <> -1 then begin
+                  eMethodsEvents.AddObject(eTemp, ePreEvents.Objects[k]);
+                  ePreEvents.Delete(k); 
+                end
+                else
+                  eMethodsDefault.Add(eTemp);  
+              end
+              else if Pos('native', eLowered) = 1 then
+                eNatives.AddObject(eTemp, TObject(i))
+              else if Pos('stock', eLowered) = 1 then
+                eStocks.AddObject(eTemp, TObject(i))
+              else
+                eMethodsDefault.AddObject(eTemp, TObject(i));
+            end;
+          end;
+        end;
+
+        Sleep(5);
+      end;
+end;
+
+end.