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

[myrikbyrik]

В общем так помогите объединить 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.

Кто понял про что я, подскажите пожалуйста максимально подробно, а лучше прямо тыкнуть сказать "ВОТ ТУТ ДОЛЖНО БЫТЬ ТАК"

[ScythLab]

Считай кол-во begin и end, их должно быть одинаковое кол-во.
У тебя как минимум один end попущен в TestScript2 и еще парочка в TestScript1.
И запуск потоков бредовый, должно быть что-то вроде

Script.NewThread(@TestScript1);
Script.NewThread(@TestScript2);

[myrikbyrik]

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