Carpentry помогите поправить скрипт

[Volodya]

Ребят вот такой скрипт. В общем алгаритм такой, чар берет бревна с пола, переносим их в пак, кликаем на пилу и делаем бочки. после того как бочка сделана находим ее в паке и переплавляем ее, если логов в паке меньше 30 то докладываем еще 200 логов.
вот собственно скрипт. проблемы две , первая бревна чар берет но после того как меньше 30 их то он не докладывает и вторая проблема не всегда чар находит рядом с собой плавилку. Моет кто-то поправит скрипт?

Code: Select all

sub Paper() ; Делаем бочки - с собой пила
VAR TLogs='0x1BDD' ; Тип логов
VAR TPila='0x1030'  ; ПИЛА
VAR TPaper='0x1EBA' ; Бумага
VAR Kolvo = 200      ; Брать логов (Count of logs for a one grab)

UO.FindType( TLogs, -1, 1 )       ; Ищем логи на полу 
UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак 
wait(200) 
If UO.FindCount() == 30 Then 
    UO.Print("Logs not found, script terminated") 
While UO.Count( TLogs ) > 30    ; Пока в паке есть логи 
         UO.print("ЛОГИ ЗАКОНЧИЛИСЬ !!!!")
      return
   else
      uo.Grab('200','finditem') 
   end if
end if
wait(200) 
CheckLag() 

while NOT UO.InJournal("успешно") AND NOT UO.InJournal("...") and NOT UO.InJournal("Targeting Cancelled")
wait (20)
wend
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub 

sub main()
 while 1
  While UO.Mana > 2
   UO.Exec("waittargetobject ^0x0E77")  
   UO.Exec("useobject Type=0x1EBA")
   Wait(15000)
  Wend
  While UO.Mana < UO.INT 
   UO.Exec("useskill Meditation")
   Wait(7000)
  Wend
 Wend
end sub

[ghost_hnt]

какой-то скриптец кривоватенький)
не могу понять зачем здесб это:

Code: Select all

  While UO.Mana < UO.INT 
   UO.Exec("useskill Meditation")

подправь добор логов с пола или поставь лучше сумку(но тогда не забудь поставить ID)

Code: Select all

sub DOBOR()
UO.FindType('TLogs',-1,'backpack') 
wait(500) 
If UO.GetQuantity('finditem') < 30 then
UO.FindType( TLogs, -1, 1 )       ; Ищем логи на полу , лучше вместо пола поставь ID какого-нибудь ящика
UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак 
wait(200)
end if
end sub

я в скриптах не очень - но проверь, мож правильно

ща скрипт на плавку подпишу

Code: Select all

sub PLAVKA()
UO.FindType('ТИП БОЧЕК',-1,'backpack') 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; ID ФОРЖИ
Endif 

wend
end sub

ВРОДЕ БЫ ВСЕ!
про добор- не уверен, а про плавку - вроде все точно
склеивай и смоотри!

[Scripts Writer]

какой-то скриптец кривоватенький)
не могу понять зачем здесб это:

Code: Select all

  While UO.Mana < UO.INT 
   UO.Exec("useskill Meditation")

подправь добор логов с пола или поставь лучше сумку(но тогда не забудь поставить ID)

Code: Select all

sub DOBOR()
UO.FindType('TLogs',-1,'backpack') 
wait(500) 
If UO.GetQuantity('finditem') < 30 then
UO.FindType( TLogs, -1, 1 )       ; Ищем логи на полу , лучше вместо пола поставь ID какого-нибудь ящика
UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак 
wait(200)
end if
end sub

я в скриптах не очень - но проверь, мож правильно

ща скрипт на плавку подпишу

Code: Select all

sub PLAVKA()
UO.FindType('ТИП БОЧЕК',-1,'backpack') 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; ID ФОРЖИ
Endif 

wend
end sub

ВРОДЕ БЫ ВСЕ!
про добор- не уверен, а про плавку - вроде все точно
склеивай и смоотри!

1.

Code: Select all

uo.Set('finddistance','5')
uo.FindType(...,...,'ground')

2.

Code: Select all

if uo.FindCount() then
  uo.WaitTargetObject('finditem')
  uo.UseObject(forge)
end if

[Volodya]

какой-то скриптец кривоватенький)
не могу понять зачем здесб это:

Code: Select all

  While UO.Mana < UO.INT 
   UO.Exec("useskill Meditation")

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

[Volodya]

1.

Code: Select all

uo.Set('finddistance','5')
uo.FindType(...,...,'ground')

2.

Code: Select all

if uo.FindCount() then
  uo.WaitTargetObject('finditem')
  uo.UseObject(forge)
end if

если не трудно распиши что ты имел ввиду? что куда ?

[Scripts Writer]

Первый отрывок - поиск бревен или че там на земле.
Второе проверка, если еще есть бочки тогда плавить.

[Volodya]

Первый отрывок - поиск бревен или че там на земле.
Второе проверка, если еще есть бочки тогда плавить.

спасибо большое все получилось !!

[Scripts Writer]

Обращайся