Animal Taming

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Animal Taming

Post by PARASITE »

Выложите пожалуйста скрипт на тайминг, чтобы он таймил животное, в случае удачи писал all release и кормил его едой из бэкпака.
Заранее благодарен.
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Re: Animal Taming

Post by Sfagnum »

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

Post by PARASITE »

Именно под ДРВ и надо!
MitAl
Posts: 60
Joined: 2004-06-01 16:24:44
Location: DRW

Post 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
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

2 MitAl
а кормёжка хде?
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:

Re: Animal Taming

Post 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
Yrilo
Posts: 5
Joined: 2004-10-16 11:22:07
Contact:

Post by Yrilo »

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

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

Я до гма без проблем докачал :)
Goggy
Posts: 291
Joined: 2004-11-07 01:22:35
Location: Черкассы
Contact:

Post by Goggy »

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

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

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



гг :) молодец, так их всех :))))
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

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

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

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


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