Нид Хелп
Posted: 2005-05-16 13:58:12
Почему то не берет логи с пола..... Че делатЬ?
Code: Select all
sub carpentry()
VAR Sunduk1 = '0x4001B91F' ; Сериал сундука с пустыми мешками
VAR Sunduk2 = '0x40230C58' ; Сериал пустого сундука
VAR Meshok = '0x0E76' ; Тип мешка
VAR Logi = '0x1BDD' ; Тип логов
VAR Udochka = '0xDBF' ; Тип удочки
VAR Kolvo = 255 ; Брать логов (1 лога= 1 удочка)
VAR MeshSer, j, k
While TRUE
UO.FindType( Logi, -1, 1 ) ; Ищем логи на полу
UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем логи в пак
wait( 2000 )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
Endif
hide()
wait(1000)
UO.useobject('0x4001B91F')
wait(500)
UO.useobject('0x40230C58')
UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак
wait( 2000 )
UO.MoveItem( MeshSer, 0, Sunduk2 )
wait( 2000 )
While UO.Count( Logi ) > 4
; Пока в паке есть логи
CheckLag()
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' )
uo.DeleteJournal()
uo.CancelMenu()
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','fishing pole')
uo.UseType('0x1030')
wait(12000)
k = 0
while NOT ( k < 30 )
k = k + 1
wend
; Скрафтили удочку
; Сразу переложим ее в мешок
CheckLag()
if UO.Count( Udochka ) > 0 then
UO.FindType( Udochka, -1, 'backpack' )
UO.MoveItem( 'finditem', 0, MeshSer )
wait( 2000 )
UO.Print( 'Udochka perelozhena' )
end if
Wend
Wend
end sub
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub
sub hide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
endif
wend
end sub
