Авто 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.


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

[Nickers]

Тема утонит... Нада в темы где собирают скрипты кидать...

[wimax]

и какоя из них общая? дай сылку закину

[Prixmegently]

можно вообще сделать, чтобы вставлял до тех пор, пока не вставит интересующий =)

[wimax]

в принцыпе можна толька надо знать какой agumentid тебе надо еслм хош мож сам попробывать написать

Добавлено через 53 секунды
что те надо ето чтоб с твоей пухи считывалася augumetnid если он одинаковый тогда стоп ну както так

[L2.exe]

Придумайте ещё скрипт на автоатрибут!:good:

Добавлено через 3 часа 43 минуты
Не работает на моём серваке...

[wimax]

а что тут придумывать ловиш пакеты на вставку АТТ и отпрвляиеш каждые 0.5 сек вот и все ) скрипт написать будет больше гемороя надо ид атт писать и ид шмотки ) а так проста выловил два пакета вроде useitem-когда юзает атт и вставка конфирм какой вещи ну короче так проще будет) какой серв? если хроники фрея и защиты нету то роботать должын обезательно)

[Rash]

Не работает на моём серваке...
аналогично...

[L2.exe]

а что тут придумывать ловиш пакеты на вставку АТТ и отпрвляиеш каждые 0.5 сек вот и все ) скрипт написать будет больше гемороя надо ид атт писать и ид шмотки ) а так проста выловил два пакета вроде useitem-когда юзает атт и вставка конфирм какой вещи ну короче так проще будет) какой серв? если хроники фрея и защиты нету то роботать должын обезательно)

Я так и делаю:D

[wimax]

ну на rulineage 100% роботает если у вас не роботает то хз либо шифрация либо пакеты какието другие либо тупость с вашей стороны)