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

Плавка руды
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8697		 Page 1 of 1
Author:  kicker [ 2006-09-02 23:12:09 ]
Post subject:  Плавка руды
нужен скрипт: чар берет по 5 железной руды из мешка который находиться в паке и кладет в пак, плавит 5 руды, если проплавил то берет еще 5 и снова плавит, если не плаванул, то бросает остаток в мешок с железной рудой и т.д
заранее спс
Author:  slonopotam [ 2006-09-03 00:37:21 ]
Post subject: 
Ачем не нравится обычная плавилка?
Author:  kicker [ 2006-09-03 00:52:32 ]
Post subject: 
а у меня на шарде плавит именно по 5 и все тут ) меньше никак
Author:  slonopotam [ 2006-09-03 00:55:49 ]
Post subject: 
Что за шард? Дай ссылку.
Author:  kicker [ 2006-09-03 01:05:06 ]
Post subject: 
uoa.ru там и свои есть но они тупые и руды много за зря тратят
Author:  slonopotam [ 2006-09-03 01:09:17 ]
Post subject: 
Code:
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
Author:  slonopotam [ 2006-09-03 01:15:27 ]
Post subject: 
А инжект там есть? Чет они там и вердату требуют свою.
Author:  kicker [ 2006-09-03 01:17:55 ]
Post subject: 
инжект есть и еще как, разрешен как я понял в ЛЮБЫХ проявлениях
Author:  slonopotam [ 2006-09-03 03:19:37 ]
Post subject: 
Зарегился. Проверить плавилку немогу, пока в нуби тауне :lol:
Author:  Destruction [ 2006-09-03 10:26:08 ]
Post subject: 
kicker wrote:
uoa.ru там и свои есть но они тупые и руды много за зря тратят

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

Надо уметь выбирать.
Author:  P [ 2006-09-03 14:48:00 ]
Post subject: 
#####################################################################
; 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
Author:  kicker [ 2006-09-03 15:48:24 ]
Post subject: 
slonopotam wrote:
Зарегился. Проверить плавилку немогу, пока в нуби тауне :lol:

поверь оттуда даже за 3 дня УЖАСНО активной игры не выйдешь
Author:  slonopotam [ 2006-09-03 16:36:37 ]
Post subject: 
Как я понял там скилкап 800 надо чтоб выдти. А это какраз все боевые прокачать :lol:
Author:  kicker [ 2006-09-03 16:52:01 ]
Post subject: 
эх не лечишься ты, там чтобы выйти требуеться пройти ДО**** квестов жестоких
Author:  slonopotam [ 2006-09-04 04:57:47 ]
Post subject: 
Ппц я это осознал. Да еще за орка начал. Жестокий шардик такой, но мне понравился.
Author:  tetris [ 2012-03-02 23:15:18 ]
Post subject:  Re: Плавка руды
Code:
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
Author:  tetris [ 2012-03-02 23:54:29 ]
Post subject:  Re: Плавка руды
Code:
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
Author:  Nearga [ 2012-03-03 00:52:07 ]
Post subject:  Re: Плавка руды
*чутку оффтопа для разбавления большого количества кода*

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

ЗЫ: блин, еще и слоупок-мод включился :mrgreen:
Author:  Mirage [ 2012-03-03 07:50:05 ]
Post subject:  Re: Плавка руды
Вот вы апатели...
То что было давно развалилось.
То что осталось не содержит того что было.
Топикстартер нуб. НТ пробегалось за 2 дня игры по несколько часов. Скрипты для раскачки все присутствовали. Руда всю жизнь плавилась по 2. :mrgreen:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/