Yoko

Есть скрипт, не могу правильно зациклить. В скриптовании я нуп полный, этот скрипт написал еле-еле ) и вообще не понимаю в чём трабл. Если кто может - переделайте так чтобы рыбу он жарил постоянно, пока есть костёр, когда его не становится - чтобы он (падла така) новый делал ( это и есть основная проблема) и продолжал жарить

sub cook()
   Var fire  =  '0x0DE3'
   Var fish  =  '0x097A'
   Var sunduk = '0x400BC509'  # Âïèñàòü ID ñóíäóêà.
   Var hvorost = '0x0DE1'
   while not uo.dead()
   If UO.Count( fish ) < 1 Then
      UO.FindType( fish, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.Moveitem( 'finditem', '100', 'backpack' )
      Else
         return
      Endif
   Else
      wait(50)
   Endif
   UO.FindType( fire, '-1', 'ground' )
   If UO.FindCount() > 0 Then
      While UO.FindCount() > 0 or UO.Count( fish ) < 1
         UO.WaitTargetObject( 'finditem' )
         UO.UseType( fish )
         wait(1000)
         While not UO.InJournal( 'Mmm|burn' )
         Wend
         UO.FindType( fire, '-1', 'ground' )
         wend
   Else
      UO.FindType( hvorost, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.MoveItem('finditem','1','ground',UO.GetX()+1, UO.GetY()+1, UO.GetZ() )
         wait(200)
         UO.UseObject( 'finditem' )
      Else
         Return
      Endif
   Endif
   wend
endsub

А на форже не легче?
Или ты ещё кемпинг качаешь?)

_________________
:O

сорри забыл сказать: играю на fwuo.ru, у нас к сожалению нельзя жарить на фордже.. и вообще ниначём кроме кемпфаера. Так-то я бы не мучался. Если можете помогите плз, а то 15к рыбы нежаренной лежит...

А там же инжект запрещён...

_________________
:O

[quote="Almasst"][/quote]
Скрипт, собственно говоря, это и делает. Всё как ты описал

понимаешь ли, проблема в том, что на деле он этого не делает))) серьёзно, я даже друга проверить попросил... если можешь стукни 242-532(инвиз)

А вообще согласен, в целом скрипт делает именно то, что нужно.

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

wait(1000) 
[b]uo.DeleteJournal() [/b]
While not UO.InJournal( 'Mmm|burn' ) 
wait( 100 ) 
Wend

Там выше читай сплошные вайлы, он тогда перестанет жарить после первой.


А вообще я ничего не понимаю. Ну не работает у меня данный скрипт. Ума не приложу, уже всё перепробывал. Может ктонить помочь?

о да! Это свершилось))

sub cook()
   Var fire  =  '0x0DE3'
   Var fish  =  '0x097A'
   Var sunduk = '0x400BC509'  # Âïèñàòü ID ñóíäóêà.
   Var hvorost = '0x0DE1'
   while not uo.dead()
   If UO.Count( fish ) < 1 Then
      UO.FindType( fish, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.Moveitem( 'finditem', '500', 'backpack' )
         Checklag()
      Else
         return
      Endif
   Else
      wait(50)
   Endif
   UO.FindType( fire, '-1', 'ground' )
   If UO.FindCount() > 0 Then
      While UO.FindCount() > 0 and UO.Count( fish ) > 0
         UO.WaitTargetObject( 'finditem' )
         UO.UseType( fish )
         wait(1000)
         While not uo.injournal( 'Mmm|burn|The previous' )
         wait(100)
         Wend
         UO.FindType( fire, '-1', 'ground' )
         wend
   Else
      UO.FindType( hvorost, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.MoveItem('finditem','1','ground',UO.GetX()+1, UO.GetY()+1, UO.GetZ() )
         wait(200)
         UO.UseObject( 'finditem' )
         checklag()
      Else
         Return
      Endif
   Endif
   wend
endsub

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('ackpack') 
end sub

афигеть вот в этом походу была проблема

While UO.FindCount() > 0 or UO.Count( fish ) < 1 

While UO.FindCount() > 0 and UO.Count( fish ) > 0