Yoko

Звери задолбали!!!
Врать не буду не фанат инжи, но желание качаться без приутствия побороло. (:
пишу очень простой скрипт, а именно

Стоит в доме чар таймит ламку. затаймил---> и алл трансфер на другого чара. ВСЕ! вроде все просто, но мои кривые рученки не дают результата.

Взял простейший код на тайминг (сори не укажу автора но ему большой респект):

sub Taming()
var count=0
uo.print('Тотем')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('TOT')
UO.Useskill('Animal Taming')
repeat
wait(1000)
until UO.InJournal('You failed to tame the') OR UO.InJournal('You successfully tame')
If Uo.InJournal('You successfully tame') Then
UO.Say('All transfer')
############вот тут по идее надо что бы кликнул куда надо (:
  wait(2000)
            wait(2000)
Endif
wend
end sub

пытался тыкаться уо кликом на координаты но не смейтесь сильно я палено...

наковял в уроках скрипт по посику чара

sub FindMen()
   VAR SerChar, ColChar, NamChar, DistChar
   UO.Set( 'finddistance', '6' )
   Repeat
      UO.FindType( '0x0190', '-1', '1' )
      If UO.FindCount() > 0 Then
         SerChar = UO.GetSerial( 'finditem' )
         DistChar = UO.GetDistance( 'finditem' )
         ColChar = UO.GetNotoriety( 'finditem' )
         UO.Click( 'finditem' )
         wait( 500 )
         NamChar = UO.GetName( 'finditem' )
         UO.Print( 'Нашли чара! Его сериал: ' + SerChar )
         UO.Print( 'Расстояние до этого чара: ' + str( DistChar ) )
         UO.Print( 'Уровень злобности этого чара: ' + str( ColChar ) )
         UO.Print( 'Имя этого чара: ' + NamChar )
         UO.Ignore( 'finditem' )
      Else
         wait( 500 )
      Endif
   Until UO.FindCount() == 0
   UO.IgnoreReset()
endsub

только не хватает знаний этовсе соединить что бы таргет кидалсяна чара который рядом.

Прошу помощи и подмечу, что это НЕ нежелание разобраться в вопросе, а просто руки опускаются уже (:

sub Taming()
  var count=0
  var char = ' '#Тут ID чела для трансфера

  uo.print('Тотем')
  uo.exec('addobject TOT')
  while uo.targeting()
    wait(100)
  wend

  UO.DeleteJournal()
  while NOT UO.Dead()
    UO.DeleteJournal()
    UO.WaitTargetObject('TOT')
    UO.Useskill('Animal Taming')
    repeat
      wait(1000)
    until UO.InJournal('You failed to tame the') OR UO.InJournal('You successfully tame')
    If Uo.InJournal('You successfully tame') Then
      UO.WaitTargetObject(char)
      wait(100)
      UO.Say('All transfer')
      wait(2000)
    Endif
  wend
end sub

А я понять не могу, чего нужно..

Нужен тейминг животины + трансфер на ближайшего персонажа?.. Ня..

Учись, пока я тут - пишу в окне ответа:

var Tamer.msg_success = "Затамилось" ; сообщение об успешном тейминге животного
var Tamer.msg_failure = "Не затамилось" ; сообщение о неуспешном тейминге животного
var Tamer.male = "0x0190" ; тип мужского персонажа
var Tamer.female = "0x0191" ; тип женского персонажа
var Tamer.max_distance = 12 ; максимальная дистанция поиска
sub Tamer()
    var man
    uo.addObject( "Tamer.target" )
    while uo.targeting()
        wait( 100 )
    wend
    repeat
        deljournal( Tamer.msg_success + "|" + Tamer.msg_failure )
        uo.waittargetobject( "Tamer.target" )
        uo.useskill( "Animal Taming" )
        repeat
            wait( 100 )
        until uo.inJournal( Tamer.msg_success + "|" + Tamer.msg_failure )
    until uo.inJournal( Tamer.msg_success )
    man = Tamer.FindMan()
    if man then
        uo.waittargetobject( man )
        uo.msg( "all transfer" )
    else
        uo.print( "Man was not found." )
    endif
endsub

Sub Tamer.FindMan()
    var i
    for i = 0 to Tamer.max_distance
        uo.set( 'finddistance', str( i ) )
        uo.findtype( Tamer.male, "-1", ground )
        if uo.findcount() then
            return uo.getSerial( 'finditem' )
        endif
        uo.findtype( Tamer.female, "-1", ground )
        if uo.findcount() then
            return uo.getSerial( 'finditem' )
        endif
    next
    return false
EndSub

PS: Что-то меня на ООП потянуло.. пока не сильно, но уже чувствуется

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

deljournal( Tamer.msg_success + "|" + Tamer.msg_failure )

Добавь функцию, а то вопросы будут возникать.

Не добавлю.
Отвечать не буду.

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

Народ спасибо вам большое за ответы и саппорт! (: