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

Анимал таминга.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1436		 Page 1 of 1
Author:  Hard [ 2004-09-22 18:20:43 ]
Post subject:  Анимал таминга.
Прикольно бы было сделать макру не прсто анимал таминг, (видел висит и работает) но прикольней было бы еслиб чар еще и кормил зверька. Если у кого есть макра, прошу повесить здесь. Благодарю.
Author:  Hard [ 2004-09-23 09:09:42 ]
Post subject: 
Чего, ниукого нету такого скрипта?
Author:  BETEPAH [ 2004-09-23 11:10:08 ]
Post subject: 
Hard wrote:
Чего, ниукого нету такого скрипта?


После модуля таминга вставь
Поиск еды в паке
и граб ее на коня (как ресивинг контейнер)

вся твоя проьлема в 3-5 строчках
Author:  Edred [ 2004-09-23 16:22:41 ]
Post subject: 
Hard wrote:
Чего, ниукого нету такого скрипта?


А ты не задумывался что на разных шардах кормят животных по-разному? У нас, например, животное можно кормить только командой:
Code:
.eat имя животного

после которой появляется прицел и им надо кликнуть на еду. А драг еды на животное приводит к тому, что животное эту еду не ест, а складывает где-то у себя, причем ты эту еду больше никогда не увидишь.

Тебе будет легче, если тебе дадут скрипт на такую кормежку животного?
Author:  kuviCk [ 2004-09-24 13:22:09 ]
Post subject:  Re: Анимал таминга.
Hard wrote:
Прикольно бы было сделать макру не прсто анимал таминг, (видел висит и работает) но прикольней было бы еслиб чар еще и кормил зверька. Если у кого есть макра, прошу повесить здесь. Благодарю.

Кауюто чушь намутил ))) Ноработает ))
Code:
var Animal='0x00159346'
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') 
ToFood()
end if 
wend
end sub 

sub ToFood() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var f
dim Food[4] 
Food[0]=0x09D1 # тип еды 1
Food[1]=0x09D1 # тип еды 2
Food[2]=0x09D1 # тип еды 3
Food[3]=0x09D1 # тип еды 4 
uo.Print('Кормим ...')
uo.SetReceivingContainer(Animal) 
wait(500) 
for f=0 to 3 
uo.FindType(Food[f]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(500) 
end if
next 
uo.UnSetReceivingContainer(Animal)
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/