да сорри,вот скрипт.Он работал,успел докачать до 91,потом каким-то образом сам вырубился и теперь на этом чаре не могу запустить,отключается,на другом исправно работает =)))
Code: sub veterinar()
VAR PoraEst = UO.Timer()
VAR eda = '0x0C77'
VAR Sunduk = '0x4030AB65'
VAR Bandag = '0x0E21'
VAR BlBandag = '0x0E20'
VAR Horse1, Horse2, k
VAR HorTyp1 = '0x00CC', HorTyp2 = '0x00C8'
VAR fizzle = 'You apply bandages but they barely help'
VAR Success = 'You apply clean bandages to Horse'
VAR mustwait = 'You are already use bandages'
UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
VAR SpiritTime = UO.Timer()
UO.UseObject( Sunduk )
wait(1000)
UO.Set( 'finddistance', '3' )
UO.FindType( HorTyp1, '-1', '1' )
If UO.FindCount() == 0 Then
UO.FindType( HorTyp2, '-1', '1' )
If UO.FindCount() == 0 Then
UO.Print( 'Horse 1 not found!' )
return
Endif
Endif
Horse1 = UO.GetSerial( 'finditem' )
UO.Print( Horse1 )
UO.Ignore( 'finditem' )
UO.FindType( HorTyp1, '-1', '1' )
If UO.FindCount() == 0 Then
UO.FindType( HorTyp2, '-1', '1' )
If UO.FindCount() == 0 Then
UO.Print( 'Horse 2 not found!' )
UO.IgnoreReset()
return
Endif
Endif
Horse2 = UO.GetSerial( 'finditem' )
UO.Print( Horse2 )
UO.IgnoreReset()
UO.WaitTargetObject( Horse1, Horse2 )
UO.UseSkill( 'Provocation' )
wait(1000)
While UO.SkillVal( 'Veterinary' ) < 1000
If UO.Count( Bandag ) < 10 Then
UO.FindType( Bandag, '-1', Sunduk )
If UO.FindCount() > 0 Then
UO.MoveItem( 'finditem', '200' )
wait(500)
Else
UO.Print( 'Bandage not found! Script terminated!' )
return
Endif
UO.FindType( BlBandag )
If UO.FindCount() > 0 Then
UO.MoveItem( 'finditem', '0', sunduk )
wait(500)
Endif
Endif
If ( UO.Timer() - PoraEst ) / 600 > 5 Then
UO.UseType( eda )
PoraEst = UO.Timer()
Endif
If ( UO.Timer() - SpiritTime ) / 600 > 4 Then
UO.UseSkill( 'Spirit Speak' )
wait(1000)
SpiritTime = UO.Timer()
Endif
If ( UO.GetHP( Horse1 ) < UO.GetMaxHP( Horse1 ) ) OR ( UO.GetHP( Horse2 ) < UO.GetMaxHP( Horse2 ) ) Then
If UO.GetHP( Horse1 ) < UO.GetHP( Horse2 ) Then
UO.WaitTargetObject( Horse1 )
UO.UseType( Bandag )
k = 0
repeat
wait(100)
k = k + 1
until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR UO.InJournal( mustwait ) OR k > 30
If UO.InJournal( success ) Then
wait(1000)
Endif
If UO.InJournal( mustwait ) Then
wait(500)
Endif
wait(1500)
Endif
If UO.GetHP( Horse1 ) > = UO.GetHP( Horse2 ) Then
UO.WaitTargetObject( Horse2 )
UO.UseType( Bandag )
k = 0
repeat
wait(100)
k = k + 1
until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR UO.InJournal( mustwait ) OR k > 30
If UO.InJournal( success ) Then
wait(1000)
Endif
If UO.InJournal( mustwait ) Then
wait(500)
Endif
wait(1500)
Endif
Else
wait(300)
Endif
Wend
endsub
|