Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > скрипт на делалку рулонов=), умный тока=))) >
Afina
сообщение 17.11.2006, 14:03
Сообщение #1


Реальный чувак
Group Icon

Группа: Пользователи
Сообщений: 431
Регистрация: 31.10.2005
Пользователь №: 2 157
Спасибо сказали: 31 раз(а)
Класс: Друид



Парни, нужен скриптец такой чтобы делал все качестнно, тоесть брал из сундука нитки ваял рулоны ткани, резал их и складывал обратно в тот же сундук в виде ткани=))

если нужно то могу дать скрипт который из ниток делает рулоны но тока из тех что в паке и ничо больше с ними не делает, его можно взять за основу=)))
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 12) >
geernick
сообщение 17.11.2006, 14:16
Сообщение #2


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



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

Код

###---в переменную контейнер проставить ID соего сундука/ящика/бочки и т.п.
###---@ ЦАПО "Силиконовая Грудь"

###---ПЕРЕРАБОТКА НИТОК В РАЗРЕЗАННУЮ ТКАНЬ

sub UprightLoom()
VAR container='0x00000000', nitki='0x0FA0', scissors='0x0F9E', cutbolt='0x175D', Waiter=500
VAR loom, bolt, Exit, i
  
  UO.UseObject(container)
  wait(Waiter+500)
  
  UO.FindType('0x105F','-1','ground')                          # ищем прялку на земле
  if UO.FindCount() then
    loom=UO.GetSerial("finditem")  
    UO.Click(loom)
    wait(200)
  end if
  
  UO.FindType(scissors,'-1',container)                         # ищем ножницы в контейнере
  if UO.FindCount() then
    UO.Grab('1','finditem')
    wait(Waiter)
  else
    UO.FindType(scissors, -1,'backpack')                       # ищем ножницы в бэкпаке
    if UO.FindCount()==0 then
      UO.Print('Ножниц нет ни в паке, ни в бочке, поэтому идите-ка вы все в Ж.. с таким скриптом')
      return
    end if
  end if
  
  UO.FindType(nitki,'-1',container)                            # ищем нитки в контейнере
  while UO.FindCount()                                         # цикл №1
    Exit=0
    while Exit==0                                              # цикл №2
      #ToHide()
      UO.FindType(nitki,'-1','backpack');ищем нитки в паке
      if UO.FindCount() then
        deljournal("You|Bolt|added")
        UO.WaitTargetObject(loom)  
        UO.UseType(nitki)
      else
        UO.FindType(nitki,'-1',container)
        if UO.FindCount() then
          UO.Grab('50','finditem')
          wait(Waiter)
          deljournal("You|Bolt|added")
          UO.WaitTargetObject(loom)
          UO.UseType(nitki)
        else
          UO.Print('Закончились нитки в бочке. Закончилось желание ткать.')
          return
        end if
      end if  
      repeat
        wait(100)
      until UO.InJournal("You|Bolt|added")
      if UO.InJournal("You put") then
        Exit=1
      end if
    wend                                                       # конец цикла №2
    
    UO.FindType('0x0F95','-1','backpack')                      # ищем штуку ткани в бэкпаке
    if UO.FindCount() then
      bolt=UO.GetSerial('finditem')
      UO.WaitTargetObject(bolt)
      UO.UseType(scissors)
      wait(Waiter+600)
      UO.FindType(cutbolt, -1,'backpack')
      if UO.FindCount() then
        for i=1 to UO.FindCount()
          UO.FindType(cutbolt, -1,'backpack')
          UO.MoveItem('finditem','0',container)
          wait(Waiter)
        next
        UO.Print("Переложили матерью")
      end if
    else
      UO.Print('Не вижу у себя в рюкзаке штуки ткани, поэтому я обиделся и работать больше не буду')
      return
    end if
  wend                                                         # конец цикла №1
  UO.Print('Закончились нитки в бочке. Закончилось желание ткать.')
  
end sub

###---СТЕРЕТЬ ЖУРНАЛ

Sub deljournal(msg)
  while UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg)-1,"")
  wend
end sub
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 19.11.2006, 11:35
Сообщение #3


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Чёто у меня ошибку он выдаёт (ID сундука вписал...) берёт нитки и пишет Line 40: Runtime error.... Поможет кто? laught.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 20.11.2006, 3:26
Сообщение #4


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



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

замени в скрипте строчку с комментарием >># ищем прялку на земле
вот этой строкой:
Код

  UO.FindType('0x1066','-1','ground')                          # ищем ткацкий станок на земле


ведь это конечно не прялка а ткацкий станок laught.gif

Сообщение отредактировал geernick - 20.11.2006, 3:26
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 28.11.2006, 11:14
Сообщение #5


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Появилась ошибка , он берёт 1 раз нитки и.т.д. делает рулон разрезает , а потом вылазиет >>> Закончились нитки в бочке. Закончилось желание ткать. >>> хотя ниток там еще х*ева туча laught.gif Ктонебудь подскажите что делать?
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 28.11.2006, 12:03
Сообщение #6


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



Цитата(LostLife @ 28.11.2006, 14:14) *

...Ктонебудь подскажите что делать?

согласен, опять мой косячок ((( что-то не заладилось у меня с этим скриптом ((( anyway, спасибо за подсказку )

ладно, вот поправь. замени последние строчки скрипта:
Код

...
    else
      UO.Print('Не вижу у себя в рюкзаке штуки ткани, поэтому я обиделся и работать больше не буду')
      return
    end if
  wend                                                         # конец цикла №1
  UO.Print('Закончились нитки в бочке. Закончилось желание ткать.')
  
end sub


на

Код

...
    else
      UO.Print('Не вижу у себя в рюкзаке штуки ткани, поэтому я обиделся и работать больше не буду')
      return
    end if
    
    UO.FindType(nitki,'-1',container)
  wend                                                         # конец цикла №1
  UO.Print('Закончились нитки в бочке. Закончилось желание ткать.')

end sub


Сообщение отредактировал geernick - 28.11.2006, 12:06
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 28.11.2006, 12:43
Сообщение #7


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Цитата(geernick @ 28.11.2006, 14:03) *

согласен, опять мой косячок ((( что-то не заладилось у меня с этим скриптом ((( anyway, спасибо за подсказку )

ладно, вот поправь. замени последние строчки скрипта:
Код
...

на
Код
...


Спасибо agree.gif Теперь вроде всё работает!

Сообщение отредактировал LostLife - 28.11.2006, 12:44
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 28.11.2006, 13:11
Сообщение #8


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Нехочу давить , вроде всё норм исправил , контейнир и.т.д. всё нормально вроде вписано , НО щас крипт работает , опять же laught.gif НО теперь он выполняет таких циклов раз 100 может больше (не считал laught.gif ) , потом просто сидит и ничего не делает (было написано No item found. , хотя там еще много ниток) , НО ( laught.gif laught.gif ) скрипт запущен.... Может еще в чём ошибка есть? А то хотелось бы чтобы он повторял это всё пока не кончатся нитки....

Сообщение отредактировал LostLife - 28.11.2006, 13:33
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Madog
сообщение 28.11.2006, 14:15
Сообщение #9


Чувак
Group Icon

Группа: Пользователи
Сообщений: 198
Регистрация: 28.1.2005
Пользователь №: 397
Спасибо сказали: 0 раз(а)
Класс: Человек



Код

####################ПЕРЕРАБОТКА НИТОК###########################
sub Bolt()
Var Stanok='0x40779D13';ткацкий станок
Var Nitki='0x0FA0';нитки


UO.Print('Где берем, куда кидаем?')
UO.exec('addobject BResurs')
    while uo.Targeting()
        wait(100)
    wend
    
Repeat
If UO.Weight<530 Then
UO.FindType(Nitki,'-1','BResurs')
UO.MoveItem('finditem','162')
     wait(1000)
Repeat
UO.WaitTargetObject(Stanok)
UO.UseType(Nitki)
        Wait(500)
Until UO.Count(Nitki)<1
EndIF
UO.WaitTargetType('0x0F95')
UO.UseType('0x0F9E')
        Wait(1000)
UO.FindType('0x175D','-1','my')
UO.MoveItem('finditem','0','BResurs')
     wait(1000)
Until UO.Dead()    
    
Endsub


Попробуйте мой. Года полтора назад из чьего то скрипта переделывал. На днях как раз довелось проверить - работает!

Сообщение отредактировал Madog - 28.11.2006, 14:19
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 28.11.2006, 14:32
Сообщение #10


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



Цитата(LostLife @ 28.11.2006, 16:11) *

Может еще в чём ошибка есть?

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

вижу я, у тебя инет еще хуже, чем у меня на работе.

итак, 1. способ
в начале, где строка VAR ......... Waiter=500
измени значение Waiter на 1000
2. способ
попробуй воспользоваться лучше действительно скриптом madog'а, может он у тебя стабильнее будет работать

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

Сообщение отредактировал geernick - 28.11.2006, 14:42
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 28.11.2006, 15:04
Сообщение #11


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Насчёт инета , у меня T1\LAN 2048 , тоесть это ОЧЕНЬ даже хороший инет.... laught.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 28.11.2006, 16:01
Сообщение #12


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



Цитата(LostLife @ 28.11.2006, 18:04) *

у меня T1\LAN 2048 , тоесть это ОЧЕНЬ даже хороший инет....

был бы очень хороший - не было бы лагов. насколько я могу судить, твои проблемы возникают из-за того, что время ожидания в моих скриптах меньше, чем время ожидания, которое требует ТВОЯ связь.
то есть твои лаги - длиннее
у меня дома ADSL и таких ошибок не возникает. а если уж возникает, то полный дисконнект )))
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 28.11.2006, 19:26
Сообщение #13


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Цитата(geernick @ 28.11.2006, 18:01) *

был бы очень хороший - не было бы лагов. насколько я могу судить, твои проблемы возникают из-за того, что время ожидания в моих скриптах меньше, чем время ожидания, которое требует ТВОЯ связь.
то есть твои лаги - длиннее
у меня дома ADSL и таких ошибок не возникает. а если уж возникает, то полный дисконнект )))

Ну вроде сколько играю , лагов вообще нету....... laught.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 23.7.2018, 2:19
Design: Fisana  © 2005-2006 IBR Team