Yoko

Вот скрипт на бс
sub BlacksmithyIM()

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

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 ; Время создания дагера
EndIf

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

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x407B4504) ; Форж
Endif
wait(1000)
wend
end sub
А загвоздка в том что когда стало бс 40,8 у меня появилась новая табличка а именно 'Blacksmithing','Weapons','Swords',----Maces & Hammers вот немогу понять как переделать скрипт чтоб он делал Maces Пробовал вот так 'Blacksmithing','Weapons','Maces','Mace' не получилось , пробовал 'Blacksmithing','Weapons','Maces & Hammers','Mace' не получаетса вот прошу показать как надо сделать?
Заранее благодорен!

UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools'staff')

Заметь чтобы нормаль заработала система таблицы надо при переходе повторить название таблицы ,тоесть

1)'Carpentry','Weapons & Tools' ---- 1 таблица
2)'Weapons & Tools'staff') ----- 2 таблица

Вот что ответил на похожий топик Lord Ruslan Nightmare

UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Ringmail Armor' 'ringmail gloves'")
надо
UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Armor' 'Ringmail Armor' 'Ringmail Armor' 'ringmail gloves'")
или типа того.
Меню, выбор, снова меню, выбор, еще меню, еще выбор. А у тебя только первое меню - и дальше одни выборы.

И еще - не обязательно писать полностью строку. Можно только часть - так зачастую лучше

Тоесть
UO.WaitMenu('Blacksmithing','Weapons','Weaponts','Maces','Maces','Mace')
Но он застревает на таблице Weapons , где наресован ме4(Sword & Blades) и Мейс(Maces & Hammers)- мож R не правильно пешу?? А мож в чем другом ошибся?
Заранее благодарен!

А Мой скриптик то )

_________________
Ultima Online It's LiFe!
Peace All Smokers!

Думаешь ты все правельно ........Пишешь неправельно

Обычно заголовки меню такие же, как последний выбор (т.е.. если ты выбрал Armor, то след. меню будет называться Armor) - но это не правило! Бывают и косяки (например - название с маленькой буквы, или вообще другое название). Надо следить внимательно.

_________________
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...

Ну а как мне правельно напесать??
Заранее благодарен!

#####################################################
### Blacksmitchy Script Vor Iron Metal v. 1.00. ###
### ###
### Copyright & tested by cOoler on DRW Shard. ###
### ###
### Oficial DRW Shards site - http://www.drw.ru ###
###############################################



sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Maces & Hammers','Maces & Hammers','mace') ;Что куем

UO.UseType(0x1BEF) ;Инги айрона

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 ;Время создания дагера
EndIf

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

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4012B5AC) ; Форж
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4004CAE1') ;Cундук с ингами
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub