Цитата:
Сообщение от Kvik
Попрошу об язике не писать я русский не учил поетому и ошибки есть!!!
просто если есть уже готовий скрипт зачем щас вникать в язик програмирования если можна ево использовать.
я так понял на халяву никто не даст но помочь могут розобрать если что не так вот:
Код:
var
IDObj:string;
begin
if FromClient and (pck=Hstr('19 82 8A 66 40 00 00 00 00')) then //если используем предмет идет проверка
begin
if FromServer and (pck[1]=#$2D) then //на пакет joinpladge
begin
IDObj:=pck[2] + pck[3] + pck[4] + pck[5]; //запоминаем ид нпс из пакета
buf:=hstr('1F') + IDObj; //пишем в буфер действие action + ид нпс и отправляем
SendToServer;
end;
end;
end.
запускаю не работает что не так кто подскажет???
а да оправляю тока пакет action и ид нпс так как серв не ругаетса ели нет координатов.
|
1)
вот тут
PHP код:
if FromClient and (pck=Hstr('19 82 8A 66 40 00 00 00 00')) then //если используем предмет идет проверка
надо так:
PHP код:
if FromClient and (pck='19 82 8A 66 40 00 00 00 00') then
2)
вот у тебя конструкция:
PHP код:
if fromclient then
begin
if fromserver then
begin
end;
end;
полная чушь работать не будет, у тебя идёт проверка что это от клиента и потом ты хочешь чтоб прошла проверка на то что это от сервера?! магия?
надо нечто такое:
PHP код:
if fromclient then
begin
a:=true;
end;
if fromserver and a then
begin
//твой цикл
end;
3)
PHP код:
IDObj:=pck[2] + pck[3] + pck[4] + pck[5];
это равносильно
PHP код:
IDObj:=Readd(2);
4)
и последнее вот тут у тебя:
PHP код:
buf:=hstr('1F') + IDObj;
надо так:
PHP код:
buf:=hstr('1F');
writed(IDObj);
ещё вопросы?