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

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

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



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

#21
KROLIK3000

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

evilinex,

Это получается надо постоянно в скрипте строчку менять если место тп меняется?


  • 0

#22
evilinex

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

KROLIK3000, да, можно сделать по команде в чат номер строки куда тп и т. п.


  • 0

#23
AVE

AVE
  • 3
    0
    Не выбрано
    • Lvl 1
    • Пользователь

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


  • 0

#24
aspirin

aspirin
  • 14
    8
    Чертик
    • Lvl 11
    • Пользователь

Чуток дописал скрипт  ( долго зависал почему окна не юзают)  потом посмотрел что они таргет не берут нпц , каждый раз ид нпц брать или  в ручную тыкать влом , в первой процедуре добавил асист с патилидера
 

В моем случае вся пачка берет асист патилидера ник 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.

Сообщение отредактировал aspirin: 11 Октябрь 2016 - 00:06

  • 1

#25
Renzo

Renzo
  • 10
    4
    Убит
    • Lvl 8
    • Пользователь

спасибо


  • 0

#26
Alp

Alp
  • 69
    29
    Горит!
    • Lvl 31
    • Пользователь
    ВКонтакте
    alp_xd
    Skype
    Alpfallen
    Город
    Черкассы

А можно пример как можно запустить скрипт на другом окне бота? 


  • 0

Тыкните Лайк, буду очень признателен. :dadada:


#27
GoldPlay

GoldPlay
  • 3
    0
    Новогоднее
    • Lvl 1
    • Пользователь

А у вас скрипт после действия вырубается? Попробовал скрипт , все  работает . Но есть  недоработка , после ТП за основой скрипт вырубается) .  Если кто может поправьте , чтоб было интереснее остальным) 


  • 0

#28
GoldPlay

GoldPlay
  • 3
    0
    Новогоднее
    • Lvl 1
    • Пользователь

А у вас скрипт после действия вырубается? Попробовал скрипт , все  работает . Но есть  недоработка , после ТП за основой скрипт вырубается) .  Если кто может поправьте , чтоб было интереснее остальным) 


  • 0

#29
GoldPlay

GoldPlay
  • 3
    0
    Новогоднее
    • Lvl 1
    • Пользователь

А у вас скрипт после действия вырубается? Попробовал скрипт , все  работает . Но есть  недоработка , после ТП за основой скрипт вырубается) .  Если кто может поправьте , чтоб было интереснее остальным) 


  • 0



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

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

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

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