Код:
//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.
ну вобщем вот пользуйтесь