Yoko
http://forum.yoko.com.ua/

Нужен скрипт на переплавку....
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7596		 Page 1 of 1
Author:  -=Morf=- [ 2006-05-06 20:42:29 ]
Post subject:  Нужен скрипт на переплавку....
Короч, нужно чтобы чар плавил руду не дабл кликом на руду, а сперва он искал неподалеку плавилку, или можно сделать чтобы самому указывать ID плавилки, воть жал на нее 2 раза и направлял на 1 руду....
Author:  Kynep [ 2006-05-06 20:56:16 ]
Post subject:  Re: Нужен скрипт на переплавку....
-=Morf=- wrote:
Короч, нужно чтобы чар плавил руду не дабл кликом на руду, а сперва он искал неподалеку плавилку, или можно сделать чтобы самому указывать ID плавилки, воть жал на нее 2 раза и направлял на 1 руду....


Типа того, пробуй.. руда в сундуке sunduk, стоит рядом с тобой
Code:
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
Author:  -=Morf=- [ 2006-05-06 21:11:52 ]
Post subject: 
что то не работает...... :(
Author:  Scripts Writer [ 2006-05-06 21:18:13 ]
Post subject: 
Code:
##################################################################### 
; 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
Author:  Kynep [ 2006-05-06 21:40:27 ]
Post subject: 
-=Morf=- wrote:
что то не работает...... :(


Поправил... смотри выше
Author:  -=Morf=- [ 2006-05-06 21:54:10 ]
Post subject: 
во втором скрипте чар не плавит руду, а опять же жмет на нее 2 раза
Author:  Scripts Writer [ 2006-05-06 21:58:02 ]
Post subject: 
а в куперовском скрипте? помоему там всё ок расписано. =\
Author:  -=Morf=- [ 2006-05-06 22:01:30 ]
Post subject: 
а у меня там воще чот не плавит, или плавит все сразу
Author:  Scripts Writer [ 2006-05-06 22:04:57 ]
Post subject: 
вроде там написано на языке инжекта :

возьми 1 штуку,кликни на форж и прицелом на руду. Тогда уже не знаю в чём проблемка
Author:  Kynep [ 2006-05-06 22:04:59 ]
Post subject: 
-=Morf=- wrote:
а у меня там воще чот не плавит, или плавит все сразу

Я же написал что поправил ((( и руду скинь в сундук отдельный
Author:  Sanch [ 2006-05-06 22:05:48 ]
Post subject: 
Отпиши тип плавилки, ингов, чего на чего надо кликать и id мешка, который не подалеку с рудой, еще макс рассояние на которой можно юзать плавилку в шагах, нужна ли кирка или еще что в руках, куда все это потом кидать, напишу.
Author:  Kynep [ 2006-05-06 22:10:41 ]
Post subject: 
Sanch wrote:
Отпиши тип плавилки, ингов, чего на чего надо кликать и id мешка, который не подалеку с рудой, еще макс рассояние на которой можно юзать плавилку в шагах, нужна ли кирка или еще что в руках, куда все это потом кидать, напишу.


Все что ты описал написанно в моем скрипте, просто чел не обратил внимание на пост "Поправил..." лень скопировать скрипт снова наверно :roll:
Author:  Desktop [ 2006-05-15 18:41:29 ]
Post subject: 
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)
Author:  Edred [ 2006-05-15 22:08:16 ]
Post subject: 
-=Morf=- wrote:
во втором скрипте чар не плавит руду, а опять же жмет на нее 2 раза


Переделать - две секунды. В начало вставить
Code:
VAR plavilka = 'сериал плавилки'


А строку
Code:
   UO.Useobject( 'finditem' )      ; переплавляем

Заменить на
Code:
   UO.WaitTargetObject( 'finditem' )
   UO.Useobject( plavilka )


И всего делов-то. Изучай язык и правь скрипты под себя и свой шард. Не всегда найдутся желающие этим заниматься вместо тебя.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/