Главная »
Форум » Форум » Вспомогательные программы
 скрипт боукрафт, не робит
Опции Открыть меню
Ефрейтор (191312)11 лет
Ranger
Сообщений: 112
Рег. 28.02.2013
15 апреля 2014 17:38
Сообщение #1
Использую вот этот скрипт

sub bow_kindling()
var Chest = '0x40A9886F'; ID ??????? ??? ????? ????
var Log   = '0x1BDD';??? ?????
var Dag   = '0x0F51';??? ???????
var Kindl = '0x0DE1';??? ???????
var Kolvo = 100; ??????? ????? ????? ?????????????? ?? ?????????
var Camp  = 1; ?????? ????? ??????? ? ????????
var Hid   = 0; ?????????
while uo.count(Kindl) < Kolvo
    cheklag()
      UO.FindType( Log, '-1', Chest )
      if uo.findcount() < 1 then
          uo.exec('terminate bow_kindling')
      endif
      if uo.count(Log)==0 then
        uo.Grab(1,'finditem', 'backpack')
        wait(200)
    endif    
    while uo.count(Log)>0
        uo.usetype(Dag)
        uo.waittargettype(Log)
        UO.WaitMenu('What','Kindlings','Kindlings','Kindling')
        wait(4000)
    wend
    if Hid>0 then
        uo.useskill('Hiding')
        wait(1000)
    endif
wend
if Camp>0 then
    Camping()
endif    
end sub

sub Camping()
var mx=uo.getx(),my=uo.gety(),x,y
uo.set('finddistance',5)
wait(200)
uo.DeleteJournal()
while 1==1
    for x=mx-2 to mx+2
       for y=my-2 to my+2
          cheklag()          
          if (uo.count('0x0DE1','0x0000')==0) then
             bow_kindling()
          end if
          uo.findtype('0x0DE1','0x0000','ground')
          wait(200)
          if UO.FindCount()<>0 then
             uo.useobject('finditem')
             wait(1500)            
          else
             uo.findtype('0x0DE1','0x0000','backpack')
             wait(200)
             uo.drop('1',STR(x),STR(y),STR(uo.getz()),'finditem')
             wait(700)
             uo.findtype('0x0DE1','0x0000','ground')
             wait(200)            
             uo.useobject('finditem')
             wait(1500)            
          end if
       next    
    next
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
  wait(100)
Until UO.InJournal("Backpack")
end sub



Вот что пишет скрипт боукрафт
Что я делаю не так ? :dntknw:
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 апреля 2014 20:24
Сообщение #2
Меню крафта меняется в соответствии количества и вида ресурсов в инвентаре персонажа.

Попробуй заменить
UO.WaitMenu('What','Kindlings','Kindlings','Kindling')


На
UO.WaitMenu('What do you want', 'kindling')
Ефрейтор (191312)11 лет
Ranger
Сообщений: 112
Рег. 28.02.2013
15 апреля 2014 21:16
Сообщение #3
Leprechaun,
Не помогло =( берет из сундука 1 бревно и пишет то же самое =(
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 апреля 2014 21:22
Сообщение #4
Замени
uo.usetype(Dag)
uo.waittargettype(Log)
UO.WaitMenu('What','Kindlings','Kindlings','Kindling')
wait(4000)


На
UO.WaitMenu('What do you want', 'kindling')
UO.WaitTargetType( Log )
UO.UseType( Dag )
Wait(500)
Ефрейтор (191312)11 лет
Ranger
Сообщений: 112
Рег. 28.02.2013
15 апреля 2014 21:44
Сообщение #5
Leprechaun,
появилось меню (много раз)
пишет тоже самое. дальше меню не идет.
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 апреля 2014 21:50
Сообщение #6
Извиняюсь, моя ошибка.

Замени
UO.WaitMenu('What do you want', 'kindling')
UO.WaitTargetType( Log )
UO.UseType( Dag )
Wait(500)


На
UO.DeleteJournal()
UO.WaitMenu('What do you want', 'kindling')
UO.WaitTargetType( Log )
UO.UseType( Dag )
Repeat
Wait(100)
Until UO.InJournal('You put|fail')
Ефрейтор (191312)11 лет
Ranger
Сообщений: 112
Рег. 28.02.2013
15 апреля 2014 21:57
Сообщение #7
Leprechaun,
Теперь та же ошибка, но только 1 раз и тишинаааааа, меню не появилось :no2:
Может у кого есть другой скрипт ?
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
15 апреля 2014 22:08
Сообщение #8
DudeCan,
сейчас попытка будет №4 )))))) норм
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 апреля 2014 22:36
Сообщение #9
А если Kindling с заглавной буквой?
Ефрейтор (191312)11 лет
Ranger
Сообщений: 112
Рег. 28.02.2013
15 апреля 2014 22:43
Сообщение #10
Leprechaun,
Ты просто красавчик!!!! заработало!!!! :yahoo:
СПАСИБО!!!!!!
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 апреля 2014 22:45
Сообщение #11
На здоровье (:
Лейтенант (3769662)11 лет
Dragonstalker
Сообщений: 60
Рег. 6.06.2013
9 ноября 2015 10:53
Сообщение #12
[/code]sub Camping()
var mx=uo.getx(),my=uo.gety(),x,y
uo.set('finddistance',5)
wait(200)
uo.DeleteJournal()
while 1==1
    for x=mx-2 to mx+2
       for y=my-2 to my+2
          cheklag()          
          if (uo.count('0x0DE1','0x0000')==0) then
             bow_kindling()
          end if
          uo.findtype('0x0DE1','0x0000','ground')
          wait(200)
          if UO.FindCount()<>0 then
             uo.useobject('finditem')
             wait(1500)            
          else
             uo.findtype('0x0DE1','0x0000','backpack')
             wait(200)
             uo.drop('1',STR(x),STR(y),STR(uo.getz()),'finditem')
             wait(700)
             uo.findtype('0x0DE1','0x0000','ground')
             wait(200)            
             uo.useobject('finditem')
             wait(1500)            
          end if
       next    
    next
wend
Полковник (15397470)11 лет
Dragonstalker
Сообщений: 1870
Рег. 21.06.2013
12 ноября 2015 08:18
Сообщение #13
Napoleon,
не работает, энд саб и чеклаг добавил.
Лейтенант (3769662)11 лет
Dragonstalker
Сообщений: 60
Рег. 6.06.2013
12 ноября 2015 17:01
Сообщение #14
Que,
Ну я на нем выкачал, правда на старом инжекте
Полковник (15397470)11 лет
Dragonstalker
Сообщений: 1870
Рег. 21.06.2013
12 ноября 2015 18:50
Сообщение #15
Napoleon,
возможно из за инжи .. а этот скрипт по сторонам кидает ?
Последние посетители (0):

 
Сейчас: 24 ноября 2024 09:23


© The Best Ultima Online Shard Antares, 2004-2024