Скитания нуба по строкам кода

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
CxC
Posts: 93
Joined: 2012-12-31 00:17:09

Скитания нуба по строкам кода

Post by CxC »

Алу, Алу, что там не так в скриптах на бесте? :oops:

зы: Mitako
зыы: кто знает, тот поймет :mrgreen:
Qualis Eram
Posts: 104
Joined: 2005-04-16 23:33:13
Contact:

Re: Скитания нуба по строкам кода

Post by Qualis Eram »

CxC wrote:Алу, Алу, что там не так в скриптах на бесте? :oops:

зы: Mitako
зыы: кто знает, тот поймет :mrgreen:

зачем? лемоня же теперь отцом станет на бесте, после твоих скриптов не надо этого делать!
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Скитания нуба по строкам кода

Post by Mirage »

Дублируй сюда, будем разбираться :) Тут то править можно в любое время. Потом старые варианты заменишь на улучшенные.
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Скитания нуба по строкам кода

Post by Mirage »

1) Модификация по сокращению кода

Code: Select all

   UO.Set('finddistance', '2')
   UO.FindType(body,'-1','ground')

равна
uo.findtype(body, -1, 'ground', 2)

2) что бы кто бы не писал по поводу grab и MoveItem у меня вполне себе живут такие конструкции в луте

Code: Select all

               timemove=UO.Timer()
               uo.MoveItem(itemID,0,'backpack')
               repeat
                  wait(100)
               until UO.ContainerOf(itemID)<>'backpack' || timemove+30>UO.Timer()

3)Переработку хлопка я делал чуть по другому

Code: Select all

sub Spinning_Wheel()
   while UO.Count('0x0DF9')>0 or UO.Count('0x0DF8')>0 ; пока есть хлопок или шерсть в паке.
      UO.FindType('0x1015',-1,'ground',2)
      If UO.FindCount() > 0 Then
         UO.WaitTargetObject('finditem')
         ; ********************************
         ; Auto material
         if UO.Count('0x0DF9') || UO.Count('0x0DF8') then
            if UO.Count('0x0DF9') then
               UO.UseType('0x0DF9');
            else
               UO.UseType('0x0DF8');
            endif
         else
            return 1
         endif
         ; ********************************
         Wait( 100 )
      else
         Wait( 50 )
      endif
   wend
   UO.Print(' = Нитки сделаны = ')
end sub

Ставишь 8-10 колес и паришь нитки сразу на всех. Не надо ID прописывать колес. Добиралку и скидывалку материалов дописать самостоятельно :) На рулонах тоже поиск типа - таргет на объект.
CxC
Posts: 93
Joined: 2012-12-31 00:17:09

Re: Скитания нуба по строкам кода

Post by CxC »

спс, найду время - поправлю )
Post Reply