Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Окна телепортируются за вами

@evilinex,
Это получается надо постоянно в скрипте строчку менять если место тп меняется?
 
@KROLIK3000, да, можно сделать по команде в чат номер строки куда тп и т. п.
 
@evilinex, тоесть можно прописать ТП в альт Б и все? а есть такой скриптик как например, боты фармят часов 10 потом летят в город, продабт все по ID итемов ненужное в магаз, затаривают соски банки, летят на спот, собираются в определенной точнке( только не пойму как это работать будет, пл асистер не будет брать мобов в таргет пока вся пати не прилетит на спот или хз как) и продолжают фарм, при смерти ПЛа +все дд бишь дает пр ,остальные встают в город если нет реса более 2х минут, и собираются на спот по новой после магазина закупа и так далее) это будет по ходу для самых ленивых) :pandaredlol:
 
Чуток дописал скрипт ( долго зависал почему окна не юзают) потом посмотрел что они таргет не берут нпц , каждый раз ид нпц брать или в ручную тыкать влом , в первой процедуре добавил асист с патилидера

В моем случае вся пачка берет асист патилидера ник remoteControl.Assist('гиви'); // с кого брать асист

в результате все 9 окон бафаются и тпхаются необходимо лиш в конце кода менять значения в


Код:
allDlgOpen;
allDlgSel(1); // 1я строка в диалоге ( у гк это тп)
allDlgSel(8); // строка куда тп
allDlgSel(1); // подтверждаем



Код:
uses
Classes, SysUtils;


var
myChars: TStringList;


procedure allDlgOpen;
var
remoteControl: TL2Control;
i: integer;
begin
for i:=0 to myChars.Count-1 do
begin
remoteControl := GetControl(myChars[i]);
if Assigned(remoteControl) then
begin
remoteControl.Assist('гиви');   // с кого брать асист
remoteControl.DlgOpen; //открыли диалог окном
end;
end;


Engine.DlgOpen; // открыли диалог мейном
end;


procedure allDlgSel(index: integer);
var
remoteControl: TL2Control;
i: integer;
begin
for i:=0 to myChars.Count-1 do
begin
remoteControl := GetControl(myChars[i]);
if Assigned(remoteControl) then
begin
remoteControl.DlgSel(index); //открыли диалог окном
end;
end;
Engine.DlgSel(index); // выбрали строку мейном
end;


begin
myChars := TStringList.Create;


myChars.add('Шмель');
myChars.add('МяСоРубка');
myChars.add('PartyMaker');
myChars.add('StreetDancer');
myChars.add('ШамаН');
myChars.add('МоТоБлоК');
myChars.add('АрканА');
myChars.add('aspirin');


    
allDlgOpen;
allDlgSel(1);
allDlgSel(8);
allDlgSel(1);
end.
 
А можно пример как можно запустить скрипт на другом окне бота?
 
Назад
Сверху