Подправте

[www.i.ru]

Code: Select all

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

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

[Purgen]

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

[Purgen]

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

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

[www.i.ru]

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