proka4ka alchemy

Bangbuss · Post by **Bangbuss** » 2006-06-04 18:25:06

ja vot sidel doma dumal kak proka4at alchemy esli u menja nety mnoga deneg:

1empty bottle+1bloodmoss=30gp
prodajo6 butilku za 37gp, eta zna4it 6to mozna prostaja stojat okala vendora i vso reme pokupat i prodavat, i tak ka4at alhimiju netratja deneg.

ja bil bi blogodaren esli ktota sdelal bi takoj skript: pokupae6 vse bloodmoss i empty botles, delae6 cure butilku, kogda sdelal ti prodajo6 cure.

Bangbuss · Post by **Bangbuss** » 2006-06-04 19:59:22

pomagiti s etim skriptom

klonuk · Post by **klonuk** » 2006-06-04 21:07:25

Шард скажи , я просто пишу именно такой скрипт ( точнее скрипт написал ) маюсь с ходилкой за вендором -пишу под www.darkuo.ru
у нас особеная система крафта под другой шард врядли подойдет , но если скажешь как она у вас работает то выложу. )

Bangbuss · Post by **Bangbuss** » 2006-06-04 21:25:52

Neznaju kak mne tebe objasnit, nu tam nety nekakoga afigenago alchemy menu, tam nazhimae6 na regi i prosta dal6e nazhimae6 na cure butilku, standartnoe menu.

A shard novij toka 6to otkrilsa, potomu ti nebude6 znat ego. www.lp.off.lv

klonuk · Post by **klonuk** » 2006-06-04 21:27:30

Bangbuss wrote:Neznaju kak mne tebe objasnit, nu tam nety nekakoga afigenago alchemy menu, tam nazhimae6 na regi i prosta dal6e nazhimae6 na cure butilku, standartnoe menu.

A shard novij toka 6to otkrilsa, potomu ti nebude6 znat ego. www.lp.off.lv

Шас попробую накатать.

klonuk · Post by **klonuk** » 2006-06-04 21:44:13

Bangbuss wrote:Neznaju kak mne tebe objasnit, nu tam nety nekakoga afigenago alchemy menu, tam nazhimae6 na regi i prosta dal6e nazhimae6 na cure butilku, standartnoe menu.

A shard novij toka 6to otkrilsa, potomu ti nebude6 znat ego. www.lp.off.lv

Проверить ни как не могу так что пробуй и пиши что получилось

Code: Select all

sub Al()
repeat
UO.UseType('') ; из чего делаешь
UO.WaitMenu('What','Cure')   ;вроде так )     
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(500) ;  тут сам по екперентируй
until uo.Dead()                                                                         
 end sub

Если нормально будет варить добавлю скупку...

Bangbuss · Post by **Bangbuss** » 2006-06-04 22:04:03

klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.

klonuk · Post by **klonuk** » 2006-06-04 22:05:18

Bangbuss wrote:klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.

все отлично , шас до пишу

DerMeister =) · Post by **DerMeister =)** » 2006-06-04 22:05:48

Bangbuss wrote:klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.

Бугаг... наверное ты умер просто %)

Ну а если серьёзно, то тут ошибочка, я исправил:

Code: Select all

sub Al() 
repeat 
UO.UseType('') ; из чего делаешь 
UO.WaitMenu('What','Cure')   ;вроде так )      
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(500) ;  тут сам по екперентируй 
wend          #ZABYL ETO!!
until uo.Dead()                                                                          
 end sub

klonuk · Post by **klonuk** » 2006-06-04 22:12:31

Bangbuss wrote:klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.

Code: Select all

#В скрипту используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в #инжекте в закладке main
# Buy/Sell .... вставте .... reg  (Sulfurous Ash к примеру или какой там #вы ипользуете...) , Butul ( empty bottles )

var reg=' type '

sub Al()
repeat
UO.UseType('reg') ; из чего делаешь
UO.WaitMenu('What','Cure')   ;вроде так )     
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(500)
if UO.count('reg') < 20 then ; если рег менше чем 20  докупает                    
  reg()
  endif
if Uo.count('0x0F0E,0x0000') < 20 then ;  если бутлок менше чем 20 докупает 
  Butul() 
  endif
wend 
until uo.Dead()   
end sub

Да сразу вапрос если реги с буытлками региться долго моно ввести задержку.
Писал не проверея ( т.к не могу ) пиши если будут ошибки

Bangbuss · Post by **Bangbuss** » 2006-06-04 22:16:24

klonuk wrote:

Bangbuss wrote:klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.

Code: Select all

#В скрипту используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в #инжекте в закладке main
# Buy/Sell .... вставте .... reg  (Sulfurous Ash к примеру или какой там #вы ипользуете...) , Butul ( empty bottles )

var reg=' type '

sub Al()
repeat
UO.UseType('reg') ; из чего делаешь
UO.WaitMenu('What','Cure')   ;вроде так )     
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(500)
if UO.count('reg') < 20 then ; если рег менше чем 20  докупает                    
  reg()
  endif
if Uo.count('0x0F0E,0x0000') < 20 then ;  если бутлок менше чем 20 докупает 
  Butul() 
  endif
wend 
until uo.Dead()   
end sub

Да сразу вапрос если реги с буытлками региться долго моно ввести задержку.
Писал не проверея ( т.к не могу ) пиши если будут ошибки

a prodavat cure? mozhe6?

klonuk · Post by **klonuk** » 2006-06-04 22:16:55

Ой да забыл ))

klonuk · Post by **klonuk** » 2006-06-04 22:19:27

Code: Select all


#Скрипт используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в инжекте в закладке main
# Buy/Sell .... вставте .... reg  (Sulfurous Ash к примеру или какой там вы ипользуете...) , Butul ( empty bottles )....prod ( Cure )

var reg=' type '  ;  тупе рега которые юзаем

sub Al()
repeat
UO.UseType('reg') ; из чего делаешь
UO.WaitMenu('What','Cure')   ;вроде так )     
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(5000)
if UO.count('reg') < 20 then ; если рег менше чем 20  докупает                    
  reg()
  endif
if Uo.count('0x0F0E,0x0000') < 20 then ;  если бутлок менше чем 20 докупает 
  Butul() 
  endif
if Uo.count('type,colore') > 10 then ; ,info на бытлку и type и color  сюда 
      prod()
      wend 
until uo.Dead()                                                                          end sub

Sub reg()                                                                               
UO.Buy('reg')                                                                          
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub                                                                               
                                                                                      
Sub Butul()                                                                           
UO.Buy('Butul')                                                                       
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub                                                                               
                                                                                      
Sub prod()                                                                         
UO.Sell('prod')                                                                    
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub

Тести ....

Bangbuss · Post by **Bangbuss** » 2006-06-04 22:48:09

Nea nerabotaet

, zapuskaju skript Al() i mne na4inaetsa nerealniji lagi, on tipo otkrivaet dafiga alchemy menu.

klonuk · Post by **klonuk** » 2006-06-04 22:55:26

Bangbuss wrote:Nea nerabotaet , zapuskaju skript Al() i mne na4inaetsa nerealniji lagi, on tipo otkrivaet dafiga alchemy menu.

Изменил пробуй , скажи если слишком долго стоит ждем мену.

Grin · Post by **Grin** » 2006-06-04 22:58:50

вы забываете журнал чистить... вот унего и лаги...

Grin · Post by **Grin** » 2006-06-04 23:22:17

klonuk wrote:

Code: Select all


#Скрипт используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в инжекте в закладке main
# Buy/Sell .... вставте .... reg  (Sulfurous Ash к примеру или какой там вы ипользуете...) , Butul ( empty bottles )....prod ( Cure )

var reg=' type '  ;  тупе рега которые юзаем

sub Al()
repeat
uo.DeleteJournal()
UO.UseType('reg') ; из чего делаешь
UO.WaitMenu('What','Cure')   ;вроде так )     
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(5000)
if UO.count('reg') < 20 then ; если рег менше чем 20  докупает                    
  reg()
  endif
if Uo.count('0x0F0E,0x0000') < 20 then ;  если бутлок менше чем 20 докупает 
  Butul() 
  endif
if Uo.count('type,colore') > 10 then ; ,info на бытлку и type и color  сюда 
      prod()
      wend 
until uo.Dead()                                                                          end sub

Sub reg()                                                                               
UO.Buy('reg')                                                                          
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub                                                                               
                                                                                      
Sub Butul()                                                                           
UO.Buy('Butul')                                                                       
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub                                                                               
                                                                                      
Sub prod()                                                                         
UO.Sell('prod')                                                                    
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub

Тести ....

Bangbuss · Post by **Bangbuss** » 2006-06-04 23:22:20

ja tebe bazarju on delaet butilku toka 1 raz, kogda zapuskae6 script, potom stoit i nefiga!

Grin · Post by **Grin** » 2006-06-04 23:45:26

Code: Select all

var reg=' type '  ;  тупе рега которые юзаем 

sub Al() 
repeat 
uo.DeleteJournal() 
UO.UseType(reg) ; из чего делаешь 
UO.WaitMenu('What','Cure')   ;вроде так )      
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(100)
wend 
if UO.count(reg) < 20 then ; если рег менше чем 20  докупает                    
   reg() 
endif 
if Uo.count(0x0F0E,0x0000) < 20 then ;  если бутлок менше чем 20 докупает 
  Butul()
endif 
if Uo.count(type,colore) > 10 then ; ,info на бытлку и type и color  сюда 
      prod()
end if
until uo.Dead()                                                                          
end sub 

Sub reg()                                                                                
UO.Buy('reg')                                                                          
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub                                                                                
                                                                                      
Sub Butul()                                                                            
UO.Buy('Butul')                                                                        
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub                                                                                
                                                                                      
Sub prod()                                                                          
UO.Sell('prod')                                                                    
wait(1000)                                                                            
UO.Say('Bye ')                                                                        
end sub

Bangbuss · Post by **Bangbuss** » 2006-06-05 00:06:02

nea nerabotaet!