Блэк смит

Park · Post by **Park** » 2005-03-28 15:33:30

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

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

Park · Post by **Park** » 2005-03-29 09:18:26

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

Sfagnum · Post by **Sfagnum** » 2005-03-29 09:40:55

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

Askaneli · Post by **Askaneli** » 2005-03-29 10:02:00

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

Park · Post by **Park** » 2005-03-29 10:20:20

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

Sfagnum · Post by **Sfagnum** » 2005-03-29 11:21:15

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

тут

Code: Select all

UO.UseObject(0x40038398)

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

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

Park · Post by **Park** » 2005-03-29 12:02:49

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

Sfagnum · Post by **Sfagnum** » 2005-03-29 14:25:26

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

Code: Select all

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

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

замени на тип щитка.

Sfagnum · Post by **Sfagnum** » 2005-03-29 14:27:37

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

Code: Select all

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

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

Park · Post by **Park** » 2005-03-29 15:20:53

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

Park · Post by **Park** » 2005-04-03 19:57:42

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

Park · Post by **Park** » 2005-04-03 19:58:48

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

Sfagnum · Post by **Sfagnum** » 2005-04-04 07:58:18

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

Park · Post by **Park** » 2005-04-04 15:36:53

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

Park · Post by **Park** » 2005-04-05 15:27:08

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

Park · Post by **Park** » 2005-04-05 15:27:58

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