unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi, XPMan, inifiles, ExtCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    XPManifest1: TXPManifest;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  openDialog : TOpenDialog;
  pathINI,bots : string;
  sIniFile : TIniFile;
  buttonSelected : Integer;
implementation

{$R *.dfm}

//ЧТО ДЕЛАТЬ ПРИ ЗАГРУЗКЕ ПРОГРАММЫ
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
if FileExists ('bots.ini') then //проверяем есть ли файл INI
   begin
     sIniFile.ReadString('BOTS', 'bot1', 'C'+Memo1.Lines.ValueFromIndex[0]);

  end
 else
  Memo1.Lines.Add('Программа написана SNR93');
  Memo1.Lines.Add('Специально для сайта pokehack.ru');
  Memo1.Lines.Add('ВАЖНО! Все боты должны быть на диске C!!!');
  Memo1.Lines.Add('Для начала выберите ботов через кнопку "Выбрать файл"');
  Memo1.Lines.Add('Ботов не должно быть больше 10!');
  Memo1.Lines.Add('Нажмите "Сохранить", чтобы ваши настройки сохранялись');
  Memo1.Lines.Add('Теперь нажмите "Запуск", чтобы боты были запущены');
  Memo1.Lines.Add('Обратите внимание! Данная программа будет перезапускать ботов');
  Memo1.Lines.Add('каждые 30 минут!');
end;

procedure TForm1.Label5Click(Sender: TObject);
begin
  ShellExecute(application.Handle,'Open','http://pokehack.ru/',Nil,Nil,SW_SHOWDEFAULT);
end;

//КНОПКА ВЫБОРА ФАЙЛОВ
procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Clear;
  openDialog := TOpenDialog.Create(self);
  openDialog.InitialDir := GetCurrentDir;
  openDialog.Options := [ofFileMustExist];
  openDialog.Filter :=  'exe бота|*.exe';
    if openDialog.Execute
      then Memo1.Lines.Add(openDialog.FileName)
    else ShowMessage('Выбор файла отменен');
  openDialog.Free;
 end;

//КНОПКА УДАЛЕНИЯ BOTS.INI
procedure TForm1.Button2Click(Sender: TObject);
begin
 if DeleteFile(pathINI)
   then ShowMessage('Настройки удалены!')
  else ShowMessage('Настройки не удалены!');
end;


//КНОПКА СОХРАНЕНИЯ В BOTS.INI
procedure TForm1.Button1Click(Sender: TObject);
begin
pathINI:=extractfilepath(application.ExeName)+'\bots.ini';
  sIniFile := TIniFile.Create(pathINI);
  sIniFile.WriteString('BOTS', 'bot1', 'C'+Memo1.Lines.ValueFromIndex[0]);
  sIniFile.WriteString('BOTS', 'bot2', 'C'+Memo1.Lines.ValueFromIndex[1]);
  sIniFile.WriteString('BOTS', 'bot3', 'C'+Memo1.Lines.ValueFromIndex[2]);
  sIniFile.WriteString('BOTS', 'bot4', 'C'+Memo1.Lines.ValueFromIndex[3]);
  sIniFile.WriteString('BOTS', 'bot5', 'C'+Memo1.Lines.ValueFromIndex[4]);
  sIniFile.WriteString('BOTS', 'bot6', 'C'+Memo1.Lines.ValueFromIndex[5]);
  sIniFile.WriteString('BOTS', 'bot7', 'C'+Memo1.Lines.ValueFromIndex[6]);
  sIniFile.WriteString('BOTS', 'bot8', 'C'+Memo1.Lines.ValueFromIndex[7]);
  sIniFile.WriteString('BOTS', 'bot9', 'C'+Memo1.Lines.ValueFromIndex[8]);
  sIniFile.WriteString('BOTS', 'bot10', 'C'+Memo1.Lines.ValueFromIndex[9]);
  sIniFile.Free;
end;


//Запуск ботов
procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PANsiChar('TASKKILL /F /IM PokemonGo.RoketAPI.Console.exe'), SW_HIDE);
Timer1.Interval := 1800000;
if FileExists ('bots.ini') then //проверяем есть ли файл INI
   begin
     sIniFile.ReadString('BOTS', 'bot1', 'C'+Memo1.Lines.ValueFromIndex[0]);
     sIniFile.ReadString('BOTS', 'bot2', 'C'+Memo1.Lines.ValueFromIndex[1]);
     sIniFile.ReadString('BOTS', 'bot3', 'C'+Memo1.Lines.ValueFromIndex[2]);
     sIniFile.ReadString('BOTS', 'bot4', 'C'+Memo1.Lines.ValueFromIndex[3]);
     sIniFile.ReadString('BOTS', 'bot5', 'C'+Memo1.Lines.ValueFromIndex[4]);
     sIniFile.ReadString('BOTS', 'bot6', 'C'+Memo1.Lines.ValueFromIndex[5]);
     sIniFile.ReadString('BOTS', 'bot7', 'C'+Memo1.Lines.ValueFromIndex[6]);
     sIniFile.ReadString('BOTS', 'bot8', 'C'+Memo1.Lines.ValueFromIndex[7]);
     sIniFile.ReadString('BOTS', 'bot9', 'C'+Memo1.Lines.ValueFromIndex[8]);
     sIniFile.ReadString('BOTS', 'bot10', 'C'+Memo1.Lines.ValueFromIndex[9]);
     sIniFile.Free;

     //ShellExecute (Form1.Handle, nil, PChar(Edit2.Text), nil, nil, SW_HIDE);
     bots := '1';
   end
 else showmessage('конфигурационный файл не найден!');
end;

//ЕСЛИ ЗАКРЫВАЕМ ПРОГРАММУ, НО БОТЫ ЕЩЕ РАБОТАЮТ
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if bots = '1' then
  buttonSelected := MessageDlg('Убить ботов при выходе?',mtConfirmation, mbOKCancel, 0);
  if buttonSelected = mrOK
    then
      WinExec(PANsiChar('TASKKILL /F /IM PokemonGo.RocketAPI.Console.exe'), SW_HIDE);
  if buttonSelected = mrCancel
    then
      Application.Terminate;
  end;
end.