Нужна помощь в написании скрипта

[xakep14]

Сообщение от goodvin1709

begin
 if FromClient and (pck[1]=#$56) then pck:=HStr('1A 05 EF 20 48') then
 begin
 if FromClient and (ConnectName='3aDpoT') and (pck=#$1A) then 
 begin
 pck:=#$55;
 SendToServerEx('Adakema');
 pck:='';
 end;
 end;
 end.

Скрипт сам по себе неправильний напишы что он должен делать по шагово.

Это только начало скрипта начал писать.В общем 3 перса задействовано.
1-й перс при нажатии соц. действия кидает трейд 2-му,2-й принимает,1-й кладет определенное количество итемов в трейд,3-й перс посылает пакет продажи 1 итема,после этого трейд закроется,затем 1-й юзитем,юзскилл,юзитем,продажа определенного количество итемов,после продажи должен 1-й сам уже нажать соц. действие.Короче замкнуть по итогу,чтобы само по кругу делало.

Добавлено через 6 минут

Сообщение от goodvin1709

begin
 if FromClient and (pck[1]=#$56) then pck:=HStr('1A 05 EF 20 48') then
 begin
 if FromClient and (ConnectName='3aDpoT') and (pck=#$1A) then 
 begin
 pck:=#$55;
 SendToServerEx('Adakema');
 pck:='';
 end;
 end;
 end.

Скрипт сам по себе неправильний напишы что он должен делать по шагово.

Твоя вариант не работает,в пакетнике слово then подсвечивает

Добавлено через 1 час 4 минуты
Заменил then на else,ошибка в синтаксисе пропала,но работать все равно не стало

[controller]

Сообщение от xakep14

Заменил then на else,ошибка в синтаксисе пропала,но работать все равно не стало

Да ты мужик..........)))))))

[xakep14]

Сообщение от controller

Да ты мужик..........)))))))

Добавлено через 45 минут
Проблема все еще актуальна.

Добавлено через 2 часа 24 минуты
Готов заплатить за помощь в написании скрипта.