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

Блэк смит
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3531		 Page 1 of 1
Author:  Park [ 2005-03-28 15:33:30 ]
Post subject:  Блэк смит
Народ...нужна ваша помощь! Я в инже полный ноль! Сам я написать не могу ничего...Надеюсь на вашу помощь
Я перепробовал макросы которые нашёл на этом форуме ..всё не получается никак! :oops:
Если не трудно киньте макрик с объяснения ми что на что править
Мне нужно что бы чар брал с пола инготы айрона, ковал щиток, плавил его и, ясное дело, повторял действия!
Надеюсь на помощь
Author:  Park [ 2005-03-29 09:18:26 ]
Post subject: 
Вот вродебы настроил всё! Но вот только когда он шит кладет в бак пак то почему то не плавит его ! Пишет You cant smelt THIS! Для знающих дело минутное Ё! Подскажите плз

sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Shields','Shields','bronze shield')
UO.UseType(0x1BEF) ;
while NOT UO.InJournal(" bronze shield") AND NOT UO.InJournal("Baaa")
wait(500)
wend

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;
EndIf

UO.FindType('0x1BEF',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40038398) ;
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4042A605') ;
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
Author:  Sfagnum [ 2005-03-29 09:40:55 ]
Post subject: 
играешь на ДРВ?
Author:  Askaneli [ 2005-03-29 10:02:00 ]
Post subject: 
Без макроса сам можешь щит расплавить ?
Author:  Park [ 2005-03-29 10:20:20 ]
Post subject: 
Играю я на еп...Руками то расплавить могу...Больше того могу и сковать руками и инготы виз сундука взять! Но не удобно у компа ночью сидеть :?
Author:  Sfagnum [ 2005-03-29 11:21:15 ]
Post subject: 
Park wrote:
Играю я на еп...Руками то расплавить могу...Больше того могу и сковать руками и инготы виз сундука взять! Но не удобно у компа ночью сидеть :?
тут
Code:
UO.UseObject(0x40038398)
у тебя правильный id форжи прописан?

кстате id лучше заключать в кавычки.
Author:  Park [ 2005-03-29 12:02:49 ]
Post subject: 
АЙди правильный ...он у мненя находит её токо Но таргает видимо не на щиток! В бак паке токо инготы и шит! Может сделать чтобы он брал 10 инготов ковал из них шит и в сумке оставался бы только шит
Author:  Sfagnum [ 2005-03-29 14:25:26 ]
Post subject: 
тогда смотрим нескольким строками выше...
Code:
UO.FindType('0x1BEF',-1,'backpack') 
wait(500)
'0x1BEF' - это насколько я понимаю не тип щита :roll:
замени на тип щитка.
Author:  Sfagnum [ 2005-03-29 14:27:37 ]
Post subject: 
и вообще данный момент переписал бы ты следующим образом:
Code:
UO.FindType('0x1BEF',-1,'backpack') ;ток не забудь тип сменить ;)
wait(500) 

If UO.FindCount() > 0 then 
UO.WaitTargetObject('finditem') 
UO.UseObject('0x40038398') ; 
Endif
Author:  Park [ 2005-03-29 15:20:53 ]
Post subject: 
Да!!!!!! Заработало .... Блин огромное тебе спасибо
Author:  Park [ 2005-04-03 19:57:42 ]
Post subject: 
sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Shields','Shields','bronze shield') ;Что куем
UO.UseType(0x1BEF) ;Инги айрона

while NOT UO.InJournal("Вы успешно сделали bronze shield") AND NOT UO.InJournal("Ваша попытка провалилась...")
wait(500)
wend

If UO.InJournal("Ваша попытка провалилась...") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf

UO.FindType('0x1B72',-1,'backpack') ;ток не забудь тип сменить ;)
wait(500)

If UO.FindCount() > 0 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40038398') ;
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4042A605') ;Cундук с ингами
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
Author:  Park [ 2005-04-03 19:58:48 ]
Post subject: 
Еще один вопрос.....,По чему он иногда просто перестаёт кувать....?? Подскажите плиз
Author:  Sfagnum [ 2005-04-04 07:58:18 ]
Post subject: 
сколько ингов надо на один щит?
Author:  Park [ 2005-04-04 15:36:53 ]
Post subject: 
НА щит нужно 10 шук ингов
Author:  Park [ 2005-04-05 15:27:08 ]
Post subject: 
UpЧхи.....Помогите ньюбы в инже......
Author:  Park [ 2005-04-05 15:27:58 ]
Post subject: 
:oops: БЛин хотел сказать не ньюбы а ньюбу в инже :oops: :oops: :oops:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/