Перейти к содержимому

Фотография
- - - - -

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



  • Авторизуйтесь для ответа в теме
Сообщений в теме: 25

#1
SARCAZM

SARCAZM
  • 1 440
    562
    Ангелок
    • All Cats Are Beautiful
    • Администратор

Пример работы с 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[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.

Взято с TopHope


  • 2

#2
n373rg173up

n373rg173up

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


  • 0

#3
KaZaK

KaZaK
  • 1
    0
    Не выбрано
    • Гремлин

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


  • 0

#4
sadister

sadister
  • 6
    0
    Не выбрано
    • Lvl 4
    • Пользователь

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


  • 0

#5
malenkoehuylo

malenkoehuylo
  • 14
    1
    Убит
    • Lvl 11
    • Пользователь

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


Сообщение отредактировал malenkoehuylo: 13 Ноябрь 2015 - 20:06

  • 0

#6
KoJInak

KoJInak
  • 24
    8
    • Изгнан
    • BANNED
    ВКонтакте
    id30660035

sadister,

 

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


  • 0

#7
279

279
  • 15
    0
    Не выбрано
    • Lvl 11
    • Пользователь

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


  • 0

#8
Wazzap

Wazzap
  • 10
    7
    Не выбрано
    • Lvl 8
    • Пользователь

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

 

Объясните пожалуйста,

myChars.add('Char1'); - тут указываем имя второго окна?

allDlgSel(1); - тут указываем строки в диалогах при тп?


  • 0

#9
Wazzap

Wazzap
  • 10
    7
    Не выбрано
    • Lvl 8
    • Пользователь

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

 

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


Сообщение отредактировал Wazzap: 23 Январь 2016 - 15:15

  • 0

#10
Wazzap

Wazzap
  • 10
    7
    Не выбрано
    • Lvl 8
    • Пользователь
begin
remoteControl.SetTarget (id);
end

Сообщение отредактировал Wazzap: 27 Январь 2016 - 13:07

  • 1

#11
CMAK

CMAK

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


  • 0

#12
BaItazar

BaItazar

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


  • 0

#13
Death

Death
  • 6
    0
    Не выбрано
    • Lvl 4
    • Пользователь

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


  • 0

#14
magogs

magogs
  • 166
    34
    А что, если...
    • Lvl 40
    • Пользователь
    Город
    Киев

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


  • 0

#15
Yvasy

Yvasy
  • 11
    0
    Все круто
    • Lvl 9
    • Пользователь
    Город
    Новосибирск

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


  • 0

#16
Akmall

Akmall
  • 8
    0
    Не выбрано
    • Lvl 6
    • Пользователь

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


  • 0

#17
Dr1mas

Dr1mas
  • 1
    0
    Не выбрано
    • Гремлин

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


  • 0

#18
pitrus

pitrus
  • 71
    63
    Все круто
    • Lvl 32
    • Пользователь

написал решение для окон на других компах

http://rawr.su/topic...eskolko-kompov/


  • 0

Если было полезно тыкаем в репу


#19
KROLIK3000

KROLIK3000
  • 5
    0
    Радостный
    • Lvl 3
    • Пользователь
    Город
    Surgut

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


  • 0

#20
evilinex

evilinex
  • 84
    46
    А что, если...
    • Lvl 35
    • Пользователь
    Город
    Вышгород

KROLIK3000,

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

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

  • 2



Темы с аналогичным тегами Готовый скрипт

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.su - Сделано с для игроков.