Оптимизация Скрипта

[KocTuk]

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

Code: Select all

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