Вот скрипт на бс
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' не получаетса вот прошу показать как надо сделать?
Заранее благодорен!
Обьяснте в чем ошибся!
Moderators: Murderator+, Murderator
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'")
или типа того.
Меню, выбор, снова меню, выбор, еще меню, еще выбор. А у тебя только первое меню - и дальше одни выборы.
И еще - не обязательно писать полностью строку. Можно только часть - так зачастую лучше
Заметь чтобы нормаль заработала система таблицы надо при переходе повторить название таблицы ,тоесть
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 не правильно пешу?? А мож в чем другом ошибся?
Заранее благодарен!
UO.WaitMenu('Blacksmithing','Weapons','Weaponts','Maces','Maces','Mace')
Но он застревает на таблице Weapons , где наресован ме4(Sword & Blades) и Мейс(Maces & Hammers)- мож R не правильно пешу?? А мож в чем другом ошибся?
Заранее благодарен!
Re: !!
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!
Peace All Smokers!
-
- Expert!
- Posts: 359
- Joined: 2004-04-25 11:11:07
- Contact:
Обычно заголовки меню такие же, как последний выбор (т.е.. если ты выбрал 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
### 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