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

[SARCAZM]

Пример работы с GetControl, позволяющим управлять другими запущенными ботами, из скрипта первого бота

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);
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);
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.
Взято с TopHope

 

[imsrl]

Спасибо за скриптик

 

[KaZaK]

Может не соображаю, но у меня не работает.

 

[sadister]

Как пользоваться им можно детальнее, у меня он выключается через секунду после включения

 

[malenkoehuylo]

нажимаю старт и ничего не происходит, все работает спасибо) нужно просто не много вчитаться в скрипт, только не вижу где город аден по умолчанию поменять)

 

[KoJInak]

@sadister,

Скрипт запускается,но как им пользоваться не разобрался

 

[279]

все прекрасно работает, спасибо за скрипт

 

[Wazzap]

все прекрасно работает, спасибо за скрипт

Объясните пожалуйста,
myChars.add('Char1'); - тут указываем имя второго окна?
allDlgSel(1); - тут указываем строки в диалогах при тп?

 

[Wazzap]

Да так и есть. Разобрался.

Как заставить всю пати брать в таргет того, кого взял в таргет основное окно? А так приходится всем брать в таргет гк и тогда скрипт работает.

 

[Wazzap]

begin
remoteControl.SetTarget (id);
end

 

[CMAK]

скрипт нужно запускать у каждого чара в пати? или только у основы? не совсем понял, что нужно менять , чтобы 8 чаров тпшились за основой

 

[BaItazar]

@CMAK, только те которые будут повторять действие основы

 

[Death]

Как правильно настроить скрипт этот? без знания скриптов это реально?

 

[magogs]

Ех вдохновил меня написать скрипт на паравозики в Паганы дестром =)

 

[Yvasy]

Спасибо, автору! Давно думал написать что-то подобное)

 

[Akmall]

Может кто дать пример уже настроенного скрипта с уже измененными значениями и никами чаров? Плохо шарю в скриптах, хочу на примере понять, что и где менять.

 

[Dr1mas]

Отличный скрипт. Спасибо. Проверил. Вроде работает

 

[pitrus]

написал решение для окон на других компах
http://rawr.su/topic/3159-rpg-klub-h7-ne-palimsya-v-neskolko-kompov/

 

[KROLIK3000]

Может кто нибудь написать мануал по использованию этого скрипта?

 

[evilinex]

@KROLIK3000,

begin
myChars := TStringList.Create;
myChars.add('Char1'); //тут указываешь ники кто за тобой тпшится
myChars.add('Char2');
myChars.add('Char3');
myChars.add('Char4');

allDlgOpen;      //эта строка открывает диалог с ГК
allDlgSel(1);    //выберает у ГК строку "Телепортироваться"
allDlgSel(2);    //тут указываешь строку по порядку куда телепортироваться окнам
end.