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

Плиз, подскажите! Если моно то ЁКО
http://forum.yoko.com.ua/viewtopic.php?f=20&t=940		 Page 1 of 1
Author:  Hmm [ 2004-07-22 11:11:46 ]
Post subject:  Плиз, подскажите! Если моно то ЁКО
sub Alchemy()
VAR SourceContainer='0x405AAE9C'
VAR DestContainer='0x40CCFB5F'
VAR RCon='0x40044B02'
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count('0x0F7B')>=3
UO.DeleteJournal()
UO.Waitmenu('What sort','Greater Agility')

UO.UseType('0x0F7B')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(3000)
wend

UO.FindType('0x0F08','0x0000',SourceContainer)
If UO.GetQuantity('finditem')==1 Then
CheckLag()
UO.MoveItem('finditem','1',DestContainer)
Else
repeat
Endif
while NOT UO.BM<3
UO.MoveItem('0x0F7B','150',SourceContainer)
wait(500)
UO.MoveItem('0x0F0E','0x0000','50',SourceContainer)
wait(500)



wend
gong(2)
end sub

sub Gong(times) ; play wav-file
VAR i
for i=1 to times
wait(1200) ; time to play sample at once
next
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

Repeat
wait(300)
Until UO.InJournal('backpack')
end sub




Вот скрипт. Я не как не разберусь, вот доходит он до того что перенес готовую бутылку, и закрывается, почему то не канает перенос бутылок и регов в свой бэкпэк, была правдо другая фигня вместоwhile NOT UO.BM<3
UO.MoveItem('0x0F7B','150',SourceContainer)
wait(500)
UO.MoveItem('0x0F0E','0x0000','5',SourceContainer)
wait(500)
вот этого было так:
while NOT UO.UseType('0x0F7B')<3 AND NOT UO.Count('0x0F0E','0x0000')<1
UO.FindType('0x0F7B',контейнер с регами и с банками)
CheckLag()
UO.MoveItem('0x0F7B','150',SourceContainer)
UO.FindType('0x0F0E','0x0000',контейнер с регами и с банками)
CheckLag()
UO.MoveItem('0x0F0E','0x0000','50',SourceContainer

Но не так не так не делается, не хочет переносить, вот подскажите почему.

И еще Я пробовал токо когда на один раз помешать моно, когда два раза не выбирает окно, мож задержку где-нить побольше поставить?


Напишите исправленный скрипт умоляю!!!!
Author:  Hmm [ 2004-07-22 11:46:54 ]
Post subject: 
sub Alchemy()
VAR SourceContainer='0x405AAE9C'
VAR DestContainer='0x40CCFB5F'
VAR RCon='0x40044B02'
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count('0x0F7B')>=3
UO.DeleteJournal()
UO.Waitmenu('What sort','Greater Agility')

UO.UseType('0x0F7B')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(3000)
wend


UO.FindType('0x0F08','0x0000',SourceContainer)
If UO.GetQuantity('finditem')==1 Then
CheckLag()
UO.MoveItem('finditem','1',DestContainer)
Else
repeat
Endif
If UO.BM<3 Then
UO.Exec ("findtype UO.BM RCon")
UO.Exec ("grab 150 <finditem")
wait(3000)
UO.Exec ("findtype B RCon")
UO.Exec ("grab 5 <finditem")
wait(3000)
Else
repeat
Endif


wend
gong(2)
end sub

sub Gong(times) ; play wav-file
VAR i
for i=1 to times
wait(1200) ; time to play sample at once
next
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

Repeat
wait(300)
Until UO.InJournal('backpack')
end sub


ВОт это версия вроде канает, токо не всегда тоскает бутлки правильно
и Блуд мосс

Доправте плиз
Author:  Hmm [ 2004-07-22 12:09:21 ]
Post subject: 
sub Alchemy()
VAR SourceContainer='0x405AAE9C'
VAR DestContainer='0x40CCFB5F'
VAR RCon='0x40044B02'
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count('0x0F7B')>=3
UO.DeleteJournal()
UO.Waitmenu('What sort','Greater Agility')

UO.UseType('0x0F7B')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(3000)
wend


UO.FindType('0x0F08','0x0000',SourceContainer)
If UO.GetQuantity('finditem')==1 Then
CheckLag()
UO.MoveItem('finditem','1',DestContainer)
Else
repeat
Endif
If UO.BM<3 Then

UO.Exec ("grab 150 <0x0F7B")
wait(5000)

UO.Exec ("grab 5 <0x0F0E")
wait(5000)
Else
repeat
Endif


wend
gong(2)
end sub

sub Gong(times) ; play wav-file
VAR i
for i=1 to times
wait(1200) ; time to play sample at once
next
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

Repeat
wait(300)
Until UO.InJournal('backpack')
end sub




Все пашет, теперь вот в чем вопрос, как сделать чтоб когда кончилось место в одном пеке кидал в другой?
Author:  Yoko [ 2004-07-22 23:15:45 ]
Post subject: 
"кончалось место" это на твоём шарде. в оригинале сумки безразмерные. соответственно алгоритм зависит от того что у вас там придумано.
Author:  Yoko [ 2004-07-22 23:16:13 ]
Post subject: 
"кончалось место" это на твоём шарде. в оригинале сумки безразмерные. соответственно алгоритм зависит от того что у вас там придумано.
Author:  Hmm [ 2004-07-23 14:19:34 ]
Post subject: 
Да там сумки имеют лимит : 255 итемов, Еко, спасибо что обратил внимание плиз, помаги доделать я столько мучаюсь ))

Только умоляю без общих фраз, а то я же не пойму что да куда )
Author:  Yoko [ 2004-07-23 16:37:46 ]
Post subject: 
готовые скрипты я делаю только платно, для тех кто понять не способен. для тех кто способен понять я даю бесплатные подсказки.

UO.FindType('0x0F08','0x0000',DestContainer)
if uo.findcount()>250 then
DestContainer=.... #новый сериал вручную, поиском или из массива
end if
Author:  Hmm [ 2004-07-24 07:41:37 ]
Post subject: 
Еко, я думал, не поможешь)))

Спасибо огромное!!! правдо я сделал чуток по другому, т.к. я не смог допереть, как делать не для 2-ух а для большего кол-ва, я так сделал:

UO.FindType('0x0F0D','0x0000',DestContainer)
if uo.findcount()>250 then
alchemy2()
end if

А в alchemy2() изменен токо DestContainer,ну и соответственно добавляется alchemy3(). Хоть длинее, но работает так как хотел.

За эту неделю, что парился с скриптом, познал азы СИ++ )) И нашел в инжекте много очень полезных командочек. Спасибо еще раз ЕКО)

Топик клоуз.
Author:  Daioh [ 2004-07-24 10:56:19 ]
Post subject: 
Чтобы не было длинно сделай массив DestContainer, а здесь
UO.FindType('0x0F0D','0x0000',DestContainer[i])
if uo.findcount()>250 then
i=i+1
end if
вот так.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/