Page 1 of 1

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

Posted: 2008-01-03 20:36:06
by 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


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

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

Posted: 2008-01-03 21:31:37
by Kynep
MeLFiS wrote:

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


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

Posted: 2008-01-04 15:05:21
by 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 раз делает а дальше не хочет

Posted: 2008-01-04 15:10:53
by 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

Posted: 2008-01-04 20:41:59
by MeLFiS
вписал я свои настройки в журнал всеравно 1 раз делает и все

Posted: 2008-01-04 20:57:52
by 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 тоже наченал заного

Posted: 2008-01-04 21:40:10
by stickman
while wend repeat... 8) все перепутано, напутано...брр

Posted: 2008-01-04 22:04:39
by Kynep
MeLFiS wrote:

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



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

Posted: 2008-01-05 01:35:37
by MeLFiS
все я нашол вчем проблема можете тепер помоч чтобы он медетировал када маны не будет