Animal taming Помогите доделать
Posted: 2007-05-23 21:55:38
Хороший скрипт,но у меня проблема! На моем шарде когда тамишь животное второй раз оно пишет "The Liama remebers you and accepts you onse more as it's masrer."В журнале появляеться You see: (выше написанное). Помогите вписать так чтобы после этой фразы он писал алл релеасе и опять начинал тамить.зарание спасибо.
var fruit='0x09D1' ##Тип еды, которой кормим животное
var food= '0x097B' ##Тип того что сами будем кушать
var Timer=UO.Timer()
var Animal, Staff
sub AnimalTaming()
#¤Leo¤#
UO.Msg('All release')
UO.Print('Выбери Животину...')
UO.Exec('addobject Animal')
while uo.Targeting()
wait(100)
wend
UO.Print('Выбери Палку...')
UO.Exec('addobject Staff')
while uo.Targeting()
wait(100)
wend
UO.DeleteJournal()
while not UO.InJournal('It seems') or not UO.InJournal('see the creature')
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseObject('Staff')
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('It seems') or UO.InJournal('see the creature')
if UO.Timer()>(Timer+1200) then
UO.SetReceivingContainer('Animal')
wait(500)
UO.FindType(fruit)
if UO.GetQuantity('finditem')>0 then
UO.Grab('5','finditem')
wait(500)
end if
UO.UnSetReceivingContainer('Animal')
wait(500)
UO.UseType(food)
Timer=UO.Timer()
end if
UO.Msg('All release')
wend
end sub
var fruit='0x09D1' ##Тип еды, которой кормим животное
var food= '0x097B' ##Тип того что сами будем кушать
var Timer=UO.Timer()
var Animal, Staff
sub AnimalTaming()
#¤Leo¤#
UO.Msg('All release')
UO.Print('Выбери Животину...')
UO.Exec('addobject Animal')
while uo.Targeting()
wait(100)
wend
UO.Print('Выбери Палку...')
UO.Exec('addobject Staff')
while uo.Targeting()
wait(100)
wend
UO.DeleteJournal()
while not UO.InJournal('It seems') or not UO.InJournal('see the creature')
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseObject('Staff')
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('It seems') or UO.InJournal('see the creature')
if UO.Timer()>(Timer+1200) then
UO.SetReceivingContainer('Animal')
wait(500)
UO.FindType(fruit)
if UO.GetQuantity('finditem')>0 then
UO.Grab('5','finditem')
wait(500)
end if
UO.UnSetReceivingContainer('Animal')
wait(500)
UO.UseType(food)
Timer=UO.Timer()
end if
UO.Msg('All release')
wend
end sub