Помогите HTML)

[Roman32]

Begin
if (pos('bypass -h npc_268465112_Chat 2') then
begin
buf:=#$21;
WriteS(npc_268465112_Chat 2);
pck:='';
SendToServer;
end;
end.


http://s019.radikal.ru/i628/1208/14/4fab7b37524e.jpg
Нужно чтоб нажимало подчёркнутую строчку,помогите чот не врублюсь

[Zergatul]

WriteS('npc_268465112_Chat 2');
Типа так надо

+ к этому почитай доку по функции Pos

[Roman32]

Проблема в 1 строке

[Zergatul]

http://www.delphisources.ru/pages/faq/faq_delphi_basics/Pos.php.html

Добавлено через 30 секунд
в первой строке даже баланса скобок нету

[alexteam]

только в первой.. даладна.

где проверка на опкод пришедшего пакета на соотвествие $0f ?
где выдирание хтмл содержимого в временную переменную c 0f пакета ?
где второй параметр (переменная с хтмл содержимым) в функции pos ?
где проверка соответсвия результата выполнения ф-и pos некоему условию (> 0) ?

[Roman32]

только в первой.. даладна.

где проверка на опкод пришедшего пакета на соотвествие $0f ?
где выдирание хтмл содержимого в временную переменную c 0f пакета ?
где второй параметр (переменная с хтмл содержимым) в функции pos ?
где проверка соответсвия результата выполнения ф-и pos некоему условию (> 0) ?
Объясни плз как такое замутить)

Добавлено через 43 минуты
Begin
if (FromServer) and (pck[1]=#$0F) and (connectname='Ins1de') then
begin
if (pos('bypass -h npc_268465112_Chat 2', ReadS(6))<>0) then
begin
buf:=#$21;
WriteS('npc_268465112_Chat 2');
pck:='';
SendToServer;
end;
end;
end.
Разобрался ток не понел что эт такое ReadS(6))<>0

[Zergatul]

Читает строку с пакета начиная с позиции 6, в нашем случае это будет строка с HTML. Потом проверяем, входит ли подстрока в нее. Такое чувство что автор впервые видит язык программирования

[Roman32]

Читает строку с пакета начиная с позиции 6, в нашем случае это будет строка с HTML. Потом проверяем, входит ли подстрока в нее. Такое чувство что автор впервые видит язык программирования

HTML первый раз)новичок я

[alexteam]

при чем тут хтмл ?

[Roman32]

npc_268465112_Chat 2 Цыфры меняються после рестарта,как можно сделать чтоб они брались из пакета 0F и вставлялись сюда?

[alexteam]

разбирать хтмлку.
даже примитив вида copy() с константными параметрами может помочь.
пс.
это objectid неписи. и его можно прочитать с пакета npcinfo. и собрать нужную строчку самому используя (подсказка) inttostr

пс2.
может оказаться что даже не понадобиться открывать диалог с неписью чтобы портнутся. но это уже читы, обсуждать которые низзя по правилам форума.

[Roman32]

const
kid=1000000;
id=7398;

var
ObjID, X, Y, Z: integer;

begin
if FromServer and (pck[1]=#$16) then
begin
if ((ReadD(6)-kid)=id) then
begin
buf:=#$04;
if (ObjID=0) then
begin
ObjID:=ReadD(2);
X:=ReadD(14);
Y:=ReadD(55);
Z:=ReadD(27);
end;
WriteD(ObjID);
WriteD(X);
WriteD(y);
WriteD(Z);
WriteC(0);
SendToServer;
SendToServer;
end;
end;
if FromServer and (pck[1]=#$0F) and (ObjID<>0) then
begin
if (pos('_Chat 2', ReadS(6))<>0) then
begin
buf:=#$21;
WriteS('npc_' + inttostr(ObjID) + '_Chat 2');
pck:='';
SendToServer;
end;
end;
end.
Где не так?)

[Pinko]

ВЫ . Прокомментируйте строки в скрипте .
Что должно Происходить ПО ВАШЕМУ мнению .

[alexteam]

buf:=#$04;
и все что связано с ним лишнее. запомнил обжектайди и хорошо.

ну. еще стоит учесть что нпцинфо приходит далеко не при включении скрипта.
для тестов - после запуска скрипта выходим на панель выбора персонажа и залазим обратно в игру.
для контроля раставляем принты.


а еще
pos('_Chat 2', ReadS(6))
возвращает позицию подстроки в строке.
если еще вспомнить параметры
copy()
то можно обойтись "очень малой кровью".

[Zergatul]

if (ObjID=0) then
begin
ObjID:=ReadD(2);
X:=ReadD(14);
Y:=ReadD(55);
Z:=ReadD(27);
end;
Где не так?)
Не уж то действительно X, Y, Z так раскиданы по пакету NpcInfo?