Мистика или кривые руки? =)

Deathclaw · Post by **Deathclaw** » 2006-12-16 15:21:25

Поправьте плиз скрипт, лажа какая-то вчера ставил всё ок изменил там кое-что немного но вроде всё нормально должно быть а не работает

Code: Select all

sub tinker() 
VAR Sunduk = '0x401AC3A2'         ; ID sunduka s ingami + kuda budut skladivatsja sdellanie ve6i
VAR Ingi = '0x1BEF'               ; Type ingov 
VAR Instrum = '0x1EBC'            ; Type tinkerskogo instrumenta 
VAR Item = '0x1059'               ; Type sdelannoj ve6i 
VAR Kolvo = 300                   ; Skolko ingotov iz sunduka
VAR k = 0
While TRUE 
UO.FindType( Ingi, -1, Sunduk )   ; I6em ingi v sunduke 
If UO.FindCount() == 0 Then 
UO.Print("Iron Ingots not found, script terminated") 
return 
Endif 
UO.Grab( Str( Kolvo ), 'finditem' ) 
wait( 2000 ) 
While UO.Count( Ingi ) > 2        ; Trbuemoe koli4estvo ingov na sozdanie itema minus 1              
UO.DeleteJournal() 
UO.CancelMenu()
UO.WaitMenu ('Tinkering', 'Parts', 'Parts', 'Sextant parts' ) ; Putj k ve6i kotoruju vi hotite sdelatj!
UO.UseType( Instrum ) 
k = 0 
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) 
k = k + 1 
wait(500) 
wend 
if UO.Count( Item ) > 0 then 
UO.FindType( Item, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Sunduk ) 
wait( 1000 ) 
UO.Print( 'Created item moved' ) 
end if 
Wend 
Wend 
end sub

Вообще скрипт проходит по кругу только ничего не делает единственное что он делает это кенслменю

Мне бы хотелось что бы он делал секстант парты.Заранее спасибо!

omi4 · Post by **omi4** » 2006-12-16 16:52:11

Почитай про AND и OR

Deathclaw · Post by **Deathclaw** » 2006-12-16 17:26:22

да, с этим всё правильно, вроде, он не находит тинкер тулс, я ввёл в место типа ИД и начало писать айтем нот фаунд...

Deathclaw · Post by **Deathclaw** » 2006-12-16 17:32:45

Банально заменил

Code: Select all

UO.WaitMenu ('Tinkering', 'Parts', 'Parts', 'Sextant parts' ) ; Putj k ve6i kotoruju vi hotite sdelatj! 
UO.UseType( Instrum )

на

Code: Select all

UO.LDblClick(907,404)
wait(500)
UO.LDblClick(127,61)
wait(500)
UO.LDblClick(148,67)
wait(500)

заработало.Блин но не как не могу разобратся в чём проблема... =(

grundick · Post by **grundick** » 2006-12-17 08:45:15

Попробуй между WaitMenu и UseType поставить паузу wait(600)

Deathclaw · Post by **Deathclaw** » 2006-12-17 11:11:09

Неа, не пашет.
Первый раз сказало автоменю кэнселд : Тинкеринг
Потом просто Эррор : ноу меню ту кэнсл

Плин ну почему когда пишут типа поправте скрипт или дайте скрипт, всё експерты пишут типа начни разбиратся, поможем, а тут пытаешся что-то сделать и фиг, спасибо, что хоть кто-то эту тему без внимания не оставляет...

Savage · Post by **Savage** » 2006-12-17 11:34:18

Так если не работает вайт меню, так его и мучай пока не заработает. Чего тут не понятного? Попробуй секстант партс сократить до сектант, или заменить цифру.

Deathclaw · Post by **Deathclaw** » 2006-12-17 12:35:09

Code: Select all

UO.WaitMenu ('Tinkering', 'Wires', 'Wire', 'iron wire' )
wait(600)
uo.usetype(Instrum)

Вот так сделал, начал клепать провода. ВСё ок, но секстант парты совсем не хочет =(

Даже вот так нехочет, ничего из партов ниделает

Code: Select all

uo.waitmenu('Tinkering', 'Parts')
uo.waitmenu('Parts', 'hinge (1 iron ingot)')

Deathclaw · Post by **Deathclaw** » 2006-12-17 12:42:08

Заработаааалоо

Урааа
Кароче

Code: Select all

UO.WaitMenu ('Tinkering', 'Parts', 'Part', 'sextant' )
wait(600)
uo.usetype(Instrum)

Когда из меню тинкера заходишь то называется Parts а когда уже вошёл, то уже Part

Спасибо, всем кто помогал мне