* May 18th, 2005: Starting to develop AMXX-Edit v2 as a kind of open source

editor/editor2/AMXX_Edit_v2.cfg

@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\programme\borland\delphi7\Projects\Bpl"
+-LN"c:\programme\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

editor/editor2/AMXX_Edit_v2.dof

@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;VclSmp;dbrtl;dbexpress;vcldb;dsnap;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;JvStdCtrlsD7R;JvAppFrmD7R;JvCoreD7R;JvBandsD7R;JvBDED7R;JvDBD7R;JvDlgsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;qrpt;JvGlobusD7R;JvHMID7R;JvInspectorD7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvSystemD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;Indy70;FlatStyle_D5;CrossKylix;DJcl;DelphiX_for7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1031
+CodePage=1252
+[Version Info Keys]
+CompanyName=AMX Mod X
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=

editor/editor2/AMXX_Edit_v2.dpr

@@ -0,0 +1,72 @@
+program AMXX_Edit_v2;
+
+{
+  AMXX-Edit v2
+
+  Editor for AMX Mod X scripts, coded by Basic-Master
+  © by AMX Mod X Development Team
+
+  This application uses the following components:
+
+  DelphiSci: delphisci.sourceforge.net (based on Scintilla library: scintilla.sourceforge.net)
+  FlatStyle by Maik Porkert (found on www.torry.net)
+  GlyFX Icons: www.glyfx.com (using GlyFX Icon Pack of Delphi 2005 PE)
+  Modified CorelButton (see CorelButton.pas, original by ConquerWare)
+  Indy 9 Socket Components: www.indyproject.org
+
+  AMXX-Edit v2 is published under GNU General Public License and comes
+  with ABSOLUTELY NO WARRANTY (see GPL.txt for more information)
+}
+
+
+uses
+  Forms,
+  Windows,
+  Classes,
+  SysUtils,
+  UnitfrmMain in 'UnitfrmMain.pas' {frmMain},
+  UnitfrmOptions in 'UnitfrmOptions.pas' {frmSettings},
+  UnitfrmDebug in 'UnitfrmDebug.pas' {frmDebug},
+  UnitFunc in 'UnitFunc.pas',
+  UnitfrmAbout in 'UnitfrmAbout.pas' {frmAbout},
+  UnitfrmGoToLine in 'UnitfrmGoToLine.pas' {frmGoToLine},
+  UnitfrmSaveDialog in 'UnitfrmSaveDialog.pas' {frmSaveDialog},
+  UnitTextAnalyze in 'UnitTextAnalyze.pas',
+  UnitfrmMenuMaker in 'UnitfrmMenuMaker.pas' {frmMenuMaker},
+  UnitAddMenu in 'UnitAddMenu.pas',
+  UnitfrmSelectMenu in 'UnitfrmSelectMenu.pas' {frmSelectMenu},
+  UnitHowToMakePlayerMenu in 'UnitHowToMakePlayerMenu.pas' {frmHowToMakePlayerMenu},
+  UnitfrmSockets in 'UnitfrmSockets.pas' {frmSocketTerminal},
+  UnitReadThread in 'UnitReadThread.pas',
+  UnitfrmLoopGenerator in 'UnitfrmLoopGenerator.pas' {frmLoopGenerator};
+
+{$R *.res}
+
+var i: integer;
+begin
+  if (FindWindow('TfrmMain', 'AMXX-Edit v2') <> 0) then begin // Don't allow 2 starts...
+    for i := 1 to ParamCount do begin
+      if FileExists(ParamStr(i)) then
+        SendOpen(ParamStr(i));         // ... and send open message to the other app
+    end;
+    ShowWindow(FindWindow('TfrmMain', 'AMXX-Edit v2'), SW_SHOW);
+    SetForegroundWindow(FindWindow('TfrmMain', 'AMXX-Edit v2'));
+    exit;
+  end;
+  Application.Initialize;
+  Application.Title := 'AMXX-Edit v2';
+  Application.CreateForm(TfrmMain, frmMain);
+  Application.CreateForm(TfrmSettings, frmSettings);
+  Application.CreateForm(TfrmDebug, frmDebug);
+  Application.CreateForm(TfrmAbout, frmAbout);
+  Application.CreateForm(TfrmGoToLine, frmGoToLine);
+  Application.CreateForm(TfrmSaveDialog, frmSaveDialog);
+  Application.CreateForm(TfrmMenuMaker, frmMenuMaker);
+  Application.CreateForm(TfrmSelectMenu, frmSelectMenu);
+  Application.CreateForm(TfrmHowToMakePlayerMenu, frmHowToMakePlayerMenu);
+  Application.CreateForm(TfrmSocketTerminal, frmSocketTerminal);
+  Application.CreateForm(TfrmLoopGenerator, frmLoopGenerator);
+  Load;
+  Apply;
+  Application.Run;
+end.

editor/editor2/UnitAddMenu.pas

@@ -0,0 +1,436 @@
+unit UnitAddMenu;
+
+interface
+
+uses SysUtils, Classes, Graphics, Dialogs, Windows;
+
+function AddMenu: Boolean;
+function AddPlayerMenu: Boolean;
+function GetFirst(eStart: String; eSearchMain: Boolean): Integer;
+function GetLast(eStart: String; eSearchMain: Boolean): Integer;
+function AddIfDoesntExist(eInclude: String): Boolean;
+
+implementation
+
+uses UnitfrmMenuMaker, UnitfrmMain, UnitTextAnalyze, UnitFunc;
+
+{ Normal Menu }
+
+function AddMenu: Boolean;
+var eColoredMenu, DefinedKeys: String;
+    i: integer;
+    eStr: TStringList;
+begin
+  Result := GetFirst('public Show' + frmMenuMaker.txtMenuName.Text, True) = -1;
+  if not Result then
+    exit;
+    
+  eStr := TStringList.Create;
+  { Transform text }
+  eColoredMenu := frmMenuMaker.GetColoredMenu;
+  if frmMenuMaker.chkAppendOnlyMenuText.Checked then begin
+    frmMain.sciEditor.Lines.Add('// Created menu: ' + eColoredMenu);
+    exit; 
+  end;
+  { Add functions }
+  eStr.Add(Format('public Show%s(id) {', [frmMenuMaker.txtMenuName.Text]));
+  eStr.Add('	show_menu(id, Keys' + frmMenuMaker.txtMenuName.Text + ', "' + eColoredMenu + '", -1, "' + frmMenuMaker.txtMenuName.Text + '")');
+  if frmMenuMaker.chkAddComment.Checked then
+    eStr[eStr.Count -1] := eStr[eStr.Count -1] + ' // Display menu';
+  eStr.Add('}');
+  eStr.Add('');
+  eStr.Add('public Pressed' + frmMenuMaker.txtMenuName.Text + '(id, key) {');
+  if frmMenuMaker.chkAddComment.Checked then begin
+    eStr.Add('	/* Menu:');
+    for i := 0 to frmMenuMaker.rtfEditor.Lines.Count -1 do
+      eStr.Add('	* ' + frmMenuMaker.rtfEditor.Lines[i]);
+    eStr.Add('	*/');
+    eStr.Add(''); 
+  end;
+  eStr.Add('	switch (key) {');
+  DefinedKeys := '';
+  for i := 1 to Length(frmMenuMaker.txtKeys.Text) do begin
+    if frmMenuMaker.txtKeys.Text[i] = '0' then begin
+      DefinedKeys := DefinedKeys + '|(1<<9)';
+      if frmMenuMaker.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(frmMenuMaker.txtKeys.Text[i]) -1) + ')';
+      if frmMenuMaker.chkAddComment.Checked then
+        eStr.Add('		case ' + IntToStr(StrToInt(frmMenuMaker.txtKeys.Text[i]) -1) + ': { // ' + frmMenuMaker.txtKeys.Text[i])
+      else
+        eStr.Add('		case ' + IntToStr(StrToInt(frmMenuMaker.txtKeys.Text[i]) -1) + ': {');
+      eStr.Add('			');
+      eStr.Add('		}');
+    end;
+  end;
+  Delete(DefinedKeys, 1, 1);
+  if frmMenuMaker.chkAddComment.Checked then
+    DefinedKeys := DefinedKeys + ' // Keys: ' + frmMenuMaker.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', [frmMenuMaker.txtMenuName.Text, DefinedKeys]));
+  frmMain.sciEditor.Lines.Text := frmMain.sciEditor.Lines.Text + #13 + eStr.Text;
+  if frmMenuMaker.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("' + frmMenuMaker.txtMenuName.Text + '"), Keys' + frmMenuMaker.txtMenuName.Text + ', "Pressed' + frmMenuMaker.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("' + frmMenuMaker.txtMenuName.Text + '"), Keys' + frmMenuMaker.txtMenuName.Text + ', "Pressed' + frmMenuMaker.txtMenuName.Text + '")');
+  end;
+  frmMain.SetModified;
+  eStr.Free;
+  UpdateList(frmMain.sciEditor.Lines.Text);
+end;
+
+{ Player Menu }
+
+function AddPlayerMenu: 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' + frmMenuMaker.txtMenu.Text, True) = -1;
+  if not Result then begin
+    MessageBox(frmMenuMaker.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 := frmMenuMaker.rtfEditor.Lines[0];
+  eCurLineIndex := 0;
+  eNext := -1;
+  eExit := -1;
+  eStr := TStringList.Create;
+  // Prepare Values
+  try
+    { Players }
+    eCurLineIndex := GetFirst('$players', False);
+    eCurLine := frmMenuMaker.rtfEditor.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 := frmMenuMaker.rtfEditor.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 := frmMenuMaker.rtfEditor.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(frmMenuMaker.Handle, PChar(Format('Syntax error at line %s: ' + #13 + '%s', [IntToStr(eCurLineIndex +1), frmMenuMaker.rtfEditor.Lines[eCurLineIndex]])), 'Error', MB_ICONERROR);
+    Result := False;
+    exit;
+  end;
+  // Check Keys
+  { Players }
+  if (ePlayersFrom < 0) or (ePlayersFrom > ePlayersTo) then begin
+    MessageBox(frmMenuMaker.Handle, 'Invalid start key (players)', 'Warning', MB_ICONWARNING);
+    Result := False;
+    exit;
+  end;
+  if (ePlayersTo < 0) or (ePlayersTo > 9) then begin
+    MessageBox(frmMenuMaker.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(frmMenuMaker.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(frmMenuMaker.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', [frmMenuMaker.txtMenu.Text, DefinedKeys]));
+    frmMain.sciEditor.Lines.Insert(i +1, 'new MenuPos' + frmMenuMaker.txtMenu.Text);
+    frmMain.sciEditor.Lines.Insert(i +2, 'new MenuPlayers' + frmMenuMAker.txtMenu.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("' + frmMenuMaker.txtMenu.Text + '"), Keys' + frmMenuMaker.txtMenu.Text + ', "Pressed' + frmMenuMaker.txtMenu.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("' + frmMenuMaker.txtMenu.Text + '"), Keys' + frmMenuMaker.txtMenu.Text + ', "Pressed' + frmMenuMaker.txtMenu.Text + '")');
+    { Show Menu Functions (thx to xeroblood for code example) }
+    eStr.Clear;
+    eStr.Add('public Show' + frmMenuMaker.txtMenu.Text + '(id) {');
+    eStr.Add('	ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, MenuPos' + frmMenuMaker.txtMenu.Text + ' = 0)');
+    eStr.Add('	return PLUGIN_HANDLED');
+    eStr.Add('}');
+    eStr.Add('');
+    eStr.Add('public ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, position) {');
+    if frmMenuMaker.chkComments.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' + frmMenuMaker.txtMenu.Text + ', Num)');
+    eStr.Add('	if (Start >= Num) { Start = position = MenuPos' + frmMenuMaker.txtMenu.Text + ' = 0; }');
+    eCurLine := frmMenuMaker.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' + frmMenuMaker.txtMenu.Text + '[i]');
+    eStr.Add('		get_user_name(k, UserName, 31)');
+    // Any conditions?
+    if (frmMenuMaker.chkImmunity.Checked) and (frmMenuMaker.chkAlive.Checked) then
+      eStr.Add('		if ((get_user_flags(k) & ADMIN_IMMUNITY) || !is_user_alive(k)) {')
+    else if (frmMenuMaker.chkImmunity.Checked) then
+      eStr.Add('		if (get_user_flags(k) & ADMIN_IMMUNITY) {')
+    else if (frmMenuMaker.chkAlive.Checked) then
+      eStr.Add('		if (!is_user_alive(k)) {');
+    if (frmMenuMaker.chkImmunity.Checked) or (frmMenuMaker.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' + frmMenuMaker.txtMenu.Text + '(id, key) {');
+    eStr.Add('	switch (key) {');
+    if frmMenuMaker.chkComments.Checked then begin
+      if eNext <> 0 then
+        eStr.Add('		case ' + IntToStr(eNext -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ') // More Option')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ') // More Option');
+
+      if eExit <> 0 then
+        eStr.Add('		case ' + IntToStr(eExit -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ') // Back Option')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ') // Back Option');
+    end
+    else begin
+      if eNext <> 0 then
+        eStr.Add('		case ' + IntToStr(eNext -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ')')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ')');
+      if eExit <> 0 then
+        eStr.Add('		case ' + IntToStr(eExit -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ')')
+      else
+        eStr.Add('		case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ')');
+    end;
+    eStr.Add('		default: {');
+    if frmMenuMaker.chkComments.Checked then
+      eStr.Add('			// Get User ID and Username');
+    eStr.Add('			new PlayerID = MenuPlayers' + frmMenuMaker.txtMenu.Text + '[MenuPos' + frmMenuMaker.txtMenu.Text + ' * ' + IntToStr(ePlayersTo - ePlayersFrom) + ' + key]');
+    eStr.Add('			new UserName[32]');
+    eStr.Add('			get_user_name(PlayerID, UserName, 31)');
+    if frmMenuMaker.chkComments.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(frmMenuMaker.Handle, PChar('An error occured while inserting code!'), 'Warning', MB_ICONWARNING);
+  end;
+  frmMain.SetModified;
+  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 frmMenuMaker.rtfEditor.Lines.Count -1 do begin
+      if Pos(eStart, LowerCase(Trim(frmMenuMaker.rtfEditor.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 frmMenuMaker.rtfEditor.Lines.Count -1 do begin
+      if Pos(eStart, LowerCase(Trim(frmMenuMaker.rtfEditor.Lines[i]))) = 1 then
+        Result := i;
+    end;
+  end;
+end;
+
+function AddIfDoesntExist(eInclude: String): Boolean;
+var i: integer;
+    eLine: String;
+begin
+  Result := True;
+  eInclude := RemoveSpaces(LowerCase(eInclude));
+  for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+    eLine := LowerCase(RemoveSpaces(frmMain.sciEditor.Lines[i]));
+    eLine := StringReplace(eLine, '<', '', [rfReplaceAll]);
+    eLine := StringReplace(eLine, '>', '', [rfReplaceAll]);
+    eLine := StringReplace(eLine, '"', '', [rfReplaceAll]);
+    if eLine = '#include' + eInclude then begin
+      Result := False;
+      exit;
+    end;
+  end;
+
+  i := GetLast('#include', True);
+  if i = -1 then
+    i := 0;
+    
+  frmMain.sciEditor.Lines.Insert(i, '#include <' + eInclude + '>');
+end;
+
+end.

editor/editor2/UnitFunc.pas

@@ -0,0 +1,649 @@
+unit UnitFunc;
+
+interface
+
+uses SysUtils, Classes, IniFiles, Graphics, ScintillaLanguageManager,
+     Windows, Messages, SciLexerMod, tlhelp32, Controls, Forms, SciDocuments;
+
+procedure Delay(eTime: Integer);
+function CountChars(eIn: String; eChar: Char): Integer;
+function Between(eText, eFirst, eSecond: String): String;
+procedure SendOpen(eFile: String);
+procedure Load;
+procedure Save;
+procedure Apply;
+function GetConsoleOutput(const Command: String): Boolean;
+procedure KillIt(dwProcID: DWORD);
+function GetProcID(sProcName: String): Integer;
+procedure DoCompile;
+function ShowSaveDialog(Caption, SaveCaption, CloseCaption: String): Boolean;
+procedure AppendFileExt;
+function RemoveSpaces(eInput: String): String;
+
+var eErrorLine: Integer;
+    eHints, eWarnings, eErrors: Integer;
+
+implementation
+
+uses UnitfrmMain, UnitfrmOptions, UnitfrmAbout,
+  UnitfrmDebug, UnitfrmSaveDialog;
+
+procedure Delay(eTime: Integer);
+var i: integer;
+begin
+  for i := 1 to eTime do begin
+    Sleep(1);
+    Application.ProcessMessages;
+  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;
+
+procedure SendOpen(eFile: String);
+var HTargetWnd: HWND;
+    ACopyDataStruct: TCopyDataStruct;  
+begin
+  with ACopyDataStruct do  
+  begin  
+    dwData := 0;  
+    cbData := Length(eFile) + 1;
+    lpData := PChar(eFile);  
+  end;  
+
+  HTargetWnd := FindWindow('TfrmMain', 'AMXX-Edit v2');  
+
+  if HTargetWnd <> 0 then  
+    SendMessage(HTargetWnd, WM_COPYDATA, 0, LongInt(@ACopyDataStruct));
+end;
+
+procedure Load;
+var eFile: TIniFile;
+begin
+  if not FileExists(ExtractFilePath(ParamStr(0)) + 'Config.ini') then
+    exit;
+    
+  eFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
+  with frmSettings do begin
+    { Editor }
+    cboFoldingStyle.ItemIndex := eFile.ReadInteger('Editor', 'FoldingStyle', 0);
+    chkAutoComplete.Checked := eFile.ReadBool('Editor', 'Auto-Complete', True);
+    chkHints.Checked := eFile.ReadBool('Editor', 'Hints', True);
+    chkHighlighting.Checked := eFile.ReadBool('Editor', 'Highlighting', True);
+    chkAutoIndent.Checked := eFile.ReadBool('Editor', 'AutoIndent', True);
+    chkBrackets.Checked := eFile.ReadBool('Editor', 'HighlightBrackets', True); 
+    { Directories }
+    txtAMXXPath.Text := eFile.ReadString('Directories', 'AMXX', '');
+    txtHalfLife.Text := eFile.ReadString('Directories', 'Half-Life', '');
+    txtSave.Text := eFile.ReadString('Directories', 'SaveTarget', '');
+    { Colors }
+    cboComments.Selected := eFile.ReadInteger('Colors', 'Comments', clGreen);
+    cboDirectives.Selected := eFile.ReadInteger('Colors', 'Directives', clTeal);
+    cboOperators.Selected := eFile.ReadInteger('Colors', 'Operators', clNavy);
+    cboStrings.Selected := eFile.ReadInteger('Colors', 'Strings', clBlue);
+    cboKeywords.Selected := eFile.ReadInteger('Colors', 'Keywords', clRed);
+    cboActiveLine.Selected := eFile.ReadInteger('Colors', 'ActiveLine', $00FFE6E6);
+    { FTP }
+    txtHost.Text := eFile.ReadString('FTP', 'Host', '');
+    txtPort.Text := IntToStr(eFile.ReadInteger('FTP', 'Port', 21));
+    txtUser.Text := eFile.ReadString('FTP', 'Username', '');
+    txtPassword.Text := eFile.ReadString('FTP', 'Password', '');
+    txtStandardDir.Text := eFile.ReadString('FTP', 'DefaultDir', '\');
+    { View }
+    cboCodeExplorer.ItemIndex := eFile.ReadInteger('View', 'ShowCodeExplorer', 0);
+    chkStatusbar.Checked := eFile.ReadBool('View', 'Statusbar', True); 
+    { Char completer }
+    frmSettings.chkAutoCloseBrackets.Checked := eFile.ReadBool('CharCompleter', 'AutoCloseBrackets', False);
+    frmSettings.chkAutoCloseQuotes.Checked := eFile.ReadBool('CharCompleter', 'AutoCloseQuotes', False);
+    { Compiler Output }
+    if eFile.ReadBool('View', 'CompileOutputInWindow', True) then
+      frmSettings.optWindow.Checked := True
+    else
+      frmSettings.optList.Checked := True;
+    { Misc }
+    chkReload.Checked := eFile.ReadBool('Misc', 'AutoReload', True);
+    chkAutoAddPlugins.Checked := eFile.ReadBool('Misc', 'AutoAdd', True);
+  end;
+  eFile.Free;
+end;
+
+procedure Save;
+var eFile: TIniFile;
+begin
+  eFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
+  with frmSettings do begin
+    { Editor }
+    eFile.WriteInteger('Editor', 'FoldingStyle', cboFoldingStyle.ItemIndex);
+    eFile.WriteBool('Editor', 'Auto-Complete', chkAutoComplete.Checked);
+    eFile.WriteBool('Editor', 'Hints', chkHints.Checked);
+    eFile.WriteBool('Editor', 'Highlighting', chkHighlighting.Checked);
+    eFile.WriteBool('Editor', 'AutoIndent', chkAutoIndent.Checked);
+    eFile.WriteBool('Editor', 'HighlightBrackets', chkBrackets.Checked); 
+    { Directories }
+    eFile.WriteString('Directories', 'AMXX', txtAMXXPath.Text);
+    eFile.WriteString('Directories', 'Half-Life', txtHalfLife.Text);
+    eFile.WriteString('Directories', 'SaveTarget', txtSave.Text);
+    { Colors }
+    eFile.WriteInteger('Colors', 'Comments', cboComments.Selected);
+    eFile.WriteInteger('Colors', 'Directives', cboDirectives.Selected);
+    eFile.WriteInteger('Colors', 'Operators', cboOperators.Selected);
+    eFile.WriteInteger('Colors', 'Strings', cboStrings.Selected);
+    eFile.WriteInteger('Colors', 'Keywords', cboKeywords.Selected);
+    eFile.WriteInteger('Colors', 'ActiveLine', cboActiveLine.Selected); 
+    { FTP }
+    eFile.WriteString('FTP', 'Host', txtHost.Text);
+    eFile.WriteString('FTP', 'Port', txtPort.Text);
+    eFile.WriteString('FTP', 'Username', txtUser.Text);
+    eFile.WriteString('FTP', 'Password', txtPassword.Text);
+    eFile.WriteString('FTP', 'DefaultDir', txtStandardDir.Text);
+    { View }
+    eFile.WriteInteger('View', 'ShowCodeExplorer', cboCodeExplorer.ItemIndex);
+    eFile.WriteBool('View', 'Statusbar', chkStatusbar.Checked); 
+    { Char completer }
+    eFile.WriteBool('CharCompleter', 'AutoCloseBrackets', frmSettings.chkAutoCloseBrackets.Checked);
+    eFile.WriteBool('CharCompleter', 'AutoCloseQuotes', frmSettings.chkAutoCloseQuotes.Checked);
+    { Compiler Output }
+    eFile.WriteBool('View', 'CompileOutputInWindow', frmSettings.optWindow.Checked);
+    { Misc }
+    eFile.WriteBool('Misc', 'AutoReload', chkReload.Checked);
+    eFile.WriteBool('Misc', 'AutoAdd', chkAutoAddPlugins.Checked);
+  end;
+  eFile.Free;
+end;
+
+procedure Apply;
+function PathComplete(eInput: String): String;
+var eBackup: String;
+begin
+  if Trim(eInput) = '' then
+    exit;
+    
+  eBackup := eInput;
+  while Length(eInput) > 1 do
+    Delete(eInput, 1, 1);
+  if eInput <> '\' then
+    Result := eBackup + '\'
+  else
+    Result := eBackup;
+end;
+
+begin
+  with frmMain do begin
+    { Folding }
+    case frmSettings.cboFoldingStyle.ItemIndex of
+      0: sciEditor.FoldMarkerType := sciMarkArrows;
+      1: sciEditor.FoldMarkerType := sciMarkBox;
+      2: sciEditor.FoldMarkerType := sciMarkCircle;
+      3: sciEditor.FoldMarkerType := sciMarkPlusMinus;
+    end;
+    if frmSettings.cboFoldingStyle.ItemIndex = 4 then
+      sciEditor.Folding := sciEditor.Folding - [foldFold]
+    else
+      sciEditor.Folding := sciEditor.Folding + [foldFold];
+    { Auto Complete }
+    sacComplete.Disabled := not frmSettings.chkAutoComplete.Checked;
+    { Hints }
+    cltEditor.Disabled := not frmSettings.chkHints.Checked;
+    { Colors }
+    with sciEditor.LanguageManager.LanguageList.Find('SMALL').Styles do begin
+      TSciStyle(Items[0]).ForeColor := frmSettings.cboComments.Selected;
+      TSciStyle(Items[1]).ForeColor := frmSettings.cboDirectives.Selected;
+      TSciStyle(Items[2]).ForeColor := frmSettings.cboOperators.Selected;
+      TSciStyle(Items[3]).ForeColor := frmSettings.cboStrings.Selected;
+      TSciStyle(Items[4]).ForeColor := frmSettings.cboKeywords.Selected;
+      TSciStyle(Items[5]).ForeColor := frmSettings.cboComments.Selected;
+      TSciStyle(Items[6]).ForeColor := TSciStyle(Items[2]).ForeColor;
+    end;
+    frmMain.sciEditor.Caret.LineBackColor := frmSettings.cboActiveLine.Selected;
+
+    if frmSettings.chkHighlighting.Checked then
+      frmMain.sciEditor.LanguageManager.SelectedLanguage := 'SMALL'
+    else
+      frmMain.sciEditor.LanguageManager.SelectedLanguage := 'null';
+    { Check directories }
+    frmSettings.txtAMXXPath.Text := PathComplete(frmSettings.txtAMXXPath.Text);
+    frmSettings.txtSave.Text := PathComplete(frmSettings.txtSave.Text);
+    { View }
+    case frmSettings.cboCodeExplorer.ItemIndex of
+      0: begin
+        frmMain.splFunctions.Visible := True;
+        frmMain.pnlFunctions.Visible := True;
+        frmMain.pnlFunctions.Width := 150;
+        frmMain.pnlSpacerLeft.Cursor := crDefault;
+      end;
+      1: begin
+        frmMain.splFunctions.Visible := False;
+        frmMain.pnlFunctions.Visible := True;
+        frmMain.pnlFunctions.Width := 5;
+        frmMain.pnlSpacerLeft.Cursor := crHSplit;
+      end;
+      2: begin
+        frmMain.pnlFunctions.Visible := False;
+        frmMain.splFunctions.Visible := False;
+        frmMain.pnlSpacerLeft.Cursor := crDefault;
+      end;
+    end;
+    frmMain.sbInfo.Visible := frmSettings.chkStatusbar.Checked;
+    frmMain.sciEditor.BraceHilite := frmSettings.chkBrackets.Checked;
+    { Char completer }
+    frmMain.sciEditor.AutoCloseBraces := frmSettings.chkAutoCloseBrackets.Checked;
+    frmMain.sciEditor.AutoCloseQuotes := frmSettings.chkAutoCloseQuotes.Checked;
+  end;
+end;
+
+procedure DoAdd(eStream: TMemoryStream);
+var eStr: TStringList;
+    i: integer;
+    eErrLine: Integer;
+    eType, eBackup, eTemp: String;
+begin
+  eStr := TStringList.Create;
+  eStr.LoadFromStream(eStream);
+  
+  eHints := 0;
+  eWarnings := 0;
+  eErrors := 0;
+  eType := '';
+  eErrorLine := -1;
+  
+  for i := 2 to eStr.Count -1 do begin
+    try
+      if eStr[i] <> '' then begin
+        if (Pos(': fatal error', eStr[i]) <> 0) or (Pos(': error', eStr[i]) <> 0) or (Pos(': warning', eStr[i]) <> 0) or (Pos(': hint', eStr[i]) <> 0) then begin
+          eBackup := eStr[i];
+          if (Pos(': fatal error', eStr[i]) <> 0) or (Pos(': error', eStr[i]) <> 0) then begin
+            Inc(eErrors, 1);
+            eType := 'Error';
+          end
+          else if Pos(': warning', eStr[i]) <> 0 then begin
+            Inc(eWarnings, 1);
+            eType := 'Warning';
+          end
+          else if Pos(': hint', eStr[i]) <> 0 then begin
+            Inc(eHints, 1);
+            eType := 'Hint';
+          end;
+
+          eErrLine := -1;
+          while (Pos('(', eStr[i]) <> 1) and (Length(eStr[i]) > 0) do
+            eStr[i] := Copy(eStr[i], 2, Length(eStr[i]));
+          try
+            eTemp := Copy(eStr[i], 2, Pos(')', eStr[i]) -2);
+            if Pos(#32, eTemp) <> 0 then
+              eTemp := Copy(eTemp, 1, Pos(#32, eTemp) -1);
+            eErrLine := StrToInt(eTemp);
+            if (eErrorLine = -1) and (eType = 'Error') then
+              eErrorLine := eErrLine;
+          except
+            if (eErrorLine = -1) and (eType = 'Error') then
+              eErrorLine := frmMain.sciEditor.Lines.Count -1;
+          end;
+          eStr[i] := Copy(eStr[i], 3, Length(eStr[i]));
+          while (Pos(':', eStr[i]) > 3) and (Length(eStr[i]) > 0) do
+            eStr[i] := Copy(eStr[i], 2, Length(eStr[i]));
+          eStr[i] := Copy(eStr[i], 4, Length(eStr[i]));
+          eStr[i] := Copy(eStr[i], Pos(':', eStr[i]) +2, Length(eStr[i]));
+          if Pos(': fatal error', eBackup) <> 0 then
+            eStr[i] := 'Fatal error: ' + eStr[i]
+          else if eStr[i] = '' then
+            eStr[i] := eBackup
+          else
+            eStr[i] := eType + ': ' + eStr[i] + ' on line ' + IntToStr(eErrLine);
+          if frmSettings.optWindow.Checked then begin
+            frmDebug.lblErrors.Caption := ' Errors: ' + IntToStr(eErrors);
+            frmDebug.lblWarnings.Caption := ' Warnings: ' + IntToStr(eWarnings);
+            frmDebug.lblHints.Caption := ' Hints: ' + IntToStr(eHints);
+          end;
+        end
+        else if (eStr[i] = 'Done.') or (Pos(' Error', eStr[i]) <> 0) or (Pos(' Warning', eStr[i]) <> 0) or (Pos(' Hint', eStr[i]) <> 0) then begin
+          if frmSettings.optWindow.Checked then begin
+            if eErrors <> 0 then
+              frmDebug.lblStatus.Caption := ' Done. There are errors.'
+            else if eWarnings <> 0 then
+              frmDebug.lblStatus.Caption := ' Done. There are warnings.'
+            else if eHints <> 0 then
+              frmDebug.lblStatus.Caption := ' Done. There are hints.'
+            else
+              frmDebug.lblStatus.Caption := ' Done.';
+            frmDebug.lblStatus.Font.Style := [fsBold];
+          end
+          else begin
+            if eErrors <> 0 then
+              frmMain.lvDebug.Items.Add.Caption := 'Done. There are errors.'
+            else if eWarnings <> 0 then
+              frmMain.lvDebug.Items.Add.Caption := 'Done. There are warnings.'
+            else if eHints <> 0 then
+              frmMain.lvDebug.Items.Add.Caption := 'Done. There are hints.'
+            else
+              frmMain.lvDebug.Items.Add.Caption := 'Done.';
+
+            if eErrorLine <> -1 then
+              frmMain.ShowErrorLine;
+            eStr.Free;
+            exit;
+          end;
+        end;
+        
+        if frmSettings.optWindow.Checked then begin
+          frmDebug.lstOutput.Items.Add(eStr[i]);
+          frmDebug.lstOutput.ItemIndex := frmDebug.lstOutput.Items.Count -1;
+          frmDebug.Repaint;
+        end
+        else begin
+          frmMain.lvDebug.Items.Add.Caption := eStr[i];
+          frmMain.lvDebug.ItemIndex := frmDebug.lstOutput.Items.Count -1;
+          frmMain.Repaint;
+        end;
+      end;
+    except
+      // nothing
+    end;
+  end;
+  eStr.Free;
+end;
+
+function GetConsoleOutput(const Command: String): Boolean;
+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;
+  Stream: TMemoryStream;
+begin
+  frmDebug.Compiling := True;
+  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(command), nil, nil, true,
+  CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,
+  StartupInfo, ProcessInfo) then begin
+    Result := True;
+    CloseHandle(PipeOutputWrite);
+    CloseHandle(PipeErrorsWrite);
+
+    Stream := TMemoryStream.Create;
+    try
+      while True do begin
+        Succeed := ReadFile(PipeOutputRead, Buffer, 255, NumberOfBytesRead, nil);
+        if not Succeed then Break;
+        Stream.Write(Buffer, NumberOfBytesRead);
+      end;
+      Stream.Position := 0;
+      DoAdd(Stream);
+    finally
+      Stream.Free;
+    end;
+    CloseHandle(PipeOutputRead);
+
+    try
+      while True do
+      begin
+        Succeed := ReadFile(PipeErrorsRead, Buffer, 255, NumberOfBytesRead, nil);
+        if not Succeed then Break;
+      end;
+    finally
+    end;
+    CloseHandle(PipeErrorsRead);
+
+    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
+    CloseHandle(ProcessInfo.hProcess);
+  end
+  else
+  begin
+    Result := False;
+    CloseHandle(PipeOutputRead);
+    CloseHandle(PipeOutputWrite);
+    CloseHandle(PipeErrorsRead);
+    CloseHandle(PipeErrorsWrite);
+  end;
+  frmDebug.Compiling := False;
+end;
+
+
+procedure KillIt(dwProcID: DWORD);
+var 
+  hProcess : Cardinal; 
+begin 
+  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID);
+  TerminateProcess(hProcess, 0); 
+end;
+
+function GetProcID(sProcName: String): Integer;
+var
+  hProcSnap: THandle; 
+  pe32: TProcessEntry32; 
+begin 
+  result := -1; 
+  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
+  if hProcSnap = INVALID_HANDLE_VALUE then exit; 
+
+  pe32.dwSize := SizeOf(ProcessEntry32); 
+
+  if Process32First(hProcSnap, pe32) = true then
+    while Process32Next(hProcSnap, pe32) = true do 
+    begin 
+      if pos(sProcName, pe32.szExeFile) <> 0 then 
+        result := pe32.th32ProcessID; 
+    end; 
+end;
+
+procedure DoCompile;
+var eStr: TStringList;
+    i: integer;
+    eFound: Boolean;
+begin
+  if (FileExists(frmSettings.txtAMXXPath.Text + 'scripting\amxxsc.exe')) and (FileExists(frmSettings.txtAMXXPath.Text + 'configs\plugins.ini')) then begin
+    if frmMain.dtcEditor.ActiveDocument.IsUntitled then begin
+      if DirectoryExists(frmSettings.txtSave.Text) then
+        frmMain.sdSave.InitialDir := frmSettings.txtSave.Text;
+
+      if frmMain.sdSave.Execute then begin
+        try
+          AppendFileExt;
+          frmMain.dtcEditor.ActiveDocument.Modified := False;
+          frmMain.dtcEditor.ActiveDocument.FileName := frmMain.sdSave.FileName;
+          frmMain.sciEditor.SaveToFile(frmMain.dtcEditor.ActiveDocument.FileName);
+        except
+          // :F
+        end;
+      end
+      else
+        exit;
+    end
+    else
+      frmMain.acSave.Execute;
+    Screen.Cursor := crHourGlass;
+    if frmSettings.chkAutoAddPlugins.Checked then begin
+      eStr := TStringList.Create;
+      eStr.LoadFromFile(frmSettings.txtAMXXPath.Text + 'configs\plugins.ini');
+      eFound := False;
+      for i := 0 to eStr.Count -1 do begin
+        if Pos(ChangeFileExt(ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName), '.amxx'), TrimLeft(eStr[i])) = 1 then
+          eFound := True;
+      end;
+      if not eFound then begin
+        eStr.Add(ChangeFileExt(ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName), '.amxx'));
+        eStr.SaveToFile(frmSettings.txtAMXXPath.Text + 'configs\plugins.ini');
+      end;
+      eStr.Free;
+    end;
+    try
+      frmMain.atbToolBar.RecreateControls;
+    except
+      // :F
+    end;
+    
+    if frmSettings.optWindow.Checked then begin
+      frmDebug.lblFile.Caption :=     ' File: ' + ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName);
+      frmDebug.lblStatus.Font.Style := [];
+      frmDebug.lblStatus.Caption :=   ' Status: Compiling...';
+      frmDebug.lblHints.Caption :=    ' Hints: 0';
+      frmDebug.lblWarnings.Caption := ' Warnings: 0';
+      frmDebug.lblErrors.Caption :=   ' Errors: 0';
+      frmDebug.lstOutput.Items.Text := 'Compiler Output:';
+      frmDebug.Show;
+      frmDebug.Repaint;
+    end
+    else begin
+      frmMain.lvDebug.Clear;
+      frmMain.lvDebug.Items.Add.Caption := 'Compiling ' + ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName) + '...';
+      frmMain.lvDebug.Visible := True;
+      frmMain.Repaint;
+    end;
+    GetConsoleOutput(frmSettings.txtAMXXPath.Text + 'scripting\amxxsc.exe ' +
+                                                     '"' + frmMain.dtcEditor.ActiveDocument.FileName + '" ' +
+                                                     '"-o' + frmSettings.txtAMXXPath.Text + 'plugins\' + ChangeFileExt(ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName), '.amxx') + '"');
+    Screen.Cursor := crDefault;
+  end
+  else
+    MessageBox(frmMain.Handle, 'Couldn''t find amxxsc.exe or plugins.ini. Check your settings and try again.', 'Error', MB_ICONERROR);
+end;
+
+function ShowSaveDialog(Caption, SaveCaption, CloseCaption: String): Boolean;
+function TabByName(eName: String): TSciDoc;
+var i: integer;
+begin
+  Result := nil;
+  for i := 0 to frmMain.dtcEditor.Count -1 do begin
+    if frmMain.dtcEditor.Tabs[i] = eName then
+      Result := frmMain.dtcEditor.Document[i];
+  end;
+end;
+
+var i: integer;
+    eStr: TStringList;
+begin
+  eStr := TStringList.Create;
+  frmSaveDialog.Caption := Caption;
+  frmSaveDialog.SaveCaption := SaveCaption;
+  frmSaveDialog.CloseCaption := CloseCaption;
+  frmSaveDialog.cmdSave.Caption := CloseCaption;
+  frmSaveDialog.lstFiles.Clear;
+  for i := 0 to frmMain.dtcEditor.Tabs.Count -1 do begin
+    if (frmMain.dtcEditor.Document[i].Modified) then
+      frmSaveDialog.lstFiles.Items.Add(frmMain.dtcEditor.Tabs[i])
+    else if (frmMain.dtcEditor.Document[i].IsUntitled) then
+      frmSaveDialog.lstFiles.Items.Add(frmMain.dtcEditor.Tabs[i]);
+  end;
+
+  if (frmMain.dtcEditor.Tabs.Count = 1) and (frmMain.sciEditor.Lines.Text = '') then
+    frmSaveDialog.lstFiles.Clear;
+
+  if frmSaveDialog.lstFiles.Items.Count = 0 then begin
+    Result := True;
+    if frmSettings.chkReload.Checked then begin
+      for i := 0 to frmMain.dtcEditor.Tabs.Count -1 do begin
+        if not frmMain.dtcEditor.Document[i].IsUntitled then
+          eStr.Add(frmMain.dtcEditor.Document[i].FileName); 
+      end;
+      eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Files.ini');
+    end;
+    eStr.Free;
+    exit;
+  end;
+
+  if frmSaveDialog.ShowModal = mrOk then begin
+    for i := 0 to frmSaveDialog.lstFiles.Items.Count -1 do begin
+      if frmSaveDialog.lstFiles.Checked[i] then begin
+        if (TabByName(frmSaveDialog.lstFiles.Items[i]).IsUntitled) then begin
+          frmMain.sdSave.Title := Format('Save %s (Tab %s)', [TabByName(frmSaveDialog.lstFiles.Items[i]).FileName, IntToStr(TabByName(frmSaveDialog.lstFiles.Items[i]).Index +1)]);
+          if frmMain.sdSave.Execute then begin
+            AppendFileExt;
+            frmMain.dtcEditor.Activate(TabByName(frmSaveDialog.lstFiles.Items[i]).Index);
+            frmMain.sciEditor.SaveToFile(frmMain.sdSave.FileName);
+            frmMain.dtcEditor.ActiveDocument.FileName := frmMain.sdSave.FileName;
+            frmMain.SetSaved;
+            frmMain.sbInfo.Panels[1].Text := '';
+          end
+          else begin
+            frmMain.sdSave.Title := 'Save...';
+            eStr.Free;
+            Result := False;
+            exit;
+          end;
+          frmMain.sdSave.Title := 'Save...';
+        end
+        else begin
+          frmMain.dtcEditor.Activate(TabByName(frmSaveDialog.lstFiles.Items[i]).Index);
+          frmMain.sciEditor.SaveToFile(TabByName(frmSaveDialog.lstFiles.Items[i]).FileName);
+          frmMain.dtcEditor.ActiveDocument.Modified := False;
+          frmMain.SetSaved;
+          frmMain.sbInfo.Panels[1].Text := '';
+        end;
+      end;
+    end;
+    for i := 0 to frmMain.dtcEditor.Tabs.Count -1 do begin
+      if (not frmMain.dtcEditor.Document[i].IsUntitled) and (not frmMain.dtcEditor.Document[i].Modified) then
+        eStr.Add(frmMain.dtcEditor.Document[i].FileName);
+    end;
+    
+    if frmSettings.chkReload.Checked then
+      eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Files.ini'); 
+    Result := True;
+  end
+  else
+    Result := False;
+  eStr.Free;
+end;
+
+procedure AppendFileExt;
+var eExt: String;
+begin
+  eExt := LowerCase(ExtractFileExt(frmMain.sdSave.FileName));
+  if (frmMain.sdSave.FilterIndex = 1) and (eExt <> '.sma') then
+    frmMain.sdSave.FileName := frmMain.sdSave.FileName + '.sma'
+  else if (frmMain.sdSave.FilterIndex = 2) and (eExt <> '.inc') then
+    frmMain.sdSave.FileName := frmMain.sdSave.FileName + '.inc';
+end;
+
+function RemoveSpaces(eInput: String): String;
+begin
+  eInput := StringReplace(eInput, ' ', '', [rfReplaceAll]);
+  eInput := StringReplace(eInput, '	', '', [rfReplaceAll]);
+  Result := eInput;
+end;
+
+end.

editor/editor2/UnitHowToMakePlayerMenu.pas

@@ -0,0 +1,24 @@
+unit UnitHowToMakePlayerMenu;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, CorelButton;
+
+type
+  TfrmHowToMakePlayerMenu = class(TForm)
+    lblHowTo: TLabel;
+    txtTutorial: TMemo;
+    cmdOK: TCorelButton;
+    cmdExample: TCorelButton;
+  end;
+
+var
+  frmHowToMakePlayerMenu: TfrmHowToMakePlayerMenu;
+
+implementation
+
+{$R *.DFM}
+
+end.

editor/editor2/UnitReadThread.pas

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

editor/editor2/UnitfrmAbout.pas

@@ -0,0 +1,32 @@
+unit UnitfrmAbout;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, ShellAPI, TFlatSpeedButtonUnit;
+
+type
+  TfrmAbout = class(TForm)
+    pnlInfo: TPanel;
+    imgAMXX: TImage;
+    lblCopyright: TLabel;
+    lblComments: TLabel;
+    lblCoder: TLabel;
+    FlatSpeedButton1: TFlatSpeedButton;
+    procedure imgAMXXClick(Sender: TObject);
+  end;
+
+var
+  frmAbout: TfrmAbout;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmAbout.imgAMXXClick(Sender: TObject);
+begin
+  ShellExecute(Handle, 'open', 'http://www.amxmodx.org/', nil, nil, SW_SHOW);
+end;
+
+end.

editor/editor2/UnitfrmDebug.pas

@@ -0,0 +1,91 @@
+unit UnitfrmDebug;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms;
+
+type
+  TfrmDebug = class(TForm)
+    cmdMore: TButton;
+    pnlCompile: TPanel;
+    lblFile: TStaticText;
+    lblStatus: TStaticText;
+    lblHints: TStaticText;
+    lblWarnings: TStaticText;
+    lblErrors: TStaticText;
+    cmdCancelOkay: TButton;
+    bvlDelimeter: TBevel;
+    lstOutput: TListBox;
+    procedure cmdMoreClick(Sender: TObject);
+    procedure cmdCancelOkayClick(Sender: TObject);
+    procedure lstOutputDblClick(Sender: TObject);
+  private
+    FCompiling: Boolean;
+    procedure SetCompiling(const Value: Boolean);
+  public
+    property Compiling: Boolean read FCompiling write SetCompiling;
+  end;
+
+var
+  frmDebug: TfrmDebug;
+
+const DEFAULT_HEIGHT = 165;
+      MAX_HEIGHT = 277;
+
+implementation
+
+uses UnitfrmMain, UnitFunc, UnitfrmOptions;
+
+{$R *.DFM}
+
+procedure TfrmDebug.cmdMoreClick(Sender: TObject);
+begin
+  if Height = DEFAULT_HEIGHT then begin
+    Height := MAX_HEIGHT;
+    cmdMore.Caption := '<< Compiler Output';
+  end
+  else begin
+    Height := DEFAULT_HEIGHT;
+    cmdMore.Caption := 'Compiler Output >>';
+  end;
+end;
+
+procedure TfrmDebug.SetCompiling(const Value: Boolean);
+begin
+  FCompiling := Value;
+  if Value then
+    cmdCancelOkay.Caption := 'Cancel'
+  else
+    cmdCancelOkay.Caption := 'Close';
+end;
+
+procedure TfrmDebug.cmdCancelOkayClick(Sender: TObject);
+var i: integer;
+begin
+  if Compiling then begin
+    i := GetProcId('amxxsc.exe');
+    if i <> -1 then
+      KillIt(i);
+    Compiling := False;
+  end
+  else begin
+    Hide;
+    frmMain.Show;
+  end;
+end;
+
+procedure TfrmDebug.lstOutputDblClick(Sender: TObject);
+begin
+  if lstOutput.ItemIndex <> -1 then begin
+    if Pos('Warning', lstOutput.Items[lstOutput.ItemIndex]) = 1 then
+      MessageBox(Handle, PChar(lstOutput.Items[lstOutput.ItemIndex]), 'Warning', MB_ICONWARNING)
+    else if Pos('Error', lstOutput.Items[lstOutput.ItemIndex]) = 1 then
+      MessageBox(Handle, PChar(lstOutput.Items[lstOutput.ItemIndex]), 'Error', MB_ICONERROR)
+    else
+      MessageBox(Handle, PChar(lstOutput.Items[lstOutput.ItemIndex]), 'Information', MB_ICONINFORMATION)
+  end;
+end;
+
+end.

editor/editor2/UnitfrmGoToLine.pas

@@ -0,0 +1,48 @@
+unit UnitfrmGoToLine;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TFlatSpeedButtonUnit, TFlatEditUnit;
+
+type
+  TfrmGoToLine = class(TForm)
+    lblInfo: TLabel;
+    txtLine: TFlatEdit;
+    cmdOK: TFlatSpeedButton;
+    cmdCancel: TFlatSpeedButton;
+    procedure cmdOKClick(Sender: TObject);
+    procedure txtLineKeyPress(Sender: TObject; var Key: Char);
+  end;
+
+var
+  frmGoToLine: TfrmGoToLine;
+
+implementation
+
+uses UnitfrmMain;
+
+{$R *.DFM}
+
+procedure TfrmGoToLine.cmdOKClick(Sender: TObject);
+begin
+  try
+    if (StrToInt(txtLine.Text) < 0) or (StrToInt(txtLine.Text) > frmMain.sciEditor.Lines.Count) then
+      raise Exception.Create('Invalid Line')
+    else
+      ModalResult := mrOK;
+  except
+    MessageBox(Handle, 'Invalid value. Check the entered line and press OK again.', 'Error', MB_ICONERROR);
+  end;
+end;
+
+procedure TfrmGoToLine.txtLineKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then begin
+    cmdOk.Click;
+    Key := #0;
+  end;
+end;
+
+end.

editor/editor2/UnitfrmLoopGenerator.pas

@@ -0,0 +1,66 @@
+unit UnitfrmLoopGenerator;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TFlatRadioButtonUnit, TFlatEditUnit,
+  TFlatButtonUnit;
+
+type
+  TfrmLoopGenerator = class(TForm)
+    optWhile: TFlatRadioButton;
+    pnlWhileCondition: TPanel;
+    lblWhileCondition: TLabel;
+    txtWhileCondition: TFlatEdit;
+    optFor: TFlatRadioButton;
+    pnlForLoop: TPanel;
+    lblForVariable: TLabel;
+    txtVariable: TFlatEdit;
+    lblForCondition: TLabel;
+    txtForCondition: TFlatEdit;
+    Label1: TLabel;
+    txtForAction: TFlatEdit;
+    cmdGenerate: TFlatButton;
+    procedure txtVariableKeyPress(Sender: TObject; var Key: Char);
+    procedure txtWhileConditionKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure cmdGenerateClick(Sender: TObject);
+  end;
+
+var
+  frmLoopGenerator: TfrmLoopGenerator;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmLoopGenerator.txtVariableKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key = #32 then
+    Key := #0;
+end;
+
+procedure TfrmLoopGenerator.txtWhileConditionKeyDown(Sender: TObject;
+  var Key: Word; Shift: TShiftState);
+begin
+  if Key = 13 then
+    cmdGenerate.Click;
+end;
+
+procedure TfrmLoopGenerator.cmdGenerateClick(Sender: TObject);
+begin
+  if (txtWhileCondition.Text = '') and (optWhile.Checked) then
+    MessageBox(Handle, 'You forgot to enter the while condition', 'Warning', MB_ICONWARNING)
+  else if (optFor.Checked) then begin
+    if (txtVariable.Text = '') or (txtForCondition.Text = '') or (txtForAction.Text = '') then
+      MessageBox(Handle, 'You must fill out each field to generate a FOR-loop.', 'Warning', MB_ICONWARNING)
+    else
+      ModalResult := mrOk;
+  end
+  else
+    ModalResult := mrOk;
+end;
+
+end.

editor/editor2/UnitfrmMenuMaker.pas

@@ -0,0 +1,461 @@
+unit UnitfrmMenuMaker;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TFlatMemoUnit, XPStyleActnCtrls, ActnList,
+  ActnMan, ToolWin, ActnCtrls, ComCtrls, CorelButton, ImgList,
+  TFlatEditUnit, TFlatCheckBoxUnit;
+
+type
+  TfrmMenuMaker = class(TForm)
+    pnlButtons: TPanel;
+    cmdCancel: TCorelButton;
+    ilButtons: TImageList;
+    amButtons: TActionManager;
+    acPaste: TAction;
+    acCopy: TAction;
+    acCut: TAction;
+    acClear: TAction;
+    acMenu: TAction;
+    acGrey: TAction;
+    acRed: TAction;
+    acWhite: TAction;
+    acYellow: TAction;
+    cmdNext: TCorelButton;
+    nbkPages: TNotebook;
+    atbButtons: TActionToolBar;
+    rtfEditor: TRichEdit;
+    pnlSettings: TPanel;
+    chkRegisterMenuCommand: TFlatCheckBox;
+    chkAddComment: TFlatCheckBox;
+    txtKeys: TFlatEdit;
+    lblKeys: TLabel;
+    bvlSpace: TBevel;
+    lblSettings: TLabel;
+    lblName: TLabel;
+    txtMenuName: TFlatEdit;
+    txtTime: TFlatEdit;
+    chkUseTime: TFlatCheckBox;
+    chkAppendOnlyMenuText: TFlatCheckBox;
+    lblNote: TLabel;
+    lblSettingsPlayers: TLabel;
+    pnlSettingsPlayers: TPanel;
+    lblMenu: TLabel;
+    txtMenu: TFlatEdit;
+    lblHelp: TLabel;
+    chkAlive: TFlatCheckBox;
+    bvlSpace2: TBevel;
+    chkRegister: TFlatCheckBox;
+    chkComments: TFlatCheckBox;
+    chkImmunity: TFlatCheckBox;
+    procedure acCopyExecute(Sender: TObject);
+    procedure acCutExecute(Sender: TObject);
+    procedure acPasteExecute(Sender: TObject);
+    procedure acClearExecute(Sender: TObject);
+    procedure acYellowExecute(Sender: TObject);
+    procedure acWhiteExecute(Sender: TObject);
+    procedure acRedExecute(Sender: TObject);
+    procedure acGreyExecute(Sender: TObject);
+    procedure txtKeysChange(Sender: TObject);
+    procedure cmdCancelClick(Sender: TObject);
+    procedure cmdNextClick(Sender: TObject);
+    procedure rtfEditorKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure rtfEditorKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure rtfEditorMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure rtfEditorMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure chkUseTimeClick(Sender: TObject);
+    procedure txtMenuNameKeyPress(Sender: TObject; var Key: Char);
+    procedure chkAppendOnlyMenuTextClick(Sender: TObject);
+    procedure txtTimeChange(Sender: TObject);
+    procedure rtfEditorChange(Sender: TObject);
+    procedure acMenuExecute(Sender: TObject);
+    procedure lblHelpMouseEnter(Sender: TObject);
+    procedure lblHelpMouseLeave(Sender: TObject);
+    procedure lblHelpClick(Sender: TObject);
+  private
+    Editing: Boolean;
+    FDefaultMenu: Boolean;
+    procedure SetDefaultMenu(const Value: Boolean);
+  public
+    property DefaultMenu: Boolean read FDefaultMenu write SetDefaultMenu;
+    function GetColoredMenu: String;
+    procedure SetButton(Action: TAction);
+    procedure UpdateCurColor;
+    procedure Reset;
+  end;
+
+var
+  frmMenuMaker: TfrmMenuMaker;
+
+implementation
+
+uses UnitAddMenu, UnitfrmSelectMenu, UnitfrmMain, UnitHowToMakePlayerMenu;
+
+{$R *.DFM}
+
+procedure TfrmMenuMaker.acCopyExecute(Sender: TObject);
+begin
+  rtfEditor.CopyToClipboard;
+end;
+
+procedure TfrmMenuMaker.acCutExecute(Sender: TObject);
+begin
+  rtfEditor.CutToClipboard;
+end;
+
+procedure TfrmMenuMaker.acPasteExecute(Sender: TObject);
+begin
+  rtfEditor.PasteFromClipboard;
+end;
+
+procedure TfrmMenuMaker.acClearExecute(Sender: TObject);
+begin
+  rtfEditor.Clear;
+  rtfEditor.SelAttributes.Color := clWhite;
+  UpdateCurColor;
+end;
+
+procedure TfrmMenuMaker.acYellowExecute(Sender: TObject);
+begin
+  rtfEditor.SelAttributes.Color := clYellow;
+  SetButton(acYellow);
+end;
+
+procedure TfrmMenuMaker.acWhiteExecute(Sender: TObject);
+begin
+  rtfEditor.SelAttributes.Color := clWhite;
+  SetButton(acWhite);
+end;
+
+procedure TfrmMenuMaker.acRedExecute(Sender: TObject);
+begin
+  rtfEditor.SelAttributes.Color := clRed;
+  SetButton(acRed);
+end;
+
+procedure TfrmMenuMaker.acGreyExecute(Sender: TObject);
+begin
+  rtfEditor.SelAttributes.Color := clGray;
+  SetButton(acGrey);  
+end;
+
+procedure TfrmMenuMaker.SetButton(Action: TAction);
+begin
+  if Action <> acYellow then
+    acYellow.Checked := False;
+  if Action <> acWhite then
+    acWhite.Checked := False;
+  if Action <> acRed then
+    acRed.Checked := False;
+  if Action <> acGrey then
+    acGrey.Checked := False;
+  Action.Checked := True;
+end;
+
+procedure TfrmMenuMaker.txtKeysChange(Sender: TObject);
+begin
+  try
+    StrToInt(Trim((Sender As TFlatEdit).Text));
+  except
+    if Sender = txtKeys then begin
+      (Sender As TFlatEdit).Text := '1';
+      SysUtils.Beep;
+    end
+    else
+      (Sender As TFlatEdit).Text := '';
+  end;
+end;
+
+procedure TfrmMenuMaker.cmdCancelClick(Sender: TObject);
+begin
+  if nbkPages.PageIndex = 0 then
+    ModalResult := mrCancel
+  else begin
+    nbkPages.PageIndex := 0;
+    if not DefaultMenu then begin
+      lblNote.Visible := True;
+      lblHelp.Visible := True;
+    end;
+    cmdCancel.Caption := 'Cancel';
+    cmdNext.Caption := '&Next >';
+  end;
+end;
+
+procedure TfrmMenuMaker.cmdNextClick(Sender: TObject);
+function IsNumeric(eChar: Char): Boolean;
+begin
+  Result := Pos(eChar, '0123456789') <> 0;
+end;
+var i: integer;
+    eColoredMenu: String;
+begin
+  if Editing then begin
+    eColoredMenu := GetColoredMenu;
+    frmMain.sciEditor.Lines[frmSelectMenu.eLines[frmSelectMenu.GetItemIndex]] := StringReplace(frmMain.sciEditor.Lines[frmSelectMenu.eLines[frmSelectMenu.GetItemIndex]], '"' + frmSelectMenu.eMenuStr[frmSelectMenu.GetItemIndex] + '"', '"' + eColoredMenu + '"', []);
+    Editing := False;
+    ModalResult := mrOk;
+  end
+  else if nbkPages.PageIndex = 0 then begin // Editor
+    if DefaultMenu then begin
+      txtKeys.Text := '0';
+      for i := 0 to rtfEditor.Lines.Count -1 do begin
+        if Length(rtfEditor.Lines[i]) <> 0 then begin
+          if IsNumeric(rtfEditor.Lines[i][1]) then
+            txtKeys.Text := txtKeys.Text + rtfEditor.Lines[i][1];
+        end;
+      end;
+      if Length(txtKeys.Text) <> 1 then
+        txtKeys.Text := Copy(txtKeys.Text, 2, Length(txtKeys.Text));
+      nbkPages.PageIndex := 1;
+    end
+    else begin
+      if Pos('$players', LowerCase(rtfEditor.Lines.Text)) = 0 then begin
+        MessageBox(Handle, 'You forgot to set the players.', 'Warning', MB_ICONWARNING);
+        exit;
+      end;
+      
+      if (Pos('$next', LowerCase(rtfEditor.Lines.Text)) = 0) and (Pos('$back', LowerCase(rtfEditor.Lines.Text)) = 0) then
+        MessageBox(Handle, 'You should set a "Next" and a "Back" key.', 'Warning', MB_ICONWARNING)
+      else if Pos('$next', LowerCase(rtfEditor.Lines.Text)) = 0 then
+        MessageBox(Handle, 'You should set a "Next"-key.', 'Warning', MB_ICONWARNING)
+      else if Pos('$exitorback', LowerCase(rtfEditor.Lines.Text)) = 0 then
+        MessageBox(Handle, 'You should set a "Back"-key.', 'Warning', MB_ICONWARNING);
+
+      nbkPages.PageIndex := 2;
+    end;
+    cmdCancel.Caption := '< &Back';
+    cmdNext.Caption := 'Finish';
+  end
+  else if nbkPages.PageIndex = 1 then begin // Default finish
+    if (txtMenuName.Text = '') and (not chkAppendOnlyMenuText.Checked) then
+      MessageBox(Handle, 'Invalid menu name.', 'Warning', MB_ICONWARNING)
+    else begin
+      Screen.Cursor := crHourGlass;
+      if AddMenu then
+        ModalResult := mrOk
+      else
+        MessageBox(Handle, 'Menu already exists. Please choose another name.', 'Warning', MB_ICONWARNING);
+      Screen.Cursor := crDefault;
+    end;
+  end
+  else begin // Player finish
+    if (txtMenu.Text = '') then
+      MessageBox(Handle, 'Invalid menu name.', 'Warning', MB_ICONWARNING)
+    else begin
+      if AddPlayerMenu then
+        ModalResult := mrOk;
+      Screen.Cursor := crDefault;
+    end;
+  end;
+  lblNote.Visible := False;
+  lblHelp.Visible := False;
+end;
+
+procedure TfrmMenuMaker.UpdateCurColor;
+begin
+  case rtfEditor.SelAttributes.Color of
+    clYellow: SetButton(acYellow);
+    clWhite: SetButton(acWhite);
+    clRed: SetButton(acRed);
+    clGray: SetButton(acGrey);
+  end;
+  atbButtons.RecreateControls;
+end;
+
+procedure TfrmMenuMaker.rtfEditorKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  UpdateCurColor;
+end;
+
+procedure TfrmMenuMaker.rtfEditorKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  UpdateCurColor;
+end;
+
+procedure TfrmMenuMaker.rtfEditorMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  UpdateCurColor;
+end;
+
+procedure TfrmMenuMaker.rtfEditorMouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  UpdateCurColor;
+end;
+
+procedure TfrmMenuMaker.chkUseTimeClick(Sender: TObject);
+begin
+  txtTime.Enabled := chkUseTime.Checked;
+  if not chkUseTime.Checked then
+    txtTime.Text := '-1';
+end;
+
+procedure TfrmMenuMaker.txtMenuNameKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key = #32 then
+    Key := #0;
+end;
+
+procedure TfrmMenuMaker.chkAppendOnlyMenuTextClick(Sender: TObject);
+begin
+  lblKeys.Enabled := not chkAppendOnlyMenuText.Checked;
+  txtKeys.Enabled := not chkAppendOnlyMenuText.Checked;
+  chkAddComment.Enabled := not chkAppendOnlyMenuText.Checked;
+  chkRegisterMenuCommand.Enabled := not chkAppendOnlyMenuText.Checked;
+  chkUseTime.Enabled := not chkAppendOnlyMenuText.Checked;
+  txtTime.Enabled := not chkAppendOnlyMenuText.Checked;
+  lblName.Enabled := not chkAppendOnlyMenuText.Checked;
+  txtMenuName.Enabled := not chkAppendOnlyMenuText.Checked;
+end;
+
+procedure TfrmMenuMaker.txtTimeChange(Sender: TObject);
+begin
+  try
+    if StrToInt(txtTime.Text) < -1 then begin
+      txtTime.Text := '-1';
+      SysUtils.Beep;
+    end;
+  except
+    txtTime.Text := '1000';
+    SysUtils.Beep;
+  end;
+end;
+
+procedure TfrmMenuMaker.rtfEditorChange(Sender: TObject);
+begin
+  cmdNext.Enabled := rtfEditor.Text <> '';
+end;
+
+procedure TfrmMenuMaker.SetDefaultMenu(const Value: Boolean);
+begin
+  FDefaultMenu := Value;
+  lblNote.Visible := not Value;
+  lblHelp.Visible := not Value;
+  acMenu.Enabled := Value;
+  Editing := False;
+  if Value then
+    Caption := 'Menu Maker'
+  else
+    Caption := 'Player Menu Maker';
+end;
+
+procedure TfrmMenuMaker.acMenuExecute(Sender: TObject);
+var eTemp: String;
+begin
+  if frmSelectMenu.ShowModal = mrOk then begin
+    atbButtons.RecreateControls;
+    if frmSelectMenu.GetItemIndex = -1 then
+      frmSelectMenu.lstMenu.Selected[0] := True;
+      
+    DefaultMenu := True;
+    Editing := True;
+    rtfEditor.Clear;
+    rtfEditor.SelAttributes.Color := clWhite;
+    eTemp := frmSelectMenu.eMenuStr[frmSelectMenu.GetItemIndex];
+    if eTemp <> '' then begin
+      while Length(eTemp) <> 0 do begin
+        if eTemp[1] = '\' then begin
+          if Length(eTemp) <> 1 then begin
+            case LowerCase(eTemp[2])[1] of
+              'w': rtfEditor.SelAttributes.Color := clWhite;
+              'r': rtfEditor.SelAttributes.Color := clRed;
+              'd': rtfEditor.SelAttributes.Color := clGray;
+              'y': rtfEditor.SelAttributes.Color := clYellow;
+            end;
+          end;
+          Delete(eTemp, 1, 2);
+        end
+        else if Copy(eTemp, 1, 2) = '^n' then begin
+          rtfEditor.SelText := #13#10;
+          Delete(eTemp, 1, 2);
+        end
+        else begin
+          rtfEditor.SelText := eTemp[1];
+          Delete(eTemp, 1, 1);
+        end;
+     end;
+    end;
+    cmdNext.Caption := 'Finish edit'; 
+  end
+  else
+    atbButtons.RecreateControls;
+end;
+
+function TfrmMenuMaker.GetColoredMenu: String;
+var i: integer;
+    eCurColor: TColor;
+begin
+  eCurColor := clWhite;
+  Result := '';
+  for i := 0 to Length(rtfEditor.Lines.Text) -1 do begin
+    rtfEditor.SelStart := i;
+    if rtfEditor.SelAttributes.Color <> eCurColor then begin
+      eCurColor := rtfEditor.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 + rtfEditor.Lines.Text[i+1];
+  end;
+  rtfEditor.SelStart := 0;
+  Result := StringReplace(Result, #13, '^n', [rfReplaceAll]);
+  Result := StringReplace(Result, #10, '', [rfReplaceAll]);
+end;
+
+procedure TfrmMenuMaker.Reset;
+begin
+  rtfEditor.Clear;
+  rtfEditor.SelAttributes.Color := clWhite;
+  txtKeys.Text := '1';
+  txtMenu.Clear;
+  txtMenuName.Clear;
+  UpdateCurColor;
+end;
+
+procedure TfrmMenuMaker.lblHelpMouseEnter(Sender: TObject);
+begin
+  lblHelp.Font.Color := clBlue;
+  lblHelp.Font.Style := [fsUnderline];
+end;
+
+procedure TfrmMenuMaker.lblHelpMouseLeave(Sender: TObject);
+begin
+  lblHelp.Font.Color := clWindowText;
+  lblHelp.Font.Style := [];
+end;
+
+procedure TfrmMenuMaker.lblHelpClick(Sender: TObject);
+procedure Append(eText: String);
+begin
+  rtfEditor.SelText := eText + #13#10;
+  rtfEditor.SelStart := Length(rtfEditor.Lines.Text);
+end;
+
+begin
+  if frmHowToMakePlayerMenu.ShowModal = mrYes then begin
+    rtfEditor.Clear;
+    rtfEditor.SelAttributes.Color := clYellow;
+    Append('Kick player');
+    Append('');
+    rtfEditor.SelAttributes.Color := clWhite;
+    Append('$players(1,8,%n. %v)');
+    Append('$next(9,9. Next)');
+    Append('');
+    Append('$exitorback(0,0. Exit,0. Back)');
+  end;
+end;
+
+end.

editor/editor2/UnitfrmOptions.pas

@@ -0,0 +1,156 @@
+unit UnitfrmOptions;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, ComCtrls, TFlatEditUnit,
+  TFlatSpeedButtonUnit, TFlatCheckBoxUnit, TFlatComboBoxUnit, FileCtrl,
+  TFlatTabControlUnit, TFlatRadioButtonUnit, Dialogs;
+
+type
+  TfrmSettings = class(TForm)
+    lblSettings: TLabel;
+    cmdClose: TFlatSpeedButton;
+    odHalfLife: TOpenDialog;
+    ftcPages: TFlatTabControl;
+    nbkPages: TNotebook;
+    pnlHighlighter: TPanel;
+    lblComments: TLabel;
+    lblDirectives: TLabel;
+    lblOperators: TLabel;
+    lblStrings: TLabel;
+    lblKeywords: TLabel;
+    lblActiveLine: TLabel;
+    cboComments: TColorBox;
+    cboDirectives: TColorBox;
+    cboOperators: TColorBox;
+    cboStrings: TColorBox;
+    cboKeywords: TColorBox;
+    cboActiveLine: TColorBox;
+    pnlGeneralSettings: TPanel;
+    lblAMXX: TLabel;
+    cmdBrowseAMXX: TFlatSpeedButton;
+    cmdBrowseHalfLife: TFlatSpeedButton;
+    lblHalfLife: TLabel;
+    cmdBrowseSave: TFlatSpeedButton;
+    lblSave: TLabel;
+    txtAMXXPath: TFlatEdit;
+    txtHalfLife: TFlatEdit;
+    txtSave: TFlatEdit;
+    pnlGeneral: TPanel;
+    lblFoldingStyle: TLabel;
+    chkAutoComplete: TFlatCheckBox;
+    chkHighlighting: TFlatCheckBox;
+    cboFoldingStyle: TFlatComboBox;
+    chkHints: TFlatCheckBox;
+    chkAutoIndent: TFlatCheckBox;
+    chkBrackets: TFlatCheckBox;
+    lblHighlighter: TLabel;
+    lblEditor: TLabel;
+    lblDirectories: TLabel;
+    lblCompilerSettings: TLabel;
+    lblFTP: TLabel;
+    lblMisc: TLabel;
+    lblView: TLabel;
+    pnlCharCompleter: TPanel;
+    chkAutoCloseBrackets: TFlatCheckBox;
+    chkAutoCloseQuotes: TFlatCheckBox;
+    pnlCompilerSettings: TPanel;
+    optWindow: TFlatRadioButton;
+    optList: TFlatRadioButton;
+    pnlFTP: TPanel;
+    lblHost: TLabel;
+    lblPort: TLabel;
+    lblUser: TLabel;
+    lblPassword: TLabel;
+    lblStandardDir: TLabel;
+    cmdCheckFTP: TFlatSpeedButton;
+    txtHost: TFlatEdit;
+    txtPort: TFlatEdit;
+    txtUser: TFlatEdit;
+    txtPassword: TFlatEdit;
+    txtStandardDir: TFlatEdit;
+    pnlMisc: TPanel;
+    chkReload: TFlatCheckBox;
+    chkAutoAddPlugins: TFlatCheckBox;
+    pnlView: TPanel;
+    lblCodeExplorer: TLabel;
+    cboCodeExplorer: TFlatComboBox;
+    chkStatusbar: TFlatCheckBox;
+    lblCharCompleter: TLabel;
+    procedure cmdBrowseAMXXClick(Sender: TObject);
+    procedure cmdBrowseHalfLifeClick(Sender: TObject);
+    procedure cmdBrowseSaveClick(Sender: TObject);
+    procedure chkAutoAddPluginsMouseUp(Sender: TObject;
+      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure ftcPagesTabChanged(Sender: TObject);
+    procedure cmdCheckFTPClick(Sender: TObject);
+  end;
+
+var
+  frmSettings: TfrmSettings;
+
+implementation
+
+uses UnitfrmMain;
+
+{$R *.DFM}
+
+procedure TfrmSettings.cmdBrowseAMXXClick(Sender: TObject);
+var eDir: String;
+begin
+  if SelectDirectory('Please select your AMXX directory:', 'C:', eDir) then
+    txtAMXXPath.Text := eDir;
+end;
+
+procedure TfrmSettings.cmdBrowseHalfLifeClick(Sender: TObject);
+begin
+  if odHalfLife.Execute then
+    txtHalfLife.Text := odHalfLife.FileName;
+end;
+
+procedure TfrmSettings.cmdBrowseSaveClick(Sender: TObject);
+var eDir: String;
+begin
+  if SelectDirectory('Please select the directory where your files shall be saved:', 'C:', eDir) then
+    txtSave.Text := eDir;
+end;
+
+procedure TfrmSettings.chkAutoAddPluginsMouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if (chkAutoAddPlugins.Checked) and (Button = mbLeft) then
+    MessageBox(Handle, 'Notice: This function works only with plugins which are saved in $AMXXDIR$\scripting.', 'Information', MB_ICONINFORMATION); 
+end;
+
+procedure TfrmSettings.ftcPagesTabChanged(Sender: TObject);
+begin
+  nbkPages.PageIndex := ftcPages.ActiveTab;
+end;
+
+procedure TfrmSettings.cmdCheckFTPClick(Sender: TObject);
+begin
+  try
+    with frmMain.IdFTP do begin
+      Host := txtHost.Text;
+      Port := StrToInt(txtPort.Text);
+      Username := txtUser.Text;
+      Password := txtPassword.Text;
+      try
+        Connect;
+        ChangeDir(txtStandardDir.Text);
+        MessageBox(Handle, 'Test successfully done!', 'Information', MB_ICONINFORMATION)
+      except
+        on E: Exception do
+          MessageBox(Handle, PChar(E.Message), 'Error', MB_ICONWARNING);
+      end;
+      if Connected then
+        Disconnect;
+    end;
+  except
+    MessageBox(Handle, 'Invalid FTP port.', 'Warning', MB_ICONWARNING);
+  end;
+end;
+
+end.

editor/editor2/UnitfrmSaveDialog.pas

@@ -0,0 +1,41 @@
+unit UnitfrmSaveDialog;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, CheckLst, TFlatSpeedButtonUnit;
+
+type
+  TfrmSaveDialog = class(TForm)
+    lstFiles: TCheckListBox;
+    shpFiles: TShape;
+    cmdSave: TFlatSpeedButton;
+    cmdCancel: TFlatSpeedButton;
+    lblInfo: TLabel;
+    procedure lstFilesClickCheck(Sender: TObject);
+  public
+    SaveCaption: String;
+    CloseCaption: String;
+  end;
+
+var
+  frmSaveDialog: TfrmSaveDialog;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmSaveDialog.lstFilesClickCheck(Sender: TObject);
+var i: integer;
+begin
+  for i := 0 to lstFiles.Items.Count -1 do begin
+    if lstFiles.Checked[i] then begin
+      cmdSave.Caption := SaveCaption;
+      exit;
+    end;
+  end;
+  cmdSave.Caption := CloseCaption;
+end;
+
+end.

editor/editor2/UnitfrmSelectMenu.pas

@@ -0,0 +1,80 @@
+unit UnitfrmSelectMenu;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, CorelButton, TFlatListBoxUnit;
+
+type
+  TfrmSelectMenu = class(TForm)
+    cmdOK: TCorelButton;
+    cmdCancel: TCorelButton;
+    lblSelect: TLabel;
+    lstMenu: TFlatListBox;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  public
+    eMenuStr: TStringList;
+    eLines: array of Integer;
+    function GetItemIndex: Integer;
+  end;
+
+var
+  frmSelectMenu: TfrmSelectMenu;
+
+implementation
+
+uses UnitfrmMenuMaker, UnitfrmMain, UnitAddMenu, UnitFunc, UnitTextAnalyze;
+
+{$R *.DFM}
+
+procedure TfrmSelectMenu.FormCreate(Sender: TObject);
+begin
+  eMenuStr := TStringList.Create;
+end;
+
+procedure TfrmSelectMenu.FormDestroy(Sender: TObject);
+begin
+  eMenuStr.Free;
+end;
+
+procedure TfrmSelectMenu.FormShow(Sender: TObject);
+var i: integer;
+    eTemp: String;
+begin
+  eMenuStr.Clear;
+  lstMenu.Items.Clear;
+  SetLength(eLines, 0);
+  for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
+    if Pos('show_menu', Trim(LowerCase(frmMain.sciEditor.Lines[i]))) = 1 then begin
+      SetLength(eLines, eMenuStr.Count +1);
+      eLines[eMenuStr.Count] := i;
+      eTemp := frmMain.sciEditor.Lines[i];
+      if CountChars(frmMain.sciEditor.Lines[i], '"') >= 4 then begin
+        eMenuStr.Add(Between(eTemp, '"', '"'));
+        while CountChars(eTemp, '"') > 2 do
+          Delete(eTemp, 1, 1);
+        lstMenu.Items.Add(Between(eTemp, '"', '"')); 
+      end
+      else begin
+        eMenuStr.Add(Between(eTemp, '"', '"'));
+        lstMenu.Items.Add(Format('Unknown Menu on line %s', [IntToStr(i)]));
+      end;
+    end;
+  end;
+  cmdOK.Enabled := lstMenu.Items.Count <> 0;
+end;
+
+function TfrmSelectMenu.GetItemIndex: Integer;
+var i: integer;
+begin
+  Result := -1;
+  for i := 0 to lstMenu.Items.Count -1 do begin
+    if lstMenu.Selected[i] then
+      Result := i;
+  end;
+end;
+
+end.

editor/editor2/UnitfrmSockets.dfm

@@ -0,0 +1,191 @@
+object frmSocketTerminal: TfrmSocketTerminal
+  Left = 192
+  Top = 110
+  ActiveControl = rtfEnter
+  BorderStyle = bsDialog
+  Caption = 'Socket Terminal'
+  ClientHeight = 230
+  ClientWidth = 324
+  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 = 324
+    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 = 311
+      Height = 41
+      BevelOuter = bvLowered
+      TabOrder = 0
+      object lblHost: TLabel
+        Left = 4
+        Top = 3
+        Width = 26
+        Height = 13
+        Caption = 'Host:'
+      end
+      object lblPort: TLabel
+        Left = 130
+        Top = 3
+        Width = 24
+        Height = 13
+        Caption = 'Port:'
+      end
+      object txtHost: TFlatEdit
+        Left = 4
+        Top = 17
+        Width = 121
+        Height = 19
+        ColorFlat = clBtnFace
+        ParentColor = True
+        TabOrder = 0
+      end
+      object txtPort: TFlatEdit
+        Left = 130
+        Top = 17
+        Width = 39
+        Height = 19
+        ColorFlat = clBtnFace
+        ParentColor = True
+        TabOrder = 1
+        Text = '1'
+        OnChange = txtPortChange
+      end
+      object optUDP: TFlatRadioButton
+        Left = 176
+        Top = 20
+        Width = 39
+        Height = 17
+        Caption = 'UDP'
+        TabOrder = 3
+        OnClick = optTCPClick
+      end
+      object optTCP: TFlatRadioButton
+        Left = 176
+        Top = 4
+        Width = 35
+        Height = 15
+        Caption = 'TCP'
+        Checked = True
+        TabOrder = 2
+        TabStop = True
+        OnClick = optTCPClick
+      end
+      object cmdConnect: TFlatButton
+        Left = 224
+        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 = 324
+    Height = 20
+    Align = alBottom
+    TabOrder = 1
+    WantReturns = False
+    OnKeyPress = rtfEnterKeyPress
+  end
+  object rtfReceived: TRichEdit
+    Left = 0
+    Top = 0
+    Width = 324
+    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/editor2/UnitfrmSockets.pas

@@ -0,0 +1,259 @@
+unit UnitfrmSockets;
+
+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
+  TfrmSocketTerminal = 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
+  frmSocketTerminal: TfrmSocketTerminal;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrmSocketTerminal.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 TfrmSocketTerminal.OnRead(eRead: String);
+begin
+  Append(eRead, clWindowText);
+end;
+
+procedure TfrmSocketTerminal.SetStatus(eStatus: String; eColor: TColor);
+begin
+  lblStatus.Caption := eStatus;
+  lblStatus.Font.Color := eColor;
+end;
+
+procedure TfrmSocketTerminal.txtPortChange(Sender: TObject);
+begin
+  try
+    StrToInt(txtPort.Text);
+  except
+    txtPort.Text := '1';
+  end;
+end;
+
+procedure TfrmSocketTerminal.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 TfrmSocketTerminal.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 TfrmSocketTerminal.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 TfrmSocketTerminal.IdTCPClientConnected(Sender: TObject);
+begin
+  Append('Established connection to ' + txtHost.Text + ':' + txtPort.Text, clGreen);
+  SetStatus('connected', clGreen);
+end;
+
+procedure TfrmSocketTerminal.IdTCPClientDisconnected(Sender: TObject);
+begin
+  Append('Disconnected from ' + txtHost.Text + ':' + txtPort.Text, clMaroon);
+  EnableControls(True);
+  SetStatus('not connected', clRed);
+end;
+
+procedure TfrmSocketTerminal.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  if Tag = 1 then
+    cmdConnect.Click;
+end;
+
+procedure TfrmSocketTerminal.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 TfrmSocketTerminal.IdUDPClientStatus(ASender: TObject;
+  const AStatus: TIdStatus; const AStatusText: String);
+begin
+  Append(AStatusText, clGray);
+end;
+
+procedure TfrmSocketTerminal.acCopyExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).CopyToClipboard;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).CopyToClipboard;
+end;
+
+procedure TfrmSocketTerminal.acPasteExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).PasteFromClipboard;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).PasteFromClipboard;
+end;
+
+procedure TfrmSocketTerminal.acUndoExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).Undo;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).Undo;
+end;
+
+procedure TfrmSocketTerminal.acSelectAllExecute(Sender: TObject);
+begin
+  if (ActiveControl is TRichEdit) then
+    TRichEdit(ActiveControl).SelectAll;
+  if (ActiveControl is TFlatEdit) then
+    TFlatEdit(ActiveControl).SelectAll;
+end;
+
+end.