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

Нужна помощь по скрипту Taming
http://forum.yoko.com.ua/viewtopic.php?f=17&t=16770		 Page 1 of 1
Author:  viorus [ 2011-09-18 12:04:27 ]
Post subject:  Нужна помощь по скрипту Taming
Приветствую вас!
Вопрос заключается вот в чём, нашёл классный скрипт на таминг одной живки с помощью таминг стафа, как её тамит пишет all release, но к сожалению качать на одной живке не получится на нашем шарде, ибо при повторном таминге пишет к примеру: The Llama remembers you and accepts you once more as it's master , т.е. стоит какаято задержка на повторное приручение...вот хотелось бы чтобы кто-нибудь поправил скрипт и сделал чтобы таминг качать на 10 животных одного типа, т.е. тамил одну живку, писал олл релис, потом переходил на следующую, и так с первой по десятую, как затамит 10, то переходил бы заново на первую...
Помогите плз кто может, заранее благодарен.
исходник скрипта вот:

var fruit='0x09D1' ##Тип еды, которой кормим животное
var food= '0x097B' ##Тип того что сами будем кушать
var Timer=UO.Timer()
var Animal, Staff

sub AnimalTaming()
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
Author:  ZeroDX [ 2011-09-18 21:54:53 ]
Post subject:  Re: Нужна помощь по скрипту Taming
А где будет проходить сам процесс таминга? в поле или загоне каком?ещё попробуй затами ламу, запри в доме, релиз сделай, погуляй минут 30 и попробуй затами. Играл на шарде, где 2 раза подряд 1 животное не затамить. Таминг качался вдвоем
Author:  viorus [ 2011-09-19 11:41:46 ]
Post subject:  Re: Нужна помощь по скрипту Taming
тамить в загоне у дома.
Ну тут задержка стоит 20минут, после чего можно тамить заного, вернее 20минут задержка на забывание живкой хозяина
Author:  Mirage [ 2011-09-19 13:52:38 ]
Post subject:  Re: Нужна помощь по скрипту Taming
В загон однотипных животных (чем больше тем лучше - я работал с 6 и 50). В пак жрачка в виде жареной рыбы.

Code:
sub AnimalTaming()
   VAR n=1
   var animal = '0x00D0' #тип животного
   UO.Set('quiet','0')
   uo.ignorereset()
   uo.warmode('0')
   Repeat
      uo.Set('finddistance', 8)
      uo.FindType(animal, -1, 'ground')
      if uo.FindCount()>0 then
         uo.warmode(0)
         UO.DeleteJournal()
         UO.WaitTargetObject('finditem')  
         UO.Useskill('Animal Taming')
         repeat
            wait(100)
         until UO.InJournal('fail|It seems|already|rememb|creature') or uo.GetX('finditem')==0
         If Uo.InJournal('It seems|already|creature') Then
            UO.Hide('finditem')
            UO.Ignore('finditem')
            uo.say('all release')
         endif
      else
         uo.ignorereset()
         UO.Msg(".resync")
         wait(500)
         eat()
      endif
      wait(500)
   Until uo.Dead()
end sub
Sub eat()
   var havka      = '0x097B', LastTimer
   REPEAT
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.findtype(havka,-1,'backpack')
      If UO.FindCount() > 0 Then
         UO.Useobject('finditem')
         wait(200)
      Else
         UO.Print( 'кончилась рыба' )
         return 0
      end if
   Until UO.InJournal("stuffed!|think|found|Вы ничего не можете") OR UO.Timer()>LastTimer+200
end sub
Если будет долго стоять между действиями - проверь сообщения в журнале.
Author:  viorus [ 2011-09-21 17:24:10 ]
Post subject:  Re: Нужна помощь по скрипту Taming
вот прочитал скрипт, всё вроде отлично написал, но негде таминг стафф не прописал, как я понял тамит он у тебя со скила, а нужен обязательно таминг стафф, без него некак...как в примере в первом посту со стафом...
да и кормить можно не жареной рыбой а просто фиш стаками по 1 фиш стеку давать, ну это как я понял можно поменять в типе еды...

пропиши пожалуйста чтобы он тамил с таминг стафом и если сломается стаф, чтобы брал другой с пака...

заранее благодарен за твой бесценный труд!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/