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

Shadowdancer · Post by **Shadowdancer** » 2008-02-13 21:03:29

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

Nmy · Post by **Nmy** » 2008-02-13 21:43:07

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

Shadowdancer · Post by **Shadowdancer** » 2008-02-13 22:55:23

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

Grin · Post by **Grin** » 2008-02-13 22:57:43

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

Shadowdancer · Post by **Shadowdancer** » 2008-02-13 23:11:27

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

))

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

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

Grin · Post by **Grin** » 2008-02-13 23:19:52

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

Shadowdancer · Post by **Shadowdancer** » 2008-02-13 23:22:17

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

Grin · Post by **Grin** » 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

Shadowdancer · Post by **Shadowdancer** » 2008-02-13 23:56:28

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

Grin · Post by **Grin** » 2008-02-13 23:59:30

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

Shadowdancer · Post by **Shadowdancer** » 2008-02-14 13:12:02

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

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

Destruction · Post by **Destruction** » 2008-02-14 13:15:05

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

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

viewtopic.php?t=805

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

Grin · Post by **Grin** » 2008-02-14 13:18:59

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

Shadowdancer · Post by **Shadowdancer** » 2008-02-14 13:39:40

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

)

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

Grin · Post by **Grin** » 2008-02-14 13:42:23

зачем?

Destruction · Post by **Destruction** » 2008-02-14 14:09:46

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

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

Shadowdancer · Post by **Shadowdancer** » 2008-02-14 14:11:07

Жадина

Shadowdancer · Post by **Shadowdancer** » 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

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

Grin · Post by **Grin** » 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

Shadowdancer · Post by **Shadowdancer** » 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