Yoko

Помогите пожалуйста С БС'ом!!!!Мне нужно штоб из расти делал катаны....

sub bs()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') - КАК ЗДЕСЯ ПОМЕНЯТЬ ,ШТОБ КАВАЛ ИЗ ЦВЕТА КАТАНЫ????
UO.UseType(0x1BEF) ; iron ings

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 ;time to make a dagger
EndIf

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

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject('0x401E6B98') ;forge
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x400443A9') ; sunduk s ingami
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub

Кароче на те скрипт для цветной ковки руды .. кладешь в пак расти берешь В руку молот и запускаешь

sub Blacksmithing() 
var Exit=0, LastTimer, Container='0x400019D8', Forge='0x40001072' ;Cундук в котором инги и форж.
var CountIng=100 ;Скока ингов поднимает чар 
var MenuIron="'Blacksmithing' 'Weapons'" 
var MenuOther="'Colored' 'Weapons'" 
var MenuSwords="Weapons' 'Swords'" 
var MenuDagger="'Swords' 'katana'" 
var i=0 

dim ColorOfIng[6] 
dim NameOre[6] 

NameOre[0]="'" 
NameOre[1]="'Rusty " 
NameOre[2]="'Old Copper " 
NameOre[3]="'Dull Copper " 
NameOre[4]="'Bronze " 

ColorOfIng[0]='0x0000' ; Iron 
ColorOfIng[1]='0x0750' ; Rusty 
ColorOfIng[2]='0x0590' ; Old Copper 
ColorOfIng[3]='0x060A' ; Dull Copper 
ColorOfIng[4]='0x0488' ; Bronze 


uo.UseObject(Container) 
while not uo.Dead() 
for i=0 to 4 
uo.FindType('0x1BEF',ColorOfIng[i],Container) 
if uo.GetQuantity('finditem')>10 then 
uo.Grab(STR(CountIng),'finditem') 
wait(1000) 
             
uo.Exec('automenu '+MenuDagger) 
uo.Exec('automenu '+NameOre[i]+MenuSwords) 
if i>0 Then 
uo.Exec('automenu '+MenuOther) 
end if 
uo.Exec('automenu '+MenuIron) 
             
While Exit<>1 
uo.DeleteJournal() 
LastTimer=uo.Timer() 
                
uo.UseType(0x1BEF)  

while not uo.InJournal("You put") and not uo.InJournal("You have failed") 
wait(100) 
wend 

if uo.InJournal("You have failed") then 
repeat 
wait(100) 
until uo.Timer()>=LastTimer+100 ; Время создания дагера
end if 
CheckLag() 

uo.FindType('0x0F51',-1,'backpack') 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject(Forge)  
wait(3000) 
end if 

uo.FindType('0x1BEF',-1,'backpack') 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF',ColorOfIng[i],Container) 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF',ColorOfIng[i],'backpack') 
uo.SetReceivingContainer(Container) 
uo.Grab('all','finditem') 
uo.UnSetReceivingContainer() 
Exit=1 
end if 
else 
wait(1000) 
uo.Grab(STR(CountIng-10),'finditem') 
end if
wend 
Exit=0 
uo.CancelMenu() 
end if 
next 
wend    
end sub

sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec("canceltarget") 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
end sub 

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

сенк огромный....

Кулер ты Лучший!!! =))

А Я ????? ((((

_________________
Все просто.
BETEPAH ™

Ты тоже )))

_________________
Ultima Online It's LiFe!

Peace All Smokers!

ничего некуёт ваш скрипт .. пишет меню слева и на weapons=swords
останавливается... токлько грамотно инги руды берёт и всё

Если у тебя не работает ...то это еще не значит что скрирт крипвой .....У меня пашит,у Кулера тоже, у Колбасуна тоже ........У Гильдии моей тоже .....продолжить ?.......

_________________
Все просто.

BETEPAH ™

Если у тебя не работает ...то это еще не значит что скрирт крипвой .....У меня пашит,у Кулера тоже, у Колбасуна тоже ........У Гильдии моей тоже .....продолжить ?.......[/quote]
Лучше помоги с ним разобратся .. айдишники все поменял запускаю--берёт кучу расти потом идёт выбор меню и останавливается.. мне кажется ошибка именно в выборе меню идёт... я хотел делать даггеры из цветной руды.. но даже не меняя меню в скрипте.. катаны тож не сделалось

Ты в не конкуренции