Yoko

Posted: **2008-02-09 16:31:19**

здравствуйте
помогите пожалуйсто.вот скрипт он изначально делал дагеры а я изменил на другое оружие но он не куёт=(
а пишется Warning: Menu Swords & Blades opened waiting canceled

Code: Select all

sub Blacksmithing() 
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 
end if 

uo.FindType('0x0F5C',-1,'backpack') 
wait(2500) 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject('0x400546E5') ; Форж 
end if 

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

Posted: **2008-02-09 16:38:41**

попробуй замени

Code: Select all

uo.WaitMenu('Blacksmithing','Weapons','Weapons','Maces & Hammers','Maces & Hammers','mace')

на

Code: Select all

         uo.AutoMenu('Blacksmithing','Colored Armor & Weapons') 
         uo.AutoMenu('Colored Armor & Weapons','Weapons') 
         uo.AutoMenu('Weapons','Maces & Hammers') 
         uo.AutoMenu('Maces & Hammers','mace')

Posted: **2008-02-09 16:49:44**

Avel Mink сенк но он не куёт опять=( вылетает уйма каких то строк и в конце пишется - Menu choise not found : menu ignored
может сделать по ласт что он сделал? ну что он последнее сделал и это вставить Можете помочь пожалуйсто

Posted: **2008-02-09 17:00:47**

этолт скрипт вышел из под контроля))
если вас не затруднит посмотрите этот скрипт правельый он или нет
чар просто делает вещь а потом выкидывает в мусорник

Code: Select all

sub BlacksmithyIM() 
var Exit=0, LastTimer 
uo.Print('Выбери Сундук: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Помойку: ') 
uo.Exec('addobject TrashCan') 
while uo.Targeting() 
wait(100) 
wend 
while Exit<>1 
uo.DeleteJournal() 
uo.FindType('0x0F51','0x0000','backpack') 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('TrashCan') 
wait(1000) 
uo.Grab('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if 
uo.FindType('0x1BEF ',-1,'backpack')  
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF ','0x0000','Chest') 
wait(1000) 
uo.Grab('300','finditem') 
wait(1000) 
end if 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
uo.WaitMenu ('Blacksmithing','Shields','Shields','buckler')
uo.UseType('0x13E3') 
wait(12000) 
wend 
end sub

Posted: **2008-02-09 17:02:29**

этолт скрипт вышел из под контроля
если вас не затруднит посмотрите этот скрипт правельый он или нет
чар просто делает вещь а потом выкидывает в мусорник

Code: Select all

sub BlacksmithyIM() 
var Exit=0, LastTimer 
uo.Print('Выбери Сундук: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Помойку: ') 
uo.Exec('addobject TrashCan') 
while uo.Targeting() 
wait(100) 
wend 
while Exit<>1 
uo.DeleteJournal() 
uo.FindType('0x0F51','0x0000','backpack') 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('TrashCan') 
wait(1000) 
uo.Grab('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if 
uo.FindType('0x1BEF ',-1,'backpack')  
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF ','0x0000','Chest') 
wait(1000) 
uo.Grab('300','finditem') 
wait(1000) 
end if 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
uo.WaitMenu ('Blacksmithing','Shields','Shields','buckler')
uo.UseType('0x13E3') 
wait(12000) 
wend 
end sub

Yoko

БС не куёт

БС не куёт