packet identification

[AlphaC]

Why i can't use PCK[1] = HStr ('01 ') ?
i can compare whole pck variable. like if pck = hstr('blablabla')
why this happens ?

[alexteam]

PCK[1] => char type
hstr() => string type

if pck = hstr ('blablabla') then - will work.

do not use that translator.

[AlphaC]

ah ok, sorry for translation, I wonder what I wrote

so if I want to check, if packet = movetolocation ( 01 .. .. .. .. ), I should use:

if PCK[1] = '01' then

without use hstr() ?

or its not possible to check type of packet?

[alexteam]

if PCK[1] = #$01 then will be fine (remember that '1' not equal to #$01. also you must remember that symbol $ means hex something like #$FF = #255)

anyway look on this structure, its easy to understand and easy to use/modify:

var
  Values : variant;
begin
if fromserver then //packets from server
  case pck[1] of
    #$2F: //2F=MoveToLocation:d(CharID)d(ToX)d(ToY)d(ToZ)d(OriginX)d(OriginY)d(OriginZ)
      begin
        //reading structure of packet
        readmask('ddddddd',2,values);
        //using data from values array where:
        //values[0]=CharID
        //values[1]=ToX
        //values[2]=ToY
        //blablabla
        //values[6]=OriginZ
      end;
    #$4A: //4A=CreatureSay:d(ObjectID)d(TextType)s(CharName)s(Text)
      begin
        //reading structure of packet
        readmask('ddss',2,values);
        //using data from values array where:
        //values[0]=sayer oid
        //values[1]=chat type(texttype)
        //values[2]=who sayd
        //values[4]=what he say.
      end;

if fromclient then
  case pck[1] of //packets from client       
    #$0f://0F=MoveBackwardToLocation:d(ToX)d(ToY)d(ToZ)d(OriginX)d(OriginY)d(OriginZ)d(MoveMovement)
      begin
        readmask('ddddddd',2,values);
        //using data from values   
      end;

  end;
end;

[AlphaC]

OK, i made smth like this:

if FromServer and (pck[1] = #$27) then
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('inv updated');
SendToClient;
end

but dont work when server send packet to update inventory

can You look at this ?

[alexteam]

fully work. did you mark script to be executed ? (element #19)

[AlphaC]

yes, I marked it to be used.... I really dont know what is wrong....

[alexteam]

must look like

procedure init;
begin
end;

procedure free;
begin
end;

begin
if FromServer and (pck[1] = #$27) then
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('inv updated');
SendToClient;
end;
end.

version of l2ph ?

[AlphaC]

I pasted Your code and it dont work either...

v3.5.32.163



settings:

do not decrypt traffic
t0 - interlude

---

use lsp driver

[alexteam]

yeah. 32.163 thats all what i need to know.... its a bugged release. xkor compilled it with old modifications of fastscript. so script engine won't work there correct. download 31.162 or 33.164 ver here http://l2phx.pp.ru/arhive/