Интересный скрипт!

[NLObP]

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

Можете показать на деле как оптимизировать скрипт!?

Можно попробовать

buf:=#$04+#$D6+#$A5+#$00+#$10+#$80+#$41+#$02+#$00+ #$F0+#$22+#$FF+#$FF+#$23+#$F5+#$FF+#$FF+#$00;

заменить на

buf:=hstr('04 D6 A5 00 10 80 41 02 00 F0 22 FF FF 23 F5 FF FF 00');

Добавлено через 6 минут

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

Ну во-первых поменяй вот такие записи

на

buf:=#$21;
WriteS('npc_268477910_restore hp 1');
SendToServer;

Здесь 268477910 как раз тот самы ОбджекИД который надо мониторить по пакетам NPCInfo

Я вот так мониторил

begin
--8<--
      //16=NpcInfo
      #$16: begin
        msg.Lines.Add('S>Пакет NpcInfo #$16'+inttostr(ReadD(2)));
        //        OID       ID
        AppendNpc(ReadD(2), ReadD(6)); //добавляем в базу данных
        if (FishermanID=ReadD(6)-kID) then begin
          EditFishermanOID.text:=inttostr(ReadD(2));
          FishermanOID:=strtoint(EditFishermanOID.text);
          if java then begin
            //java
            getbuylist:='npc_'+inttostr(FishermanOID)+'_Buy 411';
            getselllist:='npc_'+inttostr(FishermanOID)+'_Sell';
            getmultisell:='npc_'+inttostr(FishermanOID)+'_multisell 009';
          end;
        end;
      end;
--8<--