Yoko

All sides of Injection
https://yoko.uokit.com/

Помогите подправить Bowcraft

https://yoko.uokit.com/viewtopic.php?t=16663

Page 1 of 1

Помогите подправить Bowcraft

Posted: 2011-06-08 13:12:03
by son
Народ помогите подправить скриптик чар не хочет крафтить луки загорается последняя менюшка крафта там где тупо остается только на лук нажать ,но почему то не нажимается.Помогите убогому ,спасибо :roll:

Code: Select all

sub BowCraft() 
While UO.Count('0x1BDD', '0x0000')>=7 #??? ??? ????? ??????? 
UO.UseType('0x0F51') # Dagger ?????????? ??????? ????? 
UO.WaitTargetType('0x1BDD', '0x0000') #????? ?????? ?? ????? ?? ???? 
UO.Waitmenu('What do you want to carve the','Bows & Crossbows','Bows & Crossbows','bow' ) # ??? ??????? ?????? ??? ?????? ?? ?? ??? ???? 
wait(5000) 
Wend 
UO.Print("End log") 
end sub

Re: Помогите подправить Bowcraft

Posted: 2011-06-08 13:16:00
by Mirage
скрипт вверх тормашками и не понятной шнягой справа за коментами.

Code: Select all

sub BowCraft()
   While UO.Count('0x1BDD', '0x0000')>=7 #??? ??? ????? ???????
      UO.Waitmenu('What do you want','Bows','Bows','bow' ) # ??? ??????? ?????? ??? ?????? ?? ?? ??? ????      
      UO.WaitTargetType('0x1BDD', '0x0000') #????? ?????? ?? ????? ?? ????
      UO.UseType('0x0F51') # Dagger ?????????? ??????? ?????
      wait(5000)
   Wend
   UO.Print("End log")
end sub


меню проверь так должно работать

Re: Помогите подправить Bowcraft

Posted: 2011-06-08 13:35:00
by son
Mirage wrote:скрипт вверх тормашками и не понятной шнягой справа за коментами.

Code: Select all

sub BowCraft()
   While UO.Count('0x1BDD', '0x0000')>=7 #??? ??? ????? ???????
      UO.Waitmenu('What do you want','Bows','Bows','bow' ) # ??? ??????? ?????? ??? ?????? ?? ?? ??? ????      
      UO.WaitTargetType('0x1BDD', '0x0000') #????? ?????? ?? ????? ?? ????
      UO.UseType('0x0F51') # Dagger ?????????? ??????? ?????
      wait(5000)
   Wend
   UO.Print("End log")
end sub


меню проверь так должно работать


Пишет постоянно what do you want to use this from?
и не крафтит ничего

Re: Помогите подправить Bowcraft

Posted: 2011-06-08 14:45:23
by Mirage
Ответ прямо над твоей фразой. В моем последнем предложении. Смотри меню.
У меня на моем шарде меню для простых луков вот такое.
UO.WaitMenu ('What do you', 'Bow')
У тебя видимо двухслойное. Проверяй правильность всего написанного.

Re: Помогите подправить Bowcraft

Posted: 2011-06-08 14:55:56
by son
Mirage wrote:Ответ прямо над твоей фразой. В моем последнем предложении. Смотри меню.
У меня на моем шарде меню для простых луков вот такое.
UO.WaitMenu ('What do you', 'Bow')
У тебя видимо двухслойное. Проверяй правильность всего написанного.


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

Вот первая менюшка: http://www.imagepost.ru/?v=08.06_1.png
Вторая: http://www.imagepost.ru/?v=08.06_2.png

Re: Помогите подправить Bowcraft

Posted: 2011-06-08 15:13:52
by Incorrect User
UO.Waitmenu('What do you want','Bows','Bows','bow' )
Bow с большой буквы напиши попробуй.

Re: Помогите подправить Bowcraft

Posted: 2011-06-08 15:18:03
by son
Incorrect User wrote:UO.Waitmenu('What do you want','Bows','Bows','bow' )
Bow с большой буквы напиши попробуй.

Епа))))))))))))))Точняк все работает теперь)))))))))))Спасибо большое
Рабочий вариант:

Code: Select all

sub BowCraft()
   While UO.Count('0x1BDD', '0x0000')>=7 #??? ??? ????? ???????
      UO.Waitmenu('What do you want','Bows','Bows','Bow' ) # ??? ??????? ?????? ??? ?????? ?? ?? ??? ????      
      UO.WaitTargetType('0x1BDD', '0x0000') #????? ?????? ?? ????? ?? ????
      UO.UseType('0x0F51') # Dagger ?????????? ??????? ?????
      wait(5000)
   Wend
   UO.Print("End log")
end sub

Re: Помогите подправить Bowcraft

Posted: 2011-06-13 00:31:19
by Incorrect User
Нужно чуть расширить скрипт чтобы выкидывал луки из пака в треш и брал логи с пола. Но что-то невыходит:

Code: Select all

sub Bow()
var time
var mess = 'put|fail|skill'
 while not FindLogs() == 0
   if uo.count('0x1bdd')>6 then 
      uo.deletejournal()
      time = uo.timer()
      uo.waitmenu('What do you want','Bows','Bows','Bow')
      uo.waittargettype('0x1bdd') 
      uo.usetype('0x0F51')
      repeat
      wait (50)
      until uo.injournal(mess) or time + 60 < uo.timer()
    else
   Trash()
   Drag()
  endif
 wend
uo.print('Кончились логи!')
end sub

sub Trash()
var trash = ('0x6666666')
 while uo.count('0x13b2')>=1
   uo.findtype('0x13b2','backpack')
   uo.moveitem('finditem',1,trash)
   wait(200)
  wend
uo.print('Все луки выброшены!')
endsub

sub Drag()
var Box = '0x7777777'
 if FindLogs() == 1 then
  uo.findtype('0x1bdd','0x0000',Box)
  uo.moveitem('finditem',2500,'backpack')
  wait(500)
   else
  uo.findtype('0x1bdd','0x0000',Box)
  uo.moveitem('finditem',0,'backpack')
  wait(500)
 endif
endsub

sub FindLogs()
var Logs = '0x1bdd' # Type логов
var LogsC = '0x0000' # Color логов
var Box = '0x7777777' # ID сундука
uo.findtype(Logs,LogsC,Box)
 If UO.FindCount() == 0 Then
    return 0
 endif
uo.findtype(Logs,LogsC,Box)
 If UO.FindCount() >= 2500 Then 
    return 1
 Endif
uo.findtype(Logs,LogsC,Box)
 If UO.FindCount() <= 2500 Then 
    return 2
 Endif
endsub

Скрипт весь не тестил, пока только нужно поправить sub Trash, нехочет выкидывать луки в трешку, по паку пару раз с места на место перетаскивает и потом конлост :)

Re: Помогите подправить Bowcraft

Posted: 2011-06-13 01:11:17
by ZeroDX
если в uo.moveitem() 'trash' сделать без кавычек, мб и заработает

Re: Помогите подправить Bowcraft

Posted: 2011-06-13 01:15:47
by Incorrect User
если в uo.moveitem() 'trash' сделать без кавычек, мб и заработает

Непомогло. И когда запускаю sub Bow пишет сразу Кончились логи! хотя на полу логов достаточно.

Re: Помогите подправить Bowcraft

Posted: 2011-06-13 01:42:46
by ZeroDX
попробуй тут

Code: Select all

while uo.countground ('0x1bdd')>6
поставить "больше ноля"

Re: Помогите подправить Bowcraft

Posted: 2011-06-13 01:58:05
by Incorrect User
поставить "больше ноля"

Работает, а почему оно немогло определить >6?. Теперь, пока, только с трешем проблема осталась.

Re: Помогите подправить Bowcraft

Posted: 2011-06-13 10:00:57
by ZeroDX
ну еще moveitem'у нужно 3 параметра, 1-ый чё двигаем, 2-ой сколько двигаем, 3-ий куда двигаем), у тебя второго нету

Re: Помогите подправить Bowcraft

Posted: 2011-06-13 20:39:49
by Mirage
отдохнул один день а вы уж тут "разЪобщались" :mrgreen:
Итак...

Code: Select all

sub Bow()
   var time
   var mess = 'put|fail|skill'
   while not FindLogs() == 0
      if uo.count('0x1bdd')<7 then ; вот так будет работать.
         Trash()
         Drag()
      else
         uo.deletejournal()
         time = uo.timer()
         uo.waitmenu('What do you want','Bows','Bows','Bow')
         uo.waittargettype('0x1bdd')
         uo.usetype('0x0F51')
         repeat
            wait (500) ; паузы меньше 100 делать не стоит дабы не вызывать лишние ошибки в работе скрипта
         until uo.injournal(mess) or time + 60 < uo.timer()
      endif
   wend
   uo.print('Кончились логи!')
end sub
sub Trash()
   var trash = '0x6666666' ; скобки не нужны
   while uo.count('0x13b2')   ;  >=1 не нужно писать если треба определить количество больше нуля
      uo.findtype('0x13b2','backpack')
      uo.moveitem('finditem',0,trash) ; в данном случае 1 не обязательно так как предметы и так по одному
      wait(500) ; паузу лучше увеличить - средняя пауза перемещения предмета на серверах 300-500
   wend
   uo.print('Все луки выброшены!')
endsub
; ниже я вообще ничего не понял, зачем такое городить?
sub Drag()
   var Box = '0x7777777'
   if FindLogs() == 1 then
      uo.findtype('0x1bdd','0x0000',Box)
      uo.moveitem('finditem',2500,'backpack')
      wait(500)
   else
      uo.findtype('0x1bdd','0x0000',Box)
      uo.moveitem('finditem',0,'backpack')
      wait(500)
   endif
endsub
sub FindLogs()
   var Logs = '0x1bdd' # Type логов
   var LogsC = '0x0000' # Color логов
   var Box = '0x7777777' # ID сундука
   uo.findtype(Logs,LogsC,Box)
   If UO.FindCount() == 0 Then
      return 0
   endif
   uo.findtype(Logs,LogsC,Box)
   If UO.FindCount() >= 2500 Then
      return 1
   Endif
   uo.findtype(Logs,LogsC,Box)
   If UO.FindCount() <= 2500 Then
      return 2
   Endif
endsub


Давайте посмотрим мой пример:

Code: Select all

VAR Container   = '0x40B5267F'   ;айрон, рыба, инструменты, может быть равен Sunduk 1
VAR Trash   = '0x40B52599'   #трешка#
VAR log   = '0x1BDD'   
VAR Dagger   = '0x0F51'      
VAR Bow   = '0x13B1'      #лук#
VAR spool   = '0x0FA0'      #нитки#
VAR LastTimer, timemove
var msg ='You put|положили|fail|не удалось|You broke|сломали'
var printcolour = '1069'
sub Bowcraft()
   var menu = "waitmenu 'What do you' 'Bows' 'Bows' 'Bow'"
   WHILE NOT UO.Dead()
      GET(log, Container, 10, 800)  ; если логов меньше 10 добираем 800
      GET(spool, Container, 1, 100) ; если ниток меньше  1 добираем 100
      Repeat
         UO.DeleteJournal()
         LastTimer=UO.Timer()
         UO.exec( menu )
         UO.waittargettype ( log )
         UO.Usetype( Dagger )
         repeat
            wait( 100 )
         until UO.InJournal( msg ) or UO.Timer()>LastTimer+60
      Until UO.Count( Bow )>0
      checklag()
      PUT(Bow , Trash) 
   WEND
end sub
Sub GET(item, cont, min, max) ; предмет, откуда, минимум, сколько брать 
   If UO.Count( item ) < min Then
      UO.FindType( item, '-1', cont )
      if UO.FindCount() > 0 Then
         uo.charprint(printcolour,'Сырья в сундуке: '+Str(UO.GetQuantity('finditem')) )  
         itemM=UO.GetSerial('finditem')
         timemove=UO.Timer()
         while UO.ContainerOf(itemM)==cont && timemove+20>UO.Timer() 
            uo.moveitem('finditem', max, 'backpack')
            wait(300)
         wend
      else
         uo.charprint(printcolour, 'Полностью кончилось сырье' )
         UO.CancelMenu()
         MyTerminate()
      endif
   Endif
end sub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
      itemM=UO.GetSerial('finditem')
      timemove=UO.Timer()
      UO.MoveItem( 'finditem', 0, cont )
      while UO.ContainerOf(itemM)=='my' && timemove+20>UO.Timer()
         wait(300)
      wend
   wend
end sub
Sub DeleteJournal(msg)
   While UO.InJournal(msg)
      UO.SetJournalLine(UO.InJournal(msg) - 1,'') 
   wend
endsub
Sub MyTerminate()
   UO.Set('quiet','1')
   UO.CancelMenu()
   UO.IgnoreReset()
   UO.Set('quiet','0')
   UO.Exec('terminate all')
end sub
Sub checklag()
   DeleteJournal("ackpack")
   UO.Click("backpack")
   repeat
      wait(100)
   until UO.InJournal("ackpack")
end sub

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

PS мой скрипт это кусок из большого файла. Вроде скопировал без косяков. Если будут ошибки - пишите.

Re: Помогите подправить Bowcraft

Posted: 2011-06-15 23:39:21
by Incorrect User
Вообщем следуя советам вышла такая штука:

Code: Select all

#############################################################################
var Box = '0x666666'
var Bow = '0x13b2'
var Trash = '0x777777'
var Logs = '0x1bdd'
var LogsC = '0x0000' 
var Dagger = '0x0F51'

sub Bow()
var Time
var Mess = 'put|fail'
 while not uo.dead()
  if uo.count(Logs)>6 then 
   uo.deletejournal()
   Time = uo.timer()
   uo.waitmenu('What do you want','Bows','Bows','Bow')
   uo.waittargettype(Logs) 
   uo.usetype(Dagger)
   repeat
   wait (100)
   until uo.injournal(Mess) or Time + 60 < uo.timer()
    else
   Trash()
   Drag()
  endif
 wend
end sub

sub Trash()
 while uo.count(Bow)>0
  uo.findtype(Bow,'backpack')
  uo.moveitem('finditem',0,Trash)
  wait(500)
 wend
  uo.print('Все луки выброшены!')
endsub

sub Drag()
uo.findtype(Logs,LogsC,Box)
if uo.count()>0 then
  uo.moveitem('finditem',2500,'backpack')
  wait(500)
   else
  uo.print('Кончились логи!')
  uo.playwav('C:\Program Files\UltimaOnline\Injection\Alarm.wav')
  uo.exec('terminate all')
 endif
endsub
#############################################################################

Еще не тестил, и кстати, если не ошибаюсь, то так

Code: Select all

 uo.moveitem('finditem',0,trash) ; в данном случае 1 не обязательно так как предметы и так по одному

некатит, я вроде пробовал ставить 0 и луки не трешил, ставил 1 и норм, перепроверю отпишусь.

Re: Помогите подправить Bowcraft

Posted: 2011-06-17 14:21:49
by son
Incorrect User wrote:Вообщем следуя советам вышла такая штука:

Code: Select all

#############################################################################
var Box = '0x666666'
var Bow = '0x13b2'
var Trash = '0x777777'
var Logs = '0x1bdd'
var LogsC = '0x0000' 
var Dagger = '0x0F51'

sub Bow()
var Time
var Mess = 'put|fail'
 while not uo.dead()
  if uo.count(Logs)>6 then 
   uo.deletejournal()
   Time = uo.timer()
   uo.waitmenu('What do you want','Bows','Bows','Bow')
   uo.waittargettype(Logs) 
   uo.usetype(Dagger)
   repeat
   wait (100)
   until uo.injournal(Mess) or Time + 60 < uo.timer()
    else
   Trash()
   Drag()
  endif
 wend
end sub

sub Trash()
 while uo.count(Bow)>0
  uo.findtype(Bow,'backpack')
  uo.moveitem('finditem',0,Trash)
  wait(500)
 wend
  uo.print('Все луки выброшены!')
endsub

sub Drag()
uo.findtype(Logs,LogsC,Box)
if uo.count()>0 then
  uo.moveitem('finditem',2500,'backpack')
  wait(500)
   else
  uo.print('Кончились логи!')
  uo.playwav('C:\Program Files\UltimaOnline\Injection\Alarm.wav')
  uo.exec('terminate all')
 endif
endsub
#############################################################################

Еще не тестил, и кстати, если не ошибаюсь, то так

Code: Select all

 uo.moveitem('finditem',0,trash) ; в данном случае 1 не обязательно так как предметы и так по одному

некатит, я вроде пробовал ставить 0 и луки не трешил, ставил 1 и норм, перепроверю отпишусь.


Скрипт работает хорошо,скажите а можно сделать чтобы перс луки не в треш кидал а себе под ноги ,на моем шарде все то что из дерева и под ноги попадается сразу ломается)))Так что мне треш в принципе не нужен))

Re: Помогите подправить Bowcraft

Posted: 2011-06-17 14:45:37
by Mirage
Ну вместо ID трешки напиши 'ground'
Помоему ломается когда ты наступишь на объект а не когда бросишь под себя, хотя ХЗ.
PS если будешь много кидать на землю, будет перенасыщение сферы, в логе отразится ошибка и к тебе прилетят гости. С банхаммером.

Re: Помогите подправить Bowcraft

Posted: 2011-06-18 00:37:40
by Incorrect User
Помоему ломается когда ты наступишь на объект а не когда бросишь под себя, хотя ХЗ.
PS если будешь много кидать на землю, будет перенасыщение сферы, в логе отразится ошибка и к тебе прилетят гости. С банхаммером.

Там просто лук, простой, под ноги кидаеш и он сразу же ломаеться. А от перенасыщения есть защита - не более, помоему 16 итемов на 1 тайл, больше положить недает.

Re: Помогите подправить Bowcraft

Posted: 2011-06-18 12:40:57
by son
Mirage wrote:Ну вместо ID трешки напиши 'ground'
Помоему ломается когда ты наступишь на объект а не когда бросишь под себя, хотя ХЗ.
PS если будешь много кидать на землю, будет перенасыщение сферы, в логе отразится ошибка и к тебе прилетят гости. С банхаммером.

Спасибо,теперь полный порядок:)

Re: Помогите подправить Bowcraft

Posted: 2011-06-18 12:41:33
by son
Incorrect User wrote:
Помоему ломается когда ты наступишь на объект а не когда бросишь под себя, хотя ХЗ.
PS если будешь много кидать на землю, будет перенасыщение сферы, в логе отразится ошибка и к тебе прилетят гости. С банхаммером.

Там просто лук, простой, под ноги кидаеш и он сразу же ломаеться. А от перенасыщения есть защита - не более, помоему 16 итемов на 1 тайл, больше положить недает.


Это правда.
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited