На дух

Ну вот, придется переубеждать еще одного нубо ДК. Инта была полезна как стат в предыдущей версии клиента, в нынешнем же положение согласно таблице работы статов и рейтингов, инта находится на нижней ступени по производительности кпд исходя из опыта поставленного путем множественного тестирования на написанной программе:

unit MyEditu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, ExtDlgs, shellapi;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    SaveDialog2: TSaveDialog;
    N6: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    OpenDialog3: TOpenDialog;
    OpenDialog2: TOpenDialog;
    N9: TMenuItem;
    N12: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit4;

//es Unit2;

{$R *.DFM}

procedure TForm1.N2Click(Sender: TObject);
begin
With OpenDialog1 do
  If Execute Then
   Begin
    memo1.lines.loadfromfile(Filename);
    ExtractFilename(Filename);
    SaveDialog1.FileName := Filename;
    Filename := '';
   End;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
     Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
with SaveDialog1 do
  If execute Then
     Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.N5Click(Sender: TObject);
var list: TStringList;
    tmpString: string;
    i,CurrentSymbol,SeekSymbol, lastTag: integer;
    notFound: boolean;
begin
With SaveDialog2 do
If execute then
  Begin
  list:=TStringList.Create;
   for i:=0 to memo1.Lines.Count-1 do list.Add(memo1.lines[i]);
   list.Insert(0,'');
   list.Add('');

   for i:=1 to memo1.Lines.Count do
    begin
     lastTag:=1; tmpString:='';
     for CurrentSymbol:=1 to Length(List[i]) - 9 do
      if Copy(List[i], CurrentSymbol, 9) = '' then
            begin
             tmpString := tmpString+''+
             Copy(List[i],lastTag,CurrentSymbol-lastTag)+
             ''+
             Copy(List[i],CurrentSymbol,SeekSymbol-CurrentSymbol+1)
+'';
             lastTag:=SeekSymbol+1; notFound:=false;
            end;
           inc(SeekSymbol);
          end;
        end;
     if tmpString<>'' then
      begin
       tmpString:=tmpString+''+Copy(List[i],lastTag, Length(List[i])-
lastTag+1)+'';
       List[i]:='
'+tmpString+'
';
      end;
    end;
   List.SaveToFile(Filename);
   list.Free;
  End;
end;
procedure TForm1.N6Click(Sender: TObject);
// prosmotr
    var list: TStringList;
    tmpString: string;
    i,CurrentSymbol,SeekSymbol, lastTag: integer;
    notFound: boolean;
  Begin
   list:=TStringList.Create;

   for i:=0 to memo1.Lines.Count-1 do list.Add(memo1.lines[i]);
   list.Insert(0,'');
   list.Add('');

   for i:=1 to memo1.Lines.Count do
    begin
     lastTag:=1; tmpString:='';
     for CurrentSymbol:=1 to Length(List[i]) - 9 do
      if Copy(List[i], CurrentSymbol, 9) = '' then
            begin
             tmpString := tmpString+''+
             Copy(List[i],lastTag,CurrentSymbol-lastTag)+
             ''+
             Copy(List[i],CurrentSymbol,SeekSymbol-CurrentSymbol+1)
+'';
             lastTag:=SeekSymbol+1; notFound:=false;
            end;
           inc(SeekSymbol);
          end;
        end;
     if tmpString<>'' then
      begin
       tmpString:=tmpString+''+Copy(List[i],lastTag, Length(List[i])-
lastTag+1)+'';
       List[i]:='
'+tmpString+'
';
      end;
    end;
   List.SaveToFile('tmp.html');
   list.Free;
   ShellExecute(handle, 'open', 'tmp.html', '', '', SW_SHOW);
   //winexec('tmp.html', SW_SHOW)
   //Form2.showModal;
  End;
//end of prosmotr                        }
procedure TForm1.N8Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N10Click(Sender: TObject);
var tmpMemo: string;
begin
   With OpenDialog2 do
if execute then
  Begin
    begin
     tmpMemo:=tmpMemo + '';
     Memo1.SelText :=tmpMemo;
    end;
  End;
end;
procedure TForm1.N11Click(Sender: TObject);
var Href: String;
begin
With OpenDialog3 do
if Execute then
Begin
   Href:=Href + ''
   + 'Рейтинг духа согласно таблице №1448.13#16A' + '';
     Memo1.SelText :=Href;
  End;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
form4.ShowModal;
end;

end.

Исходя из вышеуказанного тестирования по формуле 190 + [(1 + Дух%) * (1504+2256)/2]/50 * 2 и 90 * EP_ТПС + 300 * EP_Дух или Интеллекта * 15/45 выходит что на данный момент количество духа напрямую влияет на выживаемость и тпс ДК танка, что доказывает формула 69 * EP_Дух + (491* EP_Рейтинг духа согласно таблице №1448.13#16A /6)

А значит мы на практике доказали что приоритет при сборе шмота на танка нужно отдавать Духу а не Интелекту.