Yoko

Posted: **2008-04-22 13:25:48**

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

Все нормально делает! (меняет оружие на вилку) но в конце выдает ошибку=(( исправте пожалуйсто

Posted: **2008-04-22 13:29:33**

repeat-until поменяй на while-wend

Posted: **2008-04-22 13:34:27**

Code: Select all

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

вот так попробуй.

Posted: **2008-04-22 14:01:34**

Не что то не работает! Вообще не чего не происходит...

Yoko

Подправте

Подправте

Re: Подправте