Плавка ирона
Moderators: Murderator+, Murderator
Плавка ирона
Плиз люди дайте скрипт что б плавил по 5 ор айрона. В поисек ничё не нашёл.
У тебя претензии к Антаресу? Чем вызван сарказм?AGRS wrote:Разумеется, это только на Антересе додумались плавить по 5.
Code: Select all
# прописываешь свой 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
AGRS wrote:Угу. Для него приходится все скрипты переделывать. Это же надо было так сферу покалечить...
Агрс, никто её не калечил, просто на сколько мне известно только Антарес и ЛоД сидит на 55 R 4.0.2, причём у нас хоть более менее настроенна а вот то что с ней зделали на ЛоДе есть калечение сферы.
Ламеры заеб... в ньюби шахте... **** гребаные ***. Не дают нормально потестить скрипт *** их в рот.
Code: Select all
;-------------------------------------------------------------------------------
; Задержки
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