[Скрипт] Радиус сбора Помогите!

[EndSub]

вот исходник скрипта ,скажите где в скрипте указан радиус захвата коробок?

var
slist: TStringList;
lastPackStartPos: Integer;
lastPackEndPos, LastTmrCode: Integer;
BoxCode1, BoxCode2, BoxCode3: string;

function PosEx(SubStr, S: string; Offset: Cardinal = 1): Integer;
var
I, X: Integer;
Len, LenSubStr: Integer;
begin
if Offset=1 then
Result := Pos(SubStr, S) 
else
begin
I := Offset;
LenSubStr := Length(SubStr);
Len := Length(S)-LenSubStr+1;
while I<=Len do
begin
if S[I]=SubStr[1] then
begin
X := 1;
while (X<LenSubStr)and(S[I+X]=SubStr[X+1]) do
Inc(X);
if (X=LenSubStr) then
begin
Result := I;
Exit;
end;
end;
Inc(I);
end;
Result := 0;
end;
end;

procedure OnCreate;
begin
try
slist := TStringList.create;
slist.add('ozims');
slist.add('1604u');
slist.add('znmjs');
slist.add('bu9m9');
slist.add('zel71');
slist.add('q4knx');
slist.add('ci7m0');
slist.add('1ukl6');
slist.add('1gtlm');
slist.add('180fk');
slist.add('13b44');
slist.add('ntr63');
slist.add('1lmf1');
slist.add('1r78f');
slist.add('1oloo');
slist.add('xixzz');
slist.add('13jaa');
slist.add('6dge9');
slist.add('m79jj');
slist.add('h0rbx');
slist.add('n5cwr');
slist.add('1hviz');
slist.add('1g4pv');
slist.add('1ss4t');
slist.add('1c2tu');
slist.add('100vp');
slist.add('rku9c');
slist.add('1hd2h');
slist.add('416n4');
slist.add('1t5p4');
slist.add('6ovbk');
slist.add('3k2hr');
slist.add('48chq');
slist.add('lnkdf');
slist.add('1usjy');
slist.add('1scn2');
slist.add('usc1j');
slist.add('qj4o9');
slist.add('yyr28');
slist.add('3mtlo');
slist.add('hkw3g');
slist.add('a2abg');
slist.add('1fnxl');
slist.add('1kjds');
slist.add('9icg0');
slist.add('13umf');
slist.add('qtqry');
slist.add('1ucay');
slist.add('puvoe');
slist.add('1c3oi');
slist.add('1nesl');
slist.add('wl0wr');
slist.add('sn8n9');
slist.add('1v20m');
slist.add('1g568');
slist.add('1malf');
slist.add('w27x1');
slist.add('ov57p');
slist.add('1ecek');
slist.add('1my80');
slist.add('1srvg');
slist.add('2u942');
slist.add('103wa');
slist.add('1srrl');
slist.add('109xs');
slist.add('6x1u8');
slist.add('152g8');
slist.add('5naot');
slist.add('oeoud');
slist.add('tbeuu');
slist.add('13p97');
slist.add('rckbt');
slist.add('1trob');
slist.add('1fsi3');
slist.add('v2qxb');
slist.add('1szeq');
slist.add('87k2a');
slist.add('1bfcm');
slist.add('fc9f7');
slist.add('1g7du');
slist.add('lqzp9');
slist.add('wbku5');
slist.add('1ts89');
slist.add('1ag6n');
slist.add('10tv0');
slist.add('49ol8');
slist.add('1isk4');
slist.add('1jyqj');
slist.add('1e5au');
slist.add('8v03f');
slist.add('uy62u');
slist.add('mk797');
slist.add('1g65j');
slist.add('hm27v');
slist.add('hs940');
slist.add('q0e4a');
slist.add('bv8wq');
slist.add('1nad0');
slist.add('1mc48');
slist.add('1801q');
except
slist := nil;
writelogln(' Ioeaea eieoeaeecaoee iauaeoa TStringList');
end;
LastTmrCode := 3;
end;

procedure OnDestroy;
begin
if slist<>nil then
slist.free;
end;

function OnTimer(ntimer, count: integer): boolean;
begin
gSys.SetTimer(ntimer, 0);
if ntimer=1 then
begin
gSys.SendS('x|'+BoxCode1+#10+#00);
end;
if ntimer=2 then
begin
gSys.SendS('x|'+BoxCode2+#10+#00);
end;
if ntimer=3 then
begin
gSys.SendS('x|'+BoxCode3+#10+#00);
end;
end;

begin
if _gFromServ then
begin
lastPackStartPos := 1;
lastPackStartPos := Pos('0|c|', copy(_gBuff, lastPackStartPos, length(_gBuff)-lastPackStartPos+1));
while not (lastPackStartPos<1) do
begin
if StrCmp(copy(_gBuff, lastPackStartPos+9, 3), '|2|') then
begin
if not slist.IndexOf(copy(_gBuff, lastPackStartPos+4, 5))>-1 then
begin
gSys.sleep(75);
if LastTmrCode=1 then
begin
LastTmrCode := 2;
gSys.SetTimer(2, 700);
BoxCode2 := copy(_gBuff, lastPackStartPos+4, 5);
end 
else
begin
if LastTmrCode=2 then
begin
LastTmrCode := 3;
gSys.SetTimer(3, 700);
BoxCode3 := copy(_gBuff, lastPackStartPos+4, 5);
end 
else
begin
if LastTmrCode=3 then
begin
LastTmrCode := 1;
gSys.SetTimer(1, 700);
BoxCode1 := copy(_gBuff, lastPackStartPos+4, 5);
end;
end;
end;
end;
end;
lastPackStartPos := PosEx('0|c|', _gBuff, lastPackStartPos+1);
end;
end;
end.

[QwintO]

Я конечно не силен в скриптах, но не думаю, что здесь есть этот радиус... Потому как коробки собираются при появлении пакета этой коробки. А для этого радиус и длина не нужна...

[EndSub]

Цитата: Сообщение от QwintO Я конечно не силен в скриптах, но не думаю, что здесь есть этот радиус... Потому как коробки собираются при появлении пакета этой коробки. А для этого радиус и длина не нужна...

ну я так и предполагал ,спасибо за подтверждение!))

[-dlest-]

я не знаю ну мне кажеться что это зависит от скрипта,есть радиус-тогда по радиусу будет пылесосить,нету радиуса значит так как писали.Просто в BonusFarmіng насколько я знаю можна менять радиус захвата коробок.

[borum]

Цитата: Сообщение от -dlest- я не знаю ну мне кажеться что это зависит от скрипта,есть радиус-тогда по радиусу будет пылесосить,нету радиуса значит так как писали.Просто в BonusFarmіng насколько я знаю можна менять радиус захвата коробок.

Для того чтобы спылесосить коробку - надо узнать сначала ее ну, скажем айди(для простоты)... вот хоть какой ты радиус не вводи, пока она не попадет в область "видимости" - ее айди ты не узнаешь...

[ToSTeР]

Этот скрипт уже не рабочий

[uragan1987]

Цитата: Сообщение от borum Для того чтобы спылесосить коробку - надо узнать сначала ее ну, скажем айди(для простоты)... вот хоть какой ты радиус не вводи, пока она не попадет в область "видимости" - ее айди ты не узнаешь...

dam vam poszkazku:
korobki s etim skriptom naxodjatca (tolka bonusnye)

[borum]

Цитата: Сообщение от uragan1987 dam vam poszkazku: korobki s etim skriptom naxodjatca (tolka bonusnye)

Спасибо мил-человек... не надо мне подсказок... я скрипты не пишу...

[EndSub]

Цитата: Сообщение от ToSTeР Этот скрипт уже не рабочий

ага,в даркорбите не работает а в Uridium wars работает

[borum]

Ну вы там пока расслабляйтесь... гоняйте на старых ботах, скрипты старые используйте. Думаю это не надолго... Для того чтобы сменить протокол обмена клиента с серваком - думаю не проблема для них ввести... Почему сейчас не вводят? Думаю - пока завлекают народ... Потом закрутят гайки...

[vokovl]

там интересный бан)) акк забанен, но на карте летает, всё собирает и всё видит

[EndSub]

Цитата: Сообщение от borum Ну вы там пока расслабляйтесь... гоняйте на старых ботах, скрипты старые используйте. Думаю это не надолго... Для того чтобы сменить протокол обмена клиента с серваком - думаю не проблема для них ввести... Почему сейчас не вводят? Думаю - пока завлекают народ... Потом закрутят гайки..

васа там другая администрация ,у них нет такого правила как бан только от системы,у них свои правила,сказать проще они валенки!

Добавлено через 7 минут

Цитата: Сообщение от vokovl там интересный бан)) акк забанен, но на карте летает, всё собирает и всё видит

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