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

proka4ka alchemy
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7868		 Page 1 of 2
Author:  Bangbuss [ 2006-06-04 18:25:06 ]
Post subject:  proka4ka alchemy
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.
Author:  Bangbuss [ 2006-06-04 19:59:22 ]
Post subject: 
pomagiti s etim skriptom
Author:  klonuk [ 2006-06-04 21:07:25 ]
Post subject: 
Шард скажи , я просто пишу именно такой скрипт ( точнее скрипт написал ) маюсь с ходилкой за вендором -пишу под www.darkuo.ru
у нас особеная система крафта под другой шард врядли подойдет , но если скажешь как она у вас работает то выложу. )
Author:  Bangbuss [ 2006-06-04 21:25:52 ]
Post subject: 
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
Author:  klonuk [ 2006-06-04 21:27:30 ]
Post subject: 
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


Шас попробую накатать.
Author:  klonuk [ 2006-06-04 21:44:13 ]
Post subject: 
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:
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



Если нормально будет варить добавлю скупку...
Author:  Bangbuss [ 2006-06-04 22:04:03 ]
Post subject: 
klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.
Author:  klonuk [ 2006-06-04 22:05:18 ]
Post subject: 
Bangbuss wrote:
klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.


все отлично , шас до пишу
Author:  DerMeister =) [ 2006-06-04 22:05:48 ]
Post subject: 
Bangbuss wrote:
klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.


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

Ну а если серьёзно, то тут ошибочка, я исправил:
Code:
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
Author:  klonuk [ 2006-06-04 22:12:31 ]
Post subject: 
Bangbuss wrote:
klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.


Code:
#В скрипту используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в #инжекте в закладке 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






Да сразу вапрос если реги с буытлками региться долго моно ввести задержку.
Писал не проверея ( т.к не могу ) пиши если будут ошибки
Author:  Bangbuss [ 2006-06-04 22:16:24 ]
Post subject: 
klonuk wrote:
Bangbuss wrote:
klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.


Code:
#В скрипту используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в #инжекте в закладке 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?
Author:  klonuk [ 2006-06-04 22:16:55 ]
Post subject: 
Ой да забыл ))
Author:  klonuk [ 2006-06-04 22:19:27 ]
Post subject: 
Code:

#Скрипт используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в инжекте в закладке 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             




Тести ....
Author:  Bangbuss [ 2006-06-04 22:48:09 ]
Post subject: 
Nea nerabotaet :(, zapuskaju skript Al() i mne na4inaetsa nerealniji lagi, on tipo otkrivaet dafiga alchemy menu.
Author:  klonuk [ 2006-06-04 22:55:26 ]
Post subject: 
Bangbuss wrote:
Nea nerabotaet :(, zapuskaju skript Al() i mne na4inaetsa nerealniji lagi, on tipo otkrivaet dafiga alchemy menu.

Изменил пробуй , скажи если слишком долго стоит ждем мену.
Author:  Grin [ 2006-06-04 22:58:50 ]
Post subject: 
вы забываете журнал чистить... вот унего и лаги...
Author:  Grin [ 2006-06-04 23:22:17 ]
Post subject: 
klonuk wrote:
Code:

#Скрипт используется быстрая закупка с вендора ,
# прежде чем запускать настройте быструю закупку с вендора в инжекте в закладке 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             




Тести ....
Author:  Bangbuss [ 2006-06-04 23:22:20 ]
Post subject: 
ja tebe bazarju on delaet butilku toka 1 raz, kogda zapuskae6 script, potom stoit i nefiga!
Author:  Grin [ 2006-06-04 23:45:26 ]
Post subject: 
Code:
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
Author:  Bangbuss [ 2006-06-05 00:06:02 ]
Post subject: 
nea nerabotaet!
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/