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

Подправте
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13526		 Page 1 of 1
Author:  www.i.ru [ 2008-04-22 13:25:48 ]
Post subject:  Подправте
Code:
sub forkkk()
Var Fork='0x1405'
Var X=600
        repeat
         UO.Equipt( 'Rhand', Fork )
         wait(100)
         until UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork
      Endif
   Else
      If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork Then
 Endif
end sub



Все нормально делает! (меняет оружие на вилку) но в конце выдает ошибку=(( исправте пожалуйсто
Author:  Purgen [ 2008-04-22 13:29:33 ]
Post subject: 
repeat-until поменяй на while-wend
Author:  Purgen [ 2008-04-22 13:34:27 ]
Post subject:  Re: Подправте
Code:
sub forkkk()
Var Fork='0x1405'
   If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) <> Fork Then
      while  UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork
          UO.Equipt( 'Rhand', Fork )
          wait(100)
      wend
    Endif
end sub

вот так попробуй.
Author:  www.i.ru [ 2008-04-22 14:01:34 ]
Post subject: 
Не что то не работает! Вообще не чего не происходит...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/