Yoko

Народ...нужна ваша помощь! Я в инже полный ноль! Сам я написать не могу ничего...Надеюсь на вашу помощь
Я перепробовал макросы которые нашёл на этом форуме ..всё не получается никак!
Если не трудно киньте макрик с объяснения ми что на что править
Мне нужно что бы чар брал с пола инготы айрона, ковал щиток, плавил его и, ясное дело, повторял действия!
Надеюсь на помощь

Вот вродебы настроил всё! Но вот только когда он шит кладет в бак пак то почему то не плавит его ! Пишет 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

играешь на ДРВ?

Без макроса сам можешь щит расплавить ?

_________________
Сделал дело - флуди смело !!!

Играю я на еп...Руками то расплавить могу...Больше того могу и сковать руками и инготы виз сундука взять! Но не удобно у компа ночью сидеть

тут

UO.UseObject(0x40038398)

у тебя правильный id форжи прописан?

кстате id лучше заключать в кавычки.

АЙди правильный ...он у мненя находит её токо Но таргает видимо не на щиток! В бак паке токо инготы и шит! Может сделать чтобы он брал 10 инготов ковал из них шит и в сумке оставался бы только шит

тогда смотрим нескольким строками выше...

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

'0x1BEF' - это насколько я понимаю не тип щита
замени на тип щитка.

и вообще данный момент переписал бы ты следующим образом:

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

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

Да!!!!!! Заработало .... Блин огромное тебе спасибо

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

Еще один вопрос.....,По чему он иногда просто перестаёт кувать....?? Подскажите плиз

сколько ингов надо на один щит?

НА щит нужно 10 шук ингов

UpЧхи.....Помогите ньюбы в инже......

БЛин хотел сказать не ньюбы а ньюбу в инже