[Скрипт] пылесос))

[wadimkad]

Тема скопирована с немецкого форума
Пылесос (только бонусные коробки) с настройкой радиуса сбора, настройки лежат в файле honey.txt, этот файл, как и файл VacuumCleanerBB.txt кладем в папку custom. В файле VacuumCleanerBB.txt указывается радиус сбора коробок. Настоятельно НЕ РЕКОМЕНДУЕТСЯ ставить радиус сбора больше 800
Сам скрипт [Ссылки могут видеть только зарегистрированные пользователи. ]
Настроенное WP [Ссылки могут видеть только зарегистрированные пользователи. ]
Флудилка
VirusTotal на WP [Ссылки могут видеть только зарегистрированные пользователи. ]

[Dima-_-4IT]

Цитата: Сообщение от wadimkad Тема скопирована [Ссылки могут видеть только зарегистрированные пользователи. ] Пылесос с настройкой радиуса сбора, настройки лежат в файле honey.txt, этот файл, как и файл VacuumCleanerBB.txt кладем в папку custom. Сам скрипт [Ссылки могут видеть только зарегистрированные пользователи. ] Настроенное WP [Ссылки могут видеть только зарегистрированные пользователи. ] Флудилка

дай прямую ссылку,регатся некогда или зайлей на ргхост,он ресы пылесосит?

[wadimkad]

Цитата: Сообщение от Dima-_-4IT дай прямую ссылку,регатся некогда или зайлей на ргхост,он ресы пылесосит?

1. Исправил
2. Нет

[s210319631]

на хроме не работает отключил деп перезагрузил комп запустил всё от админа и хром сразу закрывается и пишет "произошёл сбой перезапустить?"
пришлось в ми панеле убирать галочку с хрома чтобы просто браузер открылся!
на мозиле рабит прекрасно!

[BobR056]

сделай плиз пылесос для профика

[klifff]

а почему когда подълетаешь к коробке соединение обрывается?

[wadimkad]

Обновил скрипт, качаем по новой из 1 поста

[RE@ER]

Цитата: Сообщение от VTVIRUS процент бана ?

Прочитай внимательно посты в первой теме wadimkad
http://zhyk.ru/forum/showthread.php?t=407704

[uragan1987]

Цитата: Сообщение от wadimkad Тема скопирована с немецкого форума Пылесос (только бонусные коробки) с настройкой радиуса сбора, настройки лежат в файле honey.txt, этот файл, как и файл VacuumCleanerBB.txt кладем в папку custom. В файле VacuumCleanerBB.txt указывается радиус сбора коробок. Настоятельно НЕ РЕКОМЕНДУЕТСЯ ставить радиус сбора больше 800 Сам скрипт [Ссылки могут видеть только зарегистрированные пользователи. ] Настроенное WP [Ссылки могут видеть только зарегистрированные пользователи. ] Флудилка VirusTotal на WP [Ссылки могут видеть только зарегистрированные пользователи. ]

Ti otkuda wsjal 4to max radius 800? ja etat script napisal na 500 ne 800, i bolzhe nesdelaizh.
dazhy esli 800 napizhizh wsjoravno budet 500

[n1k1ta-59@mail.]

Почему не работае? Ошибку выдает! Типо вы были отсоедены от сервера!

[Mr.Mack]

Цитата: Сообщение от n1k1ta-59@mail. Почему не работае? Ошибку выдает! Типо вы были отсоедены от сервера!

То же самое, не могу нормально играть, пол дня убил, и все равно не могу ничего сделать. Можно либо как то подробнее описать, может я что то не так делаю, или исправьте ошибку, если такое у всех.

[wadimkad]

Пока не обновлял, юзаем с соседней темы. Как только так сразу)

[Полковник[FОХ]]

Поставил на ноч утром проснулся почта взломана угнаны все аккаунты и другая учётка жук.
Незнаю до этого было всё норм пока не поставил этот полесос

[Мистер_Твистер]

большое спс

[wadimkad]

Цитата: Сообщение от Полковник[FОХ] Поставил на ноч утром проснулся почта взломана угнаны все аккаунты и другая учётка жук. До этого было всё норм пока не поставил этот полесос

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

const
Title = 'Title:BonusBox Collector for 6.6.2 by uragan';
var
boxlist, boxCoor, hbox, mypos, boxtmp, listSettings: TStringList;
i, j, lastPackStartPos, lastfoundboxid, boxcount, move, radius: Integer;
Stmp, S, box, myposx, myposy, boxposx, boxposy, boxtype, lastfoundbox, myid, PcollectBB: string;
collectnext, activ, booster: boolean;

procedure onCreate;
begin
hbox := TStringList.Create;
boxlist := TStringList.Create;
boxCoor := TStringList.Create;
mypos := TStringList.Create;
boxtmp := TStringList.Create;
hbox.LoadFromFile(_gCustomDir+'honey.txt');
collectnext := true;
booster := true;
boxcount := 1;
move := 1;
PcollectBB := '000B3E8900000005';
listSettings := TStringList.Create;
try
listSettings.LoadFromFile('custom\VacuumCleanerBB.txt');
except
listSettings.add('500');
end;
if (StrtoInt(listSettings[0])<500)and(StrtoInt(listSettings[0])>0) then
begin
radius := StrtoInt(listSettings[0]);
end 
else
begin
radius := 500;
end;
end;

procedure OnDestroy;
begin
boxlist.free;
boxCoor.free;
hbox.free;
end;

procedure Parser(s, delim: string; var test: TStringList);
var
p: integer;
z: string;
begin
z := s;
p := Pos(delim, z);
while p>0 do
begin
test.add(copy(z, 1, p-1));
delete(z, 1, p+length(delim)-1);
p := Pos(delim, z);
end;
if length(z)>0 then
test.add(z);
end;

function posbetween(pos, x1, x2: integer): integer;
begin
if (pos>=x1)and(pos<=x2) then
begin
Result := 1;
end 
else
Result := 0;
end;

function TakeBox(x1, y1, x2, y2: integer): integer;
begin
if posbetween(x1, x2-radius, x2+radius)andposbetween(y1, y2-radius, y2+radius) then
begin
Result := 1;
end 
else
Result := 0;
end;

function OnTimer(ntimer, count: integer): boolean;
begin
if (_gAbsNumPkt>30) then
begin
if ntimer=3 then
begin
if collectnext then
begin
if boxlist.count>0 then
begin
for j:=0 to (boxlist.Count-1) do
begin
boxCoor.Clear;
Parser(boxlist[j], Hstr('7C'), boxCoor);
if (TakeBox(StrToint(myposx), StrToint(myposy), StrToint(boxCoor[1]), StrToint(boxCoor[2]))=1) then
begin
lastfoundboxid := j;
lastfoundbox := boxCoor[0];
gSys.SendS(HStr(PcollectBB)+boxCoor[0]);
boxlist.Delete(j);
end;
if posbetween(STRtoINT(myposx), STRtoINT(boxCoor[1])-1000, STRtoINT(boxCoor[1])+1000)andposbetween(STRtoINT(myposy), STRtoINT(boxCoor[2])-1000, STRtoINT(boxCoor[2])+1000) then
begin
end 
else
begin
end;
end;
gSys.SetTimer(3, 100);
end 
else
begin
gSys.SetTimer(3, 0);
end;
end;
end;
end;
end;

begin
if (_gFromServ)and(hbox.count>1)and(_gAbsNumPkt>30) then
begin
S := _gBuff;
Stmp := S;
for i:=1 to 10 do
begin
lastPackStartPos := 0;
lastPackStartPos := Pos('0|A|SLA|', copy(S, 1, length(S)));
if lastPackStartPos>0 then
begin
S[lastPackStartPos+1] := #10;
S[lastPackStartPos+2] := #10;
S[lastPackStartPos+3] := #10;
end 
else
begin
Break;
end;
end;
Stmp := S;
for i:=1 to 100 do
begin
lastPackStartPos := 0;
lastPackStartPos := Pos('0|c|', copy(Stmp, 1, length(Stmp)));
if lastPackStartPos>0 then
begin
boxtmp.Clear;
Parser(copy(Stmp, lastPackStartPos, 100), Hstr('7C'), boxtmp);
box := boxtmp[2];
boxposx := boxtmp[4];
boxposy := boxtmp[5];
boxtype := boxtmp[3];
if not (hbox.IndexOf(box)>-1)and((boxtype='2')or(boxtype='220')) then
begin
boxcount := boxcount+1;
boxlist.Add(box+'|'+boxposx+'|'+boxposy+'|'+boxtype+'|'+INTtoSTR(boxcount));
if boxtype='22' then
begin
end;
if boxlist.count>0 then
gSys.SetTimer(3, 100);
end;
end 
else
begin
Break;
end;
Stmp[lastPackStartPos+1] := '0';
end;
Stmp := S;
for i:=1 to 100 do
begin
lastPackStartPos := 0;
lastPackStartPos := Pos('0|2|', copy(Stmp, 1, length(Stmp)));
if lastPackStartPos>0 then
begin
boxtmp.Clear;
Parser(copy(Stmp, lastPackStartPos, 100), Hstr('7C'), boxtmp);
box := boxtmp[2];
for j:=0 to (boxlist.Count-1) do
begin
boxCoor.Clear;
Parser(boxlist[j], Hstr('7C'), boxCoor);
if boxCoor[0]=box then
begin
boxlist.Delete(j);
end;
end;
end 
else
begin
Break;
end;
Stmp[lastPackStartPos+1] := '0';
end;
Stmp := S;
lastPackStartPos := 0;
lastPackStartPos := Pos('0|D|', copy(Stmp, 1, length(Stmp)));
if lastPackStartPos>0 then
begin
mypos.Clear;
Parser(copy(Stmp, lastPackStartPos, 100), Hstr('7C'), mypos);
myposx := mypos[2];
myposy := mypos[3];
if move>0 then
begin
if StrToint(myposx)>27058 then
move := 1;
if StrToint(myposx)<14207 then
move := 2;
end;
end;
_gOutBuff := S;
end;
end.