string path_to_file="C:\all_accs.txt"; // путь к файлу


char c[999999];
string s[999], text;
int count_symbol, count_account, random[10];


if(fopen(path_to_file, "rb")) // открыть файл для чтения
{
count_symbol=freadb(#c[0], sizearray(c))-1; // прочитать весь файл в массив
fclose(); // закрыть файл

text=format(#c[0], count_symbol); // скопировать текст из массива в строку
count_account=regexsearch(sizearray(s), #s[0], text, ".+?([\r\n]+|\Z){4}", SINGLELINE | MULTILINE); // поиск 4 строк
messagebox("Всего аккаунтов: "+format(count_account));

if(count_account>9) // если в файле больше 9 аккаунтов
{
random_func(count_account, #random[0]); // заполнить массив random случайными числами (числа не повторяются)
for(int i=0; i<10; i++)
{
//messagebox("Удаляемый аккаунт: "+format(random[i])+formatic(13)+formatic(10)+s[random[i]]);
regexreplace(1, #text, text, s[random[i]], ""); // удаляем случайные аккаунты
}


if(fopen(path_to_file, "wb")) // открыть файл для записи
{
strcpy(#c[0], text); // скопировать строку в массив
fwriteb(#c[0], size(#c[0])); // записать в файл
fclose(); // закрыть файл
}
}
else messagebox("В файле меньше 10 аккаунтов");
}


function random_func(int count, int #r)
{
new int r2[count+1];
for(int i=0; i<count; i++)r2[i]=i; // заполнить массив числами 0,1,2,3 и т.д.
for(i=0; i<count*5; i++) // перемешать массив,
{
int random1=rand(0, count), random2=rand(0, count);
int temp=r2[random1];
r2[random1]=r2[random2];
r2[random2]=temp;
}
for(i=0; i<10; i++)r[i]=r2[i]; // записать первые 10 чисел в массив random (по указателю r)
delete r2;
}

string path=pathfolder()+"selected_accounts.txt";
string pathall=pathfolder()+"all_accounts.txt";
string pathparty=pathfolder()+"party.txt";

string mails[999];
string mails_pass[999];
string accs[999];
string accs_pass[999];

string my_mail;
string my_mail_pass;
string my_acc;
string my_acc_pass;

int playerNo=2;


test();


function test()
{
string s;
int k;

strt:;

if(fopen(path, "r"))
{
for(int count_accs=0; count_accs<999; count_accs++)
{
if(freadline(s)==1)
{
mails[count_accs]=s;
if(freadline(mails_pass[count_accs])<1) messagebox("Incorrect structure:1 "+path);
if(freadline(accs[count_accs])<1) messagebox("Incorrect structure:2 "+path);
if(freadline(accs_pass[count_accs])<1) messagebox("Incorrect structure:3 "+path);
}
else break;
}
fclose();
}

if(count_accs<10)
{
if(fopen(pathall, "rb"))
{
char c[99999];
int count_symbol=freadb(#c[0], sizearray(c))-1;
fclose();
}

if(fopen(path, "wb"))
{
fwriteb(#c[0], count_symbol);
fclose();
}
goto strt;
}

int ra=rand(0, count_accs);

my_mail=mails[ra];
my_mail_pass=mails_pass[ra];
my_acc=accs[ra];
my_acc_pass=accs_pass[ra];

if(fopen(path, "w"))
{
for(k=0; k<count_accs; k++)
{
if(k!=ra)
{
fwrite(mails[k]); fwrite(ENDL);
fwrite(mails_pass[k]); fwrite(ENDL);
fwrite(accs[k]); fwrite(ENDL);
fwrite(accs_pass[k]); fwrite(ENDL); fwrite(ENDL);
}
}
fclose();
}

if(fopen(pathparty, "a"))
{
s=format(playerNo)+" "+my_mail+" "+my_mail_pass+" "+my_acc+" "+my_acc_pass;
fwrite(s); fwrite(ENDL);
fclose();
}
}