Vставька

11

всего то

		void swap_subarray(bool[][] matr, int i, int j)
		{
			while (i < j)
				Change(ref matr, i++, j--);
		}


		private void Counting(BackgroundWorker worker, DoWorkEventArgs e)
		{
			Har = 0;
			int N = 1;
			int[] temp = new int[count];
			for (int i = count; i > 0; i--)
			{
				N *= i;
				temp[i - 1] = i;
			}
			for (int i = 0; i < N; i++)
			{
				if (worker.CancellationPending)
				{
					e.Cancel = true;
				}
				else
				{
					bool finded = false;
					int index = matrix2.Length - 1;
					while (index > 0)
					{
						if (temp[index - 1] < temp[index])
						{
							// нашли место, вида ????? matr[i-1] < matr[i] > matr[i+1] > ... > matr[N - 1]
							// сейчас надо найти номер j > i, который минимальным образом превосходит matr[i - 1]
							int j_min = index;
							for (int j = index + 1; j < matrix2.Length; j++)
							{
								if ((temp[j] > temp[index - 1]) && (temp[j] < temp[j_min]))
									j_min = j;
							}
							// теперь обменяем элементы массива с индексами j_min и i - 1
							int c = temp[j_min];
							temp[j_min] = temp[index - 1];
							temp[index - 1] = c;
							Change(ref matrix2, j_min, index - 1);
							// теперь осталось только перевернуть часть массива с индексами [i, matr.Length - 1]
							Array.Reverse(temp, index, temp.Length - index);
							swap_subarray(matrix2, index, matrix2.Length - index);
							// очередной шаг сделан - можно возвращаться
							finded = true;
							break;
						}
						// обязательно двигаемся
						index--;
					}
					// у нас массив оказался упорядоченным по убыванию, значит необходимо упорядочить по возрастанию
					if (!finded)
					{
						Array.Reverse(temp);
						swap_subarray(matrix2, 0, matrix2.Length - 1);
					}
					UInt64 tempHar = Convert.ToUInt64(GetCode(worker, e, matrix2), 2);
					if (tempHar > Har) Har = tempHar;
					int progress = (int)((float)i / N * 100d);
					worker.ReportProgress(progress);
				}
			}
		}

учитывая, что я тебе прислал работающий алгоритм, который вдобавок полный и работает раз в 10-15 быстрее вашего алгоритма....
спрос появится мгновенно на него

23:57 я так подумываю

  
23:58 можно будет завтра и на 4-ю пару прийти со всеми

  
23:58 а на 2-3 поготовится )

=D

>  ROOT (22:36:26 10/10/2010)
88, 90, 91 УИК Октябрьского района. При заполнении бюллетеней ручками, выданными членами избирательной комиссии чернила исчезают через несколько минут. Обнаружилось случайно. На участке №88 бабушка, проголосовав за Азарова, решила написать ему благодарственное письмо прямо на бюллетене. Пока она дописала текст, исчезли первые слова. когда она донесла до урны, пропал весь текст. Сейчас там разбирается милиция. Присутствуют СМИ.

Мостовой: со Словакией Аршавин сыграл лучше, чем в Дублине

Бывший полузащитник сборной России Александр Мостовой поделился мнением об игре национальной команды в Дублине, где ею была обыграна сборная Ирландии. В частности, ветеран дал оценку действиям капитана россиян Андрея Аршавина.

"Мне показалось, что со Словакией Аршавин сыграл даже лучше, чем с Ирландией. Просто тогда нам не удалось забить. А сейчас, по-моему, в первые 15-20 минут Аршавин был вообще незаметен. И даже в таком состоянии он давал о себе знать. Достаточно вспомнить, кто начал вторую голевую атаку, кто исполнял штрафной в случае с первым забитым мячом. Я считаю, что без Андрея трудно представить нашу сборную. Даже когда его не видно, он играет ключевую роль", - цитирует Мостового "Российская газета".

основной буфер:

Цитата

буфер мыши:

Цитата

:ek;

pirate station 6 - Full Intro

Ruf (23:12:15 21/10/2010)
1(4) и 1 (1)

[more=пример]

[no][Components][/no]
Name: com1; Description: 1111
Name: com2; Description: 2222
Name: com3; Description: 3333
Name: com4; Description: 4444

[no][Files][/no]
Source: C:\1\*; DestDir: {code:GetPath|[color=#FF0000]1[/color]}; Flags: recursesubdirs createallsubdirs; Components: com1
Source: C:\2\*; DestDir: {code:GetPath|[color=#FF0000]2[/color]}; Flags: recursesubdirs createallsubdirs; Components: com2
Source: C:\3\*; DestDir: {code:GetPath|[color=#FF0000]3[/color]}; Flags: recursesubdirs createallsubdirs; Components: com3
Source: C:\4\*; DestDir: {code:GetPath|[color=#FF0000]4[/color]}; Flags: recursesubdirs createallsubdirs; Components: com4

[no][Code][/no]
var
  buttons: Array[1..100] of TNewButton;
  pathes: Array[1..100] of String;
function GetPath(Param: String): String;
begin
  Result := pathes[StrToInt(Param)];
end;
procedure ComponentsListClick(Sender: TObject);
var
  Index: Integer;
begin
  For Index := 1 To WizardForm.ComponentsList.ItemCount do begin
	buttons[Index].Enabled := WizardForm.ComponentsList.Checked[Index - 1];
  end;
end;
procedure SelectDirButtonClick(Sender: TObject);
var
  Btn: TNewButton;
  Str: String;
begin
  Btn := TNewButton(Sender);
  if BrowseForFolder('Выберите папку для ' + WizardForm.ComponentsList.Items[Btn.Tag - 1], Str, true)
	then pathes[Btn.Tag] := Str
  else pathes[Btn.Tag] := ExpandConstant('{app}');
end;
procedure InitializeWizard();
var
  Index: Integer;
begin
  with WizardForm do begin
	ComponentsList.Width := ComponentsList.Width - 40;
	ComponentsList.OnClickCheck := @ComponentsListClick;
	For Index := 1 To ComponentsList.ItemCount do begin
  	buttons[Index] := TNewButton.Create(WizardForm);
  	with buttons[Index] do begin
		Name := 'SelDirBtn' + IntToStr(Index);
		Parent := SelectComponentsPage;
		Left := ComponentsList.Left + ComponentsList.Width + 5;
		Top := ComponentsList.Top + (Index - 1) * 17;
		Width := InnerNotebook.Width - Left;
		Height := ScaleY(15);
		Caption := '...';
		TabOrder := Index + 3;
		OnClick := @SelectDirButtonClick;
		Tag := Index;
  	end;
	end;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectComponents then ComponentsListClick(WizardForm.ComponentsList)
end;

[/more]

то, что выделено красным - порядковый номер на странице компонентов
если задать неверно - будет выкидывать ошибки

/rcon map_rotate загружает следующую в ротации карту, ротация прописывается в конфиг-файле сервера командой sv_maprotate.

/rcon map_restart перезагружает текущую карту на сервере

/rcon fast_restart перезапускает карты без перезагрузки (просто обнуляется счетчик очков) наиболее часто встречающаяся команда на кланварах.

Далее описываются команды для бана и кика предоставляемые rcon сервисом самой игры, я не рекомендую вам их использовать по двум причинам

1. невозможность просмотреть банлист без ftp дроступа.
2. бан происходит по игровому гуиду, который изменить для знающего человека не составит особого труда.

Панкбастер предоставляет для этого куда более надежные и гибкие средства используйте его и проблем не будет.

В общеобразовательном плане:

/rcon onlykick имя кикает игрока с указанным именем, коды цветов, если ник цветной при этом указывать не надо.
/rcon kick имя кикает игрока, с указанным именем. Коды цветов указывать надо.
/rcon kick all кикает всех игроков.
/rcon onlykick all аналогично.
/rcon clientkick номер кикает игрока, играющего под указанным номером (узнать можно командой /rcon status см. выше).
/rcon banUser имя банит игрока с указанным именем. Гуид заносится в ban.txt
/rcon banClient номер банит игрока под указанным номером (узнать можно командой /rcon status см. выше). Гуид заносится в ban.txt
/rcon tempBanUser имя кикает и временно банит игрока с указанным именем на время указанное в переменной sv_kickbantime.Гуид никуда при этом не записывается. Так сказать легкая карательная мера.
/rcon tempBanClient номер кикает и временно банит игрока с указанным номером на время указанное в переменной .Гуид никуда при этом не записывается. Так сказать легкая карательная мера.
/rcon unbanuser имя разбанивает игрока с указанным именем.

add words from text file

SendMessage(хендл блокнота,WM_PASTE,0,0);

[Code]
var
PageID: Integer;
const
  WM_CLOSE = $10;
  WM_GETTEXT = $D;
  WM_GETTEXTLENGTH = $E;

function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PChar): HWND; external '[email protected] stdcall';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external '[email protected] stdcall';

function GetSN(PathToKeygen: string): String;
var
  Wnd, WndEx: THandle;
  res, i: Integer;
begin
  PathToKeygen:= ExpandConstant('{tmp}\keygen.exe');
  if FileExists(PathToKeygen) = True then begin
if Exec(PathToKeygen, '', ExtractFilePath(PathToKeygen), SW_HIDE, ewNoWait, res) then
   repeat
Wnd:= FindWindowByWindowName('  ::: Call Of Duty 4: MW - Keygen :::');
     if Wnd > 0 then begin
       ShowWindow(Wnd, SW_HIDE);
       Break;
     end else
     i:= i+1;
     Sleep(100);
   until (Wnd > 0) or (i = 50); //ждать не более 5 секунд

if Wnd > 0 then begin
   WndEx:= FindWindowEx(Wnd, 0, 'Edit', '');
   i:= SendMessage(WndEx, WM_GETTEXTLENGTH, 0, 0) + 1;
   Result:= StringOfChar(' ', i);
   SendMessage(WndEx, WM_GETTEXT, i, CastStringToInteger(Result));
   SendMessage(Wnd, WM_CLOSE, 0, 0);
StringChangeEx(Result, ' ', '', True);
end;
  end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
WizardForm.NextButton.Caption:='Начать';
PageID:=CurPageID;
// If (CurPageID=wpWelcome) or (CurPageID=wpReady) then begin
//  WizardForm.NextButton.OnClick(WizardForm.NextButton);
// end;
if CurPageID = wpPassword
  then WizardForm.NextButton.OnClick(WizardForm.NextButton);
End;

procedure BevelLabelClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open','http://user.zlofenix.org/29','', '', SW_SHOW, ewNoWait, ErrorCode)
end;

Procedure InitializeWizard;
Var
MD5:string;
Begin
with WizardForm do begin
  with BeveledLabel do begin
   Width:=150;
   Height:=150;
   OnClick:=@BevelLabelClick;
   Font.Color:=clBlue;
   Enabled:=True;
   Cursor:=crHand;
  end;
  Font.Name:='MS Sans Serif';
  WelcomeLabel2.Font.Size:=14;
  Caption:='COD4 MW ZloFenix Server Edition Regger';
  WelcomeLabel2.Caption:='Нажмите «Начать», для запуска регистрации';
  WelcomeLabel2.Left:=50;
  WelcomeLabel1.Visible:=false;
  WizardSmallBitmapImage.Visible := false;
  WizardBitmapImage.Visible := false;
  Position:=poScreenCenter;
  FileNameLabel.Visible := False;
  MD5 := GetMD5OfString(GetMD5OfString('фпо…!оруое') + '{#Name}' + GetMD5OfString(GetMD5OfString('вкпил•…‰<риоипвы') + '{#Author}') + 'щурпыугшщЃ€Ђ™рпшгуз' + 'арриычЎѓ±¤љшвт');
  PasswordEdit.Visible:= False;
  PasswordEdit.Text:= GetMD5OfString(MD5) + MD5;
  BorderIcons:=[biSystemMenu];
end;
End;

Procedure DeinitializeSetup;
Begin
if PageID > wpSelectDir
  then DeleteFile(ExpandConstant('{tmp}\keygen.exe'));
End;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
Cancel:=True;
end;

g-

Прошу поднять раздачу Название (ссылка). Спасибо.

http://www.bleachpor...chiveKj2zp9.gif

	//предельная дата жизни ключа
	#define AVP_PID_KEYEXPDATE_ID						(4)
	#define AVP_PID_KEYEXPDATE							MAKE_AVP_PID(AVP_PID_KEYEXPDATE_ID, AVP_DC_KEY, avpt_date, 0)	

	// признак триального ключа ( с 4 версии дублируется в типе лицензии)
	#define AVP_PID_KEYISTRIAL_ID						(5)
	#define AVP_PID_KEYISTRIAL							MAKE_AVP_PID(AVP_PID_KEYISTRIAL_ID, AVP_DC_KEY, avpt_nothing, 0)

Цитата

03:07  Ошеломляющий »   поп задрал ты