Yoko
http://forum.yoko.com.ua/

Оптимизация Скрипта
http://forum.yoko.com.ua/viewtopic.php?f=3&t=17750
Page 1 of 1

Author:  KocTuk [ 2016-04-28 11:59:12 ]
Post subject:  Оптимизация Скрипта

Сделал сам как смог, если есть специалисты помогите оптимизировать ;) Знаю что тут много косяков,
Но я только начинаю скриптами заниматься, пока что переделываю, доделываю )
Спасибо.


Code:
sub Alchemy_Exp()
   VAR Sunduk = '0x4046353A'      ; Сериал сундука
   VAR regi = '0x0F7B'        ; Реги
   VAR Instrum = '0x0F7B'        ; Реги
   VAR Empty =  '0x0F0E'       ;пустая бутылка
   VAR Bomb = '0x0E24'        ; Експлоужены
   VAR Kolvo = 400     ; Брать ингов
   VAR Vzyat =100      ;Брать бутылок
   VAR k = 0
     
   
    repeat
     
     UO.FindType( regi, -1, Sunduk )  ; Ищем реги в сундуке
    
      if UO.FindCount() == 0 Then
         UO.Print("Regs not found, script terminated")
         return
      end if
       UO.Grab( Kolvo , 'finditem' )
      wait( 2000 )
      while UO.Count( regi ) > 20
    
      UO.FindType( Empty, -1, Sunduk )  ; Ищем бутылки в сундуке
      
      if UO.FindCount() == 0 Then
         UO.Print("Empty bottle not found, script terminated")
         return
      end if
       UO.Grab( Vzyat , 'finditem' )
      wait( 2000 )
      while UO.Count( regi ) >10
      
      
    
   
         ; Пока в паке есть инги
         UO.Print('Ostalos ' + Str( UO.Count( regi ) ) + ' Salphoruos Ash' )
         UO.DeleteJournal()
       
         UO.UseType( Instrum )
        UO.WaitMenu('What sort of potion do you want','Greater Agility Potion')     
      UO.DeleteJournal()
  k = 0
       
              while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500)
         wend
       

  if UO.Count( Bomb ) > 0 then
            UO.FindType( Bomb, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Bomb moved' )
         end if
      wend
  wend
 Until UO.Dead()
 
end sub

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/