Yoko

All sides of Injection
It is currently 2024-03-28 19:16:57

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
PostPosted: 2016-11-19 21:51:54 
Offline

Joined: 2016-11-19 21:44:15
Posts: 2
Всю голову уже сломал )))) Работал у меня скрипт на ветеринарию,потом внезапно перестал ночью,я ничего не трогал.
Так вот,не пойму что произошло,захожу с одного чара-все работает,берет бинты из сундука,травит лошадок друг на друга и хилит их,если захожу другим чаром тот же самый скрипт не работает,бинты не берет,после чего срабатывает провокация и скрипт сам по себе отключается )))) что это может быть?


Top
   
PostPosted: 2016-11-19 23:48:35 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Скрипт покажи. Возможно используешь кейпресс и у разных игроков разные бинды кнопок

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2016-11-20 08:41:21 
Offline

Joined: 2016-11-19 21:44:15
Posts: 2
да сорри,вот скрипт.Он работал,успел докачать до 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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 3 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 8 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited