вот скрипт:
sub carpentry()
VAR MyTrash = '0x401FD7B4' ; Ñåðèàë ìóñîðêè (ID of trash)
VAR Logi = '0x1BDD' ; Òèï ëîãîâ (logs type)
VAR Rubanok = '0x1028' ; Òèï èíñòðóìåíòà (carpentry tools type)
VAR Udochka = '0x0DF0' ; Òèï óäî÷êè (fishing pole type)
VAR Kolvo = 460 ; Áðàòü ëîãîâ (Count of logs for a one grab)
VAR j, k
While TRUE
UO.FindType( Logi, -1, '0x412B2C4E' ) ; Èùåì ëîãè íà ïîëó
UO.Grab( Str( Kolvo ), 'finditem' ) ; Êëàäåì ëîãè â ïàê
wait( 6000 )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
Endif
While UO.Count( Logi ) > 0
; Ïîêà â ïàêå åñòü ëîãè
UO.Print('I have ' + Str( UO.Count( Logi ) ) + ' logs' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Carpentry', 'Weapons & Tools', 'Weapons & Tools', 'black staff' )
UO.UseType( Rubanok )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(5000)
wend
; Wait( 14000 )
; Ñêðàôòèëè óäî÷êó
; Ñðàçó ïåðåëîæèì åå â òðýø
if UO.Count( Udochka ) > 0 then
UO.FindType( Udochka )
UO.MoveItem( 'finditem', 0, MyTrash )
wait( 9000 )
UO.Print( 'Fishing Pole trashed' )
end if
Wend
Wend
end sub
спс
