Показано с 1 по 5 из 5

Тема: Карпентри и Боукрафт

  1. #1
    Житель Ультимы (Level 1)
    Регистрация
    13.03.2018
    Сообщений
    55

    Карпентри и Боукрафт

    Друзья!
    Подскажите есть ли у кого рабочий/проверенный скрипт на :
    1) Карпентри (в идеале: берет логи с пола , делает бумагу, из бумаги делает дид, дид кидает в треш или сундук и так пока не кончатся логи под ногами)
    2) Боукрафт берет логи/доски и перья из сундука , делает стрелы затем скидывает обратно в сундук, как - то так
    Заранее спасибо!

  2. #2
    Житель Ультимы (Level 1)
    Регистрация
    05.03.2018
    Сообщений
    39
    sub carpentri()#доски#
    var pack=0x401DE1DF #айди сундука с бревнами#
    repeat
    UO.WarMode('0')
    wait(1000)
    if UO.Count(0x1BDD,0x000)<10 then #тип бревен#
    UO.FindType(0x1BDD,0x000,pack)#тип бревен#
    UO.Grab('200','finditem')
    wait(1000)
    end if
    if UO.Count(0x1BD7)>100 then #тип досок#
    UO.FindType(0x1BD7)#тип досок#
    UO.MoveItem('finditem','all',pack)
    wait(1000)
    end if
    UO.DeleteJournal()
    wait(5000)
    while not UO.InJournal('You put the Board')##
    UO.sayu('.macro_on')
    UO.WaitTargetType(0x1BDD,0x000)#тип бревен#
    UO.UseType(0x1032)#рубанок#
    wait(1000)
    UO.LClick(488,500)
    wait(10000)
    wend
    while UO.Count(0x1BDD,0x000)>0 #тип бревен#
    wait(1000)
    wend
    until False
    end sub

  3. #3
    Житель Ультимы (Level 1)
    Регистрация
    05.03.2018
    Сообщений
    39
    sub BowCraft()#штивт#
    var pack=0x401DE1DF #сундук с бревнами и досками#
    repeat
    UO.WarMode('0')
    wait(1000)
    if UO.Count(0x1BDD,0x000)<2 then #бревно#
    wait(10000)
    UO.FindType(0x1BDD,0x000,pack)#бревно#
    UO.Grab('2','finditem')
    wait(1000)
    end if
    if UO.Count(0x1BD7,0x000)<10 then #доски#
    UO.FindType(0x1BD7,0x000,pack)#доски#
    UO.Grab('300','finditem')
    wait(1000)
    end if
    if UO.Count(0x1BD4)>100 then #штивт#
    UO.FindType(0x1BD4)#штивт#
    UO.MoveItem('finditem','all',pack)
    wait(1000)
    end if
    UO.DeleteJournal()
    wait(5000)
    while not UO.InJournal('You put the shafts')
    UO.sayu('.macro_on')
    UO.WaitTargetType(0x1BDD,0x000)#бревно#
    UO.UseType(0x0F51)#даггер#
    wait(1000)
    UO.LClick(460,544)
    wait(10000)
    wend
    while UO.Count(0x1BDD,0x000)>0 #бревно#
    wait(1000)
    wend
    until False
    end sub

  4. #4
    Житель Ультимы (Level 1)
    Регистрация
    05.03.2018
    Сообщений
    39
    берем логи делаем доски ,потом в пак берем доски и пару брёвен и делаем штивты

  5. #5
    Житель Ультимы (Level 1)
    Регистрация
    13.03.2018
    Сообщений
    55
    Спасибо!

Ваши права

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