14:19 | 22.11.2017
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Окна телепортируются за вами
Окна телепортируются за вами
Sonik · Offline · Дата: Пятница, 04.12.2015, 22:55 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Окна телепортируются за вами - все просто если вы играете в несколько окон привязать их бегать за вами по городу это одно но чтобы делать телепортацию и чтобы все окна делали тп за вами нужен этот скрипт.

Код
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.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('Char1');
myChars.add('Char2');

allDlgOpen;
allDlgSel(1);
allDlgSel(2);
end.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Окна телепортируются за вами
Страница 1 из 11
Поиск: