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

Helkern · Post by **Helkern** » 2009-12-19 18:44:55

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 вида коней.

))

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

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

Helkern · Post by **Helkern** » 2009-12-20 04:07:07

Я себе этот скрипт переделал, работает коряво ((
Вобщем мне надо чтоб я покупал коня у вендора писал алл релиз, тамил его и продавал и так покругу.
Проблема в том что там 3-и разновидности коней... и как прописать ещё 2 я не знаю... (((
пробавал так но не работает...

Code: Select all

var horse ='0x00EA''0x00E4''0x00EC'' # Тип животного

как вписать ещё двух?? )) Помогите пожалусто.

Mirage · Post by **Mirage** » 2009-12-20 09:58:28

А если у торговца купить сразу 50 коней, принести в стойло, и там уже тамить и релизать? Пока до 50 дойдешь 1 тебя забудет - 50% телодвижений сократится.

Helkern · Post by **Helkern** » 2009-12-20 16:31:05

Ого

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

))

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

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

Code: Select all

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

Code: Select all

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

Mirage · Post by **Mirage** » 2009-12-20 18:35:10

Или как.
Поиск типа животного
таминг по ID пока не притамит
отпускает, игнорирует, прячет
ищет другое животное.
Если животного нет - ресенд... иии
ОПА у тебя сново 50 животных для таминга.

Helkern · Post by **Helkern** » 2009-12-20 18:37:01

Извени, я не понял это ты про что ?

))

Почему везде +1 а тут ( i=i-2 ) -2 ? Не понимаю =))))))
Сорри за тупость...

Как будет выглядеть добавка сюда 4-го быка ?

з.ы
По поводу выше поста, кажеться понял........ )))))
Ну я такое зделать не смогу )))

з.ыы
Помоги пожалусто, мне понравилась твоя идея скрипта с ,hide животного

))
Замучал я инжект, ругаеться на меня ))))))))
И кстате после ресенд он же начнёт допустим тамить животное которое я 2 мин назад тамил...

Helkern · Post by **Helkern** » 2009-12-22 14:02:30

Mirage
Помоги пожалусто

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

((
Замучался ужас... (

Mirage · Post by **Mirage** » 2009-12-22 20:41:01

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

Code: Select all

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

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

Helkern · Post by **Helkern** » 2009-12-23 18:52:06

Спасибо большое!
Только вот как в этот скрипт вставить ещё 2 типа животного?? Чтоб если одного типа нету он ищёт другого если нету второго то ищет третего

)

Mirage · Post by **Mirage** » 2009-12-23 19:01:44

этот скрипт для

А если у торговца купить сразу 50 коней, принести в стойло, и там уже тамить и релизать? Пока до 50 дойдешь 1 тебя забудет - 50% телодвижений сократится.

Helkern · Post by **Helkern** » 2009-12-23 19:31:21

Дело в том что коней всего 3 типа.. и когда покупаешь их то одни чёрные другие белый и 3-е коричневые, все с разными ИД

(( цвета выпадают рандомом.
з.ы
придёться однотиповых коней соберать... =))
а это что такое UO.Msg(".resync") ,resend может?

Helkern · Post by **Helkern** » 2009-12-23 20:15:20

А можно ли зделать чтоб искал по имени вместо Тайпа ?
Типа такого uo.FindName =)))

Mirage · Post by **Mirage** » 2009-12-23 22:23:40

в скрипте же написано ТИП. ИД не имеет значения. Как и цвет.
.resync и ,resend разные хотя и похожие команды.
я же вроде уже не один раз написал для каких целей вышенаписанный скрипт и что с ним надо делать? Надо взять за образец сообщения.