Нужен скрипт на переплавку....
Moderators: Murderator+, Murderator
Нужен скрипт на переплавку....
Короч, нужно чтобы чар плавил руду не дабл кликом на руду, а сперва он искал неподалеку плавилку, или можно сделать чтобы самому указывать ID плавилки, воть жал на нее 2 раза и направлял на 1 руду....
Re: Нужен скрипт на переплавку....
-=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
Last edited by Kynep on 2006-05-06 22:06:45, edited 2 times in total.
-
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
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 -
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
-
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
-
Sanch
- Posts: 308
- Joined: 2005-07-17 15:30:52
- Location: www.drw.ru
Sanch wrote:Отпиши тип плавилки, ингов, чего на чего надо кликать и id мешка, который не подалеку с рудой, еще макс рассояние на которой можно юзать плавилку в шагах, нужна ли кирка или еще что в руках, куда все это потом кидать, напишу.
Все что ты описал написанно в моем скрипте, просто чел не обратил внимание на пост "Поправил..." лень скопировать скрипт снова наверно
-=Morf=- wrote:во втором скрипте чар не плавит руду, а опять же жмет на нее 2 раза
Переделать - две секунды. В начало вставить
Code: Select all
VAR plavilka = 'сериал плавилки'А строку
Code: Select all
UO.Useobject( 'finditem' ) ; переплавляемЗаменить на
Code: Select all
UO.WaitTargetObject( 'finditem' )
UO.Useobject( plavilka )И всего делов-то. Изучай язык и правь скрипты под себя и свой шард. Не всегда найдутся желающие этим заниматься вместо тебя.