Цитата:
Сообщение от 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
|
Я вот так мониторил
delphi Код:
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<--