Цитата:
Сообщение от QaK
n1ce?!, готового скрипта, скорее всего нет, по крайней мере я не помню. А так - берешь мало-мальски попсовый скрипт, который тут найдешь, который инвентарь обрабатывает - там чуть подправить и все заработает.
З.Ы. а зачем дропать? Лучше уничтожать ....
|
Я в паскале не шарю(Да мне бы или удалить,или дропнуть,перса жалко и щмота на нём.Я другим персов вижу кто стоит чар который повис,если я рядом сним выкину на землю точку,и с чара который повис на авто поставлю RequestDropItem может так получиться?
Добавлено через 4 минуты
И дело не в перевесе,а в том что много итемов(
Добавлено через 49 минут
Тока для WPF нашёл=/
PHP код:
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;