Yoko
http://forum.yoko.com.ua/

BS-поправте
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4245		 Page 1 of 1
Author:  Red dragon [ 2005-06-17 11:09:46 ]
Post subject:  BS-поправте
Короче скрипт не рабоает он Юзает молоток но таргет некак не ткнит на ингы айрона. плиз поправте его
Code:
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
Author:  Arsuri [ 2005-06-17 11:26:04 ]
Post subject: 
Шард какой? На ДРВ нуно юзать инготы, при этом молоток должен быть в руках.
Author:  Tergos [ 2005-06-17 11:52:47 ]
Post subject: 
ИМХО: вместо waitmenu в цикле - automenu в начале, а потом перед юзтайпом молотка - waittargettype('инги').

Может я и не прав - поправьте меня. сам меньше недели как увидел инжект :)
Author:  Red dragon [ 2005-06-17 15:20:33 ]
Post subject: 
Arsuri wrote:
Шард какой? На ДРВ нуно юзать инготы, при этом молоток должен быть в руках.

Да с ДРВ..моно и юзат молот на инге.......
---------------------
некто не знает в чём проб?
Author:  Sfagnum [ 2005-06-17 16:47:18 ]
Post subject: 
Red dragon wrote:
Да с ДРВ..моно и юзат молот на инге.......
зачем тебе лишнии проблемы?
я выкладывал в General поищи... там ковка из цвет мета вроде была :roll:
Author:  Red dragon [ 2005-06-17 21:20:49 ]
Post subject: 
Sfagnum wrote:
Red dragon wrote:
Да с ДРВ..моно и юзат молот на инге.......
зачем тебе лишнии проблемы?
я выкладывал в General поищи... там ковка из цвет мета вроде была :roll:

Мне нужно только из айрона......
И те скрипты у меня не работают ..
Author:  flake [ 2005-06-17 21:30:34 ]
Post subject: 
Проверь все типы, всё ли правильно?
Author:  kuviCk [ 2005-06-18 20:38:34 ]
Post subject: 
flake wrote:
Проверь все типы, всё ли правильно?

хИ есть 2 вида молотков кстати )) Большой и маленький )) здесь нада юзать маленький )
Author:  Solaire [ 2005-06-19 06:15:03 ]
Post subject:  Re: BS-поправте
Code:
uo.WaitMenu ('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 
uo.WaitTargetType('0x1BEF')
uo.UseType('0x13E3') 
wait(12000) 
wend 
end sub
Author:  casper46 [ 2005-06-20 20:30:19 ]
Post subject: 
Вот короче нормал рабочий скрипт пропиши просто ID сундука с ингами и форжу:) 8) 8) 8)
Code:
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]
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/