Page 1 of 1

Нужна помощь по скрипту Taming

Posted: 2011-09-18 12:04:27
by viorus
Приветствую вас!
Вопрос заключается вот в чём, нашёл классный скрипт на таминг одной живки с помощью таминг стафа, как её тамит пишет 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

Re: Нужна помощь по скрипту Taming

Posted: 2011-09-18 21:54:53
by ZeroDX
А где будет проходить сам процесс таминга? в поле или загоне каком?ещё попробуй затами ламу, запри в доме, релиз сделай, погуляй минут 30 и попробуй затами. Играл на шарде, где 2 раза подряд 1 животное не затамить. Таминг качался вдвоем

Re: Нужна помощь по скрипту Taming

Posted: 2011-09-19 11:41:46
by viorus
тамить в загоне у дома.
Ну тут задержка стоит 20минут, после чего можно тамить заного, вернее 20минут задержка на забывание живкой хозяина

Re: Нужна помощь по скрипту Taming

Posted: 2011-09-19 13:52:38
by Mirage
В загон однотипных животных (чем больше тем лучше - я работал с 6 и 50). В пак жрачка в виде жареной рыбы.

Code: Select all

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
Если будет долго стоять между действиями - проверь сообщения в журнале.

Re: Нужна помощь по скрипту Taming

Posted: 2011-09-21 17:24:10
by viorus
вот прочитал скрипт, всё вроде отлично написал, но негде таминг стафф не прописал, как я понял тамит он у тебя со скила, а нужен обязательно таминг стафф, без него некак...как в примере в первом посту со стафом...
да и кормить можно не жареной рыбой а просто фиш стаками по 1 фиш стеку давать, ну это как я понял можно поменять в типе еды...

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

заранее благодарен за твой бесценный труд!