Yoko

Как из этого скрипта зделать что-бы крафтил из Расти?

; Blacksmithy 

sub Blacksmithy() 

VAR Exit=0, LastTimer 
while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Armor & Weapons','Armor & Weapons','Ringmail Gloves','Ringmail Gloves') ; 
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('0x13E3',-1,'backpack') 
wait(500) 

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

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0750','0x4004CAE1') ; 
wait(1000) 
UO.Grab('1000','finditem') 
Endif 
wait(1000) 
wend 
end sub

Вразумите!

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0750','0x4004CAE1') ;
wait(1000) 

через инфо узнай цвет Rusty и вставь вместо 0x0750

Именно цвет расти я и поставил, но проблема вроде в выборе делаемого придмета. ХЗ но почемуто глючит?

UO.WaitMenu('Blacksmithing','Armor & Weapons','Armor & Weapons','Ringmail Gloves','Ringmail Gloves') ; 

Мне кажется или праблемма в этой строчке?

Да, последний выбор не парный.

Мне тоже так кажется. Что тока не перепробовал ! я пробовал не парный тоже ни в какую, мож вообще не правильно написал?

Могу предположить что стоит посмотреть на красивые надписи сверху и снизу меню крафта. Непробовал?

там идёт Colored Armor & Weapons -> Rusty Ringmail Gloves как их правильно ставить?? ХЗ

UO.WaitMenu(
1) 'Blacksmithing','Armor & Weapons',
2) 'Armor & Weapons','Ringmail Gloves',
3) 'Ringmail Gloves','XXXXXXXXXXXXXXX'
) 

Чего-то нехватает ненаходиш?

Так нагляднее?

Та-же фигня, что ему не нравится этому скрипту?

UO.WaitMenu( 
1) 'Blacksmithing','Armor & Weapons', 
2) 'Armor & Weapons','Ringmail Gloves', 
3) 'Ringmail Gloves','XXXXXXXXXXXXXXX' 
) 

Чего-то нехватает ненаходиш?

Так нагляднее?

Если ты имеешь ввиду, что последняя строчка долна быть без пары, но я и так пробовал не работает!
Кидаю пример:
;Скрипт на Blacksmithy Расти

sub Blacksmithy()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Armor & Weapons','Armor & Weapons','Ringmail Gloves') ;
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('0x13E3',-1,'backpack')
wait(500)

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

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

Не работает

а так?

uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Rusty Ringmail Gloves')

Alegarh Используй теги выделения кода

_________________
Прежде чем задать вопрос, загляни сюда
Начинающим скриптописателям

Ладно, не парьте чела, когда используется ДРВэшный колоред - идет 4 выбора из меню. А стандартный UO.WaitMenu() поддерживает токо 3. Вообщем надо юзать автоменю.

Если бы я ещо понимал о чём вы! Если не трудно вставте в готовый скрипт

Та ктонибудь поможет или нет???
Ето, что разве так сложно?
Помогите ПЛЗ!

смотрим тут UO.[yhlp_automenu]
и для каждого меню(кадого уровня начиная с первого) расставляешь заговки и выбор, итого, если верить саваджу, должно получится четыре строчки uo.automenu(promt, choice)

_________________
Прежде чем задать вопрос, загляни сюда

Начинающим скриптописателям

вроде этот вариант норм... но я хз.... сток раз его доводил до ума, но не разу сам не тестил

sub BS() 
var Exit=0, LastTimer, 
var idContainer='0x4003A2EA'   ;контейнер с ингами и едой
var idForge='0x40272606'      ;плавилка, на которой будем плавить
var tDagger='0x13FE'         ;тип конечной продукции
var tEat='0x097B'            ;тип поглощаемой еды ;)
var minqIng=10
var i=0 
var qIng=Val(STR((UO.STR*4-UO.Weight+30)/0.6,0))-20 ; сколько ингов подымаешь 
var MenuIron="'Blacksmithing' 'Weapons'" 
var MenuOther="'Colored' 'Weapons'" 
var MenuSwords="Weapons' 'Swords'" 
var MenuDagger="'Swords' 'Dagger'"
DIM cIng[6] 
DIM nIng[6] 
DIM tIng[6]
   nIng[0]="'Rusty " 
   nIng[1]="'Old Copper " 
   nIng[2]="'Dull Copper " 
   nIng[3]="'Copper "
   nIng[4]="'Bronze " 
   nIng[5]="'Silver " 
   cIng[0]='0x0750' ; Rusty 
   cIng[1]='0x0590' ; Old Copper 
   cIng[2]='0x060A' ; Dull Copper 
   cIng[3]='0x0000' ; Copper
   cIng[4]='0x0488' ; Bronze
   cIng[5]='0x0000' ; Silver
   tIng[0]='0x1BEF'
   tIng[1]='0x1BEF'
   tIng[2]='0x1BEF'
   tIng[3]='0x1BE3'
   tIng[4]='0x1BEF'
   tIng[5]='0x1BF5'
   UO.CancelMenu()
   UO.UnSetReceivingContainer()
   for i = 0 to 5
      Exit=0
      UO.UseObject(idContainer)
      wait(500)
      CheckLag()      
      UO.FindType(tIng[i],cIng[i],idContainer) 
      if UO.GetQuantity('finditem')>10 Then
         UO.Grab(STR(qIng),'finditem') 
         wait(1000) 
         CheckLag() 
         UO.Exec('automenu '+MenuDagger) 
         UO.Exec('automenu '+nIng[i]+MenuSwords) 
         UO.Exec('automenu '+MenuOther) 
         UO.Exec('automenu '+MenuIron)   
         while Exit<>1
            UO.DeleteJournal() 
            LastTimer=UO.Timer() 
            UO.UseType(tIng[i],cIng[i])
            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(tDagger,-1,'backpack') 
            if UO.GetQuantity('finditem') then 
               UO.WaitTargetObject('finditem') 
               UO.UseObject(idForge)
               wait(3000) 
            end if           
            if UO.Count(tIng[i],cIng[i]) < 10 Then 
               UO.FindType(tIng[i],cIng[i],'backpack')
               UO.MoveItem('finditem','-1',idContainer)
               wait(1000)
               UO.FindType(tIng[i],cIng[i],idContainer) 
               if UO.GetQuantity('finditem')<10 Then                
                  Exit=1 
               else
                  UO.Grab(STR(qIng-10),'finditem') 
                  wait(1000) 
               end if
               ToEat(idContainer, tEat)
               CheckLag()
            end if          
         wend             
         UO.CancelMenu() 
      end if
   next  
end sub

sub ToEat(idContainer, tEat)
   UO.FindType(tEat, '0x0000', idContainer)
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem','20','backpack')
   else
      return
   end if
   repeat    
      CheckLag()
      UO.UseType(tEat, '0x0000')
      while not UO.InJournal("can't") and not UO.InJournal('full') and not UO.InJournal('stuffed') and not UO.InJournal('hungry') and not UO.InJournal('satiated') and not UO.Dead()
         wait(100)
      wend
   until UO.InJournal('too full') or UO.Dead() or UO.InJournal("can't")
   UO.FindType(tEat, '0x0000','backpack')
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem',-1,idContainer)    
   end if
   Spirit()
end sub      

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub

sub Spirit()
   UO.DeleteJournal()
   UO.UseSkill("Spirit Speak")
   while not UO.InJournal("You establish") and not UO.InJournal("netherworld")
      wait(300)
   wend
end sub

Конечно спосибо тебе но твой скрипт не работает
Всётаки реределал немного твой скрипт и он начал работать но не могу настроить что-бы ковал Sleeves?
Плпробовал и Waitmenu и Automenu Всё равно что-то иму не нравится

что именно и какой у тебя скил БС, шард не помнб ты говорил или нет?