Page 1 of 1

Помогите Плиз с Тамингом

Posted: 2009-03-29 21:43:32
by Lac0ste2
Мне нужен Такои Скрипт

Чтоб при видения Дичи (Мустанги оклоки зостры кэмалы)

окно мигало как в аське или сыграл Звук

и это стоя Гостом

и еще чтоб при затамлении дичи сразу садился на дич

Хелп знающим

Posted: 2009-03-31 14:18:57
by Lolker007
Тамит сам и садится а остальное я хз
sub Taming()
var staff='0x13f8' ;type of Taming staff
 
uo.Set('finddistance','4')
  uo.Exec('addobject animal')
  while uo.Targeting()
    wait(500)
  wend
  uo.FindType(staff,'-1','backpack')
  if uo.FindCount() then
    uo.DeleteJournal()
    while not uo.InJournal('It seems')
      uo.DeleteJournal()
      uo.waittargetobject('animal')
      uo.UseType(staff)
      repeat
        wait(500)
      until uo.InJournal('You fail') or uo.InJournal('It seems')
      if uo.InJournal('attack you') then
      goto end
      endif
    wend
    uo.UseObject('animal')
  else
    uo.Print('There is no Staff!')
  end if
  end:
end sub

Posted: 2009-03-31 14:30:42
by Lac0ste2
Lolker007 wrote:Тамит сам и садится а остальное я хз
sub Taming()
var staff='0x13f8' ;type of Taming staff
 
uo.Set('finddistance','4')
  uo.Exec('addobject animal')
  while uo.Targeting()
    wait(500)
  wend
  uo.FindType(staff,'-1','backpack')
  if uo.FindCount() then
    uo.DeleteJournal()
    while not uo.InJournal('It seems')
      uo.DeleteJournal()
      uo.waittargetobject('animal')
      uo.UseType(staff)
      repeat
        wait(500)
      until uo.InJournal('You fail') or uo.InJournal('It seems')
      if uo.InJournal('attack you') then
      goto end
      endif
    wend
    uo.UseObject('animal')
  else
    uo.Print('There is no Staff!')
  end if
  end:
end sub


Пишет object updates Animal 0x3074a97 There is not staff

Таргет появляется а сам не тамит