Авто Augument to Freya

[wimax]

//Made By Avrelio
//Скрипт на аргументацию в 1 нажатия
//Вставить ЛС соцальное действие ДА /social yes
//Удалить ЛС соцальное действие НЕТ /socila no
const
name='AvrelioCX';   //ник чара
puhaid=15893;      //ид пухи куда ЛС встовлять Не забываем если 2 оденаковые пухи 1 ложым в вх
lifestoneid=10484; // ИД лайф стона
gamestoneid=2132;   // ИД гем стоуна 2132 б грейд
gemcount=36;    //скока гемов надо на вставку 36 для топ пухи дальше сам в игре смотриш

var
Invertory:array[0..999,1..2] of integer;
i:word;
ObjId,ObjId1,ObjId2:integer;

procedure Init; 
begin
buf:=#$14;
SendToServerEx(name);
end;


procedure ItemList; //obj id puhi
begin
    for i:=0 to ReadH(2)-1 do
        begin   
            Invertory[i,1]:=0;
            Invertory[i,2]:=0;
        end;
    for i:=0 to ReadH(2)-1 do
        begin 
            Invertory[i,1]:=ReadD(i*68+6); 
            Invertory[i,2]:=ReadD(i*68+10); 
            if Invertory[i,2]=puhaid then ObjId:=Invertory[i,1];
        end;
            
end;

procedure ItemList1; //obj id lsa
begin
    for i:=0 to ReadH(2)-1 do
        begin   
            Invertory[i,1]:=0;
            Invertory[i,2]:=0;
        end;
    for i:=0 to ReadH(2)-1 do
        begin 
            Invertory[i,1]:=ReadD(i*68+6); 
            Invertory[i,2]:=ReadD(i*68+10); 
            if Invertory[i,2]=lifestoneid then ObjId1:=Invertory[i,1];
        end;
            
end;

procedure ItemList2; //obj id gema
begin
    for i:=0 to ReadH(2)-1 do
        begin   
            Invertory[i,1]:=0;
            Invertory[i,2]:=0;
        end;
    for i:=0 to ReadH(2)-1 do
        begin 
            Invertory[i,1]:=ReadD(i*68+6); 
            Invertory[i,2]:=ReadD(i*68+10); 
            if Invertory[i,2]=gamestoneid then ObjId2:=Invertory[i,1];
        end;
            
end;


procedure vstavkalsa;
begin
buf := HStr('D0 41 00');
WriteD(ObjId);
WriteD(ObjId1);
WriteD(ObjId2);
WriteD(gemcount);
WriteD(0);
SendToServerEx(name);
end;

procedure deletels;
begin
buf := HStr('D0 43 00');
WriteD(ObjId);
SendToServerEx(name);
end;



begin
if FromServer and (ConnectName=Name) then
case pck[1] of 
#$11: ItemList;
end;
begin
if FromServer and (ConnectName=Name) then
case pck[1] of 
#$11: ItemList1;
end;
end;
begin
if FromServer and (ConnectName=Name) then
case pck[1] of 
#$11: ItemList2;
end;
end;
begin
if fromclient and (ConnectName=name) and (pck=HStr('56 18 00 00 00 00 00 00 00 00')) then 
begin
vstavkalsa;
end;
end;
begin
if fromclient and (ConnectName=name) and (pck=HStr('56 19 00 00 00 00 00 00 00 00')) then
begin
deletels;
end;
end;
end.

ну вобщем вот пользуйтесь