Цитата:
Сообщение от goodvin1709
Delphi Код:
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
Delphi Код:
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,ошибка в синтаксисе пропала,но работать все равно не стало