Yoko

All sides of Injection
It is currently 2017-09-23 23:53:49

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
PostPosted: 2016-04-28 11:59:12 
Offline

Joined: 2016-04-25 05:57:32
Posts: 3
Сделал сам как смог, если есть специалисты помогите оптимизировать ;) Знаю что тут много косяков,
Но я только начинаю скриптами заниматься, пока что переделываю, доделываю )
Спасибо.


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


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


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:  
Powered by phpBB® Forum Software © phpBB Limited