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

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


> > Переработка шерсти на 4 КОЛЁСАХ и еще...))) >
LostLife
сообщение 28.11.2006, 13:48
Сообщение #1


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

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



Вот скрипт для переработки хлопка на 4 колёсах + к нему еще сразу никти в рулоны , переделайте пожалуста скрипты чтобы, 1: перерабатывал шерсть (Piles of wool) на 4 колёсах , 2: на прялке делал рулоны из balls of yarn (то что получается из шерсти) разрезал их и складывал обратно в сумку.... Оба скрипта уже настроены под мои вещи laught.gif



Хлопок на 4 колёсах
Код
sub weak()
Uo.UseObject('0x40E63632'); скрипт мечтает запомнить сундук
ironmaiden:
Uo.exec("unsetcatchbag")
UO.FindType('0x0DF9','0x0000','backpack')
If UO.GetQuantity('finditem')<5 then
Uo.UseObject('0x40A20AB4')
UO.FindType('0x0DF9','0x0000','0x40E63632'); сундук c хлопком
wait(1000)
UO.Grab('50','finditem')
wait(1000)
Endif
UO.setcatchbag('0x40E63632')
Uo.WaitTargetObject('0x40FA6120'); 1 прялка
Uo.UseType('0x0DF9')
wait(700)
Uo.WaitTargetObject('0x40D06514'); 2 прялка
Uo.UseType('0x0DF9')
wait(700)
Uo.WaitTargetObject('0x40D06222'); 3 прялка.. не уколитесь. Принц вас целовать не будет!
Uo.UseType('0x0DF9')
wait(700)
Uo.WaitTargetObject('0x4089779E'); 4 прялка.. зато в невродеспансер загребут.
Uo.UseType('0x0DF9')
wait(700)
Uo.exec("unsetcatchbag")
goto ironmaiden
end sub




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

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

sub UprightLoom()
VAR container='0x40E63632', nitki='0x0FA0', scissors='0x0F9E', cutbolt='0x175D', Waiter=500
VAR loom, bolt, Exit, i
  
  UO.UseObject(container)
  wait(Waiter+500)
  
  UO.FindType('0x1062','-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
    
    UO.FindType(nitki,'-1',container)
  wend                                                         # конец цикла №1
  UO.Print('Закончились нитки в бочке. Закончилось желание ткать.')

end sub

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

Sub deljournal(msg)
  while UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg)-1,"")
  wend
end sub



Зарание спасибо!!!
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 2) >
LostLife
сообщение 29.11.2006, 19:39
Сообщение #2


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

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



Тему можно закрывать. Сам во всём разобрался , сам всё переделал и вроде работает , никаких сбоев нету laught.gif

Сообщение отредактировал LostLife - 29.11.2006, 19:59
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
SmonkL
сообщение 30.11.2006, 8:19
Сообщение #3


Old School
Group Icon

Группа: Пользователи
Сообщений: 1 950
Регистрация: 31.8.2005
Из: Санкт-Петербург
Пользователь №: 1 655
Спасибо сказали: 228 раз(а)
Класс: Друид



Копирайты забыли. Наш скромный друг, модератор этого раздела, сам не решится, поэтому скажу за него :)_

Первый скрипт мой, а второй принадлежит перу Лорда Shoo Tup.

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

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

 

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