Возникла проблемка.
Взял Ваш скрипт и немного доработал, чтоб он делал луки из логов и нитки. Всё прекрасно работает, но недолго
Вот скрипт:
Quote:
sub bowcraft()
VAR Sunduk = '0x400D2C79' ; Сериал сундука
VAR Logi = '0x1BDD' ; Тип логов
VAR Spool = '0x0FA0' ; Тип ниток
VAR Bow = '0x13B1' ; Тип луков
VAR Kolvo = 6 ; Количество логов которое берём
VAR Kolvo2 = 1 ; Количество ниток которое берём
VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
###############################################
While TRUE
If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
##############################################################
If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend
###############################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
If UO.Count( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub
VAR Sunduk = '0x400D2C79' ; Сериал сундука
VAR Logi = '0x1BDD' ; Тип логов
VAR Spool = '0x0FA0' ; Тип ниток
VAR Bow = '0x13B1' ; Тип луков
VAR Kolvo = 6 ; Количество логов которое берём
VAR Kolvo2 = 1 ; Количество ниток которое берём
VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
###############################################
While TRUE
If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
##############################################################
If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend
###############################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
If UO.Count( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub
Он работает, работает, а потом вылетает ошибка "Line (допустим) 74: perse error "(это последняя строчка, она пустая) в паке остается от 10 до 12 логов (хотя должно быть 6) и он останавливается... Помогите пжалста!!!! ХЕЛППП!!!
п.с. хотел ещё узнать. Как сделать скрипт чтоб он ложил луки в разные мешки. Допустим в одном мешке 225 итемов он переходит на второй мешок?
Заранее спасибо! ОНЛИ Ю KuKuRuZ@!