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

Скрипт на Таминг.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1459		 Page 1 of 1
Author:  fank2 [ 2004-09-25 13:18:56 ]
Post subject:  Скрипт на Таминг.
Выложите скрипт под ДРВ чтоб животное таймилось а потом отпускалось..и так пока я неастановлю )
Author:  kuviCk [ 2004-09-25 16:06:03 ]
Post subject:  Re: Тайм....скрипт дайте
fank2 wrote:
Выложите скрипт под ДРВ чтоб животное таймилось а потом отпускалось..и так пока я неастановлю )

Code:
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
Author:  -=DenS=- [ 2005-02-23 10:34:27 ]
Post subject: 
А если животное когда отпускается еще надо ждать 300 секунд, что надо вписать?
Author:  VlastV [ 2005-02-23 10:46:45 ]
Post subject: 
-=DenS=- wrote:
А если животное когда отпускается еще надо ждать 300 секунд, что надо вписать?

После
Code:
 Uo.Say('all release')
 wait(300000) TЕсли именно 300 секунд (5 мин)
Author:  GimFlex [ 2005-02-23 10:52:51 ]
Post subject: 
Code:
#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
Author:  Leks [ 2005-02-28 06:29:16 ]
Post subject: 
Таминг + еда.... рабочий 100%
Code:
 
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
Author:  12345 [ 2005-08-17 14:10:22 ]
Post subject: 
а если релейс не работает на серваке? как сделать чтоб килить животное, и искать (стоя в загоне) такоеже например овечку?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/