PDA

Просмотр полной версии : Скрипт


n1ce?!
03.05.2009, 15:51
Раньше был скрипт на авто дроп итемов из инверьтаря,вчера облазел весь инет не где не нашёл,не кто не поможет написать?или есть остался у вас?

QaK
03.05.2009, 16:07
вчера облазел весь инет не где не нашёллжешь, презренный бледнолицый! А по теме - с какой целью предметы дропать собрался - инвентарь чистить или рисовать аденой?

n1ce?!
03.05.2009, 16:09
лжешь, презренный бледнолицый! А по теме - с какой целью предметы дропать собрался - инвентарь чистить или рисовать аденой?

чистить,я раньше так чистил,на явах захотил со скриптом на смерть 0x3,и включал авто дроп скрипт,и у меня всё падало на землю,вчера случайно купил 200 точек,и чар повис,когда захожу в игру сразу ла2 пропадает,когда захожу со скриптом,тока открыть инверь сразу вырубается клиент

QaK
03.05.2009, 16:20
n1ce?!, готового скрипта, скорее всего нет, по крайней мере я не помню. А так - берешь мало-мальски попсовый скрипт, который тут найдешь, который инвентарь обрабатывает - там чуть подправить и все заработает.
З.Ы. а зачем дропать? Лучше уничтожать ....

n1ce?!
03.05.2009, 17:16
n1ce?!, готового скрипта, скорее всего нет, по крайней мере я не помню. А так - берешь мало-мальски попсовый скрипт, который тут найдешь, который инвентарь обрабатывает - там чуть подправить и все заработает.
З.Ы. а зачем дропать? Лучше уничтожать ....

Я в паскале не шарю(Да мне бы или удалить,или дропнуть,перса жалко и щмота на нём.Я другим персов вижу кто стоит чар который повис,если я рядом сним выкину на землю точку,и с чара который повис на авто поставлю RequestDropItem может так получиться?

Добавлено через 4 минуты
И дело не в перевесе,а в том что много итемов(

Добавлено через 49 минут
Тока для WPF нашёл=/
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;