dawah
01.09.2011, 13:30
итак, не судите строго первая тема! я не играю на рус сервах, поэтому хз, у вас сработает или нет! но попробуйте!
суть такова: сначало ставите галочку около скрипта, идёте к вещичке которую хотите собрать, и один раз сами собираете! (ЭТО НАМ ЧТОБ УЗНАТЬ АЙДИ РЕСУРСА, СКРИПТ САМ УЗНАЁТ АЙДИ)
дальше, вы нажимаете на эмоцию думать! и скрипт сам начинает собирать все ресурсы в локации! у меня собирало все вещи касающиеся энергокинеза и эфирокинеза!
ПРЕДУПРЕЖДЕНИЕ! ИНОГДА МОЖЕТ ЧУТОК ЗАЛАГАТЬ, НО ВАМ НУЖНО ПОДОЖДАТЬ! ЕСЛИ НЕ СОБРАЛО НИЧЕГО ЗНАЧИТ ФИКС(((
удачи вам) надеюсь на спасибки если помогло) потому что на том серве на котором играю я, сработало, но т.к у нас фикс, решил выложить!:pif::hd:
вот и скрипт:
//by Alatair_Alentus
var
IdRes,i,b:integer;
begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем иди ресурса
#$b5:
begin
IdRes:=readD(4);
end;
//ловим пакет на эмоцию думать
#$c9:
begin
if pck=HStr('C9 57 66 15 21 00 00 00 00 00') then
begin
b:=IdRes;
//собираем пакет и при каждом повторении к иди ресурса добавляем 1
For i:=1 to 2500 do
begin
buf:=hstr('B5 57 72');
writed(b);
buf:=buf+#$00;
sendtoserver;
buf:=hstr('C1 57 7E 00 00 00 00');
sendtoserver;
b:=b+1;
end;
end;
end;
end;
end.
суть такова: сначало ставите галочку около скрипта, идёте к вещичке которую хотите собрать, и один раз сами собираете! (ЭТО НАМ ЧТОБ УЗНАТЬ АЙДИ РЕСУРСА, СКРИПТ САМ УЗНАЁТ АЙДИ)
дальше, вы нажимаете на эмоцию думать! и скрипт сам начинает собирать все ресурсы в локации! у меня собирало все вещи касающиеся энергокинеза и эфирокинеза!
ПРЕДУПРЕЖДЕНИЕ! ИНОГДА МОЖЕТ ЧУТОК ЗАЛАГАТЬ, НО ВАМ НУЖНО ПОДОЖДАТЬ! ЕСЛИ НЕ СОБРАЛО НИЧЕГО ЗНАЧИТ ФИКС(((
удачи вам) надеюсь на спасибки если помогло) потому что на том серве на котором играю я, сработало, но т.к у нас фикс, решил выложить!:pif::hd:
вот и скрипт:
//by Alatair_Alentus
var
IdRes,i,b:integer;
begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем иди ресурса
#$b5:
begin
IdRes:=readD(4);
end;
//ловим пакет на эмоцию думать
#$c9:
begin
if pck=HStr('C9 57 66 15 21 00 00 00 00 00') then
begin
b:=IdRes;
//собираем пакет и при каждом повторении к иди ресурса добавляем 1
For i:=1 to 2500 do
begin
buf:=hstr('B5 57 72');
writed(b);
buf:=buf+#$00;
sendtoserver;
buf:=hstr('C1 57 7E 00 00 00 00');
sendtoserver;
b:=b+1;
end;
end;
end;
end;
end.