Page 1 of 2
proka4ka alchemy
Posted: 2006-06-04 18:25:06
by Bangbuss
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.
Posted: 2006-06-04 19:59:22
by Bangbuss
pomagiti s etim skriptom
Posted: 2006-06-04 21:07:25
by klonuk
Шард скажи , я просто пишу именно такой скрипт ( точнее скрипт написал ) маюсь с ходилкой за вендором -пишу под
www.darkuo.ru
у нас особеная система крафта под другой шард врядли подойдет , но если скажешь как она у вас работает то выложу. )
Posted: 2006-06-04 21:25:52
by Bangbuss
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
Posted: 2006-06-04 21:27:30
by klonuk
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
Шас попробую накатать.
Posted: 2006-06-04 21:44:13
by klonuk
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
Если нормально будет варить добавлю скупку...
Posted: 2006-06-04 22:04:03
by Bangbuss
klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.
Posted: 2006-06-04 22:05:18
by klonuk
Bangbuss wrote:klonuk, vso rabotaet idealno, toka on 1 raz delaet cure i vso, nado 6tob vso reme delal.
все отлично , шас до пишу
Posted: 2006-06-04 22:05:48
by DerMeister =)
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
Posted: 2006-06-04 22:12:31
by klonuk
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
Да сразу вапрос если реги с буытлками региться долго моно ввести задержку.
Писал не проверея ( т.к не могу ) пиши если будут ошибки
Posted: 2006-06-04 22:16:24
by Bangbuss
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?
Posted: 2006-06-04 22:16:55
by klonuk
Ой да забыл ))
Posted: 2006-06-04 22:19:27
by klonuk
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
Тести ....
Posted: 2006-06-04 22:48:09
by Bangbuss
Nea nerabotaet
, zapuskaju skript Al() i mne na4inaetsa nerealniji lagi, on tipo otkrivaet dafiga alchemy menu.
Posted: 2006-06-04 22:55:26
by klonuk
Bangbuss wrote:Nea nerabotaet
, zapuskaju skript Al() i mne na4inaetsa nerealniji lagi, on tipo otkrivaet dafiga alchemy menu.
Изменил пробуй , скажи если слишком долго стоит ждем мену.
Posted: 2006-06-04 22:58:50
by Grin
вы забываете журнал чистить... вот унего и лаги...
Posted: 2006-06-04 23:22:17
by Grin
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
Тести ....
Posted: 2006-06-04 23:22:20
by Bangbuss
ja tebe bazarju on delaet butilku toka 1 raz, kogda zapuskae6 script, potom stoit i nefiga!
Posted: 2006-06-04 23:45:26
by Grin
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
Posted: 2006-06-05 00:06:02
by Bangbuss
nea nerabotaet!