инскрипт помогите доделать

[MeLFiS]

Code: Select all

sub inckript() 
VAR bl = '0x0e34' 
VAR sb = '0x0efa'


   while not uo.Dead()
     uo.useskill('Inscription') 
     uo.waittargetobject('_'+bl, '_'+sb) 
     uo.automenu('Select a circle to inscribe', 'Circle 3 spells') 
     uo.automenu('Select a spell to inscribe',  'Poison')
     while not uo.InJournal('You create the scroll and put it in your backpack') or uo.InJournal('You fail and destroy the scroll') or uo.InJournal('you fail')
     wait(100)
  wend
 wend
end sub

Что здесь может быть не правельно помогите доделать

[Kynep]

Code: Select all

sub inckript() 
VAR bl = '0x0e34' 
VAR sb = '0x0efa'
     uo.automenu('Select a circle to inscribe', 'Circle 3 spells') 
     uo.automenu('Circle 3 spells',  'Poison')

   while not uo.Dead()
     uo.waittargettype(bl) 
     wait(500)
     uo.useskill('Inscription') 
     while not uo.InJournal('You create the scroll and put it in your backpack') or uo.InJournal('You fail and destroy the scroll') or uo.InJournal('you fail')
     wait(100)
  wend
 wend
end sub

Что здесь может быть не правельно помогите доделать

[MeLFiS]

Code: Select all

sub inckript() 
VAR bl = '0x0e34' 
VAR sb = '0x0efa' 
     uo.automenu('Select a circle to inscribe', 'Circle 3 spells')
     uo.automenu('Select a spell to inscribe',  'Poison') 

   while not uo.Dead() 
     uo.waittargetobject('_'+bl, '_'+sb)  
     wait(500) 
     uo.useskill('Inscription') 
     while not uo.InJournal('You create the scroll and put it in your backpack') or uo.InJournal('You fail and destroy the scroll') or uo.InJournal('you fail') 
     wait(100) 
  wend 
 wend 
end sub

Я подправил немножко токо тепер нада с журналом чтото зделать а то он 1 раз делает а дальше не хочет

[Kynep]

Code: Select all

sub inckript() 
VAR bl = '0x0e34' 
VAR sb = '0x0efa' 
     uo.automenu('Select a circle to inscribe', 'Circle 3 spells')
     uo.automenu('Select a spell to inscribe',  'Poison') 

   while not uo.Dead() 
    UO.DeleteJournal()
     uo.waittargetobject('_'+bl, '_'+sb)  
     wait(500) 
     uo.useskill('Inscription') 
     while not uo.InJournal('You create the') or uo.InJournal('You fail and')
     wait(100) 
  wend 
 wend 
end sub

[MeLFiS]

вписал я свои настройки в журнал всеравно 1 раз делает и все

[MeLFiS]

Code: Select all

sub inckript() 
VAR bl = '0x0e34' 
VAR sb = '0x0efa' 
     uo.automenu('Select a circle to inscribe', 'Circle 3 spells') 
     uo.automenu('Select a spell to inscribe',  'Poison') 

   while not uo.Dead() 
    UO.DeleteJournal()
    repeat
     uo.waittargetobject('_'+bl, '_'+sb)  
     wait(500) 
     uo.useskill('Inscription') 
     while not uo.InJournal('You fail') or uo.InJournal('"You create') 
     wait(100) 
  wend
  If UO.InJournal("You fail and destroy the scroll") and uo.InJournal("You create the scroll and put it in your backpack") then 
repeat
 wait(500)
 wend 
end sub

Дописал еше такое токо вот не знаю как тепер

Code: Select all

  If UO.InJournal("You fail and destroy the scroll") and uo.InJournal("You create the scroll and put it in your backpack")

Токо тепер он начинает заного если пишетса 1 а если 2 то он не чего не делает как правильно написать чтобы при 2 тоже наченал заного

[stickman]

while wend repeat... все перепутано, напутано...брр

[Kynep]

Code: Select all

sub inckript() 
VAR bl = '0x0e34' 
VAR sb = '0x0efa' 
     uo.automenu('Select a circle to inscribe', 'Circle 3 spells') 
     uo.automenu('Select a spell to inscribe',  'Poison') 

   while not uo.Dead() 
    UO.DeleteJournal()
     uo.waittargetobject('_'+bl, '_'+sb)  
     wait(500) 
     uo.useskill('Inscription') 
     while not uo.InJournal('You fail') or uo.InJournal('"You create') 
     wait(100) 
     wend
  wend 
end sub

Блин я же тебе написал, пробуй. Если хоцца своих сообщений то исправь, текущие на свои.

[MeLFiS]

все я нашол вчем проблема можете тепер помоч чтобы он медетировал када маны не будет