Обьяснте в чем ошибся!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

Обьяснте в чем ошибся!

Post by AD »

Вот скрипт на бс
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' не получаетса вот прошу показать как надо сделать?
Заранее благодорен!
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

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'")
или типа того.
Меню, выбор, снова меню, выбор, еще меню, еще выбор. А у тебя только первое меню - и дальше одни выборы.

И еще - не обязательно писать полностью строку. Можно только часть - так зачастую лучше
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

!!

Post by AD »

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

Re: !!

Post by M0ke »

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

А Мой скриптик то )
Ultima Online It's LiFe!
Peace All Smokers!
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

Думаешь ты все правельно ........Пишешь неправельно
Lord Ruslan Nightmare
Expert!
Posts: 359
Joined: 2004-04-25 11:11:07
Contact:

Post by Lord Ruslan Nightmare »

Обычно заголовки меню такие же, как последний выбор (т.е.. если ты выбрал Armor, то след. меню будет называться Armor) - но это не правило! Бывают и косяки (например - название с маленькой буквы, или вообще другое название). Надо следить внимательно.
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

!!

Post by AD »

Ну а как мне правельно напесать??
Заранее благодарен!
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

#####################################################
### 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
Post Reply