Yoko

Posted: **2006-05-06 20:42:29**

Короч, нужно чтобы чар плавил руду не дабл кликом на руду, а сперва он искал неподалеку плавилку, или можно сделать чтобы самому указывать ID плавилки, воть жал на нее 2 раза и направлял на 1 руду....

Posted: **2006-05-06 20:56:16**

-=Morf=- wrote:Короч, нужно чтобы чар плавил руду не дабл кликом на руду, а сперва он искал неподалеку плавилку, или можно сделать чтобы самому указывать ID плавилки, воть жал на нее 2 раза и направлял на 1 руду....

Типа того, пробуй.. руда в сундуке sunduk, стоит рядом с тобой

Code: Select all

sub plavka() 
VAR tip='0x19B9'    # Тип руды
VAR cvet='0x0193'  # Цвет руды 
VAR forg='0x40481C78'  # ID форжы 
VAR sunduk='0x404A06F9' #ID сундука с рудой 

UO.FindType(tip, cvet, sunduk) 
If UO.FindCount() > 0 then 
repeat 
UO.MoveItem('finditem', '1', 'backpack') 
Wait(500)
UO.FindType(tip, cvet, 'backpack') 
If UO.FindCount() > 0 then 
UO.WaitTargetObject('finditem') 
UO.UseObject(forg) 
wait(2000) 
endif
UO.FindType(tip, cvet, sunduk) 
until not UO.FindCount() 
else 
UO.Print('Руды нету') 
endif 
end sub

Posted: **2006-05-06 21:11:52**

что то не работает......

Posted: **2006-05-06 21:18:13**

Code: Select all

##################################################################### 
; Training of Mining, ver 1.03, (c) Edred 
sub Smelt() 
VAR Ruda1 = '0x19B9'            ; Тип руды 
VAR Ruda2 = '0x19B8'            ; Тип руды - 3 шт. 
VAR Ruda3 = '0x19BA'            ; Тип руды - 2 шт. 
VAR Ruda4 = '0x19B7'            ; Тип руды - 1 шт. 
VAR Ing1 = '0x1BEF'               ; Тип ингов металлов 
VAR Ing2 = '0x1BF2'               ; Тип ингов строймата 
VAR MaxVes = 500               ; Максимальный вес пака 
repeat    
   UO.Findtype( Ruda1, -1, 1 )      ; Ищем руду на земле 
   If UO.Findcount() == 0 Then 
      UO.Findtype( Ruda2, -1, 1 ) 
      If UO.Findcount() == 0 Then 
         UO.Findtype( Ruda3, -1, 1 ) 
         If UO.Findcount() == 0 Then 
            UO.Findtype( Ruda4, -1, 1 ) 
            If UO.Findcount() == 0 Then 
               UO.Print( "No more ore for smelt..." ) 
               Return 
            Endif 
         Endif 
      Endif 
   Endif 
   UO.Exec( "moveitem finditem 1" )   ; Тащим 1 в пак 
   Wait( 1000 ) 
   UO.Useobject( 'finditem' )      ; переплавляем 
   Wait( 1000 ) 
   If UO.Weight > MaxVes Then 
      ; Максимальный вес пака превышен - разгружаемся 
      UO.Findtype( Ing1, -1, -1 ) 
      If UO.Findcount() > 0 Then 
         UO.Drophere( 'finditem' ) 
         Wait( 1000 ) 
      Endif 
      UO.Findtype( Ing2, -1, -1 ) 
      If UO.Findcount() > 0 Then 
         UO.Drophere( 'finditem' ) 
         Wait( 1000 ) 
      Endif 
   Endif 
until NOT Uo.CountGround( Ruda1 ) AND NOT UO.CountGround( Ruda2 ) AND NOT UO.CountGround( Ruda3 ) AND NOT UO.CountGround( Ruda4 ) 
UO.Print( "No more ore for smelt..." ) 
endsub

Posted: **2006-05-06 21:40:27**

-=Morf=- wrote:что то не работает......

Поправил... смотри выше

Posted: **2006-05-06 21:54:10**

во втором скрипте чар не плавит руду, а опять же жмет на нее 2 раза

Posted: **2006-05-06 21:58:02**

а в куперовском скрипте? помоему там всё ок расписано. =\

Posted: **2006-05-06 22:01:30**

а у меня там воще чот не плавит, или плавит все сразу

Posted: **2006-05-06 22:04:57**

вроде там написано на языке инжекта :

возьми 1 штуку,кликни на форж и прицелом на руду. Тогда уже не знаю в чём проблемка

Posted: **2006-05-06 22:04:59**

-=Morf=- wrote:а у меня там воще чот не плавит, или плавит все сразу

Я же написал что поправил ((( и руду скинь в сундук отдельный

Posted: **2006-05-06 22:05:48**

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

Posted: **2006-05-06 22:10:41**

Sanch wrote:Отпиши тип плавилки, ингов, чего на чего надо кликать и id мешка, который не подалеку с рудой, еще макс рассояние на которой можно юзать плавилку в шагах, нужна ли кирка или еще что в руках, куда все это потом кидать, напишу.

Все что ты описал написанно в моем скрипте, просто чел не обратил внимание на пост "Поправил..." лень скопировать скрипт снова наверно :roll:

Posted: **2006-05-15 18:41:29**

Do you have simple sript to smelt iron ringmail armor from backpack if you have 10k weight!? (dont drag this ingots aniway, dont use runbuk)

Posted: **2006-05-15 22:08:16**

-=Morf=- wrote:во втором скрипте чар не плавит руду, а опять же жмет на нее 2 раза

Переделать - две секунды. В начало вставить

Code: Select all

VAR plavilka = 'сериал плавилки'

А строку

Code: Select all

   UO.Useobject( 'finditem' )      ; переплавляем

Заменить на

Code: Select all

   UO.WaitTargetObject( 'finditem' )
   UO.Useobject( plavilka )

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

Yoko

Нужен скрипт на переплавку....

Нужен скрипт на переплавку....

Re: Нужен скрипт на переплавку....