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

[-=Morf=-]

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

[Kynep]

Короч, нужно чтобы чар плавил руду не дабл кликом на руду, а сперва он искал неподалеку плавилку, или можно сделать чтобы самому указывать 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

[-=Morf=-]

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

[Scripts Writer]

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 

[Kynep]

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

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

[-=Morf=-]

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

[Scripts Writer]

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

[-=Morf=-]

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

[Scripts Writer]

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

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

[Kynep]

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

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

[Sanch]

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

[Kynep]

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

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

[Desktop]

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)

[Edred]

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

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

Code: Select all

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

А строку

Code: Select all

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

Заменить на

Code: Select all

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

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