Скрипт на Таминг.

[fank2]

Выложите скрипт под ДРВ чтоб животное таймилось а потом отпускалось..и так пока я неастановлю )

[kuviCk]

Выложите скрипт под ДРВ чтоб животное таймилось а потом отпускалось..и так пока я неастановлю )

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') 
end if 
wend 
end sub 

[-=DenS=-]

А если животное когда отпускается еще надо ждать 300 секунд, что надо вписать?

[VlastV]

А если животное когда отпускается еще надо ждать 300 секунд, что надо вписать?

После

Code: Select all

 Uo.Say('all release')
 wait(300000) TЕсли именно 300 секунд (5 мин)

[GimFlex]

Code: Select all

#1-Если переменную mod=1 изменить на mod=0, то когда чар затамит 
# животину(ездовую), то он сядет на нее и скрипт закончится. 
#Если оставить mod=1 он просто стоит и тамит животинку  
#2-Введите тип вашего таминг стафа 'tamstaf' в переменных 
## 
#crafted by GimFlex from DRW v 1.01 
##ПЕРЕМЕННЫЕ## 
var mod=1 
var tamstaf='0x13F9' 
## 
sub main() 
uo.exec('addobject Animal') 
while uo.targeting() 
wait(100) 
wend 
wait(1000) 
UO.Say('All release') 
wait(2000) 
while NOT UO.Dead() 
UO.DeleteJournal() 
UO.WaitTargetObject('Animal') 
UO.UseType(tamstaf) 
CheckLag() 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems') Then 
If mod==0 Then 
UO.Useobject('Animal') 
else 
UO.Say('All release') 
Endif 
Endif 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub

[Leks]

Таминг + еда.... рабочий 100%

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

[12345]

а если релейс не работает на серваке? как сделать чтоб килить животное, и искать (стоя в загоне) такоеже например овечку?