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