PDA

Просмотр полной версии : немагу понять что делает этот скрипт


zSOVAz
14.09.2009, 00:35
Auto_drop:
// скрипт дропа вещей. q2zx(c).
if _gAbsNumPkt = 1 then begin // Первый пакет, здесь один раз за всю сессию установим переменные...
Flag3:=0;
Flag2:=0;
Flag1:=0;
Flag4:=0;
Flag5:=0;
recv:=HPck('0F');
end;

if _gFromServ = true then begin
if _gbuff[3] = #$15 then begin // если 3 байты пакета равны 15
x:=copy(_gbuff,54,4);
y:=copy(_gbuff,58,4);
z:=copy(_gbuff,62,4);
WritelogH(x,y,z,#13,#10);
Flag1:=1;

end;
end;
_gOutBuff :=_gbuff;
Flag4:=0;
end;

if _gFromServ = true then begin
if _gbuff[3] = #$1B then begin
Buff :=_gbuff;
_gOutBuff :=_gbuff;
Flag3:=1;
Writelog('перехвачен _1B_ и записан в Buff',#13,#10);
end;
end;
if Flag1=1 and Flag2=1 and Flag3=1 then begin
for dp:=0 to 50 do begin
drop:=#$17+#$00+#$12+copy(Buff,(10+28*dp),4)+copy( Buff,(18+28*dp),4)+x+y+z;
if length(drop)=23 then begin
if gSys('EnSendS',drop) <> length(drop) then begin // пошлем пакет на сервер.
Writelog(' пакет не отослался! ');
end else begin
//Flag3:=1;
Writelog(length(drop),'дропнули');Writelog(#13,#10 );
end;
WritelogHexB(copy(Buff,(10+28*dp),4));Writelog(#13 ,#10);
WritelogHexB(copy(Buff,(18+28*dp),4));Writelog(#13 ,#10);
end else flag2:=0;
end;

end;
if _gFromServ = false then begin
if _gbuff[3] = #$03 then begin
Flag2:=1;
end;
end;

Добавлено через 31 секунду
подскажите для чего он и работает ли???

NLObP
14.09.2009, 00:54
zSOVAz, этот скрипт для WP PPC by Sauron, и очень может быть, что на дроп вещей из инвентаря.