Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[alexteam]

сунуть ее ев плагин.
в плагинах сломаны функции readX но расширение функций движка работает.

[TAMBIK]

в пакете запоминается mytext если вначале пишу 01
во

49   30 00 31 00 00 00        00 00 00 00

//Tип: 0x49 (Say2)
begin
  if FromClient and (pck[1]=#$49)and (pck[4]=#$31) then begin
      i:=2;
// КАК убрать из mytext это 30 00 31 00 00 00 
      mytext:=ReadS(i); 
// или дальше
// что делать чтоб в NpcId небыло чифры 1
      NpcId:=StrToInt(mytext);

ПОМОГИТЕ

[Yegor]

TAMBIK, конкретнее сформулируй в чем проблема? Что ты хочешь получить в NpcId ? ты из клиента какое то число шлешь для скрипта?

[TAMBIK]

//Tип: 0x49 (Say2)
begin
  if FromClient and (pck[1]=#$49)and (pck[4]=#$31) then begin
      i:=2;
// КАК убрать из mytext это 30 00 31 00 00 00 
      mytext:=ReadS(i); 
// или дальше
// что делать чтоб в NpcId небыло чифры 1
      NpcId:=StrToInt(mytext);

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

TAMBIK, конкретнее сформулируй в чем проблема? Что ты хочешь получить в NpcId ? ты из клиента какое то число шлешь для скрипта?

ДА. пишу я 01 и далее еще число которое мне нужно.
надо чтобы в mytext не было числа 01
как то его пропустить а далее число уже преобразовать.
или здесь NpcId чтоб не было
тоесть запомнить с определеного места пакет .

[Yegor]

TAMBIK, тю зачем такие заморочки, читаешь из пакета весь mytext, потом просто делаешь например так:

mytext:= Copy(mytext, 3, length(mytext) - 2);

И все.

[TAMBIK]

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

TAMBIK, тю зачем такие заморочки, читаешь из пакета весь mytext, потом просто делаешь например так:

mytext:= Copy(mytext, 3, length(mytext) - 2);

И все.

СПАСИБО .языков незнаю.писать необучен.
переведи то есть копируем mytext
а что 3 значит и это length(mytext) - 2
пожалуста обясни

[Yegor]

TAMBIK, 3 = это значит что начинаем копировать с 3 символа в строке (в типе string отсчет не с нуля а с 1),
length(mytext) - 2 - это сколько будем копировать знаков(длина строки - 2 символа которые мы не копируем)

[Doberman]

Люди у меня вопросик есть (незнаю,можэт он ранее звучал), каким оброзом можно извлеч из клиента Itemsid.ini для волкера?
Просто используя скрипт на заточку от "NLObP", вот там открывается панель итемов,видит всё окромя вещей S80, S84.
Говорят исщи в клиенте,облазил весь,нераз и через поиск пробывал,хоть убей нету такого файла(.
Я уверен что он есть в папки систем ток как он зашифрован и каким оброзом его извлеч оттуда ума неприложу.

[TAMBIK]

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

Люди у меня вопросик есть (незнаю,можэт он ранее звучал), каким оброзом можно извлеч из клиента Itemsid.ini для волкера?
Просто используя скрипт на заточку от "NLObP", вот там открывается панель итемов,видит всё окромя вещей S80, S84.
Говорят исщи в клиенте,облазил весь,нераз и через поиск пробывал,хоть убей нету такого файла(.
Я уверен что он есть в папки систем ток как он зашифрован и каким оброзом его извлеч оттуда ума неприложу.

Скорее те надо itemname-e
в проге ItemsID

[Doberman]

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

Скорее те надо itemname-e

,только загвостка в том что эт файл является: Video CD и каким
оброзом его открыть(точнее сказать с помощью какой проги) я незнаю,перепробывал все имеющиеся редакторы на компе,не одним толково не вскрыл его(((