Yoko :: Таминг, впешите пожалусто :)

Yoko http://forum.yoko.com.ua/

Таминг, впешите пожалусто :) http://forum.yoko.com.ua/viewtopic.php?f=17&t=15384	Page 1 of 1

Author:

Helkern [ 2009-12-19 18:44:55 ]

Post subject:

Таминг, впешите пожалусто :)

Code:

var horse ='0x00EA' # Тип животного
    var deed ='0x14F0' # дид
    var vendorserial='0x000057B0' #Серийник вендора

sub main()
    while uo.gold>600
        uo.findtype(deed,'-1','me')
        uo.exec('moveitem '+uo.getserial('finditem')+' 1 '+vendorserial)
        uo.deletejournal()
        repeat
            wait(1000)
        until uo.injournal('feed it!') 
        uo.deletejournal()
        repeat
            UO.Say("all release") 
            wait(500)
        until uo.injournal('free again!') 
        tame(horse)
        uo.waittargetobject(uo.getserial('finditem')) 
        UO.Say("stable") 
        uo.deletejournal()
        repeat
            wait(1000)
        until uo.injournal('back.') 
    wend
    #UO.UseSkill("Hiding")    
end sub

sub tame(animaltype)
    repeat
        wait (2000)
        uo.set("finddistance","50")
        uo.findtype(horse,'-1','ground')
        uo.waittargetobject('finditem')
        wait(400)
        uo.deletejournal()
        uo.useskill("Animal Taming")
        uo.deletejournal()
        repeat
            wait(1000)
        until uo.injournal('failed') or uo.injournal('successfully') or uo.injournal('within your line')
        if uo.injournal('unresponsive') then
            #UO.UseSkill("Hiding")
            wait(360000) 
        endif
        if uo.injournal('angered') then
            wait(10000)
        endif
    until uo.injournal('successfully')
end sub

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

))

Пропишите пожалусто

Зарание огромное спасибо!!!!!

Author:	Helkern [ 2009-12-20 04:07:07 ]
Post subject:
Я себе этот скрипт переделал, работает коряво (( Вобщем мне надо чтоб я покупал коня у вендора писал алл релиз, тамил его и продавал и так покругу. Проблема в том что там 3-и разновидности коней... и как прописать ещё 2 я не знаю... ((( пробавал так но не работает... Code: var horse ='0x00EA''0x00E4''0x00EC'' # Тип животного как вписать ещё двух?? )) Помогите пожалусто.

Author:	Mirage [ 2009-12-20 09:58:28 ]
Post subject:
А если у торговца купить сразу 50 коней, принести в стойло, и там уже тамить и релизать? Пока до 50 дойдешь 1 тебя забудет - 50% телодвижений сократится.

Author:

Helkern [ 2009-12-20 16:31:05 ]

Post subject:

Ого

))
И каждый раз придёться вписывать в скрипт 50 коней или как ?

))

з.ы
Я нашёл один такой скрипт на стадо с быками, попытался переделать но нечего не получилось

Вот он, как прописать ещё животных я не понял и не нашёл к чему относиться это

Code:

i=0 
if i==0 then 
i=i+1

Code:

sub taming() 
VAR i 
VAR t=3000 ### Промежутки между использованием скила Taming 
VAR great='' ### Сообщение выводящие при успешном таминге 
VAR bik1='' ### ID быка номер 1 
VAR bik2='' ### ID быка номер 2 
VAR bik3='' ### ID быка номер 3 
### etc. 
While not UO.Dead() ### Тамим пока не сдохним 
i=0 
if i==0 then 
i=i+1 
Uo.DeleteJournal() 
repeat 
waittargetobject(bik1) 
uo.useskill('Animal Taming') 
wait(t) 
until UO.InJournal(great) 
end if 
if i==1 then 
i=i+1 
UO.DeleteJournal() 
repeat 
waittargetobject(bik2) 
uo.useskill('Animal Taming') 
wait(t) 
until UO.InJournal(great) 
end if 
if i==2 then 
i=i-2 
UO.DeleteJournal() 
repeat 
waittargetobject(bik3) 
uo.useskill('Animal Taming') 
wait(t) 
until UO.InJournal(great) 
end if 
wend 
while 
end sub

Author:	Mirage [ 2009-12-20 18:35:10 ]
Post subject:
Или как. Поиск типа животного таминг по ID пока не притамит отпускает, игнорирует, прячет ищет другое животное. Если животного нет - ресенд... иии ОПА у тебя сново 50 животных для таминга.

Author:	Helkern [ 2009-12-20 18:37:01 ]
Post subject:
Извени, я не понял это ты про что ? )) Почему везде +1 а тут ( i=i-2 ) -2 ? Не понимаю =)))))) Сорри за тупость... Как будет выглядеть добавка сюда 4-го быка ? з.ы По поводу выше поста, кажеться понял........ ))))) Ну я такое зделать не смогу ))) з.ыы Помоги пожалусто, мне понравилась твоя идея скрипта с ,hide животного )) Замучал я инжект, ругаеться на меня )))))))) И кстате после ресенд он же начнёт допустим тамить животное которое я 2 мин назад тамил...

Author:	Helkern [ 2009-12-22 14:02:30 ]
Post subject:
Mirage Помоги пожалусто Надо чтоб чар покупал у вендора коня, релизил потом тамил и продавал. И так чтоб он мог определить 3-и вида коней, там просто 3 продаёться у них разный айди и тайп (( Замучался ужас... (

Author:

Mirage [ 2009-12-22 20:41:01 ]

Post subject:

править лень - я качал на птицах вот так:

Code:

sub AnimalTaming()
   var animal = '0x00D0' ; ТИП животного
   uo.ignorereset()
   uo.Set('finddistance', 8)
Repeat
   uo.FindType(animal, -1, 'ground')
   if uo.FindCount()>0 then
      uo.warmode(0)
      UO.DeleteJournal()
      UO.WaitTargetObject('finditem')  
      UO.Useskill('Animal Taming')
         repeat
            wait(100)
         until UO.InJournal('fail|It seems|already|rememb|creature') or uo.GetX('finditem')==0
            If Uo.InJournal('It seems|already|creature') Then
                   UO.Hide('finditem')
                  UO.Ignore('finditem')
                uo.say('all release')
            endif
   else
      uo.ignorereset()
      UO.Msg(".resync")
      wait(500)
   endif
   wait(500)
Until uo.Dead()
end sub

У нас надо юзать скилл а не посох. Но думаю принцип понятен.

Author:	Helkern [ 2009-12-23 18:52:06 ]
Post subject:
Спасибо большое! Только вот как в этот скрипт вставить ещё 2 типа животного?? Чтоб если одного типа нету он ищёт другого если нету второго то ищет третего )

Author:	Mirage [ 2009-12-23 19:01:44 ]
Post subject:
этот скрипт для Quote: А если у торговца купить сразу 50 коней, принести в стойло, и там уже тамить и релизать? Пока до 50 дойдешь 1 тебя забудет - 50% телодвижений сократится.

Author:	Helkern [ 2009-12-23 19:31:21 ]
Post subject:
Дело в том что коней всего 3 типа.. и когда покупаешь их то одни чёрные другие белый и 3-е коричневые, все с разными ИД (( цвета выпадают рандомом. з.ы придёться однотиповых коней соберать... =)) а это что такое UO.Msg(".resync") ,resend может?

Author:	Helkern [ 2009-12-23 20:15:20 ]
Post subject:
А можно ли зделать чтоб искал по имени вместо Тайпа ? Типа такого uo.FindName =)))

Author:	Mirage [ 2009-12-23 22:23:40 ]
Post subject:
в скрипте же написано ТИП. ИД не имеет значения. Как и цвет. .resync и ,resend разные хотя и похожие команды. я же вроде уже не один раз написал для каких целей вышенаписанный скрипт и что с ним надо делать? Надо взять за образец сообщения.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/