Yoko

All sides of Injection
It is currently 2024-03-29 07:53:29

All times are UTC+02:00




Post new topic  Reply to topic  [ 19 posts ] 
Author Message
 Post subject: Плавка руды
PostPosted: 2006-09-02 23:12:09 
Offline
User avatar

Joined: 2006-05-12 15:02:34
Posts: 56
нужен скрипт: чар берет по 5 железной руды из мешка который находиться в паке и кладет в пак, плавит 5 руды, если проплавил то берет еще 5 и снова плавит, если не плаванул, то бросает остаток в мешок с железной рудой и т.д
заранее спс


Top
   
 Post subject:
PostPosted: 2006-09-03 00:37:21 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
Ачем не нравится обычная плавилка?


Top
   
 Post subject:
PostPosted: 2006-09-03 00:52:32 
Offline
User avatar

Joined: 2006-05-12 15:02:34
Posts: 56
а у меня на шарде плавит именно по 5 и все тут ) меньше никак


Top
   
 Post subject:
PostPosted: 2006-09-03 00:55:49 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
Что за шард? Дай ссылку.


Top
   
 Post subject:
PostPosted: 2006-09-03 01:05:06 
Offline
User avatar

Joined: 2006-05-12 15:02:34
Posts: 56
uoa.ru там и свои есть но они тупые и руды много за зря тратят


Top
   
 Post subject:
PostPosted: 2006-09-03 01:09:17 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
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


Top
   
 Post subject:
PostPosted: 2006-09-03 01:15:27 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
А инжект там есть? Чет они там и вердату требуют свою.


Top
   
 Post subject:
PostPosted: 2006-09-03 01:17:55 
Offline
User avatar

Joined: 2006-05-12 15:02:34
Posts: 56
инжект есть и еще как, разрешен как я понял в ЛЮБЫХ проявлениях


Top
   
 Post subject:
PostPosted: 2006-09-03 03:19:37 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
Зарегился. Проверить плавилку немогу, пока в нуби тауне :lol:


Top
   
 Post subject:
PostPosted: 2006-09-03 10:26:08 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
kicker wrote:
uoa.ru там и свои есть но они тупые и руды много за зря тратят

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

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


Top
   
 Post subject:
PostPosted: 2006-09-03 14:48:00 
Offline
User avatar

Joined: 2006-02-20 14:38:22
Posts: 54
#####################################################################
; 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


Top
   
 Post subject:
PostPosted: 2006-09-03 15:48:24 
Offline
User avatar

Joined: 2006-05-12 15:02:34
Posts: 56
slonopotam wrote:
Зарегился. Проверить плавилку немогу, пока в нуби тауне :lol:

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


Top
   
 Post subject:
PostPosted: 2006-09-03 16:36:37 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
Как я понял там скилкап 800 надо чтоб выдти. А это какраз все боевые прокачать :lol:


Top
   
 Post subject:
PostPosted: 2006-09-03 16:52:01 
Offline
User avatar

Joined: 2006-05-12 15:02:34
Posts: 56
эх не лечишься ты, там чтобы выйти требуеться пройти ДО**** квестов жестоких


Top
   
 Post subject:
PostPosted: 2006-09-04 04:57:47 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
Ппц я это осознал. Да еще за орка начал. Жестокий шардик такой, но мне понравился.


Top
   
PostPosted: 2012-03-02 23:15:18 
Offline

Joined: 2012-02-28 17:29:22
Posts: 4
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


Top
   
PostPosted: 2012-03-02 23:54:29 
Offline

Joined: 2012-02-28 17:29:22
Posts: 4
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


Top
   
PostPosted: 2012-03-03 00:52:07 
Offline

Joined: 2012-02-10 15:17:10
Posts: 53
*чутку оффтопа для разбавления большого количества кода*

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

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


Top
   
PostPosted: 2012-03-03 07:50:05 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Вот вы апатели...
То что было давно развалилось.
То что осталось не содержит того что было.
Топикстартер нуб. НТ пробегалось за 2 дня игры по несколько часов. Скрипты для раскачки все присутствовали. Руда всю жизнь плавилась по 2. :mrgreen:

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 19 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 18 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited