Мистика или кривые руки? =)
Posted: 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
Вообще скрипт проходит по кругу только ничего не делает единственное что он делает это кенслменю
Мне бы хотелось что бы он делал секстант парты.Заранее спасибо!
