Yoko

All sides of Injection
It is currently 2025-10-11 06:47:37

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 4 posts ] 
  Print view Previous topic | Next topic 
Author Message
www.i.ru
 Post subject: Подправте
PostPosted: 2008-04-22 13:25:48 
Offline

Joined: 2007-09-28 13:04:46
Posts: 65
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



Все нормально делает! (меняет оружие на вилку) но в конце выдает ошибку=(( исправте пожалуйсто
Top
   
Reply with quote  
Purgen
 Post subject:
PostPosted: 2008-04-22 13:29:33 
Offline
User avatar

Joined: 2005-04-04 18:23:12
Posts: 187
repeat-until поменяй на while-wend
Top
   
Reply with quote  
Purgen
 Post subject: Re: Подправте
PostPosted: 2008-04-22 13:34:27 
Offline
User avatar

Joined: 2005-04-04 18:23:12
Posts: 187
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

вот так попробуй.
Top
   
Reply with quote  
www.i.ru
 Post subject:
PostPosted: 2008-04-22 14:01:34 
Offline

Joined: 2007-09-28 13:04:46
Posts: 65
Не что то не работает! Вообще не чего не происходит...
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 4 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited