Page 1 of 1
Не куёт расти
Posted: 2006-03-25 10:03:29
by Raketchik
Code: Select all
sub BS()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0750','0x40277507')
UO.Grab('300','finditem')
wait(300)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Colored Armor & Weapons','Colored Armor & Weapons','Rusty Weapons','Rusty Weapons','Rusty Swords & Blades','Rusty Swords & Blades','Rusty Dagger')
UO.UseType(0x1BEF)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4002A350)
Endif
wait(1000)
wend
end sub
Должен делать даггеры из расти, но почему-то встаёт на первом же меню... Помогите пожалуйста.
Posted: 2006-03-25 15:31:09
by pandinus
если я не ошибаюсь то
uo.waitmenu работает с максимальной глубиной 3 уровня...
http://yoko.netroof.net/help/help.php?lang=rus&a=item&item=waitmenu
Posted: 2006-03-25 15:43:16
by Raketchik
Поставил automenu, вместо вэйта - результат не лучше... Усё равно не работает...
Posted: 2006-03-25 16:58:50
by pandinus
слух, у меня тоже скрипт на это дело не хочет работать...
тока я я айро кую...
у меня не хочет плавить...
даю чуваку у него не плавит и инги из сундука не берёт....
Posted: 2006-03-25 17:04:38
by pandinus
попробуй вот это
и у тебя там написяно было без кавычек(апострофов если точно.....).
Posted: 2006-03-25 18:17:20
by Raketchik
pandinus wrote:попробуй вот это
и у тебя там написяно было без кавычек(апострофов если точно.....).
при чём тут это? мне нужен путёвый выбор менюшек...
Posted: 2006-03-25 18:22:18
by Kynep
Raketchik wrote:pandinus wrote:попробуй вот это
и у тебя там написяно было без кавычек(апострофов если точно.....).
при чём тут это? мне нужен путёвый выбор менюшек...
Напиши как ты вставил Автоменю
Posted: 2006-03-26 01:13:45
by pandinus
ну тогда наверно так..
Code: Select all
UO.UseType('0x1BEF','0x0750')
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Rusty Weapons')
uo.automenu('Rusty Weapons','Rusty Swords & Blades')
uo.automenu('Rusty Swords & Blades','Rusty Dagger')
Posted: 2006-03-26 06:01:18
by Raketchik
pandinus wrote:ну тогда наверно так..
Code: Select all
UO.UseType('0x1BEF','0x0750')
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Rusty Weapons')
uo.automenu('Rusty Weapons','Rusty Swords & Blades')
uo.automenu('Rusty Swords & Blades','Rusty Dagger')
Unhandled exeption in parser...
Напиши как ты вставил Автоменю
Я в скриптинге не гу-гу, поэтому воткнул его прям вместо вэйтменю))
Posted: 2006-03-26 09:10:17
by Kynep
Raketchik wrote:pandinus wrote:ну тогда наверно так..
Code: Select all
UO.UseType('0x1BEF','0x0750')
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Rusty Weapons')
uo.automenu('Rusty Weapons','Rusty Swords & Blades')
uo.automenu('Rusty Swords & Blades','Rusty Dagger')
Unhandled exeption in parser...
Напиши как ты вставил Автоменю
Я в скриптинге не гу-гу, поэтому воткнул его прям вместо вэйтменю))
Нет не так, а вот так:
Code: Select all
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Rusty Weapons','Rusty Swords & Blades')
uo.automenu('Rusty Dagger')
wait(300)
UO.UseType('0x1BEF','0x0750')
Если не получится то так:
Code: Select all
uo.automenu('Blacksmithing','Colored Armor')
uo.automenu('Rusty Weapons','Rusty Swords')
uo.automenu('Rusty Dagger')
wait(300)
UO.UseType('0x1BEF','0x0750')
Пробуй[/code]
Posted: 2006-03-26 10:39:37
by Raketchik
Ни 1 ни 2 не хочет
Posted: 2006-03-26 16:38:16
by Kolsz
I think you are right guys!
:)
Posted: 2006-03-26 17:07:11
by Kynep
Raketchik wrote:Ни 1 ни 2 не хочет
Последний вопрос... у тя БС скок??? Если меньше 60 то даже и е думай
а если больше то АФТАРВЫПЕЙЯДУ!!!! У мя все работает и прекрастно кует
Posted: 2006-03-26 18:19:45
by Raketchik
Cooper wrote:Raketchik wrote:Ни 1 ни 2 не хочет
Последний вопрос... у тя БС скок??? Если меньше 60 то даже и е думай
а если больше то АФТАРВЫПЕЙЯДУ!!!! У мя все работает и прекрастно кует
у мя 62 реал
выложи свой полный скрипт пожалуйста
Posted: 2006-03-27 07:32:30
by Raketchik
Заработало при
Code: Select all
sub BS()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0750','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0750','0x40277507') ;serial sunduka s iron
UO.Grab('300','finditem')
wait(300)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Rusty Weapons')
uo.automenu('Rusty Weapons','Rusty Swords & Blades')
uo.automenu('Rusty Swords & Blades','Rusty Dagger')
wait(300)
UO.UseType('0x1BEF','0x0750')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf
UO.FindType('0x0F51',-1,'backpack') ; dagger
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4002A350) ;forge
Endif
wait(1000)
wend
end sub
Posted: 2006-03-27 07:34:34
by Raketchik
Kolsz wrote:I think you are right guys!
:)
А как же иначе
Posted: 2006-03-27 10:42:49
by Kynep
Raketchik wrote:Заработало при
Code: Select all
sub BS()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0750','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0750','0x40277507') ;serial sunduka s iron
UO.Grab('300','finditem')
wait(300)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Rusty Weapons')
uo.automenu('Rusty Weapons','Rusty Swords & Blades')
uo.automenu('Rusty Swords & Blades','Rusty Dagger')
wait(300)
UO.UseType('0x1BEF','0x0750')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf
UO.FindType('0x0F51',-1,'backpack') ; dagger
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4002A350) ;forge
Endif
wait(1000)
wend
end sub
ыыы Неужели
урраааа заработало!!!! (хз не помню кто сказал)
Posted: 2006-03-27 11:12:53
by SLAK
Cooper wrote:урраааа заработало!!!! (хз не помню кто сказал)
Кот Матроскин из мультфильма "Простоквашено"