ПоМоГиТе ПоЖ-Та С АлХиМиЕй

[hol]

извините, немогу найти подходящий скрипт на алхимию =(. Помогите пож-та: мне надо чтобы чар брал найтшейд, делал поизон, переливал его в кег, а когда в кег нельзя переливать, кидал кег в сундук и брал пустой(когда бутылки или найтшейд кончаются надо чтобы брал из сундука), кег-это бочка в которую можно слить 50 зелий... ПОМОГИТЕ ПОЖ-ТА

[DerMeister =)]

Я как раз сейчас занимаюсь написанием с нуля такого скрипта (это я про кег). Если не хочешь ждать, юзай поиск. Ждать долго

[hol]

Я как раз сейчас занимаюсь написанием с нуля такого скрипта (это я про кег). Если не хочешь ждать, юзай поиск. Ждать долго

а насколько долго???? можно плз побыстрее =))))))))))))))

[DerMeister =)]

Ну хз у меня сессия счас... не раньше следующих выходных =)

[hol]

кому не сложно, помогите плз тоже

[DerMeister =)]

Ну вопервых я не понял как это бутылки могут кончится, если в кег сливать... Насчёт подбора регов думай сам. Вот то что я написал, но: это скрипт для перл-длл (pinject)

Code: Select all

###(c) Der###

# Скрипт для крафта бутылок в кег.
# Пустые кеги хранятся в некотором контейнере (внимание: в скрипте нет проверки на содержимае кега, поэтому
# необходимо чтобы содержимое кега совпадало тем что производите). В процессе производства бутылки должны 
# падать именно в БекПак! Как только кег переполняется, скрипт откладывает его в другой контейнер. Скрипт 
# выполняется до тех пор пока имеются незаполненные кеги либо кончится рег. В настройках необходимо прописать
# типы, названия менюшек и сообщения вашего шарда. Кол-во строк массива @alch не ограничено. 
# Настройка производится переменной $i.

sub main_alc() {

$keg_type=0x1940;           #Тип кега
$mortar=0x0E9B;             #Тип мортиры
$mess1='You stop';          #Сообщение о результате алхимии (такое чтоб учитывало все варианты)
$mess2='is already full';   #Сообщение о том, что кег переполнен

#####################################################################################
#######[qw(Название бутылки в меню алхимии|Тип рега|Тип бутылки)], ##################
@alch=(                                                            ######      ######
       [qw(Greater_Explosion                0x0F8C    0x0F0D)   ], ###### $i=0 ######
       [qw(Greater_Heal                     0x0F85    0x0F0C)   ], ###### $i=1 ######
      );                                                           ##### и т.д. #####
#####################################################################################
# Тут установите продукт:

$i=1;

# Настройка закончена =)
####################################################################################

&wait(1000);

uo::print("Сегодня мы будем делать:");
 for($j=0;$j<3;$j++) {uo::print($alch[$i][$j]);}

uo::canceltarget();
 &wait(1000);

uo::print("Выберите контейнер с пустыми кегами...");
 uo::addobject("kegcont");
  &wait(500);
   while(uo::targeting()) {&wait(250);}

uo::useobject(kegcont);
 &wait(1000);

uo::print("Выберите контейнер для складирования наполненных кегов...");
 uo::addobject("receive_cont");
  &wait(500);
   while(uo::targeting()) {&wait(250);}

uo::findtype($keg_type,-1,kegcont);
 if(uo::findcount()){
  do{
   uo::findtype($keg_type,-1,kegcont);
    $keg_cur=uo::getserial(finditem);
    uo::grab(0,finditem);
     uo::deletejournal();

      until(uo::injournal($mess2)) {      
       uo::deletejournal();
        uo::waitmenu('make',$alch[$i][0]);
         uo::waittargettype($alch[$i][1]);
          uo::usetype($mortar);
           until(uo::injournal($mess1)) {&wait(250);}
            uo::findtype($alch[$i][2],-1,-1);

             if(uo::findcount()) {
              $tmp=uo::findcount();
               uo::waittargetobject(finditem);
                uo::useobject($keg_cur);
                 while(uo::findcount()==$tmp && !uo::injournal($mess2)) {&wait(1000); uo::findtype($alch[$i][2],-1,-1);}
             }

      }

       uo::canceltarget();
        uo::moveitem($keg_cur,0,receive_cont);
         &wait(1000);   

  }while(uo::findcount());
 }
uo::print("Кеги кончились либо контейнер с кегами задан неверно...");
}

ЗЫ: Под найт шейд настроишь сам

[hol]

СПАСИБО СПАСИБО СПАСИБО И ЕЩЁ РАЗ СПАСИБО =))) Пока не проверял, но думаю хорошая вещь +) и есчё 1:он реги берёт из сундука? я чёт не увидел в скрипте, чтобы брал, допиши плз, чтоб ещё когда реги кончаются из сундука брал +))

[DerMeister =)]

Насчёт подбора регов думай сам.

Я ж написал что думай сам... Это 4 строчки добавить, но мне это не нужно, а я писал в первую чередь под себя.

ЗЫ: Читай внимательнее...

[hol]

и у меня ещё у меян выскакивает ошибка line 11: pace error

[DerMeister =)]

и у меня ещё у меян выскакивает ошибка line 11: pace error

Читай ВНИМАТЕЛЬНЕЕ!!!

[hol]

и у меня ещё у меян выскакивает ошибка line 11: pace error

Читай ВНИМАТЕЛЬНЕЕ!!!

дык я всё вроед поменял, вот ток я непонимаю в чём проблема, я в скриптах в таких не особо понимаю, помоги плз =))

[DerMeister =)]

У тебя script.dll какой стоит? Родной от Yoko?

[hol]

вроде да, ща с сайта скачаю или дай плз ссылку если есть




скачал, теперь у меян не запускается инжа:пишет типа ПРИЛОЖЕНИЮ НЕ УДАЛОСЬ ЗАПУСТИТСЯ, ПОСКОЛЬКУ libexpat.dll не был найден

[DerMeister =)]

вроде да, ща с сайта скачаю или дай плз ссылку если есть

Так я же написал что тут нестандартная длл нужна... Читай про это в топике General-->Injection+Perl.

[hol]

оке, ща новую ставить буду +)

[DerMeister =)]

оке, ща новую ставить буду +)

Ты только копию старой не забудь оставить.
ЗЫ: Учти, там инсталл на 20 с лишним мегов.

[hol]

ТАМ АРХИВ С ДЛЛ БИТЫЙ +(((((((((( а ту штуку на 20 метров проинсталировал и чёто неврубаюсьт немного +_)))

[DerMeister =)]

ТАМ АРХИВ С ДЛЛ БИТЫЙ +(((((((((( а ту штуку на 20 метров проинсталировал и чёто неврубаюсьт немного +_)))

Скачай снова, вроде бы я сам сёдня последнюю качал и всё норм.
У тебя версия самого инжекта какая?

[dmitrykit]

Prinuditelnjoje podsazhivanije userov na PERL

[DerMeister =)]

Ну всёже главное что я для себя писал... А для себя есстесьно на перле