Page 1 of 1

Animal Taming

Posted: 2004-11-22 11:01:53
by PARASITE
Выложите пожалуйста скрипт на тайминг, чтобы он таймил животное, в случае удачи писал all release и кормил его едой из бэкпака.
Заранее благодарен.

Re: Animal Taming

Posted: 2004-11-22 11:04:24
by Sfagnum
PARASITE wrote:Выложите пожалуйста скрипт на тайминг, чтобы он таймил животное, в случае удачи писал all release и кормил его едой из бэкпака.
Заранее благодарен.
шард напиши...
дома его есть под ДРВ

Posted: 2004-11-23 07:00:42
by PARASITE
Именно под ДРВ и надо!

Posted: 2004-11-23 10:47:21
by MitAl
PARASITE wrote:Именно под ДРВ и надо!


Code: Select all

sub Taming() 
var count=0
uo.print('Тотем')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('TOT')
UO.UseType('0x13F8')
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
UO.Say('All release')
Endif
wend
end sub

Posted: 2004-11-23 10:53:33
by Sfagnum
2 MitAl
а кормёжка хде?

Re: Animal Taming

Posted: 2004-11-23 12:13:38
by kuviCk
PARASITE wrote:Выложите пожалуйста скрипт на тайминг, чтобы он таймил животное, в случае удачи писал all release и кормил его едой из бэкпака.
Заранее благодарен.

Лови!

Code: Select all

sub AnimalTaming() 
var Count=0
uo.Print('Выбери Животное...')
uo.Exec('addobject Creature')
while uo.Targeting()
wait(100)
wend
uo.DeleteJournal()
while not uo.Dead()
uo.DeleteJournal()
uo.WaitTargetObject('Creature')
uo.UseType('0x13F8')
repeat
wait(1000)
until uo.InJournal('You fail') or uo.InJournal('It seems')
if uo.InJournal('It seems') then
uo.Say('all release')
GiveEatToCreature()
end if
wend
end sub

sub GiveEatToCreature()
if uo.Waiting() then
uo.CancelTarget()
end if
var f
dim Food[2]
Food[0]=0x0994 ## - Грушы.
Food[1]=0x09D0 ## - Яблоки.
uo.Print('Кормим...')
uo.SetReceivingContainer('Creature')
wait(500)
for f=0 to 1
uo.FindType(Food[f])
if uo.GetQuantity('finditem')>0 then
uo.Grab('20','finditem')
wait(500)
end if
next
uo.UnSetReceivingContainer('Creature')
end sub

Posted: 2004-11-25 13:43:22
by Yrilo
Вот вам скрипт без Инжекта -
В УО option - f11 - say + all transfer
- f12 - last object + wait for target + last target
В AutoPilote - биндим на повтор этих кнопок с различным интервалом (сами подберете я не помню)!

Главное чтоб тварюга в помещении стояла типа сартир :)
Можно побольше живности поставить тока сменить last target на next target

Я до гма без проблем докачал :)

Posted: 2004-12-02 01:21:35
by Goggy
Yrilo wrote:Вот вам скрипт без Инжекта -
В УО option - f11 - say + all transfer
- f12 - last object + wait for target + last target
В AutoPilote - биндим на повтор этих кнопок с различным интервалом (сами подберете я не помню)!

Главное чтоб тварюга в помещении стояла типа сартир :)
Можно побольше живности поставить тока сменить last target на next target

Я до гма без проблем докачал :)



гг :) молодец, так их всех :))))

Posted: 2004-12-02 13:53:10
by BETEPAH
Yrilo wrote:Вот вам скрипт без Инжекта -
В УО option - f11 - say + all transfer
- f12 - last object + wait for target + last target
В AutoPilote - биндим на повтор этих кнопок с различным интервалом (сами подберете я не помню)!

Главное чтоб тварюга в помещении стояла типа сартир :)
Можно побольше живности поставить тока сменить last target на next target

Я до гма без проблем докачал :)


Умный да ?......а из дома оно в столовую покушать само будет ходить ?