Не куёт расти

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Не куёт расти

Post 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 
Должен делать даггеры из расти, но почему-то встаёт на первом же меню... Помогите пожалуйста.
pandinus
Posts: 12
Joined: 2006-02-18 00:13:34

Post by pandinus »

если я не ошибаюсь то uo.waitmenu работает с максимальной глубиной 3 уровня... http://yoko.netroof.net/help/help.php?l ... m=waitmenu
Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Post by Raketchik »

Поставил automenu, вместо вэйта - результат не лучше... Усё равно не работает...
pandinus
Posts: 12
Joined: 2006-02-18 00:13:34

Post by pandinus »

слух, у меня тоже скрипт на это дело не хочет работать...
тока я я айро кую...
у меня не хочет плавить...
даю чуваку у него не плавит и инги из сундука не берёт....
pandinus
Posts: 12
Joined: 2006-02-18 00:13:34

Post by pandinus »

попробуй вот это

Code: Select all

UO.UseType('0x1BEF', '0x0750')
и у тебя там написяно было без кавычек(апострофов если точно.....).
Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Post by Raketchik »

pandinus wrote:попробуй вот это

Code: Select all

UO.UseType('0x1BEF', '0x0750')
и у тебя там написяно было без кавычек(апострофов если точно.....).
при чём тут это? мне нужен путёвый выбор менюшек...
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

Raketchik wrote:
pandinus wrote:попробуй вот это

Code: Select all

UO.UseType('0x1BEF', '0x0750')
и у тебя там написяно было без кавычек(апострофов если точно.....).
при чём тут это? мне нужен путёвый выбор менюшек...
Напиши как ты вставил Автоменю
pandinus
Posts: 12
Joined: 2006-02-18 00:13:34

Post 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')

Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Post 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...
Напиши как ты вставил Автоменю
Я в скриптинге не гу-гу, поэтому воткнул его прям вместо вэйтменю))
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post 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]
Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Post by Raketchik »

Ни 1 ни 2 не хочет :(
Kolsz
Posts: 3
Joined: 2006-03-26 16:36:54
Contact:

Post by Kolsz »

I think you are right guys! :)
God bless America!
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

Raketchik wrote:Ни 1 ни 2 не хочет :(
Последний вопрос... у тя БС скок??? Если меньше 60 то даже и е думай :D а если больше то АФТАРВЫПЕЙЯДУ!!!! У мя все работает и прекрастно кует :twisted:
Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Post by Raketchik »

Cooper wrote:
Raketchik wrote:Ни 1 ни 2 не хочет :(
Последний вопрос... у тя БС скок??? Если меньше 60 то даже и е думай :D а если больше то АФТАРВЫПЕЙЯДУ!!!! У мя все работает и прекрастно кует :twisted:
у мя 62 реал
выложи свой полный скрипт пожалуйста :)
Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Post 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 
Raketchik
Posts: 23
Joined: 2006-02-03 10:40:17
Location: DRW
Contact:

Post by Raketchik »

Kolsz wrote:I think you are right guys! :)
А как же иначе :wink:
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post 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 

ыыы Неужели :twisted:
урраааа заработало!!!! (хз не помню кто сказал)
SLAK
Posts: 182
Joined: 2005-08-19 16:12:23
Contact:

Post by SLAK »

Cooper wrote: урраааа заработало!!!! (хз не помню кто сказал)
Кот Матроскин из мультфильма "Простоквашено" :)
Post Reply