Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

дюп материалов

-

Боты, скрипты и прочий софт для Aion

- Весь софт по Aion, скрипты и боты для игры

Ответ
 
Опции темы
Старый 09.04.2012, 19:47   #1
 Разведчик
Аватар для DreiUnikl
 
DreiUnikl на правильном путиDreiUnikl на правильном пути
Регистрация: 13.10.2010
Сообщений: 12
Популярность: 104
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 1 сообщении
 
По умолчанию дюп материалов

Собственно сам скрип
Для версии 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 без него не справился бы.

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

Последний раз редактировалось talala; 10.04.2012 в 23:51.
  Ответить с цитированием
3 пользователя(ей) сказали cпасибо:
altairalentus (13.04.2012), c-lavr (10.04.2012), Ranger13 (11.04.2012)
Старый 09.04.2012, 20:21   #2
Заблокирован
 Разведчик
Аватар для Bruniq
 
Bruniq на правильном пути
Регистрация: 30.12.2011
Сообщений: 49
Популярность: 73
Сказал(а) спасибо: 19
Поблагодарили 8 раз(а) в 7 сообщениях
 
По умолчанию Re: дюп материалов

2.Ложим на аукцион за 1 кинар и сразу забираем (ловим 2 пакета и вставляем в скрипт)
Именно что ложить?
  Ответить с цитированием
Старый 09.04.2012, 20:22   #3
 Разведчик
Аватар для DreiUnikl
 
DreiUnikl на правильном путиDreiUnikl на правильном пути
Регистрация: 13.10.2010
Сообщений: 12
Популярность: 104
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 1 сообщении
 
По умолчанию Re: дюп материалов

Сияющий эфир
  Ответить с цитированием
Старый 09.04.2012, 21:51   #4
Подпольщик Aion
 Сержант
Аватар для altairalentus
 
altairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауру
Регистрация: 22.10.2010
Сообщений: 105
Популярность: 521
Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
Отправить сообщение для altairalentus с помощью Skype™
 
По умолчанию Re: дюп материалов

Принцип бага старый но работает. Может в подполья?
  Ответить с цитированием
Старый 09.04.2012, 22:01   #5
 Разведчик
Аватар для DreiUnikl
 
DreiUnikl на правильном путиDreiUnikl на правильном пути
Регистрация: 13.10.2010
Сообщений: 12
Популярность: 104
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 1 сообщении
 
По умолчанию Re: дюп материалов

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

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

а в подполье думаю не стоит пусть люди пользуются )
  Ответить с цитированием
Старый 09.04.2012, 22:12   #6
 Разведчик
Аватар для aga-aga
 
aga-aga никому не известный тип
Регистрация: 02.04.2012
Сообщений: 39
Популярность: 18
Сказал(а) спасибо: 90
Поблагодарили 4 раз(а) в 4 сообщениях
 
По умолчанию Re: дюп материалов

awars фикс походу деньги только тратятся и все.
  Ответить с цитированием
Старый 09.04.2012, 23:32   #7
 Разведчик
Аватар для viron
 
viron никому не известный тип
Регистрация: 19.04.2009
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: дюп материалов

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

на Fi**l также тока деньги идут, ставить на аукцыон и снимает с аука и все
  Ответить с цитированием
Старый 10.04.2012, 17:12   #8
Читер-олигарх
 Рыцарь
Аватар для c-lavr
 
c-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нации
Регистрация: 20.10.2011
Сообщений: 395
Популярность: 3913
Сказал(а) спасибо: 253
Поблагодарили 468 раз(а) в 122 сообщениях
Отправить сообщение для c-lavr с помощью Skype™
 
По умолчанию Re: дюп материалов

Автор, напиши что это для 2.7 версии) А где не работает, я доделаю - там пакетик сервер шлет на проверку -его прост поменять нужно)
Также попробую его подогнать под Легенду - ток не говорите, что там работать не будет)
________________
Затыкай меня спасибками
  Ответить с цитированием
Пользователь сказал cпасибо:
DreiUnikl (11.04.2012)
Старый 13.04.2012, 09:46   #9
 Разведчик
Аватар для DarkdalV
 
DarkdalV никому не известный тип
Регистрация: 11.10.2009
Сообщений: 14
Популярность: 10
Сказал(а) спасибо: 8
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: дюп материалов

Обязательно именно сияющий эфир класть? Можно что-нибудь другое, которое тоже на 3 распадается? И работает ли этот баг на НьюАйоне х2 ?
  Ответить с цитированием
Старый 13.04.2012, 11:20   #10
 Разведчик
Аватар для DreiUnikl
 
DreiUnikl на правильном путиDreiUnikl на правильном пути
Регистрация: 13.10.2010
Сообщений: 12
Популярность: 104
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 1 сообщении
 
По умолчанию Re: дюп материалов

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

Любой материал который раскладывается на части а про серв не знаю там не пробывал =)
  Ответить с цитированием
Старый 13.04.2012, 12:44   #11
Подпольщик Aion
 Сержант
Аватар для altairalentus
 
altairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауру
Регистрация: 22.10.2010
Сообщений: 105
Популярность: 521
Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
Отправить сообщение для altairalentus с помощью Skype™
 
По умолчанию Re: дюп материалов

У меня на сервере данный баг работает и через подать выкупить
вот скрипт
Код:
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
  Ответить с цитированием
Старый 13.04.2012, 16:22   #12
 Разведчик
Аватар для Est_SAN
 
Est_SAN на правильном пути
Регистрация: 19.12.2011
Сообщений: 23
Популярность: 26
Сказал(а) спасибо: 4
Поблагодарили 10 раз(а) в 6 сообщениях
Отправить сообщение для Est_SAN с помощью Skype™
 
По умолчанию Re: дюп материалов

на нью дюпать не получается.......
  Ответить с цитированием
Старый 19.04.2012, 12:40   #13
 Старший сержант
Аватар для $maile
 
$maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :($maile сломал счётчик популярности :(
Регистрация: 07.11.2011
Сообщений: 197
Популярность: 15877
Сказал(а) спасибо: 335
Поблагодарили 330 раз(а) в 151 сообщениях
Отправить сообщение для $maile с помощью ICQ Отправить сообщение для $maile с помощью Skype™
 
По умолчанию Re: дюп материалов

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

Последний раз редактировалось $maile; 19.04.2012 в 12:42.
  Ответить с цитированием
Старый 19.04.2012, 15:56   #14
Подпольщик Aion
 Сержант
Аватар для altairalentus
 
altairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауруaltairalentus излучает ауру
Регистрация: 22.10.2010
Сообщений: 105
Популярность: 521
Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
Отправить сообщение для altairalentus с помощью Skype™
 
По умолчанию Re: дюп материалов

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

Раньше можно было такт делать но сейчас надо тестировать
  Ответить с цитированием
Старый 22.04.2012, 05:32   #15
 Разведчик
Аватар для inkognito-2012
 
inkognito-2012 никому не известный тип
Регистрация: 04.04.2012
Сообщений: 9
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: дюп материалов

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

Код:
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, так как он у нас распределен в каждом действии, там он просто лишний.

Последний раз редактировалось inkognito-2012; 22.04.2012 в 05:37.
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 13:13.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net