да сорри,вот скрипт.Он работал,успел докачать до 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
|