Врать не буду не фанат инжи, но желание качаться без приутствия побороло. (:
пишу очень простой скрипт, а именно
Стоит в доме чар таймит ламку. затаймил---> и алл трансфер на другого чара. ВСЕ! вроде все просто, но мои кривые рученки не дают результата.
Взял простейший код на тайминг (сори не укажу автора но ему большой респект):
Code: Select all
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
пытался тыкаться уо кликом на координаты но не смейтесь сильно я палено...
наковял в уроках скрипт по посику чара
Code: Select all
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
только не хватает знаний этовсе соединить что бы таргет кидалсяна чара который рядом.
Прошу помощи и подмечу, что это НЕ нежелание разобраться в вопросе, а просто руки опускаются уже (:
