скрипт

[supernewbie]

щас выложу рабочий на фрее скрипт скана инвентаря
PS
мой друг недоволен твоей орфографией -

[dyh9l]

ты кста хоть инвертарь открываешь?)

[supernewbie]

короче как-то так

const
Name='';
offset=68;

var
Inventory:array of variant;

procedure Init; //Вызывается при включении скрипта
begin
buf:=#$14;
SendToServerEx(Name);
SetLength(Inventory,0);
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure ItemList;
var
i:integer;
v:variant;
begin 
SetLength(Inventory,0);
if ReadH(4)<1 then exit;
for i:=0 to ReadH(4)-1 do
begin
v:=[0,1,2];
v[0]:=ReadD(i*offset+6);  //0 - OID
v[1]:=ReadD(i*offset+10); //1 - ItemID
v[2]:=ReadQ(i*offset+18); //2 - Count
SetLength(Inventory,length(Inventory)+1);
Inventory[length(Inventory)-1]:=v;
end;
end;

procedure InventoryUpdate;
var
i,j:integer;
v:variant;
begin
if ReadH(2)<1 then exit;
for i:=0 to ReadH(2)-1 do
begin
v:=[0,1,2];
v[0]:=ReadD(i*offset+6);
v[1]:=ReadD(i*offset+10);
v[2]:=ReadQ(i*offset+18);
case ReadH(i*offset+4) of 
1: begin
SetLength(Inventory,length(Inventory)+1);
Inventory[length(Inventory)-1]:=v;
end;
2: begin
j:=FindItemByParams(v,0);
if j=-1 then exit;
Inventory[j]:=v;
end;  
3: begin
j:=FindItemByParams(v,0);
if j=-1 then exit;
if (j<>length(Inventory)-1) then Inventory[j]:=Inventory[length(Inventory)-1];
SetLength(Inventory,length(Inventory)-1);
end;
end;    
end;
end;

function FindItemByParams(v:variant;p:byte) : integer;
var
i:integer;
tempv:variant;
begin
result:=-1;
for i:=0 to length(Inventory)-1 do
begin
tempv:=Inventory[i];
if tempv[p]=v[p] then
begin
result:=i;
exit;
end;
end;
end;

function Say2 : boolean;
var
i:integer;
v:variant;
begin
result:=true;
case ReadS(2) of
'how': CreatureSay('Всего вещей '+inttostr(length(Inventory)));
'say all' : 
for i:=0 to length(Inventory)-1 do 
begin
v:=Inventory[i];
CreatureSay(IntToStr(i+1)+'. OID='+inttostr(v[0])+'; ItemID='+inttostr(v[1])+'; Count='+inttostr(v[2]));
end;
else result:=false;
end; 
if result then pck:='';
end;

procedure CreatureSay(s:string);
begin
buf:=#$4A;
WriteMask('ddss',[0,3,'Инфо',s]);
SendToClientEx(Name);
end;


//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (ConnectName=Name) then
case pck[1] of
#$11: ItemList;
#$21: InventoryUpdate;
end;
if FromClient and (ConnectName=Name) then
case pck[1] of
#$49: Say2;
end;


end.

[wimax]

if (v[1])=7134 then v[0]=OID
ет куда вписать то ?)))
извени конеш реально но не могу выехать у тебя идет проверка всех итемов а как зделоть из твоего скрипта на 1 ид?

[supernewbie]

поиск конечно извращен, но пали че делаешь

var
v:variant;
i:integer;

begin
v:=[0,1,2];
v[1]:=7134;
i:=FindItemByParams(v,1);
Inventory[i] <--- это и будет вещь ИтемИДом 7134, если она существует.
end;

или просто добавль эту функцию

function FindItemByItemID(ItemId:integer) : integer;
var
i:integer;
tempv:variant;
begin
result:=-1;
for i:=0 to length(Inventory)-1 do
begin
tempv:=Inventory[i];
if tempv[1]=ItemId then
begin
result:=i;
exit;
end;
end;
end;

[wimax]

Const
Name='BloodOfEva';
offset=68;
ItemID=7134;
var
   Timer01: TTimer;
   Timer02: TTimer;
   Timer03: TTimer;
   Timer04: TTimer; 
   Inventory:array of variant;
   v:variant;
   i:integer;
   
procedure Init;
   begin
   buf:=#$11;
   SendToServerEx(Name);
   SetLength(Inventory,0);
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=2000; //280000 интервал(в милисекундах) как часто таймер срабатывает
   Timer02:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer02.OnTimer:=@OnTimer02; //привязываем процедуру к событию
   Timer02.enabled:=false; //начальное положение включен(true)/выключен(false)
   Timer02.interval:=10; //10интервал(в милисекундах) как часто таймер срабатывает
   Timer03:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer03.OnTimer:=@OnTimer03; //привязываем процедуру к событию
   Timer03.enabled:=false; //начальное положение включен(true)/выключен(false)
   Timer03.interval:=3000; //310000 интервал(в милисекундах) как часто таймер срабатывает
   Timer04:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer04.OnTimer:=@OnTimer04; //привязываем процедуру к событию
   Timer04.enabled:=false; //начальное положение включен(true)/выключен(false)
   Timer04.interval:=6000; //1200000 интервал(в милисекундах) как часто таймер срабатывает  
end;

procedure Free;
begin
    Timer01.free;
    Timer02.free;    
    Timer03.free;
    Timer04.free;   
end;

procedure ItemList;
var
i:integer;
v:variant;
begin 
SetLength(Inventory,0);
if ReadH(4)<1 then exit;
for i:=0 to ReadH(4)-1 do
begin
v:=[0,1,2];
v[0]:=ReadD(i*offset+6);  //0 - OID
v[1]:=ReadD(i*offset+10); //1 - ItemID
v[2]:=ReadQ(i*offset+18); //2 - Count
SetLength(Inventory,length(Inventory)+1);
Inventory[length(Inventory)-1]:=v;
end;
end;

procedure InventoryUpdate;
var
i,j:integer;
v:variant;
begin
if ReadH(2)<1 then exit;
for i:=0 to ReadH(2)-1 do
begin
v:=[0,1,2];
v[0]:=ReadD(i*offset+6);
v[1]:=ReadD(i*offset+10);
v[2]:=ReadQ(i*offset+18);
case ReadH(i*offset+4) of 
1: begin
SetLength(Inventory,length(Inventory)+1);
Inventory[length(Inventory)-1]:=v;
end;
2: begin
j:=FindItemByParams(v,0);
if j=-1 then exit;
Inventory[j]:=v;
end;  
3: begin
j:=FindItemByParams(v,0);
if j=-1 then exit;
if (j<>length(Inventory)-1) then Inventory[j]:=Inventory[length(Inventory)-1];
SetLength(Inventory,length(Inventory)-1);
end;
end;    
end;
end;

function FindItemByParams(v:variant;p:byte) : integer;
var
a:integer;
tempv:variant;
begin
result:=-1;
for a:=0 to length(Inventory)-1 do
begin
tempv:=Inventory[a];
if tempv[p]=v[p] then
begin
result:=a;
exit;
end;
end;
end;

function FindItemByItemID(ItemId:integer) : integer;
var
i:integer;
tempv:variant;
begin
result:=-1;
for i:=0 to length(Inventory)-1 do
begin
tempv:=Inventory[i];
if tempv[1]=ItemID then
begin
result:=i;
exit;
end;
end;
end;


procedure OnTimer01(Sender: TObject);
begin
Timer01.enabled:=False;
Timer02.enabled:=True;  
end;

procedure OnTimer02(Sender: TObject);
begin
pck:='';
buf:=HStr('C6 BF 07 00 00 01 00 00 00 03 00 00 00');
SendToServerEx(Name); 
end;

procedure OnTimer03(Sender: TObject);
begin
Timer03.enabled:=False;
Timer02.enabled:=False;  
end;

procedure OnTimer04(Sender: TObject);
begin
Timer04.enabled:=False;
begin
pck:='';
buf:=HStr('B3 00 00 00 00');
SendToServerEx(Name);
end;
end;

procedure Use;
begin
buf:=#$19;
WriteD(i);
WriteD(0);
SendToServerEx(Name);
end;

procedure Localchek;
begin  
if (ReadD(2)=924) then Use;
end; 

begin
IF FromServer and( pck[1]=#$4A) and (ReadS(12)='CTF: Старт через 5 мин. для уровней 76-85.')begin
Timer01.enabled:=True;
Timer03.enabled:=True;
Timer04.enabled:=True; 
end;
if FromServer and (ConnectName=Name) then
case pck[1] of
#$11: ItemList;
#$21: InventoryUpdate;
#$62: Localchek;
end;
end.

почините кто небуть я не могу уже мозги выносит жесть(((

[supernewbie]

короче учи паскаль, задолбал

[wimax]

та блин пытаюсь както учить...... проблема тока в objid вроде все правильно написал и все равно....не хочет он вписывать его... все пашыт кроме етого епаного юза скрола... он его юзает тока вот с objid 0.....что там не так я уже хз...

[dyh9l]

кароче делай проще, при юзе клиентом скрола сое, запоминать его ОИД

[wimax]

епт а как бот будет юзать сое?.....