[Скрипт] Сбора палладия

[uragan1987]

ya obnovil vam etot script
no ja neznaju kak dolgo on tut budet.
Tut odin volk* begoit i moi posty udaljaet

derzhite
[Ссылки могут видеть только зарегистрированные пользователи. ]

[_vegas_]

Цитата: Сообщение от Point_Drank Линк находить онли на мозиле,а баны были?

мой акк забанили 5.07 после того как вечером 4.07 собирал с помощью боссбота и данного скрипта(акку было больше года, летал только на боксике)
автор против Тебя ничего не имею, ты норм человек но скрипт этот Апасен

[uragan1987]

nu eta ne podtverzhdaet na 100% chto etot script vinovat
no odno ja zametil, chto v scripte netu "honeybox" - file

[кранн]

RAM15, обьясни неграмотному как эту WP настроить на сбор паладия

[everybodyknown_]

Объясните пожалуйста нубу разницу между ОС и этим скриптом.
и если можно ссылочку на рук-во этой штукой.
уж очень интересно посмотреть что это такое, особенно если это очень полезная вещь.
Весьма Благодарен.

[жучк]

Цитата: Сообщение от everybodyknown_ Объясните пожалуйста нубу разницу между ОС и этим скриптом. и если можно ссылочку на рук-во этой штукой. уж очень интересно посмотреть что это такое, особенно если это очень полезная вещь. Весьма Благодарен.

наверное нету автолока миксера и других функций тока сбор!

[igorjn777]

Цитата: Сообщение от _vegas_ мой акк забанили 5.07 после того как вечером 4.07 собирал с помощью боссбота и данного скрипта(акку было больше года, летал только на боксике) автор против Тебя ничего не имею, ты норм человек но скрипт этот Апасен

за бота бан ты и схватил


автор, обнови плиз скриптик

[uragan1987]

@igorjn777 ja skinul silku, uzhe paru dnei nazat

http://zhyk.ru/forum/showpost.php?p=...4&postcount=48

[wadimkad]

Цитата: Сообщение от uragan1987 ya obnovil vam etot script no ja neznaju kak dolgo on tut budet. Tut odin volk* begoit i moi posty udaljaet derzhite [Ссылки могут видеть только зарегистрированные пользователи. ]

Проверил, действительно работает, автору + в репу.

[igorjn777]

Цитата: Сообщение от uragan1987 ya obnovil vam etot script no ja neznaju kak dolgo on tut budet. Tut odin volk* begoit i moi posty udaljaet derzhite [Ссылки могут видеть только зарегистрированные пользователи. ]

извиняюсь за написанное ранее, скрипт робит нормально, респект

[ResidenT]

Цитата: Сообщение от uragan1987 ya obnovil vam etot script no ja neznaju kak dolgo on tut budet. Tut odin volk* begoit i moi posty udaljaet derzhite [Ссылки могут видеть только зарегистрированные пользователи. ]

(23.6 КБ)
что же там за скрипт???

Цитата: Сообщение от wadimkad Проверил, действительно работает, автору + в репу.

Цитата: Сообщение от igorjn777 извиняюсь за написанное ранее, скрипт робит нормально, респект

Скачан 1 раз
Лапша ваша хороша

[wadimkad]

Цитата: Сообщение от ResidenT (23.6 КБ) что же там за скрипт???

const
Title = 'Title:VacuumCleaner_he_v_1.2 update by uragan';
var
shipX, shipY, s, s1, s2, s3, s4, s5, s6, s7, s8, s9: string;
m1, m2, i1, i2, i3, index: integer;
listRes, listResX, listResY, listSettings: TStringList;

function HexToInt(hex: String): integer;
var
fs10: string;
begin
fs10 := '$'+hex;
result := StrToInt(fs10);
end;

procedure OnCreate;
begin
i1 := 0;
i2 := 0;
i3 := 0;
listRes := TStringList.Create;
listRes.Clear;
listResX := TStringList.Create;
listResX.Clear;
listResY := TStringList.Create;
listResY.Clear;
listSettings := TStringList.Create;
listSettings.Clear;
listSettings.LoadFromFile('custom\VacuumCleanerSettings.txt');
gSys.SetTimer(1, StrToInt(listSettings[0]));
end;

procedure OnDestroy;
begin
listRes.Free;
listResX.Free;
listResY.Free;
listSettings.Free;
gSys.SetTimer(1, 0);
end;

function OnTimer(ntimer, count: integer): boolean;
begin
if (ntimer=1) then
begin
if (listRes.Count>0) then
begin
if i1<listRes.Count then
begin
if ((Abs(StrToInt(ShipX)-StrToInt(listResX[i2]))<StrToInt(listSettings[1]))and(Abs(StrToInt(ShipY)-StrToInt(listResY[i3]))<StrToInt(listSettings[2]))) then
begin
gSys.SendS(Hstr('000B623B00000005')+HStr(listRes[i1]));
i1 := i1+1;
i2 := i2+1;
i3 := i3+1;
end;
end;
end;
end;
end;

begin
if (_gFromServ=true) then
begin
s := BufToHex(_gBuff);
if pos('307C417C534C417C', s)>0 then
begin
gBlockPacket;
end;
if (Pos('307C447C', s)>0) then
begin
s6 := s;
while (Pos('307C447C', s6)>0) do
begin
s7 := Copy(s6, Pos('307C447C', s6)+8, length(s6));
s6 := s7;
s8 := s7;
Delete(s8, Pos('7C', s8)-4, length(s8));
s9 := Copy(s7, Pos('7C', s7)+2, length(s7));
Delete(s9, Pos('7C', s9)-4, length(s9));
end;
ShipX := HStr(s8);
ShipY := HStr(s9);
writelog(ShipX+'|'+ShipY+'|');
end;
if (Pos('00196C0A00000005', s)>0) then
begin
s1 := s;
while (Pos('00196C0A00000005', s1)>0) do
begin
s2 := Copy(s1, Pos('00196C0A00000005', s1)+16, 10);
s3 := Copy(s1, Pos('00196C0A00000005', s1)+16, length(s1));
s4 := Copy(s1, Pos('00196C0A00000005', s1)+42, 4);
m1 := HexToInt(s4)div100;
listResX.Add(IntToStr(m1));
s5 := Copy(s1, Pos('00196C0A00000005', s1)+50, 4);
m2 := HexToInt(s5)div100;
listResY.Add(IntToStr(m2));
s1 := s3;
if ((Abs(StrToInt(ShipX)-m1)<StrToInt(listSettings[1]))and(Abs(StrToInt(ShipY)-m2)<StrToInt(listSettings[2]))) then
listRes.Add(s2);
end;
end;
end;
end.

Что тебе дало содержание?

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

Цитата: Сообщение от ResidenT Скачан 1 раз Лапша ваша хороша

Это я скачивал) Он действительно работает.

[uragan1987]

ja neznaju chego vi tak boites
et naverno potomushto u menja "Репутация: -15" , ili za 4ego?

Репутация: -15, et potomushto tut nekotorim moderam nenravitca chto ja pizhu s angliskami bukvami.


I, spasibki nilo bi ne ploxo, za obnovlenie

Цитата: Сообщение от ResidenT (23.6 КБ) что же там за скрипт??? Скачан 1 раз Лапша ваша хороша

ja sebja opravdivati ne soberajus
ne xo4esh, ne skachevai



@ wadimkad

postav rjadom VacuumCleaner_he4.xml
shtob vse videli izmeni

[AlexUndere]

В общем так как акк мой бананули поэтому пропало желание обновлять и сто то делать со скриптом. Вижу есть люди кото может этим занимается) и это хорошо), будет возможность буду обновлять, пока ее нет.
P.S. если кто поделится акком обновлю)

[RAM15]

AlexUndere, спасибо за обновление, как всегда все работает.