Yoko
http://forum.yoko.com.ua/

инскрипт помогите доделать
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12997		 Page 1 of 1
Author:  MeLFiS [ 2008-01-03 20:36:06 ]
Post subject:  инскрипт помогите доделать
Code:
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


Что здесь может быть не правельно помогите доделать
Author:  Kynep [ 2008-01-03 21:31:37 ]
Post subject:  Re: инскрипт помогите доделать
MeLFiS wrote:
Code:
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


Что здесь может быть не правельно помогите доделать
Author:  MeLFiS [ 2008-01-04 15:05:21 ]
Post subject: 
Code:
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 раз делает а дальше не хочет
Author:  Kynep [ 2008-01-04 15:10:53 ]
Post subject: 
Code:
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
Author:  MeLFiS [ 2008-01-04 20:41:59 ]
Post subject: 
вписал я свои настройки в журнал всеравно 1 раз делает и все
Author:  MeLFiS [ 2008-01-04 20:57:52 ]
Post subject: 
Code:
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:
  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 тоже наченал заного
Author:  stickman [ 2008-01-04 21:40:10 ]
Post subject: 
while wend repeat... 8) все перепутано, напутано...брр
Author:  Kynep [ 2008-01-04 22:04:39 ]
Post subject: 
MeLFiS wrote:
Code:
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



Блин я же тебе написал, пробуй. Если хоцца своих сообщений то исправь, текущие на свои.
Author:  MeLFiS [ 2008-01-05 01:35:37 ]
Post subject: 
все я нашол вчем проблема можете тепер помоч чтобы он медетировал када маны не будет
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/