[Скрипт] дюп материалов

[DreiUnikl]

Собственно сам скрип
Для версии 2.7

var
Timer:TTimer;
TimerStep:integer;
TargetID:integer; 
StartSkill:word;
name:string;

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

procedure Free;
begin
   Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin
   case TimerStep of
        1: 
         begin
             Timer.interval:=6000; //Таймер
             buf := HStr('CC 00 57 6B FF B8 7C 0B 00 00'); // пакет извлечения
             SendToServerEx(name);
             buf := HStr('EE 01 57 8D FE 15 EB 00 00 CB BC 0B 00 01 00 00 00 00 00 00 00 01 00'); //Регистрация на аукционе
             SendToServerEx(name);
             Inc(TimerStep); 
         end;
        2:
         begin
             Timer.interval:=1;
             buf := HStr('EF 01 57 8C FE 15 EB 00 00 CB BC 0B 00'); //Снятие с аукциона
             SendToServerEx(name);
             TimerStep:=1;
         end;
   end;
end;

begin
    if FromClient and (ReadC(1) = $9F) then 
       name:=ConnectName;

    if FromClient and (pck=HStr('C2 00 57 61 FF 15 0D 00 00 00 00 00')) then // Активация эмоция (ловите свой пакет)
       begin
           Timer.enabled:=true;
           pck:='';
       end;
       
 if FromClient and (pck=HStr('C2 00 57 61 FF 15 02 00 00 00 00 00')) then // Выключение эмоция (ловите свой пакет)
       begin
           Timer.enabled:=false;
           pck:='';
       end;
end.

Как пользоваться
1.Берём например 1 Сияющий эфир (если его разложить то получится 3 чистых эфира)
2.Ложим на аукцион 1 cияющий эфир за 1 кинар и сразу забираем (ловим 2 пакета и вставляем в скрипт)
3.используем 2 эмоции какие захотите (ловим 2 пакета вставляем в скрип)
4.Используем сияющий эфир (ловим 1 пакет вставляем в скрип)
5.Берём ещё 1 сияющий эфир
6.сохраняем скрип ставим галочку нажимаем на эмоцию которую выбрали и скрип автоматически будет ложить эфир на аукцион и забирать и использовать его.

За минуту делает по 30 разложенных материалов (в нашем случае чистый эфир)

Перса оставлять надо возле аукциона
Пакеты ловите свои
Выключается той эмоцией которой выбрали сами
Если что-то не получилось отписываемся
во время работы перса не трогайте пусть дюпает =)

В сумке должно лежать то что дюпаем только в одном экземпляре

Большое спасибо в доработке скрипта c-lavr без него не справился бы.

Большое спасибо за внимание

[Bruniq]

2.Ложим на аукцион за 1 кинар и сразу забираем (ловим 2 пакета и вставляем в скрипт)
Именно что ложить?

[DreiUnikl]

Сияющий эфир

[altairalentus]

Принцип бага старый но работает. Может в подполья?

[DreiUnikl]

Цитата: Сообщение от altairalentus Принцип бага старый но работает. Может в подполья?

Баг и вправду старый ток скрипт вот не старый )

а в подполье думаю не стоит пусть люди пользуются )

[aga-aga]

awars фикс походу деньги только тратятся и все.

[viron]

Цитата: Сообщение от aga-aga awars фикс походу деньги только тратятся и все.

на Fi**l также тока деньги идут, ставить на аукцыон и снимает с аука и все

[c-lavr]

Автор, напиши что это для 2.7 версии) А где не работает, я доделаю - там пакетик сервер шлет на проверку -его прост поменять нужно)
Также попробую его подогнать под Легенду - ток не говорите, что там работать не будет)

[DarkdalV]

Обязательно именно сияющий эфир класть? Можно что-нибудь другое, которое тоже на 3 распадается? И работает ли этот баг на НьюАйоне х2 ?

[DreiUnikl]

Цитата: Сообщение от DarkdalV Обязательно именно сияющий эфир класть? Можно что-нибудь другое, которое тоже на 3 распадается? И работает ли этот баг на НьюАйоне х2 ?

Любой материал который раскладывается на части а про серв не знаю там не пробывал =)

[altairalentus]

У меня на сервере данный баг работает и через подать выкупить
вот скрипт

var
iditem,temp,step:integer;
Timer: TTimer;

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

procedure Free; 
begin

end;

procedure TimerOn;
    begin
        case step of
            0:
                begin
                    buf:=#$CC#$00#$57#$6B#$FF#$00#$00#$00#$00#$00; 
                    writed(temp,6);
                    SendToServerEx('qqq');   
                    buf:=#$9A#$00#$57#$59#$FF#$3A#$01#$00#$00#$01#$00#$01#$00#$00#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00; 
                    writed(temp,14);
                    SendToServerEx('qqq'); 
                    Timer.interval:=6000; 
                    Inc(step);
                end;
            1: 
                begin
                    buf:=#$9A#$00#$57#$59#$FF#$3A#$01#$00#$00#$02#$00#$01#$00#$00#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00; 
                    writed(temp,14);
                    SendToServerEx('qqq'); 
                    Timer.interval:=100; 
                    step:=0;
                end;  
            2: 
                begin
                    buf:=#$9A#$00#$57#$59#$FF#$3A#$01#$00#$00#$02#$00#$01#$00#$00#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00; 
                    writed(temp,14);
                    SendToServerEx('qqq'); 
                    Timer.interval:=100;  
                    timer.enabled:=False;
                    step:=0; 
                end;       
        end;
    end;    

begin
    if FromClient then   
        case pck[1] of
            #$b2:    
                case reads(7) of
                    '.item':      //пишем свои команды
                        begin     
                        temp:=iditem;
                        timer.enabled:=true;  
                        end;
                    '.itemoff': step:=2;   //пишем свои команды
                        
                end; 
            #$33:  
                begin
                    iditem:=readd(6);
                    SetName('qqq');
                end;  
        end;
        
       

end.

Включаем скрипт потом перемещаем в инвентаре итем который открываем
и пишем в чат .item потом как надоест .itemoff

[Est_SAN]

на нью дюпать не получается.......

[$maile]

Робит! Кто не умеет ловить пакеты пишите в лс
Такое с маг/волш камнями проделать можно?

[altairalentus]

Цитата: Сообщение от $mail Робит! Кто не умеет ловить пакеты пишите в лс Такое с маг/волш камнями проделать можно?

Раньше можно было такт делать но сейчас надо тестировать

[inkognito-2012]

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

case TimerStep of
        1: 
         begin      
         buf := HStr(''); // пакет извлечения
         SendToServerEx(name); 
         Timer.interval:=4500;
         Inc(TimerStep); 
         end;    
             
         2:
         begin                
         buf := HStr(''); //Регистрация на аукционе
         SendToServerEx(name);   
         Timer.interval:=1000;
         Inc(TimerStep);  
         end;
         
        3:
         begin        
         Timer.interval:=1;
         buf := HStr(''); //Снятие с аукциона
         SendToServerEx(name);  
         TimerStep:=1; 
         end;

стоит просто заменить в процедуре таймера case скопировав. ( вообщем-то это легко )

Да, и, в Procedure Init необязательно обозначать Timer.interval, так как он у нас распределен в каждом действии, там он просто лишний.