Плавка ирона
Posted: 2004-12-17 20:08:03
Плиз люди дайте скрипт что б плавил по 5 ор айрона. В поисек ничё не нашёл.
Page 1 of 1
Posted: 2004-12-17 20:21:27
Разумеется, это только на Антересе додумались плавить по 5.
Posted: 2004-12-17 20:23:18
угадал :D ну так дашь или нет?
Posted: 2004-12-17 23:02:37
У тебя претензии к Антаресу? Чем вызван сарказм?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
Posted: 2004-12-17 23:36:37
спасибо большое . То слово не вытянишь , то столько информации :D
Posted: 2004-12-17 23:46:21
Шмак wrote:спасибо большое . То слово не вытянишь , то столько информации
Рева, он хороший просто его надо нормально попросить
Posted: 2004-12-18 00:58:18
Ревенант , проверь ещё разок свой скрипт , в строке 10 , и ещё он плавит не по 5 ор а по всей куче.
Posted: 2004-12-18 07:00:37
Revenant wrote:У тебя претензии к Антаресу? Чем вызван сарказм?
Угу. Для него приходится все скрипты переделывать. Это же надо было так сферу покалечить...
Posted: 2004-12-18 07:03:59
AGRS wrote:Угу. Для него приходится все скрипты переделывать. Это же надо было так сферу покалечить...
Агрс, никто её не калечил, просто на сколько мне известно только Антарес и ЛоД сидит на 55 R 4.0.2, причём у нас хоть более менее настроенна а вот то что с ней зделали на ЛоДе есть калечение сферы.
Posted: 2004-12-18 13:40:14
1) Покалечили в кавычках.
2) Я про скрипты, а не про ядро.
2) Я про скрипты, а не про ядро.
Posted: 2004-12-18 13:41:52
блин , развели тут приперательства....лучьшеб мне помогли :|
Posted: 2004-12-18 13:44:21
Шмак wrote:блин , развели тут приперательства....лучьшеб мне помогли
Неплохая мысль. Ща поглядим чего тут у тебя.
Posted: 2004-12-18 13:45:32
Хмм... Дык он и должен всю кучу плавить.
Posted: 2004-12-18 13:59:58
да вот это и плохо...мне по 5 нада , плиз посмори , как исправить :cry:
Posted: 2004-12-18 14:31:47
Ламеры заеб... в ньюби шахте... **** гребаные ***. Не дают нормально потестить скрипт *** их в рот.
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
Posted: 2004-12-18 14:58:28
ух ты , пасибо , всё пашит...а ты чё тоже на антаресе играешь?
Posted: 2004-12-18 15:14:19
Шмак wrote:ух ты , пасибо , всё пашит...а ты чё тоже на антаресе играешь?
Да так... Когда все остальное лежит.
Posted: 2004-12-18 15:56:49
я так и думал :)