[Скрипт] Сбор ресов для 2,7

[Usilok77]

Вот обновленный скрипт для сбора ресов под 2,7 тестил на Нью.
Активация эмоцией ДУМАТЬ.

1)Включаем скрипт
2)Берём в таргет ресурс
3)И жмём на эмоцию ДУМАТЬ


Вот сам скрипт:

PHP код:

//Mod by Usilok d.16.02.2012
var 
IdRes,i,b:integer;
name:string;
Timer:TTimer;

procedure Init;
 begin   
    Timer:=TTimer.Create(nil); 
    Timer.OnTimer:=@OnTimer;  
    Timer.interval:=100;
    Timer.enabled:=false;
 end;

procedure Free;
begin
    Timer.enabled:=false;
end;

procedure OnTimer(Sender: TObject);
 begin 
    buf:=hstr('CE 00 57 6D FF');
    writed(b);
    buf:=buf+#$00;
    SendToServerEx(name); 
    buf:=hstr('BA 00 57 79 FF 00 00 00 00');
    SendToServerEx(name); 
    inc(b);
    inc(i);
    if (i>50) then Timer.enabled:=false; 
 end;

begin
//проверяем пакет
    if FromClient  then
    case pck[1] of
//узнаем иди ресурса
    #$CE: 
         begin   
            IdRes:=readD(6);
        end;
        //ловим пакет на эмоцию думать
    #$c2: 
         begin
            if pck=HStr('C2 00 57 61 FF 15 21 00 00 00 00 00') then
                begin 
                 b:=IdRes;
                 name:=ConnectName;  
                 //Активируем таймер
                 i:=1;
                 Timer.enabled:=true;
                end; 
        end;
    end;
end. 


Скрипт обновлен 16.02.2012!!!
Я прикрутил к нему таймер, и теперь он выполняет все, что обещает!

Поменять количество собираемых итемов можно в этой строчке:

Цитата: if (i>50) then Timer.enabled:=false;

Ну и как всегда - тестите, отписывайте недоработки,
Спасибкам буду рад!

[NonSteeler]

Обьясни поподробней, для чего скрипт? если что-бы просто собирать ресы, чем тебе хуже юзание вручную, а не с помощью скрипта и еще й емоции??
Вообще делаю все как написано, юзаю думать ничего не происходит, подхожу к ресу ближк, он просто собирается как и обычно...
может что-то не так?

[rulic]

Цитата: Сообщение от NonSteeler Обьясни поподробней, для чего скрипт? если что-бы просто собирать ресы, чем тебе хуже юзание вручную, а не с помощью скрипта и еще й емоции?? Вообще делаю все как написано, юзаю думать ничего не происходит, подхожу к ресу ближк, он просто собирается как и обычно... может что-то не так?

С помощью скрипта можно собрать очень много ресов за малое количество времени.Включаешь скрипт,выделяешь рес,нажимаешь думать и он собирает много ресов сразу!

[happytorn]

Было http://zhyk.ru/forum/showthread.php?...1%EE%F0&page=5

[mars2107]

Пртестил на aion1.ru не работает, но и с игры не кикает.

[haiivan]

На ню айон ско ко б непоставил чтоб сорбирало раз собирает токо 5 ростений ...

[Usilok77]

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

[Koshik]

Попробывала на нью, приходится нажимать несколько раз эмоцию, чтобы нормально собрать за раз) поставила кол-во 500, как стояло у меня на прошлом скрипте до обновления. Перс замирает на время сбора))

Тут вот в одном из постов(ссылку к сожалению не нашла) есть скрипт на 2.7 сбор, вот его использую. Но собирает по 10-15 за раз, сколько бы не ставила 100-500-1500. Видимо и в самом деле стоит ограничение пакетов.

Цитата: var IdRes,i,b:integer; begin //проверяем пакет if FromClient then case pck[1] of //узнаем иди ресурса #$ce: begin IdRes:=readD(6); end; //ловим пакет на эмоцию улыбка #$c2: begin if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then begin b:=IdRes; //собираем пакет и при каждом повторении к иди ресурса добавляем 1 For i:=1 to 30 do begin buf:=hstr('CE 00 57 6D FF'); writed(b); buf:=buf+#$00; sendtoserver; buf:=hstr('BA 00 57 79 FF 00 00 00 00'); sendtoserver; b:=b+1; end; end; end; end; end.

[Usilok77]

Цитата: Сообщение от Koshik Тут вот в одном из постов(ссылку к сожалению не нашла) есть скрипт на 2.7 сбор, вот его использую

очень странно, ведь это два одинаковых по выполнению скрипта...
почему твой скрипт собирает 15 за один раз, а мой меньше?)

[Koshik]

Цитата: Сообщение от Usilok77 очень странно, ведь это два одинаковых по выполнению скрипта... почему твой скрипт собирает 15 за один раз, а мой меньше?)

Может дело в кол-ве пакетов но хотя ставила одинаково в оба скрипта.

[Usilok77]

Обновил скрипт в шапке!
Тестируйте!

[Koshik]

Собирает минимум лишнего, в основном только тот вид ресурса на котором таргет) Для сравнения тот скрипт которым я пользовалась , собирает все подряд в кучу))

[Usilok77]

Цитата: Сообщение от Koshik Собирает минимум лишнего, в основном только тот вид ресурса на котором таргет) Для сравнения тот скрипт которым я пользовалась , собирает все подряд в кучу))

и это тоже странно, ведь принцып отлова id ресурсов я не менял...))

[Usilok77]

народ а на айон1 пашет? кто проверял, отпишитесь в пм плз...
у самого возможности проверить нет, а все-таки интересно=)

[mars2107]

Цитата: Сообщение от Usilok77 народ а на айон1 пашет? кто проверял, отпишитесь в пм плз... у самого возможности проверить нет, а все-таки интересно=)

не работает, скидывает с таргета ресурс.