Плавка руды

[kicker]

нужен скрипт: чар берет по 5 железной руды из мешка который находиться в паке и кладет в пак, плавит 5 руды, если проплавил то берет еще 5 и снова плавит, если не плаванул, то бросает остаток в мешок с железной рудой и т.д
заранее спс

[slonopotam]

Ачем не нравится обычная плавилка?

[kicker]

а у меня на шарде плавит именно по 5 и все тут ) меньше никак

[slonopotam]

Что за шард? Дай ссылку.

[kicker]

uoa.ru там и свои есть но они тупые и руды много за зря тратят

[slonopotam]

Code: Select all

sub smelting()
  repeat
         UO.Findtype('0x19B9', '-1','backpack')     
         If UO.Findcount() == 0 Then
            UO.Findtype('0x19B8', '-1','backpack')
            If UO.Findcount() == 0 Then
               UO.Findtype('0x19BA', '-1','backpack')
               If UO.Findcount() == 0 Then
                  UO.Findtype('0x19B7', '-1','backpack')
                  If UO.Findcount() == 0 Then
                    return
                  Endif
               Endif
            Endif
         Endif
      UO.moveitem('finditem','5','backpack',44,121,0 )
      Wait(100)
      UO.UseType('0x19B9')         
      Wait(100)
  until uo.findcount()== 0
end sub

[slonopotam]

А инжект там есть? Чет они там и вердату требуют свою.

[kicker]

инжект есть и еще как, разрешен как я понял в ЛЮБЫХ проявлениях

[slonopotam]

Зарегился. Проверить плавилку немогу, пока в нуби тауне

[Destruction]

uoa.ru там и свои есть но они тупые и руды много за зря тратят

Хорошие скрипты там, некоторые..

Надо уметь выбирать.

[P]

#####################################################################
; 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( 1200 )
UO.Useobject( 'finditem' ) ; переплавляем
Wait( 1200 )
If UO.Weight > MaxVes Then
; Максимальный вес пака превышен - разгружаемся
UO.Findtype( Ing1, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 1200 )
Endif
UO.Findtype( Ing2, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 1200 )
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

[kicker]

Зарегился. Проверить плавилку немогу, пока в нуби тауне

поверь оттуда даже за 3 дня УЖАСНО активной игры не выйдешь

[slonopotam]

Как я понял там скилкап 800 надо чтоб выдти. А это какраз все боевые прокачать

[kicker]

эх не лечишься ты, там чтобы выйти требуеться пройти ДО**** квестов жестоких

[slonopotam]

Ппц я это осознал. Да еще за орка начал. Жестокий шардик такой, но мне понравился.

[tetris]

Code: Select all

sub pereplavka()

repeat
Wait(200)

UO.UseObject(0x418A17D3')#использую сундук который рядом с кузнецей(открываю его)
wait(200)

         UO.Findtype('0x19B9', '-1','0x418A17D3')     
         If UO.Findcount() == 0 Then
            UO.Findtype('0x19B8', '-1','0x418A17D3')
            If UO.Findcount() == 0 Then
               UO.Findtype('0x19BA', '-1','0x418A17D3')
               If UO.Findcount() == 0 Then
                  UO.Findtype('0x19B7', '-1','0x418A17D3')
                  If UO.Findcount() == 0 Then
                    return
                  Endif
               Endif
            Endif
         Endif
   
      UO.Set('quiet','0')# 
      uo.print('find->'+'finditem' ) #написали
      UO.moveitem('finditem','11','backpack',44,121,0 )
      Wait(1000)
      UO.UseType('0x19B9')         
      Wait(1100)
  until uo.findcount()== 0

UO.Print('end!')

end sub

[tetris]

Code: Select all

sub pereplavka()


repeat



#НАЧАЛО Максимальный вес
if uo.weight > 410 then         

repeat
#ту что осталось руду в сундук назад
UO.Findtype('0x19B9', '-1', 'backpack')  
UO.moveitem('finditem',-1,'0x418A17D2',44,121,0 )
Wait(50)
until uo.findcount()== 0

Wait(50)
#игноты в сундук
UO.Findtype('0x1BEF', '-1', 'backpack')  
UO.moveitem('finditem',-1,'0x418A17D2',44,121,0 )

endif
#КОНЕЦ Максимальный вес


Wait(50)




UO.UseObject('0x418A17D2')#использую сундук который рядом с кузнецей(открываю его)


         UO.Findtype('0x19B9', '-1','0x418A17D2')     
         If UO.Findcount() == 0 Then
            UO.Findtype('0x19B8', '-1','0x418A17D2')
            If UO.Findcount() == 0 Then
               UO.Findtype('0x19BA', '-1','0x418A17D2')
               If UO.Findcount() == 0 Then
                  UO.Findtype('0x19B7', '-1','0x418A17D2')
                  If UO.Findcount() == 0 Then
                    return
                  Endif
               Endif
            Endif
         Endif
   
      UO.Set('quiet','0')# 
      uo.print('find->'+'finditem' ) #написали
      UO.moveitem('finditem','5','backpack',44,121,0 )
      Wait(100)
      UO.UseType('0x19B9')         
      Wait(100)



 until uo.findcount()== 0



UO.Print('end!')

end sub

[Nearga]

*чутку оффтопа для разбавления большого количества кода*

Хм.. орки? квесты? Звучит заманчиво, по сравнению с ДВРом

ЗЫ: блин, еще и слоупок-мод включился

[Mirage]

Вот вы апатели...
То что было давно развалилось.
То что осталось не содержит того что было.
Топикстартер нуб. НТ пробегалось за 2 дня игры по несколько часов. Скрипты для раскачки все присутствовали. Руда всю жизнь плавилась по 2.