Page 1 of 1

таминг(выручайте плз)

Posted: 2006-03-05 21:45:32
by CHI
помогите плз скриптом на таминг.. тамит 2 собак и релизит и по новой
плиззз

Posted: 2006-03-06 15:12:58
by Scripts Writer

Code: Select all

sub Taming() 
 var count=0 
 uo.print('Укажи первую животину') 
   uo.exec('addobject first') 
    while uo.targeting() 
    wait(100) 
    wend 
 UO.DeleteJournal() 
 uo.print('Вторую указывай')
 uo.exec('addobject second') 
     while uo.targeting() 
     wait(100) 
     wend 
 UO.DeleteJournal() 
 UO.Print('Теперь палку') 
 UO.Exec('addobject staff') 
      while uo.Targeting() 
      wait(100) 
      wend 
          while NOT UO.Dead() 
          UO.DeleteJournal() 
          UO.WaitTargetObject('first') 
          UO.Useobject('staff') 
                    repeat 
                    wait(1000) 
                    until UO.InJournal('You fail') or UO.InJournal('It seems')
          UO.DeleteJournal() 
          UO.WaitTargetObject('second') 
          UO.Useobject('staff') 
                              repeat 
                              wait(1000) 
                              until UO.InJournal('You fail') or UO.InJournal('It seems')
          UO.Say('All release') 
          wend 
end sub 

Писал сам, работать должно, наверное ) тести.