begin
if FromClient
then
case pck[1] of
#$B5:
begin
buf:=hstr('0A 66 9C 5C 32 2A 00 ');
buf[4]:=pck[4];
buf[5]:=pck[5];
buf[6]:=pck[6];
buf[7]:=pck[7];
sendtoserver;
end;
end;
end.
Помогите привязать это действие к эмоции пожалуйста
Либо же вот к этому скрипту
Код:
begin
if FromClient then
case pck[1] of
#$B5:
begin
buf:=hstr('0A 66 9C');
buf:=buf+pck[4];
buf:=buf+pck[5];
buf:=buf+pck[6];
buf:=buf+pck[7];
sendtoserver;
end;
end;
end.
Они вроде ничем не отличаются но вдруг я чего то не знаю
Не будет оно работать, ему нужно взять байты из пакета B5, а у тебя он берет их из пакета эмоции.
Так надо:
Код:
begin
if FromClient then
case pck[1] of
#$B5:
begin
buf:=hstr('0A 66 9C');
buf:=buf+pck[4];
buf:=buf+pck[5];
buf:=buf+pck[6];
buf:=buf+pck[7];
end;
end;
if FromClient and (pck=HStr('C9 57 66 15 06 00 00 00 00 00')) then
begin
sendtoserver;
end;
end.
Эмоция согласие.
ЗЫ. Скрипты в 1 посте таки ничем не отличаются, но второй мне больше по нраву, тем более что его писал я))
Последний раз редактировалось Furydose; 08.05.2011 в 14:55.
Не будет оно работать, ему нужно взять байты из пакета B5, а у тебя он берет их из пакета эмоции.
Так надо:
Код:
begin
if FromClient then
case pck[1] of
#$B5:
begin
buf:=hstr('0A 66 9C');
buf:=buf+pck[4];
buf:=buf+pck[5];
buf:=buf+pck[6];
buf:=buf+pck[7];
end;
end;
if FromClient and (pck=HStr('C9 57 66 15 06 00 00 00 00 00')) then
begin
sendtoserver;
end;
end.
Эмоция согласие.
ЗЫ. Скрипты в 1 посте таки ничем не отличаются, но второй мне больше по нраву, тем более что его писал я))