Page 1 of 1
BS-поправте
Posted: 2005-06-17 11:09:46
by Red dragon
Короче скрипт не рабоает он Юзает молоток но таргет некак не ткнит на ингы айрона. плиз поправте его
Code: Select all
sub BlacksmithyIM()
var Exit=0, LastTimer
uo.Print('Âûáåðè Ñóíäóê: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
uo.Print('Âûáåðè Ïîìîéêó: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
while Exit<>1
uo.DeleteJournal()
uo.FindType('0x0F51','0x0000','backpack')
if uo.GetQuantity('finditem')>0 then
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('all','finditem')
wait(1000)
uo.UnSetReceivingContainer()
end if
uo.FindType('0x1BEF ',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF ','0x0000','Chest')
wait(1000)
uo.Grab('300','finditem')
wait(1000)
end if
LastTimer=uo.Timer()
uo.DeleteJournal()
uo.WaitMenu ('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
uo.UseType('0x13E3')
wait(12000)
wend
end sub
Posted: 2005-06-17 11:26:04
by Arsuri
Шард какой? На ДРВ нуно юзать инготы, при этом молоток должен быть в руках.
Posted: 2005-06-17 11:52:47
by Tergos
ИМХО: вместо waitmenu в цикле - automenu в начале, а потом перед юзтайпом молотка - waittargettype('инги').
Может я и не прав - поправьте меня. сам меньше недели как увидел инжект
Posted: 2005-06-17 15:20:33
by Red dragon
Arsuri wrote:Шард какой? На ДРВ нуно юзать инготы, при этом молоток должен быть в руках.
Да с ДРВ..моно и юзат молот на инге.......
---------------------
некто не знает в чём проб?
Posted: 2005-06-17 16:47:18
by Sfagnum
Red dragon wrote:Да с ДРВ..моно и юзат молот на инге.......
зачем тебе лишнии проблемы?
я выкладывал в General поищи... там ковка из цвет мета вроде была
Posted: 2005-06-17 21:20:49
by Red dragon
Sfagnum wrote:Red dragon wrote:Да с ДРВ..моно и юзат молот на инге.......
зачем тебе лишнии проблемы?
я выкладывал в General поищи... там ковка из цвет мета вроде была
Мне нужно только из айрона......
И те скрипты у меня не работают ..
Posted: 2005-06-17 21:30:34
by flake
Проверь все типы, всё ли правильно?
Posted: 2005-06-18 20:38:34
by kuviCk
flake wrote:Проверь все типы, всё ли правильно?
хИ есть 2 вида молотков кстати )) Большой и маленький )) здесь нада юзать маленький )
Re: BS-поправте
Posted: 2005-06-19 06:15:03
by Solaire
Code: Select all
uo.WaitMenu ('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
uo.WaitTargetType('0x1BEF')
uo.UseType('0x13E3')
wait(12000)
wend
end sub
Posted: 2005-06-20 20:30:19
by casper46
Вот короче нормал рабочий скрипт пропиши просто ID сундука с ингами и форжу:)
Code: Select all
sub BS()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4005944E') ;serial sunduka s iron
UO.Grab('300','finditem')
wait(300)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
UO.UseType(0x1BEF) ; iron ings
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf
UO.FindType('0x0F51',-1,'backpack') ; dagger
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x403128AD) ;forge
Endif
wait(1000)
wend
end sub
[ТЕГИ! I'm]