Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

Помогите обединить 2 скрипта

-

Скрипты и перехват пакетов

- Скрипты и перехват пакетов

Ответ
 
Опции темы
Старый 29.11.2017, 00:28   #1
 Разведчик
Аватар для myrikbyrik
 
myrikbyrik никому не известный тип
Регистрация: 12.06.2017
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Помогите обединить 2 скрипта

В общем так помогите объединить 2 скрипта что бы они работали параллельно в потоке

Procedure TestScript1;
var obj: TL2NPC;
obj2: TL2Effect;

Enemy: TL2Live;
Begin
while 1<>2 do begin // бесконечный цикл


if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(60000);
end;

if user.InRange(-16434, 208803, -3648,15000,15000) then begin // проверяем если мы в радиусе от точке,то выполняем все что находится за begin,в данном случае мы используем АЛЬТ+Б телепорт
Engine.BypassToServer('_bbshome', True);
delay(1000);
Engine.BypassToServer('12', True); // выделенное снифается снифером как на видео в разделе настройки, енгинбайпас это использование Альт Б консоли
delay(1000);
Engine.BypassToServer('1b', True);
delay(1000);
Engine.BypassToServer('1e', True);
delay(6000);

Engine.BypassToServer('_bbshome', True);
delay(1000);
Engine.BypassToServer('10', True);
delay(1000);
Engine.BypassToServer('1a Player', True);
delay(1000);
Engine.BypassToServer('15 Player', True);
delay(1000);
end;
if user.InRange(4280, 243832, -1920,300,300) then begin // здесь все аналог предыдущему с радиусом от точки,но тут мы уже двигаемся по маршруту к нашей фарм локе

Engine.MoveTo(2952, 242472, -2256);

Engine.MoveTo(2472, 241336, -2576);

Engine.MoveTo(2552, 239992, -2976);

Engine.FaceControl(0,true); // пришли на, спот врубили интерфейс и фармим
delay(6000);
end;

Procedure TestScript2;[/B][/B] ошибку выдает тут и я не могу ника допереть что он от меня хочет
var s:string;
begin
s:='!';
while true do begin
Engine.Say(' ПРОДАМ ДУШУ ДЬЯВОЛУ НЕДОРОГО',1,s);
delay(10000); //ждём 10 секунд и спамим заново
end;

begin
Script.NewThread(Procedure TestScript1);
Script.NewThread(Procedure TestScript2); (delay 1000);
end.

Кто понял про что я, подскажите пожалуйста максимально подробно, а лучше прямо тыкнуть сказать "ВОТ ТУТ ДОЛЖНО БЫТЬ ТАК"
  Ответить с цитированием
Старый 29.11.2017, 16:18   #2
 Старший сержант
Аватар для ScythLab
 
ScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нации
Регистрация: 24.10.2014
Сообщений: 216
Популярность: 2780
Сказал(а) спасибо: 19
Поблагодарили 22 раз(а) в 16 сообщениях
 
По умолчанию Re: Помогите обединить 2 скрипта

Считай кол-во begin и end, их должно быть одинаковое кол-во.
У тебя как минимум один end попущен в TestScript2 и еще парочка в TestScript1.
И запуск потоков бредовый, должно быть что-то вроде
Код:
Script.NewThread(@TestScript1); 
Script.NewThread(@TestScript2);
________________
ScythBot: [Ссылки могут видеть только зарегистрированные пользователи. ].
Не забываем кликать "Спасибо", вам бесплатно, а мне приятно
  Ответить с цитированием
Старый 29.11.2017, 18:21   #3
 Разведчик
Аватар для myrikbyrik
 
myrikbyrik никому не известный тип
Регистрация: 12.06.2017
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Помогите обединить 2 скрипта

Все равно не допер по отдельности они нормально функционируют и как количество brgin и end может быть равным если скрипты абсолютно разные ?
я если что как он
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Помогите в написании скрипта korit Вопросы и ответы: RF Online 2 03.06.2013 01:17
[Скрипт] Помогите найти ошибку скрипта WP FreeFree Общение и обсуждение 1 07.12.2010 22:07
Помогите в написании скрипта! rkgs32mail Архив 3 20.02.2010 23:00

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 10:57.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net