Yoko

Posted: **2008-02-13 21:03:29**

Кому не сложно напишите плиз простенькую плавку что бы плавил кучку руды там где 10 и больше, ( всю оставшуюсю плавленую и нет кидал в сундук.)

Posted: **2008-02-13 21:43:07**

Поищи в поиске "smelting" и переделай иго.

Posted: **2008-02-13 22:55:23**

заепался уже переделывать тут мрачные плавки

Posted: **2008-02-13 22:57:43**

ну чего сложного то?
про бегаешься по всей руде... смотришь ее колво
если больше то двой ной клик и ждешь пока куча исчезнет (можно проверять по кординате предмета)

Posted: **2008-02-13 23:11:27**

дружище эт несложно для тех кто понимает, я разбераюсь чуть но написать немогу. Нельзя быть во всех делах Грандмастером

))

черкни пожалуйста! можно прям в этом топике

http://forum.yoko.com.ua/viewtopic.php?t=13242

Posted: **2008-02-13 23:19:52**

как увас плавка происходит?

Posted: **2008-02-13 23:22:17**

Просто стоишь возле форжи 2 раза на руду но нужно что бы не меньше 10 руды было!

Posted: **2008-02-13 23:31:36**

Code: Select all

sub SmeltOre()
   
   uo.IgnoreReset()
   uo.FindType('')
   while uo.FindCount()
      if uo.GetQuantity('finditem') > 9 then
         uo.UseObject('finditem')
         while uo.GetX('finditem')
            wait(100)
         wend
      else
         uo.Ignore('finditem')
      end if
      uo.FindType('')
   wend

end sub

Posted: **2008-02-13 23:56:28**

пасиб завтра зделаю тест

Posted: **2008-02-13 23:59:30**

не за будь там типы прописать...
+ скрипт не у читывает если ты сфейлишь переплавку

Posted: **2008-02-14 13:12:02**

а что это за строчка ?

sub SmeltIron()
var tmp,i;
uo.IgnoreReset()
uo.FindType('')

Posted: **2008-02-14 13:15:05**

Shadowdancer wrote:а что это за строчка ?

sub SmeltIron()
var tmp,i;
uo.IgnoreReset()
uo.FindType('')

viewtopic.php?t=805

Хотя бы ФАК прочитать можно было :!:

Posted: **2008-02-14 13:18:59**

дурдом какой то;)
Блин... Дест давай какие нибудь умные вопросы уже задавай...

Posted: **2008-02-14 13:39:40**

а можно попроше обьяснить ?

)

пасиб уже сам разобрался

Posted: **2008-02-14 13:42:23**

зачем?

Posted: **2008-02-14 14:09:46**

Grin wrote:дурдом какой то;)
Блин... Дест давай какие нибудь умные вопросы уже задавай...

Легко. Сек, найду темку

Posted: **2008-02-14 14:11:07**

Жадина

Posted: **2008-02-14 23:19:29**

Grin wrote:

Code: Select all

sub SmeltOre()
   
   uo.IgnoreReset()
   uo.FindType('')
   while uo.FindCount()
      if uo.GetQuantity('finditem') > 9 then
         uo.UseObject('finditem')
         while uo.GetX('finditem')
            wait(100)
         wend
      else
         uo.Ignore('finditem')
      end if
      uo.FindType('')
   wend

end sub

А можно зделать если физл то еще раз плавит!?

Posted: **2008-02-14 23:56:25**

Люди! будте разумны...

Code: Select all

sub SmeltOre()
  
   var orecount = 0
   
   uo.IgnoreReset()
   uo.FindType('')
   while uo.FindCount()
      orecount = uo.GetQuantity('finditem')
      while orecount > 9
         uo.UseObject('finditem')
         while orecount == uo.GetQuantity('finditem')
            wait(100)
         wend
         orecount = uo.GetQuantity('finditem')
      wend
      if orecount then
         uo.Ignore('finditem')
      end if
      uo.FindType('')
   wend

end sub

Posted: **2008-02-15 14:20:04**

вот у меня скрипт, почему нехочет енд саб ставить ? пишет ошибка ТМР
а без енда он плавит бесконечно!

Code: Select all

sub SmeltIron()
var tmp,i;
  
  var orecount = 0 
    
   uo.IgnoreReset() 
   uo.FindType('0x19B9') 
   while uo.FindCount() 
      orecount = uo.GetQuantity('finditem') 
      while orecount > 9 
         uo.UseObject('finditem') 
         while orecount == uo.GetQuantity('finditem') 
            wait(100) 
         wend 
         orecount = uo.GetQuantity('finditem') 
      wend 
      if orecount then 
         uo.Ignore('finditem') 
      end if 
      uo.FindType('0x19B9') 
wend

Yoko

Плавка не меньше 10

Плавка не меньше 10