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

Хелп плиз !!!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8170		 Page 1 of 1
Author:  Happyk [ 2006-07-07 13:46:10 ]
Post subject:  Хелп плиз !!!
Я хотел попрасить Мастеров написать мне скрипт плиз на Animal Taming и добавить в него функцыю Anatomy :roll:
И вот вам на всякий случай скрипт ! :roll:


Code:
var fruit='0x0C77' ##Вид еды которую вы будете есть 
var food= '0x097B' ##Тип еды которой кормить живку
var Timer=UO.Timer() 
var Animal, Staff 

sub AnimalTaming() 
#¤Leo¤# 
UO.Msg('all release') 

UO.Print(Select Animal...') 
UO.Exec('addobject Animal') 
   while uo.Targeting() 
      wait(100) 
   wend 

UO.Print('Select Staff...') 
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
Author:  klonuk [ 2006-07-08 16:27:52 ]
Post subject: 
сцуки мою аватраку сперли :( О ужас....(флуд )
Author:  klonuk [ 2006-07-08 16:28:56 ]
Post subject: 
Ты хотябы шард на писал.... как тайминг работает и т.д скрипт который ты выложил .... на нем качаешь ты тайминг?
Author:  Spirit [ 2006-07-08 21:09:11 ]
Post subject: 
klonuk wrote:
Ты хотябы шард на писал.... как тайминг работает и т.д скрипт который ты выложил .... на нем качаешь ты тайминг?


А знаю такого, Шард у него ДрВ, нубик 1 такой)
Author:  Nmy [ 2006-07-09 00:25:49 ]
Post subject: 
Code:
   UO.DeleteJournal()
   UO.WaitTargetObject('Animal') 
   UO.UseObject('Staff')


Code:
   UO.DeleteJournal()
   UO.WaitTargetObject('Animal') 
   UO.UseSkill('Anatomy') 
   UO.WaitTargetObject('Animal') 
   UO.UseObject('Staff')


Code:
var fruit='0x0C77' ##Âèä åäû êîòîðóþ âû áóäåòå åñòü
var food= '0x097B' ##Òèï åäû êîòîðîé êîðìèòü æèâêó
var Timer=UO.Timer()
var Animal, Staff

sub AnimalTaming()
#¤Leo¤#
UO.Msg('all release')

UO.Print(Select Animal...')
UO.Exec('addobject Animal')
   while uo.Targeting()
      wait(100)
   wend

UO.Print('Select Staff...')
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.UseSkill('Anatomy') 
   wait(2500) ;if anatomy dont fuck up taming then set wait(200) 
   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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/