Yoko

Плиз люди дайте скрипт что б плавил по 5 ор айрона. В поисек ничё не нашёл.

Разумеется, это только на Антересе додумались плавить по 5.

угадал :D ну так дашь или нет?

У тебя претензии к Антаресу? Чем вызван сарказм?

# прописываешь свой ID контейнера рядом с плавилкой
sub main() 
VAR Container = '0x40FB5FFF' ;ID контейнера 
VAR Ore='0x19B9' ;тип руды 
VAR Ing='0x1BEF' ;тип ингов 
VAR k=0 

UO.useobject(Container)
repeat    
     UO.FindType( Ruda, -1, Container) 
     UO.Grab(str(5),'finditem')
     wait(500)
     if uo.count(Ore) >= 5 then
        UO.UseType(Ore)
        wait(500)
        UO.FindType( Ing, -1, -1 )
        UO.MoveItem( 'finditem' , 0, Container )
     else
         k=k+1
         if k > 5 then
            uo.exec('terminate all')
         endif
     endif
     wait(1000)
until uo.dead()
end sub

спасибо большое . То слово не вытянишь , то столько информации :D

Рева, он хороший просто его надо нормально попросить

Ревенант , проверь ещё разок свой скрипт , в строке 10 , и ещё он плавит не по 5 ор а по всей куче.

Угу. Для него приходится все скрипты переделывать. Это же надо было так сферу покалечить...

Агрс, никто её не калечил, просто на сколько мне известно только Антарес и ЛоД сидит на 55 R 4.0.2, причём у нас хоть более менее настроенна а вот то что с ней зделали на ЛоДе есть калечение сферы.

1) Покалечили в кавычках.
2) Я про скрипты, а не про ядро.

блин , развели тут приперательства....лучьшеб мне помогли :|

Неплохая мысль. Ща поглядим чего тут у тебя.

Хмм... Дык он и должен всю кучу плавить.

да вот это и плохо...мне по 5 нада , плиз посмори , как исправить :cry:

Ламеры заеб... в ньюби шахте... **** гребаные ***. Не дают нормально потестить скрипт *** их в рот.

;-------------------------------------------------------------------------------
; Задержки
Var LoopTime = 100
Var LootTime = 600
Var UseTime  = 500
;-------------------------------------------------------------------------------
; Типы кучек руды
Var TOreType4 = '0x19B9'; 4 или более
Var TOreType3 = '0x19B8'; 3
Var TOreType2 = '0x19BA'; 2
Var TOreType1 = '0x19B7'; 1

;-------------------------------------------------------------------------------
sub main()
  SmOre5('0x0000')
end sub

;-------------------------------------------------------------------------------
SUB SmOre5(Color)
  Repeat
    UO.IgnoreReset()
    UO.FindType(TOreType4,Color,'backpack')
    If UO.FindCount()==0 Then
      Return
    Else
      If UO.GetQuantity('finditem')<5 Then
        Return
      Else
        UO.MoveItem('finditem','5','backpack','20','20','0')
        CheckLag()
        FindAndSmeltOre5(Color)
      EndIf
    EndIf
  Until False
END SUB

;-------------------------------------------------------------------------------
SUB FindAndSmeltOre5(Color)
  UO.IgnoreReset()
  Repeat
    UO.FindType(TOreType4,Color,'backpack')
    If UO.FindCount()==0 Then
      Return
    Else
      If UO.GetQuantity('finditem')==5 Then
        UO.UseObject('finditem')
        Wait(UseTime)
      Else
        UO.Ignore('finditem')
      EndIf
    EndIf
  Until False
END SUB

;-------------------------------------------------------------------------------
SUB CheckLag() ; 412.18
; Проверка на лаги  
  DeleteJournal("ackpack") 
  UO.Click('backpack') 
  Repeat 
    Wait(LoopTime) 
  Until UO.InJournal("ackpack") 
END SUB

;-------------------------------------------------------------------------------
SUB DeleteJournal(MsgText) ; 411.21
; Очистка в журнале всех сообщений, содержащих MsgText
  Var MsgNumb
  Repeat 
    MsgNumb=UO.InJournal(MsgText)
    If MsgNumb<>0 Then
      UO.SetJournalLine(MsgNumb-1, '')
    EndIf
  Until Not UO.InJournal(MsgText)
END SUB

ух ты , пасибо , всё пашит...а ты чё тоже на антаресе играешь?

Да так... Когда все остальное лежит.

я так и думал :)